%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 PR43$_ICCS = 24 DECLARE LONG CONSTANT PR43$_MCESR = 38 DECLARE LONG CONSTANT PR43$_ACCS = 40 DECLARE LONG CONSTANT PR43$_SAVPC = 42 DECLARE LONG CONSTANT PR43$_SAVPSL = 43 DECLARE LONG CONSTANT PR43$_TBTAG = 47 DECLARE LONG CONSTANT PR43$_TBDATA = 59 DECLARE LONG CONSTANT PR43$_VINTSR = 123 DECLARE LONG CONSTANT PR43$_PCTAG = 124 DECLARE LONG CONSTANT PR43$_PCIDX = 125 DECLARE LONG CONSTANT PR43$_PCERR = 126 DECLARE LONG CONSTANT PR43$_PCSTS = 127 DECLARE LONG CONSTANT PR43$M_ICCS_IE = x'00000040' DECLARE LONG CONSTANT PR43$S_PR43_ICCS = 1 record PR43_ICCS group PR43$R_ICCS_OVERLAY variant case group PR43$R_ICCS_BITS BYTE ICCS_FILL_bits ! COMMENT ADDED BY SDL - ICCS_FILL_bits contains bits ICCS_FILL through fill_55 end group PR43$R_ICCS_BITS end variant end group PR43$R_ICCS_OVERLAY end record PR43_ICCS DECLARE LONG CONSTANT PR43$M_ACCS_VECTOR = x'00000001' DECLARE LONG CONSTANT PR43$M_ACCS_FCHIP = x'00000002' DECLARE LONG CONSTANT PR43$M_ACCS_WEP = x'80000000' DECLARE LONG CONSTANT PR43$S_PR43_ACCS = 4 record PR43_ACCS group PR43$R_ACCS_OVERLAY variant case group PR43$R_ACCS_BITS LONG ACCS_VECTOR_bits ! COMMENT ADDED BY SDL - ACCS_VECTOR_bits contains bits ACCS_VECTOR through ACCS_WEP end group PR43$R_ACCS_BITS end variant end group PR43$R_ACCS_OVERLAY end record PR43_ACCS DECLARE LONG CONSTANT PR43$M_SAVPSL_HLTCOD = x'00003F00' DECLARE LONG CONSTANT PR43$M_SAVPSL_INVAL = x'00004000' DECLARE LONG CONSTANT PR43$M_SAVPSL_MAPEN = x'00008000' DECLARE LONG CONSTANT PR43$S_PR43_SAVPSL = 2 record PR43_SAVPSL group PR43$R_SAVPSL_OVERLAY variant case group PR43$R_SAVPSL_BITS WORD SAVPSL_FILL1_bits ! COMMENT ADDED BY SDL - SAVPSL_FILL1_bits contains bits SAVPSL_FILL1 through & ! SAVPSL_MAPEN end group PR43$R_SAVPSL_BITS end variant end group PR43$R_SAVPSL_OVERLAY end record PR43_SAVPSL DECLARE LONG CONSTANT PR43$M_TBTAG_VPN = x'FFFFFE00' DECLARE LONG CONSTANT PR43$S_PR43_TBTAG = 4 record PR43_TBTAG group PR43$R_TBTAG_OVERLAY variant case group PR43$R_TBTAG_BITS LONG TBTAG_FILL1_bits ! COMMENT ADDED BY SDL - TBTAG_FILL1_bits contains bits TBTAG_FILL1 through TBTAG_VPN end group PR43$R_TBTAG_BITS end variant end group PR43$R_TBTAG_OVERLAY end record PR43_TBTAG DECLARE LONG CONSTANT PR43$M_TBDATA_PFN = x'001FFFFF' DECLARE LONG CONSTANT PR43$M_TBDATA_M = x'04000000' DECLARE LONG CONSTANT PR43$M_TBDATA_PROT = x'78000000' DECLARE LONG CONSTANT PR43$M_TBDATA_V = x'80000000' DECLARE LONG CONSTANT PR43$S_PR43_TBDATA = 4 record PR43_TBDATA group PR43$R_TBDATA_OVERLAY variant case group PR43$R_TBDATA_BITS LONG TBDATA_PFN_bits ! COMMENT ADDED BY SDL - TBDATA_PFN_bits contains bits TBDATA_PFN through TBDATA_V end group PR43$R_TBDATA_BITS end variant end group PR43$R_TBDATA_OVERLAY end record PR43_TBDATA DECLARE LONG CONSTANT PR43$M_PCTAG_TAG = x'1FFFF800' DECLARE LONG CONSTANT PR43$M_PCTAG_PARITY = x'40000000' DECLARE LONG CONSTANT PR43$M_PCTAG_VALID = x'80000000' DECLARE LONG CONSTANT PR43$S_PR43_PCTAG = 4 record PR43_PCTAG group PR43$R_PCTAG_OVERLAY variant case group PR43$R_PCTAG_BITS LONG PCTAG_FILL1_bits ! COMMENT ADDED BY SDL - PCTAG_FILL1_bits contains bits PCTAG_FILL1 through & ! PCTAG_VALID end group PR43$R_PCTAG_BITS end variant end group PR43$R_PCTAG_OVERLAY end record PR43_PCTAG DECLARE LONG CONSTANT PR43$M_PCIDX_INDEX = x'000007F8' DECLARE LONG CONSTANT PR43$S_PR43_PCIDX = 4 record PR43_PCIDX group PR43$R_PCIDX_OVERLAY variant case group PR43$R_PCIDX_BITS LONG PCIDX_FILL1_bits ! COMMENT ADDED BY SDL - PCIDX_FILL1_bits contains bits PCIDX_FILL1 through & ! PCIDX_FILL2 end group PR43$R_PCIDX_BITS end variant end group PR43$R_PCIDX_OVERLAY end record PR43_PCIDX DECLARE LONG CONSTANT PR43$M_PCERR_ADDR = x'3FFFFFFF' DECLARE LONG CONSTANT PR43$S_PR43_PCERR = 4 record PR43_PCERR group PR43$R_PCERR_OVERLAY variant case group PR43$R_PCERR_BITS LONG PCERR_ADDR_bits ! COMMENT ADDED BY SDL - PCERR_ADDR_bits contains bits PCERR_ADDR through PCERR_FILL1 end group PR43$R_PCERR_BITS end variant end group PR43$R_PCERR_OVERLAY end record PR43_PCERR DECLARE LONG CONSTANT PR43$M_PCSTS_FORCE_HIT = x'00000001' DECLARE LONG CONSTANT PR43$M_PCSTS_ENA_PTS = x'00000002' DECLARE LONG CONSTANT PR43$M_PCSTS_FLUSH = x'00000004' DECLARE LONG CONSTANT PR43$M_PCSTS_ENA_RFR = x'00000008' DECLARE LONG CONSTANT PR43$M_PCSTS_PC_HIT = x'00000010' DECLARE LONG CONSTANT PR43$M_PCSTS_INT = x'00000020' DECLARE LONG CONSTANT PR43$M_PCSTS_TRAP2 = x'00000040' DECLARE LONG CONSTANT PR43$M_PCSTS_TRAP1 = x'00000080' DECLARE LONG CONSTANT PR43$M_PCSTS_TAG_PE = x'00000100' DECLARE LONG CONSTANT PR43$M_PCSTS_RDAL_PE = x'00000200' DECLARE LONG CONSTANT PR43$M_PCSTS_DATA_PE = x'00000400' DECLARE LONG CONSTANT PR43$M_PCSTS_BUS_ERR = x'00000800' DECLARE LONG CONSTANT PR43$M_PCSTS_BC_HIT = x'00001000' DECLARE LONG CONSTANT PR43$S_PR43_PCSTS = 4 record PR43_PCSTS group PR43$R_PCSTS_OVERLAY variant case group PR43$R_PCSTS_BITS LONG PCSTS_FORCE_HIT_bits ! COMMENT ADDED BY SDL - PCSTS_FORCE_HIT_bits contains bits PCSTS_FORCE_HIT & ! through PCSTS_FILL1 end group PR43$R_PCSTS_BITS end variant end group PR43$R_PCSTS_OVERLAY end record PR43_PCSTS