rc2014: aaaalmost there....

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

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 )
BEGIN ACIA_CTL PC@ 0x02 AND UNTIL
( The way is clear, go! )
ACIA_IO SWAP PC!
ACIA_IO PC!
;

View File

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

View File

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