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

rc2014: bingo!

Browse Source 
Interpreter is functional in the emulator!
This commit is contained in:
Virgil Dupras 2020-04-04 17:43:00 -04:00
parent 7b42bbde27
commit edb2771488
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
forth/readln.fs
View File

@ -76,5 +76,5 @@
( not EOL? good, inc and return ) ( not EOL? good, inc and return )
DUP IF 1 IN> +! EXIT THEN ( c ) DUP IF 1 IN> +! EXIT THEN ( c )
( EOL ? readline. we still return typed char though ) ( EOL ? readline. we still return typed char though )
(rdln) (c<) ( c ) (rdln) ( c )
; ;

2
recipes/rc2014/pre.fs
View File

@ -1,3 +1 @@
96 RAM+ HERE ! 96 RAM+ HERE !
HERE @ 256 /MOD 8 PC! 8 PC!
CURRENT @ 256 /MOD 8 PC! 8 PC!