&DL      PROC  &P,30                                                    00000000
XDSECTS  NAME  X                                                        00000100
TN#DSCTS NAME  0                                                        00000200
TN#DSECT NAME  1                   . 02/25/76 VERSION                   00000300
.* .                                                                    00000400
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000500
.* .                                                                  * 00000600
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000700
.* .                                                                  * 00000800
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000900
.* .                                                                  * 00001000
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001100
         GBL   &MCP,&CA,&GUSERS    . MCPASM SET SYMBOLS                 00001200
         GBL   &TRANS                                                   00001300
         GBL   &VS9                                                     00001400
         LCL   &LARP                    L'ARP                           00001500
         LCL   &AAAAA              . DSECT SELECT/DESELECT CONTROL      00001600
         LCL   &BBBBB              . NUMBER OF PARAMETERS               00001700
         LCL   &ACTARP             . ACTIVITY CONT/SVC DECODE ARP       00001800
         LCL   &ARP97              . 9700 ACTIVITY REQUEST PACKET       00001900
         LCL   &BASTAB             . BASIC ACTIVITY CONTROL TABLE       00002000
         LCL   &BPOOL              . BUFFER POOL CONTROL TABLE          00002100
         LCL   &CCACON             . CCA CONTROL SECTION                00002200
         LCL   &CPIOCP             . COMMUNICATION PHYSICAL I/O PACKET  00002300
         LCL   &DCT                . DEVICE CONTROL TABLE (AUX)         00002400
         LCL   &DESTBL             . DESTINATION TABLE ENTRY            00002500
         LCL   &DLIST                                                   00002600
         LCL   &DUST               . DUST USER MACRO TABLES             00002700
         LCL   &GENTAB             . GENERAL INFORMATION TABLE          00002800
         LCL   &IMST               . IMS NETWORK TABLE                  00002900
         LCL   &LCT                . LINE CONTROL TABLE                 00003000
         LCL   &LINEL4             . U9400 LINE LINKS                   00003100
         LCL   &MCT                . MESSAGE CONTROL TABLE              00003200
         LCL   &MSGPRE             . STND MCP MSG PREFIX                00003300
         LCL   &OVARP              . OVERLAY CONTROL SVC AND MCP ARP    00003400
         LCL   &PRCS               . MCP PROCESS FILE                   00003500
         LCL   &SIMWA              . SIMULATOR WORK AREA                00003600
         LCL   &TCT                . TERMINAL CONTROL TABLE             00003700
         LCL   &TIMARP             . TIMER SERVICES ARP                 00003800
         LCL   &QCT                . QUEUE CONTROL TABLE                00003900
         DO    '&MCP'=''           . DO IF MCPASM NOT CALLED            00004000
         SYSTEM                    . RESOLVE OS/3, VS/9 SET SYMBOLS     00004100
         ENDO                                                           00004200
&LARP    SET   10                       L'ARP IN WORDS                  00004300
.* .                                                                    00004400
.* .                                                                    00004500
&AAAAA   SET   1                   . SELECT ALL DSECTS IN FILE          00004600
.* .                                                                    00004700
&BBBBB   SET   N'&P                . NUMBER OF PARAMETERS               00004800
.* .                                                                    00004900
         DO    '&CA'=''                                                 00005000
&CA      SET   0                                                        00005100
         ENDO                                                           00005200
         DO    '&GUSERS'=''                                             00005300
&GUSERS  SET   0                                                        00005400
         ENDO                                                           00005500
         DO    '&TRANS'=''                                              00005600
&TRANS   SET   0                                                        00005700
         ENDO                                                           00005800
         DO    &BBBBB=0            . IF ZERO SELECT ALL                 00005900
         GOTO  .BYP1                                                    00006000
         ENDO                                                           00006100
.* .                                                                    00006200
.* .                                                                    00006300
&AAAAA   SET   0                   . DSELECT ALL DSECTS                 00006400
.* .                                                                    00006500
.* .                                                                    00006600
.BYP1    LABEL                                                          00006700
.* .                                                                    00006800
.* .                                                                    00006900
.* INITIALIZE SET SYMBOLS FOR DSECT SELECTION                           00007000
.* .                                                                    00007100
.* .                                                                    00007200
&ACTARP  SET   &AAAAA              . ACTIVITY CONTROL/SVC DECODE ARP    00007300
&ARP97   SET   &AAAAA              . 9700 ACTIVITY REQUEST PACKET       00007400
&BASTAB  SET   &AAAAA              . BASIC ACTIVITY CONTROL TABLE       00007500
&BPOOL   SET   &AAAAA              . BUFFER POOL CONTROL TABLE          00007600
&CCACON  SET   &AAAAA              . CCA CONTROL SECTION                00007700
&CPIOCP  SET   &AAAAA              . COMM PHYSICAL I/O PACKET           00007800
&DCT     SET   &AAAAA              . DEVICE CONTROL TABLE               00007900
&DESTBL  SET   &AAAAA              . DESTINATION TABLE ENTRY            00008000
&DLIST   SET   &AAAAA                                                   00008100
&DUST    SET   &AAAAA              . DUST USER MACRO TABLES             00008200
&GENTAB  SET   &AAAAA              . GENERAL INFORMATION TABLE          00008300
&IMST    SET   &AAAAA              . IMS NETWORK TABLE                  00008400
&LCT     SET   &AAAAA              . LINE CONTROL TABLE                 00008500
&LINEL4  SET   &AAAAA              . U9400 LINE LINKS                   00008600
&MCT     SET   &AAAAA              . MESSAGE CONTROL TABLE              00008700
&MSGPRE  SET   &AAAAA              . STND MCP MSG PREFIX                00008800
&OVARP   SET   &AAAAA              . OVERLAY CONTROL SVC AND MCP ARP    00008900
&PRCS    SET   &AAAAA              . MCP PROCESS FILE                   00009000
&SIMWA   SET   &AAAAA              . SIMULATOR WORK ARES                00009100
&TCT     SET   &AAAAA              . TERMINAL CONTROL TABLE             00009200
&TIMARP  SET   &AAAAA              . TIMER SERVICE ARP                  00009300
&QCT     SET   &AAAAA              . QUEUE CONTROL TABLE                00009400
.* .                                                                    00009500
.* .                                                                    00009600
         DO    &BBBBB=0            . IF ZERO SELECT ALL                 00009700
         GOTO  .BYP3                                                    00009800
         ENDO                                                           00009900
.* .                                                                    00010000
.* .                                                                    00010100
.* PARAMETER SCAN FOR DSECT SELECTION                                   00010200
.* .                                                                    00010300
.* .                                                                    00010400
&S       DO    &BBBBB                                                   00010500
.* .                                                                    00010600
.* GROUP SELECTION                                                      00010700
.* .                                                                    00010800
         DO    '&P(&S)'='BACTGRP'                                       00010900
&ACTARP  SET   1                   . ACTIVITY CONTROL/SVC DECODE ARP    00011000
&BASTAB  SET   1                   . BASIC ACTIVITY CONTROL TABLE       00011100
&GENTAB  SET   1                   . GENERAL INFORMATION TABLE          00011200
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00011300
         ENDO                                                           00011400
.* .                                                                    00011500
.* .                                                                    00011600
         DO    '&P(&S)'='CCAGRP'                                        00011700
&CCACON  SET   1                   . CCA CONTROL SECTION                00011800
&DCT     SET   1                   . DEVICE CONTROL TABLE               00011900
&DESTBL  SET   1                   . DESTINATION TABLE ENTRY            00012000
&DLIST   SET   1                                                        00012100
&IMST    SET   1                   . IMS NETWORK TABLE                  00012200
&LCT     SET   1                   . LINE CONTROL TABLE                 00012300
&PRCS    SET   1                   . MCP PROCESS FILE                   00012400
&QCT     SET   1                   . QUEUE CONTROL TABLE                00012500
&TCT     SET   1                   . TERMINAL CONTROL TABLE             00012600
         GOTO  .BYP2                                                    00012700
         ENDO                                                           00012800
.* .                                                                    00012900
.* .                                                                    00013000
         DO    '&P(&S)'='PIOGRP'                                        00013100
&GENTAB  SET   1                   . GENERAL INFORMATION TABLE          00013200
&LCT     SET   1                   . LCT                                00013300
&CCACON  SET   1                   . CCA CONTROL SECTION                00013400
&BPOOL   SET   1                   . BUFFER POOL                        00013500
&LINEL4  SET   1                   . U9400 LINE LINK                    00013600
&CPIOCP  SET   1                   . COMM PHYSICAL IO PACKET            00013700
&BASTAB  SET   1                   . BASIC ACTIVITY CONTROL TABLE       00013800
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00013900
         ENDO                                                           00014000
.* .                                                                    00014100
.* .                                                                    00014200
         DO    '&P(&S)'='CCRU'                                          00014300
         DO    &VS9=0                                                   00014400
&CA      SET   1                                                        00014500
         ENDO                                                           00014600
&CPIOCP  SET   1                                                        00014700
&LINEL4  SET   1                                                        00014800
         GOTO  .BYP2                                                    00014900
         ENDO                                                           00015000
.* .                                                                    00015100
.* .                                                                    00015200
         DO    '&P(&S)'='DDIGRP'                                        00015300
&ACTARP  SET   1                   . ACTIVITY CONT/SVC DECODE ARP       00015400
&MCT     SET   1                   . MESSAGE CONTROL TABLE              00015500
&TIMARP  SET   1                   . TIMER SERVICE ARP                  00015600
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00015700
         ENDO                                                           00015800
.* .                                                                    00015900
.* .                                                                    00016000
.* INDIVIDUAL SELECTION                                                 00016100
.* .                                                                    00016200
.* .                                                                    00016300
         DO    '&P(&S)'='ACTARP'                                        00016400
&ACTARP  SET   1                   . ACTVITY CONT/SVC DECODE ARP        00016500
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00016600
         ENDO                                                           00016700
.* .                                                                    00016800
.* .                                                                    00016900
         DO    '&P(&S)'='ARP97'                                         00017000
&ARP97   SET   1                   . 9700 ACTIVITY REQUEST PACKET       00017100
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00017200
         ENDO                                                           00017300
.* .                                                                    00017400
.* .                                                                    00017500
         DO    '&P(&S)'='BASTAB'                                        00017600
&BASTAB  SET   1                   . BASIC ACTIVITY CONTROL TABLE       00017700
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00017800
         ENDO                                                           00017900
.* .                                                                    00018000
.* .                                                                    00018100
         DO    '&P(&S)'='BPOOL'                                         00018200
&BPOOL   SET   1                   . BUFFER POOL CONTROL TABLE          00018300
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00018400
         ENDO                                                           00018500
.* .                                                                    00018600
.* .                                                                    00018700
         DO    '&P(&S)'='CCACON'                                        00018800
&CCACON  SET   1                   . CCA CONTROL SECTION                00018900
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00019000
         ENDO                                                           00019100
.* .                                                                    00019200
.* .                                                                    00019300
         DO    '&P(&S)'='CPIOCP'                                        00019400
&CPIOCP  SET   1                   . COMM PHYSICAL I/O PACKET           00019500
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00019600
         ENDO                                                           00019700
.* .                                                                    00019800
.* .                                                                    00019900
         DO    '&P(&S)'='DCT'                                           00020000
&DCT     SET   1                   . DEVICE CONTROL TABLE               00020100
         GOTO  .BYP2                                                    00020200
         ENDO                                                           00020300
.* .                                                                    00020400
.* .                                                                    00020500
         DO    '&P(&S)'='DESTBL'                                        00020600
&DESTBL  SET   1                   . DESTINATION TABLE ENTRY            00020700
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00020800
         ENDO                                                           00020900
.* .                                                                    00021000
.* .                                                                    00021100
         DO    '&P(&S)'='DLIST'                                         00021200
&DLIST   SET   1                                                        00021300
         GOTO  .BYP2                                                    00021400
         ENDO                                                           00021500
.* .                                                                    00021600
.* .                                                                    00021700
         DO    '&P(&S)'='DUST'                                          00021800
&DUST    SET   1                   . DUST USER MACRO TABLES             00021900
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00022000
         ENDO                                                           00022100
.* .                                                                    00022200
.* .                                                                    00022300
         DO    '&P(&S)'='GENTAB'                                        00022400
&GENTAB  SET   1                   . GENERAL INFORMATION TABLE          00022500
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00022600
         ENDO                                                           00022700
.* .                                                                    00022800
.* .                                                                    00022900
         DO    '&P(&S)'='IMST'     . IMS NETWORK TABLE                  00023000
&IMST    SET   1                   . IMS NETWORK TABLE                  00023100
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00023200
         ENDO                                                           00023300
.* .                                                                    00023400
.* .                                                                    00023500
         DO    '&P(&S)'='LCT'                                           00023600
&LCT     SET   1                   . SELECT LINE CONTROL TABLE          00023700
         GOTO  .BYP2                                                    00023800
         ENDO                                                           00023900
.* .                                                                    00024000
.* .                                                                    00024100
         DO    '&P(&S)'='LINEL4'                                        00024200
&LINEL4  SET   1                   . U9400 LINE LINKS                   00024300
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00024400
         ENDO                                                           00024500
.* .                                                                    00024600
.* .                                                                    00024700
         DO    '&P(&S)'='LLT'                                           00024800
         DO    &VS9=0                                                   00024900
&CA      SET   1                                                        00025000
         ENDO                                                           00025100
&LINEL4  SET   1                   . 90/30 CA LINE LINK TABLE           00025200
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00025300
         ENDO                                                           00025400
.* .                                                                    00025500
.* .                                                                    00025600
         DO    '&P(&S)'='MCT'                                           00025700
&MCT     SET   1                   . MESSAGE CONTROL TABLE              00025800
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00025900
         ENDO                                                           00026000
.* .                                                                    00026100
.* .                                                                    00026200
         DO    '&P(&S)'='MSGPRE'                                        00026300
&MSGPRE  SET   1                   . STND MCP MSG PREFIX                00026400
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00026500
         ENDO                                                           00026600
.* .                                                                    00026700
.* .                                                                    00026800
         DO    '&P(&S)'='OVARP'                                         00026900
&OVARP   SET   1                   . OVERLAY CONTROL SVC AND MCP ARP    00027000
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00027100
         ENDO                                                           00027200
.* .                                                                    00027300
.* .                                                                    00027400
         DO    '&P(&S)'='PRCS'     . MCP PROCESS FILE                   00027500
&PRCS    SET   1                   . MCP PROCESS FILE                   00027600
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00027700
         ENDO                                                           00027800
.* .                                                                    00027900
.* .                                                                    00028000
         DO    '&P(&S)'='SIMWA'                                         00028100
&SIMWA   SET   1                   . SELECT SIMULATOR WORK AREA         00028200
         GOTO  .BYP2                                                    00028300
         ENDO                                                           00028400
.* .                                                                    00028500
.* .                                                                    00028600
         DO    '&P(&S)'='TCT'                                           00028700
&TCT     SET   1                   . TERMINAL CONTROL TABLE             00028800
         GOTO  .BYP2                                                    00028900
         ENDO                                                           00029000
.* .                                                                    00029100
.* .                                                                    00029200
         DO    '&P(&S)'='TIMARP'                                        00029300
&TIMARP  SET   1                   . TIMER SERVICE ARP                  00029400
         GOTO  .BYP2               . IF SELECTED BYPASS SCAN            00029500
         ENDO                                                           00029600
.* .                                                                    00029700
.* .                                                                    00029800
         DO    '&P(&S)'='QCT'                                           00029900
&QCT     SET   1                   . QUEUE CONTROL TABLE                00030000
         GOTO  .BYP2                                                    00030100
         ENDO                                                           00030200
.* .                                                                    00030300
.* .                                                                    00030400
.BYP2    LABEL                                                          00030500
         ENDO                                                           00030600
.* .                                                                    00030700
.* .                                                                    00030800
.BYP3    LABEL                                                          00030900
         EJECT                                                          00031000
         DO    &ACTARP                                                  00031100
*                 ...............................................       00031200
*              ACTIVITY CONTROL/SVC DECODE ARP PICTURE                  00031300
*                 ...............................................       00031400
*                      +0         +1         +2         +3              00031500
*              W1 : TN#APRTY :               TN#ALINK           : B 3   00031600
*                 ...............................................       00031700
*              W2 : TN#AOPN  :               TN#ACMPL           : B 7   00031800
*                 ...............................................       00031900
*              W3 : TN#AOPN1   TN#ATNDX      TN#ACNDX           :       00032000
*                 ...............................................       00032100
*              W4 : TN#AOPN2 :               TN#ACCB            : B15   00032200
*                 ...............................................       00032300
*              W5 :                     TN#AOPN3                : B19   00032400
*                 ...............................................       00032500
*              W6 :      TN#AOPN4       :      TN#AOVNM         : B23   00032600
*                 ...............................................       00032700
*              W7 : TN#AOPN5 :               TN#AUJCB           : B27   00032800
*                 ...............................................       00032900
*              W8 :                     TN#AUSR0                : B31   00033000
*                 ...............................................       00033100
*              W9 :                     TN#AUSR1                : B35   00033200
*                 ...............................................       00033300
*             W15 :                     OPEN                    : B39   00033400
*                 ..............................................        00033500
*                                                                       00033600
* ACTIVITY CONTROL/SVC DECODE ARP                                       00033700
*                                                                       00033800
TN#ARP   DSECT                                                          00033900
TN#APRTY DS    XL1                 . 1 PRIORITY                         00034000
TN#AIRL  EQU   TN#APRTY            .   IRL INDICATOR (BIT 0)            00034100
TN#AVRIL EQU   X'80'               .   IRL 2(7) ON                      00034200
TN#AUARP EQU   X'40'               .   USER PACKET (QUE ON USER QUEUE)  00034300
TN#AFNAQ EQU   X'20'               .   FNA PACKET (QUE ON FNA QUEUE)    00034400
TN#AWTBF EQU   X'10'               .   DEDICATED ARP NOT YET FREE       00034500
TN#AMCPQ EQU   X'00'               .   MCP PACKET (QUE ON MCP QUEUE)    00034600
*                                      BITS 2(2)-2(0) PROVIDE INDEX     00034700
*                                      TO MCP SUB-QUEUES 1(HI) TO 5(L0) 00034800
*                                      AS FOLLOWS:                      00034900
*                                                                       00035000
*                                               001 = SUB-QUEUE 5       00035100
*                                               000 = SUB-QUEUE 4       00035200
TN#ALSP  EQU   B'00000010'                      010 = SUB-QUEUE 3       00035300
TN#AMSP  EQU   B'00000100'                      100 = SUB-QUEUE 2       00035400
TN#AHSP  EQU   B'00000110'                      110 = SUB-QUEUE 1       00035500
TN#AQRNG EQU   B'00001111'             MASK FOR 2NDARY TASK,SUB-Q BITS  00035600
TN#A2NDT EQU   TN#AFNAQ+TN#AUARP       2NDARY TASK INDICATED            00035700
*                                        WHEN SECONDARY TASK IS SET     00035800
*                                        DESTINATION QUEUE IS INDICATED 00035900
*                                        BY BITS 2(3)-2(0). E.G.        00036000
*                                           0000 = 2NDARY TASK 1        00036100
*                                           0001 = 2NDARY TASK 2        00036200
*                                           ETC                         00036300
*                                        SLOTS ARE AT END MCP SLOT      00036400
*                                        CURRENTLY ONLY OPERATOR SLOT   00036500
TN#ALINK DS    AL3                 . 3 CHAIN PACKET ADDRESS             00036600
TN#ALNKA EQU   TN#APRTY,4          .   CHAIN PACKET ADDR (FULL WD       00036700
TN#AOPN  DS    XL1                 . 1 OPEN                             00036800
TN#ACMPL DS    AL3                 . 3 COMPLETION ADDR                  00036900
TN#ACMPA EQU   TN#AOPN,4           .   CMPL ADDR (FULL WD)              00037000
TN#AOPN1 DS    XL1                 . 1 OPEN                             00037100
TN#ATNDX DS    1C                      TASK ARP IN RUNNING UNDER        00037200
TN#ACNDX DS    1H                  . CCA INDEX                          00037300
TN#AOPN2 DS    A                   . 4 OPEN                             00037400
TN#AOPN3 DS    A                   . 4 OPEN                             00037600
TN#APCNT EQU   TN#AOPN3                                                 00037610
TN#AOPN4 DS    XL2                 . 2 OPEN                             00037700
TN#AEOJN EQU   TN#AOPN4,1          .   EOJ NET RELEASE FLAG <A.C.>DUST  00037800
TN#AOVNM DS    0XL2                . OVERLAY NUMBER                     00037900
TN#ASFC  EQU   TN#AOVNM                                                 00038000
TN#ASFC1 DS    XL1                 .    1ST CHAR SF CODE                00038100
TN#ASFC2 DS    XL1                 .    2ND CHAR SF CODE                00038200
TN#AFUJC DS    0F                  . USER JCB                           00038300
TN#AOPN5 DS    XL1                                                      00038400
TN#ATSKN EQU   TN#AOPN5            .    TASK NUMBER - VS/9              00038500
TN#AUJCB DS    AL3                 .    A(JCB)                          00038600
TN#AUSR0 DS    A                   . 4 USER R0 OR OPEN                  00038700
TN#AUSR1 DS    A                   . 4 USER R1 OR USER RESERVED         00038800
TN#AUSR2 DS    1H                  . 2 RBP - BINARY JOB ID              00038900
         DS    1H
         EJECT                                                          00039000
         ENDO                                                           00039100
         DO    &ARP97                                                   00039200
*                                                                       00039300
* 9700 ACTIVITY REQUEST PACKET - PSEUDO NAME IS ARP97                   00039400
*                                                                       00039500
TM#ARP   DSECT      OS/3 - VS/9 MUST USER ARP FORMAT                    00039600
*                                                                       00039700
TM#AFLGS DS    XL1                 ARP FLAG FIELD                       00039800
TM#ALINK DS    AL3                 LINK ADDRESS FIELD                   00039900
TM#AFUNC DS    XL1                 FUNCTION CODE FIELD                  00040000
TM#ACMPL DS    AL3                 COMPLETION ADDRESS FIELD             00040100
         DS    XL1                      NOT USED                        00040200
TM#ATASK DS    XL1                 TASK IDENTIFIER FIELD                00040300
TM#ACCAI DS    H                   CCA IDENTIFIER FIELD                 00040400
TM#ALNG1 EQU   *-TM#AFLGS                                               00040500
*                                                                       00040600
TM#AWADR DS    A                   USERS WORK AREA ADDRESS FIELD        00040700
TM#ADTFA DS    A                   USERS DTF ADDRESS FIELD              00040800
TM#AUPSW DS    A                   USERS PSW ADDRESS FIELD              00040900
TM#AQFLG DS    XL1                 QUEUE CONTROL FLAG FIELD             00041000
TM#AQADR DS    AL3                 QUEUE CONTROL ADDRESS FIELD          00041100
         ORG   TM#AQFLG                                                 00041200
TM#AQCTL DS    F                   QUEUE CONTROL FIELDS                 00041300
TM#ANBSZ DS    H                   NETWORK BUFFER SIZE FIELD            00041400
TM#AWASZ DS    H                   WORK AREA SIZE FIELD                 00041500
TM#ADLPR DS    XL1                 DLIST PRIORITY SAVE FIELD            00041600
         ORG   TM#ADLPR                                                 00041700
TM#ADLST DS    A                   DLIST ADDRESS FIELD                  00041800
TM#ASAVE DS    A                   SAVE LOCATION                        00041900
*                                                                       00042000
TM#ALNGH EQU   *-TM#AFLGS                                               00042100
         EJECT                                                          00042200
         ENDO                                                           00042300
         DO    &BASTAB                                                  00042400
*                 .............................................         00042500
*              BASIC ACTIVITY CONTROL TABLE PICTURE                     00042600
*                 .............................................         00042700
*                      +0         +1         +2         +3              00042800
*                 .............................................         00042900
*              W1 : TN#ABSY  :            TN#A00              : B 3     00043000
*                 .............................................         00043100
*              W2 :                     TN#AIOHD              : B 7     00043200
*                 .............................................         00043300
*              W3 :                     TN#AIOTL              : B11     00043400
*                 .............................................         00043500
*              W4 :                     TN#AMCHD              : B15     00043600
*                 .............................................         00043700
*              W5 :                     TN#AMCTL              : B19     00043800
*                 .............................................         00043900
*              W6 :                     TN#AUSHD              : B23     00044000
*                 .............................................         00044100
*              W7 :                     TN#AUSTL              : B27     00044200
*                 .............................................         00044300
*                                                                       00044400
* BASIC ACTIVITY CONTROL TABLE                                          00044500
         DO    &VS9                                                     00044600
*                                                                       00044700
*  SLOT FOR MCP FOLLOWED BY SLOTS FOR EACH 2NDARY TASK                  00044800
*  CURRENTLY THE ONLY 2NDARY TASK IS THE OPERATOR TASK                  00044900
*                                                                       00045000
         ENDO  &VS9                                                     00045100
*                                                                       00045200
TN#ACTB  DSECT                                                          00045300
*                                                                       00045400
TN#AFLG1 DS    XL1                 . 1 MCP FLAG 1 (BYTE 0)              00045500
TN#ALOCK EQU   X'80'               .   FLAG 1 CCR LOCK                  00045600
TN#AUNLK EQU   X'7F'               .   FLAG 1 CCR UNLOCK                00045700
TN#AECCR EQU   X'40'               . CCR USER INTERFACE CODE ACTIVE     00045800
TN#AEPTG EQU   X'20'               . TIMER SERVICES ACTIVE DUE TO ETPTG 00045900
TN#AEPIO EQU   X'10'               . CONTROL PASSED TO CPIOCS           00046000
TN#AETIM EQU   X'08'               . TIMER SERVICES ACTIVE DUE TO OSW   00046100
TN#AECNC EQU   X'04'               . CNC QUE SCAN ACTIVE                00046200
TN#AEQUE EQU   X'02'               . ICAM ACTIVE FROM MCP QUE           00046300
TN#AEIRL EQU   X'01'               . ICAM ACTIVE DUE TO IRL             00046400
TN#AEMSK EQU   X'80'               . MASK KFOR CLEARING ACTIVITY FLAGS  00046500
*                                                                       00046600
TN#ALAST DS    XL3                 . LAST ICAM ENTRY/IRL/RELEASE ADDRES 00046700
*                                  .  OTHER THAN FOR ACTIVITY CONTROL   00046800
         DO    &TRANS=0                                                 00046900
TN#ADRIO DS    A                       A(CCUR,CPI ENTRY)                00047000
         ENDO  &TRANS=0                                                 00047100
*                                                                       00047200
         DO    &VS9=0                                                   00047300
TN#AMQ   DS    A                   . 4 MCP QUEUE HEAD                   00047400
TN#AMQT  DS    A                   . 4 MCP QUEUE TAIL                   00047500
TN#ASTQS EQU   TN#AMQ                                                   00047600
         DS    8F                      REMAINDER OF Q HEAD,TAILS        00047700
.*                                     QUEUES MUST BE LAST IN SLOT      00047800
TN#AQCNT EQU   (*-TN#ASTQS)/(2*L'TN#ASTQS) # OF Q ENTRIES               00047900
         ENDO  &VS9=0                                                   00048000
         DO    &VS9                                                     00048100
