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