MACRO 00700010 &NAME IEDHALT &MASK,&CONNECT=,&CHARS=,&FLUSH=NO @Y17XAMG 01400010 .*A-000000-999999 @X31X8M0 01500010 .* CHANGE ACTIVITY AS FOLLOWS: 01600010 .*A014000,742000 @Z30X8MJ 01700010 .*C063000,672000 @Z30X8MJ 01800010 .*A175000,322000,350000,420000 @Y17XAMG 01900010 .*C049000 @Y17XAMG 02000010 GBLA &IEDQZD,&IEDQZK,&IEDQZE(64) 02100010 GBLB &IEDQZA(64) 02800010 LCLA &LEN 03500010 LCLB &NOGO,&IN,&CH,&O 04200010 LCLB &CON,&BIT,&PRMFL,&PRMST,&PRMOP @Y17XAMG 04900010 LCLC &TEMP,&C 05600010 .* VERSION DATED AUGUST 6, 1974 06300010 SPACE 07000010 &C SETC '&SYSECT' 07700010 &LEN SETA 4 @Y17XAMG 08400010 AIF (&IEDQZA(46)).SEQ1 09100010 .ERR1 ANOP 09800010 MNOTE 12,'*** IHB070 SEQUENCE ERROR-MUST FOLLOW STARTMH MACR*10500010 O' 11200010 &NOGO SETB 1 11900010 .SEQ1 ANOP 12600010 AIF (&IEDQZA(3) OR &IEDQZA(5)).SEQ2 13300010 .ERR2 ANOP 14000010 MNOTE 12,'*** IHB070 SEQUENCE ERROR-MUST FOLLOW INHDR,INMSG,*14700010 OR OUTMSG MACRO' 15400010 AGO .MEND 16100010 .SEQ2 ANOP 16800010 AIF (&IEDQZA(3) AND NOT &IEDQZA(1)).ERR2 17500010 AIF ('&FLUSH' EQ '').FLOK @Y17XAMG 17580010 AIF ('&FLUSH' NE 'YES').FLNO @Y17XAMG 17660010 &PRMFL SETB 1 SET FLUSH FLAG @Y17XAMG 17740010 AGO .FLOK @Y17XAMG 17820010 .FLNO AIF ('&FLUSH' EQ 'NO').FLOK @Y17XAMG 17900010 &TEMP SETC 'FLUSH' @Y17XAMG 17980010 AGO .ERR3 GO SEND MNOTE AND EXIT @Y17XAMG 18060010 .FLOK AIF (&IEDQZA(5)).MSG @Y17XAMG 18200010 .HDR ANOP 18900010 AIF ('&MASK' NE '' OR '&CONNECT' NE '').ERR4 19600010 AIF ('&CHARS' EQ '').UNCOND 20300010 &TEMP SETC 'CHARS' 21000010 IEDQCHAR 8,&CHARS 21700010 AIF (NOT &IEDQZA(24)).CHARS 22400010 .ERR3 ANOP 23100010 MNOTE 12,'*** IHB300 &TEMP OPERAND INVALID AS SPECIFIED' 23800010 AGO .MEND 24500010 .ERR4 ANOP 25200010 MNOTE 12,'*** IHB066 INCONSISTENT OPERANDS' 25900010 AGO .MEND 26600010 .CHARS ANOP 27300010 AIF ('&CHARS'(K'&CHARS,1) NE '''').OPT 28000010 AIF ('&CHARS'(1,1) NE 'C' AND '&CHARS'(1,1) NE 'X').ERR3 28700010 AIF ('&CHARS'(2,1) EQ '''').CHARSOK 29400010 AIF ('&CHARS'(2,1) NE 'L' OR '&CHARS'(4,1) NE '''').ERR3 30100010 .CHARSOK ANOP 30800010 &CH SETB 1 31500010 &LEN SETA &LEN+4 @Y17XAMG 32200010 &PRMST SETB 1 INDICATE CHARACTER STRING ADDRESS IN PARMLIST @Y17XAMG 32500010 AGO .UNCOND 32900010 .OPT ANOP 33600010 &O SETB 1 34300010 &LEN SETA &LEN+2 35000010 &PRMOP SETB 1 INDICATE CHARACTER STRING IN OPTION FIELD @Y17XAMG 35300010 CNOP 2,4 @Y17XAMG 35700010 AGO .SEQ3 36400010 .UNCOND ANOP 37100010 CNOP 0,4 @Y17XAMG 37800010 .SEQ3 ANOP 38500010 &NAME DS 0H 39200010 IEDQVCON 61,IEDIAH 39900010 BAL 1,*+&LEN+4 40600010 DC AL1(&IEDQZE(61)) 41300010 DC AL1(&LEN) 42000010 DC BL1'&PRMFL&PRMST&PRMOP.00000' OPTION BYTE @Y17XAMG 42200010 DC XL1'0' @Y17XAMG 42400010 AIF (NOT &O).NOTO 42700010 IEDQVCON 31,IEDQAE 43400010 DC AL1(&IEDQZE(31)) 44100010 DC AL1(&CHARS) 44800010 AGO .NOTCH 45500010 .NOTO ANOP 46200010 AIF (NOT &CH).NOTCH 46900010 DC AL1(&IEDQZD) 49700010 DC AL3(IEDQMISC+&IEDQZK) 51100010 IEDQMISC CSECT 51800010 DC &CHARS 52500010 &C CSECT 53200010 &IEDQZK SETA &IEDQZK+&IEDQZD 53900010 .NOTCH ANOP 54600010 L 15,IEDUI 55300010 BALR 14,15 56000010 AGO .MEND 56700010 .MSG ANOP 57400010 AIF ('&CHARS' NE '').ERR4 58100010 AIF ('&MASK' EQ '').MSKOK 58800010 .MSK1 ANOP 60900010 IEDQMASK &MASK,5 61600010 AIF (&IEDQZA(24)).ERR5 62300010 AIF ('&MASK'(1,1) NE 'X').MSKOK 63000010 AIF ('&MASK'(2,1) EQ 'L' AND '&MASK'(3,1) NE '5').ERR5 63700010 AIF ('&MASK'(2,1) EQ 'L' AND K'&MASK GT 5 AND K'&MASK LT 16)-64400010 .MSKOK 64700010 AIF ('&MASK'(2,1) EQ '''' AND K'&MASK EQ 13).MSKOK 65100010 .ERR5 ANOP 65800010 MNOTE 12,'*** IHB300 MASK OPERAND INVALID AS SPECIFIED' 66500010 &NOGO SETB 1 @Z30X8MJ 67200010 .MSKOK ANOP 67900010 &CON SETB 1 68600010 AIF ('&CONNECT' EQ '' OR '&CONNECT' EQ 'AND' OR '&CONNECT' *69300010 EQ 'OR').CON1 70000010 MNOTE 12,'*** IHB300 CONNECT OPERAND INVALID AS SPECIFIED' 70700010 AGO .MEND 71400010 .CON1 ANOP 72100010 AIF (&NOGO).MEND 72400010 AIF ('&CONNECT' EQ 'AND').CON2 72800010 &CON SETB 0 73500010 .CON2 ANOP 74200010 IEDQVCON 61,IEDIAH 74900010 AIF ('&MASK' NE '0' AND '&MASK' NE 'X''0000000000''' AND '&M*75600010 ASK' NE 'XL5''0000000000''' AND '&MASK' NE '').GEN1 76300010 &BIT SETB 1 77000010 .GEN1 ANOP 77700010 DC AL1(&IEDQZE(61)+&BIT) 78400010 DC AL1(8+&CON) 79100010 DC BL1'&PRMFL&PRMST&PRMOP.00000' OPTION BYTE @Y17XAMG 79800010 AIF (&BIT).GEN2 80500010 AIF ('&MASK'(1,1) EQ 'X').GEN3 81200010 DC FL5'&MASK' . ERROR MASK 81900010 AGO .MEND 82600010 .GEN2 ANOP 83300010 DC XL5'00' . ERROR MASK 84000010 AGO .MEND 84700010 .GEN3 ANOP 85400010 DC &MASK . ERROR MASK 86100010 .MEND ANOP 86800010 SPACE 87500010 MEND 88200010