&PL      PROC  &P,5                                                     GET00010
GETCS    NAME                                                           GET00020
         DO    0                                                        GET00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  GET00040
*                                                                    *  GET00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  GET00060
*                                                                    *  GET00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  GET00080
*                                                                    *  GET00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  GET00100
         ENDO                                                           GET00110
.*       GETCS INPUT-AREA,NO-RECS,ERRAD-AD,96(D)                        GET00120
         LCL   &X,&AA,&BB,&CC,&DD                                       GET00130
         DO    '&P(1)'=''                                               GET00140
         PNOTE *,'INPUT-AREA NOT SPECIFIED'                             GET00150
         ENDO                                                           GET00160
&X       SET   '&PL.        '(1,8)                                      GET00170
&X           DS    0H                                                   GET00180
&X       SET   ('&P(4)'='D')+2*('&P(5)'='P')+4*('&P(4)'='96')           GET00190
.*                                                                      GET00200
.***     SET UP SET SYMBOLS TO SPECIFY WHAT CODE TO GENERATE.           GET00210
.*             THIS IS SO OPERANDS IN FORMAT *+N CAN BE GENERATED.      GET00220
.*                                                                      GET00230
&CC      SET   ('&P(1)'='(1)')++('&P(1)'='1')                           GET00240
&CC      SET   4*(&CC=0)                                                GET00250
&AA      SET   ('&P(2)'='(0)')++('&P(2)'='0')                           GET00260
&DD      SET   2*&AA*(&X>0)                                             GET00270
&AA      SET   4*((&AA**(&X=0))=0)                                      GET00280
&BB      SET   4*((&CC+&DD)>0)                                          GET00290
.*                                                                      GET00300
.*                                                                      GET00310
         DO    &CC>0                                                    GET00320
                   CNOP  0,4                                            GET00330
                   L     1,*+4+&AA+&BB                                  GET00340
         ENDO                                                           GET00350
.*                                                                      GET00360
         DO    &AA>0                                                    GET00370
         DO    '&P(2)'=''                                               GET00380
                   LA    0,&X*256+1                                     GET00390
         GOTO  .GETCS1                                                  GET00400
         ENDO                                                           GET00410
         DO    &DD>0                                                    GET00420
                   AH    0,*+4+&BB+&CC                                  GET00430
         GOTO  .GETCS1                                                  GET00440
         ENDO                                                           GET00450
                   LA    0,&X*256+&P(2)                                 GET00460
         ENDO                                                           GET00470
.GETCS1  LABEL                                                          GET00480
.*                                                                      GET00490
         DO    &BB>0                                                    GET00500
                   B     *+4+&CC+&DD                                    GET00510
         ENDO                                                           GET00520
.*                                                                      GET00530
         DO    &CC>0                                                    GET00540
                   DC    A(&P(1))                                       GET00550
         ENDO                                                           GET00560
.*                                                                      GET00570
         DO    &DD>0                                                    GET00580
                   DC    Y(&X*256)      FLAGS                           GET00590
         ENDO                                                           GET00600
                   SVC   30                                             GET00610
                   LTR   0,0                                            GET00620
         DO    '&P(3)'=''                                               GET00630
                   BNM   *+6                                            GET00640
                   SVC   28             CANCEL ON ERROR                 GET00650
         GOTO  .EXIT                                                    GET00660
         ENDO                                                           GET00670
         DO    ('&P(3)'(1,1)<'A')++('&P(3)'(1,1)>'Z')                   GET00680
                   BMR   &P(3)                                          GET00690
         GOTO  .EXIT                                                    GET00700
         ENDO                                                           GET00710
                   BM    &P(3)                                          GET00720
.EXIT    LABEL                                                          GET00730
         END                                                            GET00740
