adc,   cs,   eq,   hs,   ie,   lo,   lt,   mi,   ts,   vs,   not,

cs, ( -- cc )

carry set

eq, ( -- cc )

zero

\ Leave true flag if zero flag is true
: testif0
  [ sez,    ] \ Set zero flag
  [ eq, if, ] \ if zero
      true
  [ else, ]   \ else not zero
      false
  [ then, ]
;

hs, ( -- cc )

half carry set

ie, ( -- cc )

interrupt enabled

lo, ( -- cc )

lower

lt, ( -- cc )

less than

mi, ( -- cc )

negative

ts, ( -- cc )

T flag set

vs, ( -- cc )

no overflow

not, ( cc -- not-cc )

invert condition

\ Leave true flag if zero flag is false
: testif1 
  [ clz,    ]      \ Clear zero flag
  [ eq, not, if, ] \ if not zero
      true
  [ else, ]        \ else zero 
      false
  [ then, ]
;