C     EDIT DATE   30AUG78  08:28
C     SOURCE FILE REGSJHP.IN
C     AUTHOR      J.H.PERINE
C     PURPOSE  DEFINE NAME LIST VALUES FOR RESERVED REGISTER NAMES
      INTEGER  AREG,   XREG,   YREG,   NRREGS
      INTEGER  STATUS (10),    STAREG, STXREG, STYREG
      INTEGER  REGS (10)
      INTEGER  ACTREG (2),      ACTLO,  ACTHI
      INTEGER  NZREG
      EQUIVALENCE    (ACTLO,  ACTREG (1))
      EQUIVALENCE    (ACTHI,  ACTREG (2))
      EQUIVALENCE    (STAREG, STATUS (1))
      EQUIVALENCE    (STXREG, STATUS (2))
      EQUIVALENCE    (STYREG, STATUS (3))
      COMMON   / REGS / AREG,   XREG,   YREG,   NRREGS
      COMMON   / REGS / STATUS, REGS,   ACTREG, NZREG