aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/l_mark.asm
blob: 9d5c5ae8d9632c54d312f03a0848073fb2ceeceb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
; ( -- dest ) 
; Compiler
; place destination for backward branch
;VE_LMARK:
;    .dw $ff05
;    .db "<mark"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_LMARK
XT_LMARK:
    .dw DO_COLON
PFA_LMARK:
    .dw XT_DP
    .dw XT_EXIT