6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-12 02:30:44 +00:00
Code Issues Projects Releases Wiki Activity

Changed name for long compare subroutine

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@992 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2001-10-01 22:21:16 +00:00
parent b08adf831d
commit c4a5744651
12 changed files with 32 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libsrc/runtime/lcmp.s
View File

@ -4,12 +4,13 @@
; Long int compare function - used by the compare operators
;
.export lcmp
.export toslcmp
.import incsp4
.importzp sp, sreg, ptr1
lcmp: sta ptr1
toslcmp:
sta ptr1
stx ptr1+1 ; EAX now in sreg:ptr1
ldy #$03
@ -47,4 +48,4 @@ L4: php ; Save flags
plp ; Restore flags
rts

8
libsrc/runtime/leq.s
View File

@ -5,11 +5,11 @@
;
.export toseqeax
.import lcmp, booleq
.import toslcmp, booleq
toseqeax:
jsr lcmp ; Set flags
toseqeax:
jsr toslcmp ; Set flags
jmp booleq ; Convert to boolean

4
libsrc/runtime/lge.s
View File

@ -5,9 +5,9 @@
;
.export tosgeeax
.import lcmp, boolge
.import toslcmp, boolge
tosgeeax:
jsr lcmp ; Set the flags
jsr toslcmp ; Set the flags
jmp boolge ; Convert to boolean

4
libsrc/runtime/lgt.s
View File

@ -5,10 +5,10 @@
;
.export tosgteax
.import lcmp, boolgt
.import toslcmp, boolgt
tosgteax:
jsr lcmp ; Set the flags
jsr toslcmp ; Set the flags
jmp boolgt ; Convert to boolean

4
libsrc/runtime/lle.s
View File

@ -5,9 +5,9 @@
;
.export tosleeax
.import lcmp, boolle
.import toslcmp, boolle
tosleeax:
jsr lcmp ; Set the flags
jsr toslcmp ; Set the flags
jmp boolle ; Convert to boolean

4
libsrc/runtime/llt.s
View File

@ -5,8 +5,8 @@
;
.export toslteax
.import lcmp, boollt
.import toslcmp, boollt
toslteax:
jsr lcmp ; Set the flags
jsr toslcmp ; Set the flags
jmp boollt ; Convert to boolean

4
libsrc/runtime/lne.s
View File

@ -5,10 +5,10 @@
;
.export tosneeax
.import lcmp, boolne
.import toslcmp, boolne
tosneeax:
jsr lcmp ; Set flags
jsr toslcmp ; Set flags
jmp boolne ; Convert to boolean

6
libsrc/runtime/luge.s
View File

@ -5,9 +5,9 @@
;
.export tosugeeax
.import lcmp, booluge
.import toslcmp, booluge
tosugeeax:
jsr lcmp ; Set the flags
tosugeeax:
jsr toslcmp ; Set the flags
jmp booluge ; Convert to boolean

6
libsrc/runtime/lugt.s
View File

@ -5,10 +5,10 @@
;
.export tosugteax
.import lcmp, boolugt
.import toslcmp, boolugt
tosugteax:
jsr lcmp ; Set the flags
tosugteax:
jsr toslcmp ; Set the flags
jmp boolugt ; Convert to boolean

4
libsrc/runtime/lule.s
View File

@ -5,9 +5,9 @@
;
.export tosuleeax
.import lcmp, boolule
.import toslcmp, boolule
tosuleeax:
jsr lcmp ; Set the flags
jsr toslcmp ; Set the flags
jmp boolule ; Convert to boolean

6
libsrc/runtime/lult.s
View File

@ -5,8 +5,8 @@
;
.export tosulteax
.import lcmp, boolult
.import toslcmp, boolult
tosulteax:
jsr lcmp ; Set the flags
tosulteax:
jsr toslcmp ; Set the flags
jmp boolult ; Convert to boolean

4
libsrc/runtime/pusha.s
View File

@ -4,11 +4,13 @@
; CC65 runtime: Push value in a onto the stack
;
.export pushaysp, pusha
.export pusha0sp, pushaysp, pusha
.importzp sp
; Beware: The optimizer knows about this function!
pusha0sp:
ldy #$00
pushaysp:
lda (sp),y
pusha: ldy sp