COMSBIO 
COMMON
          CTEXT  COMSBIO - BATCHIO EQUIVALENCES.
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 COMSBIO  SPACE  4
***       COMSBIO - BATCHIO EQUIVALENCES. 
*         G. R. MANSFIELD.  01/30/70. 
 COMSBIO  SPACE  4
***              COMSBIO CONTAINS EQUIVALENCES FOR CONTROL OF 
*         BATCHIO FUNCTIONS.
          SPACE  4
**        BATCHIO COMMUNICATION.
* 
*         MUCH OF THE INTERCOMMUNICATION AMONG *1IO*, *1CD*, AND
*         *QAP* OCCURS IN 2 AREAS OF CM - 
*                BATCHIO NEGATIVE FIELD LENGTH. 
*                BATCHIO FIELD LENGTH.
* 
*         WITHIN NEGATIVE FL, MEMORY NORMALLY ASSOCIATED
*         WITH THE CONTROL STATEMENT BUFFER IS ALLOCATED
*         FOR STORAGE OF BUFFER INFORMATION AND IS REFERRED 
*         TO AS THE BUFFER POINT AREA.  EACH DEVICE USES 2 LOCATIONS
*         IN THE BUFFER POINT AREA IN THE FOLLOWING WAY - 
* 
*T        24/  LFN,12/  PR,12/  EQ,6/  RC,6/  OR
*T,       12/   IDMC,12/   DEMC,12/ MPARAM 1,12/ MPARAM 2,12/ MPARAM 3
* 
*         AN AUXILIARY BUFFER POINT AREA OF ONE WORD PER DEVICE 
*         IS ALLOCATED TO CONTAIN SUPPLEMENTAL *DSD* DATA.
* 
*T        36/ 0, 24/ FET
* 
*                LFN = LOGICAL FILE NAME (JOB SEQUENCE NUMBER)
*                PR = OPERATOR REQUESTED PRIORITY.
*                EQ = EST ORDINAL.
*                RC = ONE OF THE FOLLOWING -
*                            REPEAT COUNT, IF NO OPERATOR REQUEST.
*                            REQUEST PARAMETER, IF OPERATOR REQUEST.
*                OR = OPERATOR REQUEST -
*                            0 = NONE.
*                            1 = END. 
*                            2 = REPEAT.
*                            3 = SUPPRESS.
*                            4 = RERUN. 
*                IDMC = *I* DISPLAY MESSAGE CODE. 
*                DEMC = DAYFILE/ERRLOG MESSAGE CODE.
*                MPARAM 1 = MESSAGE PARAMETER - 
*                            REPEAT COUNT (LP AND CP ONLY). 
*                            END COUNT (LP AND CP ONLY).
*                            6/ RTRY,6/ UEF - 
*                                      RTRY = RETRY COUNT.
*                                      UEF = UNRECOVERED ERROR FLAG.
*                MPARAM 2 = MESSAGE PARAMETER - 
*                            PP NUMBER. 
*                MPARAM 3 = ONE OF THE FOLLOWING -
*                            MESSAGE PARAMETER -
*                                      FUNCTION CODE. 
*                                      PRINTER ERROR COUNT (LP ONLY). 
*                                      STATUS.
*                            FUNCTION CODE. 
* 
*                FET = FET ADDRESS. 
* 
*         THE BUFFER POINT AREA IS INDEXED BY THE BUFFER NUMBER 
*         OF THE DEVICE FROM THE *I* DISPLAY AND IS USED TO 
*         COMMUNICATE WITH *DSD*. 
* 
*         THE BATCHIO FIELD LENGTH ALSO PROVIDES A VEHICLE FOR
*         COMMUNICATION.  EACH ACTIVE DEVICE HAS A CORRESPONDING
*         FET AND BUFFER IN THE BATCHIO CP AS FOLLOWS - 
* 
*T FET    42/  LFN,18/  STATUS
*T,FET+1  42/          0,18/     FIRST
*T,FET+2  42/          0,18/     IN 
*T,FET+3  42/          0,18/     OUT
*T,FET+4  12/  FNTA,12/  ORD,12/  SC,6/,18/  LIMIT
*T,FET+5  12/  BN,12/  FP1,12/  FP2,12/  CV,12/  OT 
*T,FET+6  30/  CRI,30/  0 
*T,FET+7  60/               (QUEUE ACCESS PARAMETER BLOCK)
*T,FET+8  60/               (QUEUE ACCESS PARAMETER BLOCK)
*T,FET+9  60/               (QUEUE ACCESS PARAMETER BLOCK)
*T,FET+10 60/               (QUEUE ACCESS PARAMETER BLOCK)
*T,FET+10 12/  CS,12/  ES,12/  BF,24/  USER LIMITS (ASSIGNED TO DRIVER) 
*T,FET+11 60/               (QUEUE ACCESS PARAMETER BLOCK)
*T,FET+12 60/               (QUEUE ACCESS PARAMETER BLOCK)
*T,FET+12 36/  0,24/  FILE SIZE  (ASSIGNED TO DRIVER) 
*T,FET+13 60/               (QUEUE ACCESS PARAMETER BLOCK)
*T,FET+14 60/               (EQUIPMENT/DRIVER STATUS BLOCK) 
*T,FET+15 60/               (EQUIPMENT/DRIVER STATUS BLOCK) 
*T,FET+16 60/               (EQUIPMENT/DRIVER STATUS BLOCK) 
*T,FET+17 60/               (EQUIPMENT/DRIVER STATUS BLOCK) 
*T,FET+18 60/               (EQUIPMENT/DRIVER STATUS BLOCK) 
*T,FET+19 60/               (EQUIPMENT/DRIVER STATUS BLOCK) 
*T,FET+20 60/               (EQUIPMENT/DRIVER STATUS BLOCK) 
*T,BUF    60/   (FIRST WORD OF BUFFER)
*T,BUF+1  60/       . 
*T,BUF+2  60/       .  (BUFFER WORDS) 
*T,BUF+3  60/       . 
*T,BUF+N  60/   (LAST WORD OF BUFFER) 
* 
*                LFN = LOGICAL FILE NAME (JOB SEQUENCE NUMBER)
*                STATUS = FILE STATUS.
*                FIRST = ADDRESS OF FIRST WORD OF BUFFER
*                            (RELATIVE TO RA).
*                IN = NEXT AVAILABLE ADDRESS FOR ENTERING 
*                            DATA IN BUFFER (RELATIVE TO RA). 
*                OUT = NEXT AVAILABLE ADDRESS FOR REMOVING
*                            DATA FROM BUFFER (RELATIVE TO RA). 
*                FNTA = FNT ADDRESS (OFFSET INTO NFL) 
*                ORD = QFT ORDINAL. 
*                SC = SPACING CODE FOR 580-PFC PRINT FILES. 
*                LIMIT = LAST WORD ADDRESS+1 OF BUFFER
*                            (FIRST WORD ADDRESS OF NEXT FET AND BUFFER)
*                            (RELATIVE TO RA).
*                BN = BUFFER POINT OFFSET.
*                FP1 = FILE PARAMETER - 
*                            FIRST TRACK OF DAYFILE (LP ONLY).
*                            FIRST CARD NUMBER OF READ SEQUENCE 
*                                      ERROR (CR ONLY). 
*                FP2 = FILE PARAMETER - 
*                            FIRST SECTOR OF DAYFILE (LP ONLY). 
*                            PUNCH FORMAT (CP ONLY).
*                            RECORD NUMBER OF READ SEQUENCE 
*                                      ERROR (CR ONLY). 
*                CV = COUNT OF *V* CHARACTERS USED. 
*                OT = ORIGIN TYPE.
*                CRI = CURRENT RANDOM INDEX.
*                CS = CONVERTER (6681) STATUS.
*                ES = EQUIPMENT STATUS. 
*                BF = *BATCHIO* FLAGS.
* 
*T,BF     7/UNUSED,1/B,1/S,1/U,1/A,1/V
* 
*                            B = 6/12 ASCII PRINT FILE FLAG.
*                            S = SHORT PAPER FLAG.
*                            U = 8/12 ASCII PRINT FILE FLAG.
*                            A = ABORT FLAG.
*                            V = USER HAS *CBIO* VALIDATION.
* 
*                USER LIMITS = MAXIMUM NUMBER OF POSSIBLE LINES 
*                            PRINTED/CARDS PUNCHED (LP AND CP ONLY).
*                N = BUFFER SIZE-1. 
* 
*                *EQUIPMENT/DRIVER STATUS BLOCK* IS A SCRATCHPAD
*                FOR *1CD*. 
* 
*         EACH BUFFER IMMEDIATELY FOLLOWS ITS CORRESPONDING FET,
*         I.E., THE FIRST WORD ADDRESS OF THE BUFFER = LAST WORD+1
*         OF THE FET.  ALSO, THE NEXT FET AND BUFFER IMMEDIATELY
*         FOLLOW THE CURRENT BUFFER, I.E., THE FIRST WORD ADDRESS 
*         OF THE NEXT FET = RA+LIMIT OF THE CURRENT FET.
          SPACE  4,10 
