2020-06-19 21:56:54 +10:00
|
|
|
CODE EMIT
|
|
|
|
|
AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT,
|
|
|
|
|
;CODE
|
2020-06-19 22:10:51 +10:00
|
|
|
: FOO '0' 1 3 LSHIFT + EMIT ;
|
2020-06-19 21:56:54 +10:00
|
|
|
L1 BSET 3 A, 'F' A, 'O' A, 'O' A,
|
|
|
|
|
: BOOT 0x08 @ [ L1 @ LITN ] _find DROP EXECUTE BYE ;
|
