*        REGISTER EQUATES MACRO
         MACRO
         REGS
         LCLA  &REG
.REGLOOP ANOP
R&REG    EQU   &REG
&REG     SETA  &REG+1
         AIF   (&REG LT 16).REGLOOP
         MEND