**        DEVICE TYPES. 
  
  
          LOC    0
 LPDT     BSS    1           LINE PRINTER 
 CPDT     BSS    1           CARD PUNCH 
 CRDT     BSS    1           CARD READER
 NPDT     BSS    1           NON-IMPACT PRINTER 
 MXDT     BSS    1           MAXIMUM DEVICE TYPE
          LOC    *O 
          SPACE  4
**        CONVERSION MODES. 
  
  
 CTLN     EQU    15          CONVERSION TABLE LENGTH (CM) 
  
          LOC    0
 C6XD     BSS    CTLN        O26 BCD TO DISPLAY CODE
 C9XD     BSS    CTLN        O29 BCD TO DISPLAY CODE
 CDX8     BSS    CTLN        DISPLAY CODE TO 8/12 ASCII 
 CDXH     BSS    CTLN        DISPLAY CODE TO HOLLERITH PUNCH
 CDXA     BSS    CTLN        DISPLAY CODE TO ASCII PUNCH
 COMSBIO  SPACE  4
**        ADDRESSES RELATIVE TO *RA*. 
  
  
 D1AR     EQU    5           FIRST DRIVER ASSIGNMENT WORD 
 DRQR     EQU    10          DRIVER REQUEST WORD
 TEQR     EQU    DRQR+10     AVAILABLE EQUIPMENT TABLE
 CTIR     EQU    TEQR+10     START OF CONVERSION TABLES 
 QAPB     EQU    CTIR+5*CTLN QUEUE ACCESS PARAMETER BLOCK 
 DSPB     EQU    QAPB+7      *DSP* CALL BLOCK 
 DSPBL    EQU    7           LENGTH OF *DSP* CALL BLOCK 
 QAPBL    MAX    DSPB+DSPBL-QAPB,17D  LENGTH OF *QAC* CALL BLOCK
 BUFR     EQU    QAPB+QAPBL  FIRST BUFFER (FET) ADDRESS 
          SPACE  4,10 
