diff --git a/forth/parse.fs b/forth/parse.fs index 2ae2444..9e9d631 100644 --- a/forth/parse.fs +++ b/forth/parse.fs @@ -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 ) diff --git a/recipes/rc2014/run.fs b/recipes/rc2014/run.fs index 73ab6a9..66dfe6a 100644 --- a/recipes/rc2014/run.fs +++ b/recipes/rc2014/run.fs @@ -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+ ! ; _