mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 03:40:54 +11:00
9 lines
267 B
Plaintext
9 lines
267 B
Plaintext
|
L3 BSET 3 A, 'F' A, 'O' A, 'O' A,
|
||
|
PC 3 - ORG @ 1+ ! ( main )
|
||
|
DI 0x08 MOVxm, ( LATEST )
|
||
|
SI L3 @ MOVxi,
|
||
|
CALLn, L4 @ RPCn, ( find )
|
||
|
IFZ, JMPs, L1 @ RPCs, ( execute ) THEN,
|
||
|
AH 0x0e MOVri, ( print char ) AL '!' MOVri, 0x10 INT,
|
||
|
BEGIN, JMPs, AGAIN,
|