aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/rp0.asm
blob: 1909f1c08090374c74b691a60104eb5af99b1cfa (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 return stack
VE_RP0:
    .dw $ff03
    .db "rp0",0
    .dw VE_HEAD
    .set VE_HEAD = VE_RP0
XT_RP0:
    .dw DO_COLON
PFA_RP0:
    .dw XT_DORP0
    .dw XT_FETCH
    .dw XT_EXIT

; ( -- addr) 
; Stack
; user variable of the address of the initial return stack
;VE_DORP0:
;    .dw $ff05
;    .db "(rp0)"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_DORP0
XT_DORP0:
    .dw PFA_DOUSER
PFA_DORP0:
    .dw USER_RP