&NAM     PROC  &P,0,&PRINT=NO                                           SUE00010
SUEQAR   NAME                                                           SUE00020
         LCL   &X                                                       SUE00030
&X       SET   '&NAM.        '(1,8)                                     SUE00040
         DO    '&PRINT'='YES'                                           SUE00050
         GOTO  .EQTS                                                    SUE00060
         ENDO                                                           SUE00070
         PRINT NOGEN                                                    SUE00080
.EQTS    LABEL                                                          SUE00090
*********************************************************************** SUE00100
*                                                                     * SUE00110
*                        90/30 STANDARD EQUATES MACRO                 * SUE00120
*                                                                     * SUE00130
*********************************************************************** SUE00140
R0$      EQU   0 .                           REGISTER 0                 SUE00150
R1$      EQU   1 .                           REGISTER 1                 SUE00160
R2$      EQU   2 .                           REGISTER 2                 SUE00170
R3$      EQU   3 .                           REGISTER 3                 SUE00180
R4$      EQU   4 .                           REGISTER 4                 SUE00190
R5$      EQU   5 .                           REGISTER 5                 SUE00200
R6$      EQU   6 .                           REGISTER 6                 SUE00210
R7$      EQU   7 .                           REGISTER 7                 SUE00220
R8$      EQU   8 .                           REGISTER 8                 SUE00230
R9$      EQU   9 .                           REGISTER 9                 SUE00240
RA$      EQU   10 .                          REGISTER 10                SUE00250
RB$      EQU   11 .                          REGISTER 11                SUE00260
RC$      EQU   12 .                          REGISTER 12                SUE00270
RD$      EQU   13 .                          REGISTER 13                SUE00280
RE$      EQU   14 .                          REGISTER 14                SUE00290
RF$      EQU   15 .                          REGISTER 15                SUE00300
         SUPEQU                                                         SUE00310
*********************************************************************** SUE00320
*                                                                     * SUE00330
*                                                                     * SUE00340
*                                                                     * SUE00350
*********************************************************************** SUE00360
         PRINT GEN                                                      SUE00370
         END                                                            SUE00380
