MACRO 01000020 &NAME CODE &TBL,&IN=(1030,1050,105F,1060,2260,2265,2740,274F,ITA2,Z*02000020 SC3,TTYA,TTYB,TTYC,6BIT,ASCI,EBCD,BC41,EB41,CR41),&BLANK*03000020 =YES 04000020 GBLA &IEDQZE(64) 05000020 GBLB &IEDQZA(64) 06000020 GBLC &IEDQZB 07000020 LCLA &IX,&FOUR,&T,&BIT 08000020 LCLB &NOGO 08500020 LCLC &C,&PARM 09000020 .* VERSION DATED AUGUST 28, 1970 10000020 .* CHANGE ACTIVITY: 10200010 .* A590000 @Y17XAF8 10400010 .* C510000 @Y17XAF8 10600010 SPACE 11000020 &IX SETA 1 12000020 &T SETA 10 13000020 AIF ((&IEDQZA(1) OR &IEDQZA(2)) AND NOT &IEDQZA(5)).CHECK 14000020 MNOTE 12,'*** IHB070 SEQUENCE ERROR - MUST FOLLOW INHDR, INB*15000020 UF, OUTHDR OR OUTBUF MACRO' 16000020 &NOGO SETB 1 17000020 .CHECK AIF ('&TBL' EQ '').ORG 18000020 AIF ('&TBL'(1,1) EQ '(' AND '&TBL'(K'&TBL,1) EQ ')').ORG 19000020 AIF (K'&TBL LE 8).ORG 20000020 MNOTE 12,'*** IHB300 TABLE OPERAND INVALID AS SPECIFIED' 21000020 &NOGO SETB 1 21700020 .ORG AIF (&NOGO).MEND 22400020 AIF (NOT &IEDQZA(3)).SMV 23100020 IEDQVCON (9,12),(IEDQAW,IEDQAQ) 24000020 AGO .PARM 25000020 .SMV IEDQVCON 9,IEDQAW 26000020 .PARM AIF ((&IEDQZA(1) AND NOT &IEDQZA(3)) OR (&IEDQZA(2) AND NOT *27000020 &IEDQZA(4))).TEMP 28000020 AGO .BITS 29000020 .TEMP ANOP 30000020 &BIT SETA 32 31000020 .BITS CNOP 0,4 32000020 AIF ('&NAME' EQ '').NON 33000020 &NAME DS 0H 34000020 .NON AIF ('&TBL' EQ '').SET 35000020 AIF ('&TBL' EQ 'NONE').OPCTL 36000020 &FOUR SETA 4 37000020 AIF ('&TBL'(1,1) NE '(').SET 38000020 &C SETC '&TBL'(2,K'&TBL-2) 39000020 ST &C,*+12 . STORE TBL ADDR IN LIST 40000020 .SET BAL 1,*+(8+&FOUR) . SKIP AROUND PARMLIST 41000020 DC AL1(&IEDQZE(9)),AL1(4+&FOUR),AL1(0) 43000020 AIF ('&TBL' NE '').REG 44000020 DC AL1(128+&BIT) . USE DCB TABLE 45000020 AGO .OUT 46000020 .REG AIF ('&TBL'(1,1) NE '(').USER 47000020 DC AL1(64+&BIT) . NON-STANDARD TBL 48000020 DC A(0) . ADDRESS OF SPECIAL TABLE 49000020 AGO .OUT 50000020 .USER AIF (&IX GT 19).CKFOLD @Y17XAF8 51000010 AIF ('&TBL' EQ '&IN(&IX)').SETT 52000020 &IX SETA &IX+1 53000020 &T SETA &T+1 54000020 AGO .USER 55000020 .SETT DC AL1(&BIT) . STANDARD TBL 56000020 &C SETC 'IEDQ'.'&T' 57000020 DC V(&C) . STANDARD TABLE 58000020 AGO .OUT 59000020 .* CHECK FOR FOLDED EBCD (EBCF) TRANSLATE TABLE @Y17XAF8 59100010 .CKFOLD AIF ('&TBL' NE 'EBCF').USETBL @Y17XAF8 59200010 DC AL1(&BIT) . STANDARD TBL @Y17XAF8 59300010 DC V(IEDN25) . ADDRESS OF TRANS TABLE @Y17XAF8 59400010 AGO .OUT @Y17XAF8 59500010 .USETBL DC AL1(64+&BIT) . NON-STANDARD TBL 60000020 DC A(&TBL) . ADDRESS OF SPECIAL TABLE 61000020 .OUT L 15,IEDUI . CODE ROUTINE 62000020 BALR 14,15 63000020 .OPCTL AIF (NOT &IEDQZA(3)).MEND 64000020 CNOP 0,4 64500020 IEDQSCAN 255,,&BLANK 65000020 AIF (&IEDQZA(24)).MEND 66000020 LTR 15,15 67000020 BM *+16 68000020 LR 1,15 69000020 L 15,IEDMSGS-1 . OPERATOR CONTROL TEST 70000020 L 15,&IEDQZE(12)(,15) 71000020 BALR 14,15 72000020 .MEND SPACE 2 73000020 MEND 74000020