2020-06-17 11:34:35 +10:00
|
|
|
CODE BYE BEGIN, JMPs, AGAIN, ;CODE
|
|
|
|
|
CODE EMIT
|
|
|
|
|
AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,
|
|
|
|
|
;CODE
|
|
|
|
|
: FOO 'X' EMIT ; : BAR FOO FOO BYE ;
|
|
|
|
|
L3 BSET 3 A, 'B' A, 'A' A, 'R' A,
|
2020-06-15 20:23:19 +10:00
|
|
|
PC 3 - ORG @ 1+ ! ( main )
|
2020-06-17 10:41:53 +10:00
|
|
|
SP PS_ADDR MOVxI,
|
|
|
|
|
BP RS_ADDR MOVxI,
|
2020-06-15 20:23:19 +10:00
|
|
|
DI 0x08 MOVxm, ( LATEST )
|
2020-06-15 20:52:47 +10:00
|
|
|
SI L3 @ MOVxI,
|
2020-06-15 20:23:19 +10:00
|
|
|
CALLn, L4 @ RPCn, ( find )
|
2020-06-17 11:34:35 +10:00
|
|
|
IFZ, JMPn, L1 @ RPCn, ( execute ) THEN,
|
2020-06-15 20:23:19 +10:00
|
|
|
AH 0x0e MOVri, ( print char ) AL '!' MOVri, 0x10 INT,
|
|
|
|
|
BEGIN, JMPs, AGAIN,
|
