mirror of
https://github.com/hsoft/collapseos.git
synced 2024-10-06 15:40:56 +11:00
7 lines
189 B
Plaintext
7 lines
189 B
Plaintext
|
CODE BYE BEGIN, JMPs, AGAIN, ;CODE
|
||
|
|
CODE EMIT
|
||
|
|
AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,
|
||
|
|
;CODE
|
||
|
|
: FOO 'A' 'B' 'C' 2 PICK 4 (roll) EMIT EMIT EMIT EMIT ;
|
||
|
|
: BOOT ['] FOO EXECUTE BYE ;
|