COMTDSP 
COMMON
          CTEXT  COMTDSP - *ROUTE*/*TAF* *DSP* TABLES.
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       COMTDSP - *ROUTE*/*TAF* *DSP* TABLES. 
*         T. E. SCHULL.      88/06/21.
          SPACE  4,10 
***       *COMTDSP* CONTAINS *DSP* TABLES USED BY *ROUTE* AND *TAF*.
 TDCC     SPACE  4,10 
**        TDCC - DISPOSITION CODE TYPE TABLE. 
* 
*T        12/ CODE,42/ ,3/ T,3/ 
* 
*         T - TYPE INDICATOR. 
*                0 = NO TYPE. 
*                1 = PRINT TYPE.
*                2 = PUNCH TYPE.
*                3 = PLOT TYPE. 
  
  
 TDCC     BSS    0
          VFD    12/0LFL,42/,3/3,3/0
          VFD    12/0LFR,42/,3/3,3/0
          VFD    12/0LHL,42/,3/3,3/0
          VFD    12/0LHR,42/,3/3,3/0
          VFD    12/0LIN,42/,3/0,3/0
          VFD    12/0LLP,42/,3/1,3/0
          VFD    12/0LLQ,42/,3/1,3/0
          VFD    12/0LLR,42/,3/1,3/0
          VFD    12/0LLS,42/,3/1,3/0
          VFD    12/0LLT,42/,3/1,3/0
          VFD    12/0LLX,42/,3/1,3/0
          VFD    12/0LLY,42/,3/1,3/0
          VFD    12/0LNO,42/,3/0,3/0
          VFD    12/0LPB,42/,3/2,3/0
          VFD    12/0LPH,42/,3/2,3/0
          VFD    12/0LPL,42/,3/3,3/0
          VFD    12/0LPR,42/,3/1,3/0
          VFD    12/0LPU,42/,3/2,3/0
          VFD    12/0LP1,42/,3/1,3/0
          VFD    12/0LP2,42/,3/1,3/0
          VFD    12/0LP8,42/,3/2,3/0
          VFD    12/0LSB,42/,3/2,3/0
          VFD    12/0LSC,42/,3/0,3/0
          VFD    12/0LTO,42/,3/0,3/0
          VFD    12/0LTT,42/,3/0,3/0
          VFD    12/0LWT,42/,3/0,3/0
          CON    0           END OF TABLE 
 TECC     SPACE  4,10 
**        TECC - EXTERNAL CHARACTERISTIC CONVERSION TABLE.
* 
*T        30/ CODE,24/ ,3/ T,3/ I 
* 
*         T - TYPE INDICATOR. 
*                0 = NO TYPE. 
*                1 = PRINT TYPE.
*                2 = PUNCH TYPE.
*                3 = PLOT TYPE. 
*         I - INTERFACE CODE. 
  
  
 TECC     BSS    0
          VFD    30/0LA4,24/,3/1,3/A4EX 
          VFD    30/0LA6,24/,3/1,3/A6EX 
          VFD    30/0LA9,24/,3/1,3/A9EX 
          VFD    30/0LB4,24/,3/1,3/B4EX 
          VFD    30/0LB6,24/,3/1,3/B6EX 
          VFD    30/0LASCII,24/,3/2,3/ASFR
          VFD    30/0LO26,24/,3/2,3/PHFR
          VFD    30/0L026,24/,3/2,3/PHFR
          VFD    30/0LO29,24/,3/2,3/P9FR
          VFD    30/0L029,24/,3/2,3/P9FR
          VFD    30/0LSB,24/,3/2,3/PBFR 
          VFD    30/0L80COL,24/,3/2,3/P8FR
          VFD    30/0LT6,24/,3/3,3/T6EX 
          VFD    30/0LT8,24/,3/3,3/T8EX 
          CON    0           END OF TABLE 
 TICC     SPACE  4,10 
**        TICC - INTERNAL CHARACTERISTIC CONVERSION TABLE.
* 
*T        36/ CODE,22/,2/ I 
* 
*         I - INTERFACE CODE. 
  
  
 TICC     BSS    0
          VFD    36/0LDIS,22/,2/DCIC
          VFD    36/0LASCII,22/,2/ASIC
          VFD    36/0LASCII8,22/,2/ASIC 
          VFD    36/0LBIN,22/,2/BNIC
          VFD    36/0LASCII6,22/,2/A6IC 
          CON    0           END OF TABLE 
 TKEY     SPACE  4,10 
