aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/r-fetch.asm
blob: 25de529172096477c50f46d1a1071725379b4318 (plain)
1
2
3
4
5
6
;C R@    -- x     R: x -- x   fetch from rtn stk
        CODEHEADER(XT_R_FETCH,2,"r@")
        SUB #2,PSP
        MOV TOS,0(PSP)
        MOV @RSP,TOS
        NEXT