1
0
mirror of https://github.com/cc65/cc65.git synced 2024-10-31 04:04:49 +00:00
cc65/libsrc/runtime/subysp.s

25 lines
250 B
ArmAsm
Raw Normal View History

;
; Piotr Fusik, 24.10.2003
; originally by Ullrich von Bassewitz
;
; CC65 runtime: Decrement the stackpointer by value in y
;
.export subysp
.importzp sp
.proc subysp
tya
eor #$ff
sec
adc sp
sta sp
bcs @L1
dec sp+1
@L1: rts
.endproc