aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/lit.asm
blob: a186a4f403915dfec4cee0c8df7a4c19704b576f (plain)
1
2
3
4
5
6
7
8
;Z lit      -- x    fetch inline literal to stack
; This is the primtive compiled by LITERAL.
        HEADLESS(XT_DOLITERAL,PFA_DOLITERAL)
PFA_DOLITERAL:
        SUB #2,PSP      ; 1  push old TOS..
        MOV TOS,0(PSP)  ; 4  ..onto stack
        MOV @IP+,TOS    ; 2  fetch new TOS value
        NEXT            ; 4