**        DRIVER STATUS BLOCK DEFINITIONS.
  
  
          NOREF  .SDR,.DBA
  
*         COMMON RELATIVE LOCATIONS.
  
          LOC    0
 CMEN     BSS    1           9/EST ORDINAL, 3/DEVICE TYPE 
 CMCE     BSS    1           6/CONNECT CODE, 6/CHANNEL NUMBER 
 CMCT     BSS    1           CONVERSION TABLE NUMBER
 CMPA     BSS    1           PROGRAM ADDRESS
 CMBR     BSS    1           BUSY RETURN
 CMBT     BSS    1           BUFFER THRESHOLD 
 CMER     BSS    1           REPEAT COUNT 
  
 CMRC     BSS    2           RECORD COUNT (2 LOCATIONS) 
 CMBE     BSS    1           BUFFER EMPTY STATUS
 CMAR     BSS    1           -A- REGISTER 
 CMDB     BSS    1           DATA BUFFER ADDRESS
 CMMR     BSS    1           MESSAGE REQUEST
 CMSB     BSS    1           STATUS BLOCK INTERLOCK CONTROL 
 CMSF     BSS    1           STATUS FLAGS 
  
*T,CMSF   6/X,1/B,1/X,1/U,1/S,1/E,1/A 
* 
*                X = UNUSED 
*                B = 6/12 ASCII PRINT FILE FLAG 
*                U = 8/12 ASCII PRINT FILE FLAG 
*                S = SUPPRESS (FORMAT CONTROL) FLAG 
*                E = END FLAG 
*                A = ACCOUNTING FLAG
  
 CMHF     BSS    1           HOLD FLAGS 
  
