MACRO 00001000 REGEQU 00002000 PUSH PRINT 00002200 AIF ('&SYSPARM' NE 'SUP').ACC01 00002400 PRINT OFF,NOGEN 00002600 .ACC01 ANOP 00002800 * 00003000 *** SYMBOLIC REGISTER EQUATES 00004000 * 00005000 SPACE 2 00006000 * GENERAL PURPOSE REGISTERS 00007000 SPACE 00008000 R0 EQU 0 00009000 R1 EQU 1 00010000 R2 EQU 2 00011000 R3 EQU 3 00012000 R4 EQU 4 00013000 R5 EQU 5 00014000 R6 EQU 6 00015000 R7 EQU 7 00016000 R8 EQU 8 00017000 R9 EQU 9 00018000 R10 EQU 10 00019000 R11 EQU 11 00020000 R12 EQU 12 00021000 R13 EQU 13 00022000 R14 EQU 14 00023000 R15 EQU 15 00024000 SPACE 00025000 * FLOATING POINT REGISTERS 00026000 SPACE 00027000 F0 EQU 0 00028000 F2 EQU 2 00029000 F4 EQU 4 00030000 F6 EQU 6 00031000 SPACE 00032000 * EXTENDED CONTROL REGISTERS 00033000 SPACE 00034000 C0 EQU 0 00035000 C1 EQU 1 00036000 C2 EQU 2 00037000 C3 EQU 3 00038000 C4 EQU 4 00039000 C5 EQU 5 00040000 C6 EQU 6 00041000 C7 EQU 7 00042000 C8 EQU 8 00043000 C9 EQU 9 00044000 C10 EQU 10 00045000 C11 EQU 11 00046000 C12 EQU 12 00047000 C13 EQU 13 00048000 C14 EQU 14 00049000 C15 EQU 15 00050000 EJECT 00051000 POP PRINT 00051100 MEND 00052000