aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/g-resolve.asm
blob: 0566b37e2e4cdef64bc0269051515bd805cda538 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( dest -- ) 
; Compiler
; resolve backward jumps
;VE_GRESOLVE:
;    .dw $ff08
;    .db ">resolve"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_GRESOLVE
XT_GRESOLVE:
    .dw DO_COLON
PFA_GRESOLVE:
    .dw XT_QSTACK
    .dw XT_DP
    .dw XT_SWAP
    .dw XT_STOREI
    .dw XT_EXIT