*T,CMHF   10/ UNUSED,1/D,1/H
* 
*                D = DRIVER HOLDING.
*                H = HOLDING FLAG.
  
 CMLR     BSS    1           LAST REQUEST/LENGTH OF RECORD
 CMBS     BSS    1           BUFFER STATUS
 CMCB     BSS    1           CONTROLLER BUSY RETRY COUNT
 CMEC     BSS    1           ERROR COUNT
 CMTC     BSS    1           MACHINE DEPENDENT TIMEOUT COUNTER
 FRCI     BSS    0           FIRST RETRY COUNTER BASE 
 CMDR     BSS    1           INCOMPLETE TRANSFER RETRY COUNT
 DRRI     EQU    CMDR-FRCI   INDEX
 CMFR     BSS    1           FUNCTION REJECT RETRY COUNT
 FRJI     EQU    CMFR-FRCI   INDEX
 CMCP     BSS    1           CHANNEL PARITY ERROR RETRY COUNT - STATUS
 SCEI     EQU    CMCP-FRCI   INDEX
 CMCD     BSS    1           CHANNEL PARITY ERROR RETRY COUNT - DATA
 DCPI     EQU    CMCD-FRCI   INDEX
  
 .SDR     SET    *           START FOR DEVICE RELATIVE LOCATIONS
 .DBA     SET    *
          SPACE  4,10 
*         3555/512 - 580 RELATIVE LOCATIONS.
  
          LOC    .SDR 
 LPPR     BSS    1           PRINT ERROR RETRY COUNT
 PERI     EQU    LPPR-FRCI   INDEX
 MXRI     EQU    *-FRCI      MAXIMUM INDEX
 LPOT     BSS    2           OUT POINTER (2 LOCATIONS)
 LPLP     BSS    1           ACCOUNTING CHARGE
 LPLL     BSS    1           LINE LIMIT FOR PAGE
 LPFT     BSS    1           FLAGS
*T,LPFT   10/UNUSED,1/P,1/F 
  
*                P = *PM* MESSAGE FLAG. 
*                F = FORMAT TAPE FLAG.
  
 LPFC     BSS    1           FORMAT CONTROL CHARACTER 
 LP6L     BSS    1           LINES PER PAGE CHARGE 6 LPI
 LP8L     BSS    1           LINES PER PAGE CHARGE 8 LPI
 .DBA     MAX    .DBA,*+4 
          SPACE  4,10 
*         3446/415 RELATIVE LOCATIONS.
  
          LOC    .SDR 
 CPO1     BSS    2           OUT1 (2 LOCATIONS) 
 CPO2     BSS    2           OUT2 (2 LOCATIONS) 
 CPPM     BSS    1           PUNCH MODE 
 CPFM     BSS    1           CARD PUNCH FORMAT
 CPES     BSS    1           CARD PUNCH ERROR STATUS
 CPCN     BSS    2           BINARY CARD NUMBER 
 .DBA     MAX    .DBA,*+4 
          SPACE  4,10 
