&DL      PROC  &P,0                                                     00000000
XRECSE   NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
RECSEG   NAME  (RS,TK#LRS,TK#DRS)  . RECEIVE SEGMENT           73/10/19 00000200
RECHDR   NAME   (RH,TK#LRH,TK#DRH) . RECEIVE HEADER            73/10/19 00000300
RECEND   NAME   (RE,TK#LRE,TK#DRE) . RECEIVE END               73/10/19 00000400
RECPST   NAME   (RP,TK#LRP,TK#DRP) . RECEIVE POST              73/10/19 00000500
SENSEG   NAME   (SS,TK#LSS,TK#DSS) . SEND SEGEMENT             73/10/19 00000600
SENHDR   NAME   (SH,TK#LSH,TK#DSH) . SEND HEADER               73/10/19 00000700
SENEND   NAME   (SE,TK#LSE,TK#DSE) . SEND END                  73/10/19 00000800
SENPST   NAME   (SP,TK#LSP,TK#DSP) . SEND POST                 73/10/19 00000900
.* .                                                                    00001000
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001100
.* .                                                                  * 00001200
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00001300
.* .                                                                  * 00001400
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00001500
.* .                                                                  * 00001600
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001700
         GBL   &DEL,&SS,&RH,&RE,&RP,&SE,&MPS,&SPOST                     00001800
.* .                                                                    00001900
         DO    '&MPS'=''                                                00002000
&MPS     SET   0                                                        00002100
         ENDO                                                           00002200
         DO    '&SPOST'=''                                              00002300
&SPOST   SET   0                                                        00002400
         ENDO                                                           00002500
         DO    '&SS'=''                                                 00002600
&SS      SET   0                                                        00002700
         ENDO                                                           00002800
         DO    ''='&DEL'                                                00002900
&DEL      SET   0                                                       00003000
         ENDO                                                           00003100
         DO    ''='&RH'                                                 00003200
&RH      SET   0                                                        00003300
         ENDO                                                           00003400
         DO    ''='&RE'                                                 00003500
&RE      SET   0                                                        00003600
         ENDO                                                           00003700
         DO    ''='&RP'                                                 00003800
&RP      SET   0                                                        00003900
         ENDO                                                           00004000
         DO    ''='&SE'                                                 00004100
&SE      SET   0                                                        00004200
         ENDO                                                           00004300
&DEL     SET   &DEL+1                                                   00004400
         DO    '&P(0,1)'='RH'          . DO IF RECEIVE HEADER           00004500
         DO    &RH=1                   . DO IF PREV RECHDR              00004600
         PNOTE 'TK020','RECEIVE HEADER OUT OF SEQUENCE'                 00004700
         GOTO  .A                                                       00004800
         ENDO                                                           00004900
&RH      SET   1                       . RECHDR CALLED                  00005000
         ENDO                                                           00005100
         DO    '&P(0,1)'='RE'          . DO IF RECEIVE END              00005200
         DO    &RE=1                   . DO IF PREV RECEND              00005300
         PNOTE 'TK021','RECEIVE END OUT OF SEQUENCE'                    00005400
         GOTO  .A                                                       00005500
         ENDO                                                           00005600
&RE      SET   1                       . RECEND CALLED                  00005700
         ENDO                                                           00005800
         DO    '&P(0,1)'='RP'          . DO IF RECEIVE POST             00005900
         DO    &RP=1                   . DO IF PREV RECPST              00006000
         PNOTE 'TK022','RECEIVE POST OUT OF SEQUENCE'                   00006100
         GOTO  .A                                                       00006200
         ENDO                                                           00006300
&RP      SET   1                       . RECPST CALLED                  00006400
         ENDO                                                           00006500
         DO    '&P(0,1)'='SE'          . DO IF SEND END                 00006600
         DO    &SE=1                   . DO IF PREV SENEND              00006700
         PNOTE 'TK023','SEND END OUT OF SEQUENCE'                       00006800
         GOTO  .A                                                       00006900
         ENDO                                                           00007000
&SE      SET   1                       . SENEND CALLED                  00007100
         ENDO                                                           00007200
         DO    '&P(0,1)'='SP'          . DO IF SEND POST                00007300
         DO    &SPOST=1                                                 00007400
         DO    &MPS=1                  . DO IF PREV MPSTART             00007500
&MPS     SET   0                       . RESET MPSTART CALLED           00007600
         GOTO  .B                                                       00007700
         ENDO                                                           00007800
         PNOTE 'TK024','MPSTART MISSING'                                00007900
.B       LABEL                                                          00008000
         DO    &RH=1                   . DO IF PREV RECHDR              00008100
&RH      SET   0                       . RESET RECHDR CALLED            00008200
         GOTO  .C                                                       00008300
         ENDO                                                           00008400
         PNOTE 'TK025','RECEIVE HEADER MISSING'                         00008500
.C       LABEL                                                          00008600
         DO    &RE=1                   . DO IF PREV RECEND              00008700
&RE      SET   0                       . RESET RECEND CALLED            00008800
         GOTO  .D                                                       00008900
         ENDO                                                           00009000
         PNOTE 'TK026','RECEIVE END MISSING'                            00009100
.D       LABEL                                                          00009200
         DO    &RP=1                   . DO IF PREV RECPST              00009300
&RP      SET   0                       . RESET RECPST CALLED            00009400
         GOTO  .E                                                       00009500
         ENDO                                                           00009600
         PNOTE 'TK027','RECEIVE POST MISSING'                           00009700
.E       LABEL                                                          00009800
         DO    &SE=1                   . DO IF PREV SENEND              00009900
&SE      SET   0                       . RESET SENEND CALLED            00010000
         GOTO  .F                                                       00010100
         ENDO                                                           00010200
         PNOTE 'TK028','SEND END MISSING'                               00010300
.F       LABEL                                                          00010400
&SPOST   SET   0                                                        00010500
         GOTO  .G                                                       00010600
         ENDO                                                           00010700
         PNOTE 'TK029','SEND POST OUT OF SEQUENCE'                      00010800
.G       LABEL                                                          00010900
         ENDO                                                           00011000
TK#DEL&DEL EQU *                                                        00011100
         DO    1-(''='&DL')                                             00011200
&DL      EQU   *                                                        00011300
         ENDO                                                           00011400
         ORG   TK#MPS&SS+(&P(0,3)-TK#DMPPS)                             00011500
* ORG TO MPSTART DELIMITER TABLE PLUS DISPLACEMENT                      00011600
         DC    A(TK#DEL&DEL)           . ADDR OF THIS DELIMITER MACRO   00011700
         ORG   TK#DEL&DEL              . ORG BACK                       00011800
         DC    Y(&P(0,2)-TK#LMPPS)                                      00011900
         DC    Y(TK#DE&DEL-TK#DEL&DEL)                                  00012000
TK#DE&DEL EQU  *                                                        00012100
.A       LABEL                                                          00012200
         END                                                            00012300
