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

rc2014: aaaalmost there....

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-04 14:27:23 -04:00
parent 32b420b19c
commit d1f4dc0ca3
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
drv/acia.fs
View File

@ -56,6 +56,6 @@ ACIA_IO: IO port for the ACIA's data registers
( As long at CTL bit 1 is low, we are transmitting. wait ) ( As long at CTL bit 1 is low, we are transmitting. wait )
BEGIN ACIA_CTL PC@ 0x02 AND UNTIL BEGIN ACIA_CTL PC@ 0x02 AND UNTIL
( The way is clear, go! ) ( The way is clear, go! )
ACIA_IO SWAP PC! ACIA_IO PC!
; ;

2
recipes/rc2014/Makefile
View File

@ -10,6 +10,8 @@ PATHS = pre.fs \
$(FDIR)/parse.fs \ $(FDIR)/parse.fs \
$(BASEDIR)/drv/acia.fs \ $(BASEDIR)/drv/acia.fs \
$(FDIR)/print.fs \ $(FDIR)/print.fs \
$(FDIR)/readln.fs \
$(FDIR)/fmt.fs \
run.fs run.fs
SLATEST = $(BASEDIR)/tools/slatest SLATEST = $(BASEDIR)/tools/slatest
STRIPFC = $(BASEDIR)/tools/stripfc STRIPFC = $(BASEDIR)/tools/stripfc

10
recipes/rc2014/run.fs
View File

@ -1 +1,9 @@
ACIA$ LIT< hello (print) BYE : INIT
ACIA$
(c<$)
." Collapse OS" LF
( 0c == CINPTR )
' (c<) 0x0c RAM+ !
;
INIT