aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/rp-fetch.asm
blob: 74d723d2797e1a01cf732abdaee1b7c28473349a (plain)
1
2
3
4
5
6
;Z RP@  -- a-addr       get return stack pointer
        CODEHEADER(XT_RP_FETCH,3,"rp@")
        SUB #2,PSP
        MOV TOS,0(PSP)
        MOV RSP,TOS
        NEXT