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

64
libsrc/runtime/lsubeq.s
View File

@@ -1,4 +1,4 @@
;
;
; Ullrich von Bassewitz, 07.04.2000
;
; CC65 runtime: -= operator
@@ -7,49 +7,49 @@
; in ptr1, the high byte is in Y, and the decrement is in eax.
;
.export lsubeq1, lsubeqa, lsubeq
.importzp sreg, ptr1
.export lsubeq1, lsubeqa, lsubeq
.importzp sreg, ptr1
lsubeq1:
lda #$01
lda #$01
lsubeqa:
ldx #$00
stx sreg
stx sreg+1
ldx #$00
stx sreg
stx sreg+1
lsubeq: sty ptr1+1 ; Store high byte of address
ldy #$00 ; Address low byte
sec
lsubeq: sty ptr1+1 ; Store high byte of address
ldy #$00 ; Address low byte
sec
eor #$FF
adc (ptr1),y ; Subtract byte 0
sta (ptr1),y
pha ; Save byte 0 of result for later
eor #$FF
adc (ptr1),y ; Subtract byte 0
sta (ptr1),y
pha ; Save byte 0 of result for later
iny ; Address byte 1
txa
eor #$FF
adc (ptr1),y ; Subtract byte 1
sta (ptr1),y
tax
iny ; Address byte 1
txa
eor #$FF
adc (ptr1),y ; Subtract byte 1
sta (ptr1),y
tax
iny ; Address byte 2
lda (ptr1),y
sbc sreg
sta (ptr1),y
sta sreg
iny ; Address byte 2
lda (ptr1),y
sbc sreg
sta (ptr1),y
sta sreg
iny ; Address byte 3
lda (ptr1),y
sbc sreg+1
sta (ptr1),y
sta sreg+1
iny ; Address byte 3
lda (ptr1),y
sbc sreg+1
sta (ptr1),y
sta sreg+1
pla ; Retrieve byte 0 of result
pla ; Retrieve byte 0 of result
rts ; Done
rts ; Done