mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 01:30:55 +11:00
de7cb4a80f
This would be useful, for example, to allow the assembler to write straight to an AT28 EEPROM without going to RAM. This would be a life saver in machines with tight RAM such as the SMS.
12 lines
246 B
Plaintext
12 lines
246 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!+ HERE ! ;
|
|
: ,"
|
|
BEGIN
|
|
C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
|
|
AGAIN ;
|