&DL      PROC  &P,1                                                     00000000
XMPSTART NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
MPSTART  NAME  0    . MPPS TABLE GENERATOR                              00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &MPS,&SS,&SPOST                                          00001100
.* .                                                                    00001200
         TK#LMPPS                                                       00001300
         TK#DMPPS                                                       00001400
         DO    ''='&SS'                                                 00001500
&SS      SET   0                                                        00001600
         ENDO                                                           00001700
         DO    ''='&MPS'                                                00001800
&MPS     SET   0                                                        00001900
         ENDO                                                           00002000
&SS      SET   &SS+1                                                    00002100
         DO    &SS=1                                                    00002200
*                                                                       00002300
*                                                                       00002400
* FOLLOWING TAGS MAY BE USED BY USER IN HIS CCA MPPS GENERATION.        00002500
* EACH TAG DESCRIBES AN ERROR CONDITION - BOTH SOFTWARE & HARDWARE.     00002600
* DEPENDING ON THE TAGS USED, MPPS ERROR MACROS MAY OR MAY NOT BE       00002700
* EXECUTED.                                                             00002800
*                                                                       00002900
*                                                                       00003000
TN#MNDST EQU   X'8000'             . NO DESTINATION SPECIFIED           00003100
TN#MBDST EQU   X'4000'             . INVALID DESTINATION                00003200
TN#MNUOC EQU   X'2000'             . NO USER OWN CODE ADDR FOR TRANSFER 00003300
TN#MEOH  EQU   X'1000'             . END OF HDR REACHED DURING SCAN     00003400
TN#MBINS EQU   X'0800'             . NOT ENOUGH RESERVED FOR INSERT     00003500
TN#MBSOR EQU   X'0400'             . BAD SOURCE - BUT VALID TERM NAME   00003600
TN#MNSOR EQU   X'0200'             . BAD SOURCE - INVALID TERM NAME     00003700
TN#MBSQI EQU   X'0100'             . BAD SEQUENCE IN COUNT              00003800
TN#MNOBF EQU   X'0080'             . NO BUFFER AVAILABLE                00003900
TN#MCERR EQU   X'0040'             . CHANNEL ERROR                      00004000
TN#MLERR EQU   X'0020'             . LINE ERROR                         00004100
TN#MTERR EQU   X'0010'             . TERM ERROR                         00004200
TN#MBID  EQU   X'0008'             . JOURNAL RECORD STAGING ERROR       00004300
TN#MTOUT EQU   X'0004'             . JOURNAL STAGE AREA THRESHOLD MET   00004400
TN#MNOSI EQU   X'0002'             . SOURCE NOT IN DESTINATION TABLE    00004500
TN#MNSQI EQU   TN#MNOSI                                                 00004510
TN#MNOSO EQU   X'0001'             . DEST NAME NOT IN DESTINATION TABLE 00004600
TN#MNSQO EQU   TN#MNOSO                                                 00004610
         ENDO                                                           00004700
&SPOST   SET   1                                                        00004800
         DO    &MPS=1                  . DO IF PREVIOUS MPSTART         00004900
         PNOTE 'TK015','MPSTART OUT OF SEQUENCE'                        00005000
         GOTO  .A                                                       00005100
         ENDO                                                           00005200
&MPS     SET   1                                                        00005300
         DO    ''='&DL'                . DO IF NO LABEL ON CALL LINE    00005400
         PNOTE 'TK016','LABLE MISSING'                                  00005500
         GOTO  .A                                                       00005600
         ENDO                                                           00005700
&DL      EQU   *                                                        00005800
         ENTRY &DL                                                      00005900
TK#MPS&SS EQU  *                       . DELIMITER ADDR TABLE           00006000
         DC    A(0)                    . ADDR OF RECSEG                 00006100
         DC    A(0)                    . ADDR OF RECHDR                 00006200
         DC    A(0)                    . ADDR OF RECEND                 00006300
         DC    A(0)                    . ADDR OF RECPST                 00006400
         DC    A(0)                    . ADDR OF SENSEG                 00006500
         DC    A(0)                    . ADDR OF SENHDR                 00006600
         DC    A(0)                    . ADDR OF SENEND                 00006700
         DC    A(0)                    . ADDR OF SENPST                 00006800
* ANY EXTRA WORKAREA FOR THIS MPPS GOES HERE                            00006900
.A       LABEL                                                          00007000
         END                                                            00007100
