mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 04:58:05 +11:00
ecca70c7f3
This would allow things like temporary giving control to the *CL line on the TRS-80. For example... A very far fetched example. Not at all the only *raison d'etre* of the layer...
14 lines
227 B
Plaintext
14 lines
227 B
Plaintext
: EMIT
|
|
( 0x53==EMITPTR 0x55==override )
|
|
85 RAM+ @ DUP NOT IF DROP 83 RAM+ @ THEN EXECUTE ;
|
|
|
|
: (print)
|
|
BEGIN
|
|
C@+ ( a+1 c )
|
|
( exit if null )
|
|
DUP NOT IF 2DROP EXIT THEN
|
|
EMIT ( a )
|
|
AGAIN
|
|
;
|
|
|