mirror of
https://github.com/cc65/cc65.git
synced 2024-12-24 11:31:31 +00:00
dd0ddc94e3
git-svn-id: svn://svn.cc65.org/cc65/trunk@393 b7a2c559-68d2-44c3-8de9-860c34a00d81
22 lines
401 B
ArmAsm
22 lines
401 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 25.10.2000
|
|
;
|
|
; CC65 runtime: Increment the stackpointer by value in y
|
|
;
|
|
|
|
.export addysp1, addysp
|
|
.importzp sp
|
|
|
|
addysp1:
|
|
iny
|
|
addysp: pha ; Save A
|
|
clc
|
|
tya ; Get the value
|
|
adc sp ; Add low byte
|
|
sta sp ; Put it back
|
|
bcc @L1 ; If no carry, we're done
|
|
inc sp+1 ; Inc high byte
|
|
@L1: pla ; Restore A
|
|
rts
|
|
|