.*------------------------------------------------------------------- .* (c) Copyright Roger Lacroix 1992 | .* | .* Designed, developed and programmed by Roger Lacroix | .*------------------------------------------------------------------- MACRO REGEQU &PRINT=YES,&CONDCODE=YES GBLB ®EQU1 AIF (®EQU1).NOP ensure labels not defined > once ®EQU1 SETB 1 .* ------------------------------------------------------- .* | This macro supplies symbolic names for | .* | registers and 'BCR' conditions (for those | .* | who cannot or will not use extended mnemonic | .* | op-codes). | .* ------------------------------------------------------- .* .* ------------------------------------------------------- .* | The caller may elect not to display the register | .* | equates (they are a well known item). | .* ------------------------------------------------------- .* AIF ('&PRINT' NE 'NO').DOPR do not print if requested PUSH PRINT save current print PRINT NOGEN turn print off .DOPR ANOP , * ** General Purpose Register Names * R0 EQU 0 R1 EQU 1 R2 EQU 2 R3 EQU 3 R4 EQU 4 R5 EQU 5 R6 EQU 6 R7 EQU 7 R8 EQU 8 R9 EQU 9 RA EQU 10 RB EQU 11 RC EQU 12 RD EQU 13 RE EQU 14 RF EQU 15 * R10 EQU 10 R11 EQU 11 R12 EQU 12 R13 EQU 13 R14 EQU 14 R15 EQU 15 * RSV EQU 13 . save area address RET EQU 14 . return point address REP EQU 15 . entry point address RCD EQU 15 . return/completion code * * ** Floating Point Register Names * FP0 EQU 0 FP1 EQU 1 FP2 EQU 2 FP3 EQU 3 FP4 EQU 4 FP5 EQU 5 FP6 EQU 6 FP7 EQU 7 SPACE 1 .* .* ------------------------------------------------------- .* | If the caller is using branch mnemonics, they may | .* | elect to not create these equates. | .* ------------------------------------------------------- .* AIF ('&CONDCODE' EQ 'NO').NOCC no cond codes if requested * ** Equates for 'BCR' Conditions * HI EQU 2 . high LO EQU 4 . low EQ EQU 8 . equal NH EQU 13 . not high NL EQU 11 . not low NE EQU 7 . not equal O EQU 1 . ones/overflow P EQU 2 . plus M EQU 4 . mixed/minus Z EQU 8 . zero NO EQU 14 . not ones/overflow NP EQU 13 . not plus NM EQU 11 . not mixed/minus NZ EQU 7 . not zero SPACE 1 .NOCC ANOP , .* AIF ('&PRINT' NE 'NO').RESP reset print if turned off POP PRINT reset print .RESP ANOP , .* .NOP ANOP MEND