Subversion Repositories System09

*
** TERMINAL AND PRINTER DRIVERS
** SYS09BUG - Spartan 3 Starter Board
*
** FLEX DRIVER MEMORY MAP:
** C700 - C83F  PRINTER SPOOLER
** CCC0 - CCF7  PRINTER DRIVERS
** D370 - D3FF  CONSOLE DRIVERS
** DE00 - DFAF  DISK DRIVERS
*
*
** INTERRUPT VECTORS
*
IRQVEC EQU   MONRAM+$08
SWIVEC EQU   MONRAM+$02     SWI3 VECTOR
*
** PRINTER DRIVERS
*
 ORG $CCC0
PINIT JMP DUMRTS INITIATE PRINTER
 ORG $CCD8
PCHK JMP DUMRTS CHECK IF PRINTER READY
 ORG $CCE4
POUT JMP DUMRTS OUTPUT CHR. TO PRINTER
 ORG $CCF8
ZCCF8 FCB $01,$00,$00,$00
ZCCFC FCB $00,$00,$00,$00
*
** CONSOLE DRIVER PATCHES:
*
       ORG $D370
IHND   EQU   *         INTERRUPT HANDLER
TMON   EQU   *         TIMER ON
TMOFF  EQU   *         TIMER OFF
TMINT  EQU   *         TIMER INITIALIZATION
DUMRTS EQU   *
       RTS
*
** SBUG MONITOR I/O CALLS
*
TERINZ JMP DUMRTS   INITIATE ACIA
INCHNE JMP [MONROM+$04] INPUT WITHOUT ECHO
MONITR JMP [MONROM+$00]
INCHEK JMP [MONROM+$08] CHECK FOR TERMINAL ENTRY
OUTEEE JMP [MONROM+$0A] OUPUT CHARACTER
INEEE  JMP [MONROM+$06] INPUT WITH ECHO

*
** AUTO BLOCK FDBS
*
       ORG   $D3E5
ZD3E5  FDB   INCHNE    INPUT - NO ECHO
IHNDVC FDB   IHND      IRQ INTERRUPT HANDLER
SWIVVC FDB   SWIVEC    SWI3 VECTOR LOCATION
IRQVVC FDB   IRQVEC    IRQ VECTOR LOCATION
TOFVEC FDB   TMOFF     TIMER OFF ROUTINE
TONVEC FDB   TMON      TIMER ON ROUTINE
TINVEC FDB   TMINT     TIMER INITIALIZE ROUTINE
MONVEC FDB   MONITR    MONITOR RETURN ADDRESS
TERVEC FDB   TERINZ    TERMINAL INITIATION
STAVEC FDB   INCHEK    CHECK TERMINAL STATUS
OUTVEC FDB   OUTEEE    TERMINAL CHAR OUTPUT
INVEC  FDB   INEEE     TERMINAL INPUT CHARACTER
ZD3FD  JMP   ZCA00
       END