**        TKEY - KEYWORD TABLE. 
* 
*T        36/ PARAMETER,5/ ,1/ NEP,18/ PROCESSOR
* 
*         NEP = 1 IF PARAMETER DOES NOT REQUIRE THAT A PARAMETER VALUE
*               BE SPECIFIED. 
  
  
 TKEY     BSS    0
          VFD    36/0LDC,6/,18/KDC
          VFD    36/0LDEF,6/1,18/KDE
          VFD    36/0LDO,6/,18/KDO
          VFD    36/0LEC,6/,18/KEC
          VFD    36/0LFC,6/,18/KFC
          VFD    36/0LFID,6/,18/KUJ 
          VFD    36/0LFM,6/1,18/KFM 
          VFD    36/0LIC,6/,18/KIC
          VFD    36/0LID,6/1,18/KID 
          VFD    18/0LJSN,24/,18/KJS
          VFD    36/0LOT,6/,18/KOT
          VFD    36/0LPI,6/,18/KPI
          VFD    36/0LPRI,6/1,18/KPR
          VFD    36/0LREP,6/,18/KRE 
          VFD    36/0LSC,6/,18/KSC
          VFD    36/0LST,6/,18/KST
          VFD    36/0LSCL,6/,18/KSV 
          VFD    36/0LTID,6/1,18/KTD
          VFD    36/0LUJN,6/,18/KUJ 
          VFD    36/0LUN,6/1,18/KUN 
          CON    0           END OF TABLE 
 TLOT     SPACE  4,10 
**        TLOT - ORIGIN TYPE TABLE. 
* 
*T        24/ ORIGIN TYPE,29/ ,6/ VALUE,1/
  
  
 TLOT     BSS    0
          VFD    24/0LBCOT,29/,6/BCOT,1/0 
          VFD    24/0LEIOT,29/,6/EIOT,1/0 
          VFD    24/0LRBOT,29/,6/RBOT,1/0 
          VFD    24/0LSYOT,29/,6/SYOT,1/0 
          CON    0           END OF TABLE 
 TPIN     SPACE  4,10 
**        TPIN - PRINT IMAGE NAME TABLE.
* 
*T        42/ NAME,12/ MASK,6/ CODE 
* 
*         NAME - PRINT IMAGE NAME.
*         MASK - CHARACTER MASK SIZE - 1. 
*         CODE - PRINT IMAGE ORDINAL (0-7). 
  
  
          LIST   G
  
 TPIN     TPIN
  
 PISD     EQU    /BIO/PISD
  
          LIST   *
          SPACE  4,10 
**        SCLASS - DEFINE SERVICE CLASS TABLE.
* 
*         SCLASS NM,MN,DF,ST,TX 
* 
*         ENTRY  *NM* = SERVICE CLASS NAME. 
*                *MN* = TWO CHARACTER MNEMONIC. 
*                *DF* = DAYFILE MESSAGE CHARACTER.
*                *ST* = SHORT TEXT FOR *QFTLIST*. 
*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 
* 
*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
*                THIS MACRO.
  
  
          PURGMAC  SCLASS 
  
 SCLASS   MACRO  NM,MN,DF,ST,TX 
 .SCL     RMT 
          VFD    12/0L_MN,48/0  TX
 .SCL     RMT 
 SCLASS   ENDM
  
  
          QUAL   SCD
 SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
          LIST   -X 
*CALL     COMSSCD 
          LIST   X
          SPACE  4,10 
**        TSCT - SERVICE CLASS TABLE. 
* 
*T        12/ PARAM,48/ 
* 
*         PARAM - SERVICE CLASS MNEMONIC. 
* 
*         NOTE - ONLY SERVICE CLASSES WITH JOB CONTROL BLOCKS RESIDE
*         IN THIS TABLE.  *TSCT* ENTRIES MUST BE CONTIGUOUS.
  
 TSCT     BSS    0
          LIST   D
 .SCL     HERE
          LIST   *
          VFD    12/0LDF,48/ SELECTS USER DEFAULT 
          CON    0
 TSCTL    EQU    *-TSCT-2 
          ERRNZ  TSCTL-MXJC+1  ENSURE ALL SERVICE CLASSES PRESENT 
  
          QUAL   *
 TSCT     EQU    /SCD/TSCT
 TSCTL    EQU    /SCD/TSCTL 
          SPACE  4,10 
          BASE   *
          SPACE  4,10 
          ENDX
