&DL      PROC  &P,20                                                    00000000
XTMDSCTS NAME  X    . ICAM USER INTERFACE DSECTS FOR STDMCP/TCI         00000100
TM#DSCTS NAME  0    OS/7 ICAM PRCS-FILE/DEST-FILE DSECTS                00000200
TM#DSECT NAME  1                                                        00000300
.* .                                                                    00000400
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000500
.* .                                                                  * 00000600
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000700
.* .                                                                  * 00000800
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000900
.* .                                                                  * 00001000
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001100
         GBL   &CPRCS                                                   00001200
         GBL   &CDEST                                                   00001300
         GBL   &CTCS                                                    00001400
         GBL   &CTTT                                                    00001500
         GBL   &COMSG                                                   00001600
         GBL   &CIMSG                                                   00001700
         GBL   &CTARP                                                   00001800
         GBL   &CPTAB                                                   00001900
         GBL   &MCP                . MCPASM SET THIS TO 1               00002000
         LCL   &AAAAA              . DSECT SELECTION  SWITCH            00002100
         LCL   &BBBBB              . PROC CONTROL LOOP SWITCH           00002200
         LCL   &UPRCS              . PROCESS FILE DTF                   00002300
         LCL   &UDEST              . DESTINATION FILE DTF               00002400
         LCL   &UTCS               . TRANSACTION CONTROL SECTION        00002500
         LCL   &UTTT               . TRANSACTION TERMINAL TABLE DSECT   00002600
         LCL   &UOMSG              . OUTPUT MESSAGE PREFIX DSECT        00002700
         LCL   &UIMSG              . INPUT MESSAGE PREFIX DSECT         00002800
         LCL   &TARP               . TCI INTERNAL ARP DSECT             00002900
         LCL   &UPTAB                                                   00003000
.* .                                                                    00003100
.*                                                                      00003200
.*   ELEMENT NAME = TM#DSCTS                                            00003300
.*                                                                      00003400
.*    MAIN PROGRAM = MUST/TCI                                           00003500
.*                                                                      00003600
.*   PROC NAME  = TM#DSCTS                                              00003700
.*                                                                      00003800
.*   AUTHOR    WH                                                       00003900
.*                                                                      00004000
.*   VERSION   16/10          DATE   73/09/06                           00004100
.*                                                                      00004200
.*   FUNCTIONAL DESCRIPTION:                                            00004300
.*       TM#DSCTS IS A PROC WHICH MAPS TABLES FOR THE USER              00004400
.*       THESE TABLES ARE:                                              00004500
.*             TM#PRCS - DSECT FOR USER'S PROCESS FILE DTF              00004600
.*             TM#DEST - DSECT FOR USER'S DESTINATION FILE DTF          00004700
.*             TM#TCS  - DSECT FOR USER'S TRANSACTION CONTROL SECTION   00004800
.*             TM#TTT  - DSECT FOR USER'S TRANSACTION TERMINAL TABLE    00004900
.*             TM#TOMSG - DSECT FOR USER'S OUTPUT MESSAGE PREFIX        00005000
.*             TM#TIMSG - DSECT FOR USER'S INPUT MESSAGE PREFIX         00005100
.*       THIS PROC ALSO GENERATES INTERNAL DSECTS FOR TCI SYSTEM USE    00005200
.*       THESE DSECTS ARE:                                              00005300
.*             TM#TARP - DSECT FOR TCI ACTIVITY REQUEST PACKET          00005400
.*                                                                      00005500
.*   ENTRANCE REQUIREMENTS:                                             00005600
.*       DSECTS CAN BE SELECTED IN GROUPS, INDIVIDUALLY OR EVERYTHING   00005700
.*       PARAMETERS FOR GROUP SELECTION ARE:                            00005800
.*             GETPUT - THE GROUP OF GETCP/PUTCP USER DSECTS            00005900
.*             USERTCI - THE GROUP OF USER'S TCI DSECTS                 00006000
.*             ICAMTCI - THE GROUP OF ICAM TCI DSECTS                   00006100
.*       PARAMETERS FOR INDIVIDUAL SELECTION ARE:                       00006200
.*             PRCS    - DSECT FOR USER'S PROCESS FILE DTF              00006300
.*             DEST    - DSECT FOR USER'S DESTINATION FILE DTF          00006400
.*             TCS     - DSECT FOR USER'S TRANSACTION CONTROL SECTION   00006500
.*             TTT     - DSECT FOR USER'S TRANSACTION TERMINAL TABLE    00006600
.*             OMSG    - DSECT FOR USER'S OUTPUT MESSAGE PREFIX         00006700
.*             IMSG    - DSECT FOR USER'S INPUT MESSAGE PREFIX          00006800
.*             TARP - DSECT FOR INTERNAL TCI USE                        00006900
.*       PARAMETER FOR SELECTING ALL DSECTS IS NO PARAMETERS            00007000
.*                                                                      00007100
.*                                                                      00007200
.*   EXIT CONDITIONS:                                                   00007300
.*       NONE                                                           00007400
.*                                                                      00007500
.*   REGISTER USAGE:                                                    00007600
.*       NONE                                                           00007700
.*                                                                      00007800
.*   ENVIRONMENT:                                                       00007900
.*       KEY=MCP OR USER                                                00008000
.*       MODE=PGM OR ?                                                  00008100
.*       SPEM=YES OR ?                                                  00008200
.*                                                                      00008300
.*   ELEMENTS REFERENCING THIS ELEMENT:                                 00008400
.*       MUST                                                           00008500
.*       ICAM USER PROGRAM                                              00008600
.*       TCI                                                            00008700
.*       TCI USER PROGRAM                                               00008800
.*                                                                      00008900
.*   ELEMENTS REFERENCED BY THIS ELEMENT:                               00009000
.*       NONE                                                           00009100
.*                                                                      00009200
.*   TABLES REFERENCED BY THIS ELEMENT:                                 00009300
.*       NONE                                                           00009400
.*                                                                      00009500
.*                                                                      00009600
.*                                                                      00009700
         DO    '&CPRCS'=''                                              00009800
&CPRCS   SET   0                                                        00009900
         ENDO                                                           00010000
         DO    '&CDEST'=''                                              00010100
&CDEST   SET   0                                                        00010200
         ENDO                                                           00010300
         DO    '&CTCS'=''                                               00010400
&CTCS    SET   0                                                        00010500
         ENDO                                                           00010600
         DO    '&CTTT'=''                                               00010700
&CTTT    SET   0                                                        00010800
         ENDO                                                           00010900
         DO    '&COMSG'=''                                              00011000
&COMSG   SET   0                                                        00011100
         ENDO                                                           00011200
         DO    '&CIMSG'=''                                              00011300
&CIMSG   SET   0                                                        00011400
         ENDO                                                           00011500
         DO    '&CTARP'=''                                              00011600
&CTARP   SET   0                                                        00011700
         ENDO                                                           00011800
         DO    '&CPTAB'=''                                              00011900
&CPTAB   SET   0                                                        00012000
         ENDO                                                           00012100
         DO    '&MCP'=''           . DO IF MCPASM NOT CALLED            00012200
         SYSTEM                    . RESOLVE OS/3 AND VS/9 GBL SET SYMB 00012300
         ENDO                                                           00012400
&AAAAA   SET   1                   . SELECT ALL DSECTS                  00012500
.*                                                                      00012600
&BBBBB   SET   N'&P                . NUMBER OF PARAMETERS               00012700
         DO    &BBBBB=0            . IF 0 SELECT ALL                    00012800
         GOTO  .BYP1                                                    00012900
         ENDO                                                           00013000
&AAAAA   SET   0                   . DESELECT ALL DSECTS IN FILE        00013100
.BYP1    LABEL                                                          00013200
.* .                                                                    00013300
.*   INITIALIZE SET SYMBOLS FOR DSECT SELECTION                         00013400
.* .                                                                    00013500
&UPRCS   SET   &AAAAA              . SELECT PROCESS FILE DTF DSECT      00013600
&UDEST   SET   &AAAAA              . SELECT  DESTINATION FILE DTF DSECT 00013700
&UTCS    SET   &AAAAA              . SELECT TCS DSECT                   00013800
&UTTT    SET   &AAAAA              . SELECT TTT DSECT                   00013900
&UOMSG   SET   &AAAAA              . SELECT OUTPUT MESSAGE PREFIX DSECT 00014000
&UIMSG   SET   &AAAAA              . SELECT INPUT MESSAGE PREFIX DSECT  00014100
&TARP    SET   &AAAAA              . SELECT TCI ARP DSECT - INTERNAL    00014200
&UPTAB   SET   &AAAAA                  . SELECT PRCS TABLE              00014300
.* .                                                                    00014400
         DO    &BBBBB=0            . IF 0 BYPASS SCAN                   00014500
         GOTO  .BYP3                                                    00014600
         ENDO                                                           00014700
&S       DO    &BBBBB                                                   00014800
.* .                                                                    00014900
.* .     GROUP SELECTION                                                00015000
.* .                                                                    00015100
         DO    '&P(&S)'='GETPUT'                                        00015200
&UPRCS   SET   1                   . SELECT PRCS DSECT                  00015300
&UDEST   SET   1                   . SELECT DEST FILE DTF DSECT         00015400
         GOTO  .BYP2                                                    00015500
         ENDO                                                           00015600
         DO    '&P(&S)'='USERTCI'                                       00015700
