GENQ Source

         MACRO                                                          00001000
&START   GENQ  &LEN=,&NUM=                                              00002000
         LCLA  &COUNT                                                   00003000
&COUNT   SETA  1                                                        00004000
&START   DC    0F'0'                                                    00005000
.NEXT    ANOP                                                           00006000
         DC    A(&START+4*&LEN*&COUNT) ADDRESS OF NEXT ELEMENT          00007000
         DC    (&LEN-1)A(0) CONTENTS OF THIS ELEMENT                    00008000
         SPACE                                                          00009000
&COUNT   SETA  &COUNT+1                                                 00010000
         AIF   (&COUNT LT &NUM).NEXT                                    00011000
         DC    A(0) LAST ELEMENT IN QUEUE                               00012000
         DC    (&LEN-1)A(0) CONTENTS OF THIS ELEMENT                    00013000
         MEND                                                           00014000