mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 15:00:55 +11:00
6 lines
147 B
Plaintext
6 lines
147 B
Plaintext
CODE EMIT
|
|
AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,
|
|
;CODE
|
|
: FOO '0' 1 3 LSHIFT + EMIT ;
|
|
: BOOT 0x08 @ LIT< FOO _find DROP EXECUTE BYE ;
|