&UTCS    SET   1                   . SELECT TCS DSECT                   00015800
&UTTT    SET   1                   . SELECT TTT DSECT                   00015900
&UOMSG   SET   1                   . SELECT OMSG DSECT                  00016000
&UIMSG   SET   1                   . SELECT IMSG DSECT                  00016100
         GOTO  .BYP2                                                    00016200
         ENDO                                                           00016300
         DO    '&P(&S)'='ICAMTCI'                                       00016400
&UTCS    SET   1                   . SELECT TCS DSECT                   00016500
&UTTT    SET   1                   . SELECT TTT DSECT                   00016600
&UOMSG   SET   1                   . SELECT OMSG DSECT                  00016700
&UIMSG   SET   1                   . SELECT IMSG DSECT                  00016800
&TARP    SET   1                   . SELECT TCI ARP DSECT               00016900
         GOTO  .BYP2                                                    00017000
         ENDO                                                           00017100
.* .                                                                    00017200
.* .     INDIVIDUAL SELECTION                                           00017300
.* .                                                                    00017400
         DO    '&P(&S)'='PRCS'                                          00017500
&UPRCS   SET   1                   . SELECT PRCS FILE DTF DSECT         00017600
         GOTO  .BYP2                                                    00017700
         ENDO                                                           00017800
         DO    '&P(&S)'='DEST'                                          00017900
&UDEST   SET   1                   . SELECT DEST FILE DTF DSECT         00018000
         GOTO  .BYP2                                                    00018100
         ENDO                                                           00018200
         DO    '&P(&S)'='TCS'                                           00018300
&UTCS    SET   1                   . SELECT TCS DSECT                   00018400
         GOTO  .BYP2                                                    00018500
         ENDO                                                           00018600
         DO    '&P(&S)'='TTT'                                           00018700
&UTTT    SET   1                   . SELECT TTT DSECT                   00018800
         GOTO  .BYP2                                                    00018900
         ENDO                                                           00019000
         DO    '&P(&S)'='OMSG'                                          00019100
&UOMSG   SET   1                   . SELECT OMSG DSECT                  00019200
         GOTO  .BYP2                                                    00019300
         ENDO                                                           00019400
         DO    '&P(&S)'='IMSG'                                          00019500
&UIMSG   SET   1                   . SELECT IMSG DSECT                  00019600
         GOTO  .BYP2                                                    00019700
         ENDO                                                           00019800
         DO    '&P(&S)'='TARP'                                          00019900
&TARP    SET   1                   . SELECT TCI ARP DSECT               00020000
         GOTO  .BYP2                                                    00020100
         ENDO                                                           00020200
         DO    '&P(&S)'='PTAB'                                          00020300
&UPTAB   SET   1                                                        00020400
         GOTO  .BYP2                                                    00020500
         ENDO                                                           00020600
.BYP2    LABEL                                                          00020700
         ENDO                                                           00020800
.BYP3    LABEL                                                          00020900
         DO    &UPRCS                                                   00021000
       DO  1-(&CPRCS=1)                                                 00021100
&CPRCS   SET   1                                                        00021200
         EJECT                                                          00021300
*                                                                       00021400
*        TITLE           -        'PROCESS FILE DTF'                    00021500
*                                                                       00021600
* ELEMENT NAME: TM#DSCTS                                                00021700
*                                                                       00021800
*    VERSION  16/10                                                     00021900
*                                                                       00022000
*                                                                       00022100
* * * *  P R O C E S S  F I L E  D T F  * * * *                         00022200
*                                                                       00022300
TM#PRCS  DSECT                                                          00022400
TM#PIND  DS    XL2                      FLAG- AND STATUS-BYTES          00022500
*              FOLLOWING VALUES USED FOR TM#PIND                        00022600
*                                                                       00022700
TM#PIRL  EQU   X'80'                    USER'S IRL SETTING ON GETCP     00022800
*                                                                       00022900
TM#PIER  EQU   X'80'                    ERROR OCCURED  -  CHECK TM#PERR 00023000
TM#PIIL  EQU   X'40'                    INVALID PRIORITY                00023100
TM#PISR  EQU   X'20'                    SOURCE IS A PROCESS-FILE        00023200
TM#PBEOF EQU   X'10'               . BATCH DEV END-OF-FILE TRANSFERRED  00023300
TM#PIMS  EQU   X'08'                    MESSAGE IS SEGMENTED            00023400
TM#PIMD  EQU   X'04'                    MORE DATA AVAILABLE             00023500
TM#PIHD  EQU   X'02'                    MESSAGE HEADER TRANSFERRED      00023600
TM#PIET  EQU   X'01'                    END OF MESSAGE TRANSFERRED      00023700
*              FOLLOWING VALUES USED FOR TM#PIND+1                      00023800
TM#PIDL  EQU   X'80'                    PREVIOUS DATA LOST              00023900
TM#PILV  EQU   X'03'                    SELECTED PRIORITY               00024000
*                                                                       00024100
TM#PERR  DS    XL2                      ERROR-BYTES                     00024200
*              FOLLOWING VALUES USED FOR TM#PERR                        00024300
TM#PECA  EQU   X'80'                    NETWORK NOT AVAILABLE           00024400
TM#PEIN  EQU   X'40'               . INVALID OR BUSY PROCESS FILE       00024500
TM#PELR  EQU   X'20'                    LINE REQUEST NOT AVAILABLE      00024600
TM#PEWA  EQU   X'10'               . INVALID WORKAREA. ADDR OR SIZE.    00024700
TM#PENM  EQU   X'02'                    NO MESSAGE AVAILABLE            00024800
TM#PEIA  EQU   X'01'                    HEADER ADDRESS INVALID          00024900
*              FOLLOWING VALUES USED FOR TM#PERR+1                      00025000
TM#PEID  EQU   X'80'                    ABORTED DEFERRAL                00025100
TM#PIRLE EQU   X'20'                    IRL ERROR                       00025200
TM#PODNE EQU   X'10'               OUTPUT DELIVERY NOTICE ERROR         00025300
*                                                                       00025400
TM#PNAM  DS    CL4                      PROCESS FILE NAME               00025500
TM#PSRC  DS    CL4                      NAME OF SOURCE-TERMINAL         00025600
         DS    H                   . RESERVED FOR ICAM                  00025700
TM#PDTF  DS    XL1                      DTF-DEFINITIONS                 00025800
*              FOLLOWING VALUES USED FOR TM#PDTF                        00025900
TM#PLTR  EQU   X'10'                    LINE TRANSFER REQUESTED         00026000
*                                                                       00026100
*  PRIORITY FUNCTION CODES                                              00026200
*                                                                       00026300
TM#EAVL  EQU   X'04'                    AVAILABLE MESSAGE               00026400
TM#EHIG  EQU   X'03'                    HIGH PRIORITY                   00026500
TM#EMED  EQU   X'02'                    MEDIUM PRIORITY                 00026600
TM#ELOW  EQU   X'01'                    LOW PRIORITY                    00026700
*                                                                       00026800
TM#PSEG  DS    XL1                      SEGMENT DEFINITIONS             00026900
*              FOLLOWING VALUES USED FOR TM#PSEG                        00027000
TM#PNHD  EQU   X'02'                    SKIP TO NEXT HEADER             00027100
TM#PSHD  EQU   X'01'                    RESTART MESSAGE                 00027200
*                                                                       00027300
TM#PCHD  DS    A                        ADDRESS OF CURRENT HEADER       00027400
TM#PNMA  DS    A                        USERS 'NO MSG. AVL.' ADDRESS    00027500
TM#PCMPA EQU   TM#PNMA,4                IRL COMPLETION ADDRESS          00027600
TM#PERA  DS    A                        USERS ERROR ADDRESS             00027700
TM#PAUX  DS    H                        AUXILARY DEVICE INFORMATION     00027800
TM#PSPEC EQU   TM#PAUX,1           . AUX FUNCTION CODE                  00027900
TM#PDVC  EQU   TM#PAUX+1,1         . LOGICAL AUX DEVICE NUMBER          00028000
*                                                                       00028100
*  U-100 TM#PAUX VALUES                                                 00028200
*                                                                       00028300
TM#PCMWK EQU   X'40'               . MESSAGE WAIT KEY RECEIVED          00028400
TM#PCFK1 EQU   X'41'               . FUNCTION KEY 1 RECEIVED            00028500
TM#PCFK2 EQU   X'42'               . FUNCTION KEY 2 RECEIVED            00028600
TM#PCFK3 EQU   X'43'               . FUNCTION KEY 3 RECEIVED            00028700
TM#PCFK4 EQU   X'44'               . FUNCTION KEY 4 RECEIVED            00028800
TM#PFRMW EQU   X'40'               . 9700 RECEIVED MSG WAIT             00028900
TM#PFKY1 EQU   X'41'               . 9700 RECEIVED FUNCTION KEY 1       00029000
TM#PFKY2 EQU   X'42'               . 9700 RECEIVED FUNCTION KEY 2       00029100
TM#PFKY3 EQU   X'43'               . 9700 RECEIVED FUNCTION KEY 3       00029200
TM#PFKY4 EQU   X'44'               . 9700 RECEIVED FUNCTION KEY 4       00029300
TM#PCRHT EQU   X'20'               . RECEIVED HALT                      00029400
TM#PCRHV EQU   X'21'               . RECEIVED GO VOICE                  00029500
TM#PCRER EQU   X'22'               . RECEIVED END READ                  00029600
TM#PCRDV EQU   X'23'               . RECEIVED READY                     00029700
TM#PCRDY EQU   TM#PCRDV            . RECEIVED READY                     00029800
TM#PCOFF EQU   X'24'               . RECEIVED OFFLINE                   00029900
TM#PCAPR EQU   X'25'               . RECEIVED ABORT PRINT               00030000
TM#PCAPU EQU   X'26'               . RECEIVED ABORT PUNCH               00030100
TM#PCRVI EQU   X'27'               . RECEIVED RVI (BSC)                 00030200
TM#PCRRD EQU   X'28'               . RECEIVED READ                      00030300
*                                                                       00030400
TM#PRSG  DS    H                        NUMBER REMAINING SEGMENTS       00030500
*                                                                       00030600
         ENDO                                                           00030700
         ENDO                                                           00030800
         DO    &UDEST                                                   00030900
       DO  1-(&CDEST=1)                                                 00031000
