1
0
mirror of https://github.com/cc65/cc65.git synced 2024-10-29 20:27:50 +00:00
cc65/libsrc/runtime/laddeq.s

54 lines
861 B
ArmAsm
Raw Normal View History

;
; Ullrich von Bassewitz, 07.04.2000
;
; CC65 runtime: += operator
;
; On entry, the low byte of the address of the variable to increment is
; in ptr1, the high byte is in Y, and the increment is in eax.
;
.export laddeq1, laddeqa, laddeq
.importzp sreg, ptr1, tmp1
laddeq1:
lda #$01
laddeqa:
ldx #$00
stx sreg
stx sreg+1
laddeq: sty ptr1+1 ; Store high byte of address
ldy #$00 ; Address low byte
clc
adc (ptr1),y
sta (ptr1),y
pha ; Save byte 0 of result for later
iny ; Address byte 1
txa
adc (ptr1),y ; Load byte 1
sta (ptr1),y
tax
iny ; Address byte 2
lda sreg
adc (ptr1),y
sta (ptr1),y
sta sreg
iny ; Address byte 3
lda sreg+1
adc (ptr1),y
sta (ptr1),y
sta sreg+1
pla ; Retrieve byte 0 of result
rts ; Done