mirror of
https://github.com/cc65/cc65.git
synced 2024-07-02 15:29:33 +00:00
53dd513176
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
51 lines
697 B
ArmAsm
51 lines
697 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 10.12.1998
|
|
;
|
|
; Long int compare function - used by the compare operators
|
|
;
|
|
|
|
.export lcmp
|
|
.import incsp4
|
|
.importzp sp, sreg, ptr1
|
|
|
|
|
|
lcmp: sta ptr1
|
|
stx ptr1+1 ; EAX now in sreg:ptr1
|
|
|
|
ldy #$03
|
|
lda (sp),y
|
|
cmp sreg+1
|
|
bne L4
|
|
|
|
dey
|
|
lda (sp),y
|
|
cmp sreg
|
|
bne L1
|
|
|
|
dey
|
|
lda (sp),y
|
|
cmp ptr1+1
|
|
bne L1
|
|
|
|
dey
|
|
lda (sp),y
|
|
cmp ptr1
|
|
|
|
L1: php ; Save flags
|
|
jsr incsp4 ; Drop TOS
|
|
plp ; Restore the flags
|
|
beq L2
|
|
bcs L3
|
|
lda #$FF ; Set the N flag
|
|
L2: rts
|
|
|
|
L3: lda #$01 ; Clear the N flag
|
|
rts
|
|
|
|
L4: php ; Save flags
|
|
jsr incsp4 ; Drop TOS
|
|
plp ; Restore flags
|
|
rts
|
|
|
|
|