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