aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/sp0.asm
blob: 324c1cf67ccf0d461d91dab917c0e4718ef0f3fd (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
; ( -- addr) 
; Stack
; start address of the data stack
VE_SP0:
    .dw $ff03
    .db "sp0",0
    .dw VE_HEAD
    .set VE_HEAD = VE_SP0
XT_SP0:
    .dw PFA_DOVALUE1
PFA_SP0:
    .dw USER_SP0
    .dw XT_UDEFERFETCH
    .dw XT_UDEFERSTORE

; ( -- addr) 
; Stack
; address of user variable to store top-of-stack for inactive tasks
VE_SP:
    .dw $ff02
    .db "sp"
    .dw VE_HEAD
    .set VE_HEAD = VE_SP
XT_SP:
    .dw PFA_DOUSER
PFA_SP:
    .dw USER_SP