2002-04-21 14:19:14 +00:00
|
|
|
;
|
|
|
|
|
; Piotr Fusik, 15.04.2002
|
|
|
|
|
; originally by Ullrich von Bassewitz
|
|
|
|
|
;
|
|
|
|
|
; Long int compare function - used by the compare operators
|
|
|
|
|
;
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export toslcmp
|
|
|
|
|
.import incsp4
|
|
|
|
|
.importzp sp, sreg, ptr1
|
2002-04-21 14:19:14 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
toslcmp:
|
2013-05-09 11:56:54 +00:00
|
|
|
sta ptr1
|
|
|
|
|
stx ptr1+1 ; EAX now in sreg:ptr1
|
|
|
|
|
|
|
|
|
|
ldy #$03
|
|
|
|
|
lda (sp),y
|
|
|
|
|
sec
|
|
|
|
|
sbc 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: bvc L5
|
|
|
|
|
eor #$FF ; Fix the N flag if overflow
|
|
|
|
|
ora #$01 ; Clear the Z flag
|
|
|
|
|
L5: php ; Save flags
|
|
|
|
|
jsr incsp4 ; Drop TOS
|
|
|
|
|
plp ; Restore flags
|
|
|
|
|
rts
|
2002-04-21 14:19:14 +00:00
|
|
|
|
|
|
|
|
|
