MACRO 00001000
&LABEL GENTAGQ &NUM=32 00002000
LCLA &COUNT 00003000
AIF (&NUM LT 32).TOOLO 00004000
AIF (&NUM GT 512).TOOHI 00005000
&COUNT SETA 1 00006000
SYSTAGS DC 0F'0' 00007000
.NEXT ANOP 00008000
DC A(SYSTAGS+4*TAGWORDS*&COUNT) ADDRESS OF NEXT ELEMENT 00009000
DC (TAGWORDS-1)A(0) CONTENTS OF THIS ELEMENT 00010000
SPACE 00011000
&COUNT SETA &COUNT+1 00012000
AIF (&COUNT LT &NUM).NEXT 00013000
DC A(0) LAST ELEMENT IN QUEUE 00014000
DC (TAGWORDS-1)A(0) CONTENTS OF THIS ELEMENT 00015000
MEXIT 00016000
.TOOLO ANOP 00017000
MNOTE 16,'NUMBER OF TAG ELEMENTS MUST BE AT LEAST 32' 00018000
MEXIT 00019000
.TOOHI ANOP 00020000
MNOTE 16,'NUMBER OF TAG ELEMENTS MUST BE NO GREATER THAN 512' 00021000
MEND 00022000