1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 06:38:06 +11:00
collapseos/blk/824

7 lines
189 B
Plaintext
Raw Normal View History

2020-06-19 11:21:46 +10:00
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 ;