aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/dobranch.asm
blob: 7ff018fa24787f9151bbea25443de0af410fe36b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( -- ) 
; System
; runtime of branch
;VE_DOBRANCH:
;    .dw $ff08
;    .db "(branch)"
;    .dw VE_HEAD
;    .set VE_HEAD = VE_DOBRANCH
XT_DOBRANCH:
    .dw PFA_DOBRANCH
PFA_DOBRANCH:
    movw zl, XL
    readflashcell XL,XH
    jmp_ DO_NEXT