************************************************************************
*
*
*M*      THEUNCOC COC HANDLER REPLACEMENT FOR COC-LESS SYSTEMS
*
*
************************************************************************
*P*  NAME:    THEUNCOC
*P*  PURPOSE: IN A SYSTEM CONFIGURED WITHOUT ANY COC'S, PROVIDE THE
*P*           FOLLOWING:
*P*           1   A COC BUFFER CHAIN TO BE USED AS ECB'S.
*P*           2   MISCELLANEOUS COCD AND M:COC DATA TO AVOID PREF'S.
*P*           3   MISCELLANEOUS DUMMY COC ROUTINES.
************************************************************************
         PCC      0
         SPACE    3
         SYSTEM   UTS
         SPACE    3
         DEF      THEUNCOC:         PATCHING DEF
THEUNCOC: RES
         DEF      CO:INTFL          DUMMY COC INTERRUPT CONTROL FLAGS
         DEF      COCBUF            BASE OF ECB CHAIN AREA
         DEF      COCHPB            HEAD POINTER FOR ECB'S
         DEF      COCINIT           DUMMY COC INITIALIZATION ROUTINE;
*,*                                 RETURN
         DEF      COCIO             DUMMY COC IOQ ENTRY POINT; SCREECH
         DEF      COCOFF            DUMMY COC HANGUP ENTRY POINT; SCREECH
         DEF      COCSENDX          DUMMY COC CHARACTER SEND ENTRY
*,*                                 POINT; SCREECH
         DEF      COH:II            DUMMY COC INPUT INTERRUPT LOCATION
*,*                                 TABLE
         DEF      COH:IO            DUMMY COC OUTPUT INTERRUPT LOCATION
*,*                                 TABLE
         DEF      ECBFRCHN          ALTERNATE ECB HEAD POINTER
         DEF      ECHOCR2           DUMMY LINE COUNT INCREMENT ROUTINE;
*,*                                 SCREECH
         DEF      HRBA              NUMBER OF ECB'S TIMES 4
         DEF      LCOC              DUMMY DEF FOR LAST COC INDEX; 0
         DEF      T:COCHC           DUMMY COC CLOCK3 DRIVEN ROUTINE; RETURN
         DEF      COCGLN            DUMMY GET COC LINE NUMBER ROUTINE
*,*                                 .. FOR COC-LESS SYSTEMS
         SPACE    3
ECBFRCHN EQU      COCHPB            ALTERNATE ECB HEAD POINTER
LCOC     EQU      0                 LAST COC INDEX
COH:II   EQU      %                 INPUT INTERRUPT LOCATION TABLE
COH:IO   GEN,16,16 XYZ,0            OUTPUT INTERRUPT LOCATION TABLE
XYZ      DATA     0                 DUMMY OUTPUT INTERRUPT LOCATION
NUMBUF   EQU      5                 INCREASE IF MORE ECB'S NEEDED
COCBUF   EQU      %-4
I        DO       NUMBUF-2
         DATA     I*4+4
         RES      3
         FIN
         DATA     0
         RES      3
HRBA     EQU      (NUMBUF-1)*4
COCHPB   DATA     4                 1ST COC SLOT USED
CO:INTFL DATA     0                 DUMMY COC INTERRUPT STATUS FLAG
         PAGE
************************************************************************
*F*  NAME:    COCINIT
*F*  PURPOSE: TO SATISFY THE REF'S TO COCINIT IN A COC-LESS SYSTEM.
*F*  DESCRIPTION: COCINIT SIMPLY BRANCHES INDIRECT THE BAL REGISTER.
************************************************************************
*
COCINIT  B        *11               RETURN
*
************************************************************************
*F*  NAME:    COCGLN
*F*  PURPOSE: TO SATISFY THE REF'S TO COCGLN IN A COC-LESS SYSTEM.
*F*  DESCRIPTION: COCGLN SIMPLY BRANCHES INDIRECT THE BAL REGISTER.
************************************************************************
*
COCGLN   B        0,5               RETURN
************************************************************************
*F*  NAME:    T:COCHC
*F*  PURPOSE: TO SATISFY THE REF'S TO T:COCHC IN A COC-LESS SYSTEM.
*F*  DESCRIPTION: T:COCHC SIMPLY BRANCHES INDIRECT THE BAL REGISTER.
************************************************************************
*
T:COCHC  B        *11               RETURN
*
         SPACE    3
************************************************************************
*S*  SCREECH CODE:    14-01
*S*  REPORTED BY:     THEUNCOC
*S*  MESSAGE:         COC ROUTINE CALLED IN NON-COC SYSTEM
*S*  TYPE:            SINGLE-USER-ABORT/RECOVERY
*S*  REGISTERS:       R11 = BAL ADR
************************************************************************
COCIO    SUA      X'14',1           SINGLE-USER-ABORT/RECOVERY
************************************************************************
*S*  SCREECH CODE:    14-02
*S*  REPORTED BY:     THEUNCOC
*S*  MESSAGE:         COC ROUTINE CALLED IN NON-COC SYSTEM
*S*  TYPE:            SINGLE-USER-ABORT/RECOVERY
*S*  REGISTERS:       R11 = BAL ADR
************************************************************************
COCOFF   SUA      X'14',2           SINGLE-USER-ABORT/RECOVERY
************************************************************************
*S*  SCREECH CODE:    14-03
*S*  REPORTED BY:     THEUNCOC
*S*  MESSAGE:         COC ROUTINE CALLED IN NON-COC SYSTEM
*S*  TYPE:            SINGLE-USER-ABORT/RECOVERY
*S*  REGISTERS:       R9  = BAL ADR
************************************************************************
COCSENDX SUA      X'14',3           SINGLE-USER-ABORT/RECOVERY
************************************************************************
*S*  SCREECH CODE:    14-04
*S*  REPORTED BY:     THEUNCOC
*S*  MESSAGE:         COC ROUTINE CALLED IN NON-COC SYSTEM
*S*  TYPE:            SINGLE-USER-ABORT/RECOVERY
*S*  REGISTERS:       R15 = BAL ADR
************************************************************************
ECHOCR2  SUA      X'14',4           SINGLE-USER-ABORT/RECOVERY
         SPACE    3
         END

