%DEFINE LDIO LONG ! *** PREDECLARED TYPES %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$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_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_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF DECLARE LONG CONSTANT IO$_LD_CONTROL = 20 DECLARE LONG CONSTANT LDIO$K_CONNECT = 0 DECLARE LONG CONSTANT LDIO$K_DISCONNECT = 1 DECLARE LONG CONSTANT LDIO$K_ENABLE_TRACE = 2 DECLARE LONG CONSTANT LDIO$K_DISABLE_TRACE = 3 DECLARE LONG CONSTANT LDIO$K_GET_TRACE = 4 DECLARE LONG CONSTANT LDIO$K_RESET_TRACE = 5 DECLARE LONG CONSTANT LDIO$K_GET_CONNECTION = 6 DECLARE LONG CONSTANT LDIO$K_SET_SEED = 7 DECLARE LONG CONSTANT LDIO$K_ENABLE_WATCH = 8 DECLARE LONG CONSTANT LDIO$K_DISABLE_WATCH = 9 DECLARE LONG CONSTANT LDIO$K_GET_WATCH = 10 DECLARE LONG CONSTANT LDIO$K_RESUME_WATCH = 11 DECLARE LONG CONSTANT LDIO$K_GET_SUSPEND_LIST = 12 DECLARE LONG CONSTANT LDIO$K_ENABLE_PROTECT = 13 DECLARE LONG CONSTANT LDIO$K_DISABLE_PROTECT = 14 DECLARE LONG CONSTANT LDIO$K_SET_ALLOCLASS = 15 DECLARE LONG CONSTANT LDIO$K_GET_TRACE_PARAMETERS = 16 DECLARE LONG CONSTANT LDIO$K_GET_VERSION = 17 DECLARE LONG CONSTANT LDIO$M_REPLACE = x'00000100' DECLARE LONG CONSTANT LDIO$M_ABORT = x'00000200' DECLARE LONG CONSTANT LDIO$M_INQUIRE = x'00000400' DECLARE LONG CONSTANT LDIO$M_NOWAIT = x'00000800' DECLARE LONG CONSTANT LDIO$M_RESET = x'00001000' DECLARE LONG CONSTANT LDIO$M_SHARE = x'00002000' DECLARE LONG CONSTANT LDIO$M_ACCURATE = x'00004000' DECLARE LONG CONSTANT LDIO$M_FDTTRACE = x'00008000' DECLARE LONG CONSTANT LDIO$M_LBN = x'00010000' DECLARE LONG CONSTANT LDIO$M_OVERRIDE = x'00020000' DECLARE LONG CONSTANT LDIO$M_LOCK = x'00040000' DECLARE LONG CONSTANT LDIO$M_NOFE = x'00080000' DECLARE LONG CONSTANT LDIO$S_LDIO = 3 DECLARE LONG CONSTANT LDRSN$K_NOTSHARED = 1 DECLARE LONG CONSTANT LDRSN$K_NOSHARE = 2 DECLARE LONG CONSTANT LDRSN$K_ALLOCLASS = 3 DECLARE LONG CONSTANT LDRSN$K_UNITNUMBER = 4 DECLARE LONG CONSTANT LDRSN$K_TRACKS = 5 DECLARE LONG CONSTANT LDRSN$K_SECTORS = 6 DECLARE LONG CONSTANT LDRSN$K_CYLINDERS = 7 DECLARE LONG CONSTANT LDRSN$K_MAXBLOCK = 8 DECLARE LONG CONSTANT LDRSN$K_NOLBNMAP = 9 DECLARE LONG CONSTANT LDRSN$K_STARTLBN = 10 DECLARE LONG CONSTANT LDRSN$K_DEVICENAME = 11 DECLARE LONG CONSTANT LDRSN$K_NOTREPLACED = 12 DECLARE LONG CONSTANT LDRSN$K_RANGEINUSE = 13 DECLARE LONG CONSTANT LDRSN$K_FILEIDINUSE = 14 DECLARE LONG CONSTANT LDRSN$K_INCMPPROT = 15 DECLARE LONG CONSTANT LDRSN$K_INCMPDEVTYPE = 16 DECLARE LONG CONSTANT LDTRC$C_LENGTH = 88 DECLARE LONG CONSTANT LDTRC$K_LENGTH = 88 DECLARE LONG CONSTANT LDTRC$S_TRACE_ENT = 88 record TRACE_ENT LONG LDTRC$L_PID LONG LDTRC$L_LBN LONG LDTRC$L_BCNT WORD LDTRC$W_FUNC WORD LDTRC$W_RESERVED LONG LDTRC$L_IOSB ( 1 to 2 ) group LDTRC$R_STIME_UNION variant case BASIC$QUADWORD LDTRC$Q_START_TIME case LONG LDTRC$L_START_TIME end variant end group LDTRC$R_STIME_UNION group LDTRC$R_ETIME_UNION variant case BASIC$QUADWORD LDTRC$Q_END_TIME case LONG LDTRC$L_END_TIME end variant end group LDTRC$R_ETIME_UNION BASIC$QUADWORD LDTRC$Q_START_SCC BASIC$QUADWORD LDTRC$Q_END_SCC LONG LDTRC$L_STARTCPU LONG LDTRC$L_ENDCPU group LDTRC$R_ELAPSED_UNION variant case BASIC$QUADWORD LDTRC$Q_ELAPSED case LONG LDTRC$L_ELAPSED end variant end group LDTRC$R_ELAPSED_UNION BASIC$QUADWORD LDTRC$Q_START_USEC BASIC$QUADWORD LDTRC$Q_END_USEC end record TRACE_ENT DECLARE LONG CONSTANT LDWTC$M_CHARS = x'0000007F' DECLARE LONG CONSTANT LDWTC$M_NOLBN = x'00000001' DECLARE LONG CONSTANT LDWTC$M_FILE = x'00000002' DECLARE LONG CONSTANT LDWTC$M_REMOVE_ALL = x'00000080' DECLARE LONG CONSTANT LDWTC$C_SUSPEND = 0 DECLARE LONG CONSTANT LDWTC$C_CRASH = 1 DECLARE LONG CONSTANT LDWTC$C_ERROR = 2 DECLARE LONG CONSTANT LDWTC$C_OPCOM = 3 DECLARE LONG CONSTANT LDWTC$C_MAX = 3 DECLARE LONG CONSTANT LDWTC$C_LENGTH = 22 DECLARE LONG CONSTANT LDWTC$K_LENGTH = 22 DECLARE LONG CONSTANT LDWTC$S_WATCHPT = 22 record WATCHPT LONG LDWTC$L_LBN group LDWTC$R_FILL_78_ variant case WORD LDWTC$W_FLAGS case group LDWTC$R_FILL_79_ group LDWTC$R_FLAGS1 variant case BYTE CHARS_bits ! COMMENT ADDED BY SDL - CHARS_bits contains bits CHARS through CHARS case group LDWTC$R_FLAGS2 BYTE NOLBN_bits ! COMMENT ADDED BY SDL - NOLBN_bits contains bits NOLBN through REMOVE_ALL end group LDWTC$R_FLAGS2 end variant end group LDWTC$R_FLAGS1 end group LDWTC$R_FILL_79_ end variant end group LDWTC$R_FILL_78_ WORD LDWTC$W_ACTION WORD LDWTC$W_FUNC WORD LDWTC$W_RETCODE group LDWTC$R_SBK_FCB variant case LONG LDWTC$A_SBK case LONG LDWTC$A_FCB end variant end group LDWTC$R_SBK_FCB group LDWTC$R_FIDAREA1 variant case WORD LDWTC$W_FID ( 1 to 3 ) case group LDWTC$R_FIDAREA2 WORD LDWTC$W_FID_NUM WORD LDWTC$W_FID_SEQ WORD LDWTC$W_FID_RVN end group LDWTC$R_FIDAREA2 end variant end group LDWTC$R_FIDAREA1 end record WATCHPT DECLARE LONG CONSTANT LDSUSP$C_LENGTH = 16 DECLARE LONG CONSTANT LDSUSP$K_LENGTH = 16 DECLARE LONG CONSTANT LDSUSP$S_SUSPEND_LIST = 16 record SUSPEND_LIST LONG LDSUSP$L_PID LONG LDSUSP$L_LBN WORD LDSUSP$W_FLAGS WORD LDSUSP$W_ACTION WORD LDSUSP$W_FUNC WORD LDSUSP$W_RETCODE end record SUSPEND_LIST