collapseos/blk/301

lblexec BSET L1 FSET ( B299 ) L2 FSET ( B298 )
    ( DE -> wordref )
    ( We don't apply BIN( reliably on stable ABI stuff, we
      might need to adjust addr. Ugly, but well... )
    BIN( @ [IF]
        A XORr, D ORr, IFZ, D BIN( @ 256 / LDrn, THEN,
    [THEN]
    LDA(DE), DE INCss,
    A ORr, IFZ, EXDEHL, JP(HL), THEN,
    A DECr, JRZ, L1 FWR ( compiled B303 )
    ( cell or does. push PFA ) DE PUSHqq,
    A DECr, JRZ, lblnext BWR ( cell )
    ( continue to does, B302 )