aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/execute.asm
blob: a8139c0b2c73fc365e33a7eb9a57c6734bfd3e9a (plain)
1
2
3
4
5
6
7
;C EXECUTE   i*x xt -- j*x   execute Forth word
;C                           at 'xt'
        CODEHEADER(XT_EXECUTE,7,"execute")
        MOV TOS,W       ; 1 put word address into W
        MOV @PSP+,TOS   ; 2 fetch new TOS
        MOV @W+,PC      ; 2 fetch code address into PC, W=PFA