aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/q-branch.asm
blob: 5ec1563a3f6a92d7396a7b0f0b86b91a91d02693 (plain)
1
2
3
4
5
6
7
;Z ?branch   x --              branch if TOS zero
        CODEHEADER(XT_DOCONDBRANCH,7,"?branch")
        ADD #0,TOS      ; 1  test TOS value
        MOV @PSP+,TOS   ; 2  pop new TOS value (doesn't change flags)
        JZ  dobran    ; 2  if TOS was zero, take the branch
        ADD #2,IP       ; 1  else skip the branch destination
        NEXT            ; 4