few 6502 and some 65SC02 optimizations

[cc65] / libsrc / runtime / lumod.s

diff --git a/libsrc/runtime/lumod.s b/libsrc/runtime/lumod.s
index e290e11677e9a0a2e9a2e862a773ad59d93e11bb..241801a90bf15d51a53f0f13340ced5ccd947ee5 100644 (file)
--- a/libsrc/runtime/lumod.s
+++ b/libsrc/runtime/lumod.s
@@ -1,5 +1,6 @@
 ;
 ; Ullrich von Bassewitz, 27.09.1998
+; Christian Krueger, 11-Mar-2017, added 65SC02 optimization
 ;
 ; CC65 runtime: modulo operation for long unsigned ints
 ;
@@ -8,10 +9,17 @@
         .import         getlop, udiv32
         .importzp       sreg, tmp3, tmp4, ptr2
 
+        .macpack        cpu
+
 tosumod0ax:                          
+.if (.cpu .bitand ::CPU_ISET_65SC02)
+        stz     sreg
+        stz     sreg+1
+.else
         ldy     #$00
         sty     sreg
         sty     sreg+1
+.endif
 
 tosumodeax:
         jsr     getlop          ; Get the paramameters