|
- ( ----- 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 )
- CODE 6850<
- A 0x16 ( RTS low ) LDri, 6850_CTL OUTiA,
- BEGIN,
- 6850_CTL INAi, 0x01 ANDi, ( is ACIA rcv buf full? )
- JRZ, ( no, loop ) AGAIN,
- A 0x56 ( RTS high ) LDri, 6850_CTL OUTiA,
- ( we have data, fetch and push )
- 6850_IO INAi, PUSHA,
- ;CODE
- ( ----- 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 )
- CODE SIOA<
- A 0x05 ( PTR5 ) LDri, SIOA_CTL OUTiA,
- A 0b01101000 ( De-assert RTS ) LDri, SIOA_CTL OUTiA,
- BEGIN,
- SIOA_CTL ( RR0 ) INAi, 0x01 ANDi, ( is rcv buf full? )
- JRZ, ( no, loop ) AGAIN,
- A 0x05 ( PTR5 ) LDri, SIOA_CTL OUTiA,
- A 0b01101010 ( Assert RTS ) LDri, SIOA_CTL OUTiA,
- ( we have data, fetch and push )
- SIOA_DATA INAi, PUSHA,
- ;CODE
- ( ----- 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 )
- CODE SIOB<
- BEGIN,
- SIOB_CTL ( RR0 ) INAi, 0x01 ANDi, ( is rcv buf full? )
- JRZ, ( no, loop ) AGAIN,
- ( we have data, fetch and push )
- SIOB_DATA INAi, PUSHA,
- ;CODE
- 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 0x80 - 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 0x80 - 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) SIOB< ; : (emit) SIOB> ;
- 390 LOAD ( xcomp core high )
- (entry) _ PC ORG @ 8 + ! ( Update LATEST )
- ," SIOB$ BLK$ " EOT,
|