aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/docondbranch.asm
blob: 64b2e5e7c88dce7b57369a333ecb254d017fc12e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( f -- )
; System
; runtime of ?branch
;VE_DOCONDBRANCH:
;    .dw $ff09
;    .db "(?branch)"
;    .dw  VE_HEAD
;    .set VE_HEAD = VE_DOCONDBRANCH
XT_DOCONDBRANCH:
    .dw PFA_DOCONDBRANCH
PFA_DOCONDBRANCH:
    or tosh, tosl
    loadtos
    brbs 1, PFA_DOBRANCH ; 1 is z flag; if tos is zero (false), do the branch
    adiw XL, 1
    jmp_ DO_NEXT