*         3447/405 RELATIVE LOCATIONS.
  
          LOC    .SDR 
 CRFR     BSS    1           FIRST RECORD FLAG
 CRBE     BSS    1           BINARY CARD ERROR FLAG 
 CRLI     BSS    1           LITERAL INPUT FLAG 
 CRLC     BSS    1           LITERAL INPUT CHECKSUM 
 CRSN     BSS    1           BINARY CARD SEQUENCE NUMBER
 CRRC     BSS    1           LOGICAL RECORD COUNT 
 .DBA     MAX    .DBA,*+4 
          SPACE  4,10 
*         5870/5970 RELATIVE LOCATIONS. 
  
          LOC    .SDR 
 NPFC     BSS    1           FORMAT CHARACTER 
 NPLC     BSS    1           LINE COUNT CHARGE
 NPOT     BSS    2           OUT POINTER
 NPWF     BSS    1           WRITE FUNCTION CODE
 .DBA     MAX    .DBA,*+4 
  
 CMDA     EQU    .DBA/5*5    DATA BUFFER ADDRESS
 COMSBIO  SPACE  4
**        MISCELLANEOUS.
  
  
 QAPO     EQU    DSPB-QAPB   QUEUE ACCESS PARAMETER BLOCK ORDINAL 
                             (FWA OF QUEUE ACCESS PARAMETER BLOCK 
                             RELATIVE TO FET) 
 EDSBL    EQU    CMDA/5      LENGTH OF EQUIPMENT STATUS BLOCK 
 EDSB     EQU    BUFR+7+7    START OF EQUIPMENT/DRIVER STATUS BLOCK 
 EDSO     EQU    EDSB-BUFR   *EDSB* BLOCK ORDINAL 
                             (FWA OF EQUIPMENT/DRIVER STATUS BLOCK
                             RELATIVE TO FET) 
 BFCWL    EQU    60          WORDS IN BUFFER POINT AREA 
 MXEQ     EQU    BFCWL/2     MAXIMUM NUMBER OF EQUIPMENTS 
 MEQD     EQU    10          MAXIMUM NUMBER OF EQUIPMENTS/DRIVER
 MXSD     EQU    2           MAXIMUM NUMBER OF SUB-DRIVERS
 ERRL     EQU    3           CHANNEL ERROR RETRY LIMIT
 PERL     EQU    10          *PRINT ERROR* RETRY LIMIT
 CHPR     EQU    12          CHANNEL PARITY ERROR RETRY LIMIT 
 PL6L     EQU    64D         LINE COUNT/PAGE AT 6 LPI 
 PL8L     EQU    85D         LINE COUNT/PAGE AT 8 LPI 
  
 PSUL     EQU    255D        UPPER LIMIT FOR PAGE LENGTH
 PSLL     EQU    16D         LOWER LIMIT FOR PAGE LENGTH
 PWUL     EQU    255D        UPPER LIMIT FOR PRINT WIDTH
 PWLL     EQU    40D         LOWER LIMIT FOR PRINT WIDTH
  
*         SYSTEM DEFAULT PAGE PARAMETERS. 
  
 PSSD     EQU    60D         SYSTEM DEFAULT PAGE LENGTH 
 PDSD     EQU    6           SYSTEM DEFAULT PRINT DENSITY 
 PWSD     EQU    136D        SYSTEM DEFAULT PAGE WIDTH
 PISD     EQU    0           SYSTEM DEFAULT PRINT IMAGE 
  
 PWMX     EQU    136D        DEVICE MAXIMUM PRINT WIDTH (512/580) 
 PXMX     EQU    150D        DEVICE MAXIMUM PRINT WIDTH (5870/5970) 
  
 QFFL     EQU    EDSB+EDSBL-BUFR   LENGTH OF QUEUE FILE FET 
 BBFL     EQU    4           BASIC BUFFER LENGTH / 100 (MINIMUM)
  
