1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 04:08:05 +11:00
collapseos/blk/815

15 lines
506 B
Plaintext
Raw Normal View History

2020-06-17 12:10:32 +10: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 )
2020-06-18 20:50:32 +10:00
AL [DI] MOVr[], DI INCx, ( PFA )
AL AL ORrr, IFZ, DI JMPr, THEN, ( native )
( continue to compiled )
2020-06-17 12:10:32 +10:00
2020-06-18 20:50:32 +10:00
PC 0x11 - ORG @ 0x0f + ! ( compiled -- DI -> PFA )
2020-06-17 12:10:32 +10:00
BP INCx, BP INCx, [BP] 0 DX MOV[]+x, ( pushRS )
DX DI MOVxx, DX INCx, DX INCx, ( --> IP )
DI [DI] MOVx[],
JMPs, L1 @ RPCs,