&CDEST   SET   1                                                        00031100
         EJECT                                                          00031200
*                                                                       00031300
*        TITLE           -        'DESTINATION FILE DTF'                00031400
*                                                                       00031500
*                                                                       00031600
* * * *  D E S T I N A T I O N  F I L E  D T F  * * * *                 00031700
*                                                                       00031800
TM#DEST  DSECT                                                          00031900
TM#DIND  DS    XL2                      FLAG- AND STATUS-BYTES          00032000
*              FOLLOWING VALUES USED FOR TM#DIND                        00032100
TM#DIRL  EQU   X'80'               . USER IRL SETTING FOR TM#DIND       00032200
TM#DODNR EQU   X'40'               . DELV NOTICE REQ FOR TM#DIND        00032300
TM#DIER  EQU   X'80'                    ERROR OCCURED - CHECK TM#DERR   00032400
TM#DIIL  EQU   X'40'                    INVALID LEVEL SPECIFIED         00032500
TM#DIMH  EQU   X'20'                    MISSING START OF HEADER         00032600
TM#DIMA  EQU   X'10'                    PREVIOUS MESSAGE ABORTED        00032700
TM#DIMP  EQU   X'08'                    MESSAGE NOT COMPLETED           00032800
*                                                                       00032900
TM#DERR  DS    XL2                      ERROR-BYTES                     00033000
*              FOLLOWING VALUES USED FOR TM#DERR                        00033100
TM#DECA  EQU   X'80'                    NETWORK NOT AVAILABLE           00033200
TM#DEIN  EQU   X'40'                    MISSING OR INV DEST. NAME       00033300
TM#DELR  EQU   X'20'                    LINE REQUEST NOT AVAILABLE      00033400
TM#DEWA  EQU   X'10'               . INVALID WORKAREA. ADDR OR SIZE     00033500
TM#DENB  EQU   X'02'                    NO NETWORKBUFFER AVAILABLE      00033600
TM#DEIA  EQU   X'01'                    HEADER ADDRESS INVALID          00033700
*              FOLLOWING VALUES USED FOR TM#DERR+1                      00033800
TM#DEID  EQU   X'80'                    ABORTED DEFERRAL                00033900
TM#DEDU  EQU   X'40'                    INVALID D-LIST                  00034000
TM#DIRLE EQU   X'20'                    IRL ERROR                       00034100
TM#DODNE EQU   X'10'               OUTPUT DELIVERY NOTICE ERROR         00034200
*                                                                       00034300
TM#DNAM  DS    CL4                      DESTINATION FILE NAME           00034400
TM#DDST  EQU   TM#DNAM             DESTINATION NAME FOR FLOATING QUEUES 00034450
TM#DENA  DS    CL4                      DESTINATION NAME                00034500
TM#DAUX  DS    CL2                      AUXILARY DEVICE SPECIFICATION   00034600
TM#DSPEC EQU   TM#DAUX,1           . AUX FUNCTION CODE                  00034700
TM#DDVC  EQU   TM#DAUX+1,1         . LOGICAL AUX DEVICE NUMBER          00034800
*                                                                       00034900
*  U-100 TM#DAUX VALUES                                                 00035000
*                                                                       00035100
TM#DCMWK EQU   X'40'               . SEND COMPUTOR MESSAGE WAITING      00035200
TM#DFSMW EQU   X'40'               . 9700 SEND COMP MSG WAITING         00035300
TM#DTAT  EQU   X'20'               . TRANSPARENT TO AUX DEVICE          00035400
TM#DPRE  EQU   X'10'               . PREVENT NONSIGNIF.SPACE SUPPRESS'N 00035500
TM#DADWR EQU   X'80'               . TAPE WRITE ( MAG OR PAPER)         00035600
TM#DADRD EQU   X'81'               . TAPE READ (MAG OR PAPER)           00035700
TM#DADBS EQU   X'82'               . TAPE BACK ONE BLOCK                00035800
TM#DADSR EQU   X'83'               . TAPE SEARCH                        00035900
TM#DADRA EQU   X'84'               . TAPE REPORT ADDRESS                00036000
*        BATCH DEVICE VALUE                                             00036100
TM#DCBDC EQU   X'40'               . SEND BSC DLE EOT                   00036200
TM#DCSHT EQU   X'20'               . SEND HALT                          00036300
TM#DCRVI EQU   X'20'               . RVI (BSC)                          00036400
TM#DCBCN EQU   X'10'               . SEND BSC CONNECT SEQ.              00036500
TM#DCTRN EQU   X'04'               . TRANSPARENT BSC                    00036600
TM#DCNCH EQU   X'00'               . 1004 SLAVE NO CHANGE               00036700
TM#DCRDF EQU   X'02'               . 1004 SLAVE INIT. OUTPUT            00036800
TM#DCINI EQU   X'05'               . 1004 SLAVE START POLLING           00036900
TM#DCPRA EQU   X'09'               . 1004 SLAVE SEND ABORT PRINT        00037000
TM#DCPUA EQU   X'0A'               . 1004 SLAVE SEND ABORT PUNCH        00037100
TM#DCSOL EQU   X'0C'               . 1004 SLAVE SEND OFFLINE            00037200
*                                                                       00037300
TM#DDTF  DS    XL1                      DTF-DEFINITIONS                 00037400
*              FOLLOWING-VALUES USED FOR TM#DDTF                        00037500
*                                                                       00037600
TM#DFQR  EQU   X'40'               FLOATING QUEUE REQUEST FLAG          00037650
TM#DLST  EQU   X'20'               DLIST FLAG                           00037700
TM#DLTR  EQU   X'10'                    LINE TRANSFER REQUESTED         00037800
TM#DFSL  EQU   X'08'                    FAST SELECT OPTION CALLED       00037900
*                                                                       00038000
*  PRIORITY FUNCTION CODES                                              00038100
*                                                                       00038200
TM#ETOP  EQU   X'04'                    TOP MESSAGE                     00038300
*TM#EHIG EQU   X'03'                    HIGH PRIORITY                   00038400
*TM#EMED EQU   X'02'                    MEDIUM PRIORITY                 00038500
*TM#ELOW EQU   X'01'                    LOW PRIORITY                    00038600
*                                                                       00038700
TM#DSEG  DS    XL1                      SEGMENT DEFINITIONS             00038800
*              FOLLOWING VALUES USED FOR TM#DSEG                        00038900
TM#DAFN  EQU   X'04'                    AUXULARY DEVICE FUNCTIONP       00039000
TM#DBEOF EQU   X'08'               . BATCH DEVICE END-OF-FILE SEGMENT   00039100
TM#DHDR  EQU   X'02'                    START OF HEADER                 00039200
TM#DTND  EQU   X'01'                    END OF TEXT                     00039300
*                                                                       00039400
TM#DCHD  DS    A                        ADDRESS OF CURRENT HEADER       00039500
TM#DNBA  DS    A                        USERS 'NO BUF. AVL.' ADDRESS    00039600
TM#DERA  DS    A                        USERS ERROR ADDRESS             00039700
*                                                                       00039800
*  R0 VALUE FOR OUTPUT DELIVERY NOTICE, AND LINE DOWN NOTICE            00039900
TM#DNNEM EQU   X'81'               . SUCCESSFUL OUTPUT COMPLETION       00040000
TM#DNNAX EQU   X'40'               . AUX DEVICE DOWN/N.A.               00040100
*  IF AUX DEVICE STATUS 1-4 APPLICABLE, IT IS OR-ED WITH TM#DNNAX       00040200
TM#DAUX1 EQU   X'01'               .AUX STATUS 1                        00040300
TM#DAUX2 EQU   X'02'               .AUX STATUS 2                        00040400
TM#DAUX3 EQU   X'03'               .AUX STATUS 3                        00040500
TM#DAUX4 EQU   X'04'               .AUX STATUS 4                        00040600
TM#DNOAB EQU   X'42'               . ABORT OUTPUT RECEIVED              00040700
TM#DNSIT EQU   X'18'               . UNKNOWN TERM ON LINE               00040800
TM#DNDNA EQU   X'12'               . TERM DOWN. LAST TERM = LINE DOWN   00040900
TM#DNLNO EQU   X'11'               . LINE DISCONNECT                    00041000
*                                                                       00041100
         ENDO                                                           00041200
         ENDO                                                           00041300
         DO    &UTCS                                                    00041400
       DO  1-(&CTCS=1)                                                  00041500
