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