*         5870/5970 PARAMETERS. 
  
 DJDE     MICRO  1,,'  DJDE '  DYNAMIC JOB DESCRIPTOR ENTRY IDENTIFIER
          SPACE  4,10 
**        NEGATIVE FL ADDRESSES.
  
  
 BFCW     EQU    CSBN-10     FIRST BUFFER POINT ADDRESS 
 BFSP     EQU    BFCW-BFCWL  AUXILIARY BUFFER POINT AREA
 BFSPL    EQU    MXEQ        LENGTH OF AUXILIARY AREA 
          IFEQ   *F,0,1 
          ERRNG  BFSP-BFSPL-DMPN+DMPL  AUXILIARY AREA OVERFLOW
          SPACE  4,10 
**        RELATIVE FET ADDRESSES. 
  
  
 FPSN     EQU    6           FILE POSITION WORD 
 FPW2     EQU    12          FILE PARAMETER WORD 2
 FLEN     EQU    14          FILE LENGTH INFORMATION
          SPACE  4
**        MESSAGE CODES FOR I DISPLAY.
  
  
          LOC    0
 ECLE     BSS    1           NO ERROR MESSAGE (CLEAR) 
 EOFF     BSS    1           OFF
 EDWN     BSS    1           DOWN 
 EHLD     BSS    1           HOLD 
 ENRD     BSS    1           NOT READY
 ENEC     BSS    0           END OF NO ERROR CONDITION MESSAGE CODES
  
 ENPA     BSS    1           NO PAPER 
 ERCA     BSS    1           RE-READ 1 CARD 
 ERCB     BSS    1           RE-READ 3 CARDS
 ECPE     BSS    1           COMPARE ERROR
 EFED     BSS    1           FEED FAILURE 
 ECPA     BSS    1           CHECK PAPER ALIGNMENT
 EOHE     BSS    1           OFF - CHECK ERRLOG 
 EPMM     BSS    1           CHECK *PM* MESSAGE 
 EPRH     BSS    1           PRINT ERROR HALT 
 EIVR     BSS    1           INTERVENTION REQUIRED
 ECUA     BSS    1           CHANNEL UNAVAILABLE
 EMAX     BSS    0           END OF I DISPLAY MESSAGE CODES 
          SPACE  4
**        MESSAGE CODES FOR DAYFILES. 
*         THESE DAYFILE MESSAGE CODES INDEX INTO
*         TABLE *TDFP* IN *1IO* AND TABLE *TDFP* IN *QAP*.
  
  
          LOC    1
  
*         THE FOLLOWING CODES REPRESENT MESSAGES THAT ARE 
*         ISSUED ONLY BY *QAP*. 
  
 ENDM     BSS    1           END
 REPM     BSS    1           REPEAT 
 SUPM     BSS    1           SUPPRESS 
 RRNM     BSS    1           RERUN
 HLDM     BSS    1           HOLD PRINTING
 CNTM     BSS    1           CONTINUE PRINTING
 ORME     BSS    0           END OF OPERATOR REQUEST MESSAGES 
  
 BKPO     BSS    1           BACKSPACE PRUS 
 BKRO     BSS    1           BACKSPACE RECORDS
 BKFO     BSS    1           BACKSPACE FILES
 SKPO     BSS    1           SKIP PRUS
 SKRO     BSS    1           SKIP RECORDS 
 SKFO     BSS    1           SKIP FILES 
 CPHP     BSS    1           CLEAR PRINTER HOLDING
 LNLP     BSS    1           LOCATE NEXT LINE 
 LCBP     BSS    1           LOAD CENTRAL BUFFER
 FPRE     BSS    0           END OF FILE POSITIONING REQUESTS 
  
 ERRF     BSS    0           FIRST ERROR CODE VALUE 
 ECEM     BSS    1           COMPARE ERROR
 EPEM     BSS    1           PRINT ERROR
 EPLM     BSS    1           *PRINT ERROR* LIMIT EXCEEDED 
 EFFM     BSS    1           FEED FAILURE 
 EPFC     BSS    1           PFC ERROR
 EACT     BSS    1           ACCOUNTING BML MESSAGE 
 BAME     BSS    0           END OF UNIQUE *QAP* MESSAGES 
  
