&PL      PROC  &P,6                                                     LOA00010
LOADSC   NAME  1                                                        LOA00020
LOAD     NAME  2                                                        LOA00030
LOADR    NAME  3
LOADI    NAME  0                                                        LOA00040
FETCH    NAME  4                                                        LOA00050
FETCHJ   NAME  8                                                        LOA00060
         DO    0                                                        LOA00070
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  LOA00080
*                                                                    *  LOA00090
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  LOA00100
*                                                                    *  LOA00110
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  LOA00120
*                                                                    *  LOA00130
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  LOA00140
         ENDO                                                           LOA00150
.*       LOAD  PHASE-NAME,ALT-LOAD-AD,ERROR-AD,(R OR DA),DA             LOA00160
.*       LOADR PHASE-NAME,ALT-LOAD-AD,ERROR-AD,(R OR DA),DA             LOA00170
.*       LOADI PHASE-NAME,WORK-AREA-AD,WORK-AREA-LENGTH,ERROR-AD,R,DA   LOA00180
.*       LOADSC PHASE-NAME,WORK-AREA-AD,WORK-AREA-LENGTH,ERROR-AD,R
.*       FETCH PHASE-NAME,ALT-ENTRY-PT,(R OR DA),DA                     LOA00190
         LCL   &X,&LNKOV,&ROPT,&ERR,&A,&BB,&FLG,&LEN                    LOA00200
&LNKOV   SET   '&P(2)'=''=0                                             LOA00210
.*                                                                      LOA00220
&X       SET   (('&P(1)'='(1)')++('&P(1)'='1'))=0                       LOA00230
&A       SET   8*&X                                                     LOA00240
&X       SET   ('&P(2)'='(0)')++('&P(2)'='0')                           LOA00250
&BB      SET   ('&P(2)'=''=0)*(4/(1+&X))                                LOA00260
&X       SET   3+(&P(0)<4)+(&P(0)<2)                                    LOA00270
&ROPT    SET   '&P(&X)'='R'                                             LOA00280
&X       SET   3*(&P(0)<4)+(&P(0)<2)                                    LOA00290
&ERR     SET   ('&P(&X)'=''=0)*(&P(0)<4)                                LOA00300
&FLG     SET   128*(&P(0)=8)+64*('&P(6)'='DA')+32+16*(&P(0)>3)+8*(&P(0)CLOA00310
               =3)+4*(&P(0)=2)+2*(&ROPT=0)+&LNKOV                       LOA00320
