aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/sp-fetch.asm
blob: fbf573a746b7e1b6b76d79ec9aa8af30598e2e68 (plain)
1
2
3
4
5
6
;Z SP@  -- a-addr       get data stack pointer
        CODEHEADER(XT_SP_FETCH,3,"sp@")
        SUB #2,PSP
        MOV TOS,0(PSP)
        MOV PSP,TOS
        NEXT