|
- lblexec BSET L1 FSET ( B284 ) L2 FSET ( B286 )
- ( DE -> wordref )
- LDA(DE), DE INCd, EXDEHL, ( HL points to PFA )
- A ORr, IFZ, JP(HL), THEN,
- A DECr, ( compiled? ) IFNZ, ( no )
- 3 CPi, IFZ, ( alias ) LDDE(HL), JR, lblexec BWR THEN,
- IFNC, ( switch )
- LDDE(HL), EXDEHL, LDDE(HL), JR, lblexec BWR THEN,
- ( cell or does. push PFA ) HL PUSH,
- A DECr, JRZ, lblnext BWR ( cell )
- HL INCd, HL INCd, LDDE(HL), EXDEHL, ( does )
- THEN, ( continue to compiledWord )
|