%IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$QUADWORD
		LONG FILL ( 2 )
	END RECORD
    %LET %BASIC$QUADWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
	RECORD BASIC$OCTAWORD
		LONG FILL ( 4 )
	END RECORD
    %LET %BASIC$OCTAWORD_DECLARED = 1
    %END %IF
    %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$F_FLOATING_COMPLEX
    		SINGLE REAL_PART
    		SINGLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$D_FLOATING_COMPLEX
    		DOUBLE REAL_PART
    		DOUBLE IMAGINARY_PART
    	END RECORD
    %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$G_FLOATING_COMPLEX
    		GFLOAT REAL_PART
    		GFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
    %END %IF
    %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1
    %END %IF
    
    
      DECLARE LONG CONSTANT PR9CC$_ICCS = 24  !  Interval Clock Control/Status
      DECLARE LONG CONSTANT PR9CC$_TODR = 27  !  Time of Year Clock
      DECLARE LONG CONSTANT PR9CC$_RXCS = 32  !  Console Receiver Control/Status
      DECLARE LONG CONSTANT PR9CC$_RXDB = 33  !  Console Receiver Data Buffer
      DECLARE LONG CONSTANT PR9CC$_TXCS = 34  !  Console Transmit Control/Status
      DECLARE LONG CONSTANT PR9CC$_TXDB = 35  !  Console Transmit Data Buffer
      DECLARE LONG CONSTANT PR9CC$_CADR = 37  !  Cache Disable Register
      DECLARE LONG CONSTANT PR9CC$_MSER = 39  !  Memory System Error
      DECLARE LONG CONSTANT PR9CC$_SAVPC = 42  !  Console SAVED PC
      DECLARE LONG CONSTANT PR9CC$_SAVPSL = 43  !  Console SAVED PSL
      DECLARE LONG CONSTANT PR9CC$_SID = 62  !  System Identification Register 
      DECLARE LONG CONSTANT PR9CC$M_DIAG = x'00000001'
      DECLARE LONG CONSTANT PR9CC$M_WRONG_PARITY = x'00000002'
      DECLARE LONG CONSTANT PR9CC$M_D_STREAM = x'00000010'
      DECLARE LONG CONSTANT PR9CC$M_I_STREAM = x'00000020'
      DECLARE LONG CONSTANT PR9CC$M_ENAB_SET1 = x'00000040'
      DECLARE LONG CONSTANT PR9CC$M_ENAB_SET2 = x'00000080'
      DECLARE LONG CONSTANT PR9CC$M_TAG = x'00000001'
      DECLARE LONG CONSTANT PR9CC$M_DAT = x'00000002'
      DECLARE LONG CONSTANT PR9CC$M_ST1 = x'00000004'
      DECLARE LONG CONSTANT PR9CC$M_ST2 = x'00000008'
      DECLARE LONG CONSTANT PR9CC$M_MCC = x'00000010'
      DECLARE LONG CONSTANT PR9CC$M_MCD = x'00000020'
      DECLARE LONG CONSTANT PR9CC$M_DAL = x'00000040'
      DECLARE LONG CONSTANT PR9CC$M_HM = x'00000080'
      DECLARE LONG CONSTANT PR9CC_XSID$_JIMMIED0 = 0  !  Jimmied ROM  
      DECLARE LONG CONSTANT PR9CC_XSID$_TIMESHARE = 1  !  Timeshare system
      DECLARE LONG CONSTANT PR9CC_XSID$_SERVER = 2  !  Server system
      DECLARE LONG CONSTANT PR9CC_XSID$_JIMMIED3 = 3  !  Jimmied ROM  
      DECLARE LONG CONSTANT PR9CC_XSID$_XCPFWREV31 = 49  !  Console REV 3.1
      DECLARE LONG CONSTANT PR9CC_XSID$_XCPFWREV40 = 64  !  Console REV 4.0
      DECLARE LONG CONSTANT PR9CC_XSID$_REV31 = 0  !  Rev 3.1 ROMs
      DECLARE LONG CONSTANT PR9CC_XSID$_XCP = 1  !  XCP 80NS CVAX
      DECLARE LONG CONSTANT PR9CC_XSID$_HYPERION = 2  !  Hyperion 60NS CVAX
      DECLARE LONG CONSTANT PR9CC$S_PR9CCDEF = 4
      record PR9CCDEF
         variant
            case
               group PR9CC$R_PR9CCCADR_BITS  !  Cache Disable Register
                   !  Diagnostic Mode
                   !  Write Wrong Parity
                   !  Store D-Stream in cache
                   !  Store I-Stream in cache
                   !  Enable Set 1 of cache
                   !  Enable Set 2 of cache
                  BYTE DIAG_bits   ! COMMENT ADDED BY SDL - DIAG_bits contains bits DIAG through ENAB_SET2
               end group PR9CC$R_PR9CCCADR_BITS
            case
               group PR9CC$R_PR9CCMSER_BITS  !  Memory System Error Register
                   !  Tag Parity Error
                   !  Data Parity Error
                   !  Set 1 Parity Error
                   !  Set 2 Parity Error
                   !  Machine Check/Cache parity
                   !  Machine Check/DAL parity
                   !  DAL parity error
                   !  Hit/Miss
                  BYTE TAG_bits   ! COMMENT ADDED BY SDL - TAG_bits contains bits TAG through HM
               end group PR9CC$R_PR9CCMSER_BITS
            case
               group PR9CC$R_PR9CCSID_BITS  !  System Identification Register 
                   !   CVAX chip microcode revision level 
                  BYTE SID_CVAXREV_bits   ! COMMENT ADDED BY SDL - SID_CVAXREV_bits contains bits SID_CVAXREV through SID_CVAXREV
               end group PR9CC$R_PR9CCSID_BITS
            case
               group PR9CC$R_PR9CCXSID_BITS  !  XSID  ( SYS_TYPE ) Register
                   !  License bits
                   !  XCP / Hyperion distiction
                   !  Calypso firmware revision level 
                   !  CPU type 
                  LONG XSID_LICENSE_bits   ! COMMENT ADDED BY SDL - XSID_LICENSE_bits contains bits XSID_LICENSE through XSID_TYPE
               end group PR9CC$R_PR9CCXSID_BITS
         end variant
      end record PR9CCDEF