1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/common/setjmp.s
2015-09-11 14:18:22 -04:00

51 lines
873 B
ArmAsm

;
; 1998-06-06, Ullrich von Bassewitz
; 2015-09-11, Greg King
;
; int __fastcall__ setjmp (jmp_buf buf);
;
.export __setjmp
.import return0
.importzp sp, ptr1
__setjmp:
sta ptr1 ; Save buf
stx ptr1+1
ldy #0
; The parameter stack is now empty, put it into buf
lda sp
sta (ptr1),y
iny
lda sp+1
sta (ptr1),y
iny
; Put the return stack pointer next
tsx
inx
inx ; drop return address
txa
sta (ptr1),y
iny
; Last thing is the return address.
pla
tax
pla
sta (ptr1),y ; high byte first
iny
pha
txa
sta (ptr1),y
pha
; Return zero
jmp return0