2020-06-19 05:28:30 +10:00
|
|
|
L3 BSET 4 A, 'B' A, 'O' A, 'O' A, 'T' A,
|
2020-06-19 05:01:04 +10:00
|
|
|
PC 3 - ORG @ 1+ ! ( main )
|
2020-06-20 10:09:51 +10:00
|
|
|
SP PS_ADDR MOVxI, BP RS_ADDR MOVxI,
|
2020-06-19 05:01:04 +10:00
|
|
|
DI 0x08 MOVxm, ( LATEST )
|
2020-06-20 10:09:51 +10:00
|
|
|
( HERE begins at CURRENT )
|
|
|
|
BX RAMSTART MOVxI,
|
|
|
|
[BX] 0x04 ( HERE ) DI MOV[]+x,
|
|
|
|
[BX] 0x02 ( CURRENT ) DI MOV[]+x,
|
2020-06-19 05:01:04 +10:00
|
|
|
SI L3 @ MOVxI,
|
2020-06-19 05:28:30 +10:00
|
|
|
CALLn, lblfind @ RPCn, ( find )
|
|
|
|
IFZ, JMPn, lblexec @ RPCn, ( execute ) THEN,
|
2020-06-19 05:01:04 +10:00
|
|
|
AH 0x0e MOVri, ( print char ) AL '!' MOVri, 0x10 INT,
|
|
|
|
BEGIN, JMPs, AGAIN,
|