TN#ASSM  DS    F                       SAVE OF INTERRUPT MASK           00048200
TN#ANETP DS    &LARP.F                 DEDICATED ARP FOR NETREQ         00048300
TN#ASTQS DS    A                       HEAD HI PRIORITY Q (Q5)          00048400
         DS    A                       TAIL HI PRIORITY Q(Q5)           00048500
         DS    A                       HEAD Q4                          00048600
         DS    A                       TAIL Q4                          00048700
         DS    A                       HEAD Q3                          00048800
         DS    A                       TAIL Q3                          00048900
         DS    A                       HEAD Q2                          00049000
         DS    A                       TAIL Q2                          00049100
         DS    A                       HEAD LO PRIORITY Q(Q1)           00049200
         DS    A                       TAIL LO PRIORITY Q(Q1)           00049300
TN#AQCNT EQU   (*-TN#ASTQS)/(2*L'TN#ASTQS) # OF Q ENTRIES               00049400
*                                        TO ACT WANTS IRL RETURN        00049500
TN#APUNC EQU   X'02'                   PEND/UNPEND CODE                 00049600
         SPACE 1                                                        00049700
TN#A2CNT DS    1H                      COUNT OF 2NDARY TASKS            00049800
         DS    1H                      UNUSED                           00049900
         SPACE 1                                                        00050000
TN#ALMCP EQU   *-TN#ACTB               L'MCP SLOT                       00050100
*                                    REPEATED FOR EACH 2NDARY TASK      00050200
TN#A2NRH DS    A                       QUEUE HEADER                     00050300
TN#A2NRT DS    A                       QUEUE TAIL                       00050400
TN#A2NTC DS    A                       TSK#/A(TCB)                      00050500
TN#A2NDL EQU   *-TN#A2NRH              L'2NDARY TASK SLOT               00050600
         ENDO  &VS9                                                     00050700
         EJECT                                                          00050800
         ENDO                                                           00050900
         DO    &BPOOL                                                   00051000
*                 ...............................................       00051100
*              BUFFER POOL CONTROL TABLE PICTURE                      * 00051200
*                 ...............................................       00051300
*                 +    0     +     1    +     2    +     3      +       00051400
*                 ...............................................       00051500
*              W1 :                  TN#BHEAD                   : B 3   00051600
*                 ...............................................       00051700
*              W2 :                  TN#BTAIL                   : B 7   00051800
*                 ...............................................       00051900
*              W3 :       TN#BTOT     :       TN#BPAV           : B11   00052000
*                 ...............................................       00052100
*              W4 :       TN#BTHVL    :       TN#BSIZE          : B15   00052200
*                 ...............................................       00052300
*              W5 :       TN#BHOFS    :       TN#BCOFS          :  B19  00052400
*                 ...............................................       00052500
*                                                                       00052600
* BUFFER POOL CONTROL TABLE                                             00052700
*                                                                       00052800
TN#BPOOL DSECT                                                          00052900
TN#BHEAD DS    A                        . FIRST FREE BUFFER OR HEAD     00053000
TN#BHED3 EQU   TN#BHEAD+1,3        . 3 THREE BYTE QUEUE HEAD ADDR.      00053100
TN#BTAIL DS    A                        . LAST FREE BUFFER OR TAIL      00053200
TN#BTOT  DS    H                        . TOTAL BUFFERS IN POOL         00053300
TN#BPAV  DS    H                        . NUMBER BUFFERS AVAILABLE      00053400
TN#BTHVL DS    H                        . POOL THRESHOLD VALUE          00053500
TN#BSIZE DS    H                        . BUFFER SIZE IN BYTES.         00053600
TN#BHOFS DS    H                   . HEADER OFFSET IN BYTES.            00053700
TN#BCOFS DS    H                   . CONTINUATION OFFSET IN BYTES.      00053800
TN#BTHPN DS    H                   . THRESHOLD PENETRATION COUNTER      00053900
TN#BFLGS DS    X                   . THRESHOLD CONTROL FLAGS            00054000
TN#BPFLG DS    X                   . BUFFER POOL FLAGS                  00054100
*                                                                       00054200
*    TN#BPFLG VALUES                                                    00054300
*                                                                       00054400
TN#BDIR  EQU   X'80'               . DEFER REQ WT IMMEDIATE RETURN      00054500
TN#BDFER EQU   X'40'               . DEFERRED REQUEST                   00054600
TN#BSAP  EQU   X'02'               . STATISTICS AREA PRESENT            00054650
TN#BDSP  EQU   X'01'                    . DEFERRAL SLOT PRESENT         00054700
         DO    &VS9                                                     00054710
TN#BVS9  DS    A                   . BUFFER POOL BASE ADDRESS           00054720
         ENDO                                                           00054730
TN#BPAQ  DS    A                   . DEFERRED REQUEST ARP QUEUE (OPT)   00054800
TN#BSTAT EQU   *                   . START STATISTICS AREA (OPT)        00054850
         DO    &TRANS                                                   00054900
*  TRANSIENT MCP BPOOL EQU'S                                            00055000
TN#NETBF EQU   TN#BHEAD            . ADDR TRANS ONLY NET BUFFER         00055100
TN#NBRDH EQU   TN#BTAIL            . ADDR NET BUFFER + HDR OFFSET       00055200
TN#OPLB2 EQU   TN#BTOT,4           . OUTPUT LINE BUFFER ADDR.           00055300
TN#OPLBS EQU   TN#BTHVL            . OUTPUT LINE BUFFER SIZE. L2.       00055400
TN#IPLBS EQU   TN#BCOFS            . INPUT LINE BUFFER SIZE. L2.        00055500
TN#IPLB2 EQU   TN#BTHPN,4          . INPUT LINE BUFFER ADDR.            00055600
*                                                                       00055700
         ENDO                                                           00055800
*                                                                       00055900
         EJECT                                                          00056000
         ENDO                                                           00056100
         DO    &CCACON                                                  00056200
*                                                                       00056300
* CCA CONTROL SECTION                                                   00056400
*                                                                       00056500
TN#CNTRL DSECT                                                          00056600
TN#CNAM  DS    A                   . 4 NETWORK NAME.                    00056700
TN#CPSWD DS    CL8                 . 8 NETWORK PASSWORD.                00056800
TN#CTCB  DS    A                   . JOB OR TASK CONTROL BLOCK ADDRESS  00056900
TN#CLIN  DS    A                   . FIRST LINE CONTROL TABLE           00057000
*                                  . BUFFER POOL TABLES                 00057100
TN#CARPT DS    A                   . ADDRESS OF ARP BUFFER POOL         00057200
TN#CDTAT DS    A                   . ADDRESS OF DATA BUFFER POOL        00057300
TN#CPRCS DS    A                   . LINK TO FIRST PROCESS FILE         00057400
TN#CDTBL DS    A                   . DESTINATION TABLE ADDRESS          00057500
TN#CPLOW DS    A                   . USER PROGRAM LOWER OFFSET          00057600
TN#CPUP  DS    A                   . USER PROGRAM UPPER OFFSET          00057700
TN#CERRT DS    A                   . USER ERROR RETURN ADDRESS          00057800
TN#CNTYP DS    XL1                 . NETWORK TYPE                       00057900
*        DEFINE INDICATORS IN TN#CNTYP                                  00058000
TN#CIMS  EQU   X'80'               .   OS/7 NOTATION. NOT USED OS/3     00058100
TN#CRJE  EQU   X'40'               .   RJE NETWORK                      00058200
TN#CRBP  EQU   TN#CRJE             .   REMOTE BATCH PROCESSING (RBP)    00058300
TN#CTCI  EQU   X'20'               .   TCI NETWORK                      00058400
TN#CNTR  EQU   X'10'               .   NINE THOUSAND REMOTE (NTR)       00058500
TN#CSMCP EQU   X'08'               .   STANDARD MCP NETWORK             00058600
TN#CMINI EQU   TN#CSMCP            .   OS/7 NOTATION. NOT USED OS/3     00058700
TN#CMIDI EQU   TN#CSMCP            .   OS/7 NOTATION. NOT USED OS/3     00058800
TN#CMAXI EQU   TN#CSMCP            .   OS/7 NOTATION. NOT USED OS/3     00058900
TN#CDDI  EQU   X'01'               .   DDI NETWORK CONFIGURATION        00059000
*  NTR IS DDI NETWORK. TYPE = TN#CNTR++TN#CDDI                          00059100
*  RBP IS DDI NETWORK. TYPE = TN#CRBP++TN#CDDI                          00059200
*                                                                       00059300
TN#CFLGS DS    XL3                 . NETWORK FLAGS                      00059400
*        DEFINE FLAGS IN TN#CFLGS                                       00059500
TN#CTHRS EQU   X'80'               .   BUFFER THRESHOLD REACHED         00059600
TN#CINIT EQU   X'40'               .   AUTOMATIC INITIALIZATION OPTION  00059700
TN#CRST  EQU   X'10'                    . RESTART OPTION                00059705
TN#CCAID DS    1H                  . 2 CCA/SLOT INDEX                   00059800
         DS    1H                  . 2 OPEN                             00059900
TN#CDQF  DS    A                   . A(FIRST-DISC-QUEUE-DTF)            00059950
*
TN#CFDTF DS    A                          ADD OF FIRST JRN DTF
TN#CCDTF DS    A                          ADD OF CURRENT JRN DTF
TN#CLDTF DS    A                          ADD OF LAST    JRN DTF
TN#CLJRN DS    A                          LAST JRNL REC NO.
TN#CJECM DS    XL1                        JRNL ENTRY CONTROL MAP
*                                                                       00060000
*        FOLLOWING LOCATIONS PRESENT IF TCI NETWORK                     00060100
*                                                                       00060200
TN#CTCS  DS    A                   . ADDRESS OF USER TCS TABLE          00060300
TN#CICNT DS    A                   . TOTAL INPUT TRANSACTION COUNT      00060400
TN#CSDTF DS    A                   . SAT DTF ADDRESS                    00060500
TN#CSWA  DS    A                   . ADDRESS SAT INPUT WORK AREA        00060600
TN#CNSPN DS    XL2                 . SECTORS PER NETBUF                 00060700
TN#CMUWA DS    XL2                 . IF DISC BUFF OUT- MAXIMUM UWA SIZ' 00061000
TN#CTECB DS    A                   . TCI I/O TCB ECB(DOUBLE WORD)       00061100
         DS    A                                                        00061200
TN#CTCIB DS    A                   . TCI I/O TASK ADDRESS               00061300
TN#CTHD  DS    A                   . TCI I/O QUEUE HEAD                 00061400
TN#CTIM  DS    0F                       . VS/9 TIME                     00061401
TN#CTAIL DS    A                   . TCI I/O QUEUE TAIL                 00061500
TN#CSREG DS    A                   . TCI - SAT REG SAVE AREA ADDRESS    00061600
         EJECT                                                          00061700
         ORG   TN#CTCS                                                  00061800
.* .                                                                    00061900
.* .     RBP LOCATIONS OVERLAY TCI LOCATIONS                            00062000
.* .                                                                    00062100
TN#CBSEH DS    A                        . BSET HEADER ADDRESS           00062200
TN#CRBPA DS    A                        . RBP ARP POOL ADDRESS          00062300
TN#CRBPS DS    A                        . RBP STATUS MESSAGE POOL ADR   00062400
TN#CRCCB DS    A                       . CCB POOL ADDRESS               00062500
TN#CRFCB DS    A                       . FCB POOL ADDRESS               00062600
TN#CFSCT DS    A                       . FSCT POOL ADDRESS              00062700
TN#CRHD  DS    A                   . RBP QUEUE HEAD                     00062800
TN#CRTL  DS    A                   . RBP QUEUE TAIL                     00062900
TN#CRTCB DS    A                   . RBP SUBTASK TCB ADDRESS            00063000
TN#CRECB DS    A                   . RBP SUBTASK ECB ADDRESS            00063100
         DS    A                   . CONTINUATION OF ECB                00063200
TN#CRUID DS    A                   . ADDRESS OF USERID TABLE            00063300
         ENDO                                                           00063400
         DO    &CPIOCP                                                  00063500
*        REVISED    01/09/76                                            00063600
*                 ...............................................       00063700
*              CPIOCP PICTURE                                           00063800
*                 ...............................................       00063900
*                 +    0     +     1    +     2     +    3      +       00064000
*                 ...............................................       00064100
*              W1 : TN#PRTY  :             TN#PRESV             : B 3   00064200
*                 ...............................................       00064300
*              W2 :                  TN#PFCPL                   : B 7   00064400
*                 ...............................................       00064500
*              W3 : OPEN     : TN#PTNDX :       TN#PCNDX        : B15   00064600
*                 ...............................................       00064700
*              W4 : TN#PRIM  : TN#PDETL :       TN#PSTAT        : B15   00064800
*                 ...............................................       00064900
*              W5 :      TN#PSENS       :        TN#PRBC        : B19   00065000
*                 ...............................................       00065100
*              W6 : TN#PCMMD :             TN#PBADR             : B23   00065200
*                 ...............................................       00065300
*              W7 :      TN#PTIME       :       TN#PBLTH        : B27   00065400
*                 ...............................................       00065500
*              W8 : TN#PFUNC :             TN#PLINK             : B31   00065600
*                 ...............................................       00065700
*              W9 : TN#PFLGS :             TN#PLCT              : B35   00065800
*                 ...............................................       00065900
*             W10 :      TN#PMUX        :       OPEN            : B39   00066000
*                 ................................... ...........       00066100
*                                                                       00066200
*                                                                       00066300
TN#PARP  DSECT           GOVERNS COMMUNICATION PHYSICAL INTERFACE--CPI  00066400
*                                                                       00066500
TN#PRTY  DS    XL1                      . PRIORITY                      00066600
TN#PIRL  EQU   X'80'                    . IRL                           00066700
TN#PRESV DS    XL3                      . RESERVED FOR ACT CNTRL LINK   00066800
TN#PFLG1 EQU   TN#PRESV,1               .   TEMPORARY CPIOCS FLAG FIELD 00066900
*                                       .   USES TN#PFS AND TN#PFL      00067000
TN#PCONT EQU   X'20'                    .   CONTIGUOUS BUFF-BCW CONTROL 00067100
TN#PCNTA EQU   X'10'                    .   CONTIG BUFF--DELINK CONTROL 00067200
*                                             USED FOR BUFFERS > 1024   00067300
TN#PFLG2 EQU   TN#PRESV+1,1             .   TEMPORARY CPIOCS FLAG FIELD 00067400
*                                       .   USES FUNCTION EQUATES       00067500
TN#PFLG3 EQU   TN#PRESV+2,1             .   TEMPORARY CPIOCS FLAG FIELD 00067600
*                                             HOLDS ACTIVE PORT NUMBER  00067700
TN#PFCPL DS    XL4                      . FULL WORD COMPLETION ADDRESS  00067800
TN#PCMPL EQU   TN#PFCPL+1,3             . 3 BYTE COMPLETION ADDRESS     00067900
         DS    XL1                     OPEN                             00068000
TN#PINPT EQU   X'01'                    .   INPUT = 1, OUTPUT = 0       00068100
TN#PTNDX DS    1C                      TASK INDEX                       00068200
TN#PCNDX DS    H                       SLOT INDEX                       00068300
TN#PRIM  DS    XL1                      . PRIMARY STATUS                00068400
*                                                                       00068500
TN#PEND  EQU   X'01'                    .   FUNCTION/MESSAGE COMPLETION 00068600
TN#PERND EQU   X'02'                    .   ERROR COMPLETION            00068700
TN#PLLE  EQU   X'04'                    .   LINK LEVEL EXCEPTION        00068800
TN#PROGE EQU   X'08'                    .   PROGRAM ERROR               00068900
TN#PHDWR EQU   X'10'                    .   HARDWARE ERROR--DON'T RETRY 00069000
TN#PITST EQU   X'20'                    .   IDLE TIME STATUS            00069100
*                                                                       00069200
TN#PDETL DS    XL1                      . DETAILED STATUS               00069300
*                                                                       00069400
*                                       . FOR TN#PEND                   00069500
TN#PEOM  EQU   X'80'                    .   SUCCESSFUL FUNCTION COMPL   00069600
TN#PBCI  EQU   X'20'                    .   BUFFER COMPLETION           00069700
TN#PGIVB EQU   X'02'                    .   RETURN OF CPIOCP'S DUE TO   00069800
*                                              IMMEDIATE TURN OFF       00069900
*                                                                       00070000
*                                       . FOR TN#PERND                  00070100
TN#PTRNC EQU   X'10'                    .   BUFFER COMPLETION, NO EOM,  00070200
*                                           NO MORE BUFFERS, TN#PFL=0   00070300
TN#P0ICC EQU   X'04'                    .   INPUT EOM WITH INPUT        00070400
*                                           CHARACTER COUNT EQUAL TO 0  00070500
TN#PIMPR EQU   X'01'                    .   IMPROPER STATUS CONDITION   00070600
*                                                                       00070700
*                                       . FOR TN#PLLE                   00070800
TN#PORUN EQU   X'80'                    .   INPUT OVERRUN               00070900
TN#PDCHK EQU   X'40'                    .   DATA CHECK:  LRC/CRC OR     00071000
*                                           CHARACTER PARITY ERROR      00071100
TN#PABRT EQU   X'20'                    .   ABORT                       00071200
TN#PTIMD EQU   X'10'                    .   CPIOCP TIMEOUT              00071300
TN#PTIMP EQU   X'08'                    .   CA TIMEOUT                  00071400
TN#PCARF EQU   X'04'                    .   CARRIER OFF OR DIAL FAILURE 00071500
TN#PGSSE EQU   X'02'                    .   GENERAL SUBSYSTEM ERROR     00071600
TN#PBUSY EQU   X'01'                    .   BUSY STATUS AT SIO TIME     00071700
*                                                                       00071800
*                                       . FOR TN#PROGE                  00071900
TN#PFRMT EQU   X'80'                    .   CPIOCP FORMAT/PROCEDURE ERR 00072000
TN#PLRLE EQU   X'40'                    .   CCRU LINE REQUEST LINE ERR  00072100
TN#PLRTE EQU   X'20'                    .   CCRU LINE REQ CA TABLE ERR  00072200
TN#PABPE EQU   X'10'                    .   AUTOBUFFER POOL EMPTY/ILG   00072300
TN#PABOE EQU   X'08'                    .   AUTOBUFFER OFFSET ERROR     00072400
TN#PCBPE EQU   X'04'                    .   CCRU BUFFER POOL EMPTY      00072500
TN#PMNCE EQU   X'02'                    .   MAX NUMBER OF CCRU EXCEEDED 00072600
*                                                                       00072700
*                                       . FOR TN#PHDWR                  00072800
TN#PCREJ EQU   X'80'                    .   COMMAND REJECT              00072900
TN#PBUSO EQU   X'40'                    .   BUS OUT CHECK               00073000
TN#PCHAN EQU   X'20'                    .   CHANNEL ERROR               00073100
TN#PDSRF EQU   X'10'                    .   DATA SET READY OFF/DTR ON   00073200
TN#POPNL EQU   X'08'                    .   OPEN LINE                   00073300
TN#PDCON EQU   X'04'                    .   DISCONNECT                  00073400
TN#PNOOP EQU   X'02'                    .   NOT OPERATIONAL, UNIT EXCEP 00073500
TN#PIMLE EQU   X'01'                    .   INPUT MSG LENGTH EXCEEDED   00073600
*                                                                       00073700
*                                       . FOR TN#PITST                  00073800
TN#PRING EQU   X'40'                    .   RING INDICATOR              00073900
TN#PBRK  EQU   X'20'                    .   BREAK                       00074000
TN#PSPMK EQU   X'02'                    .   SPACE TO MARK               00074100
*                                                                       00074200
TN#PSTAT DS    XL2                      . DEVICE AND CHANNEL STATUS     00074300
TN#PSENS DS    XL2                      . SENSE BYTES                   00074400
TN#PSEN1 EQU   TN#PSENS,1               .   SENSE BYTE 1                00074500
TN#PSEN2 EQU   TN#PSENS+1,1             .   SENSE BYTE 2                00074600
TN#PCFEC EQU   TN#PSEN2,1               .   CCRU CPIOCP FORMAT ERR CODE 00074700
*                                                                       00074800
TN#PRBC  DS    XL2                      . RESIDUAL BYTE COUNT, OR       00074900
*                                           INPUT CHARACTER COUNT       00075000
*                                                                       00075100
TN#PCMMD DS    XL1                      . HARDWARE COMMAND              00075200
TN#PBADR DS    XL3                      . LINE BUFFER ADDR              00075300
TN#PTIME DS    H                        . TIME ALLOTMENT                00075400
TN#PBLTH DS    H                        . LINE BUFFER LENGTH            00075500
TN#PFUNC DS    XL1                      . SOFTWARE FUNCTION             00075600
TN#PFS   EQU   X'80'                    .   START DATA CHAIN/SIO        00075700
TN#PFL   EQU   X'40'                    .   STOP DATA CHAIN             00075800
TN#PFSL  EQU   X'C0'                    .   START AND STOP DATA CHAIN   00075900
*                                       . LOGICAL COMMAND FUNCTIONS     00076000
*                                       . BITS 2-7                      00076100
TN#PWAIT EQU   X'3F'                    .   WAIT FOR IDLE STATUS INTR   00076200
TN#PIOFF EQU   X'00'                    .   IMMEDIATE PORT TURN OFF     00076300
TN#PDTR  EQU   X'01'                    .   SET DTR AND IN-DATA-FF      00076400
TN#PSEND EQU   X'02'                    .   ENABLE DATA OUTPUT          00076500
TN#PDIAL EQU   X'03'                    .   DIAL                        00076600
TN#PSPAC EQU   X'04'                    .   SEND SPACE                  00076700
TN#PSMRK EQU   X'05'                    .   SEND MARK                   00076800
TN#PSIDL EQU   X'06'                    .   SEND IDLE                   00076900
TN#PEDI  EQU   X'07'                    .   ENABLE DATA INPUT           00077000
TN#PON   EQU   X'07'                                                    00077100
TN#PNSYN EQU   X'08'                    .   NEW SYNC                    00077200
TN#PLSYN EQU   X'09'                    .   IMMEDIATE LOOK FOR SYNC,    00077300
*                                           NO DATA TRANSFER PROCESSED  00077400
TN#POFF  EQU   X'0A'                    .   PORT TURNOFF (CLEAR ACTIVE) 00077500
TN#PDISC EQU   X'0B'                    .   DISCONNECT                  00077600
TN#PSBSY EQU   X'0C'                    .   SET BUSY                    00077700
TN#PLACL EQU   X'0D'                    .   LA CLEAR                    00077800
TN#PDSRM EQU   X'0E'                    .   ENABLE DATA SET READY MONTR 00077900
TN#PFLDX EQU   X'0F'                    .   SET FULL DUPLEX             00078000
TN#PTEST EQU   X'10'                    .   LA TEST/CMM TEST            00078100
TN#PMODT EQU   X'11'                    .   MODEM TEST                  00078200
TN#PLATO EQU   X'12'                    .   LINE ADAPTER TURN OFF       00078300
TN#PRTS  EQU   X'13'                    .   ENABLE DATA OUTPUT,         00078400
*                                           DON'T CLEAR REQUEST TO SEND 00078500
TN#PIDLT EQU   X'14'                    .   SEND IDLE.  THIS IS NOT AN  00078600
*                                           IMMEDIATE FUNCTION.  A CA   00078700
*                                           OR CPIOCP TIMEOUT RESULTS   00078800
*                                           IN SUCCESSFUL FUNCTION      00078900
*                                           COMPLETION STATUS.          00079000
TN#PLB14 EQU   X'15'                    .   LOAD PORT CONTROL WORD      00079100
*                                           (BYTES 1-4)                 00079200
TN#PLB24 EQU   X'16'                    .   LOAD CONTROL BYTES 2,3,4    00079300
TN#PLB34 EQU   X'17'                    .   LOAD CONTROL BYTES 3,4      00079400
TN#PLB4  EQU   X'18'                    .   LOAD CONTROL BYTE 4         00079500
TN#PLCD1 EQU   X'19'                    .   LOAD CNTRL CHAR DETECT TBL1 00079600
TN#PLCD2 EQU   X'1A'                    .   LOAD CNTRL CHAR DETECT TBL2 00079700
TN#PLCD3 EQU   X'1B'                    .   LOAD CNTRL CHAR DETECT TBL3 00079800
TN#PLCD4 EQU   X'1C'                    .   LOAD CNTRL CHAR DETECT TBL4 00079900
TN#PLCI1 EQU   X'1D'                    .   LOAD CNTRL INTPR TABLE 1    00080000
TN#PLCI2 EQU   X'1E'                    .   LOAD CNTRL INTPR TABLE 2    00080100
TN#PLCI3 EQU   X'1F'                    .   LOAD CNTRL INTPR TABLE 3    00080200
TN#PLCI4 EQU   X'20'                    .   LOAD CNTRL INTPR TABLE 4    00080300
TN#PRPCW EQU   X'21'                    .   READ PORT CONTROL WORD      00080400
TN#PRCD1 EQU   X'22'                    .   READ CNTRL CHAR DETECT TBL1 00080500
TN#PRCD2 EQU   X'23'                    .   READ CNTRL CHAR DETECT TBL2 00080600
TN#PRCD3 EQU   X'24'                    .   READ CNTRL CHAR DETECT TBL3 00080700
TN#PRCD4 EQU   X'25'                    .   READ CNTRL CHAR DETECT TBL4 00080800
TN#PRCI1 EQU   X'26'                    .   READ CNTRL INTPR TABLE 1    00080900
TN#PRCI2 EQU   X'27'                    .   READ CNTRL INTPR TABLE 2    00081000
TN#PRCI3 EQU   X'28'                    .   READ CNTRL INTPR TABLE 3    00081100
TN#PRCI4 EQU   X'29'                    .   READ CNTRL INTPR TABLE 4    00081200
*        EQU   X'2A'                    .   RESERVED                    00081300
TN#PLREL EQU   X'2B'                    .   CCRU LINE RELEASE           00081400
TN#PLREQ EQU   X'2C'                    .   CCRU LINE REQUEST           00081500
TN#PRLLT EQU   X'2D'                    .   CCRU READ LINE LINK TABLE   00081600
TN#PCATD EQU   X'2E'                    .   CCRU READ CA TABLES DIR     00081700
TN#PNREQ EQU   X'2F'                    .   CCRU 'NETWORK' REQUEST      00081800
TN#PNREL EQU   X'30'                    .   CCRU 'NETWORK' RELEASE      00081900
TN#PLINK DS    XL3                      . CPIOCS LINK ADDRESS           00082000
TN#PLNKF EQU   TN#PFUNC,4               . FULL WORD LINK ADDRESS        00082100
TN#PFLGS DS    XL1                      . FLAG FIELD                    00082200
TN#PAUTO EQU   X'80'                    .   AUTO INPUT BUFFER           00082300
TN#PCIX  EQU   X'40'                    .   SUPPRESS BUFFER COMPLETION  00082400
*                                           INTERRUPT (BCI) REPORTING   00082500
TN#PESO  EQU   X'20'                    .   ERROR SCHEDULE ONLY         00082600
TN#PANPS EQU   X'E0'                    .   AUTOBUFFER, NO BCI/SCHED    00082700
TN#PABNP EQU   X'C0'                    .   AUTOBUFFER, NO BCI          00082800
TN#PNPS  EQU   X'60'                    .   NO BCI REPORT OR MSG SCHED  00082900
TN#PS2F  EQU   X'10'                    .   SUPPRESS SECONDARY FUNCT    00083000
TN#PTRNP EQU   X'08'                    .   BI-SYNC TRANSPARENT MODE    00083100
TN#PDTNS EQU   X'04'                    .   DELINK NO FARTHER THAN NEXT 00083200
*                                           CPIOCP WITH TN#PFS SET--    00083300
*                                           DELINK TO NEXT START OF MSG 00083400
TN#PCC   EQU   X'03'                    .   SAVES CONDITION CODE        00083500
TN#PLCT  DS    XL3                      . RDH LCT ADDRESS/CCRU AUTOBUF- 00083600
*                                         FER POOL ADDRESS/CCRU LINE    00083700
*                                         REQUEST FIELDS/DIAGNOSTIC     00083800
*                                         TRACE TABLE ADDRESS           00083900
TN#PLCTF EQU   TN#PFLGS,4               .   FULL WORD ADDRESS           00084000
         ORG   TN#PLCT                  .   CCRU LINE REQUEST FIELDS:   00084100
