aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/2-r-from.asm
blob: 16ea605d41dd47c4a3252dac3ad92bb78884b80b (plain)
1
2
3
4
5
6
7
8
9
;C 2R>    -- d    R: d --   pop from return stack
        CODEHEADER(XT_2R_FROM,3,"2r>")
        SUB #4,PSP      ; 2
        MOV TOS,2(PSP)    ; 4
        MOV @RSP+,TOS
        MOV @RSP+,W
        MOV W,0(PSP)    ; 4

        NEXT