wip

drv/acia.fs

@@ -0,0 +1,99 @@
+( ACIA
+
+Manage I/O from an asynchronous communication interface adapter
+(ACIA). provides "EMIT" to put c char on the ACIA as well as
+an input buffer. You have to call "~ACIA" on interrupt for
+this module to work well.
+
+CONFIGURATION
+
+ACIA_CTL: IO port for the ACIA's control registers
+ACIA_IO: IO port for the ACIA's data registers
+)
+
+0x20 CONSTANT ACIABUFSZ
+
+( Points to ACIA buf )
+(sysv) ACIA(
+( Points to ACIA buf end )
+(sysv) ACIA)
+( Read buf pointer. Pre-inc )
+(sysv) ACIAR>
+( Write buf pointer. Post-inc )
+(sysv) ACIAW>
+( This means that if W> == R>, buffer is full.
+  If R>+1 == W>, buffer is empty. )
+
+(entry) ~ACIA
+    AF PUSHqq,
+    HL PUSHqq,
+    DE PUSHqq,
+
+	( Read our character from ACIA into our BUFIDX )
+    ACIA_CTL INAn,
+    0x01 ANDn,   ( is ACIA rcv buf full? )
+    JRZ, L2 FWR ( end, no, wrong interrupt cause. )
+
+    ACIAW> @ LDHL(nn),
+    ( is it == to ACIAR>? )
+    DE ACIAR> @ LDdd(nn),
+    ( carry cleared from ANDn above )
+    DE SBCHLss,
+    JRZ, L3 FWR ( end, buffer full )
+
+    ( buffer not full, let's write )
+    ACIA_IO INAn,
+    (HL) A LDrr,
+
+    ( advance W> )
+    HL INCss,
+    DE ACIAR) @ LDdd(nn),
+    DE SUBHLss,
+    JRNZ, L4 FWR ( skip )
+    ( end of buffer reached )
+    ACIA( @ LDHL(nn),
+L4 FSET ( skip )
+    ACIAW> @ LD(nn)HL,
+L3 FSET L2 FSET ( end )
+
+    DE POPqq,
+    HL POPqq,
+    AF POPqq,
+    EI,
+    RETI,
+
+: ACIA$
+    H@ DUP DUP ACIA( ! ACIAR> !
+    1 + ACIAW> ! ( write index starts one position later )
+    ACIABUFSZ ALLOT
+    H@ ACIA) !
+( setup ACIA
+  CR7 (1) - Receive Interrupt enabled
+  CR6:5 (00) - RTS low, transmit interrupt disabled.
+  CR4:2 (101) - 8 bits + 1 stop bit
+  CR1:0 (10) - Counter divide: 64
+)
+    0b10010110 ACIA_CTL PC!
+
+( setup interrupt )
+    ( 51 == INTJUMP )
+    0xc3 0x51 RAM+ C! ( JP upcode )
+    ['] ~ACIA 0x52 RAM+ !
+    (im1)
+;
+
+: KEY
+    ( As long as R> == W>-1, it means that buffer is empty )
+    BEGIN ACIAR> @ 1 + ACIAW> @ = NOT UNTIL
+
+    ACIAR> @ C@
+    1 ACIAR> +!
+;
+
+: EMIT
+    ( 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!
+;
+

forth/boot.fs

@@ -30,12 +30,11 @@ NOP, NOP,         ( 26, unused )
 0 JPnn,           ( 28, flagsToBC )
 0 JPnn,           ( 2b, doesWord )
 NOP, NOP,         ( 2e, unused )
-NOP, NOP,         ( 30, unused )
-NOP, NOP,         ( 32, unused )
-NOP, NOP,         ( 34, unused )
-NOP, NOP,         ( 36, unused )
-NOP, NOP,         ( 38, unused )
-NOP, NOP,         ( 3a, unused )
+RAMSTART 0x51 + JPnn, ( RST 30 )
+NOP, NOP, NOP,    ( unused )
+NOP, NOP,         ( unused )
+RAMSTART 0x51 + JPnn, ( RST 38 )
+NOP,              ( unused )
 
 ( BOOT DICT
   There are only 5 words in the boot dict, but these words'

forth/icore.fs

@@ -212,7 +212,9 @@
     ( 0c == CINPTR )
     0x0c _c RAM+ _c !
     LIT< (c<$) _c (find) IF EXECUTE ELSE _c DROP THEN
-    _c INTERPRET
+    LIT< INIT _c (find)
+    IF EXECUTE
+    ELSE _c DROP _c INTERPRET THEN
 ;
 
 ( LITN has to be defined after the last immediate usage of

forth/notes.txt

@@ -87,7 +87,8 @@ RAMSTART   INITIAL_SP
 +0c        CINPTR
 +0e        WORDBUF
 +2e        SYSVNXT
-+4e        RAMEND
++4e        INTJUMP
++51        RAMEND
 
 INITIAL_SP holds the initial Stack Pointer value so that we know where to reset
 it on ABORT
@@ -107,3 +108,8 @@ CINPTR holds routine address called on C<
 WORDBUF is the buffer used by WORD
 
 SYSVNXT is the buffer+tracker used by (sysv)
+
+INTJUMP All RST offsets (well, not *all* at this moment, I still have to free
+those slots...) in boot binaries are made to jump to this address. If you use
+one of those slots for an interrupt, write a jump to the appropriate offset in
+that RAM location.

forth/z80a.fs

@@ -114,6 +114,8 @@
 
 ( -- )
 : OP1 CREATE C, DOES> C@ A, ;
+0xf3 OP1 DI,
+0xfb OP1 EI,
 0xeb OP1 EXDEHL,
 0xd9 OP1 EXX,
 0x76 OP1 HALT,
@@ -217,7 +219,11 @@
 
 : OP2 CREATE , DOES> @ 256 /MOD A, A, ;
 0xedb1 OP2 CPIR,
+0xed46 OP2 IM0,
+0xed56 OP2 IM1,
+0xed5e OP2 IM2,
 0xed44 OP2 NEG,
+0xed4d OP2 RETI,
 
 ( n -- )
 : OP2n
@@ -354,6 +360,10 @@
 : ;CODE JPNEXT, ;
 
 
+( Macros )
+( clear carry + SBC )
+: SUBHLss, A ORr, SBCHLss, ;
+
 ( Routines )
 ( 29 == chkPS )
 : chkPS, 29 CALLnn, ;

forth/z80c.fs

@@ -406,3 +406,8 @@ L1 BSET ( loop )
     DE A LD(dd)r
     HERE DE LD(nn)dd,
 ;CODE
+
+CODE (im1)
+    IM1,
+    EI,
+;CODE

recipes/rc2014/Makefile

@@ -1,14 +1,28 @@
 TARGET = os.bin
 BASEDIR = ../..
-ZASM = $(BASEDIR)/emul/zasm/zasm
-KERNEL = $(BASEDIR)/kernel
-APPS = $(BASEDIR)/apps
+FDIR = $(BASEDIR)/emul/forth
+STAGE1 = $(FDIR)/stage1
+FORTH0 = $(FDIR)/forth0.bin
 EMUL = $(BASEDIR)/emul/hw/rc2014/classic
+SRCS = core.fs str.fs parse.fs readln.fs fmt.fs
+PATHS = conf.fs \
+	${SRCS:%=$(BASEDIR)/forth/%} \
+	$(BASEDIR)/drv/acia.fs \
+	run.fs \
+	$(FDIR)/stop.fs
+SLATEST = $(BASEDIR)/tools/slatest
 
 .PHONY: all
 all: $(TARGET) 
-$(TARGET): glue.asm
-	$(ZASM) $(KERNEL) $(APPS) < glue.asm > $@
+$(TARGET): dict.bin $(FORTH0) $(SLATEST)
+	cat $(FORTH0) dict.bin > $@
+	$(SLATEST) $@
+
+dict.bin: conf.fs
+	cat $(PATHS) | $(STAGE1) > $@
+
+$(SLATEST):
+	$(MAKE) -C $(BASEDIR)/tools
 
 $(EMUL):
 	$(MAKE) -C ${@:%/classic=%}

recipes/rc2014/conf.fs

@@ -0,0 +1,5 @@
+0x8000 CONSTANT RAMSTART
+0xf000 CONSTANT RS_ADDR
+0x80   CONSTANT ACIA_CTL
+0x81   CONSTANT ACIA_IO
+

recipes/rc2014/run.fs

@@ -0,0 +1 @@
+: INIT 5 5 PC! BYE ACIA$ INTERPRET ;