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
I     INTEGER ICLP10
      COMMON   / REGS / AREG,   XREG,   YREG,   NRREGS
      COMMON   / REGS / STATUS, REGS,   ACTREG, NZREG
I     COMMON   / REGS / ICLP10
      EQUIVALENCE    (ACTLO,  ACTREG (1))
      EQUIVALENCE    (ACTHI,  ACTREG (2))
      EQUIVALENCE    (STAREG, STATUS (1))
      EQUIVALENCE    (STXREG, STATUS (2))
      EQUIVALENCE    (STYREG, STATUS (3))