         PROC  &RANGE,1
XM7REQ   NAME
REGSEQU  NAME
.* * * * *  * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
.*                                                                  *
.*    THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY        *
.*                                                                  *
.*   UNIVAC CONTAINING ITS PROPRIETARY,CONFIDENTIAL INFORMATION     *
.*                                                                  *
.* * * * *  * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
         LCLA  &VALUE
         SPACE 2
.*       REGSEQU ALLOWS FOR THE EQUATING OF REGISTERS TO SYMBOLIC
.*     NAMES FOR A RANGE OF REGISTERS SPECIFIED BY THE ONE OPERAND
&VALUE   SETA  &RANGE(1,1)
.A2      ANOP
R&VALUE  EQU   &VALUE        EQUATE REGISTER
&VALUE   SETA  &VALUE+1      INCREMENT VALUE
         AIF   (&VALUE LE &RANGE(1,2)).A2  BRANCH IF NOT DONE
         SPACE 2
         END
