mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 05:18:06 +11:00
rc2014: aaaalmost there....
This commit is contained in:
parent
32b420b19c
commit
d1f4dc0ca3
@ -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!
|
||||
;
|
||||
|
||||
|
@ -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
|
||||
|
@ -1 +1,9 @@
|
||||
ACIA$ LIT< hello (print) BYE
|
||||
: INIT
|
||||
ACIA$
|
||||
(c<$)
|
||||
." Collapse OS" LF
|
||||
( 0c == CINPTR )
|
||||
' (c<) 0x0c RAM+ !
|
||||
;
|
||||
INIT
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user