.*                                                                      LOA00330
         DO    (('&P(6)'='DA')+(&P(0)<2)=2)++((('&P(4)'='DA')++('&P(5)'XLOA00335
               ='DA'))+(&P(0)>1)+(&P(0)<4)=3)++((&P(0)>3)+(('&P(3)'='DAX
               ')++('&P(4)'='DA'))=2)
         DO    &A=8
         PNOTE *,'PARAMETER 1 MUST BE (1)'
         GOTO  .EXIT
         ENDO
         ENDO
         DO    ('&P(2)'='')                                             LOA00340
         DO    &P(0)=1
         GOTO  .ERR2
         ENDO
         DO    &P(0)=0
.ERR2    LABEL
         PNOTE *,'PARAMETER 2 MISSING'                                  LOA00350
&BB      SET   4                        PRETEND P(2) EXITS - PATCHABLE  LOA00360
         ENDO                                                           LOA00365
         ENDO                                                           LOA00370
.*                                                                      LOA00380
         DO    '&P(1)'=''                                               LOA00390
         PNOTE *,'PARAMETER 1 MISSING'                                  LOA00400
         ENDO                                                           LOA00410
&X       SET   '&PL.        '(1,8)                                      LOA00420
&X           DS    0H                                                   LOA00430
.*                                                                      LOA00440
         DO    &P(0)>1                                                  LOA00450
         DO    &BB=0                                                    LOA00460
                   LA    0,&FLG                                         LOA00470
         ENDO                                                           LOA00480
         DO    &BB=4                                                    LOA00490
                   CNOP  0,4                                            LOA00500
                   L     0,*+8+&A                                       LOA00510
         ENDO                                                           LOA00520
         DO    &BB=2                                                    LOA00530
                   SLL   0,8                                            LOA00540
                   IC    0,*+8+&A+1                                     LOA00550
         ENDO                                                           LOA00560
         DO    &A=8                                                     LOA00570
                   BAL   1,*+4+&A+&BB                                   LOA00580
         ENDO                                                           LOA00590
         DO    (&A=0)**(&BB>0)                                          LOA00600
                   B     *+4+&BB                                        LOA00610
         ENDO                                                           LOA00620
         ENDO                                                           LOA00630
.*                                                                      LOA00640
         DO    &P(0)<2                                                  LOA00650
                   CNOP  0,4                                            LOA00660
         DO    &BB=0                                                    LOA00665
         LA    0,&FLG
         ENDO
         DO    &BB=4                                                    LOA00670
                   L     0,*+20+&A                                      LOA00680
         ENDO                                                           LOA00690
         DO    &BB=2                                                    LOA00700
                   SLL   0,8                                            LOA00710
                   IC    0,*+20+&A+1                                    LOA00720
         ENDO                                                           LOA00730
         DO    &A=8                                                     LOA00740
                   LA    1,*+16                                         LOA00750
         ENDO                                                           LOA00760
         DO    &A=0                                                     LOA00770
                   LA    1,0(1)                                         LOA00780
         ENDO                                                           LOA00790
                   O     1,*+8                                          LOA00800
                   B     *+8+&A+&BB                                     LOA00810
         DO    '&P(3)'=''                                               LOA00820
                   DC    AL1(13-1)      NO PARAMETER 3 - 13 ASSUMED     LOA00830
         ENDO                                                           LOA00840
         DO    '&P(3)'=''=0                                             LOA00850
                   DC    AL1(&P(3)-1)                                   LOA00860
         ENDO                                                           LOA00870
                   DC    AL3(0)                                         LOA00880
         ENDO                                                           LOA00890
         DO    &A=8                                                     LOA00900
                   DC    CL8'&P(1)'                                     LOA00910
         ENDO                                                           LOA00920
         DO    &BB=4                                                    LOA00930
                   DC    AL3(&P(2))                                     LOA00940
                   DC    AL1(&FLG)                                      LOA00950
         ENDO                                                           LOA00960
         DO    &BB=2                                                    LOA00970
                   DC    Y(&FLG)                                        LOA00980
         ENDO                                                           LOA00990
.*                                                                      LOA01000
         DO    ((&P(0)>1)*(&P(0)<4)*(('&P(4)'='DA')++('&P(5)'='DA')))++XLOA01005
               ((&P(0)>3)*(('&P(3)'='DA')++('&P(4)'='DA')))
         SVC   91
         GOTO  .DA
         ENDO
         DO    &P(0)=1
         SVC   94
         GOTO  .DA
         ENDO
         DO    &P(0)>0                                                  LOA01010
                   SVC   24                                             LOA01020
         ENDO                                                           LOA01030
         DO    &P(0)=0                                                  LOA01040
                   SVC   67                                             LOA01050
         ENDO                                                           LOA01060
.DA      LABEL                                                          LOA01065
.*                                                                      LOA01070
         DO    &P(0)<4                                                  LOA01080
                   LTR   0,0                                            LOA01090
         DO    &ERR=0                                                   LOA01100
                   BNM   *+6                                            LOA01110
                   SVC   28             CANCEL ON ERROR                 LOA01120
         GOTO  .EXIT                                                    LOA01130
         ENDO                                                           LOA01140
&X       SET   3+(&P(0)<2)                                              LOA01150
         DO    ('&P(&X)'(1,1)<'A')++('&P(&X)'(1,1)>'Z')                 LOA01160
                   BMR   &P(&X)                                         LOA01170
         GOTO  .EXIT                                                    LOA01180
         ENDO                                                           LOA01190
                   BM    &P(&X)                                         LOA01200
         ENDO                                                           LOA01210
.EXIT    LABEL                                                          LOA01220
         END                                                            LOA01230
