%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 PR4A$_ICCS = 24
      DECLARE LONG CONSTANT PR4A$_CCR = 37
      DECLARE LONG CONSTANT PR4A$_MSER = 39
      DECLARE LONG CONSTANT PR4A$_SAVPC = 42
      DECLARE LONG CONSTANT PR4A$_SAVPSL = 43
      DECLARE LONG CONSTANT PR4A$M_MSER_INT = x'00000001'
      DECLARE LONG CONSTANT PR4A$M_MSER_TRP1 = x'00000002'
      DECLARE LONG CONSTANT PR4A$M_MSER_TRP2 = x'00000004'
      DECLARE LONG CONSTANT PR4A$M_MSER_TPE = x'00000008'
      DECLARE LONG CONSTANT PR4A$M_MSER_DPE = x'00000010'
      DECLARE LONG CONSTANT PR4A$M_MSER_CDPE = x'00000020'
      DECLARE LONG CONSTANT PR4A$M_MSER_BER = x'00000040'
      DECLARE LONG CONSTANT PR4A$S_PR4A_MSER = 1
      record PR4A_MSER
         group PR4A$R_MSER_OVERLAY
            variant
               case
                  group PR4A$R_MSER_BITS
                     BYTE MSER_INT_bits   ! COMMENT ADDED BY SDL - MSER_INT_bits contains bits MSER_INT through fill_58
                  end group PR4A$R_MSER_BITS
            end variant
         end group PR4A$R_MSER_OVERLAY
      end record PR4A_MSER
    
      DECLARE LONG CONSTANT PR4A$M_CCR_DIA = x'00000001'
      DECLARE LONG CONSTANT PR4A$M_CCR_FLUSH = x'00000002'
      DECLARE LONG CONSTANT PR4A$M_CCR_ENA = x'00000004'
      DECLARE LONG CONSTANT PR4A$M_CCR_CWP = x'00000008'
      DECLARE LONG CONSTANT PR4A$S_PR4A_CCR = 1
      record PR4A_CCR
         group PR4A$R_CCR_OVERLAY
            variant
               case
                  group PR4A$R_CCR_BITS
                     BYTE CCR_DIA_bits   ! COMMENT ADDED BY SDL - CCR_DIA_bits contains bits CCR_DIA through fill_59
                  end group PR4A$R_CCR_BITS
            end variant
         end group PR4A$R_CCR_OVERLAY
      end record PR4A_CCR