TN#PRQFG DS    XL1                      .     LINE REQUEST FLAG FIELD   00084200
TN#PRDT  EQU   X'04'                    .       REQ DIAGNOSTIC TRACE    00084300
TN#PRFDQ EQU   X'02'                    .       REQ FULL DUPLEX QUEING  00084400
TN#PRFUL EQU   X'01'                    .       REQ FULL DUPLEX LINE    00084500
TN#PDSPL DS    XL1                      .     CA TABLES DISCPLINE ID    00084600
TN#PUDID EQU   X'80'                    .   USER DISCIPLINE ID          00084700
TN#PCAID DS    XL1                      .     CA TABLES ID              00084800
TN#PMUX  DS    0H                      A(CHANNEL,PORT)                  00084900
TN#PCHNL DS    1C                        A(CHANNEL)                     00085000
TN#PPORT DS    1C                        A(PORT)                        00085100
         DS    H                       OPEN                             00085200
TN#PLNG  EQU   *-TN#PARP                . LENGTH OF CPIOCP              00085300
         EJECT                                                          00085400
         ENDO                                                           00085500
         DO    &DCT                                                     00085600
*                                                                       00085700
* DEVICE CONTROL TABLE - PSEUDO NAME IS DCT                             00085800
*                                                                       00085900
TN#DCT   DSECT                                                          00086000
TN#DADDR DS    XL1                 . 1 DEVICE ID FOR ADDRESSING         00086100
TN#DTYPE DS    XL1                 . 1 DEVICE TYPE                      00086200
TN#DDIN  DS    XL1                 . 1 INDEX OF THIS DCT                00086300
TN#DFLGS DS    XL1                 . 1 FLAGS                            00086400
TN#DLAST EQU   X'80'               . LAST DEVICE FLAG                   00086500
TN#DGBMD EQU   X'40'               . DEV TO GO BATCH MODE (BATCH 1000)  00086600
         DS    0F                                                       00086700
TN#DLNTH EQU   *-TN#DCT            . LENGTH OF DCT                      00086800
*                                                                       00086900
*        FOLLOWING VALUES USED FOR U100 AUXILIARY DEVICE TYPES          00087000
*                                                                       00087100
TN#DCOP  EQU   X'10'               . COMMUNICATIONS OUTPUT PRINTER      00087200
TN#DNIP  EQU   X'20'               . NON IMPACT PRINTER                 00087300
TN#DTCS  EQU   X'40'               . TAPE CASSETTE SYSTEM               00087400
*                                                                       00087500
*        FOLLOWING FOR TTY/DCT500 AND U100/DCT1000 DEVICE TYPES         00087600
*                                                                       00087700
TN#DTCSW EQU   X'42'               . TAPE CASSETTE WRITE                00087800
TN#DTCSR EQU   X'44'               . TAPE CASSETTE READ                 00087900
TN#DPRT  EQU   X'81'               . DCT PRINTER                        00088000
TN#DKEY  EQU   X'82'               . DCT KEYBOARD                       00088100
TN#DCDR  EQU   X'83'               . DCT CARD READER                    00088200
TN#DCDP  EQU   X'84'               . DCT CARD PUNCH                     00088300
TN#DPTR  EQU   X'85'               . DCT PAPER TAPE READER              00088400
TN#DPTP  EQU   X'86'               . DCT PAPER TAPE PUNCH               00088500
TN#DD4I  EQU   X'87'               . DCT DEVICE 4 INPUT                 00088600
TN#DD4O  EQU   X'88'               . DCT DEVICE 4 OUTPUT                00088700
         EJECT                                                          00088800
         ENDO                                                           00088900
         DO    &DESTBL                                                  00089000
*                                                                       00089100
* DESTINATION TABLE ENTRY - PSEUDO NAME IS DESTBL                       00089200
*                                                                       00089300
TN#EDTBL DSECT                          FOR EACH TERM, FPRCS, & DLIST   00089400
TN#ENAME DS    CL4                      DESTINATION NAME                00089500
TN#EFLGS DS    XL1                      FLAGS                           00089600
*              FOLLOWING USED W/TN#EFLGS                                00089700
TN#END   EQU   X'80'                   LAST ENTRY                       00089800
TN#ELIST EQU   X'04'                   DLIST                            00089900
TN#EFILE EQU   X'02'                   PROCESS FILE                     00090000
TN#ETERM EQU   X'01'                   TERMINAL                         00090100
*                                                                       00090200
TN#EADDR DS    AL3                      TABLE (TERM, FPRCS, OR DLIST)   00090300
TN#EADR  EQU   TN#EFLGS,4              A(T/P/D TABLE) AS FULLWORD       00090400
TN#EDTL  EQU   *-TN#EDTBL              DESTINATION TABLE LENGTH         00090500
         EJECT                                                          00090600
         ENDO                                                           00090700
         DO    &DLIST                                                   00090800
*  DISTRIBUTION / FAST SELECT LIST - PSEUDO NAME IS DLIST               00090900
*                                                                       00091000
TN#DLIST DSECT      OS/3 - VS/9 DLIST OR FSEL FORMAT                    00091100
*                                                                       00091200
TN#DNAME DS    CL4                 DLIST OR FSEL NAME                   00091300
TN#DNEXT DS    H                   DISPLACEMENT TO NEXT LIST            00091400
TN#DLEN  DS    H                   NUMBER OF TN#DTERM/TN#DRSD ENTRIES   00091500
TN#DFLAG DS    XL1                 FLAG BYTE                            00091600
*                                                                       00091700
TN#DFSEL EQU   X'80'                    LIST IS FSEL FLAG               00091800
TN#DAT   EQU   X'40'                    FSEL ACTIVE FLAG                00091900
*                                                                       00092000
         DS    XL3                 NOT USED                             00092100
TN#DTERM DS    CL4                 FIRST TERMINAL NAME (DLIST)          00092200
         ORG   TN#DTERM                                                 00092300
TN#DRSD  DS    XL3                 FIRST RID-SID-DID (FSEL)             00092400
         DS    XL1                 NOT USED                             00092500
TN#DLNGH EQU   *-TN#DLIST                                               00092600
         EJECT                                                          00092700
         ENDO                                                           00092800
         DO    &DUST                                                    00092900
*                                                                     * 00093000
*        NETREQ/NETREL  LNEREQ/LNEREL ERRORS                          * 00093100
*                                                                     * 00093200
****                                                                  * 00093300
*                                                                       00093400
*        BYTE 1 ERRORS                                                  00093500
*                                                                       00093600
TU#DDTAE EQU   X'F0'               . DUST TABLE OUTSIDE USER REGION     00093700
TU#DDTBE EQU   X'E0'               . DUST TABLE NOT FULLWORD ASSIGNED   00093800
TU#DDTLE EQU   X'D0'               . DUST TABLE LENGTH INCORRECT        00093900
TU#DFE   EQU   X'C0'               . DUST TABLE FLAGS INCORRECT         00094000
TU#DRAN  EQU   X'C2'               . NETREQ WITH ALREADY ACTIVE NETWORK 00094100
TU#DERRA EQU   X'04'         . ERROR RETURN ADDR NOT IN USER REGION     00094200
TU#DPASS EQU   X'05'               . PASSWORD MISMATCH                  00094300
TU#DTCIA EQU   X'0B'               . NETREQ OF TCI NETWORK-INV TCS ADR  00094400
TU#DTCER EQU   X'06'               . TCI NETWORK DOES NOT MATCH CCA NWK 00094500
TU#DDSKE EQU   X'08'               . DISK ERROR OPENING A FILE          00094600
TU#DDSKA EQU   X'09'               . ATTACH ERROR OCCURRED - DISC QUE   00094700
TU#DDSKR EQU   X'0A'               . DISK ERROR READING A FILE - DISC Q 00094800
TU#DDSKF EQU   X'0C'               . FILE ERROR (FILE CHAR. DO NOT      00094900
*                                  . MATCH THOSE IN CCA) - DISC QUE     00095000
*                                                                       00095100
*        BYTE 2 ERRORS                                                  00095200
*                                                                       00095300
TU#DNLLT EQU   X'09'         . NO AVAIL. PORT, LINE CAN NOT BE MAPPED   00095400
TU#DNCCT EQU   X'0A'               . NO AVAILABLE CC TABLE FOR LINE TYP 00095500
TU#DLNNE EQU   X'80'               . LINE NAME SPECIFIED NON-EXISTENT   00095600
TU#DLAR  EQU   X'60'               . LINE NAME SPECIFIED ALREADY ACTIVE 00095700
*                                  . ALSO, LINE SPECIFIED ALREADY REL.  00095800
TU#JERR  EQU   X'0C'               . JRNFILE INITIALIZATION ERROR       00095810
         EJECT                                                          00095900
*                 ..........................................            00096000
*              NETWORK REQUEST/RELEASE MACRO                            00096100
*                 ..........................................            00096200
*                                                                       00096300
*                 +    0     +    1     +     2    +   3   +            00096400
*                 ..........................................            00096500
*              W1 : TQ#NER1  : TQ#NER2  :   UNUSED         : B 3        00096600
*                 ..........................................            00096700
*              W2 :                 TQ#NAME                : B 7        00096800
*                 ..........................................            00096900
*              W3 : TQ#NFLGS :           TQ#NERRO          : B 11       00097000
*                 ..........................................            00097100
*              W4 :                 TQ#NPSWD  (8 BYTES)    : B 15       00097200
*                 ..........................................            00097300
*              W5 :                 TQ#NPSWD CONT.         : B 19       00097400
*                 ..........................................            00097500
TQ#DSCTS DSECT                                                          00097600
TQ#START EQU   *                                                        00097700
         ORG   TQ#START            . GENERAL DUST MACRO TABLE           00097800
TQ#XTBL  EQU   *                   . USING NAME                         00097900
TQ#XERR  DS    0H                  . ERROR HALFWORD                     00098000
TQ#XER1  DS    XL1                 . ERROR BYTE ONE                     00098100
TQ#XER2  DS    XL1                 . ERROR BYTE TWO                     00098200
         EJECT                                                          00098300
         ORG   TQ#START            . NETWORK REQ/REL SYMBOLICS          00098400
TQ#NET   EQU   *                   . USING NAME                         00098500
TQ#NERR  DS    0H                  . ERROR HALFWORD                     00098600
TQ#NER1  DS    XL1                 . ERROR BYTE 1                       00098700
TQ#TCSAD EQU   TQ#NER1,4           . TRANS CONTROL SECTION ADDR. (TCI)  00098800
TQ#NER2  DS    XL1                 . ERROR BYTE 2                       00098900
         DS    H                   . UNUSED                             00099000
TQ#NAME  DS    CL4                 . NETWORK NAME                       00099100
TQ#NLLEN EQU   *-TQ#NET            . LENGTH OF NETREL TABLE             00099200
TQ#NFLGS DS    XL1                 . FLAG BYTE                          00099300
*                                                                       00099400
TQ#NINIT EQU   X'80'               . INITIALIZE ENTIRE NETWORK          00099500
TQ#NERRT EQU   X'40'               . ERROR RETURN ADDRESS IN TABLE      00099600
TQ#NPASS EQU   X'20'               . PASSWORD PARAM IN TABLE            00099700
TQ#NRSRT EQU   X'10'                    . RESTART OPTION                00099705
*                                                                       00099800
TQ#NERRO DS    XL3                 . ERROR RETURN ADDRESS               00099900
TQ#NERRA EQU   TQ#NFLGS,4          . ERROR RETURN ADDRESS (FULL WORD)   00100000
TQ#NPSWD DS    CL8                 . PASSWORD                           00100100
TQ#NQLEN EQU   *-TQ#NET            . LENGTH OF NETREQ TABLE             00100200
         EJECT                                                          00100300
*                 ..........................................            00100400
*              LINE REQUEST/RELEASE MACRO                               00100500
*                 ..........................................            00100600
*                 +    0     +    1     +     2    +   3   +            00100700
*                 ..........................................            00100800
*              W1 : TQ#LER1  : TQ#LER2  :   UNUSED         : B 3        00100900
*                 ..........................................            00101000
*              W2 :                 TQ#LNAME               : B 7        00101100
*                 ..........................................            00101200
*                                                                       00101300
*                                                                       00101400
*                                                                       00101500
         ORG   TQ#START            . LINE REQ/REL SYMBOLICS             00101600
TQ#LINE  EQU   *                   . USING NAME                         00101700
TQ#LERR  DS    0H                  . ERROR HALFWORD                     00101800
TQ#LER1  DS    XL1                 . ERROR BYTE 1                       00101900
TQ#LER2  DS    XL1                 . ERROR BYTE 2                       00102000
         DS    H                   . 2 UNUSED                           00102100
TQ#LNAME DS    CL4                 . LINE NAME                          00102200
TQ#LQLEN EQU   *-TQ#LER1           . LENGTH OF LNEREQ/LNEREL MACRO      00102300
         EJECT                                                          00102400
         ENDO                                                           00102500
         DO    &GENTAB                                                  00102600
*                                                                       00102700
*********************************************************************** 00102800
*********************************************************************** 00102900
         DO    &VS9                                                     00103000
EXVT     DXVT  D                                                        00103100
ETCB     DTCB  D                                                        00103200
ESTK     DSTK  D                                                        00103500
         EJECT                                                          00103600
TT#TSKWK DSECT                          EXTENSION OF TCB FOR IRL AND    00103700
*                                       OTHER REG SAVE AREAS, FOR MASK, 00103800
*                                       FOR SUBFUNCTION CODE SAVE AREA  00103900
*                                                                       00104000
*                                       TTICAM OF TCB IS POINTER TO     00104100
*                                       THIS CLASS 3 TASK ASSOCIATED    00104200
*                                       AREA.                           00104300
TT#TFC   DS    0H                       ICAM BALR SUBFUNCTION CODE      00104400
TT#TFC1  DS    1C                            BYTE 1                     00104500
TT#TFC2  DS    1C                            BYTE 2                     00104600
         DS    H                                                        00104700
TT#TMSK  DS    CL3                      SAVE OF ICAM MASK               00104800
TT#FLAG  DS    1C                       FOR FLAGS                       00104900
TT#TIRLL DS    16F                      SAVE REGISTERS                  00105000
*                                            1ST WORD IS A(GEN TABLE)   00105100
*                                            AND IS INITIALIZED BY DUST 00105200
*                                            WORDS 2-15 IS STORAGE FOR  00105300
*                                            REGS R4-R2.  IN THIS WAY   00105400
         ORG   TT#TIRLL+4                    STM R4,R2,TI#TIRLS SAVES   00105500
TT#TIRLS DS    1F                            ALL REGS EXCEPT R3(GENTAB) 00105600
*                                            AND LM R3,R2,TT#TIRLL      00105700
*                                            RESTORES ALL REGS          00105800
*                                            INCLUDING GEN TAB.         00105900
         ORG                                                            00106000
TT#TREG  DS    16F                      GEN PURPOSE SAVE AREA           00106100
         ORG   TT#TREG                                                  00106200
TT#TREG0 DS    1F                                                       00106300
TT#TREG1 DS    1F                                                       00106400
TT#TREG2 DS    1F                                                       00106500
TT#TREG3 DS    1F                                                       00106600
TT#TREG4 DS    1F                                                       00106700
TT#TREG5 DS    1F                                                       00106800
TT#TREG6 DS    1F                                                       00106900
TT#TREG7 DS    1F                                                       00107000
TT#TREG8 DS    1F                                                       00107100
TT#TREG9 DS    1F                                                       00107200
TT#TREGA DS    1F                                                       00107300
TT#TREGB DS    1F                                                       00107400
TT#TREGC DS    1F                                                       00107500
TT#TREGD DS    1F                                                       00107600
TT#TREGE DS    1F                                                       00107700
TT#TREGF DS    1F                                                       00107800
TT#TBUFS DS    4F                       SAVE FOR BUFFER POOL LOGIC,7-10 00107900
TT#TINTS DS    2F                       SAVE FOR NONINT & INTRPT, R4-R5 00108000
TT#TVARP DS    1F                  FORWARD LINK FOR IREQC/IRETC ARPS    00108100
         CNOP  0,8                                                      00108200
TT#TLTWK EQU   *-TT#TSKWK                                               00108300
         ENDO  &VS9                                                     00108400
         EJECT                                                          00108500
*********************************************************************** 00108600
*********************************************************************** 00108700
* GENERAL INFORMATION TABLE                                             00108800
*********************************************************************** 00108900
*********************************************************************** 00109000
*********************************************************************** 00109100
*********************************************************************** 00109200
*                                                                       00109300
TN#GEN   DSECT                                                          00109400
*                                                                       00109500
TN#GWBSY EQU   X'80'               .   CCR OSW BUSY FLAG                00109600
TN#GWCLR EQU   X'7F'               .   CLEAR CCR OSW BUSY               00109700
TN#GOSWN DS    XL1                 . 1 CCR OSW BYTE 0                   00109800
TN#GOSW0 EQU   TN#GOSWN                                                 00109900
TN#GCNC1 EQU   X'80'               . TRANSIENT CNC POLL FLAG #1         00110000
TN#GCNC2 EQU   X'40'               . TRANSIENT CNC POLL FLAG #2         00110100
TN#GCAN  EQU   X'20'               . ISSUE CANCEL RATHER THAN EOS       00110200
TN#GOSW1 DS    XL1                 . 1 CCR OSW BYTE 1                   00110300
TN#GOTIM EQU   X'80'               .   TIMER INTERRUPT BIT              00110400
TN#GOCNC EQU   X'40'               .   CNC QUEUE SCAN BIT               00110500
TN#GPOLL EQU   X'20'               .   POLL TIMER BIT                   00110600
TN#GISLD EQU   X'10'                    . ISLAND CODE SCHEDULE REQ.     00110610
TN#GOSW2 DS    XL1                 . 1 CCR OSW BYTE 2                   00110700
TN#GOSW3 DS    XL1                 . 1 CCR OSW BYTE 3                   00110800
TN#GCPTL EQU   X'01'               .   CPIOCS TRANSIENT LOCK            00110900
TN#GCPTI EQU   X'02'               .   CPIOCS TRANSIENT INTERRUPT       00111000
TN#GDPIU EQU   X'04'               .   DUST TRANSIENT CPIOCS IN USE     00111100
TN#GSLOD EQU   X'10'               . TRANSIENT USING SAT LOADER         00111200
TN#GDKER EQU   X'20'               .   UNRECOVERABLE ICAM DISK ERROR    00111300
TN#GSIBE EQU   X'80'               .   SIB ADDRESS ERROR                00111400
TN#GFOSW EQU   TN#GOSWN,4          .   CCR OSW (FULL WD)                00111500
*                                                                       00111600
TN#GPTCH DS    A                   . 4 ADDRESS OF OBJ MODULE PATCH AREA 00111700
*                                                                       00111800
TN#GZRO  DS    F                   . 4 ZEROS (FULL WD)                  00111900
TN#GZRO3 EQU   TN#GZRO+1,3         .   ZEROS (3 BYTES)                  00112000
TN#GZRO2 EQU   TN#GZRO+2,2         .   ZEROS (2 BYTES)                  00112100
TN#GZRO1 EQU   TN#GZRO+3,1         .   ZERO  (1 BYTE)                   00112200
*                                                                       00112300
TN#G00   DS    XL1                 . 1 OPEN                             00112400
TN#GMTNM EQU   TN#G00                  TASK # - VS9                     00112500
TN#GMJCB DS    AL3                 . 3 MCP TCB ADDR                     00112600
TN#GFJCB EQU   TN#G00,4            .   MCP TCB ADDR (FULL WD)           00112700
*                                                                       00112800
TN#G01   DS    XL1                 . 1 OPEN                             00112900
TN#GBPA  DS    AL3                 . 3 ENTRY--BUFFER POOL ALLOCATE      00113000
TN#GBPAF EQU   TN#G01,4            .   BPOOL ALLOCATE (FULL WD)         00113100
*                                                                       00113200
TN#G02   DS    XL1                 . 1 OPEN                             00113300
TN#GBPR  DS    AL3                 . 3 ENTRY--BUFFER POOL RELEASE       00113400
TN#GBPRF EQU   TN#G02,4            .   BPOOL RELEASE (FULL WD)          00113500
*                                                                       00113600
TN#G03   DS    XL1                 . 1 OPEN                             00113700
TN#GDBA  DS    AL3                 . 3 ENTRY--MCT DATA BUFFER ALLOCATE  00113800
TN#GDBAF EQU   TN#G03,4            .   MCT DATA BUFF ALLOC (FULL WD)    00113900
*                                                                       00114000
TN#GRIL  DS    H                   . 2 MASK FOR RELEASE INTERRUPT LOCK  00114100
TN#MXINT DS    H                   . 2 PIOCS MILLISECOND TIMEOUT VALUE  00114200
TN#IOCLK DS    F                   . 4 ADDRESS OF PIOCS TIMEOUT LOGIC   00114300
*                                                                       00114400
TN#G06   DS    XL1                 . 1 OPEN                             00114500
TN#GRDH  DS    AL3                 . 3 ADDR--RDH INFORMATION TABLE      00114600
TN#GRDHF EQU   TN#G06,4            .   RDH INFO TABLE (FULL WD)         00114700
*                                                                       00114800
TN#G07   DS    XL1                 . 1 OPEN                             00114900
TN#GRDH3 DS    AL3                 . 3 ENTRY--RDH COMMON ROUTINES       00115000
TN#GRDHE EQU   TN#G07,4            .   RDH COMMON (FULL WD)             00115100
*                                                                       00115200
TN#G08   DS    XL1                 . 1 OPEN                             00115300
TN#GQPR3 DS    AL3                 . 3 ENTRY--PRE-QUEUE                 00115400
TN#GQPRE EQU   TN#G08,4            .   PRE-QUEUE (FULL WD)              00115500
TN#GEMCT EQU   TN#G08,4            . HANDLER INPUT ENTRY TO CNC         00115600
*                                                                       00115700
TN#G09   DS    XL1                 . 1 OPEN                             00115800
TN#GQEH3 DS    AL3                 . 3 ENTRY--EN-QUEUE HEADER           00115900
TN#GQNQH EQU   TN#G09,4            .   EN-QUEUE HEADER (FULL WD)        00116000
TN#GHCMP EQU   TN#G09,4            . HANDLER RETURN FROM CCR CALL       00116100
*                                                                       00116200
TN#G10   DS    XL1                 . 1 OPEN                             00116300
TN#GQPT3 DS    AL3                 . 3 ENTRY--POST-QUEUE SEGMENT        00116400
TN#GQPST EQU   TN#G10,4            .   POST-QUEUE SEGMENT (FULL WD)     00116500
TN#GOFFX EQU   TN#G10,4            .   TRANSIENT CPIOCS INTR INDEX      00116600
*                                                                       00116700
TN#G11   DS    XL1                 . 1 OPEN                             00116800
TN#GOVL  DS    AL3                 . 3 ENTRY--OVERLAY CONTROL           00116900
TN#GOVLF EQU   TN#G11,4            .   OVL CONTROL (FULL WD)            00117000
*                                                                       00117100
TN#G12   DS    XL1                 . 1 OPEN                             00117200
TN#GPIOH DS    AL3                 . 3 HEAD--CPIOCS ACTIVITY QUEUE      00117300
TN#GPIOF EQU   TN#G12,4            .   CPIOCS HEAD (FULL WD)            00117400
*                                                                       00117500
TN#G13   DS    XL1                 . 1 OPEN                             00117600
TN#GPIOT DS    AL3                 . 3 TAIL--CPIOCS ACTIVITY QUEUE      00117700
TN#GPITF EQU   TN#G13,4            .   CPIOCS TAIL (FULL WD)            00117800
*                                                                       00117900
TN#GTRBF DS    2F                  . 8 CPIOCS TRUNCATION BUFFER         00118000
*                                                                       00118100
TN#GSIO  DS    A                   . 4 ADDRESS OF CPIOCS SIO ENTRY      00118200
TN#GSUB1 DS    A                   . 4 ADDRESS OF CPIOCS SUBROUTINE 1   00118300
TN#GSUB3 DS    A                   . 4 ADDRESS OF CPIOCS SUBROUTINE 3   00118400
TN#GSUB8 DS    A                   . 4 ADDRESS OF CPIOCS SUBROUTINE 8   00118500
TN#GSUBB DS    A                   . 4 ADDRESS OF CPIOCS SUBROUTINE B   00118600
TN#GLTB1 DS    H                   . 2 ALWAYS EQUAL TO 0                00118700
TN#GLTB2 DS    H                   . 2 DISPLACEMENT TO 2ND LINE IN LLT  00118800
TN#GLTB3 DS    H                   . 2 DISPLACEMENT TO 3RD LINE IN LLT  00118900
TN#GLTB4 DS    H                   . 2 DISPLACEMENT TO 4TH LINE IN LLT  00119000
TN#GINTX EQU   TN#GSUB3,4          . TRANSIENT INTR ANSW TABLE INDEX    00119100
TN#GINTB EQU   TN#GSUB8,16         . TRANSIENT INTR ANSW TABLE          00119200
*                                                                       00119300
TN#G14   DS    XL1                 . 1 OPEN                             00119400
TN#GBAL  DS    AL3                 . 3 ENTRY--ACTIVITY CONTROL BALR     00119500
TN#GBALR EQU   TN#G14,4            .   ACT. CONT. BALR (FULL WD)        00119600
*                                                                       00119700
TN#G1415 DS    2F                  . 8 SAVE AREA--ACT CONT BALR         00119800
*                                                                       00119900
TN#GLLTT DS    XL1                 . 1 LINE LINK TABLE/TIMER ACTIVITY   00120000
TN#GLLTF EQU   X'01'               .      INDICATES LINE TIMER ACTIVE   00120100
TN#GBRKF EQU   X'02'               .      SEND BREAK CMD IN PROGRESS    00120200
TN#GLTB  DS    AL3                 . 3 ADDR--LINE LINK TABLE            00120300
TN#GLTAB EQU   TN#GLLTT,4          .   LINE LINK TABLE (FULL WD)        00120400
*                                                                       00120500
TN#GAFPN DS    H                   . 2 ADJUSTED FIRST PORT NUMBER       00120600
TN#G16   DS    H                   . 2 OPEN                             00120700
*                                                                       00120800
TN#GFPN  DS    XL1                 . 1 FIRST PORT NR OF 1ST LINE IN LLT 00120900
TN#GLPN  DS    XL1                 . 1 LAST PORT NR OF 1ST LINE IN LLT  00121000
TN#GFPN2 DS    XL1                 . 1 FIRST PORT OF 2ND LINE           00121100
TN#GLPN2 DS    XL1                 . 1 LAST PORT OF 2ND LINE            00121200
TN#GFPN3 DS    XL1                 . 1 FIRST PORT OF 3RD LINE           00121300
TN#GLPN3 DS    XL1                 . 1 LAST PORT OF 3RD LINE            00121400
TN#GFPN4 DS    XL1                 . 1 FIRST PORT OF 4TH LINE           00121500
TN#GLPN4 DS    XL1                 . 1 LAST PORT OF 4TH LINE            00121600
*                                                                       00121700
TN#GCHAN DS    2F                  . 8 CHANNEL INDEX TABLE              00121800
*                                                                       00121900
TN#GACTA DS    A                   . 4 ACTIVITY CONTROL TABLE ADDRESS   00122000
*                                                                       00122100
TN#GFLTD DS    F                   . 4 FULL WORD LLT DISPLACEMENT       00122200
         ORG   TN#GFLTD+2                                               00122300
