mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 20:18:04 +11:00
038c25957b
Slightly larger binary, but clearer code and slightly faster.
8 lines
171 B
Plaintext
8 lines
171 B
Plaintext
: C<? 0x06 RAM+ @ ;
|
|
SYSVARS 0x0c + :** C<*
|
|
: C<
|
|
0x08 RAM+ ( C<* override ) @
|
|
?DUP NOT IF C<* ELSE EXECUTE THEN ;
|
|
: , H@ ! H@ 2+ HERE ! ;
|
|
: C, H@ C! H@ 1+ HERE ! ;
|