mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 17:18:06 +11:00
recipes/rc2014: busting the 8K limit again!
This commit is contained in:
parent
5219887ad7
commit
4160c8ebbf
@ -54,7 +54,7 @@
|
||||
DUP @ 25136 = NOT IF 0 EXIT THEN ( a 0 )
|
||||
( We have "0b" prefix )
|
||||
2+
|
||||
0 ( a r )
|
||||
0 ( a r )
|
||||
BEGIN
|
||||
SWAP C@+ ( r a+1 c )
|
||||
DUP NOT IF 2DROP 1 EXIT THEN ( r 1 )
|
||||
|
@ -1,7 +1,2 @@
|
||||
: (c<) KEY DUP EMIT ;
|
||||
: _
|
||||
ACIA$
|
||||
." Collapse OS" CRLF
|
||||
( 0c == CINPTR )
|
||||
['] (c<) 0x0c RAM+ !
|
||||
; _
|
||||
: x KEY DUP EMIT ;
|
||||
: _ ACIA$ (ok) ['] x 0x0c RAM+ ! ; _
|
||||
|
Loading…
Reference in New Issue
Block a user