the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed (pretty inconsistently used) tab chars from source code base.

Browse Source
This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
libsrc/runtime/icmp.s
View File

@@ -5,43 +5,43 @@
; Integer compare function - used by the compare operators
;
.export tosicmp, tosicmp0
.importzp sp, sreg
.export tosicmp, tosicmp0
.importzp sp, sreg
tosicmp0:
ldx #$00
tosicmp:
sta sreg
stx sreg+1 ; Save ax
sta sreg
stx sreg+1 ; Save ax
ldy #$00
lda (sp),y ; Get low byte
tax
inc sp ; 5
bne @L1 ; 3
inc sp+1 ; (5)
ldy #$00
lda (sp),y ; Get low byte
tax
inc sp ; 5
bne @L1 ; 3
inc sp+1 ; (5)
@L1:
lda (sp),y ; Get high byte
inc sp ; 5
bne @L2 ; 3
inc sp+1 ; (5)
lda (sp),y ; Get high byte
inc sp ; 5
bne @L2 ; 3
inc sp+1 ; (5)
; Do the compare.
@L2: sec
sbc sreg+1 ; Compare high byte
bne @L4
cpx sreg ; Compare low byte
beq @L3
adc #$FF ; If the C flag is set then clear the N flag
ora #$01 ; else set the N flag
@L3: rts
@L2: sec
sbc sreg+1 ; Compare high byte
bne @L4
cpx sreg ; Compare low byte
beq @L3
adc #$FF ; If the C flag is set then clear the N flag
ora #$01 ; else set the N flag
@L3: rts
@L4: bvc @L3
eor #$FF ; Fix the N flag if overflow
ora #$01 ; Clear the Z flag
rts
@L4: bvc @L3
eor #$FF ; Fix the N flag if overflow
ora #$01 ; Clear the Z flag
rts