TN#GLLTD DS    H                   .   HALF WORD LLT DISPLACEMENT       00122400
*                                                                       00122500
TN#GSIB  DS    F                   . 4 SIB ADDRESS                      00122600
*                                                                       00122700
TN#GCNTR DS    H                   . 2 COUNTER OF ACTIVE MCP'S          00122800
*                                                                       00122900
TN#G15   DS    XL2                 . 2 OPEN                             00123000
*                                                                       00123100
TU#LC1PT DS    XL1                 . 1 PORT ADDR TO BE INITIALIZED      00123200
TU#LC1ER DS    XL1                 . 1 ERROR ID BYTE AND FDX FLAG       00123300
TU#LCFDX EQU   X'01'               .   INDICATES PORT IS FULL DUPLEX    00123400
TU#LC1TI DS    XL1                 . 1 CC AND CI TABLE INDEX            00123500
TU#LCC1  EQU   X'00'               .   CC AND CI TBLS # 1 TO BE INIT.   00123600
TU#LCC2  EQU   X'40'               .   CC AND CI TBLS # 2 TO BE INIT.   00123700
TU#LCC3  EQU   X'80'               .   CC AND CI TBLS # 3 TO BE INIT.   00123800
TU#LCC4  EQU   X'C0'               .   CC AND CI TBLS # 4 TO BE INIT.   00123900
TU#LCCAI EQU   X'01'               .   CC AND CI TBLS ALREADY INIT.     00124000
TU#LC1DI DS    XL1                 . 1 DISCIPLINE INDEX                 00124100
TU#LDSP1 EQU   1                   .   DISCIPLINE 1 = DCT-500           00124200
TU#LDSP2 EQU   2                   .   DISCIPLINE 2 = U-100/DCT-1000    00124300
TU#LDSP3 EQU   3                   .   DISCIPLINE 3 = DCT/2000          00124400
TU#LDSP4 EQU   4                   .   DISCIPLINE 4 = BSC-ASCII         00124500
TU#LDSP5 EQU   5                   .   DISCIPLINE 5 = BSC-EBCDIC        00124600
TU#LDSP6 EQU   6                   .   DISCIPLINE 6 = BAUDOT TTY        00124700
TU#LDSP7 EQU   7                   .   DISCIPLINE 7 = 1004/DLT1,DLT3    00124800
TU#LCA1  EQU   TU#LC1PT,4          .   PARAMETERS TO INIT CA            00124900
*                                                                       00125000
TU#LCA2  DS    F                   . 4 NEW/PCW WORK AREA TO INIT CA     00125100
TU#LC2B1 EQU   TU#LCA2,1           .   PORT CONTROL BYTE 1              00125200
TU#LC2B2 EQU   TU#LCA2+1,1         .   PORT CONTROL BYTE 2              00125300
TU#LC2B3 EQU   TU#LCA2+2,1         .   PORT CONTROL BYTE 3              00125400
TU#LC2B4 EQU   TU#LCA2+3,1         .   PORT CONTROL BYTE 4              00125500
*                                                                       00125600
TU#LPH1  DS    H                   . 2 DUST PHASE # 1                   00125700
TU#LPH2  DS    H                   . 2 DUST PHASE # 2                   00125800
*                                                                       00125900
TU#LSV0  DS    F                   . 4 DUST SAVE REG 0                  00126000
TU#LSV1  DS    F                   . 4 DUST SAVE REG 1                  00126100
TU#LSV8  DS    F                   . 4 DUST SAVE REG 8                  00126200
TU#LSV9  DS    F                   . 4 DUST SAVE REG 9                  00126300
TU#LSV10 DS    F                   . 4 DUST SAVE REG 10                 00126400
TU#LSA1  EQU   TU#LSV8,4           .   DUST SAVE AREA 1                 00126500
TU#LSA2  EQU   TU#LSV9,4           .   DUST SAVE AREA 2                 00126600
TU#LSA3  EQU   TU#LSV10,4          .   DUST SAVE AREA 3                 00126700
*                                                                       00126800
TU#LERID DS    XL1                 . 1 DUST PIO ERROR ID                00126900
TU#LRESV DS    XL3                 . 3 DUST RESERVED                    00127000
TU#LDARP DS    F                   . 4 SAVE AREA FOR DUST FUNC. ARP     00127100
*                                                                       00127200
TU#LRAD1 DS    H                   . 2 DUST RETURN ADDRESS 1            00127300
TU#LPHA1 DS    H                   . 2 DUST PHASE # FOR RETURN ADDR 1   00127400
TU#LRAD2 DS    H                   . 2 DUST RETURN ADDRESS 2            00127500
TU#LPHA2 DS    H                   . 2 DUST PHASE # FOR RETURN ADDR 2   00127600
TU#LRAD3 DS    H                   . 2 DUST RETURN ADDRESS 3            00127700
TU#LPHA3 DS    H                   . 2 DUST PHASE # FOR RETURN ADDR 3   00127800
TU#LRAD4 DS    H                   . 2 DUST RETURN ADDRESS 4            00127900
TU#LPHA4 DS    H                   . 2 DUST PHASE # FOR RETURN ADDR 4   00128000
*                                                                       00128100
TN#GTYD1 DS    XL1                 . 1 TYPE OF CC/CI TBL # 1, CA # 1    00128200
TN#GUD1  DS    XL1                 . 1 NR USERS OF CC/CI TBL # 1, CA #1 00128300
TN#GLDT1 EQU   TN#GTYD1,2          .   LINE DISCP TBL # 1, CA #1, HF WD 00128400
*                                                                       00128500
TN#GTYD2 DS    XL1                 . 1 TYPE OF CC/CI TBL # 2, CA # 1    00128600
TN#GUD2  DS    XL1                 . 1 NR USERS OF CC/CI TBL # 2, CA #1 00128700
TN#GLDT2 EQU   TN#GTYD2,2          .   LINE DISCP TBL # 2, CA #1, HF WD 00128800
*                                                                       00128900
TN#GTYD3 DS    XL1                 . 1 TYPE OF CC/CI TBL # 3, CA # 1    00129000
TN#GUD3  DS    XL1                 . 1 NR USERS OF CC/CI TBL # 3, CA #1 00129100
TN#GLDT3 EQU   TN#GTYD3,2          .   LINE DISCP TBL # 3, CA #1, HF WD 00129200
*                                                                       00129300
TN#GTYD4 DS    XL1                 . 1 TYPE OF CC/CI TBL # 4, CA # 1    00129400
TN#GUD4  DS    XL1                 . 1 NR USERS OF CC/CI TBL # 4, CA #1 00129500
TN#GLDT4 EQU   TN#GTYD4,2          .   LINE DISCP TBL # 4, CA #1, HF WD 00129600
*                                                                       00129700
TN#GTYD5 DS    XL1                 . 1 TYPE OF CC/CI TBL # 1, CA # 2    00129800
TN#GUD5  DS    XL1                 . 1 NR USERS OF CC/CI TBL # 1, CA #2 00129900
TN#GLDT5 EQU   TN#GTYD5,2          .   LINE DISCP TBL # 1, CA #2, HF WD 00130000
*                                                                       00130100
TN#GTYD6 DS    XL1                 . 1 TYPE OF CC/CI TBL # 2, CA # 2    00130200
TN#GUD6  DS    XL1                 . 1 NR USERS OF CC/CI TBL # 2, CA #2 00130300
TN#GLDT6 EQU   TN#GTYD6,2          .   LINE DISCP TBL # 2, CA #2, HF WD 00130400
*                                                                       00130500
TN#GTYD7 DS    XL1                 . 1 TYPE OF CC/CI TBL # 3, CA # 2    00130600
TN#GUD7  DS    XL1                 . 1 NR USERS OF CC/CI TBL # 3, CA #2 00130700
TN#GLDT7 EQU   TN#GTYD7,2          .   LINE DISCP TBL # 3, CA #2, HF WD 00130800
*                                                                       00130900
TN#GTYD8 DS    XL1                 . 1 TYPE OF CC/CI TBL # 4, CA # 2    00131000
TN#GUD8  DS    XL1                 . 1 NR USERS OF CC/CI TBL # 4, CA #2 00131100
TN#GLDT8 EQU   TN#GTYD8,2          .   LINE DISCP TBL # 4, CA #2, HF WD 00131200
*                                                                       00131300
TN#GINTM EQU   TN#GTYD5,4          . ADDRESS BEYOND TRAN INTR ANSW TBL  00131400
TN#GCCR1 EQU   TN#GTYD7,4          . CPIOCP ADDRESS FOR TRAN CCRCALL    00131500
*                                                                       00131600
TN#GYLD  EQU   X'80'               .   USER YIELD FLAG                  00131700
TN#GYCLR EQU   X'7F'               .   CLEAR USER YIELD                 00131800
TN#GBMAP DS    6F'0'                    .RELEASE MAP                    00131900
         DO    &VS9                                                     00132000
TN#GXVT  DS    A                   . A(XVT)                             00132100
TN#G2TCB DS    A                   . A(2NDARY TASK TCB)                 00132200
TN#G2T0  DS    6F'0'               . 2 WORD SAVE/2NDARY TASK            00132300
         DS    8C                  . ICAM VERSION NUMBER 4.0            00132400
         ENDO  &VS9                                                     00132500
TN#GLGTB EQU   *-TN#GEN                L'GEN TAB                        00132600
TN#GCCA  EQU   *,4                 .   START OF USER TCB/CCA TABLE      00132700
         EJECT                                                          00132800
*                                                                       00132900
* USER TCB DIRECTORY AND ACTIVITY QUEUE                                 00133000
*                                                                       00133100
TN#GTCBS DSECT                                                          00133200
TN#GAQHD DS    A                   . USER ACTIVITY QUEUE (HEAD)         00133300
TN#GAQTL DS    A                   . USER ACTIVITY QUEUE (TAIL)         00133400
TN#GUTCB DS    A                   . USER TCB ADDRESS                   00133500
TN#GTFLG DS    XL1                 . FLAGS AND CCA IDENTIFIER           00133600
TN#GCYLD EQU   X'80'               . CYIELD BIT                         00133700
TN#GTEND EQU   X'40'               . END OF ENTRIES                     00133800
TN#GCCRU EQU   X'20'               . CCR USER                           00133900
TN#GNTRL EQU   X'10'               . NETWORK RELEASED                   00134000
TN#GCIPR EQU   X'08'               . CANCEL OR NET RELEASE IN PROGRESS  00134100
TN#GNQER EQU   X'04'               .   NET REQ ERROR OR IN PROGRESS     00134200
TN#GUEOJ EQU   X'02'               .   USER END OF JOB                  00134300
TN#GNRIP EQU   X'01'               . NETWORK RELEASE IN PROGRESS        00134400
TN#GUCCA DS    AL3                 . CCA ADDRESS                        00134500
TN#GFCCA EQU   TN#GTFLG,4          . CCA ADDRESS (FULL WORD)            00134600
TN#GFLG2 DS    XL1                 . 1 FLAG BYTE                        00134700
TN#GNQIP EQU   X'80'               .   NETREQ IN PROGRESS               00134800
TN#GIRLP EQU   X'40'               . IRL IN PROGRESS FLAG               00134900
TN#GULCK EQU   X'20'                    .LOCK USER'S SCHEDULE           00134905
TN#GUPRE DS    AL3                 . 3 USER PREAMBLE ADDRESS            00135000
TN#GFPRE EQU   TN#GFLG2,4          .   USER PREAMBLE ADR (FULL WORD)    00135100
         DO    &VS9                                                     00135200
TN#GISRP DS    &LARP.F             . DEDICATED ARP, ISLAND SVC          00135300
TN#GSVRP DS    &LARP.F             . DEDICATED ARP, NON-ISLAND SVC      00135400
TN#GTCBX DS    A                   .  A(TCB EXTENSION)                  00135410
TN#GFNHD DS    0F                  . HEAD.FUNCTION ATTACH QUEUE         00135500
TN#GFNHS DS    1C                  .   SWITCHES                         00135600
TN#GFNHP DS    AL3                     A(1ST ITEM ON QUEUE)             00135700
TN#GFNTF DS    0F                  . TAIL FUNCTION ATTACH QUEUE         00135800
         DS    1C                      RESERVED                         00135900
TN#GFNTL DS    AL3                     A(LAST ITEM ON QUEUE)            00136000
TN#GTK   EQU   TN#GUTCB            . TASK # FOR FNA                     00136100
TN#GTSKM EQU   X'FF'               . MASK FOR TASK NUMBER               00136200
         ENDO  &VS9                                                     00136300
TN#GULEN EQU   *-TN#GTCBS          . LENGTH OF ENTRY                    00136400
*                                                                       00136500
*        ACTIVITY CONTROL AND SUBFUNCTION CODE EQUATES                  00136600
*                                                                       00136700
TN#GIRL  EQU   X'80'               .   IRL 2(7) ON                      00136800
TN#GUARP EQU   X'40'               .   USER PACKET (QUE ON USER QUEUE)  00136900
TN#GFNAQ EQU   X'20'               .   FNA PACKET (QUE ON FNA QUEUE)    00137000
TN#GWTBF EQU   X'10'               .   DEDICATED ARP NOT YET FREE       00137100
*                                                                       00137200
*                                                                       00137300
TN#GMQ   EQU   X'08'                   ITEM ON MCP QUE                  00137400
TN#GSVC  EQU   X'10'                   SVC ENCOUNTERED IN LP3           00137500
TN#GCCAX EQU   1                   . CCA/SLOT INDEX INTEGRATOR          00137600
*                                                                       00137700
*                                                                       00137800
TN#GMCPQ EQU   X'00'               .   MCP PACKET (QUE ON MCP QUEUE)    00137900
*                                      BITS 2(2)-2(0) PROVIDE INDEX     00138000
*                                      TO MCP SUB-QUEUES 1(HI) TO 5(L0) 00138100
*                                      AS FOLLOWS:                      00138200
*                                                                       00138300
TN#GDUSQ EQU   B'00000001'                      001 = SUB-QUEUE 5 DUST  00138400
*                                               000 = SUB-QUEUE 4       00138500
TN#GLSP  EQU   B'00000010'                      010 = SUB-QUEUE 3       00138600
TN#GMSP  EQU   B'00000100'                      100 = SUB-QUEUE 2       00138700
TN#GHSP  EQU   B'00000110'                      110 = SUB-QUEUE 1       00138800
TN#GQRNG EQU   B'00001111'             MASK FOR 2NDARY TASK,SUB-Q BITS  00138900
TN#G2NDT EQU   TN#GFNAQ+TN#GUARP       2NDARY TASK INDICATED            00139000
*                                        WHEN SECONDARY TASK IS SET     00139100
*                                        DESTINATION QUEUE IS INDICATED 00139200
*                                        BY BITS 2(3)-2(0). E.G.        00139300
TN#G2ND0 EQU   B'00000000'                  0000 = 2NDARY TASK 1        00139400
TN#G2ND1 EQU   B'00000001'                  0001 = 2NDARY TASK 2        00139500
*                                           ETC                         00139600
*                                        SLOTS ARE AT END MCP SLOT      00139700
*                                       CURRENTLY ONLY DUST SLOT        00139800
*                                                                       00139900
*                                                                       00140000
*   SUB-FUNCTION CODE BYTE 1                                            00140100
*                                                                       00140200
TN#GUGRB EQU   B'10000000'               GROUP B SUBROUTINE             00140300
TN#GUOVL EQU   B'01000000'               OVERLAY CALL(OS/3)             00140400
*                                                                       00140500
*                                                                       00140600
*   SUB-FUNCTION CODE BYTE 2                                            00140700
*                                                                       00140800
TN#GUIRL EQU   B'10000000'               UPON RETURN TO ACTIVITY CONT   00140900
*                                          DO NOT FUNCTION DETACH IF    00141000
*                                          RUNNING UNDER USER TASK      00141100
TN#GUTSK EQU   B'01000000'               RUNNING UNDER THE USER TASK    00141200
TN#GU2TK EQU   B'00100000'               RUNNING UNDER 2NDARY TASK      00141300
*                                          WHEN RUNNING 2NDARY TASK,    00141400
*                                          BITS 2(3)-2(0) OF 1ST BYTE   00141500
*                                          OF THE SUBFUNCTION CODE IS   00141600
*                                          INDEX TO 2NDARY TASK SLOT    00141700
         EJECT 1                                                        00141800
