MACRO 02000019 &NAME ATLAS &PARMADR=,&CHANPRG=R,&CNTPTR=P,&WRITS= 04000019 AIF ('&PARMADR' EQ '').ERROR1 06000019 AIF ('&PARMADR'(1,1) EQ '(').ISAREG 08000019 &NAME L 1,&PARMADR LOAD ADDRESS OF PARM LIST 10000019 AGO .SKIP 12000019 .ISAREG AIF ('&PARMADR(1)' EQ '1').PUTLBL 14000019 &NAME LR 1,&PARMADR(1) LOAD ADDRESS OF PARMLIST 16000019 AGO .SKIP 18000019 .PUTLBL ANOP 20000019 &NAME MVI 0(1),X'00' CLEAR OPTION BYTES 22000019 AGO .HOP 24000019 .SKIP MVI 0(1),X'00' CLEAR OPTION BYTE 26000019 .HOP MVI 4(1),X'00' 28000019 AIF ('&CHANPRG' EQ 'NR').TURNON 30000019 AIF ('&CHANPRG' NE 'R').ERROR2 32000019 AGO .JUMP 34000019 .TURNON ANOP 36000019 OI 0(1),X'80' TURN ON NOT RE-EX BIT 38000019 .JUMP AIF ('&CNTPTR' EQ 'P').SETBIT 40000019 AIF ('&CNTPTR' NE 'F').ERROR3 42000019 AGO .STEP 44000019 .SETBIT ANOP 46000019 OI 4(1),X'40' INDICATE PARTIAL COUNT 48000019 .STEP AIF ('&WRITS' EQ '').ALLOVER 50000019 AIF ('&WRITS' EQ 'YES').YEP 52000019 AIF ('&WRITS' NE 'NO').ERROR4 54000019 OI 4(1),X'10' SET FOR NOT WRITE SPECIAL 56000019 AGO .ALLOVER 58000019 .YEP ANOP 60000019 OI 4(1),X'20' SET FOR WRITE SPECIAL 62000019 .ALLOVER ANOP 64000019 SVC 86 ISSUE ATLAS SVC 66000019 MEXIT 68000019 .ERROR1 MNOTE 12,'IHB001 PARMADR OPERAND REQ''D-NOT SPECIFIED' 70000019 AGO .END 72000019 .ERROR2 MNOTE 12,'IHB002 INVALID CHANPRG OPERAND SPECIFIED-&CHANPRG' 74000019 AGO .END 76000019 .ERROR3 MNOTE 12,'IHB002 INVALID CNTPTR OPERAND SPECIFIED-&CNTPTR' 78000019 AGO .END 80000019 .ERROR4 MNOTE 12,'IHB002 INVALID WRITS OPERAND SPECIFIED-&WRITS' 82000019 .END MEND 84000019