aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/up.asm
blob: a3674d1c313840cb162e1d4ce33430f19b7ebe82 (plain)
1
2
3
4
5
6
7
8
9
10
11

CODEHEADER(XT_UP_FETCH,3,"up@")
	SUB #2,PSP
	MOV TOS, 0(PSP)
        MOV UP,TOS
	NEXT

CODEHEADER(XT_UP_STORE,3,"up!")
        MOV TOS,UP
        MOV @PSP+,TOS
	NEXT