MACRO 01000017 &NAME TRSLRCTW &F1=60,&F2=6F,&F3=7A,&F6=3F,&F7=3F,&F8=3F,&F10=2A, -02000017 &F11=4D,&F12=5D,&F13=4B,&F14=6B,&F19=7D,&F22=7E,&F24=61,-03000017 &F26=4E 04000017 LCLA &N,&X 05000017 LCLC &B(15) 06000017 LCLC &ARG 07000017 LCLC &LCNAME 08000017 &LCNAME SETC 'IECTRCTW' 09000017 AIF (T'&NAME EQ 'O').NONAM 10000017 &LCNAME SETC '&NAME' 11000017 .NONAM ANOP 12000017 SPACE 1 13000017 &LCNAME CSECT 14000017 * * TRANSLATION TABLE - ITA2 TO EBCDIC * 15000017 SPACE 1 16000017 .* 17000017 .* MACRO VARIABLE DECLARATIONS. 18000017 .* 19000017 .NONAME ANOP 20000017 &N SETA &N+1 21000017 &ARG SETC '&F1.*&F2.*&F3.*&F6.*&F7.*&F8.*&F10.*&F11.*&F12.*&F13.*&-22000017 F14.*&F19.*&F22.*&F24.*&F26.*'(3*&N,1) 23000017 AIF ('&ARG' EQ '*').NEXT 24000017 &X SETA 1 25000017 AGO .ERR 26000017 .NEXT AIF (&N LT 15).NONAME 27000017 .* 28000017 &N SETA 0 29000017 .LOOP ANOP 30000017 &N SETA &N+1 31000017 &ARG SETC '*&F1&F2&F3&F6&F7&F8&F10&F11&F12&F13&F14&F19&F22&F24&F26'-32000017 (2*&N,2) 33000017 AIF ('&ARG'(1,1) LT 'A' OR '&ARG'(1,1) GT '9').ERR 34000017 AIF ('&ARG'(1,1) GT 'F' AND '&ARG'(1,1) LT '0').ERR 35000017 AIF ('&ARG'(2,1) LT 'A' OR '&ARG'(2,1) GT '9').ERR 36000017 AIF ('&ARG'(2,1) GT 'F' AND '&ARG'(2,1) LT '0').ERR 37000017 &B(&N) SETC '&ARG' 38000017 .OK AIF (&N LT 15).LOOP 39000017 * * 0 1 2 3 4 5 6 7 8 9 A B C D E F * * 40000017 DC X'3FE315D640C8D5D425D3D9C7C9D7C3E5' 0 41000017 DC X'C5E9C4C2E2E8C6E7C1E6D136E4D8D206' 1 42000017 DC X'3FF515F940&B(6)&B(11)&B(10).25&B(9).F4&B(5).F8F0&B(3)&-43000017 B(13)' 2 44000017 DC X'F3&B(15).26&B(2)&B(12).F6&B(4)&B(14)&B(1).F2&B(7).36F7-45000017 F1&B(8).06' 3 46000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' 4 47000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' 5 48000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' 6 49000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' 7 50000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' 8 51000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' 9 52000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' A 53000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' B 54000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' C 55000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' D 56000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' E 57000017 DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F' F 58000017 SPACE 1 59000017 &SYSECT CSECT 60000017 MEXIT 61000017 .* 62000017 .ERR ANOP 63000017 &ARG SETC '**F1 F2 F3 F6 F7 F8 F10F11F12F13F14F19F22F24F26'(3*&N,3) 64000017 AIF (&X NE 0).END 65000017 &B(&N) SETC '3F' 66000017 .* 67000017 MNOTE 4,'*** IHB086 &ARG INVALID KEYWORD, 3F ASSUMED' 68000017 AGO .OK 69000017 .END MNOTE 12,'*** IHB002 INVALID &ARG OPERAND SPECIFIED' 70000017 MEXIT 71000017 MEND 72000017