aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/user.asm
blob: e436355758b589078e2ea08b657bd149b6700efe (plain)
1
2
3
4
5
6
7
8
9
;Z USER     n --        define user variable with offset 'n'
        HEADER(XT_USER,4,"user",DOCOLON)
        DW XT_DOCREATE,XT_COMPILE, DOUSER, XT_COMMA, XT_REVEAL,XT_EXIT
DOUSER: ; -- a-addr     ; add constant to User Pointer, result in TOS
        SUB #2,PSP
        MOV TOS,0(PSP)
        MOV @W,TOS
        ADD UP,TOS
        NEXT