2020-06-16 19:05:36 -04:00
|
|
|
PC 0x1d - ORG @ 0x1b + ! ( next )
|
|
|
|
|
DI DX MOVxx, ( <-- IP ) DX INCx, DX INCx,
|
|
|
|
|
DI [DI] MOVx[], ( wordref )
|
|
|
|
|
( continue to execute )
|
|
|
|
|
L1 BSET PC 0x36 - ORG @ 0x34 + ! ( execute -- DI -> wordref )
|
|
|
|
|
AH AH XORrr, AL [DI] MOVr[],
|
2020-06-15 06:23:19 -04:00
|
|
|
DI INCx, ( PFA )
|
2020-06-14 14:51:32 -04:00
|
|
|
AX JMPr,
|
2020-06-16 19:05:36 -04:00
|
|
|
|
|
|
|
|
PC 0x11 - ORG @ 0x0f + ! ( compiledWord -- DI -> PFA )
|
2020-06-16 20:41:53 -04:00
|
|
|
BP INCx, BP INCx, [BP] 0 DX MOV[]+x, ( pushRS )
|
2020-06-16 19:05:36 -04:00
|
|
|
DX DI MOVxx, DX INCx, DX INCx, ( --> IP )
|
|
|
|
|
DI [DI] MOVx[],
|
|
|
|
|
JMPs, L1 @ RPCs,
|
