MACRO 03000010 &NAME MRCHECK &OPFL 06000010 GBLA &IEDQZE(64) 09000010 GBLB &IEDQZA(64) 12000010 LCLB &NOGO 15000010 .* VERSION DATED JUNE 28,1973 18000010 SPACE 21000010 AIF (NOT &IEDQZA(9)).SCHK 24000010 MNOTE 12,'*** IHB312 MUST FOLLOW STARTMH MACRO WITH TSOMH=NO' 27000010 AGO .NOMORE 30000010 .SCHK AIF (&IEDQZA(1) OR &IEDQZA(5)).TCHK 33000010 MNOTE 12,'*** IHB070 SEQUENCE ERROR-MUST FOLLOW INMSG IF SPEC*36000010 IFIED' 39000010 &NOGO SETB 1 42000010 .TCHK AIF ('&OPFL' EQ '').VCON 45000010 .OPERR MNOTE 12,'*** IHB300 OPTION FIELD OPERAND INVALID AS SPECIFI*48000010 ED' 51000010 &NOGO SETB 1 54000010 .VCON AIF (&NOGO).NOMORE 57000010 &IEDQZA(45) SETB 1 60000010 IEDQVCON (43),(IEDQB7) 63000010 DC AL1(&IEDQZE(43)+1),AL1(4),AL1(0),AL1(0) 66000010 .NOMORE SPACE 2 69000010 MEND 72000010