*         THE FOLLOWING CODES REPRESENT ERROR LOG MESSAGES THAT ARE 
*         ISSUED BY *1IO* AND *QAP*.
  
 ERJM     BSS    1           INTERNAL/EXTERNAL REJECT 
 ETPE     BSS    1           TRANSMISSION PARITY ERROR
 EFTM     BSS    1           FUNCTION TIMEOUT 
 EITM     BSS    1           INCOMPLETE DATA TRANSFER 
 EEOM     BSS    1           EQUIPMENT TURNED OFF 
 ECBM     BSS    1           CONTROLLER HUNG BUSY 
 ECRE     BSS    1           CHANNEL PARITY ERROR 
 ECSE     BSS    1           CCC/NIP STATUS ERROR 
 CMME     BSS    0           END OF MESSAGES COMMON TO *1IO* AND *QAP*
  
*         THE FOLLOWING CODES REPRESENT ERROR LOG MESSAGES THAT ARE 
*         ONLY ISSUED BY *1IO*. 
  
 ECLM     BSS    1           CCC/NIP CONTROLWARE LOADED 
 ECWE     BSS    1           CCC/NIP CONTROLWARE LOAD ERROR 
 ECNF     BSS    1           CCC/NIP CONTROLWARE NOT FOUND
 ELME     BSS    0           END OF ERROR LOG MESSAGES
  
          SPACE  4,10 
**        *QAP* FUNCTION REQUESTS.
  
  
 PDMF     EQU    400         PROCESS DAYFILE MESSAGE
 WTIF     EQU    410         INITIATE INPUT WITH WRITE
 WRIF     EQU    420         INITIATE INPUT WITH WRITE EOR
 WFIF     EQU    430         INITIATE INPUT WITH WRITE EOF
          LOC    WFIF+10
 CECF     BSS    10          CHANNEL ERROR CLEANUP
  
*         THE REMAINING FUNCTIONS REQUIRE AN FNT ADDRESS. 
  
 PORF     BSS    10          PROCESS OPERATOR REQUEST 
 RQFF     BSS    10          REQUEUE FILE (RERUN) 
 PFCF     BSS    10          LOAD USER FORMS CONTROL TO 580 PFC 
  
*         THE REMAINING FUNCTIONS ARE NOT RESTRICTED TO *BATCHIO*.
  
 GBPF     BSS    10          GENERATE BANNER PAGE 
 GLCF     BSS    10          GENERATE LACE CARD 
 PLEF     BSS    10          PROCESS LIMIT EXCEEDED 
 ACTF     BSS    10          PROCESS ACCOUNTING 
  
 QAPFE    BSS    0           END OF *QAP* REQUESTS
          LOC    *O 
          ERRNG  600-QAPFE   OVERLAP INTO *CIO* FUNCTIONS 
 BLMSIDT  SPACE  4,20 
**        BLMSIDT - GENERATE BML MESSAGE ID TABLE.
* 
*         BLMSIDT IS USED TO GENERATE A TABLE OF EQUIPMENT
*         MNEMONIC/BML MESSAGE ID PAIRS, AND A SUBROUTINE 
*         *DID* TO SEARCH THE TABLE FOR A SPECIFIC MNEMONIC.
* 
*         THE TABLE PRODUCED BY THIS MACRO TERMINATES WITH A WORD OF
*         ZERO AND EACH ENTRY IN THE TABLE IS IN THE FORM - 
* 
*T        12/MNEMONIC, 12/MESSAGE ID
* 
*         XREF   COMSDFS. 
  
  
          PURGMAC  BLMSIDT
  
 BLMSIDT  MACRO 
          MACREF BLMSIDT
 DMI      SPACE  4,10 
