|
- 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 / LDri, THEN,
- [THEN]
- LDA(DE), DE INCd,
- A ORr, IFZ, EXDEHL, JP(HL), THEN,
- A DECr, JRZ, L1 FWR ( compiled B303 )
- ( cell or does. push PFA ) DE PUSH,
- A DECr, JRZ, lblnext BWR ( cell )
- ( continue to does, B302 )
|