izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 15:18:06 +11:00
Code Issues Releases Wiki Activity
3be30e24bb
collapseos/blk/814

9 lines
217 B
Plaintext
Raw Normal View History

pcat: implement execute and nativeWord
2020-06-15 05:27:26 +10:00
L1 BSET PC 3 - ORG @ 0x34 + ! ( execute -- BX -> wordref )
AH AH XORrr,
AL [BX] MOVr[],
BX INCx, ( PFA )
pcat: read LATEST and jump to it
2020-06-15 04:51:32 +10:00
AX JMPr,
pcat: implement execute and nativeWord
2020-06-15 05:27:26 +10:00
PC 3 - ORG @ 1+ ! ( main )
BX 0x08 MOVxm, ( LATEST ) JMPs, L1 @ RPCs, ( execute )
Reference in New Issue Copy Permalink