mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 21:28:05 +11:00
723d3c4249
(well, not PC@ and PC!, but I'm not even sure what would be the role of these in a PC/AT. they're only used in drivers on the z80 front, so they will not be immediately needed. todo... ) Now comes the fitting part.
7 lines
186 B
Plaintext
7 lines
186 B
Plaintext
CODE EMIT
|
|
AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,
|
|
;CODE
|
|
: FOO '0' 1 3 LSHIFT + EMIT ;
|
|
L1 BSET 3 A, 'F' A, 'O' A, 'O' A,
|
|
: BOOT 0x08 @ [ L1 @ LITN ] _find DROP EXECUTE BYE ;
|