mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 04:28:05 +11:00
9 lines
217 B
Plaintext
9 lines
217 B
Plaintext
L1 BSET PC 3 - ORG @ 0x34 + ! ( execute -- BX -> wordref )
|
|
AH AH XORrr,
|
|
AL [BX] MOVr[],
|
|
BX INCx, ( PFA )
|
|
AX JMPr,
|
|
|
|
PC 3 - ORG @ 1+ ! ( main )
|
|
BX 0x08 MOVxm, ( LATEST ) JMPs, L1 @ RPCs, ( execute )
|