&CTCS    SET   1                                                        00041600
         EJECT                                                          00041700
*                                                                       00041800
*        TITLE           -        'TRANSACTION CONTROL SECTION'         00041900
*                                                                       00042000
*                                                                       00042100
* * * *  TRANSACTION CONTROL SECTION - PSEUDO NAME IS TCS               00042200
*                                                                       00042300
*                 ................................................      00042400
*                 :   TRANSACTION CONTROL SECTION (TCS) PICTURE  :      00042500
*                 ................................................      00042600
*                 :    +0    :     +1    :     +2    :     +3    :      00042700
*                 ................................................      00042800
*              W1 :                TM#TCCA                       :      00042900
*                 ................................................      00043000
*              W2 : TM#TCPRE :             TM#TCIAD              :      00043100
*                 ................................................      00043200
*              W3 : TM#TCSCT :             TM#TCDAD              :      00043300
*                 ................................................      00043400
*              W4 : TM#TCOP1 :             TM#TCSVC              :      00043500
*                 ................................................      00043600
*              W5 : TM#TCOP2 :             TM#TCONT              :      00043700
*                 ................................................      00043800
*              W6 : TM#TCNET :             TM#TCLIN              :      00043900
*                 ................................................      00044000
*              W7 :       TM#TCPRC       :       TM#TCNPI       :       00044100
*                 ................................................      00044200
*              W8:   TM#TCFLG   :   TM#TCOP4  :       TM#TCSZE       :  00044300
*                 ................................................      00044400
*              W9 :                TM#TCOP5                      :      00044500
*                 ................................................      00044600
*                                                                       00044700
*                                                                       00044800
TM#TCS   DSECT                                                          00044900
*                                                                       00045000
TM#TCCA  DS    CL4                 CCA NETWORK NAME                     00045100
TM#TCPRE DS    XL1                 . 1 SIZE IN BYTES OF PREVIEW AREA    00045200
TM#TCIAD DS    XL3                 . 3 INPUT NOTIFICATION ADDRESS       00045300
TM#TCIET EQU   TM#TCPRE,4          . INPUT NOTIF ADDRESS (FULLWORD)     00045400
*                                                                       00045500
TM#TCSCT DS    XL1                 . 1 NUMBER SECTORS PER SLOT          00045600
*                                                                       00045700
TM#TCDAD DS    XL3                 . 3 DELIVERY NOTICE ADDRESS          00045800
TM#TCDET EQU   TM#TCSCT,4          . DELIVERY NOTIF ADDRESS (FULLWORD)  00045900
*                                                                       00046000
TM#TCOP1 DS    XL1                 UNUSED * * * * * * * * * * * * * *   00046100
TM#TCSVC DS    XL3                 . 3 SVC COMPLETION ADDRESS           00046200
TM#TCCMP EQU   TM#TCOP1,4          . SVC COMPLETION ADDRESS (FULLWORD)  00046300
*                                                                       00046400
TM#TCOP2 DS    XL1                 UNUSED * * * * * * * * * * * * * *   00046500
TM#TCONT DS    XL3                 CONTINGENCY NOTICE ADDRESS           00046600
TM#TCCET EQU   TM#TCOP2,4          . CONTINGENCY ADDRESS (FULLWORD)     00046700
*                                                                       00046800
*                                                                       00046900
TM#TCNET DS    XL1                 . 1 NETWORK STATUS FLAGS             00047000
*                                                                       00047100
*              FOLLOWING VALUES USED FOR TM#TCNET                       00047200
*                                                                       00047300
TM#TENAA EQU   X'83'               . ARP BUFFER POOL DEPLETED           00047400
TM#TENDA EQU   X'84'               . DATA BUFFER POOL DEPLETED          00047500
*                                                                       00047600
TM#TCLIN DS    XL3                 . 3 UNUSED                           00047700
*                                                                       00047800
*              FOLLOWING VALUES USED FOR TM#TCLIN                       00047900
*                                                                       00048000
TM#TCPRC DS    XL2                     . 2 RESERVED                     00048100
TM#TCNPI DS    XL2                 . 2 NUMBER OF INPUT MESSAGES         00048200
*                                  . NOT YET PROCESSED BY USER PROG     00048300
TM#TCFLG DS    XL1                 . 1 GENERAL CONTROL FLAGS            00048400
*                                                                       00048500
*              FOLLOWING VALUES USED FOR TM#TCFLG                       00048600
*                                                                       00048700
TM#TCSDN EQU   X'80'               . CONFIGURED SUPPRESS DELIVERY NOFIC 00048800
TM#TCSIN EQU   X'40'               . CONFIGURED SUPPRESS INPUT NOTICE   00048900
TM#TCTIM EQU   X'20'               . TIMER SCHEDULING PRESENT           00049000
TM#TCOVR EQU   X'10'               . CONFIGURED INPUT OVERRUN STATUS    00049100
TM#TCTRN EQU   X'08'                    . TRANSIENT ICAM                00049101
*                                                                       00049200
TM#TCOP4 DS    XL1                      . 1 RESERVED FOR TCI            00049300
TM#TCSZE DS    XL2                      . 2 SIZE OF MTABLE              00049301
TM#TCOP5 DS    XL4                 . 4 RESERVED                         00049400
TM#TCSLG EQU   *-TM#TCS            TCS TABLE LENGTH                     00049500
*                                                                       00049600
         EJECT                                                          00049700
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       00049800
*              SVC FUNCTION CODES                               *       00049900
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       00050000
         EJECT                                                          00050100
