C     COMMON STORAGE FOR REGISTER MANAGEMENT ROUTINES
      INTEGER     ACADDR (11), ACTYPE (11), ACSUBS (11)
      INTEGER     ACSBTY (11), ACBIAS (11)
C     SAVE AREA FOR BOOLEAN AND CONDITIONAL EVALUTAION
C     5 LEVELS+ 1 SCRATCH LEVEL - APB
      INTEGER     REGSTK(120)
      COMMON      /RMCOM/  ACADDR, ACTYPE, ACSUBS, ACSBTY, ACBIAS
      COMMON      /RMCOM/  REGSTK