2000-10-31 18:42:47 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 05.08.1998
|
|
|
|
|
;
|
|
|
|
|
; CC65 runtime: Increment ax by 1
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export incax1
|
|
|
|
|
|
|
|
|
|
.macpack generic
|
2003-10-10 17:52:12 +00:00
|
|
|
.macpack cpu
|
2000-10-31 18:42:47 +00:00
|
|
|
|
|
|
|
|
.proc incax1
|
|
|
|
|
|
2003-10-10 17:52:12 +00:00
|
|
|
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
2000-11-27 22:59:03 +00:00
|
|
|
ina ; 65C02 version
|
|
|
|
|
bne @L9
|
|
|
|
|
.else
|
|
|
|
|
add #1
|
|
|
|
|
bcc @L9
|
|
|
|
|
.endif
|
2000-10-31 18:42:47 +00:00
|
|
|
inx
|
|
|
|
|
@L9: rts
|
|
|
|
|
|
|
|
|
|
.endproc
|
