aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/do-constant.asm
blob: d700349f6bbc233e8ddec79109b6ec335d8318dc (plain)
1
2
3
4
5
6
7
8
9
10
; DOCREATE's action is for a table in RAM.
; DOROM is the code action for a table in ROM;
; it returns the address of the parameter field.

DOROM:  ; -- a-addr     ; Table in ROM: get PFA into TOS
PFA_DOCONSTANT:
        SUB #2,PSP 
        MOV TOS,0(PSP)
        MOV W,TOS
        NEXT