Added mouse module from C64

[cc65] / libsrc / runtime / sub.s

diff --git a/libsrc/runtime/sub.s b/libsrc/runtime/sub.s
index 9108b271059d1d5f8b8756b24ea04f0b7d76fd2f..1cefd9ac76668510a78076023757b489f9637119 100644 (file)
--- a/libsrc/runtime/sub.s
+++ b/libsrc/runtime/sub.s
@@ -5,7 +5,7 @@
 ;
 
                .export         tossuba0, tossubax
-       .import         addysp1         
+       .import         addysp1
        .importzp       sp, ptr1
 
 ;
@@ -15,14 +15,19 @@
 tossuba0:
        ldx     #0
 tossubax:
-       ldy     #0
        sta     ptr1
        stx     ptr1+1
-       lda     (sp),y          ; lo byte
-       sec
+.ifpc02
+       lda     (sp),y          ; Get lo byte
+       ldy     #1              ; Hi index
+.else
+       ldy     #0
+       lda     (sp),y          ; Lo byte
+       iny                     ; Hi index
+.endif
+       sec                        
        sbc     ptr1
        sta     ptr1            ; save lo byte
-       iny
        lda     (sp),y
        sbc     ptr1+1
        tax