2020-06-19 07:56:54 -04:00
|
|
|
lblnext BSET PC 0x1d - ORG @ 0x1b + ! ( next )
|
2020-06-18 15:01:04 -04:00
|
|
|
DI DX MOVxx, ( <-- IP ) DX INCx, DX INCx,
|
|
|
|
|
DI [DI] MOVx[], ( wordref )
|
|
|
|
|
( continue to execute )
|
2020-06-18 15:28:30 -04:00
|
|
|
lblexec BSET PC 0x36 - ORG @ 0x34 + ! ( DI -> wordref )
|
2020-06-18 15:01:04 -04:00
|
|
|
AL [DI] MOVr[], DI INCx, ( PFA )
|
|
|
|
|
AL AL ORrr, IFZ, DI JMPr, THEN, ( native )
|
2020-06-20 13:50:01 -04:00
|
|
|
AL DECr, IFNZ, ( cell or does )
|
2020-06-21 10:40:09 -04:00
|
|
|
DI PUSHx, ( push PFA )
|
|
|
|
|
AL DECr, IFZ, ( cell ) JMPs, lblnext @ RPCs, THEN,
|
|
|
|
|
( does, see B302 )
|
|
|
|
|
DI INCx, DI INCx, DI [DI] MOVx[],
|
|
|
|
|
THEN, ( continue to compiled cont. )
|
