MACRO 00700009 &NM IEDQJN &M,&CN,&CL,&UP,&IN,&CO,&TG,&BL,&X,&OP=(EQ,=,8,NE,ï,7,GTX01400009 ,>,2,GE,è,10,LT,<,4,LE,Ð,12),&PASS= @YM07794 02100000 .*A-000000-999999 @XA09783 02800009 .*A049000 @YM07267 03000000 .*C021000,049000,084000,168000,294000 @YM07267 03200000 .*C021000,294000 03300000 .*C504000 @OZ25788 03301082 .*A504001-504011 @OZ25788 03302082 .* DUMMY APAR @OZ27328 03302182 .*A666600,725000 @OZ41631 03302282 .* VERSION DATED NOVEMBER 30 1976 @YM07695 03500000 GBLB &IEDQZA(64),&IEDNO @YM07267 04200000 GBLA &IEDQZE(64),&IEDQZD 04900009 GBLC &IEDQSV(8) @YM07267 05200000 LCLB &NOGO 05600009 LCLA &OPI,&CO3,&IND,&FLG,&CIN,&SFL,&LEN,&BIT @YM07267 06300000 LCLC &SC 07000009 &LEN SETA 4 07700009 AIF ('&X' EQ 'P').CMSK POLL STOP @YM0XXXX 08000000 AIF ('&X' NE 'V').CKSB VARY OFF CALL @YM07267 08400000 &FLG SETA 8 INDICATE VARYOFF 09100000 AIF ('&TG' EQ 'TERM' OR '&TG' EQ 'LINE').TGOK 09800009 MNOTE 4,'*** IHB086 TARGET= INVALID KEYWORD, TERM ASSUMED' 10500009 .TGOK AIF ('&TG' NE 'LINE').CKSB DEFAULT = TERM 11200009 &FLG SETA &FLG+16 11900009 .CKSB AIF (&IEDQZA(5)).CMSK IN/OUTMSG 12600009 &IND SETA 1 NO MASK TO GENERATE 13300009 AIF ('&M' EQ '').CCN CHECK COUNT= 14000009 IEDQCHAR 8,&M 14700009 AIF (NOT &IEDQZA(24) AND &IEDQZD LE 8).MNMO 15400009 MNOTE 12,'*** IHB300 CHARACTER OPERAND INVALID AS SPECIFIED' 16100009 &IEDNO SETB 1 @YM07267 16800000 AGO .CCN 17500009 .MNMO IEDQSCAN &IEDQZD,&M,&BL 18200009 AIF (&IEDQZA(24)).CCN CHECK COUNT= 18900009 LTR 15,15 19600009 &SC SETC 'IEDM'.'&SYSNDX' 20300009 BNP &SC 21000009 L 1,IEDADBUF 21700009 STH 15,24(,1) 22400009 &IND SETA 1 23100009 AGO .CCN 23800009 .CMSK AIF ('&M' EQ '').SNOM SET NO MASK 24500009 IEDQMASK &M,5 25200009 AIF (&IEDQZA(24)).MER MASK ERROR 25900009 AIF ('&M'(1,1) NE 'X').CKG 26600009 AIF ('&M'(2,1) EQ 'L' AND '&M'(3,1) NE '5').MER 27300009 AIF ('&M'(2,1) EQ 'L' OR K'&M EQ 13).CKG 28000009 .MER MNOTE 12,'*** IHB300 MASK OPERAND INVALID AS SPECIFIED' 28700009 &IEDNO SETB 1 @YM07267 29400000 .CKG AIF ('&M' NE '0' AND '&M' NE 'X''0000000000''' AND '&M' NE 'X30100009 XL5''0000000000''').MASK 30800009 .SNOM ANOP 31500009 &IND SETA 1 NO MASK TO GENERATE 32200009 AGO .CONT CHECK CONNECT 32900009 .MASK ANOP 33600009 &LEN SETA &LEN+4 34300009 .CONT AIF ('&CN' EQ 'OR').CCN CHECK COUNT 35000009 AIF ('&CN' NE 'AND').CNND @YM07267 35700000 &BIT SETA &BIT+1 @YM07267 36400000 AGO .CCN 37100009 .CNND AIF ('&X' NE 'R').CNMT IF NOT FROM IEDRESP @YM07267 37200000 AIF ('&CN' NE 'NAND').CNMT CONNECT NE NAND @YM07267 37300000 &BIT SETA &BIT+2 SET NAND FLAG @YM07267 37400000 AGO .CCN @YM07267 37500000 .CNMT MNOTE 4,'*** IHB086 CONNECT= INVALID KEYWORD, OR ASSUMED' 37800009 .CCN AIF ('&CO' EQ '').CINV 38500009 IEDQVCON 59,IEDQBJ 39200009 &CIN SETA &IEDQZE(59) 39900009 &FLG SETA &FLG+128 40600009 &LEN SETA &LEN+4 41300009 AIF ('&CO(1)' NE '').COOK 42000009 MNOTE 12,'*** IHB300 COUNT OPERAND INVALID AS SPECIFIED' 42700009 &IEDNO SETB 1 @YM07267 43400000 .COOK AIF ('&CO(2)' EQ '').COEQ 44100009 .OPL AIF ('&CO(2)' EQ '&OP(&OPI+1)' OR '&CO(2)' EQ '&OP(&OPI+2)')X44800009 .COEQ 45500009 &OPI SETA &OPI+3 46200009 AIF (&OPI LT 16).OPL 46900009 &OPI SETA 0 47600009 MNOTE 4,'*** IHB086 COUNT OPERATOR INVALID KEYWORD, EQ ASSUMX48300009 ED' 49000009 .COEQ AIF ('&CO(3)' EQ '').CO3Z 49700009 AIF ('&CO(3)'(1,1) GE '0' AND '&CO(3)'(1,1) LE '9').DEC 50400082 .* @OZ25788 50400182 AIF ('&CO(3)'(1,1) EQ 'X' AND '&CO(3)'(K'&CO(3),1) EQ '''').X50400282 HEX @OZ25788 50400382 AGO .NOSET @OZ25788 50400482 .DEC IEDQMASK &CO(3),8 @OZ25788 50400582 AGO .CKERR @OZ25788 50400682 .HEX IEDQMASK &CO(3),3 @OZ25788 50400782 .CKERR AIF (NOT &IEDQZA(24)).SETCO3 @OZ25788 50400882 MNOTE 12,'*** IHB300 COUNT OPERAND INVALID AS SPECIFIED' @OZ25788 50400982 &NOGO SETB 1 @OZ25788 50401082 .SETCO3 ANOP @OZ25788 50401182 &CO3 SETA &CO(3) 51100009 .CO3Z ANOP 51800009 &SFL SETA &SFL+128 52500009 &LEN SETA &LEN+4 53200009 .NOSET AIF ('&UP' EQ 'NO').CCLR CHECK CLEAR= 53900009 &SFL SETA &SFL+32 54600009 AIF ('&UP' EQ 'SUB' OR '&UP' EQ 'ADD').CUOK 55300009 MNOTE 4,'*** IHB086 UPDATE= INVALID KEYWORD, ADD ASSUMED' 56000009 .CUOK AIF ('&UP' NE 'ADD').CCLR CHECK CLEAR 56700009 &SFL SETA &SFL+16 57400009 .CCLR AIF ('&CL' EQ 'YES' OR '&CL' EQ 'NO').CLOK 58100009 MNOTE 4,'*** IHB086 CLEAR= INVALID KEYWORD, YES ASSUMED' 58800009 .CLOK AIF ('&CL' NE 'NO').CINV CHECK INTERVAL 59500009 &SFL SETA &SFL+64 60200009 .CINV AIF ('&IN' EQ '').CKGO 60900009 AIF ('&IN' GE '1' AND '&IN' LE '43199').CIOK 61600009 MNOTE 12,'*** IHB300 INTVL OPERAND INVALID AS SPECIFIED' 62300009 &IEDNO SETB 1 @YM07267 63000000 .CIOK ANOP 63700009 &FLG SETA &FLG+32 64400009 &LEN SETA &LEN+2+(2*&IEDQZA(5)) 65100009 .CKGO AIF (&IEDNO).END @YM07267 65800000 &NM DS 0H 66500009 AIF ('&X' NE 'R').GOBI IF NOT FROM IEDRESP @YM07267 66580000 &LEN SETA &LEN+4+4*&PASS(5) SETUP LENGTH FOR RS @YM07267 66660000 AIF (N'&PASS LE 5).REGLEN @OZ41631 66680082 &LEN SETA &LEN+4*&PASS(9) @OZ41631 66700082 .REGLEN ANOP @OZ41631 66720082 AIF (&IEDQZA(5)).RNHD NOT INHDR/INBUF @YM07267 66740000 BAL 1,*+&LEN+4 @YM07267 66820000 .RNHD DC AL1(&IEDQZE(48)+&IND,&LEN+&BIT,&PASS(1)) @YM07267 66900000 &IEDQSV(6) SETC '&SC' PASS BACT TO IEDRESP @YM07267 66980000 AGO .RCMSK CHECK MASK @YM07267 67060000 .GOBI IEDQVCON 58,IEDQBI 67200000 &IND SETA &IND+&IEDQZE(58) 67900009 AIF (&IEDQZA(5)).NHD 68600009 CNOP 0,4 69300009 BAL 1,*+&LEN+4 70000009 .NHD DC AL1(&IND,&LEN+&BIT,&FLG) @YM07267 70700000 .RCMSK AIF ((&IND/2)*2 EQ &IND).MSKSP @YM07267 71400000 DC AL1(0) 72100009 .CNT AIF ('&X' NE 'R').RCNT NOT FROM IEDRESP @YM07267 72300000 DC AL1(&PASS(2),&FLG+&PASS(4),&PASS(3),15) @YM07267 72500000 AIF (N'&PASS LE 5).NOSNAV @OZ41631 72550082 DC AL1(&PASS(6),4,&PASS(7),15) 72600082 .NOSNAV ANOP @OZ41631 72650082 .RCNT AIF (&FLG LT 128).CNV @YM07267 72800000 &FLG SETA &FLG-128 73500009 &SFL SETA &SFL+&OP(&OPI+3) 74200009 DC AL1(&CIN,&SFL,&CO(1)) 74900009 AIF (&SFL LT 127).NIN OPTION FIELD = COUNT(3) 75600009 DC AL1(0),AL4(&CO3) . @YM09032 76300000 AGO .CNV 77000009 .MSKSP AIF ('&M'(1,1) EQ 'X').XM 77700009 DC FL5'&M' 78400009 AGO .CNT 79100009 .XM DC &M 79800009 AGO .CNT 80500009 .NIN DC AL1(&CO(3)) 81200009 .CNV AIF (&FLG LT 32).NOINN 81900009 AIF (NOT &IEDQZA(5)).NOZZ 82600009 DC AL2(0) 83300009 .NOZZ DC AL2(&IN) 84000009 .NOINN AIF ('&X' EQ 'R' OR &IEDQZA(5)).END @YM07695 84700000 L 15,IEDUI 85400009 BALR 14,15 86100009 AIF ('&SC' EQ '').END 86800009 &SC EQU * 87500009 .END SPACE 2 88200009 MEND 88900009