aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/up.asm
blob: 0edfc010c16cbe04c115ec703819fb37d5d7e81a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
; ( -- addr ) 
; System Variable
; get user area pointer
VE_UP_FETCH:
    .dw $ff03
    .db "up@",0
    .dw VE_HEAD
    .set VE_HEAD = VE_UP_FETCH
XT_UP_FETCH:
    .dw PFA_UP_FETCH
PFA_UP_FETCH:
    savetos
    movw tosl, upl
    jmp_ DO_NEXT

; ( addr -- ) 
; System Variable
; set user area pointer
VE_UP_STORE:
    .dw $ff03
    .db "up!",0
    .dw VE_HEAD
    .set VE_HEAD = VE_UP_STORE
XT_UP_STORE:
    .dw PFA_UP_STORE
PFA_UP_STORE:
    movw upl, tosl
    loadtos
    jmp_ DO_NEXT