* /* */ 03050002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 03100002 * /* MACSTAT Y-2 73127/Y02020 */ 03150002 * /* */ 03200002 MACRO 03250002 DICT &A,&B,&C,&D,&E 06000000 LCLC &N,&L,&M 09000000 &L SETC ' ' 12000000 &M SETC '&A'.'&L'(1,8-K'&A) 15000000 &N SETC '&M'(1,2).'&M'(5,2) 18000000 Z&N DC CL4'&N' 21000000 AIF (&B EQ 32).COMB 24000000 DC AL1(&B),AL1(&C),AL1(&D),AL1(&E) 27000000 MEXIT 30000000 .COMB ANOP 33000000 &L SETC 'L''&N' 36000000 DC AL1(&B),AL1(1+&N-ZCS),AL1(&L),AL1(&E) 39000000 MEND 42000000