mirror of
https://github.com/cc65/cc65.git
synced 2024-11-19 06:31:31 +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
49 lines
582 B
ArmAsm
49 lines
582 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 05.08.1998
|
|
;
|
|
; CC65 runtime: Increment ax by constant or value in Y
|
|
;
|
|
|
|
.export incaxy
|
|
.export incax8, incax7, incax6, incax5
|
|
.export incax4, incax3, incax2, incax1
|
|
.importzp tmp1
|
|
|
|
|
|
incax8: ldy #8
|
|
bne incaxy
|
|
|
|
incax7: ldy #7
|
|
bne incaxy
|
|
|
|
incax6: ldy #6
|
|
bne incaxy
|
|
|
|
incax5: ldy #5
|
|
bne incaxy
|
|
|
|
incax4: ldy #4
|
|
bne incaxy
|
|
|
|
incax3: ldy #3
|
|
; bne incaxy
|
|
incaxy: sty tmp1
|
|
clc
|
|
adc tmp1
|
|
bcc *+3
|
|
inx
|
|
rts
|
|
|
|
incax2: clc
|
|
adc #2
|
|
bcc *+3
|
|
inx
|
|
rts
|
|
|
|
incax1: clc
|
|
adc #1
|
|
bcc *+3
|
|
inx
|
|
rts
|
|
|