*                                                                       00050200
*        FOLLOWING EQUATES ARE NOT RELATED TO ANY SPECIFIC DSECT.       00050300
*        HOWEVER, THESE MAY BE USEFUL AS CODING TOOLS                   00050400
*                                                                       00050500
*        TCI M-FUNCTION CODES FOR SVC CALLS                             00050600
*                                                                       00050700
TM#TCRD  EQU   1                   . MREAD SVC FUNCTION CODE            00050800
TM#TCSWT EQU   2                   . MSWITCH SVC FUNCTION CODE          00050900
TM#TCWRT EQU   3                   . MWRITE SVC FUNCTION CODE           00051000
TM#TCDFR EQU   4                   . MDEFER SVC FUNCTION CODE           00051100
TM#TCALT EQU   5                   . MALERT SVC FUNCTION CODE           00051200
*                                                                       00051300
*        MALERT SUB-FUNCTION CODES SET IN R0                            00051400
TM#TCART EQU   1                   . RETRANSMIT SUBFUNCTION CODE        00051500
TM#TCNRT EQU   2                   . NO RETRANSMIT SUBFUNCTION CODE     00051600
TM#TCAEI EQU   3                   . ENABLE INPUT SUBFUNCTION           00051700
TM#TCANI EQU   4                   . CANCEL INPUT SUBFUNCTION CODE      00051800
TM#TCTS  EQU   5                   . TERMINAL STATUS SUBFUNCTION CODE   00051900
TM#TCQUE EQU   6                   . CLEAR QUEUE SUBFUNCTION CODE       00052000
         EJECT                                                          00052100
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       00052200
*              SVC COMPLETION CODES                             *       00052300
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       00052400
*                                                                       00052500
*                                                                       00052600
*        FOLLOWING VALUES ARE USED AS FLAGS AT SVC COMPLETION           00052700
*        THESE FLAGS ARE RETURNED TO USER IN R0                         00052800
*                                                                       00052900
*        FATAL ERRORS- SVC NOT COMPLETED (BYTES 0 & 1 OF R0)            00053000
*                                                                       00053100
*                                                                       00053200
*        NON FATAL ERRORS - SVC COMPLETED (BYTES 2 & 3 OF R0)           00053300
*                                                                       00053400
*                                                                       00053500
*        BYTE 0 VALUES:                                                 00053600
*                                                                       00053700
TM#TEBND EQU   X'80'               . BOUNDRY ERROR                      00053800
TM#TELMT EQU   X'81'               . LIMITS ERROR                       00053900
TM#TEDCD EQU   X'82'               . DECODE ERROR                       00054000
TM#TENMA EQU   X'83'               . NO MESSAGE AVAILABLE               00054100
TM#TEDST EQU   X'84'               . MISSING OR INVALID DESTINATION     00054200
TM#TENBA EQU   X'85'               . NO NETWORK BUFFER AVAILABLE        00054300
TM#TEDER EQU   X'86'               . DISC ERROR OCCURRED SERVICING SVC  00054400
TM#TEILG EQU   X'87'               . INVALID OUTPUT BUFFER LENGTH       00054500
*                                                                       00054600
*        BYTE 2 VALUES:                                                 00054700
*                                                                       00054800
*        INPUT FALGS : VALUES FROM X'10' TO X'3F'                       00054900
*                                                                       00055000
TM#TEIPE EQU   X'10'               . INPUT PARITY / BLOCK CHECK ERROR   00055100
TM#TETRN EQU   X'11'               . TRUNCATED INPUT MESSAGE            00055200
TM#TBEOF EQU   X'13'               . BATCH INPUT END OF FILE            00055300
*                                                                       00055500
*        OUTPUT FALGS: VALUES FROM X'40' TO X'6F'                       00055600
*                                                                       00055700
TM#TEIPR EQU   X'40'               . LEVEL (PRIORITY) ERROR             00055800
         EJECT                                                          00055900
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       00056000
*              CONTINGENCY NOTIFICATION ERROR CODES             *       00056100
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       00056200
*                                                                       00056300
*        FOLLOWING FLAGS ARE USED AS STATUS INFORMATION FROM MCP TO     00056400
*        USER PROGRAM AT USER'S CONTINGENCY NOTIFICATION ADDRESS        00056500
*                                                                       00056600
*        THE USER'S CONTINGENCY ADDRESS IS SCHEDULED BY THE MCP         00056700
*        WITH R0 & R1 AS INFORMATIONAL PARAMETERS                       00056800
*                                                                       00056900
*        R0 CONTAINS FLAG BYTES SPECIFYING THE REASON FOR THE           00057000
*        NOTIFICATION                                                   00057100
*                                                                       00057200
*        R1 CONTAINS ADDITIONAL INFRMATION WHEN NECESSARY               00057300
*                                                                       00057400
*        R0 BYTE 0 VALUES(R1 IF PRESENT DESCRIBED WITH FLAG):           00057500
*                                                                       00057600
TM#TELDW EQU   X'11'               . LINE DOWN DISCONECTED              00057700
TM#TELER EQU   X'12'               . LINE DOWN - NOT DISCONNECTED       00057800
*                                      . LINE TRANSMISSION ERROR        00057900
TM#TETRM EQU   X'18'                    . UNIDENTIFIED TRM ON LINE      00057901
*                                  . R1 = LINE NAME (FROM CCA GENERAT-  00058000
*                                  .      ION)                          00058100
*                                                                       00058200
TM#TEODE EQU   X'81'               . DISC ERROR DURING OUTPUT           00058300
*                                  . R1= TTT ADDRESS                    00058400
*                                                                       00058500
*TM#TENAA EQU  X'83'               . ARP BUFFER POOL DEPLETED           00058600
*                                  . R1=TCS ADDRESS                     00058700
*                                                                       00058800
*                                                                       00058900
*TM#TENDA EQU  X'84'               . DATA BUFFER POOL DEPLETED          00059000
*                                  . R1=TCS ADDRESS                     00059100
*                                                                       00059200
*                                                                       00059300
         EJECT                                                          00059400
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       00059500
*        DELIVERY NOTIFICATION ERROR CODES                      *       00059600
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *       00059700
*                                                                       00059800
*                                                                       00059900
*        FOLLOWING FLAGS ARE USED AS STATUS INFORMATION FROM ICAM       00060000
*        TO USER PROGRAM AT USER'S DELIVERY NOTIFICATION ADDRESS        00060100
*        THE USER'S DELIVERY ADDRESS IS SCHEDULED BY ICAM WITH          00060200
*        INFORMATION IN R0 AND R1                                       00060300
*                                                                       00060400
*        R0 CONTAINS THE DELIVERY PARAMETER THE USER SUPPLIED WITH THE  00060500
*        MESSAGE WHEN IT WAS SUBMITTED                                  00060600
*                                                                       00060700
*        R1(UPPER BYTE) CONTAINS DELIVERY STATUS                        00060800
*        R1(LOWER 3 BYTES) CONTAIN ADDRESS OF TTT TO WHICH OUTPUT       00060900
*              WAS DELIVERED                                            00061000
*                                                                       00061100
*        DELIVERY STATUSES:                                             00061200
*                                                                       00061300
TM#TDDNA EQU   X'12'                    . TERMINAL MARKED DOWN          00061400
*                                       . MESSAGE HELD                  00061500
TM#TDNAX EQU   X'40'                    . AUXILIARY DEVICE DOWN         00061600
*                                       . MESSAGE HELD                  00061700
*                                       . OUTPUT CAN STILL BE SENT TO   00061800
*                                       . PRIMARY                       00061900
TM#TDDS1 EQU   X'01'                    . UNISCOPE AUXILIARY STATUS ONE 00062000
*                                       . MESSAGE HELD                  00062100
*                                       . GOOD STATUS BUT READ/WRITE    00062200
*                                       . FUNCTION INOPERATIVE          00062300
TM#TDDS2 EQU   X'02'                    . UNISCOPE AUX STATUS TWO       00062400
*                                       . MESSAGE HELD                  00062500
*                                       . PRINTER OUT OF PAPER,         00062600
*                                       . INOPERATIVE OR IN TEST MODE   00062700
TM#TDDS3 EQU   X'03'                    . UNISCOPE AUX STATUS THREE     00062800
*                                       . MESSAGE HELD                  00062900
*                                       . TAPE CASSETTE END-OF-TAPE     00063000
TM#TDDS4 EQU   X'04'                    . UNISCOPE AUX STATUS FOUR      00063100
*                                       . MESSAGE HELD                  00063200
*                                       . NO RESPONSE FROM DEVICE WHEN  00063300
*                                       . ATTEMPTING TO READ BLOCK OF   00063400
*                                       . TAPE                          00063500
*                                                                       00063600
TM#TDNEM EQU   X'81'                    . SUCCESSFUL OURPUT COMPLETION  00063700
*                                                                       00063800
TM#TDLNO EQU   X'11'                    . LINE DOWN/DISCONNECTED        00063900
*                                       . MESSAGE HELD                  00064000
         ENDO                                                           00064100
         ENDO                                                           00064200
         DO    &UTTT                                                    00064300
       DO  1-(&CTTT=1)                                                  00064400
&CTTT    SET   1                                                        00064500
         EJECT                                                          00064600
