mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 11:08:05 +11:00
10 lines
299 B
Plaintext
10 lines
299 B
Plaintext
|
lblnext BSET PC 0x1d - ORG @ 0x1b + ! ( next )
|
||
|
( RSP check )
|
||
|
AX RS_ADDR MOVxI, BP AX CMPxx,
|
||
|
IFC, ( BP < RS_ADDR )
|
||
|
DI 0x06 MOVxm, JMPs, L1 FWRs ( execute )
|
||
|
THEN,
|
||
|
DI DX MOVxx, ( <-- IP ) DX INCx, DX INCx,
|
||
|
DI [DI] MOVx[], ( wordref )
|
||
|
( continue to execute ) L1 FSET
|