         PROC  &P,0                                                     00000000
XTN#CPKT NAME  X    . 08/07/74 DSECT FOR 9700 MPPS CIOCP                00000100
TN#CPKT  NAME  0                                                        00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &TN#KPSWT           . ONE TIME SWITCH                    00001100
.* .                                                                    00001200
         DO    '&TN#KPSWT'=''                                           00001300
&TN#KPSWT SET  0                   . SET INHIBIT SWITCH                 00001400
TN#CPKT  DSECT                                                          00001500
*                                                                       00001600
TN#CPRTY DS    XL1                 . PRIORITY                           00001700
TN#CLINK DS    AL3                 . LINK ADDRESS                       00001800
TN#CLNKA EQU   TN#CPRTY,4          . LINK ADDR (FULL WOR;)              00001900
TN#CFUNC DS    XL1                 . FUNCTION CODE                      00002000
*                                                                       00002100
*        FUNCTION CODE VALUES                                           00002200
*                                                                       00002300
TN#CTERM EQU   X'02'               . TERMINATE                          00002400
TN#CABRT EQU   X'03'               . ABORT                              00002500
TN#CRSTR EQU   X'04'               . RESTART                            00002600
TN#CCMSG EQU   X'05'               . CANCEL MESSAGE - DISC ERROR        00002700
TN#CPOUT EQU   X'10'               . POLL/PROBE/SOLICIT INPUT           00002800
TN#CIN   EQU   X'40'               . INPUT                              00002900
TN#CCINM EQU   X'4F'               . CANCEL INPUT MESSAGE               00003000
TN#COUT  EQU   X'80'               . SEND OUTPUT                        00003100
TN#CRXMT EQU   TN#COUT++X'0A'      . RETRANSMIT MESSAGE                 00003200
TN#CRRTE EQU   TN#COUT++X'0B'      . REOUTE MESSAGE                     00003300
TN#CMSE  EQU   TN#COUT++X'0C'      . SEND END ERROR PROCESSING          00003400
*                                                                       00003500
*                                                                       00003600
TN#CCMPL DS    AL3                 . COMPLETION                         00003700
TN#CCMPA EQU   TN#CFUNC,4          . ENTRY POINT ADDR (FULL WORD)       00003800
TN#CMUX  DS    XL1                 . DEVICE ADDRESS                     00003900
TN#CMUXE DS    XL1                 . DEVICE ADDRESS (ERROR)             00004000
TN#CERCD DS    XL1                 . ERROR                              00004100
*                                                                       00004200
*        TN#CERCD VALUES                                                00004300
*                                                                       00004400
*                                                                       00004500
TN#CSTAT DS    XL1                 . STATUS BYTE                        00004600
* * * TN#CSTAT VALUES                                                   00004700
TN#CICTE EQU   X'80'               . CIC TERMINATE ERROR                00004800
TN#CCERR EQU   X'40'               . CHANNEL ERROR                      00004900
TN#CLERR EQU   X'20'               . LINE ERROR                         00005000
TN#CTERR EQU   X'10'               . TERMINAL ERROR                     00005100
TN#CMNP  EQU   X'04'               . MSG NOT PROCESSED                  00005200
TN#CNRCV EQU   X'02'               . UNRECOVERABLE                      00005300
TN#CLMBO EQU   X'01'    LIMBO - OTHER PROCESSING GOING ON               00005400
TN#CSUCC EQU   X'00'               . SUCCESSFULL                        00005500
TN#CBADR DS    A                   . ADDR OF MSG PREFIX(HEADER OR S     00005600
TN#CLCTA DS    A                   . CURRENT LCT ADDRESS                00005700
TN#CTRMA DS    A                   . CURRENT TERMINAL ADDRESS           00005800
TN#CCCCA DS    A                   . CCA ADDRESS                        00005900
TN#CGENT DS    A                   . GENERAL TABLE ADDRESS              00006000
TN#CLNGH EQU   *-TN#CPKT           . LENGTH OF CIOCP                    00006100
&SYSECT  CSECT                                                          00006200
         ENDO                                                           00006300
         END                                                            00006400
