!*** MODULE $LDDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER IO$_LD_CONTROL = '00000014'X
	PARAMETER LDIO$K_CONNECT = '00000000'X
	PARAMETER LDIO$K_DISCONNECT = '00000001'X
	PARAMETER LDIO$K_ENABLE_TRACE = '00000002'X
	PARAMETER LDIO$K_DISABLE_TRACE = '00000003'X
	PARAMETER LDIO$K_GET_TRACE = '00000004'X
	PARAMETER LDIO$K_RESET_TRACE = '00000005'X
	PARAMETER LDIO$K_GET_CONNECTION = '00000006'X
	PARAMETER LDIO$K_SET_SEED = '00000007'X
	PARAMETER LDIO$K_ENABLE_WATCH = '00000008'X
	PARAMETER LDIO$K_DISABLE_WATCH = '00000009'X
	PARAMETER LDIO$K_GET_WATCH = '0000000A'X
	PARAMETER LDIO$K_RESUME_WATCH = '0000000B'X
	PARAMETER LDIO$K_GET_SUSPEND_LIST = '0000000C'X
	PARAMETER LDIO$K_ENABLE_PROTECT = '0000000D'X
	PARAMETER LDIO$K_DISABLE_PROTECT = '0000000E'X
	PARAMETER LDIO$K_SET_ALLOCLASS = '0000000F'X
	PARAMETER LDIO$K_GET_TRACE_PARAMETERS = '00000010'X
	PARAMETER LDIO$K_GET_VERSION = '00000011'X
	PARAMETER LDIO$M_REPLACE = '00000100'X
	PARAMETER LDIO$M_ABORT = '00000200'X
	PARAMETER LDIO$M_INQUIRE = '00000400'X
	PARAMETER LDIO$M_NOWAIT = '00000800'X
	PARAMETER LDIO$M_RESET = '00001000'X
	PARAMETER LDIO$M_SHARE = '00002000'X
	PARAMETER LDIO$M_ACCURATE = '00004000'X
	PARAMETER LDIO$M_FDTTRACE = '00008000'X
	PARAMETER LDIO$M_LBN = '00010000'X
	PARAMETER LDIO$M_OVERRIDE = '00020000'X
	PARAMETER LDIO$M_LOCK = '00040000'X
	PARAMETER LDIO$M_NOFE = '00080000'X
	STRUCTURE /LDIO/
	    PARAMETER LDIO$S_FUNC = 8
	    PARAMETER LDIO$V_FUNC = 0
	    PARAMETER LDIO$S_REPLACE = 1
	    PARAMETER LDIO$V_REPLACE = 8
	    PARAMETER LDIO$S_ABORT = 1
	    PARAMETER LDIO$V_ABORT = 9
	    PARAMETER LDIO$S_INQUIRE = 1
	    PARAMETER LDIO$V_INQUIRE = 10
	    PARAMETER LDIO$S_NOWAIT = 1
	    PARAMETER LDIO$V_NOWAIT = 11
	    PARAMETER LDIO$S_RESET = 1
	    PARAMETER LDIO$V_RESET = 12
	    PARAMETER LDIO$S_SHARE = 1
	    PARAMETER LDIO$V_SHARE = 13
	    PARAMETER LDIO$S_ACCURATE = 1
	    PARAMETER LDIO$V_ACCURATE = 14
	    PARAMETER LDIO$S_FDTTRACE = 1
	    PARAMETER LDIO$V_FDTTRACE = 15
	    PARAMETER LDIO$S_LBN = 1
	    PARAMETER LDIO$V_LBN = 16
	    PARAMETER LDIO$S_OVERRIDE = 1
	    PARAMETER LDIO$V_OVERRIDE = 17
	    PARAMETER LDIO$S_LOCK = 1
	    PARAMETER LDIO$V_LOCK = 18
	    PARAMETER LDIO$S_NOFE = 1
	    PARAMETER LDIO$V_NOFE = 19
	BYTE %FILL (3)
	END STRUCTURE	! LDIO
	PARAMETER LDRSN$K_NOTSHARED = '00000001'X
	PARAMETER LDRSN$K_NOSHARE = '00000002'X
	PARAMETER LDRSN$K_ALLOCLASS = '00000003'X
	PARAMETER LDRSN$K_UNITNUMBER = '00000004'X
	PARAMETER LDRSN$K_TRACKS = '00000005'X
	PARAMETER LDRSN$K_SECTORS = '00000006'X
	PARAMETER LDRSN$K_CYLINDERS = '00000007'X
	PARAMETER LDRSN$K_MAXBLOCK = '00000008'X
	PARAMETER LDRSN$K_NOLBNMAP = '00000009'X
	PARAMETER LDRSN$K_STARTLBN = '0000000A'X
	PARAMETER LDRSN$K_DEVICENAME = '0000000B'X
	PARAMETER LDRSN$K_NOTREPLACED = '0000000C'X
	PARAMETER LDRSN$K_RANGEINUSE = '0000000D'X
	PARAMETER LDRSN$K_FILEIDINUSE = '0000000E'X
	PARAMETER LDRSN$K_INCMPPROT = '0000000F'X
	PARAMETER LDRSN$K_INCMPDEVTYPE = '00000010'X
	PARAMETER LDTRC$C_LENGTH = '00000058'X
	PARAMETER LDTRC$K_LENGTH = '00000058'X
	STRUCTURE /TRACE_ENT/
	    INTEGER*4 LDTRC$L_PID
	    INTEGER*4 LDTRC$L_LBN
	    INTEGER*4 LDTRC$L_BCNT
	    INTEGER*2 LDTRC$W_FUNC
	    INTEGER*2 LDTRC$W_RESERVED
	    INTEGER*4 LDTRC$L_IOSB(1:2)
	    UNION
	        MAP
	        INTEGER*4 LDTRC$Q_START_TIME(2)
	        END MAP
	        MAP
	        INTEGER*4 LDTRC$L_START_TIME
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 LDTRC$Q_END_TIME(2)
	        END MAP
	        MAP
	        INTEGER*4 LDTRC$L_END_TIME
	        END MAP
	    END UNION
	    INTEGER*4 LDTRC$Q_START_SCC(2)
	    INTEGER*4 LDTRC$Q_END_SCC(2)
	    INTEGER*4 LDTRC$L_STARTCPU
	    INTEGER*4 LDTRC$L_ENDCPU
	    UNION
	        MAP
	        INTEGER*4 LDTRC$Q_ELAPSED(2)
	        END MAP
	        MAP
	        INTEGER*4 LDTRC$L_ELAPSED
	        END MAP
	    END UNION
	    INTEGER*4 LDTRC$Q_START_USEC(2)
	    INTEGER*4 LDTRC$Q_END_USEC(2)
	END STRUCTURE	! TRACE_ENT
	PARAMETER LDWTC$M_CHARS = '0000007F'X
	PARAMETER LDWTC$M_NOLBN = '00000001'X
	PARAMETER LDWTC$M_FILE = '00000002'X
	PARAMETER LDWTC$M_REMOVE_ALL = '00000080'X
	PARAMETER LDWTC$C_SUSPEND = '00000000'X
	PARAMETER LDWTC$C_CRASH = '00000001'X
	PARAMETER LDWTC$C_ERROR = '00000002'X
	PARAMETER LDWTC$C_OPCOM = '00000003'X
	PARAMETER LDWTC$C_MAX = '00000003'X
	PARAMETER LDWTC$C_LENGTH = '00000016'X
	PARAMETER LDWTC$K_LENGTH = '00000016'X
	STRUCTURE /WATCHPT/
	    INTEGER*4 LDWTC$L_LBN
	    UNION
	        MAP
	        INTEGER*2 LDWTC$W_FLAGS
	        END MAP
	        MAP
	            UNION
	                MAP
	                PARAMETER LDWTC$S_CHARS = 7
	                PARAMETER LDWTC$V_CHARS = 0
	                BYTE %FILL (1)
	                END MAP
	                MAP
	                    PARAMETER LDWTC$S_NOLBN = 1
	                    PARAMETER LDWTC$V_NOLBN = 0
	                    PARAMETER LDWTC$S_FILE = 1
	                    PARAMETER LDWTC$V_FILE = 1
	                    PARAMETER LDWTC$S_RESERVED = 5
	                    PARAMETER LDWTC$V_RESERVED = 2
	                    PARAMETER LDWTC$S_REMOVE_ALL = 1
	                    PARAMETER LDWTC$V_REMOVE_ALL = 7
	                    BYTE %FILL (1)
	                END MAP
	            END UNION
	        END MAP
	    END UNION
	    INTEGER*2 LDWTC$W_ACTION
	    INTEGER*2 LDWTC$W_FUNC
	    INTEGER*2 LDWTC$W_RETCODE
	    UNION
	        MAP
	        INTEGER*4 LDWTC$A_SBK
	        END MAP
	        MAP
	        INTEGER*4 LDWTC$A_FCB
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*2 LDWTC$W_FID(1:3)
	        END MAP
	        MAP
	            INTEGER*2 LDWTC$W_FID_NUM
	            INTEGER*2 LDWTC$W_FID_SEQ
	            INTEGER*2 LDWTC$W_FID_RVN
	        END MAP
	    END UNION
	END STRUCTURE	! WATCHPT
	PARAMETER LDSUSP$C_LENGTH = '00000010'X
	PARAMETER LDSUSP$K_LENGTH = '00000010'X
	STRUCTURE /SUSPEND_LIST/
	    INTEGER*4 LDSUSP$L_PID
	    INTEGER*4 LDSUSP$L_LBN
	    INTEGER*2 LDSUSP$W_FLAGS
	    INTEGER*2 LDSUSP$W_ACTION
	    INTEGER*2 LDSUSP$W_FUNC
	    INTEGER*2 LDSUSP$W_RETCODE
	END STRUCTURE	! SUSPEND_LIST
!DEC$ END OPTIONS