*                                                                       00064700
*        TITLE           -        'TRANSACTION TERMINAL TABLE'          00064800
*                                                                       00064900
*                                                                       00065000
* * * *  TRANSACTION TERMINAL TABLE - PSEUDO NAME IS TTT                00065100
*                                                                       00065200
*                 ................................................      00065300
*                 :    TRANSACTION TERMINAL TABLE (TTT) PICTURE  :      00065400
*                 ................................................      00065500
*                 :    +0    :     +1    :     +2    :     +3    :      00065600
*                 ................................................      00065700
*              W1 : TM#TTFLG : TM#TTNCC  : TM#TTSL1  : TM#TTSL2  :      00065800
*                 ................................................      00065900
*              W2 :                   TM#TTNAM                   :      00066000
*                 ................................................      00066100
*              W3  TM#TTFG2  :            TM#TTMSG              :       00066200
*                 ................................................      00066300
*              W4 :       TM#TTIT        :        TM#TTOT        :      00066400
*                 ................................................      00066500
*              W5 : TM#TTIUS : TM#TTTCI : TM#TTIUS : TM#TTOTC   :       00066600
*                 ................................................      00066700
*              W6 :       TM#TTNUM       :        TM#TTUDS       :      00066800
*                 ................................................      00066900
*              W7 :                     TM#TTUWA                 :      00067000
*                 ................................................      00067100
*              W8 :                      TM#TTSLT                :      00067200
*                 ................................................      00067300
*              W3       TM#TTSEQ        :       TM#TTLNM        :       00067400
*                 ................................................      00067500
*              W10: TM#TTIFC : TM#TTIDV  :         TM#TTICT      :      00067600
*                 ................................................      00067700
*                                                                       00067800
TM#TTT   DSECT                                                          00067900
TM#TTFLG DS    XL1                 . 1 TERMINAL FLAGS & IRL FLAG        00068000
*              FOLLOWING VALUES USED FOR TM#TTFLG                       00068100
TM#TTIRL  EQU  X'80'               . IRL FLAG                           00068200
TM#TTDWN EQU   X'40'               . TERMINAL DOWN FLAG                 00068300
TM#TTSPR EQU   X'20'                    . SUPPRESS PREVIEW              00068400
*        EQU   X'10'                    . OPEN FLAG                     00068500
TM#TTLST EQU   X'08'               . LAST TTT FLAG                      00068600
TM#TTINH EQU   X'04'               . CONTROLLED INHIBIT INPUT MTABE SET 00068700
TM#TTDER EQU   X'02'               . DISC ERROR WRITING INPUT TO DISC   00068800
TM#TTAVL EQU   X'01'               . INPUT MESSAGE AVAILABLE            00068900
*                                                                       00069000
TM#TTNCC DS    XL1                 . 1 NUMBER CONTROL CHARS BYPASSED    00069100
*                                                                       00069200
TM#TTSLX DS    XL2                 . 2 TERMINAL DISC SLOT FLAGS         00069300
TM#TTSL1 EQU   TM#TTSLX,1                                               00069400
*                                                                       00069500
*              FOLLOWING VALUES USED FOR TM#TTSL1                       00069600
*                                                                       00069700
TM#TTINP EQU   X'01'               . INPUT SLOT FULL                    00069800
TM#TTRTS EQU   X'02'               . RETRANSMIT REQUESTED               00069900
*                                                                       00070000
TM#TTSL2 EQU   TM#TTSLX+1,1                                             00070100
*                                                                       00070200
*              FOLLOWING VALUES USED FOR TM#TTSL2                       00070300
*                                                                       00070400
TM#TTOP  EQU   X'01'               . TOP SLOT FULL                      00070500
TM#TTHGH EQU   X'02'               . HIGH SLOT FULL                     00070600
TM#TTMED EQU   X'04'               . MEDIUM SLOT FULL                   00070700
TM#TTLW1 EQU   X'08'               . LOW OR PAGE SLOT 1 FULL            00070800
TM#TTLW2 EQU   X'10'               . LOW OR PAGE SLOT 2 FULL            00070900
TM#TTLW3 EQU   X'20'               . LOW OR PAGE SLOT 3 FULL            00071000
TM#TTLW4 EQU   X'40'               . LOW OR PAGE SLOT 4 FULL            00071100
TM#TTLW5 EQU   X'80'               . LOW OR PAGE SLOT 5 FULL            00071200
TM#TTSSZ EQU   X'05'               . NUMBER DISC SLOTS PER TERMINAL     00071300
*                                                                       00071400
TM#TTNAM DS    CL4                 . 4 TRANSACTION TERMINAL TABLE NAME  00071500
*                                                                       00071600
TM#TTFG2 DS    XL1                      . 1 SECOND TRM FLAG BYTE        00071700
TM#TTBAT EQU   X'01'                    . THIS IS A BATCH TERMINAL      00071701
TM#TTMSG DS    XL3                 . 3 INPUT MSG HEADER ADDRESS         00071800
TM#TTMAD EQU   TM#TTFG2,4               . MSG STAGING ARP ADDRESS       00071900
TM#TTCT  EQU   TM#TTFG2,4               . TRANS TCT ADDRESS             00072000
*                                                                       00072100
TM#TTIT  DS    XL2                 . 2 NUMBER OF INPUT TRANSACTIONS     00072200
TM#TTOT  DS    XL2                 . 2 NUMBER OF OUTPUT TRANSACTIONS    00072300
*                                                                       00072400
TM#TTIUS DS    XL1                 . 1 USER INPUT FLAGS                 00072500
*                                                                       00072600
*              FOLLOWING VALUES USED FOR TM#TTIUS                       00072700
*                                                                       00072800
TM#TTIOS EQU   X'01'                    . INPUT OVERRUN STATUS          00072900
*                                         PREVIOUS MSG SAVED            00073000
*                                         PREVIEW SHOWS NEW INPUT       00073100
TM#TTCAN EQU   X'02'               . CANCEL INPUT MSG (MWRITE/MALERT)   00073200
TM#TTHIN EQU   X'04'               . INHIBIT INPUT MALERT FLAG          00073300
TM#TTDAT EQU   X'10'               . DATE & TIME STAMPING PERFORMED     00073400
TM#TTRNM EQU   X'20'               TRANSACTION NUMBER STAMPING          00073500
TM#TTSRC EQU   X'40'               . SOURCE STAMPING                    00073600
TM#TTSTP EQU   TM#TTDAT++TM#TTSRC++TM#TTRNM . ALL STAMP FLAGS SET       00073700
*                                                                       00073800
TM#TTTCI DS    XL1                 . 1 TCI INPUT FLAGS                  00073900
*                                                                       00074000
*              FOLLOWING VALUES USED FOR TM#TTTCI                       00074100
*                                                                       00074200
TM#TTIPE EQU   X'08'               . INPUT PARITY / BLOCK CHECK ERROR   00074300
TM#TTEOF EQU   X'40'               . BATCH INPUT END OF FILE            00074400
TM#TTRUN EQU   X'80'               . TRUNCATED INPUT MESSAGE            00074500
*                                                                       00074600
TM#TTTCO DS    XL2                 . 2 USER/TCI OUTPUT FLAGS            00074700
TM#TTOUS EQU   TM#TTTCO,1          . USER OUTPUT FLAGS                  00074800
*                                                                       00074900
*              FOLLOWING VALUES USED FOR TM#TTOUS                       00075000
*                                                                       00075100
*                                                                       00075200
TM#TTHHY EQU   X'01'               . HOLD HIGH PRIORITY OUTPUT          00075300
TM#TTHMD EQU   X'02'               . HOLD MEDIUM PRIORITY OUTPUT        00075400
TM#TTHLW EQU   X'04'               . HOLD LOW PRIORITY OUTPUT           00075500
TM#TTQHD EQU   TM#TTHHY++TM#TTHMD++TM#TTHLW . ALL HOLD FLAGS SET        00075600
TM#TTRHY EQU   X'10'               . RELEASE HOLD ON HIGH QUEUE         00075700
TM#TTRMD EQU   X'20'               . RELEASE HOLD ON MEDIUM QUEUE       00075800
TM#TTRLW EQU   X'40'               . RELEASE HOLD ON LOW QUEUE          00075900
TM#TTQRL EQU   TM#TTRHY++TM#TTRMD++TM#TTRLW . ALL RELEASE FLAGS SET     00076000
*                                                                       00076100
*        FOLLOWING EQUATES OVERLAP PREVIOUS RELEASE HOLD FLAGS          00076200
*        BECAUSE BOTH SETS ARE MUTUALLY EXCLUSIVE                       00076300
*                                                                       00076400
TM#TTCHY EQU   X'10'               . CLEAR HIGH QUEUE                   00076500
TM#TTCMD EQU   X'20'               . CLEAR MEDIUM QUEUE                 00076600
TM#TTCLW EQU   X'40'            .  . CLEAR LOW QUEUE                    00076700
TM#TTCQU EQU   TM#TTCHY++TM#TTCMD++TM#TTCLW . ALL CLEAR FLAGS SET       00076800
*                                                                       00076900
TM#TTQUE EQU   TM#TTTCO+1,1        . TCI RETRANSMIT FLAGS               00077000
TM#TTOTC EQU   TM#TTTCO+1,1        . TCI OUTPUT FLAGS                   00077100
*                                                                       00077200
*              FOLLOWING VALUES USED FOR TM#TTQUE                       00077300
*                                                                       00077400
TM#TTHQH EQU   X'08'               . HIGH QUEUE ON HOLD FOR RETRANSMIT  00077500
TM#TTMQH EQU   X'04'               .  MED QUEUE ON HOLD FOR RETRANSMIT  00077600
TM#TTLQH EQU   X'01'               .  LOW QUEUE ON HOLD FOR RETRANSMIT  00077700
*                                                                       00077800
*                                                                       00077900
TM#TTNUM DS    XL2                 . 2 TERMINAL NUMBER                  00078000
TM#TTUDS DS    XL2                 . 2 DISPLACEMENT TO USER WORK AREA   00078100
TM#TTUWA DS    XL4                 . USER MREAD/MWRITE MESSAGE ADDRESS  00078200
TM#TTSLT DS    XL4                 . DISC INPUT SLOT ADDRESS            00078300
TM#TTSEQ DS    XL2                 . INPUT SEQUENCE COUNT/ACTIVE INPUT  00078400
*                                                                       00078500
TM#TTLNM DS    XL2                      . 2 LINE NUMBER THIS TERMINAL   00078600
TM#TTIAX DS    XL2                 . 2 AUXILIARY FIELD FOR INPUT        00079000
TM#TTIFC EQU   TM#TTIAX,1          . 1 FUNCTION WORD                    00079100
*                                                                       00079200
*              FOLLOWING VALUES USED FOR TM#TTIFC                       00079300
*              AVAILABLE ONLY ON UNISCOPE TERMINALS                     00079400
*                                                                       00079500
TM#TTCMW EQU   X'40'               . SEND COMPUTER MSG REQUESTED        00079600
*                                                                       00079700
TM#TTMWK EQU   TM#TTCMW            . CHOICE OF FLAGS                    00079800
TM#TTFK1 EQU   X'41'               . FUNCTION KEY ONE                   00079900
TM#TTFK2 EQU   X'42'               . FUNCTION KEY TWO                   00080000
TM#TTFK3 EQU   X'43'               . FUNCTION KEY THREE                 00080100
TM#TTFK4 EQU   X'44'               . FUNCTION KEY FOUR                  00080200
*        INDICATOR VALUES FOR UNISCOPE AUX DEVICE STATUS                00080300
TM#TTDS1 EQU   X'01'               . UNISCOPE AUX DEVICE STATUS ONE     00080400
TM#TTDS2 EQU   X'02'               . UNISCOPE AUX DEVICE STATUS TWO     00080500
TM#TTDS3 EQU   X'03'               . UNISCOPE AUX DEVICE STATUS THREE   00080600
TM#TTDS4 EQU   X'04'               . UNISCOPE AUX DEVICE STATUS FOUR    00080700
*                                                                       00080800
*        BATCH INPUT FLAGS                                              00080900
TM#TTBRK EQU   X'06'               . BREAK RECEIVED (DCT500/TTY)        00081000
TM#TTTDI EQU   X'07'               . TIMEOUT ON INPUT (DCT500/TTY)      00081100
TM#TTTRE EQU   X'08'               . DCT524 MAG TAPE READ ERROR         00081200
TM#TTRFE EQU   X'05'               . FRONT END                          00081300
TM#TTOVR EQU   X'09'               . OVERSIZED PRINT/PUNCH IMAGE SENT   00081400
TM#TTOFE EQU   X'0A'               . FRONT END                          00081500
TM#TTOMA EQU   X'0B'               . MISSING ACKNOWLEDGE                00081600
TM#TTDTO EQU   X'0D'               . DCT1000 TIMEOUT - OUT OF PAPER     00081700
TM#TTRTA EQU   X'11'               . INPUT - INVALID TERMINAL ADDR      00081800
TM#TTRNB EQU   X'12'               . INPUT - NETWORK BUFFER LATE        00081900
TM#TTRBI EQU   X'13'               . INPUT - BAD INPUT TEXT             00082000
TM#TTRBH EQU   X'13'               . BAD INPUT MESSAGE HEADER           00082100
TM#TTRHT EQU   X'20'               . RECEIVED HALT                      00082200
TM#TTRHV EQU   X'21'               . RECEIVED HALT GO VOICE             00082300
TM#TTRER EQU   X'22'               . RECEIVED END READ                  00082400
TM#TTRDY EQU   X'23'               . RECEIVED READY                     00082500
TM#TTOFF EQU   X'24'               . RECEIVED OFFLINE                   00082600
TM#TTAPR EQU   X'25'               . RECEIVED ABORT PRINT               00082700
TM#TTAPU EQU   X'26'               . RECEIVED ABOTR PUNCH               00082800
TM#TTRVI EQU   X'27'               . RECEIVED RVI (BSC)                 00082900
TM#TTRRD EQU   X'28'          . RECEIVED A READ REQST DURING OUTPUT     00083000
TM#TTSND EQU   X'A0'               . GET CARDS TO SEND                  00083100
TM#TTPCH EQU   X'A1'               . PUNCHED CARD IMAGE FLAG            00083200
TM#TTHGR EQU   X'A5'               . RECEIVED 'HALT- GO-VOICE' FUNCTION 00083300
TM#TTYLD EQU   X'A6'               . MCT RETURNED FOR HALT DO CYIELD    00083400
TM#TTSNT EQU   X'AA'               . SPECIAL FUNCTION SENT              00083500
TM#TTEOJ EQU   X'FF'               . 'OFFLINE' SENT (GO TO EOJ)         00083600
TM#TTIDV EQU   TM#TTIAX+1,1        . 1 DEVICE TYPE                      00083700
*                                                                       00083800
TM#TTICT DS    XL2                 . 2 CHAR COUNT FOR INPUT TEXT        00083900
TM#TTEXT EQU   *                   START OF TEXT                        00084000
TM#TTSIZ EQU   *-TM#TTT            . TTT LENGTH                         00084100
         ENDO                                                           00084200
         ENDO                                                           00084300
         DO    &UOMSG                                                   00084400
       DO  1-(&COMSG=1)                                                 00084500
