MACRO 03000019 STEND 06000019 GBLA &IECNDGP(100) 09000019 GBLA &IECCNTR 10000021 .* IECCNTR VALUE OF ID OPERAND OF LAST AS MACRO 11000021 GBLB &IECSW(9),&IECSEQ(10) 21094 12000021 .* IECSW(8) DETERMINS WHETHER TO GEN END OF LIST BYTE 15000019 .* ON INDICATES END OF LIST BYTE GENERATED BY PRECEDING 18000019 .* ASLIST OR DEULIST MACRO 21000019 .* IECSEQ(6) SEQUENCE INDICATOR 24000019 GBLB &IECIN 25000021 .* IECIN INDICATES INQUIRY DISPLAY IN SYSTEM 26000021 &IECSEQ(6) SETB 1 27000019 AIF (&IECSEQ(1) AND &IECSEQ(2) AND &IECSEQ(4) X30000021 AND &IECSEQ(6)).SEQOK 33000021 MNOTE 12,'MACRO SEQUENCE ERROR' 36000019 MEXIT 39000019 .SEQOK ANOP 42000019 AIF (&IECSW(8)).NODC 45000019 DC YL1(&IECNDGP(4)) END OF LIST BYTE FOR PRECEDING TRNS 48000019 .NODC ANOP 51000019 AIF (NOT &IECIN).NOIN 51300021 SPACE 1 51600021 * INQUIRY DISPLAY CONTROL TABLE 51900021 SPACE 1 52200021 IECINDS DC &IECCNTR.X'00' INQUIRY DISPLAY TABLE 52500021 &IECNDGP(1) SETA &IECNDGP(1)+&IECCNTR 52800021 .NOIN ANOP 53100021 AIF (&IECNDGP(1) LE 1280 AND NOT &IECSW(1)).NBYTOK 54000019 AIF (&IECNDGP(1) LE 4096 AND &IECSW(1)).NBYTOK 57000019 MNOTE 12,'NUMBER OF BYTES=&IECNDGP(1) EXCEEDS ALLOWED TABLE X60000019 SIZE,ASSEMBLY INVALID' 63000019 .NBYTOK ANOP 66000019 MNOTE *,'NUMBER OF BYTES IN USER TABLES=&IECNDGP(1)' 69000019 MNOTE 2,'WARNING - THERE MUST NOT BE ANY OTHER MACROS OR X72000019 CODE INCLUDED IN THIS ASSEMBLY' 75000019 IECTBEND EQU * 78000019 MEND 81000019