**        DMI - DETERMINE BML MESSAGE IDENTIFICATION. 
* 
*         ENTRY  (ES - ES+4) = EST ENTRY. 
* 
*         EXIT   (A) = MESSAGE ID.
*                    = 0 IF ID FOR SPECIFIED DEVICE UNDEFINED.
* 
*         USES   T1.
  
  
 DMI      SUBR               ENTRY/EXIT 
          LDD    ES 
          SHN    0-7         CHECK EST FLAGS
          LPN    1
          ZJN    DMI1        IF NOT PFC PRINTER 
          LDN    TIMP-TIMI
 DMI1     ADC    TIMI-2      SET TABLE ADDRESS
          STD    T1 
 DMI2     LDN    2           ADVANCE TABLE ADDRESS
          RAD    T1 
          LDI    T1 
          ZJN    DMIX        IF MESSAGE ID UNDEFINED
          LMD    ES+3 
          NJN    DMI2        IF NO MATCH ON DEVICE MNEMONIC 
          LDM    1,T1 
          UJN    DMIX        RETURN 
          SPACE  4,10 
**        TIMI - TABLE OF NON-PFC BML MESSAGE ID-S. 
  
  
 TIMI     BSS    0
          VFD    12/2RCP,12//COMSDFS/BM0021 
          VFD    12/2RCR,12//COMSDFS/BM0020 
          VFD    12/2RLQ,12//COMSDFS/LM0022 
          VFD    12/2RLR,12//COMSDFS/LM0023 
          VFD    12/2RLS,12//COMSDFS/LM0024 
          VFD    12/2RLT,12//COMSDFS/LM0025 
          VFD    12/2RLX,12//COMSDFS/LM0031 
          VFD    12/2RLY,12//COMSDFS/LM0032 
          SPACE  4,10 
**        TIMP - TABLE OF PFC BML MESSAGE ID-S. 
  
  
 TIMP     BSS    0
          VFD    12/2RLR,12//COMSDFS/LM0026 
          VFD    12/2RLS,12//COMSDFS/LM0027 
          VFD    12/2RLT,12//COMSDFS/LM0030 
          DATA   0
 BLMSIDT  ENDM
 TPIN     SPACE  4,20 
**        TPIN - TABLE OF PRINT IMAGE NAMES.
* 
*         TPIN IS USED TO GENERATE A TABLE OF PRINT IMAGE NAME
*         DEFINITIONS WHICH CAN BE USED TO TRANSLATE FROM THE NAME
*         SUPPLIED ON A *ROUTE* STATEMENT TO THE PRINT IMAGE CODE (0-7) 
*         NEEDED FOR THE *DSP* PARAMETER BLOCK. 
* 
*         THE TABLE PRODUCED BY THIS MACRO TERMINATES WITH A ZERO WORD. 
*         EACH ENTRY IN THE TABLE TAKES THE FOLLOWING FORM. 
* 
*T        42/ NAME,12/ MASK,6/ CODE 
* 
*         NAME - PRINT IMAGE NAME.
*         MASK - CHARACTER MASK SIZE - 1. 
*         CODE - PRINT IMAGE ORDINAL ( 0 - 7 ). 
  
  
          PURGMAC  TPIN 
  
 TPIN     MACRO 
          MACREF TPIN 
  
          VFD    42/0L0,12/5,6/0
          VFD    42/0L1,12/5,6/1
          VFD    42/0L2,12/5,6/2
          VFD    42/0L3,12/5,6/3
          VFD    42/0L4,12/5,6/4
          VFD    42/0L5,12/5,6/5
          VFD    42/0L6,12/5,6/6
          VFD    42/0L7,12/5,6/7
          VFD    42/0LDEFAULT,12/41,6/PISD
          CON    0           END OF TABLE 
 TPIN     ENDM
          SPACE  4
          BASE   *
          ENDX
