MACRO 05000000 &NAME JINST &OP,®,&ADDR,&COMP 10000000 LCLC &X 15000000 LCLA &I 17000000 .* INNER MACRO. GENERATES MACHINE INSTRUCTIONS ACCORDING 17050000 .* TO MACRO CALL OPERANDS VALUES. 17100000 AIF ('&ADDR'(1,1) NE '(').NXC 20000000 AIF ('&ADDR'(K'&ADDR,1) NE ')').NXC 25000000 &X SETC '&ADDR'(2,K'&ADDR-2) 30000000 AIF ('&X' NE '®').NXB 35000000 AIF (K'&NAME EQ 0).NXA 40000000 &NAME DC 0H'0' 45000000 .NXA MEXIT 50000000 .NXB ANOP 55000000 &NAME LR ®,&X 60000000 MEXIT 65000000 .NXC ANOP 70000000 &I SETA 4 71000000 AIF (K'&ADDR GE 4).NXC1 72000000 &I SETA K'&ADDR 73000000 .NXC1 AIF (K'&COMP NE 0 AND '&ADDR'(1,&I) NE 'FILE').ERR1 74000000 &NAME &OP ®,&ADDR 75000000 MEXIT 80000000 .ERR1 MNOTE 8,'PARAMETER ERROR.' 85000000 MEND 90000000