*    DUMMY - DUMMY DEVICE DRIVERS - MARCH 10 2006 - VERSION 1
*    
*    DUMMY DEVICE DRIVERS FOR ALL VERSION 1 DRIVERS
*
*    WHEN LINKED THIS ROUTINE SATISFIES ALL DRIVER CALLS UNSATISFIED
*    AT THAT MOMENT IN THE LINK PROCESS.
*
*    HONEYWELL X16 16 BIT COMPUTER SOFTWARE
*
*    PROGRAM LENGTH: 35 WORDS
*
*    SOURCE IS RECREATED BY: THEO ENGEL (THEO.ENGEL@HETNET.NL)
*
     SUBR  I$AI              TTY
     SUBR  I$GA
     SUBR  I$AA
     SUBR  C$ASR,ASR
     SUBR  I$ABI,ABI
     SUBR  I$AB
     SUBR  O$AI
     SUBR  O$AA
     SUBR  O$GA
     SUBR  O$AB
     SUBR  OUPT
     SUBR  O$AS
     SUBR  EOM
     SUBR  O$AH
     SUBR  O$AL
     SUBR  O$HH
     SUBR  HEAD
     SUBR  O$LL
     SUBR  LINE
*
     SUBR  I$PI              HIGH SPEED PAPERTAPE READER
     SUBR  I$PA
     SUBR  I$PBI,PBI
     SUBR  I$PB
*
     SUBR  O$PI              HIGH SEED PAPERTAPE PUNCH
     SUBR  O$PA
     SUBR  O$PS
     SUBR  O$PB
     SUBR  O$PLDR,PLRD
     SUBR  O$PH
     SUBR  O$PL
*
     SUBR  O$LH              LINE PRINTER
     SUBR  O$LA
     SUBR  O$LE
*
     SUBR  I$CA              CARD READER
*
     SUBR  I$MA              MAGTAPE
     SUBR  I$MB
     SUBR  I$MC
     SUBR  O$MA
     SUBR  O$MB
     SUBR  O$MC
     SUBR  O$ME
     SUBR  C$MR
     SUBR  C$FR
     SUBR  C$BR
     SUBR  C$FF
     SUBR  C$BF
     SUBR  C$6TO8,C$6T
     SUBR  C$8TO6,C$8T
     SUBR  M$UNIT,UNIT
     SUBR  DUMMY,DUM
     REL
*
*    ENTRY POINTS
*
I$AI EQU   *
I$GA EQU   *
I$AA EQU   *
ASR  EQU   *
ABI  EQU   *
I$AB EQU   *
O$AI EQU   *
O$AA EQU   *
O$GA EQU   *
O$AB EQU   *
OUPT EQU   *
O$AS EQU   *
EOM  EQU   *
O$AH EQU   *
O$AL EQU   *
O$HH EQU   *
HEAD EQU   *
O$LL EQU   *
LINE EQU   *
*
I$PI EQU   *
I$PA EQU   *
PBI  EQU   *
I$PB EQU   *
*
O$PI EQU   *
O$PA EQU   *
O$PS EQU   *
O$PB EQU   *
PLRD EQU   *
O$PH EQU   *
O$PL EQU   *
*
O$LH EQU   *
O$LA EQU   *
O$LE EQU   *
*
I$CA EQU   *
*
I$MA EQU   *
I$MB EQU   *
I$MC EQU   *
O$MA EQU   *
O$MB EQU   *
O$MC EQU   *
O$ME EQU   *
C$MR EQU   *
C$FR EQU   *
C$BR EQU   *
C$FF EQU   *
C$BF EQU   *
C$6T EQU   *
C$8T EQU   *
UNIT EQU   *
DUM  EQU   *
*
*    DUMMY DRIVER
*
     DAC   *-*
     LDA   CRLF
     JST   PRIN
     LDX   =-10
N    LDA   TX,1
     JST   PRIN
     IRS   0
     JMP   N
     HLT
     JMP   *
PRIN DAC   **
     ICA
     JST   ASRO
     ICA
     JST   ASRO
     JMP*  PRIN
ASRO DAC   **
     SKS   '104              WAIT FOR READY
     JMP   *-1
     OCP   '104              OUTPUT MODE
     OTA   '4
     JMP   *-1
     JMP*  ASRO
     BCI   10,STOP--DUMMY DRIVER
TX   EQU   *
CRLF OCT   106612            <CR><LF>
     END