collapseos/blk/814

9 lines
217 B
Plaintext
Raw Normal View History

2020-06-14 15:27:26 -04:00
L1 BSET PC 3 - ORG @ 0x34 + ! ( execute -- BX -> wordref )
AH AH XORrr,
AL [BX] MOVr[],
BX INCx, ( PFA )
2020-06-14 14:51:32 -04:00
AX JMPr,
2020-06-14 15:27:26 -04:00
PC 3 - ORG @ 1+ ! ( main )
BX 0x08 MOVxm, ( LATEST ) JMPs, L1 @ RPCs, ( execute )