izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 06:18:06 +11:00
Code Issues Releases Wiki Activity

recipes/rc2014: busting the 8K limit again!

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-25 08:15:17 -04:00
parent 5219887ad7
commit 4160c8ebbf
2 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
forth/parse.fs
View File

@ -54,7 +54,7 @@
DUP @ 25136 = NOT IF 0 EXIT THEN ( a 0 ) DUP @ 25136 = NOT IF 0 EXIT THEN ( a 0 )
( We have "0b" prefix ) ( We have "0b" prefix )
2+ 2+
0 ( a r ) 0 ( a r )
BEGIN BEGIN
SWAP C@+ ( r a+1 c ) SWAP C@+ ( r a+1 c )
DUP NOT IF 2DROP 1 EXIT THEN ( r 1 ) DUP NOT IF 2DROP 1 EXIT THEN ( r 1 )

9
recipes/rc2014/run.fs
View File

@ -1,7 +1,2 @@
: (c<) KEY DUP EMIT ; : x KEY DUP EMIT ;
: _ : _ ACIA$ (ok) ['] x 0x0c RAM+ ! ; _
ACIA$
." Collapse OS" CRLF
( 0c == CINPTR )
['] (c<) 0x0c RAM+ !
; _