&COMSG   SET   1                                                        00084600
         EJECT                                                          00084700
*                                                                       00084800
*        TITLE           -        'OUTPUT MESSAGE PREFIX'               00084900
*                                                                       00085000
*                                                                       00085100
* * * *  OUTPUT MESSAGE PREFIX FORMAT - PSEUDO NAME IS OMSG             00085200
*                                                                       00085300
*                 ................................................      00085400
*                 :    +0    :     +1    :     +2    :     +3    :      00085500
*                 ................................................      00085600
*                 :     OUTPUT MESSAGE PREFIX (OMSG) PICTURE     :      00085700
*                 ................................................      00085800
*              W1 : TM#TOFLG : TM#TOPRI  :        TM#TOPGE       :      00085900
*                 ................................................      00086000
*              W2 :                TM#TODID                      :      00086100
*                 ................................................      00086200
*              W3 :                TM#TOPAR                      :      00086300
*                 ................................................      00086400
*              W4 : TM#TOFUN : TM#TODEV  :        TM#TOCNT       :      00086500
*                 ................................................      00086600
TM#TOMSG DSECT                                                          00086700
TM#TOFLG DS    XL1                 . 1 OUTPUT MESSAGE FLAGS-USER        00086800
*                                                                       00086900
*              FOLLOWING VALUES USED FOR TM#TOFLG                       00087000
*                                                                       00087100
*                                                                       00087200
TM#TOPRM EQU   X'02'                    . REROUT TO PRIMARY IF AUX DOWN 00087300
TM#TOHLD EQU   X'04'                    . DEQUEUE THIS OUTPUT AND       00087400
*                                       HOLD NEXT OUTPUT AT OUTPUT EOM  00087500
TM#TOSDN EQU   X'08'               . SUPPRESS DELIVERY NOTICE           00087600
TM#TORSD EQU   X'10'               . HOLD MSG FOR POSSIBLE RETRANSMIT   00087700
TM#TOCIN EQU   X'20'               . CANCEL INPUT AND DELIVER OUTPUT    00087800
TM#TOENI EQU   X'40'               . ENABLE INPUT AT OUTPUT EOM         00087900
TM#TOEOF EQU   X'80'               . THIS IS LAST IMAGE OF BATCH OUTPUT 00088000
*                                                                       00088100
TM#TOPRI DS    XL1                 . OUTPUT PRIORITY                    00088200
*                                                                       00088300
*              FOLLOWING VALUES USED FOR TM#TOPRI                       00088400
*                                                                       00088500
TM#TOTOP EQU   X'04'               . TOP PRIORITY                       00088600
TM#TOHIG EQU   X'03'               . HIGH PRIORITY                      00088700
TM#TOMED EQU   X'02'               MEDIUM PRIORITY MESSAGE              00088800
TM#TOLOW EQU   X'01'               LOW PRIORITY MESSAGE                 00088900
*                                                                       00089000
TM#TOPGE DS    XL2                 . 2 PAGE FLAGS                       00089100
*                                                                       00089200
*              FOLLOWING VALUES USED FOR TM#TOPGE                       00089300
*                                                                       00089400
*                                                                       00089500
TM#TOFBY EQU   TM#TOFLG,4          . FLAGS WORD                         00089600
*                                                                       00089700
TM#TODID DS    CL4                 . 4 DESTINATION IDENTIFIER           00089800
TM#TOPAR DS    XL4                 . 4 DELIVERY NOTICE PARAMETER        00089900
TM#TOAUX DS    XL2                 AUXILIARY FIELD FOR OUTPUT           00090000
TM#TOFUN EQU   TM#TOAUX,1          FUNCTION WORD                        00090100
*                                                                       00090200
*              FOLLOWING VALUES USED FOR TM#TOFUN                       00090300
*              AVAILABLE ONLY ON U100/DCT1000                           00090400
*                                                                       00090500
TM#TOPRE EQU   X'10'               . PREVENT NONSIGNIF SPACE SUPPRESS   00090600
TM#TOTAT EQU   X'20'               . TRANSPARENT AUX DEVICE TRANSFER    00090700
TM#TOMWK EQU   X'40'               . NOTIFY OPERATOR OF MESSAGE WAITING 00090800
*                                                                       00090900
TM#TOCMW EQU   TM#TOMWK            . CHOICE OF FLAGS                    00091000
TM#TOPRT EQU   X'80'               . PRINT (WRITE) TO TCS,COP,NIP       00091100
TM#TORDB EQU   X'81'               . READ A BLOCK ON TCS                00091200
TM#TOBOB EQU   X'82'               . BACKSPACE ONE BLOCK ON TCS         00091300
TM#TOSRH EQU   X'83'               . SEARCH TCS                         00091400
TM#TORPA EQU   X'84'               . REPORT ADDRESS ON TCS              00091500
*                                                                       00091600
*        BATCH OUTPUT FLAGS                                             00091700
TM#TONCH EQU   X'00'               . NO CHANGE INDICATOR                00091800
TM#TOTRN EQU   X'04'               . SEND TRANSPARENT (BSC)             00091900
TM#TOINI EQU   X'05'               . INITIAL MCT FLAG (START POLLING)   00092000
TM#TORDF EQU   X'06'               . OPERATOR KEYIN MADE                00092100
TM#TOPRA EQU   X'09'               . SEND ABORT PRINT TO HOST           00092200
TM#TOPUA EQU   X'0A'               . SEND ABORT PUNCH TO HOST           00092300
TM#TOSOL EQU   X'0C'               . SEND 'OFFLINE' FUNCTION            00092400
TM#TOSHT EQU   X'20'               . SEND HALT                          00092500
TM#TODEV EQU   TM#TOAUX+1,1        DEVICE TYPE                          00092600
TM#TOCNT DS    XL2                 CHARACTER COUNT IN OUTPUT TEXT       00092700
TM#TOMLG EQU   *-TM#TOMSG          . OMSG DSECT LENGTH                  00092800
         ENDO                                                           00092900
         ENDO                                                           00093000
         DO    &UIMSG                                                   00093100
       DO  1-(&CIMSG=1)                                                 00093200
&CIMSG   SET   1                                                        00093300
         EJECT                                                          00093400