*                                                                       00141900
* SECONDARY TASK/QUE AREA OF USER SLOT (TN#GAQHD-TN#GUTCB)              00142000
*                                                                       00142100
TS#QUE   DSECT                                                          00142200
TS#QFHED DS    0F                      FULL WORD HEADER                 00142300
TS#QHIND DS    1C                        RESERVED FOR SWITCHES          00142400
TS#QHEAD DS    AL3                       A(1ST ITEM ON QUEUE)           00142500
TS#QFTAL DS    0F                      FULL WORD TAIL                   00142600
TS#QTIND DS    1C                        RESERVED FOR SWITCHES          00142700
TS#QTAIL DS    AL3                       A(LAST ITEM ON QUEUE)          00142800
TS#QLPTR EQU   *-TS#QUE                L'(HEADER+TAIL)                  00142900
TS#QUNLK EQU   0                       QUEUE UNLOCK                     00143000
TS#QLOCK EQU   B'10000000'             QUEUE LOCK                       00143100
TS#QTCB  DS    0F                      TSK#/A(TCB)                      00143200
TS#QTSKN DS    1C                        TASK #                         00143300
TS#QATCB DS    3C                        A(TCB)                         00143400
         SPACE 2                                                        00143500
TS#QLNGT EQU   *-TS#QUE                L'2NDARY TASK SLOT               00143600
         SPACE 4                                                        00143700
*                                                                       00143800
*        EQUATES GOVERNING 1ST BYTE OF REGISTER 1 FOR 'CPIOCS' TRACE    00143900
*                                                                       00144000
TN#GTR00 EQU   X'00'               . CPIOCS IS ABOUT TO ISSUE SIO       00144100
TN#GTR20 EQU   X'20'               . CPIOCS CPIOCP TIMEOUT              00144200
TN#GTR40 EQU   X'40'               . CPIOCS INTERRUPT                   00144300
TN#GTR80 EQU   X'80'               . CCRCALL TO CPIOCS                  00144400
TN#GTRCC EQU   X'CC'               . ENTRY TO CCR USER INTERFACE CODE   00144500
TN#GTRDA EQU   X'DA'               . DED ARP JUST PUT ON MCP QUE        00144600
TN#GTRE0 EQU   X'E0'               . CPIOCP(S) BEING SCHEDULED BACK     00144700
         EJECT                                                          00144800
         ENDO                                                           00144900
         DO    &IMST                                                    00145000
*                                                                       00145100
* STANDARD IMS NETWORK TABLE-PSEUDO NAME IS IMST                        00145200
*                                                                       00145300
TU#IMST  DSECT                                                          00145400
TU#IMPI  DS    A                       MPPS TO IMS INPUT ENTRY POINT    00145500
TU#IMPO  DS    A                       MPPS TO IMS OUTPUT ENTRY POINT   00145600
*                                                                       00145700
*    IMS ENTRY POINTS SUPPLIED BY IMS                                   00145800
*                                                                       00145900
TU#IMSEP DS    3A                      IMS ENTRY POINTS                 00146000
         ORG   TU#IMSEP                                                 00146100
TU#IMIN  DS    A                       DUST TO IMS ENTRY POINT          00146200
TU#IMINF EQU   TU#IMIN,1               DUST TO IMS FUNCTION CODE        00146300
TU#IMOUT DS    A                       MWRITE ENTRY POINT               00146400
TU#IMOUF EQU   TU#IMOUT,1              MWRITE FUNCTION CODE             00146500
TU#IMREL DS    A                       MRELSE ENTRY POINT               00146600
TU#IMREF EQU   TU#IMREL,1              MRELSE FUNCTION CODE             00146700
*                                                                       00146800
*    ICAM INFO SUPPLIED BY DUST                                         00146900
*                                                                       00147000
         ORG   TU#IMSEP                                                 00147100
TU#IMCCA DS    A                       CCA ADDRESS                      00147200
TU#IMIEP DS    4A                      ICAM ENTRY POINTS                00147300
         ORG   TU#IMIEP                                                 00147400
TU#IMQH  DS    A                       QUEUE HEADER ROUTINE             00147500
TU#IMQPO DS    A                       POST QUEUE ROUTINE               00147600
TU#IMPUT DS    A                       PUT PROCESSOR                    00147700
TU#IMQPR DS    A                       PRE-QUEUE CONTROL ROUTINE        00147800
*                                                                       00147900
*    USER PROGRAM INFO SUPPLIED BY DUST                                 00148000
*                                                                       00148100
TU#IMUSE DS    2F                      USER PROGRAM INFO                00148200
         ORG   TU#IMUSE                                                 00148300
TU#IMDIS DS    F                       DISPLACEMENT FROM ICAM TO USER   00148400
TU#IMTCB DS    A                       ADDRESS USER PROGRAM TCB         00148500
*                                                                       00148600
* * *                                                                   00148700
         EJECT                                                          00148800
         ENDO                                                           00148900
         DO    &LCT                                                     00149000
*                                                                       00149100
* DEFINE LINE CONTROL TABLE - PSEUDO NAME IS LCT                        00149200
*        VER   3.0 RELEASE                                              00149300
*                                                                       00149400
TN#LCT   DSECT                                                          00149500
TN#LINE  EQU   TN#LCT              . FOR 9700 CONVERSION                00149600
TN#LINK  DS    A                   . 4 ADDRESS NEXT LCT.                00149700
TN#LLINK EQU   TN#LINK             .   ALT. LINK LABEL.                 00149800
TN#LNAME DS    CL4                 . 4 NETWORK NAME.                    00149900
TN#LTRM1 DS    H                   . 2 DISPLACEMENT TO FIRST TCT.       00150000
TN#LQ1   DS    H                   . 2 DISPLACEMENT TO FIRST QUEUE.     00150100
TN#LMUX  DS    0H                  . 2 COMMUNICATIONS DEVICE ADDRESS    00150200
TN#LMUXO EQU   TN#LMUX             .   OUTPUT ADDRESS                   00150300
TN#LOCHN DS    XL1                 .    CHANNEL ADDRESS                 00150400
TN#LOPRT DS    XL1                 .    PORT ADDRESS                    00150500
TN#LID   DS    0H                  . 2 LINE ID (NOT FULLY DEFINED)      00150600
TN#LMUXI EQU   TN#LID              .   INPUT ADDRESS                    00150700
TN#LICHN DS    XL1                 .    CHANNEL ADDRESS                 00150800
TN#LIPRT DS    XL1                 .    PORT ADDRESS                    00150900
TN#LNOID EQU   X'FF'               .   NO LINE ID SPECIFIED             00151000
TN#LSPD  DS    H                   . 2 LINE SPEED. CHAR./SEC.           00151100
TN#LSPED EQU   TN#LSPD             . LINE SPEED                         00151200
TN#LCONF DS    XL1                 . 1 CONTROL FLAGS.                   00151300
*                                                                       00151400
*  INDICATORS FOR TN#LCONF.                                             00151500
*                                                                       00151600
TN#LWRI  EQU   X'80'               . WAIT FOR RING INDICATOR            00151700
TN#LOBZY EQU   X'40'               . OUTPUT BUSY.                       00151800
TN#LIBZY EQU   X'20'               . INPUT BUSY.                        00151900
TN#LOPND EQU   X'08'               . OUTPUT PENDING.                    00152000
TN#LIPND EQU   X'04'               . INPUT PENDING.                     00152100
TN#LBUZY EQU   X'02'               . RESERVED FOR RDH USAGE             00152200
TN#LPBZY EQU   X'01'               . I/O BUSY FLAG                      00152300
*                                                                       00152400
*                                                                       00152500
TN#LTYPE DS    XL1                 . 1 DEVICE TYPE.                     00152600
*                                                                       00152700
* INDICATORS FOR TN#LTYPE                                               00152800
*                                                                       00152900
TN#LBDTY EQU   X'00'               . BAUDOT TTY                         00153000
TN#LFPOL EQU   X'01'               . POLLED DCT 500 FLAG                00153100
TN#LFASC EQU   X'02'               . ASCII DCT 500/TTY FLAG             00153200
TN#LA500 EQU   X'03'               . AUTOMATIC 500 OR  DCT-525          00153300
TN#LU100 EQU   X'10'               . U100/DCT 1000.                     00153400
TN#LDCT2 EQU   X'20'               . DCT 2000.                          00153500
TN#LDCT1 EQU   X'21'               . 9000 COMPUTER - 1004 MODE.         00153600
TN#LDCT9 EQU   X'22'               . 9000 COMPUTER -  929 MODE.         00153700
TN#L1004 EQU   X'40'               . UNIVAC 1004.                       00153800
TN#L9200 EQU   X'41'               . UNIVAC 9200.                       00153900
TN#L9300 EQU   X'42'               . UNIVAC 9300.                       00154000
TN#LBTMT EQU   X'50'               . BSC TERMINAL, TRANSCODE            00154100
TN#LBCBT EQU   X'51'               . BSC CPU BATCH, TRANSCODE           00154200
TN#LBCIT EQU   X'52'               . BSC CPU INTERACTIVE, TRANSCODE     00154300
TN#LBTME EQU   X'54'               . BSC TERMINAL, EBCDIC               00154400
TN#LBCBE EQU   X'55'               . BSC CPU BATCH, EBCDIC              00154500
TN#LBCIE EQU   X'56'               . BSC CPU INTERACTIVE, EBCDIC        00154600
TN#LBTMA EQU   X'58'               . BSC TERMINAL, ASCII                00154700
TN#LBCBA EQU   X'59'               . BSC CPU BATCH, ASCII               00154800
TN#LBCIA EQU   X'5A'               . BSC CPU INTERACTIVE, ASCII         00154900
TN#LTN4E EQU   X'A0'               . 1004 EMULATION LINE                00155000
TN#LNTR  EQU   X'B0'               . NINE THOUSAND REMOTE (NTR)         00155100
*                                                                       00155200
TN#LORTC DS    H                   . 2 OUTPUT RETRY COUNT.              00155300
TN#LMRTO EQU   TN#LORTC,1          .   MAXIMUM ORT.                     00155400
TN#LIRTC DS    H                   . 2 INPUT RETRY COUNT.               00155500
TN#LMRTI EQU   TN#LIRTC,1          .   MAXIMUM IRT.                     00155600
TN#LTDCF DS    H                   . TERM DOWN COUNT FIELD. (CNC)       00155700
TN#LPHON DS    XL2                 . 2 DISP. TO LINE PHONE #'S          00155800
TN#LNUMT DS    H                   . 2 NUMBER OF TERMINALS              00155900
TN#LNUMQ DS    XL1                 . 1 NUMBER OF QUEUES                 00156000
TN#LLNTR EQU   TN#LNUMQ            . LOGICAL LINE NUM. TRANS ICAM ONLY  00156100
         DS    XL1                 . 1 RESERVED FOR ICAM                00156200
TN#LCCA  DS    A                   . 4 USER CCA ADDR. = R2 SAVEAREA.    00156300
TN#LMC14 DS    A                   . 4 MCT INTERFACE BATCH MODE POINTER 00156400
TN#LMHPT EQU   TN#LMC14            .   CNC MSG HEADER POINTER           00156500
TN#BMI14 EQU   TN#LMC14            .   DDI INPUT BATCH MODE R14 SAVE    00156600
TN#LTARP EQU   TN#LMC14            .   TCI ARP STORAGE                  00156700
TN#LNEND DS    F                   . 4 POINTER PAST END OF N.B.         00156800
TN#LLEND DS    F                   . 4 POINTER PAST END OF L.B.         00156900
TN#LREV3 DS    XL1                 . 1 RESERVED FOR RDH USAGE.          00157000
TN#LLB1  DS    AL3                 . 3 ADDR. LINE BUFFER # 1.           00157100
TN#LBAD1 EQU   TN#LREV3,4          .   FULLWORD ADDR.LINE BUFFER # 1.   00157200
TN#LREV4 DS    XL1                 . 1 RESERVED FOR RDH USAGE.          00157300
TN#LLB2  DS    AL3                 . 3 ADDR. LINE BUFFER # 2.           00157400
TN#LBAD2 EQU   TN#LREV4,4          .   FULLWORD ADDR.LINE BUFFER # 2.   00157500
TN#LREV5 DS    XL1                 . 1 RESERVED FOR RDH USAGE.          00157600
TN#LCP1  DS    AL3                 . 3 ADDR. CPIOCP # 1.                00157700
TN#LICP  EQU   TN#LREV5,4          .   FULLWORD ADDR. CPIOCP # 1.       00157800
TN#LPKT1 EQU   TN#LICP             .   ALT. FW. ADDR. CPIOCP # 1.       00157900
TN#LREV6 DS    XL1                 . 1 RESERVED FOR RDH USAGE.          00158000
TN#LCP2  DS    AL3                 . 3 ADDR. CPIOCP # 2.                00158100
TN#LOCP  EQU   TN#LREV6,4          .   FULLWORD ADDR. CPIOCP # 2.       00158200
TN#LPKT2 EQU   TN#LOCP             .   ALT. FW. ADDR. CPIOCP # 2.       00158300
TN#LREV7 DS    XL1                 . 1 RESERVED FOR RDH USAGE.          00158400
TN#LCP3  DS    AL3                 . 3 ADDR. CPIOCP # 3.                00158500
TN#LXCP  EQU   TN#LREV7,4          .   FULLWORD ADDR. CPIOCP # 3.       00158600
TN#LSMCT DS    A                   . 4 DDI STATUS MCT POINTER           00158700
TC#WORK  EQU   TN#LSMCT            .   CNC WORK AREA                    00158800
TN#LMCTI DS    A                   . 4 ADDRESS INPUT MCT.               00158900
TN#LMCTO DS    A                   . 4 ADDRESS OUTPUT MCT.              00159000
TN#LMCTH EQU   TN#LMCTO            .   HEAD OUTPUT MCT QUEUE.           00159100
TN#LMCTT DS    A                   . 4 TAIL OF MCT QUEUE.               00159200
TN#LREGS DS    5F                  .20 REGISTER SAVE AREA.              00159300
TN#LWORK EQU   TN#LREGS,4          .   SCRATCH FOR TG#CCNC.             00159400
TN#LREG2 EQU   TN#LREGS+4,4        .   2ND WORD SAVE AREA.              00159500
TN#LREG3 EQU   TN#LREGS+8,4        .   3RD WORD SAVE AREA.              00159600
TN#LREG4 EQU   TN#LREGS+12,4       .   4TH WORD SAVE AREA.              00159700
TN#LREG5 EQU   TN#LREGS+16,4       .   5TH WORD SAVE AREA.              00159800
TN#LPFLG DS    XL1                 . 1 POLL TIMER FLAG.                 00159900
*                                                                       00160000
*  INDICATORS FOR TN#LPFLG                                              00160100
*                                                                       00160200
TN#LPOLL EQU   X'80'               . POLL INHIBIT FLAG                  00160300
TN#LBTCH EQU   X'40'               . BATCH DEVICE LINE                  00160400
TN#LDOWN EQU   X'20'               . LINE DOWN.                         00160500
TN#LGOPO EQU   X'10'               . GO TO TG#POLER AFTER POLL START.   00160600
TN#LININ EQU   X'08'               . INHIBIT INPUT THIS LINE.           00160700
TN#LPNAL EQU   X'04'               . LINE NOT ALLOCATED                 00160800
TN#LLAST EQU   X'01'               . LAST LCT.                          00160900
TN#LPLA3 DS    AL3                 . 3 ADDRESS OF POLL ROUTINE.         00161000
TN#LPOLA EQU   TN#LPFLG,4          .   FULL WORD ADDR. POLL ROUTINE.    00161100
TN#LQTIM DS    H                   . 2 POLL QUALIFCATION TIME INTERVAL. 00161200
TN#LPOLI EQU   TN#LQTIM,1          . LINE POLLING INTERVAL              00161300
TN#LBLEN DS    H                   . 2 LENGTH OF LINE BUFFER.           00161400
TN#LTIMI DS    H                   . 2 INPUT TIMEOUT.                   00161500
TN#LTIMO DS    H                   . 2 OUTPUT TIMEOUT.                  00161600
TN#LPCHC DS    H                   . 2 PARTIAL INPUT CHARACTER COUNT.   00161700
TN#LBFLG DS    XL1                 . 1 BUFFER CONTROL FLAGS             00161800
*                                                                       00161900
*  INDICATORS FOR TN#LBFLG                                              00162000
*                                                                       00162100
TN#LSEPK EQU   X'80'               . GET 3RD PACKET FLG-SETUP.          00162200
TN#LSNBI EQU   X'40'               . NO BICIO FLG-SETUP.                00162300
TN#LSNBU EQU   X'20'               . NO BUFFERS FLAG - TG#SETUP         00162400
TN#LSNRI EQU   X'10'               . NO RICIO FLAG - TG#SEND (INPUT)    00162500
TN#LS4PK EQU   X'08'               . GET 4 ARPS AT LINE OPEN            00162600
TN#LNOIN EQU   X'01'               . OUTPUT ONLY FLAG                   00162700
TN#LSBTG EQU   X'02'               . RESERVED FOR INTERNAL RDH USE      00162800
TN#LSNRO EQU   X'02'               . NO RICIO FLAG (BSC) - OUTPUT       00162900
TN#LCEOM EQU   X'04'               . EOM FLAG.                          00163000
TN#LDFUN DS    XL1                 . 1 DICE FUNCTION.                   00163100
TN#LDX   DS    XL1                 . 1 DICE X-ARGUMENT                  00163200
TN#LDY   DS    XL1                 . 1 DICE Y-ARGUMENT                  00163300
TN#LDARG EQU   TN#LDX,2            . DICE ARGUMENT                      00163400
TN#LMSGS DS    H                   . TOTAL MSGS QUEUED TO THIS LINE     00163500
TN#LTCC  DS    H                   . TOTAL INPUT CHARACTER CNT          00163600
TN#LDFGS DS    XL1                 . 1 DUST FLAGS                       00163700
*                                                                       00163800
*  INDICATORS FOR TN#LDFGS                                              00163900
*                                                                       00164000
TN#LAPND EQU   X'80'               .   ALLOCATION PENDING               00164100
TN#LALLO EQU   X'40'               .   LINE ALLOCATED                   00164200
TN#LDPND EQU   X'20'               .   DEALLOCATION PENDING             00164300
TN#LDALC EQU   X'10'               .   LINE DEALLOCATED                 00164400
TN#LCCW  EQU   X'08'               .   CC & CI TBLS TO BE INITIALIZED   00164500
TN#LCAER EQU   X'04'               .   CA ERROR OCCURRED DURING INIT    00164600
TN#LSLNC EQU   X'04'               .   SWITCHED LINE NOT CONNECTED      00164700
TN#LACU  EQU   X'02'               .   AUTO-DIAL LINE                   00164800
TN#LUNAT EQU   X'01'               .   UNATTENDED ANSWER SPEC. FOR LINE 00164900
TN#LLSPD DS    XL1                 . 1 LINE SPEED (ENCODED IN 4 LS BTS) 00165000
*                                                                       00165100
*  INDICATORS FOR TN#LLSPD                                              00165200
*                                                                       00165300
TN#LFDX  EQU   X'80'               .   FULL DUPLEX LINE                 00165400
TN#LSWT  EQU   X'40'               .   SWITCHED LINE                    00165500
TN#LSYN  EQU   X'10'               .   SYNC LINE                        00165600
TN#LLWA  DS    6F                  .24 RDH LINE WORK AREA.              00165700
TN#LLWA2 EQU   TN#LLWA+4,4         .   2ND WORD WORK AREA.              00165800
TN#LLWA3 EQU   TN#LLWA+8,4         .   3RD WORD WORK AREA.              00165900
TN#LLWA4 EQU   TN#LLWA+12,4        .   JTH WORD WORK AREA.              00166000
TN#LLWA5 EQU   TN#LLWA+16,4        .   5TH WORD WORK AREA.              00166100
TN#LLWA6 EQU   TN#LLWA+20,4        .   6TH WORD WORK AREA.              00166200
TN#LOBMP DS    A                   . 4 DDI OUTPUT BATCH MODE POINTER    00166300
TN#BMO14 EQU   TN#LOBMP            .   DDI OUTPUT BATCH MODE R14 SAVE   00166400
TN#LMPPS DS    A                   . 4 MPPS START OR DEFAULT PRCS FILE  00166500
TN#LMPSF EQU   X'80'               . MPPS INDICATOR FOR TN#LMPPS        00166600
TN#LCDQ  DS    A                   . CURRENT DEQUE CONTROL              00166700
T3#WORK  EQU   TN#LMPPS,6          . SIX BYTE DDI WORK AREA             00166800
TN#LDSPL DS    XL1                 . LINE DISCIPLINE NUMBER             00166900
TN#LSTAT DS    XL1                 . STATUS BYTE                        00167000
*        FOLLOWING VALUES USED FOR TN#LSTAT                             00167100
TN#LSTON EQU   X'01'               . STATISTICS ON                      00167200
TN#LINQS EQU   X'08'               . INHIBIT QUEUE SELECTION            00167300
TN#LFLGU DS    XL1                 . FLAG BYTE                          00167400
*        FOLLOWING VALUES USED FOR TN#LFLGU                             00167500
TN#LNDCE EQU   X'80'              . CNC LINE LOCK                       00167600
TN#LALTD EQU   X'40'              . ALT DEST SPECIFIED ON LINE          00167610
TN#LMPPU EQU   X'08'               . MPPS PROCESSING USED               00167700
TN#LIMSU EQU   X'04'               . IMS PROCESSING USED                00167800
TN#LMPPL EQU   X'02'               . MPPS MSGLMT REACHED                00167810
TN#LMBLK DS    XL1                 . NUMB. BLANKS USED FOR MPPS         00167900
TN#LSV11 DS    A                   . 4 MCTI R11 SAVE AREA               00168000
TN#LSV14 DS    A                   . 4 MCTI R14 SAVE AREA               00168100
TN#LLNGH EQU   *-TN#LCT            .   LENGTH OF LCT.                   00168200
         EJECT                                                          00168300
         ENDO                                                           00168400
         DO    &LINEL4                                                  00168500
*        REVISED    12/15/75                                            00168600
*                 ...............................................       00168700
*              LINE LINK TABLE PICTURE                                  00168800
*                 ...............................................       00168900
*                 +    0     +     1    +     2    +     3      +       00169000
*                 ...............................................       00169100
*              W1 :                  TN#PHEAD                   : B 3   00169200
*                 ...............................................       00169300
*              W2 :                  TN#PTAIL                   : B 7   00169400
*                 ...............................................       00169500
*              W3 :                  TN#PBASE                   : B11   00169600
*                 ...............................................       00169700
*              W4 :       TN#PID      :       TN#PORTD          : B15   00169800
*                 ...............................................       00169900
*              W5 :                  TN#PDLHD                   : B19   00170000
*                 ...............................................       00170100
*              W6 :                  TN#PLAB                    : B23   00170200
*                 ...............................................       00170300
*              W7 :       TN#PICC       :       TN#PTMSV        : B27   00170400
*                 ...............................................       00170500
*              W8 : TN#PLFGS :TN#PBSYC+1: TN#PORTI : TN#PLFG2   : B31   00170600
*                 ...............................................       00170700
*              W9 : TN#PFXFG :             TN#PLTCB             : B35   00170800
*                 ...............................................       00170900
*             W10 : TN#PDLID : TN#PPSID : TN#PCATI : TN#POFST   : B39   00171000
*                 ...............................................       00171100
*             W11 : TN#PTYPE : TN#PDEV  : TN#PSPED : TN#PFLGT   : B43   00171200
*                 ...............................................       00171300
*             W12 : TN#PPCB1 : TN#PPCB2 : TN#PPCB3 : TN#PPCB4   : B47   00171400
*                 ...............................................       00171500
*             W13 : OPEN     :             TN#PBCWA             : B51   00171600
*                 ...............................................       00171700
*             W14 :       TN#PURX1      :     OPEN              : B55   00171800
*                 ...............................................       00171900
         DO    &CA=0               . DO IF CA NOT CONFIGURED            00172000
*             W15 :                  TN#PBCW1                   : B59   00172100
*                 ...............................................       00172200
*             W16 :                  TN#PBCW2                   : B63   00172300
*                 ...............................................       00172400
*             W15 :                  TN#PBCW3                   : B59   00172500
*                 ...............................................       00172600
*             W18 :                  TN#PBCW4                   : B71   00172700
*                 ...............................................       00172800
*             W17 :                  TN#PCCW3                   : B67   00172900
*                 ...............................................       00173000
*             W20 :                   SPARE                     : B79   00173100
*                 ...............................................       00173200
         ENDO                      . ENDO &CA=0                         00173300
*                                                                       00173400
*                                                                       00173500
*                                                                       00173600
*                                                                       00173700
*                                                                       00173800
TN#PLINE DSECT                          . LINE LINK TABLE               00173900
TN#PHEAD DS    A                        . HEAD OR CURRENT PACKET ADDR   00174000
TN#PTAIL DS    A                        . TAIL PACKET ADDR              00174100
TN#PBASE DS    XL4                      . USER'S ABSOLUTE PROGRAM BASE  00174200
TN#PID   DS    0H                      CHANNEL, PORT                    00174300
TN#PLCHN DS    1C                        CHANNEL                        00174400
TN#PLPRT DS    1C                        PORT                           00174500
TN#PORTD DS    XL2                      . DISPLACEMENT TO OTHER FULL    00174600
*                                           DUPLEX PORT'S LLT           00174700
TN#PDLHD DS    F                        . HEAD PIOCP OF MSG WHEN        00174800
TN#PLAB  DS    F                        . LAST AUTOBUFFER ADDRESS, OR   00174900
*                                         LAST INTERRUPT DATA WHEN      00175000
*                                         THERE IS NO CPIOCP            00175100
TN#PICC  DS    H                        . ACCUMULATED INPUT CHARACTER   00175200
*                                         COUNT, OR NUMBER OF           00175300
*                                         INTERRUPTS WHEN THERE IS NO   00175400
*                                         CPIOCP                        00175500
TN#PTMSV DS    XL2                      . PIOCP TIME SAVE AREA          00175600
TN#PBSYC DS    H                        . BUSY COUNTER FOR 2NDARY CMDS  00175700
TN#PLFGS EQU   TN#PBSYC,1               . ZEROABLE LINE FLAGS           00175800
TN#P1P   EQU   X'80'                    .   1 BCW PREPED                00175900
TN#P1A   EQU   X'40'                    .   BCW1 ACTIVE                 00176000
TN#PSRBC EQU   X'20'                    .   SUPPRESS FURTHER RBC LOGIC  00176100
TN#PSIO  EQU   X'10'                    .   SIO ISSUED FOR ACTIVE MSG   00176200
TN#PITUC EQU   X'08'                    .   IDLE TIME UNIT CHECK        00176300
TN#PSECF EQU   X'04'                    .   SECONDARY FUNCTION FLAG     00176400
TN#PBZ   EQU   X'02'                    .   SENSE ISSUED FOR BUSY COND  00176500
TN#P2SEN EQU   X'01'                    .   2ND SENSE ISSUED            00176600
TN#P1P1A EQU   X'C0'                    .   TN#P1P PLUS TN#P1A          00176700
TN#P1P0  EQU   X'7F'                    .   TN#P1P =0                   00176800
TN#P1A0  EQU   X'BF'                    .   INDICATES BCW3 ACTIVE       00176900
TN#PORTI DS    XL1                      . SPECIAL PURPOSE PORT ID       00177000
TN#PLFG2 DS    1C                      FLAG FIELD                       00177100
TN#PTRAN EQU   X'80'                     BYSYNCH XPARENT                00177200
TN#PUNDR EQU   X'40'                   UNDERRUN ON OUTPUT               00177300
TN#PFXFG DS    XL1                      . FIXED LINE FLAGS              00177400
TN#PDSRO EQU   X'80'                    .   DATA SET READY OFF          00177500
TN#PDIAG EQU   X'04'                    .   DIAGNOSTIC TRACE REQUESTED  00177600
TN#PFDQ  EQU   X'02'                    .   FULL DUPLEX QUEUEING        00177700
TN#PFULL EQU   X'01'                    .   FULL DUPLEX CHANNEL         00177800
TN#PLTCB DS    XL3                      . TCB ADDRESS                   00177900
TN#PDLID DS    XL1                      . ID OF DIAL RELATED PORT       00178000
TN#PPSID DS    XL1                      . PRIMARY/SECONDARY PORT ID     00178100
TN#PCATI DS    XL1                      . CA TABLES DIRECTORY INDEX     00178200
TN#POFST DS    XL1                     AUTOBUFFER OFFSETS               00178300
TN#P1OFF EQU   X'F0'                     1ST BUFFER OFFSET              00178400
TN#PCOFF EQU   X'0F'                     CONTINUATION BUFFERS OFFSET    00178500
TN#PTYPE DS    XL1                      . LINE TYPE                     00178600
TN#PSDL  EQU   X'80'                    . SINGLE LINE DIAL ADAPTER      00178700
TN#PMDL  EQU   X'40'                    . MULTI-LINE DIAL ADAPTER       00178800
TN#PPRIM EQU   X'20'                    . PRIMARY CHANNEL PORT          00178900
TN#PSEC  EQU   X'10'                    . SECONDARY CHANNEL PORT        00179000
TN#PDEV  DS    XL1                      . DEVICE TYPE (VS/9 ONLY)       00179100
TN#PFPOL EQU   X'01'                    .    POLLED DCT 500 FLAG        00179200
TN#PFASC EQU   X'02'                    .    ASCII  DCT 500/TTY FLAG    00179300
TN#PA500 EQU   X'03'                    .    AUTOMATIC 500 OR DCT-525   00179400
TN#PU100 EQU   X'10'                    .    U100/DCT 1000.             00179500
TN#PDCT2 EQU   X'20'                    .    DCT 2000                   00179600
TN#PDCT1 EQU   X'21'                    .    9000 COMPUTER - 1004 MODE  00179700
TN#PDCT9 EQU   X'22'                    .    9000 COMPUTER -  929 MODE  00179800
TN#P1004 EQU   X'40'                    .    UNIVAC 1004                00179900
TN#P9200 EQU   X'41'                    .    UNIVAC 9200                00180000
TN#P9300 EQU   X'42'                    .    UNIVAC 9300                00180100
TN#PBTMT EQU   X'50'                    .    BSC TERMINAL, TRANSCODE    00180200
TN#PBCBT EQU   X'51'                    .    BSC CPU BATCH, TRANSCODE   00180300
TN#PBCIT EQU   X'52'                    .    BSC CPU INTERAC, TRANSCODE 00180400
TN#PBTME EQU   X'54'                    .    BSC TERMINAL, EBCDIC       00180500
TN#PBCBE EQU   X'55'                    .    BSC CPU BATCH, EBCDIC      00180600
TN#PBCIE EQU   X'56'                    .    BSC CPU INTERACTIVE,EBCDIC 00180700
TN#PBTMA EQU   X'58'                    .    BSC TERMINAL, ASCII        00180800
TN#PBCBA EQU   X'59'                    .    BSC CPU BATCH, ASCII       00180900
TN#PBCIA EQU   X'5A'                    .    BSC CPU INTERACTIVE,ASCII  00181000
TN#PTN4E EQU   X'A0'                    .    1004 EMULATION LINE        00181100
TN#PNTR  EQU   X'B0'                    .    NINE THOUSAND REMOTE (NTR) 00181200
TN#PSPED DS    XL1                      . LINE SPEED + FLAGS            00181300
TN#PFDX  EQU   X'80'                    .   FULL DUPLEX SUBCHANNEL      00181400
TN#PSWT  EQU   X'40'                    .   SWITCHED LINE               00181500
TN#PACU  EQU   X'20'                    .   AUTO-DIALING ASSOC W/PORT   00181600
TN#PSYN  EQU   X'10'                    .   SYNC SUBCHANNEL             00181700
TN#PLHSP EQU   X'04'                   >9600BPU                         00181800
TN#P9600 EQU   X'03'                   9600BPI                          00181900
TN#PRATE EQU   X'0F'                    .   LINE SPEED                  00182000
TN#PFLGT DS    XL1                      . LINE FLAG FIELD               00182100
TN#PDOWN EQU   X'80'                    .   LINE DOWN                   00182200
TN#PALLO EQU   X'40'                    .   LINE ALLOCATED              00182300
TN#PAPND EQU   X'20'                    .   LINE PENDING ALLOCATION     00182400
TN#PEON  EQU   X'10'                    .   EON CHAR REQ. (DIALER ONLY) 00182500
TN#PNEP  EQU   X'02'                    .   NO PHYSICAL LINE            00182600
TN#PPCB1 DS    XL1                      . PORT CONTROL BYTE # 1         00182700
TN#PPCB2 DS    XL1                      . PORT CONTROL BYTE # 2         00182800
TN#PPCB3 DS    XL1                      . PORT CONTROL BYTE # 3         00182900
TN#PPCB4 DS    XL1                      . PORT CONTROL BYTE # 4         00183000
TN#PPCW  EQU   TN#PPCB1,4               . PORT CONTROL WORD             00183100
TN#PBCWA DS    0F                      FULL A(BCW)                      00183200
         DS    1C                       OPEN                            00183300
         DS    3C                        3 CHAR ADDRESS                 00183400
TN#PURX1 DS    0H                      OFFSET TO UNDERRUN CHARACTERS    00183500
         DS    1C                                                       00183600
         DS    1C                        ACTUAL OFFSETT                 00183700
         DS    H                       OPEN                             00183800
         DO    (&CA=0)**(&VS9=0)      NOT CA AND NOT VS9                00183900
TN#PCTRL EQU   TN#PCATI                 .   NON CHK LT CNTRL BYTE, 9400 00184000
TN#PBCW1 DS    F                        . BCW1                          00184100
TN#PBCW2 DS    F                        . BCW2                          00184200
TN#PBCW3 DS    F                        . BCW3                          00184300
TN#PBCW4 DS    F                        . BCW4                          00184400
         ORG   TN#PBCW1                 . FOR 9700 AND CIC              00184500
TN#PCCW1 DS    2F                       . CCW1 FOR 9700                 00184600
         ORG   TN#PCCW1                                                 00184700
TN#PCMD1 DS    XL1                      .   COMMAND CODE FOR CCW1  9700 00184800
TN#PDADR DS    XL3                      .   DATA ADDRESS FOR 9700       00184900
TN#PCCWF DS    XL1                      . CCW FLAGS FOR 9700            00185000
TN#PCD   EQU   X'80'                    .   CHAIN DATA FOR 9700         00185100
TN#PPCI  EQU   X'08'               . PROGRAM CONTROLLED INTR 9700       00185200
TN#PCICD EQU   X'88'                    .   CD AND PCI FLAGS FOR 9700   00185300
         DS    XL1                      .   NOT USED FOR 9700           00185400
TN#PBCNT DS    XL2                      .   BYTE COUNT FOR 9700         00185500
TN#PCCW2 DS    2F                       . CCW2 FOR 9700                 00185600
TN#PCMD2 EQU   TN#PCCW2,1          . COMMAND CODE FOR CCW2 9700         00185700
TN#PCCW3 DS    F                        . CCW3, TIC   FOR 9700          00185800
         DS    XL4                      . SPARE FOR 9700 OR CIC         00185900
         ENDO  (&CA=0)**(&VS9=0)                                        00186000
         DO    &VS9                                                     00186100
TN#PBCW1 DS    F                        . CCW1                          00186200
TN#PBCW2 DS    F                        . CCW2                          00186300
TN#PBCW3 DS    F                        . CCW3                          00186400
TN#PBCW4 DS    F                        . CCW4                          00186500
TN#PCCW3 DS    F                        . CCW3,TIC FOR 9700             00186600
         DS    F                        . SPARE                         00186700
         ENDO  &VS9                                                     00186800
TN#PLING EQU   *-TN#PLINE               . LENGTH OF LLT                 00186900
         DO    &VS9                                                     00187000
         SPACE 2                                                        00187100
TN#PCCWS DSECT                          . TEMPLATE OF CCW               00187200
TN#PCCW1 DS    2F                       . CCW1 FOR 9700                 00187300
         ORG   TN#PCCW1                                                 00187400
TN#PCMD1 DS    XL1                      .   COMMAND CODE                00187500
TN#PDADR DS    XL3                      .   DATA ADDRESS                00187600
TN#PCCWF DS    XL1                      .   FLAGS                       00187700
TN#PCD   EQU   X'80'                    .      CHAIN DATA               00187800
TN#PPCI  EQU   X'08'                    .      PCI                      00187900
TN#PCICD EQU   TN#PCD++TN#PPCI          .      CD AND PCI               00188000
         DS    XL1                      .      NOT USED                 00188100
TN#PBCNT DS    XL2                      BYTE COUNT                      00188200
TN#PD1   EQU   TN#PBCNT-TN#PCCW1        .   OFFSET TO COUNT             00188300
         ENDO  &VS9                                                     00188400
         EJECT                                                          00188500
         ENDO                                                           00188600
         DO    &MCT                                                     00188700
*                 ...............................................       00188800
*              MESSAGE CONTROL TABLE (MCT) PICTURE                      00188900
*                 ...............................................       00189000
*                 +    0     +     1    +     2    +     3      +       00189100
*                 ...............................................       00189200
*              W1 : TN#MCT   :                TN#MCCHN          : B 3   00189300
*                 ...............................................       00189400
*              W2 :ICAM USE:                TN#MCCA          : B 7      00189500
*                 ...............................................       00189600
*              W3 :           ICAM USE ONLY                  : B11      00189700
*                 ...............................................       00189800
*              W4 : TN#MCDID : TN#MCEOM : TN#RESV  : TN#MCRTC   : B15   00189900
*                 ...............................................       00190000
*              W5 : TN#MCST1 : TN#MCST2 :     TN#MCRCC          : B19   00190100
*                 ...............................................       00190200
*              W6 : TN#MCNU1 :                TN#MCBFC          : B23   00190300
*                 ...............................................       00190400
*              W7 :       TN#MCBAL      :     TN#MCCHC          : B27   00190500
*                 ...............................................       00190600
*              W8 : TN#MCCKB :                TN#MCBFR          : B31   00190700
*                 ...............................................       00190800
*              W9 :       TN#MCBBL      : TN#MCSTB : TN#MCAD    : B35   00190900
*                 ...............................................       00191000
*              WA :       TN#MCLID      :     TN#MCSID       : B39      00191100
*                 ............................................          00191200
*                                                                       00191300
* MESSAGE CONTROL TABLE                                                 00191400
*                                                                       00191500
TN#MCTDS DSECT                                                          00191600
TN#MCT   DS    XL1                 . 1 FUNCTION AND IRL.                00191700
*        INDICATOR VALUES FOR TN#MCT                                    00191800
TN#MC01  EQU   X'01'               . BATCH MODE TEST                    00191900
TN#MCBMC EQU   X'02'               . BATCH MODE CONT. FLAG              00192000
TN#MCINP EQU   X'10'               . INPUT FUNCTION.                    00192100
TN#MCIBT EQU   X'11'               . BATCH MODE INPUT.                  00192200
TN#MCOTP EQU   X'20'               . OUTPUT FUNCTION.                   00192300
TN#MCOBT EQU   X'21'               . BATCH MODE OUTPUT.                 00192400
TN#MCBSC EQU   X'40'               . BSC BLOCK SIZE BUFFER SUPPLIED     00192500
TN#MCNTC EQU   X'40'               . NTR SERVICE/CONTROL MSG MCT        00192600
TN#MCIRL EQU   X'80'               . IMMEDIATE RETURN LINE.             00192700
*                                                                       00192800
TN#MCCHN DS    AL3                 . 3 CHAIN ADDRESS.                   00192900
TN#MCCHA EQU   TN#MCT,4            . 4 FW. CHAIN ADDRESS.               00193000
TN#MCRV1 DS    XL1                 . RESERVED FOR ICAM                  00193100
TN#MCCA  DS    AL3                 . 3 BYTE COMPL ADDR                  00193200
TN#MCCAF EQU   TN#MCRV1,4          . FW COMPL ADDR                      00193300
TN#MCJBF DS    F                   . RESERVED FOR ICAM                  00193400
TN#MCJCB EQU   TN#MCJBF+1,3        . 3 BYTE ADDR                        00193500
TN#MCDID DS    XL1                 . 1 DEVICE ID.                       00193600
TN#MCDIN EQU   TN#MCDID            . DCT INDEX                          00193700
TN#MCEOM DS    XL1                 . 1 EOM CONDITION BYTE.              00193800
*        INDICATORS FOR EOM COND. BYTE. TN#MCEOM                        00193900
TN#MCNIP EQU   X'08'               . DO NOT ALLOW INPUT AFTER OUTPUT    00194000
TN#MCIAO EQU   X'10'               . ALLOW 3 SEC INPUT AFTER OUTPUT     00194100
TN#MCTII EQU   X'20'               . MARK TERM. INHIBIT INPUT           00194200
TN#MCTEI EQU   X'40'               . MARK TERM ENABLE INPUT             00194300
TN#MCLCT EQU   X'80'               . ACCEPT TRUNC. AS NORMAL.           00194400
*                                                                       00194500
TN#RESV  DS    XL1                 . 1 RESERVED.                        00194600
TN#MCRTH EQU   TN#RESV,2           .   HW ADDR. RETRY COUNTER.          00194700
TN#MCRTC DS    XL1                 . 1 RETRY COUNTER.                   00194800
TN#MCST1 DS    XL1                 . 1 FIRST STATUS BYTE                00194900
*        INDICATOR VALUES FOR TN#MCST1                                  00195000
TN#MCURE EQU   X'10'               . UNRECOVERABLE BUFFER LATE.         00195100
TN#MCLNO EQU   X'11'               . LINE DOWN. OR NOT OPENED.          00195200
TN#MCDNA EQU   X'12'               . TERMINAL OR DEVICE DOWN/NOT AVAIL. 00195300
TN#MCIVF EQU   X'14'               . INVALID FORMAT. LINE OR BUFFER.    00195400
TN#MCSIT EQU   X'18'               . BAD SITE ID OR UNDEFINED RID/SID   00195500
TN#MCBLI EQU   X'20'               . INPUT BUFFER LATE.                 00195600
TN#MCIPE EQU   X'21'               . INPUT PARITY/BLOCK CHECK ERROR.    00195700
TN#MCIAB EQU   X'22'               . ABORT INPUT.                       00195800
TN#MCNAX EQU   X'40'               . AUX DEVICE DOWN                    00195900
TN#MCOPE EQU   X'41'               . OUTPUT PARITY/BLOCK CHECK ERROR.   00196000
TN#MCOAB EQU   X'42'               . ABORT OUTPUT/BREAK RECIEVED        00196100
TN#MCOBK EQU   TN#MCOAB            . ABORT OUTPUT/BREAK RECIEVED        00196200
TN#MCBLO EQU   X'44'               . OUTPUT BUFFER LATE                 00196300
TN#MCNOR EQU   X'80'               . NORMAL BUFFER COMPLETION.          00196400
TN#MCNEM EQU   X'81'               . NORMAL END OF MESSAGE.             00196500
TN#MCTEM EQU   X'82'               . EOM WITH LEGAL TRUNCATION.         00196600
TN#MCRIR EQU   X'84'               . RING INDICATOR RECIEVED            00196700
TN#MCPGE EQU   TN#MCST1,2          . TCI OUTPUT PAGING FLAGS            00196800
TN#MCSCH EQU   TN#MCST1,2          . UNISCOPE AUX DEV SELECT COUNT HW   00196900
*                                                                       00197000
TN#MCST2 DS    XL1                 . 1 MISCELLANEOUS USAGE              00197100
*  TN#MCST2 IS USED BY RDH AS OUTPUT RETRY COUNTER.                     00197200
TN#MCSTS EQU   TN#MCST1,2          . 2 STATUS HW.                       00197300
TN#MCSRC EQU   TN#MCST2            . UNISCOPE AUX DEV SELECT COUNT      00197400
TN#MCRCC DS    H                   . 2 RESIDUAL CHARACTER COUNT HW.     00197500
TN#MCNU1 DS    XL1                 . 1 NOT ASSIGNED.                    00197600
TN#MCBFC DS    AL3                 . 3 CURRENT BUFFER (A) ADDR.         00197700
TN#MCBFA EQU   TN#MCNU1,4          . 4 FW BUFFER (A) ADDR.              00197800
TN#MCBAL DS    H                   . 2 CURRENT BUFFER LENGTH HW.        00197900
TN#MCERS EQU   TN#MCBAL            .   PIOCP CODES AT ERROR RETURN      00198000
TN#MCCHC DS    H                   . TOTAL CHARACTER COUNT.             00198100
TN#MCCKB DS    XL1                 . 1 BUFFER CONTROL BYTE           T  00198200
*        INDICATORS FOR BUFFER CONTROL BYTE. TN#MCCKB                   00198300
TN#MCCBS EQU   X'80'               . CHECK BYTE SET.                    00198400
TN#MCX20 EQU   X'20'               .BUFFER IS EOM. INTERFACE TO RDH.    00198500
TN#MCEM1 EQU   X'20'               . FIRST BUFFER IS EOM.(SET BY USER). 00198600
TN#MCEM2 EQU   X'40'               . REPLACEMENT BUFFER IS EOM (USER).  00198700
TN#MCEMC EQU   X'A0'               . SET EOM & CHECK BYTE.              00198800
TN#MCLBW EQU   X'10'               . LAST OUTPUT BUFFER TO RDH.(INFOR.) 00198900
TN#MCOMT EQU   X'04'               . OUTPUT BUFFER LATE                 00199000
TN#MCCSG EQU   X'02'               . CONT.SEG. FLAG. TCI OUTPUT         00199100
TN#MCBBS EQU   X'01'               . BUFFER BYTE SET.                   00199200
*                                                                       00199300
TN#MCBFR DS    AL3                 . 3 REPLACEMENT BUFFER (B) ADDR.     00199400
TN#MCBFB EQU   TN#MCCKB,4          . 4 FW BUFFER (B) ADDRESS.           00199500
TN#MCBBL DS    H                   . 2 REPLACEMENT (B) BUFFER LENGTH.   00199600
TN#MCDNP EQU   TN#MCBFR,4          . TCI DELIVERY NOTICE PARAMETER      00199700
TN#MCOFG EQU   TN#MCBBL+1,1        . TCI OUTPUT FLAGS                   00199800
TN#MCENI EQU   X'40'               . CLEAR INHIBIT BEFORE OUTPUT EOM    00199900
TN#MCSTB DS    XL1                 . 1 EXTENDED STATUS BYTE.            00200000
TN#MCAD  DS    XL1                 . 1 AUX. DEVICE BYTE.                00200100
*                                                                       00200200
* VALUES FOR THE TN#MCSTB FIELD TO REPORT GENERAL ERROR CONDITIONS      00200300
*                                                                       00200400
TN#MCOVR EQU   X'09'               . OVERSIZED PRINT/PUNCH IMAGE SENT   00200500
TN#MCRTA EQU   X'11'               . INPUT- INVALID TERMINAL ADDR       00200600
TN#MCRNB EQU   X'12'               .INPUT- NETWORK BUFFER LATE          00200700
TN#MCRBI EQU   X'13'               . INPUT- BAD INPUT TEXT              00200800
*                                                                       00200900
* EQUATES TO THE MESSAGE CONTROL TABLE FOR THE U100/DCT1000 RDH         00201000
*                                                                       00201100
* VALUES FOR THE TN#MCAD FIELD                                          00201200
*                                                                       00201300
TN#MCPRE EQU   X'10'               . PREVENT NONSIGNIF SPACE SUPPRESS   00201400
TN#MCTAT EQU   X'20'               . TRANSPARENT AUX DEVICE TRANSFER    00201500
TN#MCCMW EQU   X'40'               . COMPUTER MESSAGE WAITING           00201600
TN#MCPRT EQU   X'80'               . PRINT (WRITE)                      00201700
TN#MCRDB EQU   X'81'               . READ A BLOCK - TCS                 00201800
TN#MCBOB EQU   X'82'               . BACKWARD ONE BLOCK - TCS           00201900
TN#MCSRH EQU   X'83'               . SEARCH - TCS                       00202000
TN#MCRPA EQU   X'84'               . REPORT ADDRESS - TCS               00202100
*                                                                       00202200
* VALUES FOR THE TN#MCSTB FIELD                                         00202300
*                                                                       00202400
** INDICATOR VALUES FOR SPECIAL FUNCTION MESSAGE RECEIVED FROM U100     00202500
TN#MCMWK EQU   X'40'               . MESSAGE WAIT KEY                   00202600
TN#MCFK1 EQU   X'41'               . FUNCTION KEY ONE                   00202700
TN#MCFK2 EQU   X'42'               . FUNCTION KEY TWO                   00202800
TN#MCFK3 EQU   X'43'               . FUNCTION KEY THREE                 00202900
TN#MCFK4 EQU   X'44'               . FUNCTION KEY FOUR                  00203000
** INDICATOR VALUES FOR U100 AUX DEVICE STATUS                          00203100
TN#MCDS1 EQU   X'01'               . U100 AUX DEVICE STATUS ONE         00203200
TN#MCDS2 EQU   X'02'               . U100 AUX DEVICE STATUS TWO         00203300
TN#MCDS3 EQU   X'03'               . U100 AUX DEVICE STATUS THREE       00203400
TN#MCDS4 EQU   X'04'               . U100 AUX DEVICE STATUS FOUR        00203500
** INDICATOR VALUES USED WHEN RETRY COUNT ON INPUT IS EXCEEDED          00203600
TN#MCRFE EQU   X'05'               . FRONT END                          00203700
TN#MCRBH EQU   TN#MCRBI            . BAD INPUT MESSAGE HEADER           00203800
** INDICATOR VALUES USED FOR VARIOUS OUTPUT ERRORS                      00203900
TN#MCOFE EQU   X'0A'               . FRONT END                          00204000
TN#MCOMA EQU   X'0B'               . MISSING ACKNOWLEDGE                00204100
TN#MCDLE EQU   X'0C'               . DCT1000 MSG LENGTH EXCEEDED        00204200
TN#MCDTO EQU   X'0D'               . DCT1000 TIMEOUT - OUT OF PAPER     00204300
*                                                                       00204400
* EQUATES TO THE MESSAGE CONTROL TABLE FOR THE DCT500/TTY RDH           00204500
*                                                                       00204600
* VALUES FOR THE TN#MCAD FIELD                                          00204700
*                                                                       00204800
TN#MCSMW EQU   TN#MCCMW            . SEND CMPTR-MSG-WAITNG MSG TO TERM  00204900
*                                                                       00205000
* VALUES FOR THE TN#MCSTB FIELD                                         00205100
*                                                                       00205200
TN#MCMWT EQU   TN#MCMWK            . SEND WAITING CMPTR MSG TO TERM     00205300
TN#MCBRK EQU   X'06'               . BREAK OR INTERRUPT RECEIVED        00205400
TN#MCTDI EQU   X'07'               . TIMEOUT DURING INPUT               00205500
TN#MCTRE EQU   X'08'               . DCT524 MAG TAPE READ ERROR         00205600
*                                                                       00205700
* EQUATES TO THE MESSAGE CONTROL TABLE FOR BATCH HANDLERS               00205800
*                                                                       00205900
* VALUES FOR THE TN#MCAD FIELD                                          00206000
*                                                                       00206100
TN#MCSHT EQU   X'20'               . SEND HALT                          00206200
TN#MCSRV EQU   X'20'               . SEND RVI (BSC)                     00206300
TN#MCTRN EQU   X'04'               . SEND TRANSPARENT (BSC)             00206400
TN#MCBCN EQU   X'10'               . SEND BSC CONNECT SEQ (INPUT)       00206500
TN#MCBDC EQU   X'40'               . SEND BSC DLE EOT (INPUT, OUTPUT)   00206600
*                                                                       00206700
* VALUES FOR THE TN#MCSTB FIELD                                         00206800
*                                                                       00206900
TN#MCRTN EQU   X'04'               . RECEIVED TRANSPARENT (BSC)         00207000
TN#MCRHT EQU   X'20'               . RECEIVED HALT                      00207100
TN#MCRHV EQU   X'21'               . RECEIVED HALT GO VOICE             00207200
TN#MCRER EQU   X'22'               . RECEIVED END READ                  00207300
TN#MCRDY EQU   X'23'               . RECEIVED READY                     00207400
TN#MCOFF EQU   X'24'               . RECEIVED OFFLINE                   00207500
TN#MCAPR EQU   X'25'               . RECEIVED ABORT PRINT               00207600
TN#MCAPU EQU   X'26'               . RECEIVED ABORT PUNCH               00207700
TN#MCRVI EQU   X'27'               . RECEIVED RVI (BSC)                 00207800
TN#MCRRD EQU   X'28'               . RECVD A READ REQST DURING OUTPUT   00207900
*                                                                       00208000
* EQUATES TO THE MESSAGE CONTROL TABLE FOR SLAVE MODE HANDLERS          00208100
*                                                                       00208200
* VALUES FOR THE TN#MCAD FIELD                                          00208300
*                                                                       00208400
TN#MCNCH EQU   X'00'               . NO CHANGE INDICATOR                00208500
TN#MCINI EQU   X'05'               . INITIAL MCT FLAG (START POLLING)   00208600
TN#MCRDF EQU   X'02'               . INITIATE OUTPUT                    00208700
TN#MCPRA EQU   X'09'               . SEND ABORT PRINT TO HOST           00208800
TN#MCPUA EQU   X'0A'               . SEND ABORT PUNCH TO HOST           00208900
TN#MCSOL EQU   X'0C'               . SEND 'OFFLINE' FUNCTION            00209000
*                                                                       00209100
* VALUES FOR THE TN#MCSTB FIELD                                         00209200
*                                                                       00209300
TN#MCSND EQU   X'A0'               . GET CARDS TO SEND                  00209400
TN#MCHGR EQU   X'A5'               . RECEIVED 'HALT-GO-VOICE' FUNCTION  00209500
TN#MCYLD EQU   X'A6'               . MCT RETURNED FOR HALT DO CYIELD    00209600
TN#MCSNT EQU   X'AA'               . SPECIAL FUNCTION SENT              00209700
TN#MCEOJ EQU   X'FF'               . 'OFFLINE' SENT (GO TO EOJ)         00209800
*                                                                       00209900
TN#MCLID DS    H                   . HW LINE ID                         00210000
TN#MCLIN EQU   TN#MCLID,2          . LCT INDEX                          00210100
TN#MCSID DS    H                   . HW STATION ID                      00210200
TN#MCTIN EQU   TN#MCSID,2          . TCT INDEX                          00210300
*                                                                       00210400
TN#MLNG  EQU   *-TN#MCTDS          . LENGTH OF MESSAGE CONTROL TABLE    00210500
         EJECT                                                          00210600
         ENDO                                                           00210700
         DO    &MSGPRE                                                  00210800
*                                                                       00210900
         EJECT                                                          00211000
*                 ................................................      00211100
         DO    &TRANS=0                                                 00211200
*                 :                MESSAGE PREFIX PICTURE       :       00211300
*                 ................................................      00211400
*                 :    0     :     1     :     2     :     3     :      00211500
*                 ................................................      00211600
*              W1 :                TN#MNEXT                      :      00211700
*                 ................................................      00211800
*              W2 : TN#MFLGS : TN#MBUFN  :       TN#MBYTE        :      00211900
*                 ................................................      00212000
*              W3 : TN#MOFLG : TN#MOPRI  :       TN#MOPGE        :COFF  00212100
*                 ................................................      00212200
*              W4 : TN#MNTYP : TN#MINDC  : TN#MSPEC  : TN#MDVC   :TSNS  00212300
*                 ................................................      00212400
*              W5 :                TN#MDEST                      :      00212500
*                 ................................................      00212600
*              W6 :                TN#MSORS                      :      00212700
*                 ................................................      00212800
*              W7 :                TN#MJDAT                      :      00212900
*                 ................................................      00213000
*              W8 :                TN#MTIME                      :      00213100
*                 ................................................      00213200
*              W9 :                TN#MTRNO                      :TSWS  00213300
*                 ................................................      00213400
*              W10:     TN#MTOBY         :       TN#MTDIS        :      00213500
*                 ................................................      00213600
*              W11:                TN#MPRHD                      :      00213700
*                 ................................................      00213800
*              W12:                TN#MNXHD                      :      00213900
*                 ................................................      00214000
*              W13: TN#MQFLG :           TN#MQADR                :      00214100
*                 ................................................      00214200
*              W14:                TN#MQDLP                      :      00214300
*                 ................................................      00214400
*              W15:                TN#MQACS                      :HOFFC 00214500
*                 ................................................      00214600
*              W16:           RESERVED FOR DISC QUEUING          :      00214700
*                 ................................................      00214800
*              W17:           RESERVED FOR DISC QUEUING          :      00214900
*                 ................................................      00215000
*              W18:           RESERVED FOR DISC QUEUING          :      00215100
*                 ................................................      00215200
*              W19:           RESERVED FOR DISC QUEUING          :HOFFD 00215300
*                 ................................................      00215400
*                 :                                              :      00215500
*                 : WHERE:  COFF = CONTINUATION OFFSET SIZE     =: 12B  00215600
*                 :         TSNS = TRANSIENT SIZE WITHOUT STAMP =: 16B  00215700
*                 :         TSWS = TRANSIENT SIZE WITH STAMPING =: 36B  00215800
*                 :         HOFFC= HEADER OFFSET CORE QUEUING   =: 60B  00215900
*                 :         HOFFD= HEADER OFFSET DISC QUEUING   =: 76B  00216000
*                 :                                              :      00216100
*                 .............................................         00216200
         EJECT                                                          00216300
*                                                                       00216400
* STANDARD MCP MESSAGE PREFIX-PSEUDO NAME IS MSGPRE                     00216500
*                                                                       00216600
TN#MSG   DSECT                                                          00216700
TN#CBFF  EQU   TN#MSG              . FOR 9700 CONVERSION                00216800
* * *  M E S S A G E  H D R / S G M T  P R E F I X  --  T N # M S G     00216900
*              NOTE: ADDRESSES MAY BE DISC (SIAM) OR MAIN STORE         00217000
* * FOLLOWING PRESENT FOR ALL SEGMENTS OF MSG                           00217100
TN#MNEXT DS    A                        NEXT BUFFER/SGMT IN MSG         00217200
TN#MFLGS DS    XL1                      FLAGS FOR THIS BUFF/SGMT        00217300
*              FOLLOWING VALUES USED WITH TN#MFLGS                      00217400
TN#MFDSC EQU    X'08'              NEXT SEGMENT IS DISC ADDRESS         00217500
TN#MFDEL EQU   X'04'              SEGMENT DATA DELIVERED                00217600
TN#MFHDR EQU   X'02'                    FIRST BUFFER OF MESSAGE         00217700
TN#MFLST EQU   X'01'                    LAST BUFFER OF MESSAGE          00217800
*                                                                       00217900
TN#MQFL2 EQU   TN#MFLGS            . QUEUE PROCESSOR FLAGS              00218000
TN#MQQDC EQU   X'80'               . DISC IMAGE EXISTS                  00218100
TN#MQQCR EQU   X'40'               . CORE IMAGE EXISTS                  00218200
TN#MHDBZ EQU   X'20'               . I/O IN PROGRESS (HEADER BUSY)      00218250
TN#MFHBF EQU   X'10'                    DO NOT RELEASE BUFFERS          00218300
TN#MBUFN DS    XL1                                                      00218400
*              1ST (HDR) BUFFER - TOTAL NUMBER BUFFERS IN MSG           00218500
*              NOT 1ST BUFFER - BUFFER SERIAL #                         00218600
TN#MBYTE DS    H                        # TEXT BYTES IN BUFFER          00218700
*                                                                       00218800
TN#MOFLG DS    XL1                 . 1 USER TCI OUTPUT FLAGS            00218900
*                                                                       00219000
*              FOLLOWING VALUES USED FOR TN#MOFLG                       00219100
*                                                                       00219200
TN#MOPRM EQU   X'02'               . TO PRIMARY IF AUX DOWN             00219300
TN#MOHLD EQU   X'04'               . HOLD NEW OUTPUT ON QUEUE AT EOM    00219400
TN#MOSND EQU   X'08'               . SUPPRESS DELIVERY                  00219500
TN#MORSD EQU   X'10'            . DO NOT DEQUEUE MSG                    00219600
TN#MOCIN EQU   X'20'               . CANCEL INPUT FLAG                  00219700
TN#MOENI EQU   X'40'               . ENABLE INPUT                       00219800
TN#MBEOF EQU   X'80'               . BATCH DEVICE END-OF-FILE SEGMENT   00219900
*                                                                       00220000
TN#MOPRI DS    XL1                 . 1 USER OUTPUT PRIORITY LEVEL       00220100
*                                                                       00220200
*              FOLLOWING VALUES USED FOR TN#MOPRI                       00220300
*                                                                       00220400
TN#MOTPB EQU   X'04'               . TOP BREAK PRIORITY                 00220500
TN#MOTOP EQU   X'04'               . TOP PRIORITY MESSAGE               00220600
TN#MOHIG EQU   X'02'               . HIGH PRIORITY MESSAGE              00220700
TN#MOLOW EQU   X'01'               . LOW PRIORITY MESSAGE               00220800
*                                                                       00220900
TN#MOPGE DS    H                   . TCI OUTPUT PAGING FLAGS            00221000
*                                                                       00221100
*              VALUES ARE NOT YET DEFINED                               00221200
*                                                                       00221300
TN#MOFBY EQU   TN#MOFLG,4          . OUTPUT FLAGS (FULLWORD)            00221400
TN#MDANS DS    F                   . DISC ADDR OF NEXT SEGMENT          00221500
TN#MUSEC EQU   TN#MDANS,1          . MESSAGE USE COUNT                  00221600
TN#MCSL  EQU   *                   . CONTINUATION SEGMENT LENGTH        00221700
TN#MTXTA EQU   *                        TEXT IF NOT 1ST BUFFER          00221800
TN#MTXPL EQU   TN#MTXTA-TN#MSG          LENGTH OF TEXT SGMT PREFIX      00221900
TN#MNTYP DS    XL1                 NETWORK-TYPE                         00222000
*              BIT 0-3 OF TN#CNTYP ARE MOVED INTO BIT 0-3 OF TN#MNTYP   00222100
*              FOLLOWING VALUES USED WITH TN#MNTYP                      00222200
TN#MIMS  EQU   X'80'                    IMS MESSAGE                     00222300
TN#MRJE  EQU   X'40'                    RJE MESSAGE                     00222400
TN#MDIAG EQU   X'08'                    DIAGNOSTIC MESSAGE              00222500
TN#MINDC DS    XL1                 MESSAGE INDICATORS                   00222600
*              FOLLOWING VALUES USED WITH TN#MINDC                      00222700
TN#MIDSC EQU   X'80'                    DISC QUEUEING                   00222800
TN#MICTL EQU   X'40'                    CONTROL MSG                     00222900
TN#MIRXM EQU   X'20'                    MPPS RETRANSMIT                 00223000
TN#MISOL EQU   X'10'                    OUTPUT SOLICITING INPUT         00223100
TN#MIFS  EQU   X'08'               USE FAST SELECT FROM DEST TERMINAL   00223200
TN#MIPRC EQU   X'04'               MPP ORIGINATED (PUT)                 00223300
TN#MIRRO EQU   X'02'                    MPPS REROUTE OUTPUT             00223400
TN#MIQQT EQU   X'01'               . QUEUE TO QUEUE TRANSFER FUNCTION   00223500
         ENDO                                                           00223600
         DO    &TRANS                                                   00223700
*                                                                       00223800
*        TRANSIENT TCI MESSAGE PREFIX - PSEUDO NAME IS MSGPRE           00223900
*                                                                       00224000
TN#MSG   DSECT                                                          00224100
*                                                                       00224200
*        INPUT FORMAT                                                   00224300
*                                                                       00224400
TN#MBYTE DS    H                   . 2 #TEXT BYTES IN BUFFER            00224500
         DS    XL2                 . 2 RESERVED                         00224600
TN#MSORS DS    XL4                 . 4 SOURCE TERMINAL NAME             00224700
TN#MJDAT DS    XL4                 . 4 JULIAN DATE                      00224800
TN#MTIME DS    XL4                 . 4 TIME OF DAY (MSEC)               00224900
TN#MTRNO DS    XL4                     . 4 TRANSACTION NUMBER           00225000
         ORG   TN#MBYTE                                                 00225100
*                                                                       00225200
*        OUTPUT FORMAT                                                  00225300
*                                                                       00225400
         DS    XL4                     . 4 UNUSED                       00225500
TN#MOFLG DS    XL1                 . 1 USER OUTPUT FLAGS                00225600
*                                                                       00225700
*              FOLLOWING VALUES USED FOR TN#MOFLG                       00225800
TN#MOPRM EQU   X'02'                    . SEND OUTPUT TO PRIM IF AUX D  00225801
TN#MOHLD EQU   X'04'                    . HOLD QUEUE AT OUT EOM
TN#MOSND EQU   X'08'                    . SUPPRESS OUT DELIVERY NOTICE
TN#MORSD EQU   X'10'               . DO NOT DEQUEUE MESSAGE             00225900
TN#MOCIN EQU   X'20'                    . CANCEL INPUT                  00225901
TN#MOENI EQU   X'40'                    . ENABLE INPUT AT OUT EOM
TN#MBEOF EQU   X'80'                    . BATCH END OF FILE
*                                                                       00226000
TN#MOPRI DS    XL1                 . 1 USER OUTPUT PRIORITY             00226100
*                                                                       00226200
*              FOLLOWING VALUES USED FOR TN#MOPRI                       00226300
*                                                                       00226400
TN#MOTPB EQU   X'04'               . TOP BREAK IS SAME AS BREAK         00226500
TM#MOTOP EQU   X'04'               . TOP PRIORITY OUTPUT                00226600
TN#MOHIG EQU   X'03'               . HIGH PRIORITY OUTPUT               00226700
TN#MOMED EQU   X'02'               . MEDIUM PRIORITY OUTPUT             00226800
TN#MOLOW EQU   X'01'               . LOW PRIORITY OUTPUT                00226900
*                                                                       00227000
TN#MOPGE DS    H                   . 2 - OUTPUT PAGING FLAGS            00227100
TN#MDEST DS    XL4                 . 4 DESTINATION NAME                 00227200
TN#MDNP  DS    XL4                 . 4 - DELIVERY NOTICE PARAMETER      00227300
         ENDO                                                           00227400
*                                                                       00227500
TN#MSPEC DS    XL1                      SPECIAL I/O CHARACTERS          00227600
*                                                                       00227700
*    TN#MSPEC VALUES                                                    00227800
*                                                                       00227900
*    TN#MSPEC INPUT VALUES FOR U100/DCT1000                             00228000
*    INDICATOR VALUES FOR SPECIAL FUNCTION MESSAGE RECEIVED FROM U100   00228100
TN#MW    EQU   X'40'               . REQUEST MESSAGE WAITING            00228200
TN#MF1   EQU   X'41'               . FUNCTION KEY ONE                   00228300
TN#MF2   EQU   X'42'               . FUNCTION KEY TWO                   00228400
TN#MF3   EQU   X'43'               . FUNCTION KEY THREE                 00228500
TN#MF4   EQU   X'44'               . FUNCTION KEY FOUR                  00228600
*    INDICATOR VALUES FOR U100 AUXILIARY DEVICE STATUS                  00228700
TN#MADS1 EQU   X'01'               . UNISCOPE AUX DEVICE STATUS ONE     00228800
TN#MADS2 EQU   X'02'               . UNISCOPE AUX DEVICE STATUS TWO     00228900
TN#MADS3 EQU   X'03'               . UNISCOPE AUX DEVICE STATUS THREE   00229000
TN#MADS4 EQU   X'04'               . UNISCOPE AUX DEVICE STATUS FOUR    00229100
*                                                                       00229200
*    TN#MSPEC VALUES FOR REPORTING GENERAL ERROR CONDITIONS             00229300
*                                                                       00229400
TN#MGSIT EQU   X'09'               . BAD SITE ID                        00229500
TN#MGRIN EQU   X'10'               . INPUT RETRY COUNT EXCEEDED         00229600
TN#MGRTA EQU   X'11'               . INPUT - INVALID TERMINAL ADDRESS   00229700
TN#MGRNB EQU   X'12'               . INPUT - NETWORK BUFFER LATE        00229800
TN#MGRBI EQU   X'13'               . INPUT - BAD INPUT TEXT             00229900
TN#MGROT EQU   X'16'               . OUTPUT RETRY COUNT EXCEEDED        00230000
*                                                                       00230100
*    TN#MSPEC OUTPUT VALUES FOR U100/DCT1000                            00230200
TN#MSCMW EQU   X'40'               . SEND COMPUTER MESSAGE WAITING      00230300
TN#MWRIT EQU   X'80'               . PRINT (WRITE) TO COP,TCS,NIP       00230400
TN#MREAD EQU   X'81'               . READ A BLOCK - TCS                 00230500
TN#MBS   EQU   X'82'               . BACKWARD ONE BLOCK - TCS           00230600
TN#MSRCH EQU   X'83'               . SEARCH - TCS                       00230700
TN#MREPT EQU   X'84'               . REPORT ADDRESS - TCS               00230800
*                                                                       00230900
*    TN#MSPEC INPUT/OUTPUT VALUES FOR DCT2000                           00231000
TN#MBEL  EQU   X'07'                    BEL (SIGNAL REMOTE KEY-TYPE 2   00231100
TN#MEOT  EQU   X'04'                    EOT (SEND EOT KEY)-----TYPE 1   00231200
*                                                                       00231300
*    TN#MSPEC OUTPUT VALUES FOR 1004/9200/9300                          00231400
TN#MHALT EQU   X'20'               . HALT REMOTE SITE                   00231500
*                                                                       00231600
*    TN#MSPEC INPUT VALUES FOR 1004/9200/9300                           00231700
TN#MRHLT EQU   X'20'               . RECEIVED HALT                      00231800
TN#MHLVC EQU   X'21'               . RECEIVED HALT GO VOICE             00231900
TN#MENDR EQU   X'22'               . RECEIVED END READ                  00232000
TN#MRDY  EQU   X'23'               . RECEIVED READY                     00232100
TN#MOFFL EQU   X'24'               . RECEIVED OFFLINE                   00232200
TN#MAPRT EQU   X'25'               . RECEIVED ABORT PRINT               00232300
TN#MAPNC EQU   X'26'               . RECEIVED ABORT PUNCH               00232400
*                                                                       00232500
*    TN#MSPEC INPUT VALUES FOR 1004 SLAVE MODE HANDLER                  00232600
*                                                                       00232700
TN#MSHGR EQU   X'A5'               . RECEIVED 'HALT-GO-VOICE' FUNCTION  00232800
TN#MSAOR EQU   X'A6'               . RECEIVED 'ABORT OUTPUT' FUNCTION   00232900
TN#MSAIR EQU   X'A8'               . RECEIVED 'ABORT INPUT' FUNCTION    00233000
TN#MSSNT EQU   X'AA'               . SPECIAL FUNCTION SENT              00233100
*                                                                       00233200
*    TN#MSPEC OUTPUT VALUES FOR 1004 SLAVE MODE HANDLER                 00233300
*                                                                       00233400
TN#MSNCH EQU   X'00'               . NO CHANGE INDICATOR                00233500
TN#MSSRD EQU   X'05'               . REINITIATE COMMUNICATIONS          00233600
TN#MSSHL EQU   X'07'               . SEND 'HALT' FUNCTION CHARACTER     00233700
TN#MSSOL EQU   X'0C'               . SEND 'OFFLINE' FUNCTION            00233800
*                                                                       00233900
TN#MDVC  DS    XL1                      DESTINATION DEVICE              00234000
*                                                                       00234100
*    TN#MSPEC INPUT / OUTPUT VALUES FOR DCT500/TTY                      00234200
*              TO BE DEFINED                                            00234300
*                                                                       00234400
*    TN#MDVC OUTPUT VALUES FOR U100/DCT1000:  X'00' - X'0C'             00234500
*                                                                       00234600
*    TN#MDVC VALUES FOR DCT2000/1004                                    00234700
TN#MPTR  EQU   X'00'                   PRINTER                          00234800
TN#MPCH  EQU   X'01'                   PUNCH                            00234900
         DO    &TRANS=0                                                 00235000
TN#MDEST DS    XL4                      DESTINATION TERMINAL NAME       00235100
TN#MSORS DS    XL4                      SOURCE TERMINAL NAME            00235200
TN#MDNP  EQU   TN#MSORS                 TCI DESTINATION ID              00235300
*                                                                       00235400
* * THE FOLLOWING PRESENT IF 1ST BUF/SGMT OF MESSAGE                    00235500
TN#MMHSP DS    H                        MCP MESSAGE HEADER SCAN POINTER 00235600
TN#MUHSP DS    H                        USER MESSAGE HDR SCAN POINTER   00235700
TN#MSQI  DS    XL2                      SEQUENCE COUNT INPUT            00235800
TN#MSQO  DS    XL2                      SEQUENCE COUNT OUTPUT           00235900
TN#MERRB DS    XL2                      MPPS ERROR BIT SETTINGS         00236000
*              FOLLOWING VALUES USED WITH TN#MERRB                      00236100
*                        ERROR BITS SET BY MPPS FUNCTIONAL MACROS       00236200
TN#MENDT EQU   X'80'               NO DESTINATION SPECIFIED             00236300
TN#MNDST EQU   TN#MENDT            . NO DEST                            00236400
TN#MEBDT EQU   X'40'               INVALID DESTINATION                  00236500
TN#MBDST EQU   TN#MEBDT            . INVALID DEST                       00236600
TN#MSDST EQU   TN#MEBDT            . INVALID DEST                       00236700
TN#MENUC EQU   X'20'               NO USER OWN CODE ADDR FOR TRANSFER   00236800
TN#MEINS EQU   X'08'               NOT ENOUGH RESERVED FOR INSERTION    00236900
TN#MBINS EQU   TN#MEINS            . NOT ENOUGH INSERT BLKS             00237000
TN#MEEOH EQU   X'10'               END OF HEADER REACHED DURING SCAN    00237100
TN#MEOH  EQU   TN#MEEOH            . END OF HEADER                      00237200
TN#MEBSR EQU   X'04'               BAD SOURCE - BUT VALID TERM NAME     00237300
TN#MENSR EQU   X'02'               BAD SOURCE - INVALID TERM NAME       00237400
TN#MNSOR EQU   TN#MENSR            . INVALID TERM                       00237500
TN#MEBSQ EQU   X'01'               BAD SEQUENCE IN COUNT                00237600
TN#MBSQI EQU   TN#MEBSQ            . BAD SEQ                            00237700
TN#BSQT  EQU   TN#MEBSQ            . BAD SEQ                            00237800
*              FOLLOWING VALUES USED WITH TN#MERRB+1                    00237900
*                        ERROR BITS SET AS RESULT OF STATUS RECEIVED    00238000
*                        FROM RDH OR MPPS PROCESSING                    00238100
TN#MENBF EQU   X'80'               NO BUFFER AVAILABLE                  00238200
TN#MECER EQU   X'40'               CHANNEL ERROR                        00238300
TN#MCERR EQU   TN#MECER            . CHANNEL ERROR                      00238400
TN#MELER EQU   X'20'               LINE ERROR                           00238500
TN#MLERR EQU   TN#MELER            . LINE ERROR                         00238600
TN#METER EQU   X'10'               TERMINAL ERROR                       00238700
TN#MTERR EQU   TN#METER            . TERM ERROR                         00238800
TN#MEBID EQU   X'08'               . JOURNAL STAGE AREA THRESHOLD MET   00238900
TN#MBID  EQU   TN#MEBID            . JOURNAL STAGE AREA THRESHOLD MET   00239000
TN#METO  EQU   X'04'               . JOURNAL RECORD STAGING ERROR       00239100
TN#MTOUT EQU   TN#METO             . JOURNAL RECORD STAGING ERROR       00239200
TN#MENSI EQU   X'02'               . SOURCE NOT IN DESTINATION TABLE    00239300
TN#MENSO EQU   X'01'               . DEST NAME NOT IN DESTINATION TBL.  00239400
*                                                                       00239500
TN#MMRES DS    H                        NOT USED                        00239600
*                                                                       00239700
* *                                                                     00239800
TN#MPHCB EQU   TN#MMHSP,4               ADDRESS OF CURRENT NETWORKBUFF. 00239900
TN#MPDLI EQU   TN#MSQI,4                . PRIORITY/D-LIST-ADDR          00240000
TN#MPHRP EQU   TN#MERRB,2               REL.POS.TO 1ST EMPTY BYTE       00240100
TN#MPHBM EQU   TN#MMRES,2               BYTES ALREADY MOVED             00240200
*                                                                       00240300
* * FOLLOWING PRESENT IF 1ST BUF/SGMT OF AN IMS MESSAGE                 00240400
         ORG   TN#MMHSP                                                 00240500
TN#MJDAT DS    XL4                      JULIAN DATE                     00240600
TN#MTIME DS    XL4                      TIME OF DAY (MSEC)              00240700
TN#MTRNO DS    F                        TRANSACTION CONTROL #           00240800
TN#MTOBY DS    H                                                        00240900
*              1ST (HDR) BUFFER  -  TOTAL # OF TEXT BYTES IN MESSAGE    00241000
*              NOT FIRST BUFFER  -  NOT USED                            00241100
TN#MTDIS DS    H                        DISPLACEMENT TO TEXT-START      00241200
*                                                                       00241300
* * FOLLOWING PRESENT IF 1ST BUF/SGMT OF A MESSAGE                      00241400
TN#MPRHD DS    A                        ADDR OF PREVIOUS HEADER         00241500
TN#MNXHD DS    A                        ADDR OF NEXT HEADER             00241600
*                                                                       00241700
* * FOLLOWING FIELDS USED FOR PRE- AND POST-QUEUE CONTROL               00241800
TN#MQFLG DS    XL1                      FLAG BYTE FOR PRE/POST-Q-CNTL   00241900
*        FOLLOWING VALUES ARE USED WITH TN#MQFLG                        00242000
TN#MQFTP EQU   X'80'                    UPDATE QUEUE-HEAD (TOP)         00242100
TN#MQFTB EQU   X'40'                    UPDATE QUEUE-HEAD AND BREAK     00242200
TN#MQFRS EQU   X'20'                    ERASE MESSAGE IN PRE-Q-CNTL     00242300
TN#MQFFD EQU   X'10'                    FIRST HEADER OF A D-LIST        00242400
TN#MQFID EQU   X'08'                    INTERMEDIATE HEADER OF A D-LIST 00242500
TN#MQFLD EQU   X'04'                    LAST HEADER OF A D-LIST         00242600
TN#MQFMP EQU   X'02'               . MPPS MESSAGE (PRE-STAGE)           00242650
*                                                                       00242700
TN#MQADR DS     AL3                ADS OF ACTIVE Q-CNTL (TN#QCTL)       00242800
TN#MQCTL EQU    TN#MQFLG,4         FULLWORD Q-CNTL ADDRESS REFERENCE    00242900
TN#MQDLP DS    A                        ADS OF MSG.COPY CNT. SLOT       00243000
TN#MQACS DS     A                  CURRENT LAST SEGMENT                 00243100
         ENDO                                                           00243200
         DO    &TRANS                                                   00243300
TN#MOCNT DS    H                   . 2 - NUMBER OF OUTPUT TEXT CHARS    00243400
         ENDO                                                           00243500
TN#MTXTB EQU   *                        TEXT IF HDR & NO DISC-QUEUEING  00243600
TN#MHDCL EQU   TN#MTXTB-TN#MSG          LENGTH OF HDR SEGMENT PREFIX    00243700
         DO    &TRANS=0                                                 00243800
*
*    DISC QUEUE HEADER EXTENSION
*
TN#MDNXS DS    F                   . DISC ADDR NEXT READ/WRITE SEGMENT  00244700
TN#MDNXH DS    F                   . DISC ADDR NEXT HEADER              00244800
TN#MPRSG DS    F                   . DISC ADDR PREVIOUS SEGMENT         00245100
         ENDO                                                           00245400
TN#MTXTC EQU   *                        TEXT IF HDR & DISC-QUEUEING     00245500
TN#MHDDL EQU   TN#MTXTC-TN#MSG          LENGTH OF HDR SEGMENT PREFIX    00245600
* * *                                                                   00245700
* * *                                                                   00245800
         EJECT                                                          00245900
         ENDO                                                           00246000
         DO    &OVARP                                                   00246100
*                 ...............................................       00246200
*              OVERLAY CONTROL / OP.COM ARP                             00246300
*                 ...............................................       00246400
*                 +    0     +     1     +     2     +     3    +       00246500
*                 ...............................................       00246600
*              W1 : TN#VIRL  :              TN#VLINK            : B 3   00246700
*                 ...............................................       00246800
*              W2 :                  TN#VENTR                   : B 7   00246900
*                 ...............................................       00247000
*              W3 : TN#VFLG  : RESERVED  :       TN#VCNDX       : B11   00247100
*                 ...............................................       00247200
*              W4 :                  TN#VCMPL                   : B15   00247300
*                 ...............................................       00247400
*              W5 :       TN#VPERR       :       TN#VMSGN       : B19   00247500
*                 ...............................................       00247600
*              W6 : TN#VMUX  / TN#VNEXT  :       TN#VOVNM       : B23   00247700
*                 ...............................................       00247800
*              W7 :             TN#VUJCB /  TN#VUSIN            : B27   00247900
*                 ...............................................       00248000
*              W8 :             TN#VP#1  /  TN#VTCTA            : B31   00248100
*                 ...............................................       00248200
*              W9 :             TN#VP#2  /  TN#VLCTA            : B35   00248300
*                 ...............................................       00248400
*              W10: UNSOLICITED CONSOLE INPUT = W7--------->W10 : B39   00248500
*                 ...............................................       00248600
*                                                                       00248700
* OVERLAY CONTROL / OP COM ARP                                          00248800
*                                                                       00248900
TN#VARP  DSECT                                                          00249000
TN#VIRL  DS    XL1                 . 1 IRL INDICATOR (BIT 0)            00249100
TN#VLINK DS    AL3                 . 3 QUEUE CHAIN ADDRESS              00249200
TN#VLNKA EQU   TN#VIRL,4           .   QUEUE CHAIN ADDRESS (FULL WORD)  00249300
TN#VENTR DS    AL4                 . 4 ENTRY/COMPLETION ADDRESS         00249400
TN#VFLG  DS    XL1                 . 1 FLAG BYTE USED FOR OP COM        00249500
TN#VUNSL EQU   X'80'               .   UNSOLICITED MESSAGE FOR OP COM   00249600
TN#VOVCL EQU   X'40'               .   OP COM OVERLAY CALLED FROM       00249700
*                                      ANOTHER OVLY,W7 TO W9 NOT USED   00249800
TN#VRQRL EQU   X'20'               .   LNEREQ, LNEREL CALLED FROM OC    00249900
TN#VRLDY EQU   X'10'               . FLAG TO LNEREL-DON'T DO 3 SEC DLY  00250000
TN#VNRLD EQU   X'08'               . NOW DELAY 3 SEC FOR NETREL         00250100
TN#VNTRL EQU   X'04'               . NETREL CALLED FROM ACT CON         00250200
TN#VLDWN EQU   X'02'               .   FLAG TO OP COM - LINE DOWN       00250300
         DS    XL1                 . 1 RESERVED FOR ICAM/V TESTING      00250400
TN#VCNDX DS    1H                  . 2 CCA/SLOT INDEX                   00250500
TN#VCMPL DS    A                   . 4 MCP COMPLETION ADDRESS           00250600
TN#VPERR DS    XL2                 . 2 CPIOCP ERR CODE,INPUT TO OPCOM   00250700
TN#VCNTG EQU   TN#VPERR+1,3        .   MCP CONTIGENCY ADDRESS-DUMMY     00250800
TN#VMSGN DS    XL2                 . 2 MESSAGE # SENT TO CONSOLE        00250900
TN#VMUX  DS    0H                  . 2 COMMUNICATIONS DEVICE ADDRESS    00251000
TN#VCHN  DS    XL1                 .----> CHANNEL ADDRESS               00251100
TN#VPRT  DS    XL1                 .----> PORT ADDRESS                  00251200
TN#VNEXT EQU   TN#VMUX             .   NEXT OVERLAY -DUMMY              00251300
TN#VLDPR EQU   TN#VCHN             .   LOAD PRIORITY-DUMMY-             00251400
TN#VOVNM DS    XL2                 . 2 OVERLAY NUMBER IN EBCDIC, OV CTL 00251500
TN#VUJCB DS    AL4                 . 4 USER'S JCB ADDRESS, OVLY CNTL    00251600
TN#VP#1  DS    AL4                 . 4 USER'S REG 0, OVLY CNTL          00251700
TN#VTCTA EQU   TN#VP#1,4           .   ADDR TCT TO BE MARKED DOWN,OP CM 00251800
TN#VP#2  DS    AL4                 . 4 USER'S REG 1, OVLY CNTL          00251900
TN#VLCTA EQU   TN#VP#2,4           .   ADDR LCT TO BE MARKED DOWN,OP CM 00252000
TN#VUSIN EQU   TN#VUJCB,16         .   UNSOL. CONSOLE INPUT-16 BYTES    00252100
         DS    A                   .                                    00252200
TN#VLNGH EQU   *-TN#VARP           .   L'DUST ARP                       00252300
TN#VWRDS EQU   (TN#VLNGH/4)        .   NUMBER OF WORDS PER ARP          00252400
*                                                                       00252500
*                                                                       00252600
         EJECT                                                          00252700
         ENDO                                                           00252800
         DO    &VS9                                                     00252900
TS#MVARP DSECT                     IREQC/IRETC/IRELC DSECT-MOVE USER    00253000
*                                  MEMORY TO ADDRESSABLE ICAM MEMORY    00253100
TS#MFLG1 DS    XL1                 IRL FLAG BYTE                        00253200
TS#MVIRL EQU   X'80'               IRL FLAG INDICATION                  00253300
TS#MVINU EQU   X'10'               ARP IS IN USE INDICATION             00253400
TS#MLINK DS    AL3                 QUEUE LINK ADDRESS                   00253500
TS#MENTR DS    AL4                 ENTRY ADDRESS                        00253600
TS#MOPN1 DS    1H                  OPEN                                 00253700
TS#MCNDX DS    1H                  SLOT INDEX                           00253800
TS#MCMPL DS    AL4                 COMPLETION ENTRY ADDRESS             00253900
TS#MFLNK DS    AL4                 A(FORWARD ARP LINK)                  00253905
TS#MFLG2 DS    XL1                 $COPYM BALR FLAGS                    00254000
*        EQU   X'80'               OPEN                                 00254005
TS#MIAD2 EQU   X'40'               ADDR2 PARAMETER SPECIFIED            00254010
TS#MIALL EQU   X'20'               BYTES=ALL SPECIFIED                  00254015
TS#MIRLC EQU   X'10'               IRELC CALL LINE                      00254020
TS#MIRTC EQU   X'08'               IRETC CALL LINE                      00254025
TS#MIRQC EQU   X'04'               IREQC CALL LINE                      00254100
TS#MDUSQ EQU   X'02'               SCHEDULE QUE=DUST                    00254200
TS#MICMQ EQU   X'01'               SCHEDULE QUE=MCP/ICAM                00254300
TS#MOPN3 DS    XL1                 OPEN                                 00254400
TS#MVCNT DS    1H                  MOVE COUNT FOR $COPYM                00254500
TS#MVADR DS    AL4                 VIRTUAL CLASS 4 ADDRESS              00254600
TS#MORIG DS    AL4                 ORIGIN ADDR. OF $COPYM               00254700
TS#MDEST DS    AL4                 DESTINATION ADDR. OF $COPYM          00254800
TS#MVR0  DS    1F                                                       00254900
TS#MVR1  DS    1F                  CALLER'S ARP ADDRESS                 00255000
TS#MPARP EQU   TS#MVR1                                                  00255100
TS#MVR2  DS    1F                  CALLERS R2                           00255105
TS#MVR3  DS    1F                  CALLERS R3                           00255110
TS#MVR4D DS    10F                 CALLERS R4->R13                      00255200
TS#MVR14 DS    1F                  CALLERS RETURN DEST. ADDRESS(IREQC)  00255300
TS#MVR15 DS    1F                  CALLERS RETURN CODE REGISTER         00255400
TS#MVREG EQU   TS#MVR0             REGISTER SAVE AREA                   00255500
TS#MVLGH EQU   *-TS#MVARP          L'$IREQM ARP                         00255600
         EJECT                                                          00255700
TN#CPYPK DSECT                     DSECT TO COVER USER'S CALLING        00255800
*                                  ARGUMENTS WHEN DOING A IREQC/IRETC   00255900
*                                  OR IRELC COPY MEMORY FUNCTION        00256000
TN#CPYPK DSECT                                                          00256100
TN#CPBYT DS    0F                  BYTES PARAMETERS                     00256200
TN#CPBYF DS    XL1                 BYTES FLAG BYTE                      00256300
TN#CPBRG EQU   X'80'               BYTES DEFINED VIA REGISTER           00256400
TN#CPBNM DS    AL3                 NUMBER OF BYTES OR REGISTER          00256500
TN#CPAD1 DS    0F                  ADDR1 PARAMETER                      00256600
TN#CPA1F DS    XL1                 ADDR1 FLAG BYTE                      00256700
TN#CPA1R EQU   X'80'               ADDR1 DEFINED VIA REGISTER           00256800
TN#CPA1V DS    AL3                 ADDR1 VALUE                          00256900
TN#CPAD2 DS    0F                  ADDR2 PARAMETER                      00256905
TN#CPA2F DS    XL1                 ADDR2 FLAG BYTE                      00256910
TN#CPA2R EQU   X'80'               ADDR2 DEFINED VIA REGISTER           00256915
TN#CPA2V DS    AL3                 ADDR2 VALUE                          00256920
TN#CPYF1 DS    XL1                 FLAG BYTE                            00257000
*        EQU   X'80'               OPEN                                 00257005
TN#CIAD2 EQU   X'40'               ADD2 PARAMETER SPECIFIED             00257010
TN#CIALL EQU   X'20'               BYTES=ALL SPECIFIED                  00257015
TN#CIRLC EQU   X'10'               IRELC CALL LINE                      00257020
TN#CIRTC EQU   X'08'               IRETC CALL LINE                      00257025
TN#CIRQC EQU   X'04'               IREQC CALL LINE                      00257100
TN#CDUSQ EQU   X'02'               SCHEDULE QUE=DUST                    00257200
TN#CICMQ EQU   X'01'               SCHEDULE QUE=ICAM                    00257300
TN#CPYLN EQU   *-TN#CPYPK          L'TN#CPYPK                           00257400
         EJECT                                                          00257500
         ENDO                                                           00257600
         DO    &PRCS                                                    00257700
*                                                                       00257800
* STANDARD MCP PROCESS FILE-PSEUDO NAME IS PRCS                         00257900
*                                                                       00258000
*              FIRST 14 BYTES PARALLEL TERMINAL ENTRY                   00258100
TN#FPRCS DSECT                                                          00258200
TN#FNAME DS    CL4                      PRCS FILE NAME                  00258300
TN#FNEXT DS    H                        DISPL TO NEXT PROCESS FILE      00258400
TN#FFLGS DS    XL1                      FLAGS & STATUS                  00258500
*              FOLLOWING VALUES USED FOR TN#FFLGS                       00258600
TN#FTERM EQU   X'80'                    RESET TO INDC PRCS FILE (^TERM) 00258700
TN#FHOLD EQU   X'20'                    QHOLD IS IN EFFECT              00258800
*                                                                       00258900
         DS    XL1                      (UNUSED)                        00259000
TN#FLOW  DS    H                       DISPL TO LOW-PRIORITY QUEUE      00259100
TN#FMED  DS    H                        DISPL TO MEDIUM-PRIORITY QUEUE  00259200
TN#FHIGH DS    H                       DISPL TO HIGH-PRIORITY QUEUE     00259300
         DS    H                        (UNUSED)                        00259400
TN#FDARP DS    A                        DEFERRED ARP                    00259500
TN#FDFLG EQU    TN#FDARP           DEFERRAL FLAG                        00259600
*              FOLLOWING VALUES USED WITH TN#FDFLG                      00259700
TN#FDFER EQU    X'80'              DEFERRAL OUTSTANDING                 00259800
*                                                                       00259900
*        FOLLOWING DEFINES WORK AREA FOR MUST GETCP PROCESSING          00260000
*                                                                       00260100
TN#FICNB DS    A                   . CURRENT NET BUFFER POSITION        00260200
TN#FINB3 EQU   TN#FICNB+1          . THREE BYTE ADDRESS                 00260300
TN#FISAV EQU   TN#FICNB            . SAVE AREA START                    00260400
TN#FWFLG EQU   TN#FICNB            . FLAG BYTE                          00260500
*        FOLLOWING INDICATORS USED WITH TN#FWFLG                        00260600
TN#FEOLS EQU   X'01'               . END OF LINE SEQ STARTED            00260700
TN#FEOLR EQU   X'02'               . END OF LINE REQUEST THIS MSG       00260800
TN#FICUB DS    A                   . CURRENT USER BUFFER POINTER        00260900
TN#FICRM DS    H                   . CHAR REMAINING IN MESSAGE          00261000
TN#FICRS DS    H                   . CHAR REMAINING IN SEGMENT          00261100
*                                                                       00261200
*        FOLLOWING DEFINES WORK AREA FOR MUST PUTCP PROCESSING          00261300
*                                                                       00261400
TN#FOCNB DS    A                   . CURRENT NET BUFFER POSITION        00261500
TN#FONB3 EQU   TN#FOCNB+1          . THREE BYTE ADDRESS                 00261600
TN#FOSAV EQU   TN#FOCNB            . SAVE AREA START                    00261700
TN#FOCUB DS    A                   . CURRENT USER BUFFER POINTER        00261800
TN#FOCHT DS    H                   . TOTAL CHAR IN MESSAGE              00261900
TN#FOCRS DS    H                   . BYTES REMAINING IN SEGMENT         00262000
*              ONE, TWO, OR THREE QUEUE-CONTROL ENTRIES FOLLOW          00262100
TN#FLNGH EQU   *-TN#FPRCS               PROCESS-FILE LENGTH             00262200
         EJECT                                                          00262300
         ENDO                                                           00262400
         DO    &SIMWA                                                   00262500
*                                                                       00262600
*        DEFINE WORK AREA FOR RDH SIMULATOR - U                         00262700
*                                                                       00262800
TN#SWADS DSECT                                                          00262900
TN#FLAG1 DS    XL1                                                      00263000
*        FLAGS AND INDICATORS IN TN#FLAG1                               00263100
TN#MODE  EQU   X'01'               .   INTERACTIVE MODE                 00263200
TN#DTA   EQU   X'02'               .   DATA AVAILABLE                   00263300
TN#SOM   EQU   X'04'               .   MESSAGE STARTED                  00263400
TN#EOD   EQU   X'08'               .   END OF GETCS DATA                00263500
TN#RJE   EQU   X'10'               .   RJE MODE FOR BATCH               00263600
TN#FLAG2 DS    XL1                 .                                    00263700
*        FLAGS AND INDICATORS IN TN#FLAG2                               00263800
TN#INIT  EQU   X'01'               .   SIM-1 IS INITIALIZED             00263900
TN#MSTRT EQU   X'02'               .   MESSAGE STARTED INDICATOR        00264000
*        MASKS FOR CLEARING FLAGS                                       00264100
TN#MDTA  EQU   X'FD'               .   DATA AVAILABLE BIT               00264200
TN#MSOM  EQU   X'FB'               .   SOM DETECTED BIT                 00264300
TN#CCNT  DS    H                   . CHAR COUNT IN CARD BUFFER          00264400
TN#MCTSV DS    A                   . STATUS AND MCT ADDRESS             00264500
TN#CGETB DS    A                   . CURRENT POINTER IN CARD BUFFER     00264600
TN#CUSEB DS    A                   . CURRRENT USER BUFFER ADDRESS PNTR  00264700
TN#UBCNT DS    H                   . USER BUFFER CHAR COUNTER           00264800
TN#NOT   DS    H                   . NOT USED FOR NOW                   00264900
TN#RSAVE DS    6A                  . REGISTER SAVE AREA                 00265000
TN#FLAG3 DS    XL1                                                      00265100
*        FLAGS AND INDICATORS IN TN#FLAG3                               00265200
TN#OINIT EQU   X'01'               .   OUTPUT IS INITIALIZED            00265300
TN#OMST  EQU   X'02'               .   OUTPUT MESSAGE STARTED           00265400
TN#OEOM  EQU   X'04'               .   OUTPUT END OF MESSAGE            00265500
*        FLAGS AND INDICATORS IN TN#FLAG4                               00265600
TN#FLAG4 DS    XL1                                                      00265700
*                                                                       00265800
TN#OCCNT DS    H                   . OUTPUT CHARACTER COUNTER           00265900
TN#OUBUF DS    A                   . CURRENT USER OUTPUT BUF POSITION   00266000
TN#OPBUF DS    A                   . CURRENT OUT BUFFER POINTER         00266100
TN#CVSAV DS    A                   . COVER SAVE AREA                    00266200
         EJECT                                                          00266300
         ENDO                                                           00266400
         DO    &TCT                                                     00266500
*                                                                       00266600
* TERMINAL CONTROL TABLE - PSEUDO NAME IS TCT                           00266700
*                                                                       00266800
TN#TCT   DSECT                                                          00266900
TN#TERM  EQU   TN#TCT              . 9700 TCT DSECT NAME                00267000
TN#TNAME DS    CL4                 . 4 TERMINAL NAME - UNIQUE IN CCA    00267100
TN#TNEXT DS    H                   . 2 DISPLACEMENT TO NEXT TCT         00267200
TN#TFLGS DS    XL1                 . 1 FLAGS AND STATUS                 00267300
TN#TFLGT EQU   TN#TFLGS,1          . 9700 FLAG LABEL                    00267400
*        FOLLOWING VALUES USED FOR TN#FLGS FOR U100/DCT1000/DCT500      00267500
TN#TMCTO EQU   X'08'               . OUTPUT MCT SENT TO RDH.            00267600
TN#TLAST EQU   X'04'               .   LAST TCT                         00267700
TN#TDOWN EQU   X'02'               .   DOWN TERMINAL                    00267800
TN#TNSOL EQU   X'01'               .   DO NOT SOLICIT INPUT             00267900
*                                  .   FOLLOWING FOR UNISCOPE/DCT1000   00268000
TN#TTYPE EQU   X'80'               .   DCT1000 IF SET, UNISCOPE IF NOT  00268100
TN#TU200 EQU   X'40'               .   U200 IF SET, U100/DCT1000 IF NOT 00268200
TN#TES   EQU   X'20'               .   CURRENTLY IN EXTENDED SEQUENCE   00268300
TN#TUCOL EQU   X'10'               .   UNISCOPE SCREEN HAS 64 COLUMNS   00268400
*                                  .   IF SET, AND HAS 80 COLUMNS IF    00268500
*                                  .   NOT SET.                         00268600
*                                  .   U100 12X80 = 960 CHARACTERS      00268700
*                                  .   U100 16X64 = 1024 CHARACTERS     00268800
*                                  .   U200 24X64 = 1536 CHARACTERS     00268900
*                                  .   U200 24X80 = 1920 CHARACTERS     00269000
*                                  . FOLLOWING USED BY DCT500/TTY       00269100
TN#FSEL  EQU   X'80'               .   FAST SELECT                      00269200
TN#TUNAT EQU   X'40'               . UNATTENDED TERMINAL                00269300
TN#TUSOD EQU   X'20'               . USER SPECIFIED OUTPUT DEVICE       00269400
TN#TDIDS DS    XL1                 . 1 DEVICE ID FOR SELECT DEV. MODE   00269500
TN#TDINS EQU   TN#TDIDS            . SELECTED DEVICE INDEX              00269600
TN#TLOW  DS    H                   . 2 DISP TO LOW PRIORITY QUEUE       00269700
TN#TMED  DS    H                   . 2 DISP TO MEDIUM PRIORITY QUEUE    00269800
TN#TCMW8 EQU   TN#TLOW,4           . TRANS MCP CMW SAVE AREA            00269900
         DO    &TRANS=0                                                 00270000
TN#THIGH DS    H                   . 2 DISP TO HIGH PRIORITY QUEUE      00270100
TN#TINTR DS    H                   . 2 DISP TO INTERCEPT QUEUE          00270200
TN#TSEQI DS    H                   . 2 SEQUENCE COUNT IN                00270300
TN#TSEQO DS    H                   . 2 SEQUENCE COUNT OUT               00270400
         DS    H                   . 2 (UNUSED)                         00270500
         ENDO                                                           00270600
TN#TMSGS DS    H                   . 2 NUM MSGS ON QUEUE THIS TERM      00270700
         DO    &TRANS=0                                                 00270800
TN#TDCT1 DS    H                   . 2 DISP TO FIRST DEVICE CT          00270900
         ENDO                                                           00271000
TN#TADDR DS    H                   . 2 RID AND SID FOR ADDRESSING       00271100
         DO    &TRANS=0                                                 00271200
TN#TSTAT DS    H                   . 2 DISPL TO STATISTICS TABLE        00271300
         ENDO                                                           00271400
TN#TSID  DS    H                   . 2 STATION ID THIS TCT. LOGICAL     00271500
TN#TTIN  EQU   TN#TSID,2           .   INDEX OF TCT                     00271600
         DO    &TRANS=0                                                 00271700
TN#TNDCT DS    XL1                 . 1 NUMBER DCTS                      00271800
TN#TFLG3 DS    XL1                 . FLAGS 3                            00271900
TN#TAXHD EQU   X'80'               . AUX DEVICE QUEUE IS IN HOLD        00272000
TN#TININ EQU   X'40'              . INHIBIT INPUT AFTER INPUT           00272005
         ENDO                                                           00272100
TN#TLCTD DS    H                   . 2 BACKWARD DISPLACEMENT TO LCT     00272200
         DO    &TRANS=0                                                 00272300
TN#TPHON DS    XL2                 . 2 DISP TO TERMINAL PHONE #'S       00272400
TN#TANSW DS    XL2                 . 2 DISP TO TERMINAL ANSWERBACK      00272500
         ENDO                                                           00272600
*                                                                       00272700
*        FOLLOWING DEFINITIONS FOR U100/DCT1000 TERMINAL WORK AREA      00272800
*                                                                       00272900
TN#TNPG  DS    H                   . 2 DISP TO NEXT POLL GROUP          00273000
TN#TSPG  EQU   TN#TNPG             . DISP FROM START OF POLL GROUP      00273100
TN#TQTIM DS    H                   . 2 POLL GROUP QUALIFICATION TIME    00273200
TN#TPOLI EQU   TN#TQTIM,1          . POLL GROUP POLLING INTERVAL        00273300
TN#TESTR DS    H                   . 2 EXTENDED SEQ. TIME REMAINING     00273400
TN#TNTCT DS    XL1                 . 1 NUM. TCT'S IN THIS POLL GROUP    00273500
TN#TSDVF DS    XL1                 . 1 SECONDARY DEVICE FUNCTION        00273600
TN#TTCSR EQU   X'80'               .   TCS AT EOT, REWIND               00273700
TN#TTCSW EQU   X'40'               .   TCS IS WRITE SELECTED            00273800
TN#TTCSI EQU   X'20'               .   NEXT INPUT FROM TCS              00273900
TN#TTCST EQU   X'10'               .   REMOVE CR FROM TCS INPUT         00274000
TN#TTCSE EQU   X'08'               .   TCS ERROR RECOVERY IN PROGRESS   00274100
TN#TSBOB EQU   X'04'               .   BACKWARD ONE BLOCK (TCS)         00274200
TN#TDCTT EQU   X'02'               . DCT1000 MSG TRUNCATED TO 160       00274300
TN#TWAIT EQU   X'01'               .   WAIT FOR DCT1000 MEMORY UNLOCK   00274400
*                                                                       00274500
*        FOLLOWING DEFINITIONS FOR DCT500/TTY TERMINAL WORK AREA        00274600
*                                                                       00274700
         ORG   TN#TNPG             . RESET LOCATION COUNTER             00274800
TN#TFFNL DS    XL1                 . FORM FEED NULLS                    00274900
TN#TMONL DS    XL1                 . PRINTER/TAPE MOTOR-ON NULLS        00275000
TN#TCRNL DS    XL1                 . CARRIAGE RETURN NULLS              00275100
TN#TLFNL DS    XL1                 . LINE FEED NULLS                    00275200
TN#TCMW  DS    F                   . MSG FOR CMPTR-MSG-WAIT             00275300
*                                                                       00275400
*        FOLLOWING DEFINITIONS FOR DCT2000 TERMINAL WORK AREA           00275500
*                                                                       00275600
         ORG   TN#TNPG             . RESET LOCATION COUNTER             00275700
TN#TELEN DS    H                   . LENGTH OF DEDICATED LINE BUFFER    00275800
TN#TEFLG DS    XL1                 . FLAG BYTE                          00275900
TN#TEBCH EQU   X'01'               . CPU BATCH MODE                     00276000
TN#TEATN EQU   X'02'               . EMULATE ATTENDED MODE              00276100
TN#TEFTR DS    XL1                 . FEATURES OF DCT2000                00276200
TN#TEPCH EQU   X'01'               . CARD PUNCH                         00276300
TN#TESBK EQU   X'02'               . SHORT BLOCK FEATURE                00276400
TN#TE128 EQU   X'04'               . 128 PRINT POSITION FEATURE         00276500
         DS    F                   . RESERVED                           00276600
*                                                                       00276700
*        FOLLOWING DEFINITIONS FOR 1004/9200/9300 TERMINAL WORK AREA    00276800
*                                                                       00276900
         ORG   TN#TNPG             . RESET LOCATION COUNTER             00277000
TN#TTPRT DS    XL1                 . PRINT LINE LENGTH                  00277100
TN#TTSOM DS    XL1                 . SOM CHARACTER ON OUTPUT            00277200
         DS    XL1                 . SPACER                             00277300
TN#TTSID DS    CL5                 . SITE ID                            00277400
*                                                                       00277500
*        FOLLOWING DEFINITIONS FOR 1004 EMULATION WORK AREA             00277600
*                                                                       00277700
         ORG   TN#TNPG             . RESET LOCATION COUNTER             00277800
         DS    H                   . NON-INPUT FUNCTION COUNTER         00277900
TN#TYSOM DS    XL1                 . SOM FOR SENDING                    00278000
TN#TYEOM DS    XL1                 . EOM FOR SENDING                    00278100
         DS    F                   . LARGE OUTPUT LB ADDRESS            00278200
*                                                                       00278300
*   FOLLOWING DEFINITIONS FOR BSC WORK AREA                             00278400
*                                                                       00278500
         ORG   TN#TNPG             . RESET LOCATION COUNTER             00278600
TN#TBRLO DS    H                   . MAX OUTPUT RECORD LENGTH           00278700
TN#TBTXT DS    H                   . MAX BLOCK LENGTH                   00278800
TN#TBNUM DS    XL1                 . MAX RECORDS PER BLOCK              00278900
TN#TBFLG DS    XL1                 . FLAG BYTE                          00279000
TN#TBSEC EQU   X'01'               . SECONDARY STATION                  00279100
TN#TBPRM EQU   X'02'               . PRIMARY STATION                    00279200
TN#TBBCH EQU   X'04'               . CPU BATCH MODE                     00279300
TN#TBBSC EQU   X'08'               . GENERALIZED BSC MODE               00279400
TN#TBPRT EQU   X'10'               . PRINT OUTPUT ALLOWED               00279500
TN#TBPCH EQU   X'20'               . PUNCH OUTPUT ALLOWED               00279600
TN#TBINI EQU   X'40'               . ABNORMAL LINE CONTENTION           00279700
TN#TBTRN EQU   X'80'               . TRANSPARENT OUTPUT ALLOWED         00279800
TN#TBRLI DS    H                   . MAX TRANSPARENT RECORD LENGTH      00279900
TN#TTTAD DS    A                   . 4 IF TCI- ADR OF MATCHING TTT      00280000
TN#TFLG2 EQU   TN#TTTAD,1          . SECOND FLAG BYTE                   00280100
*                                                                       00280200
*        VALUES FOR TN#TFLG2                                            00280300
*                                                                       00280400
TN#TNDCE EQU   X'80'               . DO NOT INSERT INPUT DICE           00280500
TN#TFTPG EQU   X'40'               . FIRST TCT THIS POLL GROUP          00280600
TN#TWSND EQU   X'20'               . WAIT FOR TERM OPR CMW              00280700
TN#TFORM EQU   X'10'               . FORM ORIENTED PROCESSING           00280800
TN#TMWAT EQU   X'08'               . CMW RECEIVED                       00280900
TN#TTOPM EQU   X'04'               . TOP MSG ON HIGH QUEUE              00281000
TN#TLPG  EQU   X'02'               . LAST POLL GROUP                    00281100
TN#TD524 EQU   X'01'               . TTY-MODE DCT524                    00281200
*                                                                       00281250
         DO    &TRANS=0
TN#TALTD DS    A                   . A(ALTERNATE DESTINATION TERMINAL)
         ENDO
TN#TLNGH EQU   *-TN#TCT            . TERMINAL TABLE LENGTH              00281300
         EJECT                                                          00281400
         ENDO                                                           00281500
         DO    &TIMARP                                                  00281600
*                 ...............................................       00281700
*              TIMER SERVICE ARP PICTURE                              * 00281800
*                 ...............................................       00281900
*                 +    0     +     1    +     2    +     3      +       00282000
*              W1 : TN#ARPRI :                TN#ARCHA          : B 3   00282100
*                 ...............................................       00282200
*              W2 : TN#ANU1  :                TN#ARCOA          : B 7   00282300
*                 ...............................................       00282400
*              W3 : TN#ANU2  :                TN#ARJCB          : B11   00282500
*                 ...............................................       00282600
*              W4 :                     TN#ARTV                 : B15   00282700
*                 ...............................................       00282800
*              W5 :                     TN#ARW5                 : B19   00282900
*                 ...............................................       00283000
*              W6 :                     TN#ARW6                 : B23   00283100
*                 ...............................................       00283200
*              W7 :                     TN#ARW7                 : B27   00283300
*                 ...............................................       00283400
*              W8 :                     TN#ARW8                 : B31   00283500
*                 ...............................................       00283600
*              W9 :                     TN#ARW9                 : B35   00283700
*                 ...............................................       00283800
*                                                                       00283900
* TIMER SERVICE ARP                                                     00284000
*                                                                       00284100
TN#ARTME DSECT                                                          00284200
TN#ARPRI DS    XL1                      . PRIORITY                      00284300
TN#ARCHA DS    XL3                      . CHAIN ADDRESS                 00284400
TN#ARCHF EQU   TN#ARPRI,4          . FW CHAIN ADDR.                     00284500
TN#ANU1  DS    XL1                      . OPEN                          00284600
TN#ARCOA DS    XL3                      . COMPLETION ADDRESS            00284700
TN#ARCOF EQU   TN#ANU1,4           . FW COMPL. ADDR.                    00284800
TN#ANU2  DS    XL1                      . OPEN                          00284900
TN#ARJCB DS    XL3                      . JOB CONTROL ADDRESS           00285000
TN#ARJCF EQU   TN#ANU2,4           . FW JCB ADDR.                       00285100
TN#ARTV  DS    F                        . TIME VALUE/ACTIVATION TIME    00285200
TN#ARW5  DS    F                                                        00285300
TN#ARW6  DS    F                                                        00285400
TN#ARW7  DS    F                                                        00285500
TN#ARW8  DS    F                                                        00285600
TN#ARW9  DS    F                                                        00285700
         EJECT                                                          00285800
         ENDO                                                           00285900
         DO    &QCT                                                     00286000
*                                                                       00286100
* QUEUE CONTROL TABLE - PSEUDO NAME IS QCT                              00286200
*                                                                       00286300
TN#QCTL  DSECT                                                          00286400
* * * * Q U E U E  C O N T R O L  E N T R Y  - - -  T N # Q C T L       00286500
TN#QNAME DS    CL4                      QUEUE NAME - 'Q' + 3-DIGIT PRTY 00286600
TN#QPRTY EQU   TN#QNAME+1,3             SYSTEM-RELATIVE PRIORITY        00286700
TN#QLINK DS    A                        NEXT QUEUE TO BE CONSIDERED     00286800
TN#QFLG3 EQU   TN#QLINK,1          . QCT FLAGS #3                       00286900
*                                                                       00287000
*    TN#QFLG3 VALUES                                                    00287100
*                                                                       00287200
TN#QCHKP EQU   X'80'               . QUEUE IS NEED OF CHECKPOINT        00287250
TN#QTOPM EQU   X'01'               . TOP MESSAGE ON QUEUE
*                                                                       00287300
TN#QPOST DS    A                   ADDRESS POST QUEUE HEADER            00287400
TN#QLCTD DS    H                  DISP OF QUEUE FROM LCT/PRCS FILE      00287500
TN#QTNUM DS    H                   # OF TERMS. CURRENTLY USING QUEUE    00287600
TN#QFLGS DS    XL2                      FLAGS & STATUS                  00287700
*              FOLLOWING VALUES USED FOR TN#QFLGS, BYTE 0               00287800
TN#QHOLD EQU   X'80'                    QUEUE IS IN A HOLD STATE        00287900
TN#QTERM EQU   X'40'                    TERMINAL QUEUE                  00288000
TN#QPROC EQU  X'20'                     PROCESSING FILE QUEUE           00288100
TN#QDISC EQU  X'10'                     DISC QUEUING                    00288200
TN#QHDAX EQU   X'08'               . HOLD FOR AUX DEVICE ERROR          00288300
TN#QDFR  EQU   X'04'                    DEFERRAL OUTSTANDING            00288400
TN#QINTR EQU   X'02'               . INTERCEPT QUEUE                    00288450
TN#QBRK  EQU    X'02'              BREAK OUTSTANDING                    00288500
TN#QRTN  EQU   X'01'               . QUEUE ON HOLD FOR RETRANSMIT       00288600
TN#QFLG2 EQU    TN#QFLGS+1,1       SECOND BYTE OF FLAGS AND STATUS      00288700
*              VALUES USED FOR TN#QFLG2                                 00288800
TN#QNOTA EQU   X'80'               . QUEUE NOT ACTIVE FLAG.             00288900
TN#QTCIR EQU   X'40'               .TCI RETRANS                         00289000
TN#QRDQ  EQU   X'20'               . DEQUE NEXT MESSAGE                 00289100
TN#QQCW  EQU   X'10'               . QCLEAR WAITING                     00289200
TN#QHIGH EQU   X'08'               . HIGH PRIORITY QUEUE                00289400
TN#QMED  EQU   X'04'               . MEDIUM PRIORITY QUEUE              00289500
TN#QLOW  EQU   X'01'               . LOW PRIORITY QUEUE                 00289600
*                                                                       00289700
** CORE QUEUING                                                         00289800
TN#QCON  DS    H                        COUNT ON (CORE)                 00289900
TN#QCOFF DS    H                        COUNT OFF (CORE)                00290000
TN#QCMIP DS    H                        MESSAGES IN PROGRESS (CORE)     00290100
TN#QCFIR DS    A                        FIRST HEADER (CORE)             00290200
TN#QCLAS DS    A                        LAST HEADER (CORE)              00290300
TN#QCNEX DS    A                        NEXT HEADER (CORE)              00290400
TN#QCSZ  EQU   *-TN#QNAME               LGTH FOR CORE QUEUING           00290500
** DISC QUEUING                                                         00290600
TN#QDMIP DS    H                        MESSAGES IN PROGRESS (DISC)     00290700
TN#QHDST DS    X                        I/O STATUS BYTE                 00290800
*                                                                       00290900
*    TN#QHDST VALUES                                                    00291000
*                                                                       00291100
TN#QHWF  EQU   X'80'                    HEADER WRITE IN PROGRESS        00291200
TN#QIOPF EQU   X'40'                    POST-QUE I/O IN PROGRESS        00291300
TN#QIOCQ EQU   X'10'               . QUEUE CLEAR IN PROGRESS            00291400
*                                                                       00291500
TN#QSTAT DS    X                        I/O ERROR STATUS                00291600
*                                                                       00291700
*    TN#QSTAT VALUES                                                    00291800
*                                                                       00291900
TN#QHDRR EQU   X'80'               . HEADER READ OPERATION              00292000
TN#QHDRW EQU   X'40'               . HEADER WRITE OPERATION             00292100
TN#QSEGR EQU   X'20'               . SEGMENT READ OPERATION             00292200
TN#QSEGW EQU   X'10'               . SEGMENT WRITE OPERATION            00292300
TN#QCHP  EQU   X'08'               . CHECKPOINT OPERATION               00292400
TN#QCNTL EQU   X'04'               . CONTROL OPERATION                  00292500
TN#QFOVF EQU   X'02'               . FILE OVERFLOW                      00292600
*                                                                       00292700
TN#QDARH DS    F                        DISC ADDR NEXT READ HEADER      00292800
TN#QPRHD DS    F                        DISC ADDR PREVIOUS HEADER       00292900
TN#QDNEX DS    XL4                      NEXT HEADER (DISC)              00293000
TN#QQTDA DS    F                   . QUEUE TABLE CHECKPOINT ADDR        00293100
TN#QADTF DS    A                        SAT DTF ADDRESS                 00293200
TN#QDSZ  EQU   *-TN#QCTL-TN#QCSZ   . INCREMENTAL LENGTH FOR DISC QUEUE  00293400
**                                                                      00293500
TN#QLNGH EQU   *-TN#QCTL                QUEUE CONTROL LENGTH            00293600
         EJECT                                                          00293700
         ENDO                                                           00293800
&SYSECT  CSECT ,                       RESTART CSECT                    00293900
         END                                                            00294000
