%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 PR660$_TODR = 27
      DECLARE LONG CONSTANT PR660$_CSRS = 28
      DECLARE LONG CONSTANT PR660$_CSRD = 29
      DECLARE LONG CONSTANT PR660$_CSTS = 30
      DECLARE LONG CONSTANT PR660$_CSTD = 31
      DECLARE LONG CONSTANT PR660$_TBDR = 36
      DECLARE LONG CONSTANT PR660$_CCR = 37
      DECLARE LONG CONSTANT PR660$_MSER = 39
      DECLARE LONG CONSTANT PR660$_SAVPC = 42
      DECLARE LONG CONSTANT PR660$_SAVPSL = 43
      DECLARE LONG CONSTANT PR660$_IORESET = 55
      DECLARE LONG CONSTANT PR660$M_CCR_DIAG = x'00000001'
      DECLARE LONG CONSTANT PR660$M_CCR_FLUSH = x'00000002'
      DECLARE LONG CONSTANT PR660$M_CCR_ENABLE = x'00000004'
      DECLARE LONG CONSTANT PR660$M_CCR_WWP = x'00000008'
      DECLARE LONG CONSTANT PR660$S_PR660_CCR = 1
      record PR660_CCR
         group PR660$R_CCR_OVERLAY
            variant
               case
                  group PR660$R_CCR_BITS
                     BYTE CCR_DIAG_bits   ! COMMENT ADDED BY SDL - CCR_DIAG_bits contains bits CCR_DIAG through fill_63
                  end group PR660$R_CCR_BITS
            end variant
         end group PR660$R_CCR_OVERLAY
      end record PR660_CCR
    
      DECLARE LONG CONSTANT PR660$M_MSER_TAG_PE = x'00000001'
      DECLARE LONG CONSTANT PR660$M_MSER_DATA_PE = x'00000002'
      DECLARE LONG CONSTANT PR660$M_MSER_MCA_CACHE_PE = x'00000010'
      DECLARE LONG CONSTANT PR660$M_MSER_MCA_CDAL_PE = x'00000020'
      DECLARE LONG CONSTANT PR660$M_MSER_CDAL_PE = x'00000040'
      DECLARE LONG CONSTANT PR660$S_PR660_MSER = 1
      record PR660_MSER
         group PR660$R_MSER_OVERLAY
            variant
               case
                  group PR660$R_MSER_BITS
                     BYTE MSER_TAG_PE_bits   ! COMMENT ADDED BY SDL - MSER_TAG_PE_bits contains bits MSER_TAG_PE through fill_64
                  end group PR660$R_MSER_BITS
            end variant
         end group PR660$R_MSER_OVERLAY
      end record PR660_MSER