mirror of
https://github.com/cc65/cc65.git
synced 2025-08-08 06:25:17 +00:00
Changed name for long compare subroutine
git-svn-id: svn://svn.cc65.org/cc65/trunk@992 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -4,12 +4,13 @@
|
|||||||
; Long int compare function - used by the compare operators
|
; Long int compare function - used by the compare operators
|
||||||
;
|
;
|
||||||
|
|
||||||
.export lcmp
|
.export toslcmp
|
||||||
.import incsp4
|
.import incsp4
|
||||||
.importzp sp, sreg, ptr1
|
.importzp sp, sreg, ptr1
|
||||||
|
|
||||||
|
|
||||||
lcmp: sta ptr1
|
toslcmp:
|
||||||
|
sta ptr1
|
||||||
stx ptr1+1 ; EAX now in sreg:ptr1
|
stx ptr1+1 ; EAX now in sreg:ptr1
|
||||||
|
|
||||||
ldy #$03
|
ldy #$03
|
||||||
@@ -47,4 +48,4 @@ L4: php ; Save flags
|
|||||||
plp ; Restore flags
|
plp ; Restore flags
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
@@ -5,11 +5,11 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export toseqeax
|
.export toseqeax
|
||||||
.import lcmp, booleq
|
.import toslcmp, booleq
|
||||||
|
|
||||||
toseqeax:
|
toseqeax:
|
||||||
jsr lcmp ; Set flags
|
jsr toslcmp ; Set flags
|
||||||
jmp booleq ; Convert to boolean
|
jmp booleq ; Convert to boolean
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@@ -5,9 +5,9 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export tosgeeax
|
.export tosgeeax
|
||||||
.import lcmp, boolge
|
.import toslcmp, boolge
|
||||||
|
|
||||||
tosgeeax:
|
tosgeeax:
|
||||||
jsr lcmp ; Set the flags
|
jsr toslcmp ; Set the flags
|
||||||
jmp boolge ; Convert to boolean
|
jmp boolge ; Convert to boolean
|
||||||
|
|
||||||
|
@@ -5,10 +5,10 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export tosgteax
|
.export tosgteax
|
||||||
.import lcmp, boolgt
|
.import toslcmp, boolgt
|
||||||
|
|
||||||
tosgteax:
|
tosgteax:
|
||||||
jsr lcmp ; Set the flags
|
jsr toslcmp ; Set the flags
|
||||||
jmp boolgt ; Convert to boolean
|
jmp boolgt ; Convert to boolean
|
||||||
|
|
||||||
|
|
||||||
|
@@ -5,9 +5,9 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export tosleeax
|
.export tosleeax
|
||||||
.import lcmp, boolle
|
.import toslcmp, boolle
|
||||||
|
|
||||||
tosleeax:
|
tosleeax:
|
||||||
jsr lcmp ; Set the flags
|
jsr toslcmp ; Set the flags
|
||||||
jmp boolle ; Convert to boolean
|
jmp boolle ; Convert to boolean
|
||||||
|
|
||||||
|
@@ -5,8 +5,8 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export toslteax
|
.export toslteax
|
||||||
.import lcmp, boollt
|
.import toslcmp, boollt
|
||||||
|
|
||||||
toslteax:
|
toslteax:
|
||||||
jsr lcmp ; Set the flags
|
jsr toslcmp ; Set the flags
|
||||||
jmp boollt ; Convert to boolean
|
jmp boollt ; Convert to boolean
|
||||||
|
@@ -5,10 +5,10 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export tosneeax
|
.export tosneeax
|
||||||
.import lcmp, boolne
|
.import toslcmp, boolne
|
||||||
|
|
||||||
tosneeax:
|
tosneeax:
|
||||||
jsr lcmp ; Set flags
|
jsr toslcmp ; Set flags
|
||||||
jmp boolne ; Convert to boolean
|
jmp boolne ; Convert to boolean
|
||||||
|
|
||||||
|
|
||||||
|
@@ -5,9 +5,9 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export tosugeeax
|
.export tosugeeax
|
||||||
.import lcmp, booluge
|
.import toslcmp, booluge
|
||||||
|
|
||||||
tosugeeax:
|
tosugeeax:
|
||||||
jsr lcmp ; Set the flags
|
jsr toslcmp ; Set the flags
|
||||||
jmp booluge ; Convert to boolean
|
jmp booluge ; Convert to boolean
|
||||||
|
|
||||||
|
@@ -5,10 +5,10 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export tosugteax
|
.export tosugteax
|
||||||
.import lcmp, boolugt
|
.import toslcmp, boolugt
|
||||||
|
|
||||||
tosugteax:
|
tosugteax:
|
||||||
jsr lcmp ; Set the flags
|
jsr toslcmp ; Set the flags
|
||||||
jmp boolugt ; Convert to boolean
|
jmp boolugt ; Convert to boolean
|
||||||
|
|
||||||
|
|
||||||
|
@@ -5,9 +5,9 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export tosuleeax
|
.export tosuleeax
|
||||||
.import lcmp, boolule
|
.import toslcmp, boolule
|
||||||
|
|
||||||
tosuleeax:
|
tosuleeax:
|
||||||
jsr lcmp ; Set the flags
|
jsr toslcmp ; Set the flags
|
||||||
jmp boolule ; Convert to boolean
|
jmp boolule ; Convert to boolean
|
||||||
|
|
||||||
|
@@ -5,8 +5,8 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
.export tosulteax
|
.export tosulteax
|
||||||
.import lcmp, boolult
|
.import toslcmp, boolult
|
||||||
|
|
||||||
tosulteax:
|
tosulteax:
|
||||||
jsr lcmp ; Set the flags
|
jsr toslcmp ; Set the flags
|
||||||
jmp boolult ; Convert to boolean
|
jmp boolult ; Convert to boolean
|
||||||
|
@@ -4,11 +4,13 @@
|
|||||||
; CC65 runtime: Push value in a onto the stack
|
; CC65 runtime: Push value in a onto the stack
|
||||||
;
|
;
|
||||||
|
|
||||||
.export pushaysp, pusha
|
.export pusha0sp, pushaysp, pusha
|
||||||
.importzp sp
|
.importzp sp
|
||||||
|
|
||||||
; Beware: The optimizer knows about this function!
|
; Beware: The optimizer knows about this function!
|
||||||
|
|
||||||
|
pusha0sp:
|
||||||
|
ldy #$00
|
||||||
pushaysp:
|
pushaysp:
|
||||||
lda (sp),y
|
lda (sp),y
|
||||||
pusha: ldy sp
|
pusha: ldy sp
|
||||||
|
Reference in New Issue
Block a user