C     FUNCTION CODES FOR REGISTER MANAGEMENT (REGMAN) CALLS
      INTEGER  CLRACV      // ERASE ALL REGISTER CONTENTS
      INTEGER  CLRACX      // ERASE SPECIFIC REGISTER CONTENTS
      INTEGER  CLRSTA      // ERASE ACTIVE STATUS OF ALL REGISTERS
      INTEGER  TRAREG      // TRASNSFER REGISTER TO REGISTER
      INTEGER  SAVREG      // TEMP STORE IF REGISTER IS ACTIVE
      INTEGER  CTFREE      // FIND A FREE CT OF 1 OR 2 WORDS
      INTEGER  SETREG      // SET THE REGISTER CONTENTS FROM THE STACK
      COMMON   /RMCODE/ CLRACV, CLRACX, CLRSTA, TRAREG, SAVREG
      COMMON   /RMCODE/ CTFREE, SETREG