MACRO                                                          00020000
         SGIEF012                                                       00040000
.* CHANGE LEVEL = 07/12/74                                     @Z30ANSF 00045003
.*                12/03/76                                     @ZA15758 00047003
.*C000800                                                      @YM08650 00050002
         GBLA  &ADDRESA,&ADDRESS(2056)                         @ZA15758 00055003
         GBLA  &TYPLIST(188),&HLFLIST(188),&NUMBER             @YM08650 00080002
         LCLA  &DTVAL(3),&LOOKUPT,&LOOK2,&A                             00100000
         ACTR  9000                                            @ZA15758 00110003
         DC    F'&SYSLIST(2)'                                           00120000
         AIF   (&SYSLIST(1) EQ 0).ON1                                   00140000
&A   SETA   &SYSLIST(1)                                                 00160000
         DC    AL2(&TYPLIST(&A))                                        00180000
         DC    AL2(&HLFLIST(&A))                                        00200000
         AGO   .STRING2                                                 00220000
.ON1     ANOP                                                           00240000
&NUMBER  SETA  &NUMBER+1                                                00260000
&LOOKUPT SETA  &NUMBER                                                  00280000
         AIF   (&ADDRESS(1) EQ 0).STRING                                00300000
.ON2  AIF   (&A  EQ  &ADDRESA).ON35                                     00320000
&A   SETA   &A+1                                                        00340000
&DTVAL(3) SETA &HLFLIST(&ADDRESS(&A))/X'100'*X'100'                     00360000
         AIF   (&DTVAL(1) NE 0 AND &DTVAL(1) NE &DTVAL(3)).ON3          00380000
&DTVAL(1) SETA &DTVAL(3)                                                00400000
         AGO   .ON2                                                     00420000
.ON3 AIF (&DTVAL(2) NE 0 AND &DTVAL(2) NE &DTVAL(3)).ON4                00440000
&DTVAL(2) SETA &DTVAL(3)                                                00460000
         AGO   .ON2                                                     00480000
.ON35    ANOP                                                           00500000
&DTVAL(3)  SETA  0                                                      00520000
.ON4     ANOP                                                           00540000
&LOOK2   SETA  &DTVAL(1)+&DTVAL(2)+&DTVAL(3)                            00560000
.STRING  ANOP                                                           00580000
         DC    AL2(&LOOKUPT)                                            00600000
         DC    AL2(&LOOK2)                                              00620000
.STRING2 ANOP                                                           00640000
         DC    X'&SYSLIST(3)'                                           00660000
         AIF   (T'&SYSLIST(4) EQ 'O').ON5                               00665018
         DC    X'&SYSLIST(4)'                                           00670018
         AIF   (T'&SYSLIST(5) EQ 'O').ON5                      @Z30ANSF 00671003
         DC    X'&SYSLIST(5)'                                  @Z30ANSF 00672003
.ON5     ANOP                                                           00675018
         MEND                                                           00680000