*                                                                       00093500
*        TITLE           -        'INPUT MESSAGE PREFIX'                00093600
*                                                                       00093700
*                                                                       00093800
*        TRANSACTION CONTROL INPUT MESSAGE PREFIX FORMAT                00093900
*                                                                       00094000
*                 ................................................      00094100
*                 :        INPUT MESSAGE PREFIX PICTURE          :      00094200
*                 ................................................      00094300
*                 :    +0    :     +1    :     +2    :     +3    :      00094400
*                 ................................................      00094500
*              W1 :       TM#TICNT       :       TM#TIAX        :       00094600
*                 ................................................      00094700
*              W2 :                TM#TISRC                      :      00094800
*                 ................................................      00094900
*              W3 :                TM#TIDAT                      :      00095000
*                 ................................................      00095100
*              W4 :                TM#TITIM                      :      00095200
*                 ................................................      00095300
*              W5 :                TM#TITRN                      :      00095400
*                 ................................................      00095500
TM#TIMSG DSECT                                                          00095600
*                                                                       00095700
TM#TICNT DS    XL2                 . 2 INPUT CHARACTER COUNT            00095800
TM#TIAX  DS    XL2                      . AUX INPUT FIELDS-SAME AS TTT  00095900
*              SEE FIELDS UNDER TM#TTIAX                                00096000
TM#TIFNC EQU   TM#TIAX,1                . AUX FUNCTION FIELD            00096100
TM#TIDEV EQU   TM#TIAX+1,1              . AUX INPUT DEVICE FIELD        00096200
*                                                                       00096300
*        FOLLOWING VALUES ARE INPUT PREFIX LENGTHS FOR OPTIONAL STAMPS  00096400
*                                                                       00096500
TM#TISON EQU   *+4                 . IMSG LENGTH FOR SOURCE STAMP ONLY  00096600
TM#TIDTO EQU   *+8                 . LENGTH FOR DATE/TIME ONLY          00096700
TM#TITRO EQU   *+4                 . LENGTH FOR TRANSACTION NUM ONLY    00096800
TM#TISDT EQU   *+12                . LENGTH FOR SOURCE+DATE/TIME        00096900
TM#TISTR EQU   *+8                 . LENGTH SOURCE + TRANS NUMBER       00097000
TM#TIDTR EQU   *+12                . LENGTH DATE/TIME + TRANS NUM       00097100
*                                                                       00097200
TM#TISRC DS    CL4                 . 4 SOURCE ID                        00097300
*                                                                       00097400
TM#TIDAT DS    XL4                 . 4 DATE OF INPUT MESSAGE            00097500
TM#TITIM DS    XL4                 . 4 TIME OF INPUT MESSAGE            00097600
*                                                                       00097700
TM#TITRN DS    XL4                 . 4 TRANSACTION NUMBER               00097800
TM#TILNG EQU   *-TM#TIMSG          . LENGTH OF INPUT MSG PREFIX         00097900
         ENDO                                                           00098000
         ENDO                                                           00098100
         DO    &TARP                                                    00098200
       DO  1-(&CTARP=1)                                                 00098300
&CTARP   SET   1                                                        00098400
         EJECT                                                          00098500
*                                                                       00098600
*        TITLE           -        'TCI ARP FOR SAT I/O'                 00098700
*                                                                       00098800
*                                                                       00098900
*                                                                       00099000
* * * *  TRANSACTION CONTROL INTERFACE (TCI) ARP                        00099100
*                                                                       00099200
*                 ................................................      00099300
*                 :                     TCI ARP PICTURE          :      00099400
*                 ................................................      00099500
*                 :    +0    :     +1    :     +2    :     +3    :      00099600
*                 ................................................      00099700
*              W1 : TM#TAPRI :          TM#TARSV                 :      00099800
*                 ................................................      00099900
*              W2 : TM#TAFNC :          TM#TACMP                 :      00100000
*                 ................................................      00100100
*              W3 : TM#TAPCA :          TM#TATCB                 :      00100200
*                 ................................................      00100300
*              W4 : TM#TAPRE :          TM#TALCT                 :      00100400
*                 ................................................      00100500
*              W5 : TM#TASAT :         TM#TARET                 :       00100600
*                 ................................................      00100700
*              W6 :                     TM#TACUR                 :      00100800
*                 ................................................      00100900
*              W7 :       TM#TABYT       :       TM#TALBK        :      00101000
*                 ................................................      00101100
*              W8 :                     TM#TAIOA                 :      00101200
*                 ................................................      00101300
*              W9 :                     TM#TATTT                 :      00101400
*                 ................................................      00101500
*                                                                       00101600
TM#TARP  DSECT                                                          00101700
*                                                                       00101800
TM#TAPRI DS    XL1                 . 1 PRIORITY FLAGS                   00101900
*                                                                       00102000
*              FOLLOWING VALUES USED FOR TM#TAPRI                       00102100
*                                                                       00102200
TM#TAIRL EQU   X'80'               . IRL FLAG                           00102300
*                                                                       00102400
TM#TARSV DS    XL3                 . 3 RESERVED FOR ACT CONTROL LINK    00102500
TM#TAFNC DS    XL1                 . 1 SOFTWARE FUNCTION                00102600
*                                                                       00102700
*              FOLLOWING VALUES USED FOR TM#TAFNC                       00102800
*                                                                       00102900
TM#TAGET EQU   X'80'               . SAT GET FUNCTION                   00103000
TM#TAPUT EQU   X'40'               . SAT PUT FUNCTION                   00103100
TM#TANHD EQU   X'20'               . NETBUF TEXT NOT DEPLETED           00103200
TM#TANUP EQU   X'10'               . NO CURR ID UPDATE IN SAT PCA       00103300
TM#TAFST EQU   X'08'               . FIRST SEG (HDR) OF A MSG           00103400
TM#TACSG EQU   X'04'               . CONTINUATION SEGMENT               00103500
TM#TAEOM EQU   X'02'               . EOM IN BUFFER                      00103600
TM#TARTN EQU   X'01'               . RETRANSMIT REQUEST FOR MOSEG       00103700
*                                                                       00103800
TM#TACMP DS    XL3                 . 3 COMPLETION ADDRESS (ENTRY POINT) 00103900
TM#TAENT EQU   TM#TAFNC,4          . DISC ROUTINE ENTRY (FULLWORD)      00104000
*                                                                       00104100
TM#TAPCA DS    XL1                 . 1 PCA ID                           00104200
*                                                                       00104300
*              FOLLOWING VALVES USED FOR TM#TAPCA                       00104400
*                                                                       00104500
TM#TADBF EQU   X'00'               . DISC BUFFERING PCA ID= 0           00104600
TM#TATRS EQU   X'01'               . TRANSIENT PCA ID =1                00104700
TM#TAPFG EQU   X'80'               . PREVIEW NOT COMPLETE               00104800
*                                                                       00104900
TM#TATCB DS    XL3                 . 3 I/O TCB ADDRESS                  00105000
TM#TATCA EQU   TM#TAPCA,4          . TCB ADDRESS (FULLWORD)             00105100
*                                                                       00105200
TM#TAPRE DS    XL1                 . 1 NUMBER BYTES MOVED IN PREVIEW    00105300
TM#TALCT DS    XL3                 . 3 LCT ADDRESS                      00105400
TM#TALCA EQU   TM#TAPRE,4          . LCT ADDRESS (FULLWORD)             00105500
*                                                                       00105600
TM#TAARP EQU   TM#TAPRE,4          . 4 MCOM ARP ADDRESS                 00105700
TM#TASAT DS    XL1                 . 1 SAT I/O FLAG BYTE                00105800
*                                                                       00105900
*              FOLLOWING VALUES USED FOR TM#TASAT                       00106000
*                                                                       00106100
TM#TAERR EQU   X'80'               . I/O ERROR OCCURED                  00106200
TM#TART3 DS    XL3                 . 3 CALLER'S RETURN ADDRESS          00106300
TM#TARET EQU   TM#TASAT,4          . FULLWORD RETURN ADDRESS            00106400
*              SCHEDULE FOR RETURN IS ALWAYS TO PRIMARY TASK            00106500
TM#TACUR DS    A                   . 4 START BLOCK NUMBER FOR SAT       00106600
TM#TABYT DS    H                   . 2 NUM TEXT BYTES LEFT ON DISC      00106700
TM#TALBK DS    H                   . 2 NUMBER OF BLOCKS FOR SAT         00106800
TM#TAIOA DS    A                   . 4 I/O WORK BUFFER ADDRESS          00106900
TM#TATTT DS    XL4                 . 4 TTT ADDRESS                      00107000
         ENDO                                                           00107100
         ENDO                                                           00107200
         DO    (1-(&CPTAB=1))*&UPTAB                                    00107300
&CPTAB   SET   1                                                        00107400
         EJECT                                                          00107500
*                                                                       00107600
*              TITLE     -         IMS PRCS TABLE                       00107700
*                                                                       00107800
*****    PRCS ENTRY TABLE - PSEUDO NAME IS PTAB                         00107900
*                                                                       00108000
*                 ...............................................       00108100
*                 :       PRCS ENTRY TABLE (PTAB)               :       00108200
*                 ...............................................       00108300
*                 :    +0    :    +1    :    +2    :    +3      :       00108400
*                 ...............................................       00108500
*              W1 :                TM#TPNAM                     :       00108600
*                 ...............................................       00108700
*              W2 :                TM#TPDTF                     :       00108800
*                 ...............................................       00108900
*              W3 :       TM#TPTTT       : TM#TPUSR : TM#TPTCI  :       00109000
*                 ...............................................       00109100
*                                                                       00109200
TM#TPTAB DSECT                                                          00109300
TM#TPNAM DS    A                       PRCS FILE NAME                   00109400
TM#TPDTF DS    A                       DTF ADDRESS                      00109500
TM#TPTTT DS    Y                       DISP TO TTT                      00109600
TM#TPUSR DS    XL1                     USER PRCS FLAGS                  00109700
*              FLAGS FOR TM#TPUSR      ARE:                             00109800
TM#TPTCI DS    XL1                     TCI PRCS FLAGS                   00109900
*              FLAGS FOR TM#TPTCI ARE:                                  00110000
TM#TPLST EQU   X'80'                   LAST ENTRY FLAG                  00110100
TM#TPLNG EQU   *-TM#TPTAB              LENGTH OF PRCS PTAB ENTRY        00110200
         ENDO                                                           00110300
&SYSECT  CSECT                          RESTART CSECT                   00110400
         END                                                            00110500
