mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 16:48:06 +11:00
d09de0a0d3
In the beginning of Collapse OS' Forth version, the readline sub- system was optional. This is why we had this separate RDLN$ routine and that the input buffer was allocated at boot time. It's been a while since the RDLN system has been made mandatory, but we still paid the complexity tax of this separation. Not anymore.
105 lines
3.7 KiB
Forth
105 lines
3.7 KiB
Forth
( ----- 600 )
|
|
601 MC6850 driver 606 Zilog SIO driver
|
|
615 SPI relay 619 Xcomp unit
|
|
( ----- 601 )
|
|
( MC6850 Driver. Load range B601-B603. Requires:
|
|
6850_CTL for control register
|
|
6850_IO for data register.
|
|
CTL numbers used: 0x16 = no interrupt, 8bit words, 1 stop bit
|
|
64x divide. 0x56 = RTS high )
|
|
: _rts 0x16 ( RTS low ) [ 6850_CTL LITN ] PC! ;
|
|
: _rts^ 0x56 ( RTS high ) [ 6850_CTL LITN ] PC! ;
|
|
: 6850<? ( -- c? f )
|
|
[ 6850_CTL LITN ] PC@ 1 AND ( is rcv buff full ? )
|
|
NOT IF ( RTS low, then wait 1ms and try again )
|
|
_rts 10 TICKS ( 1ms ) _rts^
|
|
[ 6850_CTL LITN ] PC@ 1 AND ( is rcv buff full ? )
|
|
NOT IF 0 EXIT THEN
|
|
THEN [ 6850_IO LITN ] PC@ ( c ) 1 ( f ) ;
|
|
( ----- 602 )
|
|
CODE 6850>
|
|
HL POP, chkPS,
|
|
BEGIN,
|
|
6850_CTL INAi, 0x02 ANDi, ( are we transmitting? )
|
|
JRZ, ( yes, loop ) AGAIN,
|
|
A L LDrr, 6850_IO OUTiA,
|
|
;CODE
|
|
( ----- 603 )
|
|
: (key?) 6850<? ;
|
|
: (emit) 6850> ;
|
|
: 6850$ 0x56 ( RTS high ) [ 6850_CTL LITN ] PC! ;
|
|
( ----- 605 )
|
|
( Zilog SIO driver. Load range B605-607. Requires:
|
|
SIOA_CTL for ch A control register
|
|
SIOA_DATA for ch A data register
|
|
SIOB_CTL for ch B control register
|
|
SIOB_DATA for ch B data register )
|
|
: _<? ( io ctl -- c? f )
|
|
DUP ( io ctl ctl ) PC@ 1 AND ( is rcv buff full ? )
|
|
NOT IF ( io ctl )
|
|
0x05 ( PTR5 ) OVER PC! 0b01101000 OVER PC! ( RTS low )
|
|
10 TICKS ( 1ms )
|
|
0x05 ( PTR5 ) OVER PC! 0b01101010 OVER PC! ( RTS high )
|
|
PC@ 1 AND ( is rcv buff full ? )
|
|
NOT IF DROP 0 ( f ) EXIT THEN
|
|
ELSE DROP THEN ( io ) PC@ ( c ) 1 ( f ) ;
|
|
: SIOA<? [ SIOA_DATA LITN SIOA_CTL LITN ] _<? ;
|
|
( ----- 606 )
|
|
CODE SIOA>
|
|
HL POP, chkPS,
|
|
BEGIN,
|
|
SIOA_CTL INAi, 0x04 ANDi, ( are we transmitting? )
|
|
JRZ, ( yes, loop ) AGAIN,
|
|
A L LDrr, SIOA_DATA OUTiA,
|
|
;CODE
|
|
CREATE _ ( init data ) 0x18 C, ( CMD3 )
|
|
0x24 C, ( CMD2/PTR4 ) 0b11000100 C, ( WR4/64x/1stop/nopar )
|
|
0x03 C, ( PTR3 ) 0b11000001 C, ( WR3/RXen/8char )
|
|
0x05 C, ( PTR5 ) 0b01101010 C, ( WR5/TXen/8char/RTS )
|
|
0x21 C, ( CMD2/PTR1 ) 0 C, ( WR1/Rx no INT )
|
|
: SIOA$ 9 0 DO _ I + C@ [ SIOA_CTL LITN ] PC! LOOP ;
|
|
( ----- 607 )
|
|
: SIOB<? [ SIOB_DATA LITN SIOB_CTL LITN ] _<? ;
|
|
CODE SIOB>
|
|
HL POP, chkPS,
|
|
BEGIN,
|
|
SIOB_CTL INAi, 0x04 ANDi, ( are we transmitting? )
|
|
JRZ, ( yes, loop ) AGAIN,
|
|
A L LDrr, SIOB_DATA OUTiA,
|
|
;CODE
|
|
: SIOB$ 9 0 DO _ I + C@ [ SIOB_CTL LITN ] PC! LOOP ;
|
|
( ----- 619 )
|
|
( RC2014 classic with MC6850 )
|
|
0xff00 CONSTANT RS_ADDR 0xfffa CONSTANT PS_ADDR
|
|
RS_ADDR 0xa0 - CONSTANT SYSVARS
|
|
0x8000 CONSTANT HERESTART
|
|
0x80 CONSTANT 6850_CTL 0x81 CONSTANT 6850_IO
|
|
4 CONSTANT SPI_DATA 5 CONSTANT SPI_CTL 1 CONSTANT SDC_DEVID
|
|
5 LOAD ( z80 assembler )
|
|
262 LOAD ( xcomp ) 282 LOAD ( boot.z80.decl )
|
|
270 LOAD ( xcomp overrides ) 283 335 LOADR ( boot.z80 )
|
|
353 LOAD ( xcomp core low ) 601 603 LOADR ( MC6850 )
|
|
419 LOAD ( SPI relay ) 423 436 LOADR ( SD Card )
|
|
400 LOAD ( AT28 )
|
|
390 LOAD ( xcomp core high )
|
|
(entry) _
|
|
PC ORG @ 8 + ! ( Update LATEST )
|
|
," 6850$ BLK$ " EOT,
|
|
( ----- 620 )
|
|
( RC2014 classic with SIO )
|
|
0xff00 CONSTANT RS_ADDR 0xfffa CONSTANT PS_ADDR
|
|
RS_ADDR 0xa0 - CONSTANT SYSVARS
|
|
0x8000 CONSTANT HERESTART
|
|
0x80 CONSTANT SIOA_CTL 0x81 CONSTANT SIOA_DATA
|
|
0x82 CONSTANT SIOB_CTL 0x83 CONSTANT SIOB_DATA
|
|
4 CONSTANT SPI_DATA 5 CONSTANT SPI_CTL 1 CONSTANT SDC_DEVID
|
|
5 LOAD ( z80 assembler )
|
|
262 LOAD ( xcomp ) 282 LOAD ( boot.z80.decl )
|
|
270 LOAD ( xcomp overrides ) 283 335 LOADR ( boot.z80 )
|
|
353 LOAD ( xcomp core low ) 605 607 LOADR ( SIO )
|
|
419 LOAD ( SPI relay ) 423 436 LOADR ( SD Card )
|
|
400 LOAD ( AT28 ) : (key?) SIOA<? ; : (emit) SIOA> ;
|
|
390 LOAD ( xcomp core high )
|
|
(entry) _ PC ORG @ 8 + ! ( Update LATEST )
|
|
," SIOA$ BLK$ " EOT,
|