aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/g-mark.asm
blob: 7f7fa3691fc99baee054ef425357ceeea938d1ba (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( -- dest ) 
; Compiler
; places current dictionary position for backward resolves
;VE_GMARK:
;    .dw $ff05
;    .db ">mark"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_GMARK
XT_GMARK:
    .dw DO_COLON
PFA_GMARK:
    .dw XT_DP
    .dw XT_COMPILE
    .dw -1           ; ffff does not erase flash
    .dw XT_EXIT