no TGI_ERR_NO_MEM or TGI_ERR_NO_IOCB anymore: replaced by TGI_ERR_NO_RES

[cc65] / libsrc / runtime / mulax7.s

diff --git a/libsrc/runtime/mulax7.s b/libsrc/runtime/mulax7.s
index b7ce28cffacf678658d70719f0ae619c149c41f8..c9f7e47150a9c43c554a15bccb4b9176461f8d28 100644 (file)
--- a/libsrc/runtime/mulax7.s
+++ b/libsrc/runtime/mulax7.s
@@ -1,28 +1,29 @@
 ;
-; Ullrich von Bassewitz, 16.03.2002
+; Piotr Fusik, 24.10.2003
+; originally by Ullrich von Bassewitz
 ;
-; CC65 runtime: Multiply the primary register
+; CC65 runtime: Multiply the primary register by 7
 ;
 
-       .export         mulax7
-       .importzp       ptr1, tmp1
+       .export         mulax7
+       .importzp       ptr1
 
 .proc  mulax7
 
        sta     ptr1
        stx     ptr1+1
-       stx     tmp1
-       asl     a
-       rol     tmp1                    ; * 2
        asl     a
-       rol     tmp1                    ; * 4
+       rol     ptr1+1                  ; * 2
        asl     a
-       rol     tmp1                    ; * 8
+       rol     ptr1+1                  ; * 4
+       asl     a
+       rol     ptr1+1                  ; * 8
        sec
        sbc     ptr1
        pha
-       lda     tmp1
-       sbc     ptr1+1                  ; * (8 - 1)
+       txa
+       eor     #$ff
+       adc     ptr1+1                  ; * (8 - 1)
        tax
        pla
        rts