--******************************************************************************************************************** -- Created: 30-Mar-2010 17:01:59 by OpenVMS SDL EV3-3 -- Source: 18-SEP-2009 02:17:15 $1$DGA7274:[STARLET_ADA.LIS]STARLET.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package STARLET is -- module STARLET -- -- SYSTEM SERVICE ENTRY POINT DESCRIPTIONS -- -- -- $ACM[W] -- -- Authentication and Credentials Management -- -- $ACM[W] [efn], func, [contxt], itmlst, acmsb, -- [astadr], [astprm] -- -- efn = number of event flag to set at service completion -- (read only, passed by value) -- func = function code and modifiers specifying action -- to be performed -- (read only, passed by value) -- contxt = context longword, used to maintain service state -- across iterative calls -- (modify, passed by reference) -- itmlst = list of item descriptors -- (read only, passed by reference) -- acmsb = ACM status block -- (write only, passed by reference) -- astadr = procedure value for AST routine to be called at -- service completion -- (execute only, passed by reference) -- astprm = value to be passed as an argument to the AST routine -- (passed by value) -- procedure ACM ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE; ACMSB : out ACM_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure ACM ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument ITMLST : in ITEM_LIST_TYPE; ACMSB : out ACM_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, ACM); pragma IMPORT_VALUED_PROCEDURE (ACM, "SYS$ACM", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, ACM_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ACM, "SYS$ACM", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, ACM_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); procedure ACMW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE; ACMSB : out ACM_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure ACMW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument ITMLST : in ITEM_LIST_TYPE; ACMSB : out ACM_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, ACMW); pragma IMPORT_VALUED_PROCEDURE (ACMW, "SYS$ACMW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, ACM_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ACMW, "SYS$ACMW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, ACM_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); -- -- $ADD_HOLDER -- -- Add Holder Record To The Rights Database -- -- $ADD_HOLDER id, holder, [attrib] -- -- id = identifier longword to associate the -- holder record with -- holder = address of the holder identifier quadword -- attrib = attributes longword to grant to the holder procedure ADD_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : in RIGHTS_HOLDER_TYPE; ATTRIB : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ADD_HOLDER); pragma IMPORT_VALUED_PROCEDURE (ADD_HOLDER, "SYS$ADD_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, RIGHTS_HOLDER_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE)); -- -- $ADD_IDENT -- -- Add Identifier To The Rights Database -- -- $ADD_IDENT name, [id], [attrib], [resid] -- -- name = address of the identifier name character -- string descriptor -- id = identifier longword to associate with 'name' -- attrib = attributes longword to grant to the -- identifier -- resid = address of a longword to return the assigned -- identifier -- procedure ADD_IDENT ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; ID : in RIGHTS_ID_TYPE := 0; ATTRIB : in UNSIGNED_LONGWORD := 0; RESID : out RIGHTS_ID_TYPE); procedure ADD_IDENT ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; ID : in RIGHTS_ID_TYPE := 0; ATTRIB : in UNSIGNED_LONGWORD := 0; RESID : in ADDRESS := ADDRESS_ZERO); -- To omit optional RESID argument pragma INTERFACE (EXTERNAL, ADD_IDENT); pragma IMPORT_VALUED_PROCEDURE (ADD_IDENT, "SYS$ADD_IDENT", (COND_VALUE_TYPE, STRING, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, RIGHTS_ID_TYPE), (VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (ADD_IDENT, "SYS$ADD_IDENT", (COND_VALUE_TYPE, STRING, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE)); -- -- $ADD_MAPPING -- -- Add Mapping record to Mapping database -- -- $ADD_MAPPING initmlst -- -- initmlst = address of a list of item descriptors for the operation -- procedure ADD_MAPPING ( STATUS : out COND_VALUE_TYPE; -- return value INITMLST : in ITEM_LIST_3_TYPE); pragma INTERFACE (EXTERNAL, ADD_MAPPING); pragma IMPORT_VALUED_PROCEDURE (ADD_MAPPING, "SYS$ADD_MAPPING", (COND_VALUE_TYPE, ITEM_LIST_3_TYPE), (VALUE, REFERENCE)); -- -- $ADD_PROXY -- -- Add proxy record -- -- $ADD_PROXY rem_node, rem_user, local_user, [flags] -- -- rem_node in address of remote node descriptor -- rem_user in address of remote user descriptor -- local_user in address of local user descriptor -- flags in proxy service flags -- procedure ADD_PROXY ( STATUS : out COND_VALUE_TYPE; -- return value REM_NODE : in STRING; REM_USER : in STRING; LOCAL_USER : in STRING; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ADD_PROXY); pragma IMPORT_VALUED_PROCEDURE (ADD_PROXY, "SYS$ADD_PROXY", (COND_VALUE_TYPE, STRING, STRING, STRING, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), VALUE)); -- -- $ADJSTK -- -- Adjust Outer Mode Stack Pointer -- -- $ADJSTK [acmode] ,[adjust] ,newadr -- -- acmode = access mode for which to adjust stack pointer -- adjust = 16-bit signed adjustment value -- newadr = address of longword to store updated value -- procedure ADJSTK ( STATUS : out COND_VALUE_TYPE; -- return value ACMODE : in ACCESS_MODE_TYPE := 0; ADJUST : in SHORT_INTEGER := 0; NEWADR : in out ADDRESS); pragma INTERFACE (EXTERNAL, ADJSTK); pragma IMPORT_VALUED_PROCEDURE (ADJSTK, "SYS$ADJSTK", (COND_VALUE_TYPE, ACCESS_MODE_TYPE, SHORT_INTEGER, ADDRESS), (VALUE, VALUE, VALUE, REFERENCE)); -- -- $ADJWSL -- -- Adjust Working Set Limit -- -- $ADJWSL [pagcnt] ,[wsetlm] -- -- pagcnt = number of pages to add to working set (if positive). -- Number of pages to subtract from working set (if -- negative). -- wsetlm = address of longword to receive new working set limit, -- or current working set limit if pagcnt not specified. -- procedure ADJWSL ( STATUS : out COND_VALUE_TYPE; -- return value PAGCNT : in INTEGER := 0; WSETLM : out UNSIGNED_LONGWORD); procedure ADJWSL ( STATUS : out COND_VALUE_TYPE; -- return value PAGCNT : in INTEGER := 0; WSETLM : in ADDRESS := ADDRESS_ZERO); -- To omit optional WSETLM argument pragma INTERFACE (EXTERNAL, ADJWSL); pragma IMPORT_VALUED_PROCEDURE (ADJWSL, "SYS$ADJWSL", (COND_VALUE_TYPE, INTEGER, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (ADJWSL, "SYS$ADJWSL", (COND_VALUE_TYPE, INTEGER, ADDRESS), (VALUE, VALUE, VALUE)); -- -- $ALLOC -- -- Allocate Device -- -- $ALLOC devnam ,[phylen] ,[phybuf] ,[acmode] ,[flags] -- -- devnam = address of device name or logical name string -- descriptor -- phylen = address of word to receive length of physical name -- phybuf = address of physical name buffer descriptor -- acmode = access mode associated with allocated device -- flags = options flags longword -- procedure ALLOC ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PHYLEN : out UNSIGNED_WORD; PHYBUF : out DEVICE_NAME_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); procedure ALLOC ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PHYLEN : out UNSIGNED_WORD; PHYBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PHYBUF argument ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); procedure ALLOC ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PHYLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PHYLEN argument PHYBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PHYBUF argument ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); procedure ALLOC ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PHYLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PHYLEN argument PHYBUF : out DEVICE_NAME_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ALLOC); pragma IMPORT_VALUED_PROCEDURE (ALLOC, "SYS$ALLOC", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, DEVICE_NAME_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ALLOC, "SYS$ALLOC", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ALLOC, "SYS$ALLOC", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ALLOC, "SYS$ALLOC", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, DEVICE_NAME_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, VALUE)); -- -- $ASCEFC -- -- Associate Common Event Flag Cluster -- -- $ASCEFC efn ,name ,[prot] ,[perm] -- -- efn = number of any event flag in the cluster with which to -- associate -- name = address of the text name string descriptor -- prot = protection indicator for the cluster -- 0 -> default, any process in group -- 1 -> only owner's UIC -- perm = permanent indicator -- 0 -> temporary cluster -- 1 -> permanent cluster -- procedure ASCEFC ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE; NAME : in EF_CLUSTER_NAME_TYPE; PROT : in BOOLEAN := FALSE; PERM : in BOOLEAN := FALSE); pragma INTERFACE (EXTERNAL, ASCEFC); pragma IMPORT_VALUED_PROCEDURE (ASCEFC, "SYS$ASCEFC", (COND_VALUE_TYPE, EF_NUMBER_TYPE, EF_CLUSTER_NAME_TYPE, BOOLEAN, BOOLEAN), (VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE)); -- -- $ASCTIM -- -- Convert Binary Time to ASCII String -- -- $ASCTIM [timlen] ,timbuf ,[timadr] ,[cvtflg] -- -- timlen = address of a word to receive the number of characters -- inserted into the output buffer. -- timbuf = address of a character string descriptor describing -- the buffer to receive the converted time. -- timadr = address of the quadword containing the 64-bit time to -- be converted to ASCII. If 0, use current time. -- cvtflg = conversion indicator -- 0 -> return full date and time -- 1 -> return converted time only -- procedure ASCTIM ( STATUS : out COND_VALUE_TYPE; -- return value TIMLEN : out SHORT_INTEGER; TIMBUF : out TIME_NAME_TYPE; TIMADR : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; CVTFLG : in UNSIGNED_LONGWORD := FALSE); procedure ASCTIM ( STATUS : out COND_VALUE_TYPE; -- return value TIMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional TIMLEN argument TIMBUF : out TIME_NAME_TYPE; TIMADR : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; CVTFLG : in UNSIGNED_LONGWORD := FALSE); pragma INTERFACE (EXTERNAL, ASCTIM); pragma IMPORT_VALUED_PROCEDURE (ASCTIM, "SYS$ASCTIM", (COND_VALUE_TYPE, SHORT_INTEGER, TIME_NAME_TYPE, DATE_TIME_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ASCTIM, "SYS$ASCTIM", (COND_VALUE_TYPE, ADDRESS, TIME_NAME_TYPE, DATE_TIME_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); -- -- $ASCTOID -- -- Ascii To Identifier Conversion -- -- $ASCTOID name, [id], [attrib] -- -- name = address of the identifier name character -- string descriptor to be converted -- id = address to return the identifier longword -- attrib = address to return the attributes longword -- procedure ASCTOID ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; ID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD); procedure ASCTOID ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; ID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO); -- To omit optional ATTRIB argument procedure ASCTOID ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument ATTRIB : in ADDRESS := ADDRESS_ZERO); -- To omit optional ATTRIB argument procedure ASCTOID ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument ATTRIB : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ASCTOID); pragma IMPORT_VALUED_PROCEDURE (ASCTOID, "SYS$ASCTOID", (COND_VALUE_TYPE, STRING, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (ASCTOID, "SYS$ASCTOID", (COND_VALUE_TYPE, STRING, RIGHTS_ID_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ASCTOID, "SYS$ASCTOID", (COND_VALUE_TYPE, STRING, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ASCTOID, "SYS$ASCTOID", (COND_VALUE_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, REFERENCE)); -- -- $ASCUTC -- -- Convert Binary UTC time into ASCII time string -- -- $ASCUTC [timlen], timbuf, [utcadr], [cvtflg] -- -- timlen = Length (in bytes) of the ASCII string -- returned by $ASCUTC. The timelen argument -- is the address of a word containing this length. -- timbuf = Buffer into which $ASCUTC writes the ASCII string. -- The timbuf argument is the address of a character -- string descriptor pointing to the bufer. The -- buffer length specified in the timbuf argument, -- together rwith the cvtflg argument, controls what -- information is returned. -- utcadr = Time value that $ASCUTC is to convert. The utcadr -- argument is the address of this 128-bit time value. -- Relative times are not permitted. If utcadr is -- not specified ( ie 0 ), $ASCUTC returns the current -- date and time. -- cvtflg = Conversion indicator specifying which date and time -- fields $ASCUTC should return. The cvtflg argument is -- a longword value, which is interpreted as Boolean. -- The value 1 specifies that ASCUTC should return only -- the hour,minute,second, and hundreths of a second fields. -- The default value 0 specifies that $ASCUTC should return -- the full date and time. -- procedure ASCUTC ( STATUS : out COND_VALUE_TYPE; -- return value TIMLEN : out SHORT_INTEGER; TIMBUF : in TIME_NAME_TYPE; UTCADR : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER; CVTFLG : in UNSIGNED_LONGWORD := FALSE); procedure ASCUTC ( STATUS : out COND_VALUE_TYPE; -- return value TIMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional TIMLEN argument TIMBUF : in TIME_NAME_TYPE; UTCADR : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER; CVTFLG : in UNSIGNED_LONGWORD := FALSE); pragma INTERFACE (EXTERNAL, ASCUTC); pragma IMPORT_VALUED_PROCEDURE (ASCUTC, "SYS$ASCUTC", (COND_VALUE_TYPE, SHORT_INTEGER, TIME_NAME_TYPE, UTC_DATE_TIME_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ASCUTC, "SYS$ASCUTC", (COND_VALUE_TYPE, ADDRESS, TIME_NAME_TYPE, UTC_DATE_TIME_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); -- -- $ASSIGN -- -- Assign I/O Channel -- -- $ASSIGN devnam ,chan ,[acmode] ,[mbxnam], [flags] -- -- devnam = address of device name or logical name string -- descriptor -- chan = address of word to receive channel number assigned -- acmode = access mode associated with channel -- mbxnam = address of mailbox logical name string descriptor, if -- mailbox associated with device -- flags = optional channel flags longword for specifying options -- for the $ASSIGN operation -- procedure ASSIGN ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; CHAN : out CHANNEL_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; MBXNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, ASSIGN); pragma IMPORT_VALUED_PROCEDURE (ASSIGN, "SYS$ASSIGN", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, CHANNEL_TYPE, ACCESS_MODE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, DESCRIPTOR(S), VALUE), FLAGS); -- -- $AUDIT_EVENT -- -- Audit Security Relevant Event -- -- $AUDIT_EVENT(W) [efn], [flags], itmlst, [audsts], [astadr], [astprm] -- -- efn = number of event flag to set on completion -- -- flags = input flags longword -- -- itmlst = address of list of item descriptors -- -- audsts = address of longword to receive final completion status -- -- astadr = address of AST completion routine -- -- astprm = unsigned longword to be passed to AST routine -- procedure AUDIT_EVENT ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE; AUDSTS : out COND_VALUE_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure AUDIT_EVENT ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE; AUDSTS : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUDSTS argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, AUDIT_EVENT); pragma IMPORT_VALUED_PROCEDURE (AUDIT_EVENT, "SYS$AUDIT_EVENT", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, COND_VALUE_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (AUDIT_EVENT, "SYS$AUDIT_EVENT", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); procedure AUDIT_EVENTW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE; AUDSTS : out COND_VALUE_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure AUDIT_EVENTW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE; AUDSTS : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUDSTS argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, AUDIT_EVENTW); pragma IMPORT_VALUED_PROCEDURE (AUDIT_EVENTW, "SYS$AUDIT_EVENTW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, COND_VALUE_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (AUDIT_EVENTW, "SYS$AUDIT_EVENTW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); -- -- $BINTIM -- -- Convert ASCII String to Binary Time -- -- $BINTIM timbuf ,timadr -- -- timbuf = address of string descriptor for ASCII time string -- timadr = address of quadword to receive 64-bit binary time -- value -- -- Absolute time strings are specified in the format: -- dd-mmm-yyyy hh:mm:ss.cc -- Delta time strings are specified in the format: -- dddd hh:mm:ss.cc -- procedure BINTIM ( STATUS : out COND_VALUE_TYPE; -- return value TIMBUF : in TIME_NAME_TYPE; TIMADR : out DATE_TIME_TYPE); pragma INTERFACE (EXTERNAL, BINTIM); pragma IMPORT_VALUED_PROCEDURE (BINTIM, "SYS$BINTIM", (COND_VALUE_TYPE, TIME_NAME_TYPE, DATE_TIME_TYPE), (VALUE, DESCRIPTOR(S), REFERENCE)); -- -- $BINUTC -- -- Convert ASCII UTC time to a binary format -- -- $BINUTC timbuf, utcadr -- -- timbuf = Buffer that holds the ASCII time to be converted. -- The timbuf argument specifies the address of a -- character string descriptor pointing to the VMS -- time string. The VMS time string specifies the -- absolute time to be converted by $BINUTC. -- utcadr = Time value that $BINUTC has converted. The -- utcadr argument is the address of the utc_date_time -- which receives the converted time. -- procedure BINUTC ( STATUS : out COND_VALUE_TYPE; -- return value TIMBUF : in TIME_NAME_TYPE; UTCADR : out UTC_DATE_TIME_TYPE); pragma INTERFACE (EXTERNAL, BINUTC); pragma IMPORT_VALUED_PROCEDURE (BINUTC, "SYS$BINUTC", (COND_VALUE_TYPE, TIME_NAME_TYPE, UTC_DATE_TIME_TYPE), (VALUE, DESCRIPTOR(S), REFERENCE)); -- -- $BRDCST -- -- Broadcast -- -- $BRDCST msgbuf ,[devnam] -- -- msgbuf = address of message buffer string descriptor -- devnam = terminal device name string descriptor. If 0, send -- message to all terminals. If first word in -- descriptor is 0, send message to all allocated -- terminals. -- procedure BRDCST ( STATUS : out COND_VALUE_TYPE; -- return value MSGBUF : in STRING; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; CARCON : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_32); pragma INTERFACE (EXTERNAL, BRDCST); pragma IMPORT_VALUED_PROCEDURE (BRDCST, "SYS$BRDCST", (COND_VALUE_TYPE, STRING, DEVICE_NAME_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE)); -- $BRKTHRU -- -- Write to terminal breakthru -- -- $BRKTHRU [efn] ,msgbuf, [sendto], [sndtyp], [iosb], -- ($BRKTHRUW) [carcon], [flags], [reqid], [timout], -- [astadr], [astprm] -- -- efn = event flag to be set at completion -- -- msgbuf = address of message buffer descriptor -- -- sendto = address of send address descriptor -- -- sndtyp = value to describe sendto -- -- iosb = address of a quadword I/O status block -- -- carcon = carriage control -- -- flags = flags to modify broadcast -- -- reqid = broadcast class requestor id -- -- timout = address of timeout value -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as an argument -- -- procedure BRKTHRU ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; MSGBUF : in STRING := STRING'NULL_PARAMETER; SENDTO : in STRING := STRING'NULL_PARAMETER; SNDTYP : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; CARCON : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_32; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; TIMOUT : in UNSIGNED_LONGWORD := 0; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure BRKTHRU ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; MSGBUF : in STRING := STRING'NULL_PARAMETER; SENDTO : in STRING := STRING'NULL_PARAMETER; SNDTYP : in UNSIGNED_LONGWORD := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument CARCON : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_32; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; TIMOUT : in UNSIGNED_LONGWORD := 0; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, BRKTHRU); pragma IMPORT_VALUED_PROCEDURE (BRKTHRU, "SYS$BRKTHRU", (COND_VALUE_TYPE, EF_NUMBER_TYPE, STRING, STRING, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (BRKTHRU, "SYS$BRKTHRU", (COND_VALUE_TYPE, EF_NUMBER_TYPE, STRING, STRING, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); procedure BRKTHRUW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; MSGBUF : in STRING := STRING'NULL_PARAMETER; SENDTO : in STRING := STRING'NULL_PARAMETER; SNDTYP : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; CARCON : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_32; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; TIMOUT : in UNSIGNED_LONGWORD := 0; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure BRKTHRUW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; MSGBUF : in STRING := STRING'NULL_PARAMETER; SENDTO : in STRING := STRING'NULL_PARAMETER; SNDTYP : in UNSIGNED_LONGWORD := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument CARCON : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_32; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; TIMOUT : in UNSIGNED_LONGWORD := 0; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, BRKTHRUW); pragma IMPORT_VALUED_PROCEDURE (BRKTHRUW, "SYS$BRKTHRUW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, STRING, STRING, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (BRKTHRUW, "SYS$BRKTHRUW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, STRING, STRING, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); -- -- $CANCEL -- -- Cancel I/O on Channel -- -- $CANCEL chan -- -- chan = number of the channel on which I/O is to be canceled -- procedure CANCEL ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE); pragma INTERFACE (EXTERNAL, CANCEL); pragma IMPORT_VALUED_PROCEDURE (CANCEL, "SYS$CANCEL", (COND_VALUE_TYPE, CHANNEL_TYPE), (VALUE, VALUE)); -- -- $CANCEL_SELECTIVE -- -- Selective Cancel I/O on Channel -- -- $CANCEL_SELECTIVE chan, [iosblst], [lenlst] -- -- chan = number of the channel on which I/O is to be canceled -- iosblst = address of a vector of IOSB pointers -- lenlst = number of entries in the vector pointed by iosblst -- procedure CANCEL_SELECTIVE ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; IOSBLST : in INTEGER_ARRAY := INTEGER_ARRAY'NULL_PARAMETER; LENLST : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CANCEL_SELECTIVE); pragma IMPORT_VALUED_PROCEDURE (CANCEL_SELECTIVE, "SYS$CANCEL_SELECTIVE", (COND_VALUE_TYPE, CHANNEL_TYPE, INTEGER_ARRAY, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE)); -- $CANEVTAST -- -- Cancel an Event AST Routine -- -- $CANEVTAST [evtnam], [evtadr], [evtfac], [acmode], [flags], [reqid] -- ,[evtid] -- -- evtnam = address of descriptor of event name -- -- evtadr = address of entry mask of event AST routine -- -- evtfac = address of event facility code -- -- acmode = access mode of event declaration -- -- flags = address of optional flags -- -- reqid = user provided identification of this request -- -- evtid = unique identification of this request -- procedure CANEVTAST ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING := STRING'NULL_PARAMETER; EVTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; REQID : in UNSIGNED_LONGWORD := 0; EVTID : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CANEVTAST); pragma IMPORT_VALUED_PROCEDURE (CANEVTAST, "SYS$CANEVTAST", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); -- -- $CANEXH -- -- Cancel Exit Handler -- -- $CANEXH [desblk] -- -- desblk = address of exit control block describing exit handler -- to be deleted. If 0, delete all. -- procedure CANEXH ( STATUS : out COND_VALUE_TYPE; -- return value DESBLK : in EXIT_HANDLER_BLOCK_TYPE := EXIT_HANDLER_BLOCK_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CANEXH); pragma IMPORT_VALUED_PROCEDURE (CANEXH, "SYS$CANEXH", (COND_VALUE_TYPE, EXIT_HANDLER_BLOCK_TYPE), (VALUE, REFERENCE)); -- -- $CANTIM -- -- Cancel Timer Request -- -- $CANTIM [reqidt] ,[acmode] -- -- reqidt = request identification for request to be canceled. -- If 0, all requests canceled. -- acmode = access mode of requests to be canceled -- procedure CANTIM ( STATUS : out COND_VALUE_TYPE; -- return value REQIDT : in USER_ARG_TYPE := USER_ARG_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, CANTIM); pragma IMPORT_VALUED_PROCEDURE (CANTIM, "SYS$CANTIM", (COND_VALUE_TYPE, USER_ARG_TYPE, ACCESS_MODE_TYPE), (VALUE, VALUE, VALUE)); -- -- $CANWAK -- -- Cancel Wakeup -- -- $CANWAK [pidadr] ,[prcnam] -- -- pidadr = address of process identification of process for -- which wakeups are to be canceled -- prcnam = address of process name string descriptor -- procedure CANWAK ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER); procedure CANWAK ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CANWAK); pragma IMPORT_VALUED_PROCEDURE (CANWAK, "SYS$CANWAK", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (CANWAK, "SYS$CANWAK", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE), (VALUE, VALUE, DESCRIPTOR(S))); -- $CHANGE_ACL -- -- Set or modify an object's ACL -- -- $CHANGE_ACL [chan], objtyp, [objnam], -- itmlst, [acmode], [iosb], -- [contxt] , [routin], [orbadr] -- -- chan = number of a channel assigned to the object or -- 0 if object is specified by the objnam parameter -- -- objtyp = address of an object type code -- -- objnam = address of object name -- -- itmlst = address of a list of item descriptors -- -- acmode = address of a byte containing the access mode in -- which the arguments will be validated -- -- iosb = address of a quadword I/O status block -- -- contxt = address of a context long word (used for iterative -- calls or a multi-entry item list) -- -- routin = address of routine to be executed in kernel mode -- (obsolete) -- -- orbadr = address of a user supplied ORB -- procedure CHANGE_ACL ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE := 0; OBJTYP : in UNSIGNED_LONGWORD; OBJNAM : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; CONTXT : in out CONTEXT_TYPE; ROUTIN : in ADDRESS := ADDRESS_ZERO; ORBADR : in ADDRESS := ADDRESS_ZERO); procedure CHANGE_ACL ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE := 0; OBJTYP : in UNSIGNED_LONGWORD; OBJNAM : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument ROUTIN : in ADDRESS := ADDRESS_ZERO; ORBADR : in ADDRESS := ADDRESS_ZERO); procedure CHANGE_ACL ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE := 0; OBJTYP : in UNSIGNED_LONGWORD; OBJNAM : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument ROUTIN : in ADDRESS := ADDRESS_ZERO; ORBADR : in ADDRESS := ADDRESS_ZERO); procedure CHANGE_ACL ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE := 0; OBJTYP : in UNSIGNED_LONGWORD; OBJNAM : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument CONTXT : in out CONTEXT_TYPE; ROUTIN : in ADDRESS := ADDRESS_ZERO; ORBADR : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, CHANGE_ACL); pragma IMPORT_VALUED_PROCEDURE (CHANGE_ACL, "SYS$CHANGE_ACL", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_LONGWORD, STRING, ITEM_LIST_TYPE, ACCESS_MODE_TYPE, IO_STATUS_BLOCK_TYPE, CONTEXT_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CHANGE_ACL, "SYS$CHANGE_ACL", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_LONGWORD, STRING, ITEM_LIST_TYPE, ACCESS_MODE_TYPE, IO_STATUS_BLOCK_TYPE, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CHANGE_ACL, "SYS$CHANGE_ACL", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_LONGWORD, STRING, ITEM_LIST_TYPE, ACCESS_MODE_TYPE, ADDRESS, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CHANGE_ACL, "SYS$CHANGE_ACL", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_LONGWORD, STRING, ITEM_LIST_TYPE, ACCESS_MODE_TYPE, ADDRESS, CONTEXT_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); -- $CHANGE_CLASS objtyp, [objnam], itmlst -- [acmode], [orbadr] -- -- Modify an objects access class -- -- objtyp = address of an object type code -- -- objnam = address of an object name descriptor -- -- itmlst = address of a list of item descriptors -- -- acmode = address of a byte containing the access mode in -- which the arguments will be validated -- -- orbadr = address of routine to be executed in kernel mode -- -- procedure CHANGE_CLASS ( STATUS : out COND_VALUE_TYPE; -- return value OBJTYP : in UNSIGNED_LONGWORD; OBJNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; ORBADR : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, CHANGE_CLASS); pragma IMPORT_VALUED_PROCEDURE (CHANGE_CLASS, "SYS$CHANGE_CLASS", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, ITEM_LIST_TYPE, ACCESS_MODE_TYPE, ADDRESS), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE)); -- $CHECK_ACCESS -- -- $CHECK_ACCESS [objtyp], [objnam], [usrnam], itmlst, [contxt], -- [clsnam], [objpro], [usrpro] -- -- Check User Access to an Object -- -- objtyp = address of an object type code -- -- objnam = address of an object name descriptor -- -- usrnam = address of a user name descriptor -- -- itmlst = address of a list of item descriptors -- -- contxt = address of longword for UAI context -- -- clsnam = address of object class name descriptor -- -- objpro = address of object profile descriptor(ORB TLV or channel) -- -- usrpro = address of user profile descriptor (ARB TLV) -- procedure CHECK_ACCESS ( STATUS : out COND_VALUE_TYPE; -- return value OBJTYP : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; OBJNAM : in STRING := STRING'NULL_PARAMETER; USRNAM : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; CONTXT : in out CONTEXT_TYPE; CLSNAM : in STRING := STRING'NULL_PARAMETER; OBJPRO : in STRING := STRING'NULL_PARAMETER; USRPRO : in STRING := STRING'NULL_PARAMETER); procedure CHECK_ACCESS ( STATUS : out COND_VALUE_TYPE; -- return value OBJTYP : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; OBJNAM : in STRING := STRING'NULL_PARAMETER; USRNAM : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument CLSNAM : in STRING := STRING'NULL_PARAMETER; OBJPRO : in STRING := STRING'NULL_PARAMETER; USRPRO : in STRING := STRING'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CHECK_ACCESS); pragma IMPORT_VALUED_PROCEDURE (CHECK_ACCESS, "SYS$CHECK_ACCESS", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, STRING, ITEM_LIST_TYPE, CONTEXT_TYPE, STRING, STRING, STRING), (VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (CHECK_ACCESS, "SYS$CHECK_ACCESS", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, STRING, ITEM_LIST_TYPE, ADDRESS, STRING, STRING, STRING), (VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S))); -- $CHECK_FEN -- -- Check if floating point enabled for current image -- procedure CHECK_FEN ( STATUS : out COND_VALUE_TYPE; -- return value RETMASK : out UNSIGNED_LONGWORD); procedure CHECK_FEN ( STATUS : out COND_VALUE_TYPE; -- return value RETMASK : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETMASK argument pragma INTERFACE (EXTERNAL, CHECK_FEN); pragma IMPORT_VALUED_PROCEDURE (CHECK_FEN, "SYS$CHECK_FEN", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (CHECK_FEN, "SYS$CHECK_FEN", (COND_VALUE_TYPE, ADDRESS), (VALUE, VALUE), RETMASK); -- $CHECK_PRIVILEGE[W] -- -- Check for process privilege and perform security audit. -- -- $CHECK_PRIVILEGE[W] [efn] ,prvadr ,[altprv] ,[flags] ,[itmlst] ,[audsts] ,[astadr] ,[astprm] -- -- efn = event flag to set on asynchronous service completion -- prvadr = address of quadword privilege mask or longword identifier -- altprv = address of quadword privilege mask to check against -- flags = control flags -- itmlst = address of a list of item descriptors -- audsts = longword to receive final completion status -- astadr = address of AST routine to call on service completion -- astprm = longword to pass to AST routine -- procedure CHECK_PRIVILEGE ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PRVADR : in ADDRESS; ALTPRV : in ADDRESS := ADDRESS_ZERO; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER; AUDSTS : out COND_VALUE_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure CHECK_PRIVILEGE ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PRVADR : in ADDRESS; ALTPRV : in ADDRESS := ADDRESS_ZERO; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER; AUDSTS : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUDSTS argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, CHECK_PRIVILEGE); pragma IMPORT_VALUED_PROCEDURE (CHECK_PRIVILEGE, "SYS$CHECK_PRIVILEGE", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE, COND_VALUE_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CHECK_PRIVILEGE, "SYS$CHECK_PRIVILEGE", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); procedure CHECK_PRIVILEGEW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PRVADR : in ADDRESS; ALTPRV : in ADDRESS := ADDRESS_ZERO; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER; AUDSTS : out COND_VALUE_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure CHECK_PRIVILEGEW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PRVADR : in ADDRESS; ALTPRV : in ADDRESS := ADDRESS_ZERO; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER; AUDSTS : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUDSTS argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, CHECK_PRIVILEGEW); pragma IMPORT_VALUED_PROCEDURE (CHECK_PRIVILEGEW, "SYS$CHECK_PRIVILEGEW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE, COND_VALUE_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CHECK_PRIVILEGEW, "SYS$CHECK_PRIVILEGEW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); -- -- $CHKPRO -- -- Check Access Protection -- -- $CHKPRO itmlst, [objpro], [usrpro] -- -- itmlst = address of a list of item descriptors -- objpro = address of object handle descriptor (ORB TLV) -- usrpro = address of user handle descriptor (ARB TLV) -- procedure CHKPRO ( STATUS : out COND_VALUE_TYPE; -- return value ITMLST : in ITEM_LIST_TYPE; OBJPRO : in ADDRESS := ADDRESS_ZERO; USRPRO : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, CHKPRO); pragma IMPORT_VALUED_PROCEDURE (CHKPRO, "SYS$CHKPRO", (COND_VALUE_TYPE, ITEM_LIST_TYPE, ADDRESS, ADDRESS), (VALUE, REFERENCE, VALUE, VALUE)); -- $CLEAR_SYSTEM_EVENT -- -- Clear System Event Notification -- -- $CLEAR_SYSTEM_EVENT [handle], [acmode], [event] -- -- handle = address of handle -- -- acmode = access mode of AST -- -- event = code indicating type of event -- procedure CLEAR_SYSTEM_EVENT ( STATUS : out COND_VALUE_TYPE; -- return value HANDLE : in ADDRESS := ADDRESS_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; EVENT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CLEAR_SYSTEM_EVENT); pragma IMPORT_VALUED_PROCEDURE (CLEAR_SYSTEM_EVENT, "SYS$CLEAR_SYSTEM_EVENT", (COND_VALUE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- $CLEAR_UNWIND_TABLE -- -- Clears unwind table (UT) information. -- -- $CLEAR_UNWIND_TABLE code_base_va -- -- code_base_va = process virtual address of the start of a registered code region -- procedure CLEAR_UNWIND_TABLE ( STATUS : out COND_VALUE_TYPE; -- return value CODE_BASE_VA : in UNSIGNED_QUADWORD := (0, 0)); pragma INTERFACE (EXTERNAL, CLEAR_UNWIND_TABLE); pragma IMPORT_VALUED_PROCEDURE (CLEAR_UNWIND_TABLE, "SYS$CLEAR_UNWIND_TABLE", (COND_VALUE_TYPE, UNSIGNED_QUADWORD), (VALUE, VALUE)); -- $CLRCLUEVT -- -- Clear Cluster Event Notification -- -- $CLRCLUEVT [handle], [acmode], [event] -- -- handle = address of handle -- -- acmode = access mode of AST -- -- event = code indicating type of event -- procedure CLRCLUEVT ( STATUS : out COND_VALUE_TYPE; -- return value HANDLE : in ADDRESS := ADDRESS_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; EVENT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CLRCLUEVT); pragma IMPORT_VALUED_PROCEDURE (CLRCLUEVT, "SYS$CLRCLUEVT", (COND_VALUE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- -- $CLREF -- -- Clear Event Flag -- -- $CLREF efn -- -- efn = number of event flag to be cleared -- procedure CLREF ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE); pragma INTERFACE (EXTERNAL, CLREF); pragma IMPORT_VALUED_PROCEDURE (CLREF, "SYS$CLREF", (COND_VALUE_TYPE, EF_NUMBER_TYPE), (VALUE, VALUE)); -- -- $CLOSE -- -- Close File -- -- $CLOSE fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure CLOSE ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CLOSE); pragma IMPORT_VALUED_PROCEDURE (CLOSE, "SYS$CLOSE", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $CMEXEC -- -- Change to Executive Mode -- -- $CMEXEC routin ,[arglst] -- -- routin = address of the routine to be executed in executive -- mode -- arglst = address of argument list to be supplied to the -- routine -- procedure CMEXEC ( STATUS : out COND_VALUE_TYPE; -- return value ROUTIN : in ADDRESS; ARGLST : in ARG_LIST_TYPE := ARG_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CMEXEC); pragma IMPORT_VALUED_PROCEDURE (CMEXEC, "SYS$CMEXEC", (COND_VALUE_TYPE, ADDRESS, ARG_LIST_TYPE), (VALUE, VALUE, REFERENCE)); -- -- $CMEXEC_64 -- -- Change to Executive Mode with Quadword Argument List -- -- $CMEXEC_64 routin_64 ,[arglst_64] -- -- routin_64 = address of the routine to be executed in executive -- mode -- arglst_64 = address of quadword argument list to be supplied to the -- routine -- procedure CMEXEC_64 ( STATUS : out COND_VALUE_TYPE; -- return value ROUTIN_64 : in ADDRESS; ARGLST_64 : out UNSIGNED_QUADWORD_ARRAY); procedure CMEXEC_64 ( STATUS : out COND_VALUE_TYPE; -- return value ROUTIN_64 : in ADDRESS; ARGLST_64 : in ADDRESS := ADDRESS_ZERO); -- To omit optional ARGLST_64 argument pragma INTERFACE (EXTERNAL, CMEXEC_64); pragma IMPORT_VALUED_PROCEDURE (CMEXEC_64, "SYS$CMEXEC_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD_ARRAY), (VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (CMEXEC_64, "SYS$CMEXEC_64", (COND_VALUE_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE)); -- $CMKRNL -- -- Change to Kernel Mode -- -- $CMKRNL routin ,[arglst] -- -- routin = address of routine to be executed in kernel mode -- -- arglst = address of argument list to be supplied to routine -- procedure CMKRNL ( STATUS : out COND_VALUE_TYPE; -- return value ROUTIN : in ADDRESS; ARGLST : in ARG_LIST_TYPE := ARG_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CMKRNL); pragma IMPORT_VALUED_PROCEDURE (CMKRNL, "SYS$CMKRNL", (COND_VALUE_TYPE, ADDRESS, ARG_LIST_TYPE), (VALUE, VALUE, REFERENCE)); -- $CMKRNL_64 -- -- Change to Kernel Mode with Quadword Argument List -- -- $CMKRNL_64 routin_64 ,[arglst_64] -- -- routin_64 = address of routine to be executed in kernel mode -- -- arglst_64 = address of quadword argument list to be supplied to routine -- procedure CMKRNL_64 ( STATUS : out COND_VALUE_TYPE; -- return value ROUTIN_64 : in ADDRESS; ARGLST_64 : in UNSIGNED_QUADWORD_ARRAY := UNSIGNED_QUADWORD_ARRAY'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CMKRNL_64); pragma IMPORT_VALUED_PROCEDURE (CMKRNL_64, "SYS$CMKRNL_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD_ARRAY), (VALUE, VALUE, REFERENCE)); -- -- $CONNECT -- -- Connect File -- -- $CONNECT rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure CONNECT ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CONNECT); pragma IMPORT_VALUED_PROCEDURE (CONNECT, "SYS$CONNECT", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $CNTREG -- -- Contract Program/Control Region -- -- $CNTREG pagcnt ,[retadr] ,[acmode] ,[region] -- -- pagcnt = number of pages to be deleted from end of region -- -- retadr = address of 2-longword array to receive virtual -- addresses of starting and ending page of deleted area -- -- acmode = access mode for which service is performed -- -- region = region indicator -- 0 -> program (P0) region 1 -> control (P1) region -- procedure CNTREG ( STATUS : out COND_VALUE_TYPE; -- return value PAGCNT : in UNSIGNED_LONGWORD; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; REGION : in UNSIGNED_LONGWORD := FALSE); procedure CNTREG ( STATUS : out COND_VALUE_TYPE; -- return value PAGCNT : in UNSIGNED_LONGWORD; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; REGION : in UNSIGNED_LONGWORD := FALSE); pragma INTERFACE (EXTERNAL, CNTREG); pragma IMPORT_VALUED_PROCEDURE (CNTREG, "SYS$CNTREG", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CNTREG, "SYS$CNTREG", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE)); -- -- $CPU_CAPABILITIES -- -- Modify CPU user capabilities -- -- $CPU_CAPABILITIES cpu_id,[select_mask],[modify_mask],[prev_mask],[flags] -- -- cpu_id = CPUID number of processor to be affected by changes -- select_mask = address of bitmask indicating which capabilities -- are to be involved in the specified operation -- modify_mask = address of bitmask indicating final state -- of those capabilities specified in select_mask -- prev_mask = address of user quadword that will hold the -- previous states of the individual capabilities -- flags = address of behavioral flags for this operation -- procedure CPU_CAPABILITIES ( STATUS : out COND_VALUE_TYPE; -- return value CPU_ID : in INTEGER := 0; SELECT_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; MODIFY_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; PREV_MASK : out MASK_QUADWORD_TYPE; FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure CPU_CAPABILITIES ( STATUS : out COND_VALUE_TYPE; -- return value CPU_ID : in INTEGER := 0; SELECT_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; MODIFY_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; PREV_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional PREV_MASK argument FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CPU_CAPABILITIES); pragma IMPORT_VALUED_PROCEDURE (CPU_CAPABILITIES, "SYS$CPU_CAPABILITIES", (COND_VALUE_TYPE, INTEGER, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (CPU_CAPABILITIES, "SYS$CPU_CAPABILITIES", (COND_VALUE_TYPE, INTEGER, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE)); -- -- $CPU_TRANSITION -- $CPU_TRANSITIONW -- -- CPU State Transitions -- -- $CPU_TRANSITION tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprm -- $CPU_TRANSITIONW tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprm -- Inputs: tran_code - Transition code of operation to be initiated -- cpu_id - CPU ID of processor to affected -- nodename - ASCII descriptor name equivalent to node ID -- node_id - Galactic node ID -- flags - Quadword pointer to longword behavioral flags -- efn - Event flag number for completion notification -- iosb - IOSB block address for completion notification -- astadr - Address of AST routine name on completion -- astprm - AST parameter to be passed back on completion -- timout - Timeout count in seconds -- procedure CPU_TRANSITION ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; CPU_ID : in INTEGER := 0; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TIMOUT : in UNSIGNED_LONGWORD := 0); procedure CPU_TRANSITION ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; CPU_ID : in INTEGER := 0; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TIMOUT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CPU_TRANSITION); pragma IMPORT_VALUED_PROCEDURE (CPU_TRANSITION, "SYS$CPU_TRANSITION", (COND_VALUE_TYPE, INTEGER, INTEGER, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CPU_TRANSITION, "SYS$CPU_TRANSITION", (COND_VALUE_TYPE, INTEGER, INTEGER, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); procedure CPU_TRANSITIONW ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; CPU_ID : in INTEGER := 0; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TIMOUT : in UNSIGNED_LONGWORD := 0); procedure CPU_TRANSITIONW ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; CPU_ID : in INTEGER := 0; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TIMOUT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CPU_TRANSITIONW); pragma IMPORT_VALUED_PROCEDURE (CPU_TRANSITIONW, "SYS$CPU_TRANSITIONW", (COND_VALUE_TYPE, INTEGER, INTEGER, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CPU_TRANSITIONW, "SYS$CPU_TRANSITIONW", (COND_VALUE_TYPE, INTEGER, INTEGER, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); -- -- $CREATE -- -- Create File -- -- $CREATE fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure CREATE ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREATE); pragma IMPORT_VALUED_PROCEDURE (CREATE, "SYS$CREATE", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $CREATE_MAPPING -- -- Create Mapping record database -- -- $CREATE_MAPPING -- procedure CREATE_MAPPING ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, CREATE_MAPPING); pragma IMPORT_VALUED_PROCEDURE (CREATE_MAPPING, "SYS$CREATE_MAPPING", (COND_VALUE_TYPE), (VALUE)); -- -- $CREATE_PROXY -- -- Create proxy database -- -- $CREATE_PROXY -- -- procedure CREATE_PROXY ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, CREATE_PROXY); pragma IMPORT_VALUED_PROCEDURE (CREATE_PROXY, "SYS$CREATE_PROXY", (COND_VALUE_TYPE), (VALUE)); -- -- $CREATE_UID -- -- Create a Universal Identifier -- -- $CREATE_UID UID -- -- UID = address of the 16 byte buffer to receive the UID. -- procedure CREATE_UID ( STATUS : out COND_VALUE_TYPE; -- return value UID : out UID_TYPE); pragma INTERFACE (EXTERNAL, CREATE_UID); pragma IMPORT_VALUED_PROCEDURE (CREATE_UID, "SYS$CREATE_UID", (COND_VALUE_TYPE, UID_TYPE), (VALUE, REFERENCE)); -- $CREATE_BUFOBJ -- -- Create I/O Buffer Object -- -- $CREATE_BUFOBJ inadr ,[retadr] ,[acmode] ,[flags] ,buffer_handle -- -- inadr = address of 2-longword array containing starting and ending -- virtual addresses of existing VA to include in buffer object -- -- retadr = address of 2-longword array to receive addresses -- actually included in the buffer object -- -- acmode = access mode of owner of buffer object -- -- flags = request option flags -- -- Bit Meaning (if set) -- -- 0 Return system virtual address of buffer object in RETADR -- (Caller must be in kernel mode) -- -- buffer_handle = address of a quadword to receive the buffer handle -- that identifies the created buffer object -- procedure CREATE_BUFOBJ ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE := ADDRESS_RANGE_TYPE'NULL_PARAMETER; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; BUFFER_HANDLE : out UNSIGNED_LONGWORD_ARRAY); procedure CREATE_BUFOBJ ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE := ADDRESS_RANGE_TYPE'NULL_PARAMETER; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; BUFFER_HANDLE : in ADDRESS := ADDRESS_ZERO); -- To omit optional BUFFER_HANDLE argument procedure CREATE_BUFOBJ ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE := ADDRESS_RANGE_TYPE'NULL_PARAMETER; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; BUFFER_HANDLE : in ADDRESS := ADDRESS_ZERO); -- To omit optional BUFFER_HANDLE argument procedure CREATE_BUFOBJ ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE := ADDRESS_RANGE_TYPE'NULL_PARAMETER; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; BUFFER_HANDLE : out UNSIGNED_LONGWORD_ARRAY); pragma INTERFACE (EXTERNAL, CREATE_BUFOBJ); pragma IMPORT_VALUED_PROCEDURE (CREATE_BUFOBJ, "SYS$CREATE_BUFOBJ", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD_ARRAY), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (CREATE_BUFOBJ, "SYS$CREATE_BUFOBJ", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CREATE_BUFOBJ, "SYS$CREATE_BUFOBJ", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CREATE_BUFOBJ, "SYS$CREATE_BUFOBJ", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD_ARRAY), (VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE)); -- $CREATE_BUFOBJ_64 -- -- Create I/O Buffer Object -- -- $CREATE_BUFOBJ_64 start_va_64, length_64, acmode, flags, return_va_64, return_length_64, -- buffer_handle_64 -- -- start_va_64 = Starting address of existing address to include in buffer object -- -- length_64 = Byte length of addresses to include in buffer object -- -- acmode = access mode of owner of buffer object -- -- flags = request option flags -- -- Flag Meaning (if specified) -- -- CBO_M_RETSVA Return system virtual address of buffer object in return_va_64 -- (Caller must be in kernel mode) -- CBO_M_SVA_32 Create buffer object window in 32-bit (S0/S1) system space -- -- return_va_64 = Address of buffer object created -- -- return_length_64 = Length of buffer object created -- -- buffer_handle_64 = address of a quadword to receive the buffer handle -- that identifies the created buffer object -- procedure CREATE_BUFOBJ_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; BUFFER_HANDLE_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, CREATE_BUFOBJ_64); pragma IMPORT_VALUED_PROCEDURE (CREATE_BUFOBJ_64, "SYS$CREATE_BUFOBJ_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE)); -- $CREATE_GFILE -- -- Create Permanent Global Disk File Section -- -- $CREATE_GFILE gsdnam_64, ident_64, file_offset_64, length_64, chan, acmode, flags, -- return_length_64[, fault_cluster] -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- file_offset_64 = Byte offset into file to start section -- -- length_64 = Byte length of section to create -- -- chan = Number of channel on which file is accessed -- -- acmode = Access mode for section -- -- flags = Section characteristics -- -- Flag Meaning -- -- SEC$M_CRF Copy-on-reference section -- SEC$M_SYSGBL System global section -- SEC$M_WRT Read/write section -- -- return_length_64 = Length of section created -- -- fault_cluster = Page fault cluster size in bytes -- procedure CREATE_GFILE ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; FILE_OFFSET_64 : in UNSIGNED_QUADWORD := (0, 0); LENGTH_64 : in UNSIGNED_QUADWORD := (0, 0); CHAN : in CHANNEL_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; FAULT_CLUSTER : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREATE_GFILE); pragma IMPORT_VALUED_PROCEDURE (CREATE_GFILE, "SYS$CREATE_GFILE", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, CHANNEL_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE), FAULT_CLUSTER); -- $CREATE_GDZRO -- -- Create Permanent Global Demand Zero Section -- -- $CREATE_GDZRO gsdnam_64, ident_64, prot, length_64, acmode, flags[[, reserved_length], rad_mask] -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- prot = Protection mask -- -- length_64 = Byte length of section to create -- -- acmode = Access mode for section -- -- flags = Section characteristics -- -- Flag Meaning -- -- SEC$M_SYSGBL System global section -- -- SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from -- -- reserved_length_64 = Length of memory reserved for this global section -- -- rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory procedure CREATE_GDZRO ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; PROT : in FILE_PROTECTION_TYPE := 0; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RESERVED_LENGTH_64 : out UNSIGNED_QUADWORD; RAD_MASK : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure CREATE_GDZRO ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; PROT : in FILE_PROTECTION_TYPE := 0; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RESERVED_LENGTH_64 : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESERVED_LENGTH_64 argument RAD_MASK : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREATE_GDZRO); pragma IMPORT_VALUED_PROCEDURE (CREATE_GDZRO, "SYS$CREATE_GDZRO", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, FILE_PROTECTION_TYPE, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE), RAD_MASK); pragma IMPORT_VALUED_PROCEDURE (CREATE_GDZRO, "SYS$CREATE_GDZRO", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, FILE_PROTECTION_TYPE, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE), RESERVED_LENGTH_64); -- $CREATE_GPFILE -- -- Create Permanent Global Page File Section -- -- $CREATE_GPFILE gsdnam_64, ident_64, prot, length_64, acmode, flags -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- prot = Protection mask -- -- length_64 = Byte length of section to create -- -- acmode = Access mode for section -- -- flags = Section characteristics -- -- Flag Meaning -- -- SEC$M_SYSGBL System global section -- procedure CREATE_GPFILE ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; PROT : in FILE_PROTECTION_TYPE := 0; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CREATE_GPFILE); pragma IMPORT_VALUED_PROCEDURE (CREATE_GPFILE, "SYS$CREATE_GPFILE", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, FILE_PROTECTION_TYPE, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE)); -- $CREATE_GPFN -- -- Create Permanent Global Page Frame Section -- -- $CREATE_GPFN gsdnam_64, ident_64, prot, start_pfn, page_count, acmode, flags -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- prot = Protection mask -- -- start_pfn = Page frame number of first page in section -- -- page_count = Number of page frames in section -- -- acmode = Access mode for section -- -- flags = Section characteristics -- -- Flag Meaning -- -- SEC$M_ARGS64 All arguments are passed as 64-bits -- SEC$M_SYSGBL System global section -- procedure CREATE_GPFN ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; PROT : in FILE_PROTECTION_TYPE := 0; START_PFN : in UNSIGNED_QUADWORD; PAGE_COUNT : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CREATE_GPFN); pragma IMPORT_VALUED_PROCEDURE (CREATE_GPFN, "SYS$CREATE_GPFN", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, FILE_PROTECTION_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- -- $CREATE_RDB -- -- Create The Rights Database -- -- $CREATE_RDB [sysid] -- -- sysid = address of the quadword system identifier -- to store in the maintenance record -- procedure CREATE_RDB ( STATUS : out COND_VALUE_TYPE; -- return value SYSID : in SYSTEM_ACCESS_ID_TYPE := SYSTEM_ACCESS_ID_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREATE_RDB); pragma IMPORT_VALUED_PROCEDURE (CREATE_RDB, "SYS$CREATE_RDB", (COND_VALUE_TYPE, SYSTEM_ACCESS_ID_TYPE), (VALUE, REFERENCE)); -- $CREATE_REGION_64 -- -- Create Virtual Address Region -- -- $CREATE_REGION_64 length_64, region_prot, flags, return_region_id_64, return_va_64, -- return_length_64[, start_va_64] -- -- length_64 = Byte length of region to create -- -- region_prot = Protection on region -- -- flags = Region characteristics -- -- return_region_id_64 = Region id associated with newly created region -- -- return_va_64 = Starting address of region created -- -- return_length_64 = Length of region created -- -- start_va_64 = Starting address to create region procedure CREATE_REGION_64 ( STATUS : out COND_VALUE_TYPE; -- return value LENGTH_64 : in UNSIGNED_QUADWORD := (0, 0); REGION_PROT : in UNSIGNED_LONGWORD := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_REGION_ID : out UNSIGNED_QUADWORD; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREATE_REGION_64); pragma IMPORT_VALUED_PROCEDURE (CREATE_REGION_64, "SYS$CREATE_REGION_64", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE), START_VA_64); -- -- $CREATE_USER_PROFILE -- -- Create a user security profile. -- -- $CREATE_USER_PROFILE [usrnam], [itmlst], [flags], usrpro, usrprolen, [context] -- -- usrnam = address of username descriptor (optional with CHP$M_NOACCESS) -- itmlst = address of item list -- flags = flags longword -- usrpro = address of buffer to receive user profile (opaque byte string) -- usrprolen = address of longword to receive user profile length -- contxt = address of longword to receive UAI context -- procedure CREATE_USER_PROFILE ( STATUS : out COND_VALUE_TYPE; -- return value USRNAM : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; USRPRO : out UNSIGNED_BYTE_ARRAY; USRPROLEN : in out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure CREATE_USER_PROFILE ( STATUS : out COND_VALUE_TYPE; -- return value USRNAM : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; USRPRO : out UNSIGNED_BYTE_ARRAY; USRPROLEN : in out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument pragma INTERFACE (EXTERNAL, CREATE_USER_PROFILE); pragma IMPORT_VALUED_PROCEDURE (CREATE_USER_PROFILE, "SYS$CREATE_USER_PROFILE", (COND_VALUE_TYPE, STRING, ITEM_LIST_TYPE, UNSIGNED_LONGWORD, UNSIGNED_BYTE_ARRAY, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (CREATE_USER_PROFILE, "SYS$CREATE_USER_PROFILE", (COND_VALUE_TYPE, STRING, ITEM_LIST_TYPE, UNSIGNED_LONGWORD, UNSIGNED_BYTE_ARRAY, UNSIGNED_LONGWORD, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $CRELNM -- -- Create Logical Name -- -- $CRELNM [attr], tabnam, lognam, [acmode], [itemlist] -- -- attr = address of logical name attributes -- -- Attribute Meaning -- LNM$M_CONFINE Logical name not to be copied into sub-process -- LNM$M_NO_ALIAS Logical name can not be aliased -- LNM$M_CRELOG Logical name created using $CRELOG -- -- tabnam = address of logical name table string descriptor -- -- lognam = address of logical name string descriptor -- -- acmode = address of access mode for logical name -- -- itmlst = address of a list of item descriptors -- procedure CRELNM ( STATUS : out COND_VALUE_TYPE; -- return value ATTR : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; TABNAM : in LOGICAL_NAME_TYPE; LOGNAM : in LOGICAL_NAME_TYPE; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRELNM); pragma IMPORT_VALUED_PROCEDURE (CRELNM, "SYS$CRELNM", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, LOGICAL_NAME_TYPE, LOGICAL_NAME_TYPE, ACCESS_MODE_TYPE, ITEM_LIST_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE)); -- $CRELNT -- -- Create Logical Name Table -- -- $CRELNT [attr], [resnam], [reslen], [quota], -- [promsk], [tabnam], [acmode], [partab], [uic] -- -- attr = address of logical name table attributes -- -- resnam = address of descriptor of a buffer to receive the -- created table's name -- -- reslen = address of word to recieve length of created table's -- name -- -- quota = address of quota associated with logical name table -- -- promsk = address of protection mask -- -- tabnam = address of descriptor of logical name table name to be created -- -- partab = address of name of table parent string descriptor -- -- acmode = address of access mode for logical name -- -- uic = owner of table created in response to remote request -- procedure CRELNT ( STATUS : out COND_VALUE_TYPE; -- return value ATTR : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; RESNAM : out LOGICAL_NAME_TYPE; RESLEN : out UNSIGNED_WORD; QUOTA : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PROMSK : in FILE_PROTECTION_TYPE := FILE_PROTECTION_TYPE'NULL_PARAMETER; TABNAM : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; PARTAB : in STRING; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; UIC : in UIC_LONGWORD_TYPE := UIC_LONGWORD_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRELNT); pragma IMPORT_VALUED_PROCEDURE (CRELNT, "SYS$CRELNT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, LOGICAL_NAME_TYPE, UNSIGNED_WORD, UNSIGNED_LONGWORD, FILE_PROTECTION_TYPE, LOGICAL_NAME_TYPE, STRING, ACCESS_MODE_TYPE, UIC_LONGWORD_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE), UIC); -- $CRELOG -- -- Create Logical Name -- -- $CRELOG [tblflg] ,lognam ,eqlnam ,[acmode] -- -- tblflg = logical name table number -- 0 -> system (default) 1 -> group 2 -> process -- -- lognam = address of logical name string descriptor -- -- eqlnam = address of equivalence name string descriptor -- -- acmode = access mode for logical name (process table only) -- procedure CRELOG ( STATUS : out COND_VALUE_TYPE; -- return value TBLFLG : in UNSIGNED_LONGWORD := 0; LOGNAM : in LOGICAL_NAME_TYPE; EQLNAM : in LOGICAL_NAME_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, CRELOG); pragma IMPORT_VALUED_PROCEDURE (CRELOG, "SYS$CRELOG", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, LOGICAL_NAME_TYPE, LOGICAL_NAME_TYPE, ACCESS_MODE_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE)); -- $CREMBX -- -- Create Mailbox and Assign Channel -- -- $CREMBX [prmflg] ,chan ,[maxmsg] ,[bufquo] ,[promsk] ,[acmode] ,[lognam], [flags] -- -- prmflg = permanent flag -- 0 -> temporary (default) 1 -> permanent -- -- chan = address of word to receive channel -- -- maxmsg = maximum message size that may be received -- -- bufquo = number of bytes that can be used to buffer messages -- -- promsk = protection mask -- -- acmode = access mode of created mailbox -- -- lognam = address of logical name string descriptor for mailbox -- -- flags = optional flags for mailbox creation and channel assignment -- procedure CREMBX ( STATUS : out COND_VALUE_TYPE; -- return value PRMFLG : in BOOLEAN := FALSE; CHAN : out CHANNEL_TYPE; MAXMSG : in UNSIGNED_LONGWORD := 0; BUFQUO : in UNSIGNED_LONGWORD := 0; PROMSK : in FILE_PROTECTION_TYPE := 0; ACMODE : in ACCESS_MODE_TYPE := 0; LOGNAM : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREMBX); pragma IMPORT_VALUED_PROCEDURE (CREMBX, "SYS$CREMBX", (COND_VALUE_TYPE, BOOLEAN, CHANNEL_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, FILE_PROTECTION_TYPE, ACCESS_MODE_TYPE, LOGICAL_NAME_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE), FLAGS); -- $CREPRC -- -- Create Process -- -- $CREPRC [pidadr] ,[image] ,[input] ,[output] ,[error] ,[prvadr] -- ,[quota] ,[prcnam] ,[baspri] ,[uic] ,[mbxunt] ,[stsflg] ,[itmlst] -- ,[node], [home_rad]. [lt_limit] -- -- pidadr = address of longword to return id of created process -- -- image = address of string descriptor for image name -- -- input = address of string descriptor for SYS$INPUT -- -- output = address of string descriptor for SYS$OUTPUT -- -- error = address of string descriptor for SYS$ERROR -- -- prvadr = address of quadword privilege list -- -- quota = address of quota list -- -- prcnam = address of string descriptor for process name -- -- baspri = base priority (0-31) -- -- uic = user identification code. If 0, create a subprocess -- -- mbxunt = mailbox unit for termination message -- -- stsflg = status and mode flag bits -- -- Bit Meaning -- -- 0 disable resource wait mode -- 1 enable system service failure exception mode -- 2 inhibit process swapping -- 3 disable accounting messages -- 4 batch process -- 5 cause created process to hibernate -- 6 allow login without authorization file check -- 7 process is a network connect object -- 22 start process on specified home rad -- 26 set kernel thread limit for the process -- -- itmlst = address of a list of item descriptors -- -- node = address of string descriptor for SCS node name -- -- home_rad = RAD to start process on, if bit 22 in stsflg is set -- -- kt_limit = kernel thread limit of the process, if bit 26 in stsflg is set procedure CREPRC ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : out PROCESS_ID_TYPE; IMAGE : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; INPUT : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; OUTPUT : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; ERROR : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; PRVADR : in MASK_PRIVILEGES_TYPE := MASK_PRIVILEGES_TYPE'NULL_PARAMETER; QUOTA : in ITEM_QUOTA_LIST_TYPE := ITEM_QUOTA_LIST_TYPE'NULL_PARAMETER; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; BASPRI : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_2; UIC : in UIC_LONGWORD_TYPE := 0; MBXUNT : in UNSIGNED_WORD := 0; STSFLG : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; NODE : in STRING := STRING'NULL_PARAMETER; HOME_RAD : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; KT_LIMIT : in INTEGER := INTEGER'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREPRC); pragma IMPORT_VALUED_PROCEDURE (CREPRC, "SYS$CREPRC", (COND_VALUE_TYPE, PROCESS_ID_TYPE, LOGICAL_NAME_TYPE, LOGICAL_NAME_TYPE, LOGICAL_NAME_TYPE, LOGICAL_NAME_TYPE, MASK_PRIVILEGES_TYPE, ITEM_QUOTA_LIST_TYPE, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, UIC_LONGWORD_TYPE, UNSIGNED_WORD, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, STRING, UNSIGNED_LONGWORD, INTEGER), (VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE), HOME_RAD); -- $CRETVA -- -- Create Virtual Address Space -- -- $CRETVA inadr ,[retadr] ,[acmode] -- -- inadr = address of 2-longword array containing starting and -- ending virtual address of pages to be created -- -- retadr = address of a 2-longword array to receive starting and -- ending virtual address of pages actually created -- -- acmode = access mode for the new pages (protection is -- read/write for acmode and more privileged modes) -- procedure CRETVA ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); procedure CRETVA ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, CRETVA); pragma IMPORT_VALUED_PROCEDURE (CRETVA, "SYS$CRETVA", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CRETVA, "SYS$CRETVA", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE)); -- $CRETVA_64 -- -- Create Virtual Address Space -- -- $CRETVA_64 region_id_64, start_va_64, length_64, acmode, flags, return_va_64, return_length_64 -- [, page_prot] -- -- region_id_64 = Address of quadword region id -- -- start_va_64 = Starting address of address space to create -- -- length_64 = Byte length of addresses to create -- -- acmode = access mode for the new pages (protection is -- read/write for acmode and more privileged modes) -- -- flags = Address space creation flags -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- page_prot = desired page protection (optional) -- procedure CRETVA_64 ( STATUS : out COND_VALUE_TYPE; -- return value REGION_ID_64 : in UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; PAGE_PROT : in PAGE_PROTECTION_TYPE := PAGE_PROTECTION_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRETVA_64); pragma IMPORT_VALUED_PROCEDURE (CRETVA_64, "SYS$CRETVA_64", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, PAGE_PROTECTION_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE), PAGE_PROT); -- $CRMPSC -- -- Create and Map Section -- -- $CRMPSC [inadr] ,[retadr] ,[acmode] ,[flags] ,[gsdnam] ,[ident] -- ,[relpag] ,[chan] ,[pagcnt] ,[vbn] ,[prot] ,[pfc] -- -- inadr = address of 2-longword array containing starting and -- ending virtual addresses of space to map section -- -- retadr = address of 2-longword array to receive addresses -- actually mapped -- -- acmode = access mode of owner of pages -- -- flags = section characteristics -- -- Flag Meaning -- -- SEC$M_GBL Global section -- SEC$M_CRF Copy-on-reference section -- SEC$M_DZRO Demand zero pages -- SEC$M_EXPREG Find first available space -- SEC$M_PERM Permanent section -- SEC$M_PFNMAP Physical page frame section -- SEC$M_SYSGBL System global section -- SEC$M_WRT Read/write section -- -- gsdnam = address of global section name string descriptor -- -- ident = address of quadword containing version id and match control -- -- relpag = relative page number within section -- -- chan = number of channel on which file is accessed -- -- pagcnt = number of pages in section -- -- vbn = virtual block number of beginning of section or -- physical page frame number of beginning of section -- -- prot = protection mask -- -- pfc = page fault cluster size -- procedure CRMPSC ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE := ADDRESS_RANGE_TYPE'NULL_PARAMETER; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; GSDNAM : in SECTION_NAME_TYPE := SECTION_NAME_TYPE'NULL_PARAMETER; IDENT : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; RELPAG : in UNSIGNED_LONGWORD := 0; CHAN : in CHANNEL_TYPE := 0; PAGCNT : in UNSIGNED_LONGWORD := 0; VBN : in UNSIGNED_LONGWORD := 0; PROT : in FILE_PROTECTION_TYPE := 0; PFC : in UNSIGNED_LONGWORD := 0); procedure CRMPSC ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE := ADDRESS_RANGE_TYPE'NULL_PARAMETER; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; GSDNAM : in SECTION_NAME_TYPE := SECTION_NAME_TYPE'NULL_PARAMETER; IDENT : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; RELPAG : in UNSIGNED_LONGWORD := 0; CHAN : in CHANNEL_TYPE := 0; PAGCNT : in UNSIGNED_LONGWORD := 0; VBN : in UNSIGNED_LONGWORD := 0; PROT : in FILE_PROTECTION_TYPE := 0; PFC : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, CRMPSC); pragma IMPORT_VALUED_PROCEDURE (CRMPSC, "SYS$CRMPSC", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, SECTION_NAME_TYPE, SECTION_ID_TYPE, UNSIGNED_LONGWORD, CHANNEL_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, FILE_PROTECTION_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CRMPSC, "SYS$CRMPSC", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, SECTION_NAME_TYPE, SECTION_ID_TYPE, UNSIGNED_LONGWORD, CHANNEL_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, FILE_PROTECTION_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- $CRMPSC_FILE_64 -- -- Create and Map Private Disk File Section -- -- $CRMPSC_FILE_64 region_id_64, file_offset_64, length_64, chan, acmode, flags, -- return_va_64, return_length_64 -- [, fault_cluster[, start_va_64[, page_prot]]] -- -- region_id_64 = Address of quadword region id -- -- file_offset_64 = Byte offset into file to start section -- -- length_64 = Byte length of addresses to create -- -- chan = number of channel on which file is accessed -- -- acmode = access mode for the new pages -- -- flags = section characteristics -- -- Flag Meaning -- -- SEC$M_CRF Copy-on-reference section -- SEC$M_DZRO Demand zero pages -- SEC$M_EXPREG Find first available space -- SEC$M_NO_OVERMAP Do not overmap existing address space -- SEC$M_WRT Read/write section -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- fault_cluster = Page fault cluster size in bytes -- -- start_va_64 = Starting address of address space to create -- -- page_prot = Desired page protection (optional) -- procedure CRMPSC_FILE_64 ( STATUS : out COND_VALUE_TYPE; -- return value REGION_ID_64 : in UNSIGNED_QUADWORD; FILE_OFFSET_64 : in UNSIGNED_QUADWORD := (0, 0); LENGTH_64 : in UNSIGNED_QUADWORD := (0, 0); CHAN : in CHANNEL_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; FAULT_CLUSTER : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; PAGE_PROT : in PAGE_PROTECTION_TYPE := PAGE_PROTECTION_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRMPSC_FILE_64); pragma IMPORT_VALUED_PROCEDURE (CRMPSC_FILE_64, "SYS$CRMPSC_FILE_64", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, CHANNEL_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD, ADDRESS, PAGE_PROTECTION_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE), FAULT_CLUSTER); -- $CRMPSC_GFILE_64 -- -- Create and Map Global Disk File Section -- -- $CRMPSC_GFILE_64 gsdnam_64, ident_64, file_offset_64, length_64, chan, region_id_64, -- section_offset_64, acmode, flags, return_va_64, return_length_64 -- [, fault_cluster[, start_va_64[, map_length_64[, page_prot]]]] -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- file_offset_64 = Byte offset into file to start section -- -- length_64 = Byte length of section to create -- -- chan = number of channel on which file is accessed -- -- region_id_64 = Address of quadword region id -- -- section_offset_64 = Relative byte within global section to start mapping -- -- acmode = access mode for the new pages -- -- flags = section characteristics -- -- Flag Meaning -- -- SEC$M_CRF Copy-on-reference section -- SEC$M_EXPREG Find first available space -- SEC$M_NO_OVERMAP Do not overmap existing address space -- SEC$M_PERM Permanent section -- SEC$M_SYSGBL System global section -- SEC$M_WRT Read/write section -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- fault_cluster = Page fault cluster size in bytes -- -- start_va_64 = Starting address of address space to create -- -- map_length_64 = Byte length of address space to map -- procedure CRMPSC_GFILE_64 ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; FILE_OFFSET_64 : in UNSIGNED_QUADWORD := (0, 0); LENGTH_64 : in UNSIGNED_QUADWORD := (0, 0); CHAN : in CHANNEL_TYPE; REGION_ID_64 : in UNSIGNED_QUADWORD; SECTION_OFFSET_64 : in UNSIGNED_QUADWORD := (0, 0); ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; FAULT_CLUSTER : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; MAP_LENGTH_64 : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRMPSC_GFILE_64); pragma IMPORT_VALUED_PROCEDURE (CRMPSC_GFILE_64, "SYS$CRMPSC_GFILE_64", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, CHANNEL_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE), FAULT_CLUSTER); -- $CRMPSC_GDZRO_64 -- -- Create and Map Global Demand Zero Section -- -- $CRMPSC_GDZRO_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64, -- acmode, flags, return_va_64, return_length_64 -- [, start_va_64[, map_length_64[, reserved_length_64[, rad_mask[, page_prot]]]]] -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- prot = Protection mask -- -- length_64 = Byte length of section to create -- -- region_id_64 = Address of quadword region id -- -- section_offset_64 = Relative byte within global section to start mapping -- -- acmode = access mode for the new pages -- -- flags = section characteristics -- -- Flag Meaning -- -- SEC$M_EXPREG Find first available space -- SEC$M_NO_OVERMAP Do not overmap existing address space -- SEC$M_PERM Permanent section -- SEC$M_SYSGBL System global section -- SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- start_va_64 = Starting address of address space to create -- -- map_length_64 = Byte length of address space to map -- -- reserved_length_64 = Length of memory reserved for this global section -- -- rad_mask = If SEC$M_RAD_HINT is set, bitmask of RADs from which to allocate memory -- procedure CRMPSC_GDZRO_64 ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; PROT : in FILE_PROTECTION_TYPE := 0; LENGTH_64 : in UNSIGNED_QUADWORD := (0, 0); REGION_ID_64 : in UNSIGNED_QUADWORD; SECTION_OFFSET_64 : in UNSIGNED_QUADWORD := (0, 0); ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; MAP_LENGTH_64 : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER; RESERVED_LENGTH_64 : out UNSIGNED_QUADWORD; RAD_MASK : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure CRMPSC_GDZRO_64 ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; PROT : in FILE_PROTECTION_TYPE := 0; LENGTH_64 : in UNSIGNED_QUADWORD := (0, 0); REGION_ID_64 : in UNSIGNED_QUADWORD; SECTION_OFFSET_64 : in UNSIGNED_QUADWORD := (0, 0); ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; MAP_LENGTH_64 : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER; RESERVED_LENGTH_64 : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESERVED_LENGTH_64 argument RAD_MASK : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRMPSC_GDZRO_64); pragma IMPORT_VALUED_PROCEDURE (CRMPSC_GDZRO_64, "SYS$CRMPSC_GDZRO_64", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, FILE_PROTECTION_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, REFERENCE), RAD_MASK); pragma IMPORT_VALUED_PROCEDURE (CRMPSC_GDZRO_64, "SYS$CRMPSC_GDZRO_64", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, FILE_PROTECTION_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE), START_VA_64); -- $CRMPSC_GPFILE_64 -- -- Create and Map Global Page File Section -- -- $CRMPSC_GPFILE_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64, -- acmode, flags, return_va_64, return_length_64 -- [, start_va_64[, map_length_64[, page_prot]]] -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- prot = Protection mask -- -- length_64 = Byte length of section to create -- -- region_id_64 = Address of quadword region id -- -- section_offset_64 = Relative byte within global section to start mapping -- -- acmode = access mode for the new pages -- -- flags = section characteristics -- -- Flag Meaning -- -- SEC$M_EXPREG Find first available space -- SEC$M_NO_OVERMAP Do not overmap existing address space -- SEC$M_PERM Permanent section -- SEC$M_SYSGBL System global section -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- start_va_64 = Starting address of address space to create -- -- map_length_64 = Byte length of address space to map -- procedure CRMPSC_GPFILE_64 ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; PROT : in FILE_PROTECTION_TYPE := 0; LENGTH_64 : in UNSIGNED_QUADWORD := (0, 0); REGION_ID_64 : in UNSIGNED_QUADWORD; SECTION_OFFSET_64 : in UNSIGNED_QUADWORD := (0, 0); ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; MAP_LENGTH_64 : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRMPSC_GPFILE_64); pragma IMPORT_VALUED_PROCEDURE (CRMPSC_GPFILE_64, "SYS$CRMPSC_GPFILE_64", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, FILE_PROTECTION_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE), START_VA_64); -- $CRMPSC_GPFN_64 -- -- Create and Map Global Page Frame Section -- -- $CRMPSC_GPFN_64 gsdnam_64, ident_64, prot, start_pfn, page_count, region_id_64, relative_page, -- acmode, flags, return_va_64, return_length_64 -- [, start_va_64[, map_page_count[, page_prot]]] -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- prot = Protection mask -- -- start_pfn = Page frame number of first page in section -- -- page_count = Number of page frames in section -- -- region_id_64 = Address of quadword region id -- -- relative_page = Relative page within global section to start mapping -- -- acmode = Access mode of owner of mapped pages -- -- flags = Flags overriding default section characteristics -- -- Flag Meaning -- -- SEC$M_ARGS64 All arguments are passed as 64-bits -- SEC$M_EXPREG Find first available space -- SEC$M_NO_OVERMAP Do not overmap existing address space -- SEC$M_SYSGBL System global section -- SEC$M_WRT Read/write mapping of section -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- start_va_64 = Starting address of address space to create -- -- map_page_count = Number of page frames to map -- -- page_prot = Desired page protection (optional) -- procedure CRMPSC_GPFN_64 ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; PROT : in FILE_PROTECTION_TYPE := 0; START_PFN : in UNSIGNED_QUADWORD; PAGE_COUNT : in UNSIGNED_QUADWORD; REGION_ID_64 : in UNSIGNED_QUADWORD; RELATIVE_PAGE : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; MAP_PAGE_COUNT : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER; PAGE_PROT : in PAGE_PROTECTION_TYPE := PAGE_PROTECTION_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRMPSC_GPFN_64); pragma IMPORT_VALUED_PROCEDURE (CRMPSC_GPFN_64, "SYS$CRMPSC_GPFN_64", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, FILE_PROTECTION_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS, UNSIGNED_QUADWORD, PAGE_PROTECTION_TYPE), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE), START_VA_64); -- $CRMPSC_PFN_64 -- -- Create and Map Private Page Frame Section -- -- $CRMPSC_PFN_64 region_id_64, start_pfn, page_count, acmode, flags, -- return_va_64, return_length_64 -- [, start_va_64[, page_prot]] -- -- region_id_64 = Address of quadword region id -- -- start_pfn = Page frame number of first page in section -- -- page_count = Number of page frames in section -- -- acmode = access mode for the new pages -- -- flags = section characteristics -- -- Flag Meaning -- -- SEC$M_ARGS64 All arguments are passed as 64-bits -- SEC$M_EXPREG Find first available space -- SEC$M_GRANHINT Set granularity hints on pages -- SEC$M_NO_OVERMAP Do not overmap existing address space -- SEC$M_WRT Read/write section -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- start_va_64 = Starting address of address space to create -- -- page_prot = Desired page protection (optional) -- procedure CRMPSC_PFN_64 ( STATUS : out COND_VALUE_TYPE; -- return value REGION_ID_64 : in UNSIGNED_QUADWORD; START_PFN : in UNSIGNED_QUADWORD; PAGE_COUNT : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; PAGE_PROT : in PAGE_PROTECTION_TYPE := PAGE_PROTECTION_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CRMPSC_PFN_64); pragma IMPORT_VALUED_PROCEDURE (CRMPSC_PFN_64, "SYS$CRMPSC_PFN_64", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS, PAGE_PROTECTION_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE), START_VA_64); -- $DACEFC -- -- Disassociate Common Event Flag Cluster -- -- $DACEFC efn -- -- efn = number of any event flag in the cluster -- procedure DACEFC ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE); pragma INTERFACE (EXTERNAL, DACEFC); pragma IMPORT_VALUED_PROCEDURE (DACEFC, "SYS$DACEFC", (COND_VALUE_TYPE, EF_NUMBER_TYPE), (VALUE, VALUE)); -- $DALLOC -- -- Deallocate Device -- -- $DALLOC [devnam] ,[acmode] -- -- devnam = address of device name descriptor. If 0, deallocate all -- -- acmode = access mode associated with device -- procedure DALLOC ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, DALLOC); pragma IMPORT_VALUED_PROCEDURE (DALLOC, "SYS$DALLOC", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ACCESS_MODE_TYPE), (VALUE, DESCRIPTOR(S), VALUE)); -- $DASSGN -- -- Deassign I/O Channel -- -- $DASSGN chan -- -- chan = number of channel to be deassigned -- procedure DASSGN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE); pragma INTERFACE (EXTERNAL, DASSGN); pragma IMPORT_VALUED_PROCEDURE (DASSGN, "SYS$DASSGN", (COND_VALUE_TYPE, CHANNEL_TYPE), (VALUE, VALUE)); -- $DCLAST -- -- Declare AST -- -- $DCLAST astadr ,[astprm] ,[acmode] -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- acmode = access mode for which the AST is to be declared -- procedure DCLAST ( STATUS : out COND_VALUE_TYPE; -- return value ASTADR : in AST_PROCEDURE_TYPE; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, DCLAST); pragma IMPORT_VALUED_PROCEDURE (DCLAST, "SYS$DCLAST", (COND_VALUE_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE)); -- $DCLCMH -- -- Declare Change Mode or Compatibility Mode Handler -- -- $DCLCMH addres ,[prvhnd] ,[type] -- -- addres = address of handler -- -- prvhnd = address of longword to receive previous handler address -- -- type = handler type indicator -- 0 -> change mode (current mode) 1 -> compatibility mode -- procedure DCLCMH ( STATUS : out COND_VALUE_TYPE; -- return value ADDRES : in ADDRESS; PRVHND : out ADDRESS; TYP : in UNSIGNED_LONGWORD := FALSE); procedure DCLCMH ( STATUS : out COND_VALUE_TYPE; -- return value ADDRES : in ADDRESS; PRVHND : in UNSIGNED_LONGWORD := 0; -- To omit optional PRVHND argument TYP : in UNSIGNED_LONGWORD := FALSE); pragma INTERFACE (EXTERNAL, DCLCMH); pragma IMPORT_VALUED_PROCEDURE (DCLCMH, "SYS$DCLCMH", (COND_VALUE_TYPE, ADDRESS, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DCLCMH, "SYS$DCLCMH", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- $DCLEVT -- -- Declare an Event -- -- $DCLEVT evtnam, [rcvacl], [evtfac], [acmode], [flags] -- ,[evtdata], [nullarg], [nullarg], [nullarg], [nullarg] -- -- evtnam = address of descriptor of event name -- -- rcvacl = address of descriptor of ACL -- -- evtfac = address of event facility code -- -- acmode = access mode of event declaration -- -- flags = optional flags -- -- evtdata = address of descriptor of optional event data -- procedure DCLEVT ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; RCVACL : in STRING := STRING'NULL_PARAMETER; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; EVTDATA : in STRING := STRING'NULL_PARAMETER; NULLARG1 : in ADDRESS := ADDRESS_ZERO; NULLARG2 : in ADDRESS := ADDRESS_ZERO; NULLARG3 : in ADDRESS := ADDRESS_ZERO; NULLARG4 : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, DCLEVT); pragma IMPORT_VALUED_PROCEDURE (DCLEVT, "SYS$DCLEVT", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, STRING, ADDRESS, ADDRESS, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE)); -- $DCLEXH -- -- Declare Exit Handler -- -- $DCLEXH desblk -- -- desblk = address of exit control block containing: -- -- +-------------------------------+ -- | forward link | -- +-------------------------------+ -- | exit handler address | -- +-------------------------------+ -- | argument count | -- +-------------------------------+ -- | address to store reason | -- +-------------------------------+ -- | additional arguments | -- +-- for exit handler, --+ -- | if any | -- +-------------------------------+ -- procedure DCLEXH ( STATUS : out COND_VALUE_TYPE; -- return value DESBLK : in EXIT_HANDLER_BLOCK_TYPE); pragma INTERFACE (EXTERNAL, DCLEXH); pragma IMPORT_VALUED_PROCEDURE (DCLEXH, "SYS$DCLEXH", (COND_VALUE_TYPE, EXIT_HANDLER_BLOCK_TYPE), (VALUE, REFERENCE)); -- -- $DEFINE_MAPPING -- -- Define Mapping record types in the Mapping database -- -- $DEFINE_MAPPING initmlst [,outitmlst] -- -- initmlst = address of a list of item descriptors for the operation -- outitmlst = address of a list of item descriptors for information -- from the operation -- procedure DEFINE_MAPPING ( STATUS : out COND_VALUE_TYPE; -- return value INITMLST : in ITEM_LIST_3_TYPE; OUTITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DEFINE_MAPPING); pragma IMPORT_VALUED_PROCEDURE (DEFINE_MAPPING, "SYS$DEFINE_MAPPING", (COND_VALUE_TYPE, ITEM_LIST_3_TYPE, ITEM_LIST_3_TYPE), (VALUE, REFERENCE, REFERENCE)); -- -- $DELETE -- -- Delete Record -- -- $DELETE rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure DELETE ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DELETE); pragma IMPORT_VALUED_PROCEDURE (DELETE, "SYS$DELETE", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $DELETE_BITMAP -- -- Delete a Write Bitmap -- -- $DELETE_BITMAP handle -- procedure DELETE_BITMAP ( STATUS : out COND_VALUE_TYPE; -- return value HANDLE : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, DELETE_BITMAP); pragma IMPORT_VALUED_PROCEDURE (DELETE_BITMAP, "SYS$DELETE_BITMAP", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- -- $DELETE_INTRUSION -- -- Delete intrusion record -- -- $DELETE_INTRUSION user_criteria, [flags] -- -- user_criteria in address of user criteria descriptor -- flags in intrusion service flags -- procedure DELETE_INTRUSION ( STATUS : out COND_VALUE_TYPE; -- return value USER_CRITERIA : in STRING; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, DELETE_INTRUSION); pragma IMPORT_VALUED_PROCEDURE (DELETE_INTRUSION, "SYS$DELETE_INTRUSION", (COND_VALUE_TYPE, STRING, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE)); -- -- $DELETE_MAPPING -- -- Delete Mapping record from Mapping database -- -- $DELETE_MAPPING initmlst -- -- initmlst = address of a list of item descriptors for the operation -- procedure DELETE_MAPPING ( STATUS : out COND_VALUE_TYPE; -- return value INITMLST : in ITEM_LIST_3_TYPE); pragma INTERFACE (EXTERNAL, DELETE_MAPPING); pragma IMPORT_VALUED_PROCEDURE (DELETE_MAPPING, "SYS$DELETE_MAPPING", (COND_VALUE_TYPE, ITEM_LIST_3_TYPE), (VALUE, REFERENCE)); -- -- $DELETE_PROXY -- -- Delete proxy record -- -- $DELETE_PROXY rem_node, rem_user, local_user, [flags] -- -- rem_node in address of remote node descriptor -- rem_user in address of remote user descriptor -- local_user in address of local user descriptor -- flags in proxy service flags -- procedure DELETE_PROXY ( STATUS : out COND_VALUE_TYPE; -- return value REM_NODE : in STRING; REM_USER : in STRING; LOCAL_USER : in STRING; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, DELETE_PROXY); pragma IMPORT_VALUED_PROCEDURE (DELETE_PROXY, "SYS$DELETE_PROXY", (COND_VALUE_TYPE, STRING, STRING, STRING, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), VALUE)); -- $DELLNM -- -- Delete Logical Name and/or Table -- -- $DELLNM [tabnam], [lognam], [acmode] -- -- tabnam = address of descriptor of logical name table name string -- -- lognam = address of descriptor of logical name string -- -- acmode = address of access mode for logical name -- procedure DELLNM ( STATUS : out COND_VALUE_TYPE; -- return value TABNAM : in LOGICAL_NAME_TYPE; LOGNAM : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DELLNM); pragma IMPORT_VALUED_PROCEDURE (DELLNM, "SYS$DELLNM", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, LOGICAL_NAME_TYPE, ACCESS_MODE_TYPE), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE)); -- $DELLOG -- -- Delete Logical Name -- -- $DELLOG [tblflg] ,[lognam] ,[acmode] -- -- tblflg = logical name table number -- 0 -> system 1 -> group 2 -> process -- -- lognam = address of logical name string descriptor. If 0, -- delete all names -- -- acmode = access mode of logical name (process table only) -- procedure DELLOG ( STATUS : out COND_VALUE_TYPE; -- return value TBLFLG : in UNSIGNED_LONGWORD := 0; LOGNAM : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, DELLOG); pragma IMPORT_VALUED_PROCEDURE (DELLOG, "SYS$DELLOG", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, LOGICAL_NAME_TYPE, ACCESS_MODE_TYPE), (VALUE, VALUE, DESCRIPTOR(S), VALUE)); -- $DELMBX -- -- Delete Mailbox -- -- $DELMBX chan -- -- chan = channel number assigned to the mailbox -- procedure DELMBX ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE); pragma INTERFACE (EXTERNAL, DELMBX); pragma IMPORT_VALUED_PROCEDURE (DELMBX, "SYS$DELMBX", (COND_VALUE_TYPE, CHANNEL_TYPE), (VALUE, VALUE)); -- $DELPRC -- -- Delete Process -- -- $DELPRC [pidadr] ,[prcnam] ,[flags] -- -- pidadr = address of longword containing id of process to be deleted -- -- prcnam = address of string descriptor for process name to be deleted -- -- flags = optional flags longword for specifying options -- procedure DELPRC ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DELPRC); pragma IMPORT_VALUED_PROCEDURE (DELPRC, "SYS$DELPRC", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE), FLAGS); -- $DELTVA -- -- Delete Virtual Address Space -- -- $DELTVA inadr ,[retadr] ,[acmode] -- -- inadr = address of 2-longword array containing starting and -- ending virtual addresses of pages to delete -- -- retadr = address of 2-longword array to receive starting and -- ending addresses of pages actually deleted -- -- acmode = access mode for which service is performed -- procedure DELTVA ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); procedure DELTVA ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, DELTVA); pragma IMPORT_VALUED_PROCEDURE (DELTVA, "SYS$DELTVA", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DELTVA, "SYS$DELTVA", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE)); -- $DELTVA_64 -- -- Delete Virtual Address Space -- -- $DELTVA_64 region_id_64, start_va_64, length_64, acmode, return_va_64, return_length_64 -- -- region_id_64 = Address of quadword region id -- -- start_va_64 = Starting address of address space to delete -- -- length_64 = Byte length of addresses to delete -- -- acmode = access mode for which service is performed -- -- return_va_64 = Address of address space deleted -- -- return_length_64 = Length of address space deleted -- procedure DELTVA_64 ( STATUS : out COND_VALUE_TYPE; -- return value REGION_ID_64 : in UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, DELTVA_64); pragma IMPORT_VALUED_PROCEDURE (DELTVA_64, "SYS$DELTVA_64", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- $DELETE_BUFOBJ -- -- Delete I/O Buffer Object -- -- $DELETE_BUFOBJ buffer_handle -- -- buffer_handle = address of a quadword that contains the buffer handle -- identifying the buffer object to be deleted -- procedure DELETE_BUFOBJ ( STATUS : out COND_VALUE_TYPE; -- return value BUFFER_HANDLE : in UNSIGNED_LONGWORD_ARRAY := UNSIGNED_LONGWORD_ARRAY'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DELETE_BUFOBJ); pragma IMPORT_VALUED_PROCEDURE (DELETE_BUFOBJ, "SYS$DELETE_BUFOBJ", (COND_VALUE_TYPE, UNSIGNED_LONGWORD_ARRAY), (VALUE, REFERENCE)); -- $DELETE_REGION_64 -- -- Delete Virtual Address Region -- -- $DELETE_REGION_64 region_id_64, acmode, return_va_64, return_length_64 -- -- region_id_64 = Address of quadword region id -- -- acmode = Access mode for which service is performed -- -- return_va_64 = Address of address space deleted -- -- return_length_64 = Length of address space deleted -- procedure DELETE_REGION_64 ( STATUS : out COND_VALUE_TYPE; -- return value REGION_ID_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, DELETE_REGION_64); pragma IMPORT_VALUED_PROCEDURE (DELETE_REGION_64, "SYS$DELETE_REGION_64", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE)); -- $DEQ -- -- Dequeue Lock -- -- $DEQ [lkid] ,[valblk] ,[acmode] ,[flags] -- -- lkid = lock ID of the lock to be dequeued -- -- valblk = address of the lock value block -- -- acmode = access mode of the locks to be dequeued -- -- flags = optional flags. -- -- LCK$M_DEQALL -- procedure DEQ ( STATUS : out COND_VALUE_TYPE; -- return value LKID : in LOCK_ID_TYPE := 0; VALBLK : in out LOCK_VALUE_BLOCK_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); procedure DEQ ( STATUS : out COND_VALUE_TYPE; -- return value LKID : in LOCK_ID_TYPE := 0; VALBLK : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALBLK argument ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, DEQ); pragma IMPORT_VALUED_PROCEDURE (DEQ, "SYS$DEQ", (COND_VALUE_TYPE, LOCK_ID_TYPE, LOCK_VALUE_BLOCK_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DEQ, "SYS$DEQ", (COND_VALUE_TYPE, LOCK_ID_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE)); -- $DEVICE_SCAN -- -- Wildcard device scan -- -- $DEVICE_SCAN return_devnam, retlen, [search_devnam], [itmlst], [contxt] -- -- return_devnam = address of descriptor of returned device name buffer -- -- retlen = address to store length of device name returned -- -- search_devnam = address of descriptor of search device name -- -- itmlst = address of a list of item descriptors -- -- contxt = address of quadword context structures -- -- procedure DEVICE_SCAN ( STATUS : out COND_VALUE_TYPE; -- return value RETURN_DEVNAM : out DEVICE_NAME_TYPE; RETLEN : out UNSIGNED_WORD; SEARCH_DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; CONTXT : in out USER_ARG_TYPE); procedure DEVICE_SCAN ( STATUS : out COND_VALUE_TYPE; -- return value RETURN_DEVNAM : out DEVICE_NAME_TYPE; RETLEN : out UNSIGNED_WORD; SEARCH_DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument pragma INTERFACE (EXTERNAL, DEVICE_SCAN); pragma IMPORT_VALUED_PROCEDURE (DEVICE_SCAN, "SYS$DEVICE_SCAN", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, USER_ARG_TYPE), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (DEVICE_SCAN, "SYS$DEVICE_SCAN", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); -- $DGBLSC -- -- Delete Global Section -- -- $DGBLSC [flags] ,gsdnam ,[ident] -- -- flags = type of section -- 0 -> group section SEC$M_SYSGBL -> system section -- -- gsdnam = address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident = address of quadword containing version id and match control -- procedure DGBLSC ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; GSDNAM : in SECTION_NAME_TYPE; IDENT : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DGBLSC); pragma IMPORT_VALUED_PROCEDURE (DGBLSC, "SYS$DGBLSC", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, SECTION_NAME_TYPE, SECTION_ID_TYPE), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE)); -- $DIAGNOSE -- System Service for Diagnostics Programmers -- -- $DIAGNOSE function, P2, [cpu_id, [flags]] -- -- function = DIAG$SETAFF or DIAG$_ACTVCPUS -- -- P2 = enable flag if function is DIAG$SETAFF, or -- address to return actvcpus in if function -- is DIAG$_ACTVCPUS -- -- cpu_id = CPU number to set affinity to -- -- flags = masks governing the checking to do, whether -- affinity is set for image or process duration, -- whether to set affinity to primary cpu. -- procedure DIAGNOSE ( STATUS : out COND_VALUE_TYPE; -- return value FUNCTIO : in FUNCTION_CODE_TYPE := FUNCTION_CODE_1; P2 : in UNSIGNED_LONGWORD := 1; CPU_ID : in INTEGER := 0; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, DIAGNOSE); pragma IMPORT_VALUED_PROCEDURE (DIAGNOSE, "SYS$DIAGNOSE", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, UNSIGNED_LONGWORD, INTEGER, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE)); -- -- $DISABLE_VP_USE -- -- Disable Use of the Vector Processor -- -- $DISABLE_VP_USE flags ,[curflg] ,[prvflg] -- -- flags = mask of facility(ies) that disabled vector use -- -- curflg = address of longword to receive current flags -- -- prvflg = address of longword to receive previous flags -- procedure DISABLE_VP_USE ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : out UNSIGNED_LONGWORD; PRVFLG : out UNSIGNED_LONGWORD); procedure DISABLE_VP_USE ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : out UNSIGNED_LONGWORD; PRVFLG : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVFLG argument procedure DISABLE_VP_USE ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : in ADDRESS := ADDRESS_ZERO; -- To omit optional CURFLG argument PRVFLG : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVFLG argument procedure DISABLE_VP_USE ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : in ADDRESS := ADDRESS_ZERO; -- To omit optional CURFLG argument PRVFLG : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, DISABLE_VP_USE); pragma IMPORT_VALUED_PROCEDURE (DISABLE_VP_USE, "SYS$DISABLE_VP_USE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (DISABLE_VP_USE, "SYS$DISABLE_VP_USE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DISABLE_VP_USE, "SYS$DISABLE_VP_USE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DISABLE_VP_USE, "SYS$DISABLE_VP_USE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE)); -- -- $DISABLE_VP_USE_INT -- -- Disable Use of the Vector Processor, internal form -- -- $DISABLE_VP_USE_INT flags ,[curflg] ,[prvflg] -- -- flags = mask of facility(ies) that disabled vector use -- -- curflg = address of longword to receive current flags -- -- prvflg = address of longword to receive previous flags -- procedure DISABLE_VP_USE_INT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : out UNSIGNED_LONGWORD; PRVFLG : out UNSIGNED_LONGWORD); procedure DISABLE_VP_USE_INT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : out UNSIGNED_LONGWORD; PRVFLG : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVFLG argument procedure DISABLE_VP_USE_INT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : in ADDRESS := ADDRESS_ZERO; -- To omit optional CURFLG argument PRVFLG : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVFLG argument procedure DISABLE_VP_USE_INT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : in ADDRESS := ADDRESS_ZERO; -- To omit optional CURFLG argument PRVFLG : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, DISABLE_VP_USE_INT); pragma IMPORT_VALUED_PROCEDURE (DISABLE_VP_USE_INT, "SYS$DISABLE_VP_USE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (DISABLE_VP_USE_INT, "SYS$DISABLE_VP_USE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DISABLE_VP_USE_INT, "SYS$DISABLE_VP_USE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DISABLE_VP_USE_INT, "SYS$DISABLE_VP_USE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE)); -- -- $DISCONNECT -- -- Disconnect Record Stream -- -- $DISCONNECT rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure DISCONNECT ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DISCONNECT); pragma IMPORT_VALUED_PROCEDURE (DISCONNECT, "SYS$DISCONNECT", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $DISMOU -- -- Dismount Volume -- -- $DISMOU [devnam], [flags], [itmlst] -- -- devnam = optional address of device name string descriptor -- -- flags = 32-bit status mask selecting options for the dismount -- The symbols for the flags are defined by the $DMTDEF -- macro. -- -- Flag Meaning -- -- DMT$M_NOUNLOAD Do not unload the volume. -- -- DMT$M_UNIT Dismount the specified device, rather -- than the entire volume set. -- -- itmlst = optional address of a list of item identifiers -- procedure DISMOU ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DISMOU); pragma IMPORT_VALUED_PROCEDURE (DISMOU, "SYS$DISMOU", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_TYPE), (VALUE, DESCRIPTOR(S), VALUE, REFERENCE), ITMLST); -- -- $DISPLAY -- -- Display File -- -- $DISPLAY fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure DISPLAY ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DISPLAY); pragma IMPORT_VALUED_PROCEDURE (DISPLAY, "SYS$DISPLAY", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $DISPLAY_PROXY -- -- Display proxy record -- -- $DISPLAY_PROXY rem_node, rem_user, buffer_sizes, proxy_node, proxy_user, -- default_user, local_users, [flags], [context] -- -- rem_node in address of remote node descriptor -- rem_user in address of remote user descriptor -- buffer_sizes out address of array of words to receive output string lengths -- proxy_node out address of descriptor to receive matching proxy node -- proxy_user out address of descriptor to receive matching proxy user -- default_user out address of descriptor to receive default user -- local_users out address of array of blocks to receive local users -- flags in proxy service flags -- context in out address of optional longword context -- procedure DISPLAY_PROXY ( STATUS : out COND_VALUE_TYPE; -- return value REM_NODE : in STRING; REM_USER : in STRING; BUFFER_SIZES : out UNSIGNED_WORD_ARRAY; PROXY_NODE : out STRING; PROXY_USER : out STRING; DEFAULT_USER : out STRING; LOCAL_USERS : out UNSIGNED_LONGWORD; FLAGS : in UNSIGNED_LONGWORD := 0; CONTEXT : in out CONTEXT_TYPE); procedure DISPLAY_PROXY ( STATUS : out COND_VALUE_TYPE; -- return value REM_NODE : in STRING; REM_USER : in STRING; BUFFER_SIZES : out UNSIGNED_WORD_ARRAY; PROXY_NODE : out STRING; PROXY_USER : out STRING; DEFAULT_USER : out STRING; LOCAL_USERS : out UNSIGNED_LONGWORD; FLAGS : in UNSIGNED_LONGWORD := 0; CONTEXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTEXT argument pragma INTERFACE (EXTERNAL, DISPLAY_PROXY); pragma IMPORT_VALUED_PROCEDURE (DISPLAY_PROXY, "SYS$DISPLAY_PROXY", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_WORD_ARRAY, STRING, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (DISPLAY_PROXY, "SYS$DISPLAY_PROXY", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_WORD_ARRAY, STRING, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, VALUE)); -- $DLCEFC -- -- Delete Common Event Flag Cluster -- -- $DLCEFC name -- -- name = address of cluster name string descriptor -- procedure DLCEFC ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in EF_CLUSTER_NAME_TYPE); pragma INTERFACE (EXTERNAL, DLCEFC); pragma IMPORT_VALUED_PROCEDURE (DLCEFC, "SYS$DLCEFC", (COND_VALUE_TYPE, EF_CLUSTER_NAME_TYPE), (VALUE, DESCRIPTOR(S))); -- $DNS -- -- DNS Clerk system service -- -- $DNS [efn], func , itmlst, [dnsb] ,[astadr] ,[astprm] -- ($DNSW) -- -- efn = number of event flag to set on completion -- -- func = function code specifying action to be performed -- -- itmlst = address of a list of item descriptors -- -- dnsb = address of quadword I/O status block to receive final -- completion status -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as argument -- procedure DNS ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; ITMLST : in ITEM_LIST_3_TYPE; DNSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure DNS ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; ITMLST : in ITEM_LIST_3_TYPE; DNSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional DNSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, DNS); pragma IMPORT_VALUED_PROCEDURE (DNS, "SYS$DNS", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ITEM_LIST_3_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DNS, "SYS$DNS", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ITEM_LIST_3_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); procedure DNSW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; ITMLST : in ITEM_LIST_3_TYPE; DNSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure DNSW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; ITMLST : in ITEM_LIST_3_TYPE; DNSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional DNSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, DNSW); pragma IMPORT_VALUED_PROCEDURE (DNSW, "SYS$DNSW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ITEM_LIST_3_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DNSW, "SYS$DNSW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ITEM_LIST_3_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); -- -- $EMAA -- -- Call Entity Management Assist Agent -- -- $EMAA -- procedure EMAA ( STATUS : out COND_VALUE_TYPE; -- return value ARGLIST : in STRING; INVOKEID : in USER_ARG_TYPE); pragma INTERFACE (EXTERNAL, EMAA); pragma IMPORT_VALUED_PROCEDURE (EMAA, "SYS$EMAA", (COND_VALUE_TYPE, STRING, USER_ARG_TYPE), (VALUE, DESCRIPTOR(S), REFERENCE)); -- -- $ENABLE_VP_USE -- -- Enable Use of the Vector Processor -- -- $ENABLE_VP_USE flags ,[curflg] ,[prvflg] -- -- flags = mask of facility(ies) that disabled vector use -- -- curflg = address of longword to receive current flags -- -- prvflg = address of longword to receive previous flags -- procedure ENABLE_VP_USE ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : out UNSIGNED_LONGWORD; PRVFLG : out UNSIGNED_LONGWORD); procedure ENABLE_VP_USE ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : out UNSIGNED_LONGWORD; PRVFLG : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVFLG argument procedure ENABLE_VP_USE ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : in ADDRESS := ADDRESS_ZERO; -- To omit optional CURFLG argument PRVFLG : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVFLG argument procedure ENABLE_VP_USE ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : in ADDRESS := ADDRESS_ZERO; -- To omit optional CURFLG argument PRVFLG : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ENABLE_VP_USE); pragma IMPORT_VALUED_PROCEDURE (ENABLE_VP_USE, "SYS$ENABLE_VP_USE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (ENABLE_VP_USE, "SYS$ENABLE_VP_USE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ENABLE_VP_USE, "SYS$ENABLE_VP_USE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ENABLE_VP_USE, "SYS$ENABLE_VP_USE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE)); -- -- $ENABLE_VP_USE_INT -- -- Enable Use of the Vector Processor, internal form -- -- $ENABLE_VP_USE_INT flags ,[curflg] ,[prvflg] -- -- flags = mask of facility(ies) that disabled vector use -- -- curflg = address of longword to receive current flags -- -- prvflg = address of longword to receive previous flags -- procedure ENABLE_VP_USE_INT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : out UNSIGNED_LONGWORD; PRVFLG : out UNSIGNED_LONGWORD); procedure ENABLE_VP_USE_INT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : out UNSIGNED_LONGWORD; PRVFLG : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVFLG argument procedure ENABLE_VP_USE_INT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : in ADDRESS := ADDRESS_ZERO; -- To omit optional CURFLG argument PRVFLG : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVFLG argument procedure ENABLE_VP_USE_INT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; CURFLG : in ADDRESS := ADDRESS_ZERO; -- To omit optional CURFLG argument PRVFLG : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ENABLE_VP_USE_INT); pragma IMPORT_VALUED_PROCEDURE (ENABLE_VP_USE_INT, "SYS$ENABLE_VP_USE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (ENABLE_VP_USE_INT, "SYS$ENABLE_VP_USE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ENABLE_VP_USE_INT, "SYS$ENABLE_VP_USE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ENABLE_VP_USE_INT, "SYS$ENABLE_VP_USE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE)); -- $ENQ -- -- Enqueue Lock Request -- -- $ENQ [efn] ,lkmode ,lksb ,[flags] ,[resnam] ,[parid] -- ($ENQW) ,[astadr] ,[astprm] ,[blkast] ,[acmode], [rsdm_id] -- ,[range] ,[priority] -- -- efn = event flag to be set at completion -- -- lkmode = type of lock mode requested. Modes are: -- -- LCK$K_NLMODE null lock -- LCK$K_CRMODE concurrent read -- LCK$K_CWMODE concurrent write -- LCK$K_PRMODE protected read -- LCK$K_PWMODE protected write -- LCK$K_EXMODE exclusive lock -- -- lksb = address of the lock status block or extended lock status block -- -- flags = flags defining the characteristics of the lock. These are: -- -- LCK$M_NOQUEUE -- LCK$M_SYNCSTS -- LCK$M_SYSTEM -- LCK$M_VALBLK -- LCK$M_CONVERT -- -- resnam = address of string descriptor of the resource name -- (32-bit or 64-bit descriptor) -- -- parid = lock ID of the parent lock -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- blkast = address of entry mask of blocking AST routine -- -- acmode = Access mode to be associated with the lock -- -- rsdm_id = address of resource domain id -- -- range = optional range to be locked within resource -- -- priority = optional priority of request -- procedure ENQ ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; LKMODE : in UNSIGNED_LONGWORD; LKSB : out LOCK_STATUS_BLOCK_TYPE; FLAGS : in UNSIGNED_LONGWORD := 0; RESNAM : in STRING := STRING'NULL_PARAMETER; PARID : in LOCK_ID_TYPE := 0; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; BLKAST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; RSDM_ID : in UNSIGNED_LONGWORD := 0; RANG : in RANGE_TYPE := RANGE_TYPE'NULL_PARAMETER; PRIORITY : in PRIORITY_TYPE := PRIORITY_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, ENQ); pragma IMPORT_VALUED_PROCEDURE (ENQ, "SYS$ENQ", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, LOCK_STATUS_BLOCK_TYPE, UNSIGNED_LONGWORD, STRING, LOCK_ID_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, AST_PROCEDURE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, RANGE_TYPE, PRIORITY_TYPE), (VALUE, VALUE, VALUE, REFERENCE, VALUE, DESCRIPTOR(S), VALUE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE), RANG); procedure ENQW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; LKMODE : in UNSIGNED_LONGWORD; LKSB : out LOCK_STATUS_BLOCK_TYPE; FLAGS : in UNSIGNED_LONGWORD := 0; RESNAM : in STRING := STRING'NULL_PARAMETER; PARID : in LOCK_ID_TYPE := 0; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; BLKAST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; RSDM_ID : in UNSIGNED_LONGWORD := 0; RANG : in RANGE_TYPE := RANGE_TYPE'NULL_PARAMETER; PRIORITY : in PRIORITY_TYPE := PRIORITY_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, ENQW); pragma IMPORT_VALUED_PROCEDURE (ENQW, "SYS$ENQW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, LOCK_STATUS_BLOCK_TYPE, UNSIGNED_LONGWORD, STRING, LOCK_ID_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, AST_PROCEDURE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, RANGE_TYPE, PRIORITY_TYPE), (VALUE, VALUE, VALUE, REFERENCE, VALUE, DESCRIPTOR(S), VALUE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE), RANG); -- -- $ENTER -- -- Enter File -- -- $ENTER fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure ENTER ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, ENTER); pragma IMPORT_VALUED_PROCEDURE (ENTER, "SYS$ENTER", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $ERAPAT -- -- Generate a security erase pattern. -- -- $ERAPAT type, [count], patadr -- -- type = type of security erase -- -- count = iteration count (seed for erase pattern) -- -- patadr = address of longword to receive erase pattern -- procedure ERAPAT ( STATUS : out COND_VALUE_TYPE; -- return value TYP : in UNSIGNED_LONGWORD := 0; COUNT : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_1; PATADR : out UNSIGNED_LONGWORD); procedure ERAPAT ( STATUS : out COND_VALUE_TYPE; -- return value TYP : in UNSIGNED_LONGWORD := 0; COUNT : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_1; PATADR : in ADDRESS := ADDRESS_ZERO); -- To omit optional PATADR argument pragma INTERFACE (EXTERNAL, ERAPAT); pragma IMPORT_VALUED_PROCEDURE (ERAPAT, "SYS$ERAPAT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (ERAPAT, "SYS$ERAPAT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, VALUE, VALUE)); -- $ERASE -- -- Erase File -- -- $ERASE fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure ERASE ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, ERASE); pragma IMPORT_VALUED_PROCEDURE (ERASE, "SYS$ERASE", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $EVDPOSTEVENT -- -- Post Event to EVD -- -- $EVDPOSTEVENT EVENT -- procedure EVDPOSTEVENT ( STATUS : out COND_VALUE_TYPE; -- return value EVENT : in STRING); pragma INTERFACE (EXTERNAL, EVDPOSTEVENT); pragma IMPORT_VALUED_PROCEDURE (EVDPOSTEVENT, "SYS$EVDPOSTEVENT", (COND_VALUE_TYPE, STRING), (VALUE, DESCRIPTOR(S))); -- $EXIT -- -- Exit image -- -- $EXIT [code] -- -- code = longword completion status -- procedure EXI ( STATUS : out COND_VALUE_TYPE; -- return value CODE : in COND_VALUE_TYPE := COND_VALUE_1); pragma INTERFACE (EXTERNAL, EXI); pragma IMPORT_VALUED_PROCEDURE (EXI, "SYS$EXIT", (COND_VALUE_TYPE, COND_VALUE_TYPE), (VALUE, VALUE)); -- $EXPREG -- -- Expand Program/Control Region -- -- $EXPREG pagcnt ,[retadr] ,[acmode] ,[region] -- -- pagcnt = number of pages to add to end of specified region -- -- retadr = address of 2-longword array to receive virtual -- addresses of starting and ending pages -- -- acmode = access mode of the new pages -- -- region = region indicator -- 0 -> program (P0) region 1 -> control (P1) region -- procedure EXPREG ( STATUS : out COND_VALUE_TYPE; -- return value PAGCNT : in UNSIGNED_LONGWORD; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; REGION : in UNSIGNED_LONGWORD := FALSE); procedure EXPREG ( STATUS : out COND_VALUE_TYPE; -- return value PAGCNT : in UNSIGNED_LONGWORD; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; REGION : in UNSIGNED_LONGWORD := FALSE); pragma INTERFACE (EXTERNAL, EXPREG); pragma IMPORT_VALUED_PROCEDURE (EXPREG, "SYS$EXPREG", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (EXPREG, "SYS$EXPREG", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE)); -- $EXPREG_64 -- -- Expand Addresses Within a Region -- -- EXPREG_64 region_id_64, length_64, acmode, flags, return_va_64, return_length_64 -- [, page_prot] -- -- region_id_64 = Address of quadword region id -- -- length_64 = Byte length of addresses -- -- acmode = access mode for the new pages (protection is -- read/write for acmode and more privileged modes) -- -- flags = Address space creation flags -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- page_prot = Desired page protection (optional) -- procedure EXPREG_64 ( STATUS : out COND_VALUE_TYPE; -- return value REGION_ID_64 : in UNSIGNED_QUADWORD; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; PAGE_PROT : in PAGE_PROTECTION_TYPE := PAGE_PROTECTION_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, EXPREG_64); pragma IMPORT_VALUED_PROCEDURE (EXPREG_64, "SYS$EXPREG_64", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, PAGE_PROTECTION_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE), PAGE_PROT); -- -- $EXTEND -- -- Extend File -- -- $EXTEND fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure EXTEND ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, EXTEND); pragma IMPORT_VALUED_PROCEDURE (EXTEND, "SYS$EXTEND", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $FAO -- -- Formatted ASCII Output -- -- $FAO ctrstr ,[outlen] ,outbuf ,[p1] ,[p2]...[pn] -- -- ctrstr = address of string descriptor for control string -- (32-bit or 64-bit descriptor) -- -- outlen = address of word in which to store output length -- -- outbuf = address of output buffer string descriptor -- (32-bit or 64-bit descriptor) -- -- p1... = variable number of arguments to FAO -- procedure FAO ( STATUS : out COND_VALUE_TYPE; -- return value CTRSTR : in STRING; OUTLEN : out UNSIGNED_WORD; OUTBUF : out STRING; P1 : in UNSIGNED_LONGWORD); procedure FAO ( STATUS : out COND_VALUE_TYPE; -- return value CTRSTR : in STRING; OUTLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTLEN argument OUTBUF : out STRING; P1 : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, FAO); pragma IMPORT_VALUED_PROCEDURE (FAO, "SYS$FAO", (COND_VALUE_TYPE, STRING, UNSIGNED_WORD, STRING, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE)); pragma IMPORT_VALUED_PROCEDURE (FAO, "SYS$FAO", (COND_VALUE_TYPE, STRING, ADDRESS, STRING, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE)); -- $FAOL -- -- Formatted ASCII Output With List Parameter -- -- $FAOL ctrstr ,[outlen] ,outbuf ,prmlst -- -- ctrstr = address of string descriptor for control string -- (32-bit or 64-bit descriptor) -- -- outlen = address of word to receive output string length -- -- outbuf = address of output buffer string descriptor -- (32-bit or 64-bit descriptor) -- -- prmlst = address of a list of longword parameters -- procedure FAOL ( STATUS : out COND_VALUE_TYPE; -- return value CTRSTR : in STRING; OUTLEN : out UNSIGNED_WORD; OUTBUF : out STRING; PRMLST : in UNSIGNED_LONGWORD_ARRAY); procedure FAOL ( STATUS : out COND_VALUE_TYPE; -- return value CTRSTR : in STRING; OUTLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTLEN argument OUTBUF : out STRING; PRMLST : in UNSIGNED_LONGWORD_ARRAY); pragma INTERFACE (EXTERNAL, FAOL); pragma IMPORT_VALUED_PROCEDURE (FAOL, "SYS$FAOL", (COND_VALUE_TYPE, STRING, UNSIGNED_WORD, STRING, UNSIGNED_LONGWORD_ARRAY), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FAOL, "SYS$FAOL", (COND_VALUE_TYPE, STRING, ADDRESS, STRING, UNSIGNED_LONGWORD_ARRAY), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE)); -- $FAOL_64 -- -- Formatted ASCII Output With Quadword List Parameter -- -- $FAOL_64 ctrstr_64 ,[outlen_64] ,outbuf_64 ,prmlst_64 -- -- ctrstr_64 = address of string descriptor for control string -- (32-bit or 64-bit descriptor) -- -- outlen_64 = address of word to receive output string length -- -- outbuf_64 = address of output buffer string descriptor -- (32-bit or 64-bit descriptor) -- -- prmlst_64 = address of a list of quadword parameters -- procedure FAOL_64 ( STATUS : out COND_VALUE_TYPE; -- return value CTRSTR_64 : in STRING; OUTLEN_64 : out UNSIGNED_WORD; OUTBUF_64 : in STRING; PRMLST_64 : in UNSIGNED_QUADWORD_ARRAY); procedure FAOL_64 ( STATUS : out COND_VALUE_TYPE; -- return value CTRSTR_64 : in STRING; OUTLEN_64 : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTLEN_64 argument OUTBUF_64 : in STRING; PRMLST_64 : in UNSIGNED_QUADWORD_ARRAY); pragma INTERFACE (EXTERNAL, FAOL_64); pragma IMPORT_VALUED_PROCEDURE (FAOL_64, "SYS$FAOL_64", (COND_VALUE_TYPE, STRING, UNSIGNED_WORD, STRING, UNSIGNED_QUADWORD_ARRAY), (VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FAOL_64, "SYS$FAOL_64", (COND_VALUE_TYPE, STRING, ADDRESS, STRING, UNSIGNED_QUADWORD_ARRAY), (VALUE, VALUE, VALUE, VALUE, VALUE)); -- $FILES_64 -- -- Call the Files-64 file system -- -- $FILES_64 [efn] ,func ,fsb ,[astadr] ,[astprm] -- -- efn = number of event flag to set on completion -- -- func = function code specifying action to be performed -- -- fsb = address of File System Block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as argument -- procedure FILES_64 ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; FSB : in ADDRESS; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, FILES_64); pragma IMPORT_VALUED_PROCEDURE (FILES_64, "SYS$FILES_64", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); -- $FILESCAN -- -- Scan a string and identify a file specification -- -- $FILESCAN srcstr, [valuelst], [fldflags] [,auxout] [,retlen] -- -- srcstr = address of string descriptor for source string -- valuelst = address of a list of item descriptors -- fldflags = address of a longword to receive flags -- auxout = address of string descriptor for output string -- retlen = address to store length of returned output string -- --***INFO: 4 parameters require overloading procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in out LIST_ITEM_TYPE; FLDFLAGS : out UNSIGNED_LONGWORD; AUXOUT : in out STRING; RETLEN : out UNSIGNED_WORD); procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in out LIST_ITEM_TYPE; FLDFLAGS : out UNSIGNED_LONGWORD; AUXOUT : in out STRING; RETLEN : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETLEN argument procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in out LIST_ITEM_TYPE; FLDFLAGS : out UNSIGNED_LONGWORD; AUXOUT : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUXOUT argument RETLEN : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETLEN argument procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in out LIST_ITEM_TYPE; FLDFLAGS : out UNSIGNED_LONGWORD; AUXOUT : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUXOUT argument RETLEN : out UNSIGNED_WORD); procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in out LIST_ITEM_TYPE; FLDFLAGS : in ADDRESS := ADDRESS_ZERO; -- To omit optional FLDFLAGS argument AUXOUT : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUXOUT argument RETLEN : out UNSIGNED_WORD); procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in out LIST_ITEM_TYPE; FLDFLAGS : in ADDRESS := ADDRESS_ZERO; -- To omit optional FLDFLAGS argument AUXOUT : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUXOUT argument RETLEN : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETLEN argument procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in out LIST_ITEM_TYPE; FLDFLAGS : in ADDRESS := ADDRESS_ZERO; -- To omit optional FLDFLAGS argument AUXOUT : in out STRING; RETLEN : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETLEN argument procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in out LIST_ITEM_TYPE; FLDFLAGS : in ADDRESS := ADDRESS_ZERO; -- To omit optional FLDFLAGS argument AUXOUT : in out STRING; RETLEN : out UNSIGNED_WORD); procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALUELST argument FLDFLAGS : in ADDRESS := ADDRESS_ZERO; -- To omit optional FLDFLAGS argument AUXOUT : in out STRING; RETLEN : out UNSIGNED_WORD); procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALUELST argument FLDFLAGS : in ADDRESS := ADDRESS_ZERO; -- To omit optional FLDFLAGS argument AUXOUT : in out STRING; RETLEN : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETLEN argument procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALUELST argument FLDFLAGS : in ADDRESS := ADDRESS_ZERO; -- To omit optional FLDFLAGS argument AUXOUT : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUXOUT argument RETLEN : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETLEN argument procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALUELST argument FLDFLAGS : in ADDRESS := ADDRESS_ZERO; -- To omit optional FLDFLAGS argument AUXOUT : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUXOUT argument RETLEN : out UNSIGNED_WORD); procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALUELST argument FLDFLAGS : out UNSIGNED_LONGWORD; AUXOUT : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUXOUT argument RETLEN : out UNSIGNED_WORD); procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALUELST argument FLDFLAGS : out UNSIGNED_LONGWORD; AUXOUT : in ADDRESS := ADDRESS_ZERO; -- To omit optional AUXOUT argument RETLEN : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETLEN argument procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALUELST argument FLDFLAGS : out UNSIGNED_LONGWORD; AUXOUT : in out STRING; RETLEN : in ADDRESS := ADDRESS_ZERO); -- To omit optional RETLEN argument procedure FILESCAN ( STATUS : out COND_VALUE_TYPE; -- return value SRCSTR : in STRING; VALUELST : in ADDRESS := ADDRESS_ZERO; -- To omit optional VALUELST argument FLDFLAGS : out UNSIGNED_LONGWORD; AUXOUT : in out STRING; RETLEN : out UNSIGNED_WORD); pragma INTERFACE (EXTERNAL, FILESCAN); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, LIST_ITEM_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_WORD), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, DESCRIPTOR(S), REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, LIST_ITEM_TYPE, UNSIGNED_LONGWORD, STRING, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, DESCRIPTOR(S), VALUE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, LIST_ITEM_TYPE, UNSIGNED_LONGWORD, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, LIST_ITEM_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_WORD), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, LIST_ITEM_TYPE, ADDRESS, ADDRESS, UNSIGNED_WORD), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, LIST_ITEM_TYPE, ADDRESS, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, LIST_ITEM_TYPE, ADDRESS, STRING, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, DESCRIPTOR(S), VALUE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, LIST_ITEM_TYPE, ADDRESS, STRING, UNSIGNED_WORD), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, DESCRIPTOR(S), REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, ADDRESS, ADDRESS, STRING, UNSIGNED_WORD), (VALUE, DESCRIPTOR(S), VALUE, VALUE, DESCRIPTOR(S), REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, ADDRESS, ADDRESS, STRING, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, VALUE, DESCRIPTOR(S), VALUE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, ADDRESS, ADDRESS, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, ADDRESS, ADDRESS, ADDRESS, UNSIGNED_WORD), (VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_WORD), (VALUE, DESCRIPTOR(S), VALUE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD, STRING, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, REFERENCE, DESCRIPTOR(S), VALUE)); pragma IMPORT_VALUED_PROCEDURE (FILESCAN, "SYS$FILESCAN", (COND_VALUE_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD, STRING, UNSIGNED_WORD), (VALUE, DESCRIPTOR(S), VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE)); -- -- $FIND -- -- Find Record in File -- -- $FIND rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure FIND ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, FIND); pragma IMPORT_VALUED_PROCEDURE (FIND, "SYS$FIND", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $FIND_HELD -- -- Find Identifiers Held By Holder -- -- $FIND_HELD holder, [id], [attrib], [contxt] -- -- holder = address of a quadword which specifies the holder -- id of the records to find -- id = address to return the identifier longword -- attrib = address to return the holder attributes longword -- contxt = address of a longword containing the record stream -- context. initially should be zero, value output -- on first call, value input on subsequent calls. -- procedure FIND_HELD ( STATUS : out COND_VALUE_TYPE; -- return value HOLDER : in RIGHTS_HOLDER_TYPE; ID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure FIND_HELD ( STATUS : out COND_VALUE_TYPE; -- return value HOLDER : in RIGHTS_HOLDER_TYPE; ID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure FIND_HELD ( STATUS : out COND_VALUE_TYPE; -- return value HOLDER : in RIGHTS_HOLDER_TYPE; ID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure FIND_HELD ( STATUS : out COND_VALUE_TYPE; -- return value HOLDER : in RIGHTS_HOLDER_TYPE; ID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure FIND_HELD ( STATUS : out COND_VALUE_TYPE; -- return value HOLDER : in RIGHTS_HOLDER_TYPE; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure FIND_HELD ( STATUS : out COND_VALUE_TYPE; -- return value HOLDER : in RIGHTS_HOLDER_TYPE; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure FIND_HELD ( STATUS : out COND_VALUE_TYPE; -- return value HOLDER : in RIGHTS_HOLDER_TYPE; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure FIND_HELD ( STATUS : out COND_VALUE_TYPE; -- return value HOLDER : in RIGHTS_HOLDER_TYPE; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, FIND_HELD); pragma IMPORT_VALUED_PROCEDURE (FIND_HELD, "SYS$FIND_HELD", (COND_VALUE_TYPE, RIGHTS_HOLDER_TYPE, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HELD, "SYS$FIND_HELD", (COND_VALUE_TYPE, RIGHTS_HOLDER_TYPE, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HELD, "SYS$FIND_HELD", (COND_VALUE_TYPE, RIGHTS_HOLDER_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HELD, "SYS$FIND_HELD", (COND_VALUE_TYPE, RIGHTS_HOLDER_TYPE, RIGHTS_ID_TYPE, ADDRESS, CONTEXT_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HELD, "SYS$FIND_HELD", (COND_VALUE_TYPE, RIGHTS_HOLDER_TYPE, ADDRESS, ADDRESS, CONTEXT_TYPE), (VALUE, REFERENCE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HELD, "SYS$FIND_HELD", (COND_VALUE_TYPE, RIGHTS_HOLDER_TYPE, ADDRESS, ADDRESS, ADDRESS), (VALUE, REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HELD, "SYS$FIND_HELD", (COND_VALUE_TYPE, RIGHTS_HOLDER_TYPE, ADDRESS, UNSIGNED_LONGWORD, ADDRESS), (VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HELD, "SYS$FIND_HELD", (COND_VALUE_TYPE, RIGHTS_HOLDER_TYPE, ADDRESS, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE)); -- -- $FIND_HOLDER -- -- Find Holder Of Identifier -- -- $FIND_HOLDER id, [holder], [attrib], [contxt] -- -- id = identifier longword whose holder records -- are to be found -- holder = address to return the holder id quadword -- attrib = address to return the attributes longword -- contxt = address of a longword containing the record stream -- context. initially should be zero, value output -- on first call, value input on subsequent calls. -- procedure FIND_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : out RIGHTS_HOLDER_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure FIND_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : out RIGHTS_HOLDER_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure FIND_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : out RIGHTS_HOLDER_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure FIND_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : out RIGHTS_HOLDER_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure FIND_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : in ADDRESS := ADDRESS_ZERO; -- To omit optional HOLDER argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure FIND_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : in ADDRESS := ADDRESS_ZERO; -- To omit optional HOLDER argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure FIND_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : in ADDRESS := ADDRESS_ZERO; -- To omit optional HOLDER argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure FIND_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : in ADDRESS := ADDRESS_ZERO; -- To omit optional HOLDER argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, FIND_HOLDER); pragma IMPORT_VALUED_PROCEDURE (FIND_HOLDER, "SYS$FIND_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, RIGHTS_HOLDER_TYPE, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HOLDER, "SYS$FIND_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, RIGHTS_HOLDER_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HOLDER, "SYS$FIND_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, RIGHTS_HOLDER_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HOLDER, "SYS$FIND_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, RIGHTS_HOLDER_TYPE, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HOLDER, "SYS$FIND_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HOLDER, "SYS$FIND_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HOLDER, "SYS$FIND_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FIND_HOLDER, "SYS$FIND_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- -- $FINISH_RDB -- -- Clean up RMS Stream -- -- $FINISH_RDB contxt -- -- contxt = address of a longword containing the record stream -- context. -- procedure FINISH_RDB ( STATUS : out COND_VALUE_TYPE; -- return value CONTXT : in out CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, FINISH_RDB); pragma IMPORT_VALUED_PROCEDURE (FINISH_RDB, "SYS$FINISH_RDB", (COND_VALUE_TYPE, CONTEXT_TYPE), (VALUE, REFERENCE)); -- $FORCEX -- -- Force Exit -- -- $FORCEX [pidadr] ,[prcnam] ,[code] -- -- pidadr = address of process id of process to be forced to exit -- -- prcnam = address of process name descriptor for forced process -- -- code = longword completion status for exit service -- procedure FORCEX ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; CODE : in COND_VALUE_TYPE := 0); procedure FORCEX ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; CODE : in COND_VALUE_TYPE := 0); pragma INTERFACE (EXTERNAL, FORCEX); pragma IMPORT_VALUED_PROCEDURE (FORCEX, "SYS$FORCEX", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, COND_VALUE_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE)); pragma IMPORT_VALUED_PROCEDURE (FORCEX, "SYS$FORCEX", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, COND_VALUE_TYPE), (VALUE, VALUE, DESCRIPTOR(S), VALUE)); -- -- $FORGE_WORD -- -- Forge random word. -- -- $FORGE_WORD [minlen], [maxlen], [mindata], [flags], [retdata], outlen, outstr -- -- minlen minimum word length to return -- maxlen maximum word length to return -- mindata minimum amount of data to return (in decibits) -- flags miscellaneous flags -- retdata longword to receive actual amount of information in word -- outlen word to receive length of returned word -- outstr address of buffer to receive word -- procedure FORGE_WORD ( STATUS : out COND_VALUE_TYPE; -- return value MINLEN : in UNSIGNED_LONGWORD_TYPE := 0; MAXLEN : in UNSIGNED_LONGWORD_TYPE := 0; MINDATA : in UNSIGNED_LONGWORD_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETDATA : out UNSIGNED_LONGWORD_TYPE; OUTLEN : out UNSIGNED_WORD_TYPE; OUTSTR : out STRING); procedure FORGE_WORD ( STATUS : out COND_VALUE_TYPE; -- return value MINLEN : in UNSIGNED_LONGWORD_TYPE := 0; MAXLEN : in UNSIGNED_LONGWORD_TYPE := 0; MINDATA : in UNSIGNED_LONGWORD_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETDATA : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETDATA argument OUTLEN : out UNSIGNED_WORD_TYPE; OUTSTR : out STRING); pragma INTERFACE (EXTERNAL, FORGE_WORD); pragma IMPORT_VALUED_PROCEDURE (FORGE_WORD, "SYS$FORGE_WORD", (COND_VALUE_TYPE, UNSIGNED_LONGWORD_TYPE, UNSIGNED_LONGWORD_TYPE, UNSIGNED_LONGWORD_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD_TYPE, UNSIGNED_WORD_TYPE, STRING), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (FORGE_WORD, "SYS$FORGE_WORD", (COND_VALUE_TYPE, UNSIGNED_LONGWORD_TYPE, UNSIGNED_LONGWORD_TYPE, UNSIGNED_LONGWORD_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_WORD_TYPE, STRING), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S))); -- -- $FORMAT_ACL -- -- Format an Access Control list Entry -- -- $FORMAT_ACL acl-entry, [acl-length], acl-string, -- [line-width], [term-desc], [line-indent], -- [bit-names], [routin] -- -- acl-entry = address of a descriptor of a buffer which -- contains the ACE -- -- acl-length = address of a word to receive the length of -- the output string -- -- acl-string = address of a descriptor of a buffer into -- which the output string is to be stored -- -- line-width = address of the maximum line width -- (0 = infinite) -- -- term_desc = address of a character descriptor containing -- a character string to be inserted whenever -- the line segment length exceeds the line-width -- -- line-indent = address of the number of columns to indent -- the output line segment -- -- bit-names = address of a access bit name table (32 entries) -- -- routin = address of routine to be executed in kernel mode -- procedure FORMAT_ACL ( STATUS : out COND_VALUE_TYPE; -- return value ACLENT : in STRING; ACLLEN : out UNSIGNED_WORD; ACLSTR : out STRING; WIDTH : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; TRMDSC : in STRING := STRING'NULL_PARAMETER; INDENT : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; ACCNAM : in ACCESS_BIT_NAMES_TYPE := ACCESS_BIT_NAMES_TYPE'NULL_PARAMETER; ROUTIN : in ADDRESS := ADDRESS_ZERO); procedure FORMAT_ACL ( STATUS : out COND_VALUE_TYPE; -- return value ACLENT : in STRING; ACLLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional ACLLEN argument ACLSTR : out STRING; WIDTH : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; TRMDSC : in STRING := STRING'NULL_PARAMETER; INDENT : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; ACCNAM : in ACCESS_BIT_NAMES_TYPE := ACCESS_BIT_NAMES_TYPE'NULL_PARAMETER; ROUTIN : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, FORMAT_ACL); pragma IMPORT_VALUED_PROCEDURE (FORMAT_ACL, "SYS$FORMAT_ACL", (COND_VALUE_TYPE, STRING, UNSIGNED_WORD, STRING, UNSIGNED_WORD, STRING, UNSIGNED_WORD, ACCESS_BIT_NAMES_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FORMAT_ACL, "SYS$FORMAT_ACL", (COND_VALUE_TYPE, STRING, ADDRESS, STRING, UNSIGNED_WORD, STRING, UNSIGNED_WORD, ACCESS_BIT_NAMES_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE)); -- -- $FORMAT_AUDIT fmttyp, audmsg, [outlen], outbuf, -- [width], [trmdsc], [routin], [fmtflg] -- -- Format security auditing event message -- -- fmttyp = format type -- -- audmsg = address of the message to format -- -- outlen = address of a word to receive length of output string -- -- outbuf = Address of a descriptor of a buffer to receive -- the formatted event message -- -- width = address of a word containing the display width -- -- trmdsc = address of a descriptor containing the line -- terminator character(s) -- -- routin = address of an output routine -- -- fmtflg = format control flags procedure FORMAT_AUDIT ( STATUS : out COND_VALUE_TYPE; -- return value FMTTYP : in UNSIGNED_LONGWORD; AUDMSG : in STRING; OUTLEN : out UNSIGNED_WORD; OUTBUF : out STRING; WIDTH : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; TRMDSC : in STRING := STRING'NULL_PARAMETER; ROUTIN : in ADDRESS := ADDRESS_ZERO; FMTFLG : in UNSIGNED_LONGWORD := 0); procedure FORMAT_AUDIT ( STATUS : out COND_VALUE_TYPE; -- return value FMTTYP : in UNSIGNED_LONGWORD; AUDMSG : in STRING; OUTLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTLEN argument OUTBUF : out STRING; WIDTH : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; TRMDSC : in STRING := STRING'NULL_PARAMETER; ROUTIN : in ADDRESS := ADDRESS_ZERO; FMTFLG : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, FORMAT_AUDIT); pragma IMPORT_VALUED_PROCEDURE (FORMAT_AUDIT, "SYS$FORMAT_AUDIT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_WORD, STRING, UNSIGNED_WORD, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (FORMAT_AUDIT, "SYS$FORMAT_AUDIT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, ADDRESS, STRING, UNSIGNED_WORD, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); -- $FORMAT_CLASS itmlst, [routin] -- -- Format access class strings -- -- itmlst = address of a list of item descriptors -- -- routin = address of routine to be executed in kernel mode -- -- procedure FORMAT_CLASS ( STATUS : out COND_VALUE_TYPE; -- return value ITMLST : in ITEM_LIST_TYPE; ROUTIN : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, FORMAT_CLASS); pragma IMPORT_VALUED_PROCEDURE (FORMAT_CLASS, "SYS$FORMAT_CLASS", (COND_VALUE_TYPE, ITEM_LIST_TYPE, ADDRESS), (VALUE, REFERENCE, VALUE)); -- -- $FREE -- -- Free Record -- -- $FREE rab, [err], [suc] -- -- rab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure FREE ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, FREE); pragma IMPORT_VALUED_PROCEDURE (FREE, "SYS$FREE", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $FREE_USER_CAPABILITY -- -- Release a global user capability bit -- -- $FREE_USER_CAPABILITY [cap_num],[prev_mask],[flags] -- -- cap_num = address of cell with requested cap number to release -- prev_mask = address of user quadword that will hold the -- previous state of the reserved capabilities cell -- flags = address of behavioral flags for this operation -- procedure FREE_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PREV_MASK : out MASK_QUADWORD_TYPE; FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure FREE_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PREV_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional PREV_MASK argument FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, FREE_USER_CAPABILITY); pragma IMPORT_VALUED_PROCEDURE (FREE_USER_CAPABILITY, "SYS$FREE_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, MASK_QUADWORD_TYPE, UNSIGNED_QUADWORD), (VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (FREE_USER_CAPABILITY, "SYS$FREE_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD), (VALUE, REFERENCE, VALUE, REFERENCE)); -- -- $FLUSH -- -- Flush Record -- -- $FLUSH rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure FLUSH ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, FLUSH); pragma IMPORT_VALUED_PROCEDURE (FLUSH, "SYS$FLUSH", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $GET_BITMAP_INFO -- -- GET Information about a Write Bitmap -- -- $GET_BITMAP_INFO handle, chan, devnam, name, index, itmlst -- procedure GET_BITMAP_INFO ( STATUS : out COND_VALUE_TYPE; -- return value HANDLE : in UNSIGNED_LONGWORD := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; INDEX : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GET_BITMAP_INFO); pragma IMPORT_VALUED_PROCEDURE (GET_BITMAP_INFO, "SYS$GET_BITMAP_INFO", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, CHANNEL_TYPE, DEVICE_NAME_TYPE, STRING, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE)); -- -- $GET_BITMAP_INFOW -- -- GET Information about a Write Bitmap and Wait -- -- $GET_BITMAP_INFOW devnam, name, index, handle, itmlst, status -- procedure GET_BITMAP_INFOW ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; INDEX : in UNSIGNED_LONGWORD := 0; HANDLE : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER; STATUS : out UNSIGNED_LONGWORD); procedure GET_BITMAP_INFOW ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; INDEX : in UNSIGNED_LONGWORD := 0; HANDLE : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER; STATUS : in ADDRESS := ADDRESS_ZERO); -- To omit optional STATUS argument pragma INTERFACE (EXTERNAL, GET_BITMAP_INFOW); pragma IMPORT_VALUED_PROCEDURE (GET_BITMAP_INFOW, "SYS$GET_BITMAP_INFOW", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_BITMAP_INFOW, "SYS$GET_BITMAP_INFOW", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE)); -- -- $GET_CPU_INFO -- -- GET Information about a CPU -- -- $GET_CPU_INFO func, flags, cpu_id, buffer, length, ret_length -- procedure GET_CPU_INFO ( STATUS : out COND_VALUE_TYPE; -- return value FUNC : in UNSIGNED_LONGWORD; FLAGS : in UNSIGNED_LONGWORD; CPU_ID : in out UNSIGNED_LONGWORD; BUFFER_LENGTH : in UNSIGNED_LONGWORD; BUFFER_ADDRESS_64 : in ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, GET_CPU_INFO); pragma IMPORT_VALUED_PROCEDURE (GET_CPU_INFO, "SYS$GET_CPU_INFO", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE)); -- $GET_REGION_INFO -- -- Get Information About Virtual Address Region -- -- $GET_REGION_INFO function, region_id_64, start_va_64, ,buffer_length, -- buffer_address_64, return_length_64 -- -- function = Function code -- -- Code Meaning -- VA$_REGSUM_BY_ID Region summary, by ID -- VA$_REGSUM_BY_VA Region summary, by VA -- VA$_NEXT_REGSUM_BY_VA Next region summary, by VA -- -- region_id_64 = Address of quadword region id to use with -- VA$_REGSUM_BY_ID -- -- start_va_64 = Virtual address to use with VA$_REGSUM_BY_VA -- -- buffer_length = Length of user buffer -- -- buffer_address_64 = Address of user REGSUM buffer -- -- return_length_64 = Length of data written to user buffer -- procedure GET_REGION_INFO ( STATUS : out COND_VALUE_TYPE; -- return value FUNCTIO : in UNSIGNED_LONGWORD; REGION_ID_64 : in UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS; RESERVED : in ADDRESS; BUFFER_LENGTH : in UNSIGNED_LONGWORD; BUFFER_ADDRESS_64 : in ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, GET_REGION_INFO); pragma IMPORT_VALUED_PROCEDURE (GET_REGION_INFO, "SYS$GET_REGION_INFO", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE)); -- $GET_SECURITY -- -- Get Object Securty Profile -- -- $GET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] -- procedure GET_SECURITY ( STATUS : out COND_VALUE_TYPE; -- return value CLSNAM : in STRING := STRING'NULL_PARAMETER; OBJNAM : in STRING := STRING'NULL_PARAMETER; OBJHAN : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; CONTXT : in out CONTEXT_TYPE; ACMODE : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); procedure GET_SECURITY ( STATUS : out COND_VALUE_TYPE; -- return value CLSNAM : in STRING := STRING'NULL_PARAMETER; OBJNAM : in STRING := STRING'NULL_PARAMETER; OBJHAN : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument ACMODE : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GET_SECURITY); pragma IMPORT_VALUED_PROCEDURE (GET_SECURITY, "SYS$GET_SECURITY", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, CONTEXT_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_SECURITY, "SYS$GET_SECURITY", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE)); -- -- $GET -- -- Get Record from File -- -- $GET rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure GET ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GET); pragma IMPORT_VALUED_PROCEDURE (GET, "SYS$GET", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $GET_ARITH_EXCEPTION -- -- Get AXP arithmetic exception context information -- -- $GET_ARITH_EXCEPTION sigarg, mcharg, buffer -- -- sigarg = address of signal array of the exception -- -- mcharg = address of mechanism array of the exception -- -- buffer = address of buffer to return information -- procedure GET_ARITH_EXCEPTION ( STATUS : out COND_VALUE_TYPE; -- return value SIGARG : in INTEGER_ARRAY; MCHARG : in UNSIGNED_QUADWORD_ARRAY; BUFFER : out UNSIGNED_QUADWORD_ARRAY); pragma INTERFACE (EXTERNAL, GET_ARITH_EXCEPTION); pragma IMPORT_VALUED_PROCEDURE (GET_ARITH_EXCEPTION, "SYS$GET_ARITH_EXCEPTION", (COND_VALUE_TYPE, INTEGER_ARRAY, UNSIGNED_QUADWORD_ARRAY, UNSIGNED_QUADWORD_ARRAY), (VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S))); -- $GETCHN -- -- Get I/O Channel Information -- -- $GETCHN chan ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] -- -- chan = number of a channel assigned to the device -- -- prilen = address of word to receive length of primary buffer -- -- pribuf = address of primary buffer descriptor -- -- scdlen = address of word to receive length of secondary buffer -- -- scdbuf = address of secondary buffer descriptor -- --***INFO: 4 parameters require overloading procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : out STRING; SCDLEN : out UNSIGNED_WORD; SCDBUF : out STRING); procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : out STRING; SCDLEN : out UNSIGNED_WORD; SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : out STRING; SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : out STRING; SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : out STRING); procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : out STRING); procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : out UNSIGNED_WORD; SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : out UNSIGNED_WORD; SCDBUF : out STRING); procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : out UNSIGNED_WORD; SCDBUF : out STRING); procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : out UNSIGNED_WORD; SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : out STRING); procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : out STRING; SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : out STRING); procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : out STRING; SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : out STRING; SCDLEN : out UNSIGNED_WORD; SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETCHN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : out STRING; SCDLEN : out UNSIGNED_WORD; SCDBUF : out STRING); pragma INTERFACE (EXTERNAL, GETCHN); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_WORD, STRING, UNSIGNED_WORD, STRING), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_WORD, STRING, UNSIGNED_WORD, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_WORD, STRING, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_WORD, STRING, ADDRESS, STRING), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_WORD, ADDRESS, ADDRESS, STRING), (VALUE, VALUE, REFERENCE, VALUE, VALUE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_WORD, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_WORD, ADDRESS, UNSIGNED_WORD, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_WORD, ADDRESS, UNSIGNED_WORD, STRING), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, ADDRESS, ADDRESS, UNSIGNED_WORD, STRING), (VALUE, VALUE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, ADDRESS, ADDRESS, UNSIGNED_WORD, ADDRESS), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, ADDRESS, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, ADDRESS, ADDRESS, ADDRESS, STRING), (VALUE, VALUE, VALUE, VALUE, VALUE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, ADDRESS, STRING, ADDRESS, STRING), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, ADDRESS, STRING, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, ADDRESS, STRING, UNSIGNED_WORD, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETCHN, "SYS$GETCHN", (COND_VALUE_TYPE, CHANNEL_TYPE, ADDRESS, STRING, UNSIGNED_WORD, STRING), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S))); -- $GETDEV -- -- Get I/O Device Information -- -- $GETDEV devnam ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] -- -- devnam = address of device name or logical name descriptor -- -- prilen = address of word to receive length of primary buffer -- -- pribuf = address of primary buffer descriptor -- -- scdlen = address of word to receive length of secondary buffer -- -- scdbuf = address of secondary buffer descriptor -- --***INFO: 4 parameters require overloading procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : out STRING; SCDLEN : out UNSIGNED_WORD; SCDBUF : out STRING); procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : out STRING; SCDLEN : out UNSIGNED_WORD; SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : out STRING; SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : out STRING; SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : out STRING); procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : out STRING); procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : out UNSIGNED_WORD; SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : out UNSIGNED_WORD; PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : out UNSIGNED_WORD; SCDBUF : out STRING); procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : out UNSIGNED_WORD; SCDBUF : out STRING); procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : out UNSIGNED_WORD; SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRIBUF argument SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : out STRING); procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : out STRING; SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : out STRING); procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : out STRING; SCDLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional SCDLEN argument SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : out STRING; SCDLEN : out UNSIGNED_WORD; SCDBUF : in ADDRESS := ADDRESS_ZERO); -- To omit optional SCDBUF argument procedure GETDEV ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; PRILEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRILEN argument PRIBUF : out STRING; SCDLEN : out UNSIGNED_WORD; SCDBUF : out STRING); pragma INTERFACE (EXTERNAL, GETDEV); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, STRING, UNSIGNED_WORD, STRING), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, STRING, UNSIGNED_WORD, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, STRING, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, STRING, ADDRESS, STRING), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, ADDRESS, ADDRESS, STRING), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, ADDRESS, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, ADDRESS, UNSIGNED_WORD, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, UNSIGNED_WORD, ADDRESS, UNSIGNED_WORD, STRING), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, ADDRESS, UNSIGNED_WORD, STRING), (VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, ADDRESS, UNSIGNED_WORD, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, ADDRESS, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, ADDRESS, ADDRESS, STRING), (VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, STRING, ADDRESS, STRING), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, STRING, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, STRING, UNSIGNED_WORD, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETDEV, "SYS$GETDEV", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, ADDRESS, STRING, UNSIGNED_WORD, STRING), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S))); -- -- $GETDTI -- -- Get Distributed Transaction Information -- -- $GETDTI [efn], [flags], iosb, [astadr], [astprm], [log_id], context, -- ($GETDTIW) search, itmlst -- -- efn = event flag to set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of the entry mask of an AST routine -- astprm = value to be passed to AST routine -- log_id = address of log id for TM log -- context = address of longword search context -- search = address of a list of search criteria items -- itmlst = address of a list of item descriptors -- procedure GETDTI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; LOG_ID : in OCTAWORD_UNSIGNED_TYPE := OCTAWORD_UNSIGNED_TYPE'NULL_PARAMETER; CONTXT : in out CONTEXT_TYPE; SEARCH : in ITEM_LIST_TYPE; ITMLST : in ITEM_LIST_TYPE); pragma INTERFACE (EXTERNAL, GETDTI); pragma IMPORT_VALUED_PROCEDURE (GETDTI, "SYS$GETDTI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, OCTAWORD_UNSIGNED_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, ITEM_LIST_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE)); procedure GETDTIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; LOG_ID : in OCTAWORD_UNSIGNED_TYPE := OCTAWORD_UNSIGNED_TYPE'NULL_PARAMETER; CONTXT : in out CONTEXT_TYPE; SEARCH : in ITEM_LIST_TYPE; ITMLST : in ITEM_LIST_TYPE); pragma INTERFACE (EXTERNAL, GETDTIW); pragma IMPORT_VALUED_PROCEDURE (GETDTIW, "SYS$GETDTIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, OCTAWORD_UNSIGNED_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, ITEM_LIST_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE)); -- $GETDVI -- -- Get Device/Volume Information -- -- $GETDVI [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr] -- ($GETDVIW) ,[astprm] ,[nullarg], [pathname] -- -- efn = event flag to be set at completion -- -- chan = number of a channel assigned to the device or -- 0 if device is specified by the devnam parameter -- -- devnam = address of device name or logical name descriptor -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- nullarg = zilch -- -- pathname = optional address of a path name descriptor -- -- procedure GETDVI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO; PATHNAME : in PATHNAME_TYPE := PATHNAME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GETDVI); pragma IMPORT_VALUED_PROCEDURE (GETDVI, "SYS$GETDVI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, PATHNAME_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE, DESCRIPTOR(S)), PATHNAME); procedure GETDVIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO; PATHNAME : in PATHNAME_TYPE := PATHNAME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GETDVIW); pragma IMPORT_VALUED_PROCEDURE (GETDVIW, "SYS$GETDVIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, PATHNAME_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE, DESCRIPTOR(S)), PATHNAME); -- $GETEVI -- -- Get Event Information -- -- $GETEVI itmlst ,[nullarg] -- -- itmlst = address of a list of item descriptors -- procedure GETEVI ( STATUS : out COND_VALUE_TYPE; -- return value ITMLST : in ITEM_LIST_TYPE; NULLARG : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, GETEVI); pragma IMPORT_VALUED_PROCEDURE (GETEVI, "SYS$GETEVI", (COND_VALUE_TYPE, ITEM_LIST_TYPE, ADDRESS), (VALUE, REFERENCE, VALUE)); -- $GETJPI -- -- Get Job/Process Information -- -- $GETJPI [efn] ,[pidadr] ,[prcnam] ,itmlst ,[iosb], [astadr], -- ($GETJPIW) [astprm] -- -- efn = event flag to be set at completion -- -- pidadr = address of process identification -- -- prcnam = address of process name string descriptor -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as an argument -- -- procedure GETJPI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETJPI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETJPI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETJPI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETJPI); pragma IMPORT_VALUED_PROCEDURE (GETJPI, "SYS$GETJPI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETJPI, "SYS$GETJPI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETJPI, "SYS$GETJPI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETJPI, "SYS$GETJPI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); procedure GETJPIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETJPIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETJPIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETJPIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETJPIW); pragma IMPORT_VALUED_PROCEDURE (GETJPIW, "SYS$GETJPIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETJPIW, "SYS$GETJPIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETJPIW, "SYS$GETJPIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETJPIW, "SYS$GETJPIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); -- $GETJPI_FAST -- -- Get Job/Process Information For The Current Process -- -- $GETJPI_FAST -- -- item_mask = Mask of current process info requested -- -- flags = MBZ for now -- -- return_buffer -- = Address of buffer to return array of longword info -- -- return_buffer_length -- = Length of return buffer array in bytes -- -- procedure SYS_GETJPI_FAST ( STATUS : out COND_VALUE_TYPE; -- return value ITEM_MASK : in MASK_QUADWORD_TYPE; FLAGS : in ADDRESS; RETURN_BUFFER : in out UNSIGNED_LONGWORD_ARRAY; RETURN_BUFFER_LENGTH : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, SYS_GETJPI_FAST); pragma IMPORT_VALUED_PROCEDURE (SYS_GETJPI_FAST, "SYS$GETJPI_FAST", (COND_VALUE_TYPE, MASK_QUADWORD_TYPE, ADDRESS, UNSIGNED_LONGWORD_ARRAY, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, VALUE)); -- $GETLKI -- -- Get Lock Information -- -- $GETLKI [efn] ,lkidadr ,itmlst ,[iosb], [astadr], [astprm], -- ($GETLKIW) [reserved] -- -- efn = event flag to be set at completion -- -- lkidadr = address of lock identification -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as an argument -- -- reserved = reserved parameter -- -- procedure GETLKI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; LKIDADR : in out LOCK_ID_TYPE; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RESERVED : in ADDRESS := ADDRESS_ZERO); procedure GETLKI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; LKIDADR : in out LOCK_ID_TYPE; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RESERVED : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, GETLKI); pragma IMPORT_VALUED_PROCEDURE (GETLKI, "SYS$GETLKI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, LOCK_ID_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETLKI, "SYS$GETLKI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, LOCK_ID_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); procedure GETLKIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; LKIDADR : in out LOCK_ID_TYPE; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RESERVED : in ADDRESS := ADDRESS_ZERO); procedure GETLKIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; LKIDADR : in out LOCK_ID_TYPE; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RESERVED : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, GETLKIW); pragma IMPORT_VALUED_PROCEDURE (GETLKIW, "SYS$GETLKIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, LOCK_ID_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETLKIW, "SYS$GETLKIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, LOCK_ID_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); -- $GETMSG -- -- Get Message -- -- $GETMSG msgid ,msglen ,bufadr ,[flags] ,[outadr] -- -- msgid = identification of message to be retrieved -- -- msglen = address of a word to receive length of string -- returned -- -- bufadr = address of buffer descriptor of buffer to receive -- string -- -- flags = flag bits for message content (macro default = 15) -- -- Bit Value/Meaning -- -- 0 1 Include text -- 0 Do not include text -- 1 1 Include identifier -- 0 Do not include identifier -- 2 1 Include severity -- 0 Do not include severity -- 3 1 Include component -- 0 Do not include component -- -- outadr = address of 4-byte array to receive the following values: -- -- Byte Contents -- -- 0 Reserved -- 1 Count of FAO arguments -- 2 User value -- 3 Reserved -- procedure GETMSG ( STATUS : out COND_VALUE_TYPE; -- return value MSGID : in COND_VALUE_TYPE; MSGLEN : out UNSIGNED_WORD; BUFADR : out STRING; FLAGS : in UNSIGNED_LONGWORD := MASK_LONGWORD_15; OUTADR : out UNSIGNED_BYTE_ARRAY); procedure GETMSG ( STATUS : out COND_VALUE_TYPE; -- return value MSGID : in COND_VALUE_TYPE; MSGLEN : out UNSIGNED_WORD; BUFADR : out STRING; FLAGS : in UNSIGNED_LONGWORD := MASK_LONGWORD_15; OUTADR : in ADDRESS := ADDRESS_ZERO); -- To omit optional OUTADR argument pragma INTERFACE (EXTERNAL, GETMSG); pragma IMPORT_VALUED_PROCEDURE (GETMSG, "SYS$GETMSG", (COND_VALUE_TYPE, COND_VALUE_TYPE, UNSIGNED_WORD, STRING, UNSIGNED_LONGWORD, UNSIGNED_BYTE_ARRAY), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GETMSG, "SYS$GETMSG", (COND_VALUE_TYPE, COND_VALUE_TYPE, UNSIGNED_WORD, STRING, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); -- $GETPTI -- -- Get Page Table Information -- -- $GETPTI [inadr],[retadr],[acmode],[mask],[pagcnt] -- -- inadr = address of two longwords containing starting -- and ending virtual address to operate on -- -- retadr = address of two longwords into which starting -- and ending address of pages operated on is returned -- -- acmode = access mode against which ownership is checked -- -- mask = mask of page table information control bits -- -- pagcnt = minimum page count -- -- procedure GETPTI ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; MASK : in UNSIGNED_LONGWORD := 0; PAGCNT : in UNSIGNED_LONGWORD := 0); procedure GETPTI ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; MASK : in UNSIGNED_LONGWORD := 0; PAGCNT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, GETPTI); pragma IMPORT_VALUED_PROCEDURE (GETPTI, "SYS$GETPTI", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETPTI, "SYS$GETPTI", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE)); -- $GETQUI -- -- Get Queue Information -- -- $GETQUI [efn], func, [context], [itmlst], -- ($GETQUIW) [iosb], [astadr], [astprm] -- -- efn = event flag to be set when request completes -- func = code specifying function to be performed -- context = address of a longword containing a context number -- itmlst = address of a list of item descriptors for the operation -- iosb = address of a quadword status block to receive the final status -- astadr = address of an ast routine to be called when request completes -- astprm = 32-bit ast parameter -- procedure GETQUI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETQUI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETQUI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTEXT argument ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETQUI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTEXT argument ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETQUI); pragma IMPORT_VALUED_PROCEDURE (GETQUI, "SYS$GETQUI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETQUI, "SYS$GETQUI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETQUI, "SYS$GETQUI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETQUI, "SYS$GETQUI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); procedure GETQUIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETQUIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETQUIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTEXT argument ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETQUIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTEXT argument ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETQUIW); pragma IMPORT_VALUED_PROCEDURE (GETQUIW, "SYS$GETQUIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETQUIW, "SYS$GETQUIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETQUIW, "SYS$GETQUIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETQUIW, "SYS$GETQUIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); -- $GETRMI -- -- Get Resource Monitor Information -- -- $GETRMI [efn] ,[nullarg] ,[nullarg] ,itmlst ,[iosb] ,[astadr] ,[astprm] -- -- efn = event flag to be set at completion -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- nullarg = reserved argument -- -- procedure GETRMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; NULLARG1 : in ADDRESS := ADDRESS_ZERO; NULLARG2 : in ADDRESS := ADDRESS_ZERO; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETRMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; NULLARG1 : in ADDRESS := ADDRESS_ZERO; NULLARG2 : in ADDRESS := ADDRESS_ZERO; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETRMI); pragma IMPORT_VALUED_PROCEDURE (GETRMI, "SYS$GETRMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, ADDRESS, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETRMI, "SYS$GETRMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, ADDRESS, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); -- $GETSYI -- -- Get System-Wide Information -- -- $GETSYI [efn] ,[csidadr],[nodename],itmlst ,[iosb] ,[astadr], -- ($GETSYIW) [astprm] -- -- efn = event flag to be set at completion -- -- csidadr = address of cluster system identification -- -- nodename = address of node name string descriptor -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- -- The second and third arguments in the $GETSYI argument list are -- not used; they are reserved for future use. -- procedure GETSYI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CSIDADR : in out PROCESS_ID_TYPE; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETSYI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CSIDADR : in out PROCESS_ID_TYPE; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETSYI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CSIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional CSIDADR argument NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETSYI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CSIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional CSIDADR argument NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETSYI); pragma IMPORT_VALUED_PROCEDURE (GETSYI, "SYS$GETSYI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETSYI, "SYS$GETSYI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETSYI, "SYS$GETSYI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETSYI, "SYS$GETSYI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); procedure GETSYIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CSIDADR : in out PROCESS_ID_TYPE; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETSYIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CSIDADR : in out PROCESS_ID_TYPE; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETSYIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CSIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional CSIDADR argument NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETSYIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CSIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional CSIDADR argument NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETSYIW); pragma IMPORT_VALUED_PROCEDURE (GETSYIW, "SYS$GETSYIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETSYIW, "SYS$GETSYIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETSYIW, "SYS$GETSYIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETSYIW, "SYS$GETSYIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, PROCESS_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); -- $GETTIM -- -- Get Time -- -- $GETTIM timadr, [flags] -- -- timadr = address of a quadword to receive 64-bit current time value -- flags = optional flags to modify the type of time returned (initially Smithsonian time or time-since-boot) procedure GETTIM ( STATUS : out COND_VALUE_TYPE; -- return value TIMADR : out DATE_TIME_TYPE; FLAGS : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GETTIM); pragma IMPORT_VALUED_PROCEDURE (GETTIM, "SYS$GETTIM", (COND_VALUE_TYPE, DATE_TIME_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, VALUE), FLAGS); -- -- Get Time (High Precision) -- -- $GETTIM_PREC timadr -- -- timadr = address of a quadword to receive 64-bit current time value -- procedure GETTIM_PREC ( STATUS : out COND_VALUE_TYPE; -- return value TIMADR : out DATE_TIME_TYPE); pragma INTERFACE (EXTERNAL, GETTIM_PREC); pragma IMPORT_VALUED_PROCEDURE (GETTIM_PREC, "SYS$GETTIM_PREC", (COND_VALUE_TYPE, DATE_TIME_TYPE), (VALUE, REFERENCE)); -- -- $GET_USER_CAPABILITY -- -- Reserve a global user capability bit -- -- $GET_USER_CAPABILITY [cap_num],[select_num],[select_mask],[prev_mask],[flags] -- -- cap_num = address of cell with requested cap number -- select_num = address of cell with selected cap number -- select_mask = address of bitmask indicating which capability -- bit selected by operation -- prev_mask = address of user quadword that will hold the -- previous state of the reserved capabilities cell -- flags = address of behavioral flags for this operation -- procedure GET_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; SELECT_NUM : out UNSIGNED_LONGWORD; SELECT_MASK : out MASK_QUADWORD_TYPE; PREV_MASK : out MASK_QUADWORD_TYPE; FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure GET_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; SELECT_NUM : out UNSIGNED_LONGWORD; SELECT_MASK : out MASK_QUADWORD_TYPE; PREV_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional PREV_MASK argument FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure GET_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; SELECT_NUM : out UNSIGNED_LONGWORD; SELECT_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional SELECT_MASK argument PREV_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional PREV_MASK argument FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure GET_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; SELECT_NUM : out UNSIGNED_LONGWORD; SELECT_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional SELECT_MASK argument PREV_MASK : out MASK_QUADWORD_TYPE; FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure GET_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; SELECT_NUM : in ADDRESS := ADDRESS_ZERO; -- To omit optional SELECT_NUM argument SELECT_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional SELECT_MASK argument PREV_MASK : out MASK_QUADWORD_TYPE; FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure GET_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; SELECT_NUM : in ADDRESS := ADDRESS_ZERO; -- To omit optional SELECT_NUM argument SELECT_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional SELECT_MASK argument PREV_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional PREV_MASK argument FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure GET_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; SELECT_NUM : in ADDRESS := ADDRESS_ZERO; -- To omit optional SELECT_NUM argument SELECT_MASK : out MASK_QUADWORD_TYPE; PREV_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional PREV_MASK argument FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure GET_USER_CAPABILITY ( STATUS : out COND_VALUE_TYPE; -- return value CAP_NUM : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; SELECT_NUM : in ADDRESS := ADDRESS_ZERO; -- To omit optional SELECT_NUM argument SELECT_MASK : out MASK_QUADWORD_TYPE; PREV_MASK : out MASK_QUADWORD_TYPE; FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GET_USER_CAPABILITY); pragma IMPORT_VALUED_PROCEDURE (GET_USER_CAPABILITY, "SYS$GET_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, UNSIGNED_QUADWORD), (VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_USER_CAPABILITY, "SYS$GET_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, MASK_QUADWORD_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_USER_CAPABILITY, "SYS$GET_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, ADDRESS, UNSIGNED_QUADWORD), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_USER_CAPABILITY, "SYS$GET_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, MASK_QUADWORD_TYPE, UNSIGNED_QUADWORD), (VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_USER_CAPABILITY, "SYS$GET_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ADDRESS, MASK_QUADWORD_TYPE, UNSIGNED_QUADWORD), (VALUE, REFERENCE, VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_USER_CAPABILITY, "SYS$GET_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ADDRESS, ADDRESS, UNSIGNED_QUADWORD), (VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_USER_CAPABILITY, "SYS$GET_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, MASK_QUADWORD_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_USER_CAPABILITY, "SYS$GET_USER_CAPABILITY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, UNSIGNED_QUADWORD), (VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE)); -- $GETUTC -- -- Get UTC Time -- -- $GETUTC utcadr -- -- utcadr = address of a utc_date_time to receive 128-bit current UTC time -- value -- procedure GETUTC ( STATUS : out COND_VALUE_TYPE; -- return value UTCADR : out UTC_DATE_TIME_TYPE); pragma INTERFACE (EXTERNAL, GETUTC); pragma IMPORT_VALUED_PROCEDURE (GETUTC, "SYS$GETUTC", (COND_VALUE_TYPE, UTC_DATE_TIME_TYPE), (VALUE, REFERENCE)); -- $GETUAI -- -- Get User Authorization Information -- -- $GETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] -- ,[astprm] -- -- efn = event flag to be set at completion -- -- contxt = address of a context longword (UAF IFI & ISI) -- -- usrnam = address of user name descriptor -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- procedure GETUAI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; USRNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETUAI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; USRNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETUAI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument USRNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETUAI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument USRNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETUAI); pragma IMPORT_VALUED_PROCEDURE (GETUAI, "SYS$GETUAI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETUAI, "SYS$GETUAI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETUAI, "SYS$GETUAI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETUAI, "SYS$GETUAI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); -- -- $GET_WBEM_INFO -- -- Get system information needed by WBEM providers -- -- $GET_WBEM_INFO itm_code, itm_param1, itm_param_buf, -- buf_addr, buf_len, ret_len_addr -- -- itm_code = Item code value, defined by $WBEMIDEF, wbemidef.h -- -- itm_param1 = Item code dependent input parameter value. -- If zero item code dependent parameters required, -- must be zero. -- If exactly one longword parameter required, -- parameter value. -- If more than one parameter required, size in -- bytes of the item parameter buffer. -- -- itm_param_buf = Address of item parameter buffer. Size of the -- buffer, in bytes, is given by the value of -- itm_param1. -- If the specified item code does not require -- more than a single parameter, this address -- must be zero. -- -- buf_addr = Address of buffer into which data is returned. -- Size of the buffer, in bytes, is given by buf_len. -- -- buf_len = Size of the output buffer in bytes. -- -- ret_len_addr = Address of a 32-bit longword into which the -- value of the number of bytes that have been -- written into the output buffer is returned. -- The caller should not assume that the remaining -- bytes in the output buffer have been zeroed. -- procedure GET_WBEM_INFO ( STATUS : out COND_VALUE_TYPE; -- return value ITM_CODE : in UNSIGNED_LONGWORD; ITM_PARAM1 : in UNSIGNED_LONGWORD; ITM_PARAM_BUF : in ADDRESS; BUF_ADDR : in ADDRESS; BUF_LEN : in UNSIGNED_LONGWORD; RET_LEN_ADDR : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, GET_WBEM_INFO); pragma IMPORT_VALUED_PROCEDURE (GET_WBEM_INFO, "SYS$GET_WBEM_INFO", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE)); -- Verified for IA64 port - KLN -- $GOTO_UNWIND -- -- General Unwind Call Stack -- -- $GOTO_UNWIND [target_invo], [target_pc], [new_r0], [new_r1] -- -- target_invo = address of longword containing the invocation -- handle (frame pointer) to unwind call stack -- -- target_pc = address of longword that contains the to be given -- control when the unwind is complete -- -- new_r0 = address of a location that contains the value to be -- placed in the saved R0 field of the mechanism array -- -- new_r1 = address of a location that contains the value to be -- placed in the saved R1 field of the mechanism array -- -- procedure GOTO_UNWIND ( STATUS : out COND_VALUE_TYPE; -- return value TARGET_INVO : in ADDRESS := ADDRESS_ZERO; TARGET_PC : in ADDRESS := ADDRESS_ZERO; NEW_R0 : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; NEW_R1 : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GOTO_UNWIND); pragma IMPORT_VALUED_PROCEDURE (GOTO_UNWIND, "SYS$GOTO_UNWIND", (COND_VALUE_TYPE, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- Alpha -- $GOTO_UNWIND_64 -- -- General Unwind Call Stack -- -- $GOTO_UNWIND_64 [target_invo_64], [target_pc_64], -- [newretval], [newretval2] -- -- target_invo_64 = address of longword (Alpha) or quadword (IPF) -- containing the invocation handle (frame pointer on -- Alpha) to unwind call stack -- -- target_pc_64 = address of quadword that contains the PC to be -- given control when the unwind is complete -- -- newretval = address of a location that contains the value to be -- placed in the saved R0 field of the mechanism array -- -- newretval2 = address of a location that contains the value to be -- placed in the saved R1 field of the mechanism array -- -- procedure GOTO_UNWIND_64 ( STATUS : out COND_VALUE_TYPE; -- return value TARGET_INVO_64 : in INVO_HANDLE_TYPE := INVO_HANDLE_TYPE'NULL_PARAMETER; TARGET_PC_64 : in ADDRESS := ADDRESS_ZERO; NEWRETVAL : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER; NEWRETVAL2 : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GOTO_UNWIND_64); pragma IMPORT_VALUED_PROCEDURE (GOTO_UNWIND_64, "SYS$GOTO_UNWIND_64", (COND_VALUE_TYPE, INVO_HANDLE_TYPE, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD), (VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE)); -- -- $GRANTID -- -- Grant Identifier to Process -- -- $GRANTID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] -- -- pidadr = address of PID of affected process -- prcnam = address of string descriptor of process name -- id = address of quadword identifier and attributes -- name = address of string descriptor of identifier name -- prvatr = address to store attributes of superseded id -- segment = optional segment index, by value -- procedure GRANTID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in out RIGHTS_HOLDER_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : out UNSIGNED_LONGWORD; SEGMENT : in UNSIGNED_LONGWORD := 0); procedure GRANTID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in out RIGHTS_HOLDER_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVATR argument SEGMENT : in UNSIGNED_LONGWORD := 0); procedure GRANTID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVATR argument SEGMENT : in UNSIGNED_LONGWORD := 0); procedure GRANTID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : out UNSIGNED_LONGWORD; SEGMENT : in UNSIGNED_LONGWORD := 0); procedure GRANTID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : out UNSIGNED_LONGWORD; SEGMENT : in UNSIGNED_LONGWORD := 0); procedure GRANTID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVATR argument SEGMENT : in UNSIGNED_LONGWORD := 0); procedure GRANTID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in out RIGHTS_HOLDER_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVATR argument SEGMENT : in UNSIGNED_LONGWORD := 0); procedure GRANTID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in out RIGHTS_HOLDER_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : out UNSIGNED_LONGWORD; SEGMENT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, GRANTID); pragma IMPORT_VALUED_PROCEDURE (GRANTID, "SYS$GRANTID", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, RIGHTS_HOLDER_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GRANTID, "SYS$GRANTID", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, RIGHTS_HOLDER_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GRANTID, "SYS$GRANTID", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ADDRESS, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GRANTID, "SYS$GRANTID", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ADDRESS, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GRANTID, "SYS$GRANTID", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, ADDRESS, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GRANTID, "SYS$GRANTID", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, ADDRESS, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GRANTID, "SYS$GRANTID", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, RIGHTS_HOLDER_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GRANTID, "SYS$GRANTID", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, RIGHTS_HOLDER_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); -- -- $GRANT_LICENSE -- -- Grant authorization to execute licensed software product. -- -- $GRANT_LICENSE prdnam ,prducer [,contxt] [,itmlst] -- -- prdnam = address of descriptor for software product name -- prducer = address of descriptor for software producer name -- contxt = address of context buffer (4 longwords) -- itmlst = address of a list of item descriptors -- procedure GRANT_LICENSE ( STATUS : out COND_VALUE_TYPE; -- return value PRDNAM : in STRING; PRDUCER : in STRING; CONTXT : out CONTEXT_TYPE; ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER); procedure GRANT_LICENSE ( STATUS : out COND_VALUE_TYPE; -- return value PRDNAM : in STRING; PRDUCER : in STRING; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument ITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GRANT_LICENSE); pragma IMPORT_VALUED_PROCEDURE (GRANT_LICENSE, "SYS$GRANT_LICENSE", (COND_VALUE_TYPE, STRING, STRING, CONTEXT_TYPE, ITEM_LIST_3_TYPE), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GRANT_LICENSE, "SYS$GRANT_LICENSE", (COND_VALUE_TYPE, STRING, STRING, ADDRESS, ITEM_LIST_3_TYPE), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE)); -- $HASH_PASSWORD -- -- Encrypt a user password to produce a quadword hash value. -- -- $HASH_PASSWORD pwd, alg, [salt], usrnam, hash -- -- pwd = address of descriptor for plaintext password -- alg = algorithm to use for hash -- salt = salt value for use by hash algorithm -- usrnam = address of descriptor of username -- hash = address of output quadword hash buffer -- procedure HASH_PASSWORD ( STATUS : out COND_VALUE_TYPE; -- return value PWD : in STRING; ALG : in UNSIGNED_BYTE; SALT : in UNSIGNED_WORD := 0; USRNAM : in STRING; HASH : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, HASH_PASSWORD); pragma IMPORT_VALUED_PROCEDURE (HASH_PASSWORD, "SYS$HASH_PASSWORD", (COND_VALUE_TYPE, STRING, UNSIGNED_BYTE, UNSIGNED_WORD, STRING, UNSIGNED_QUADWORD), (VALUE, DESCRIPTOR(S), VALUE, VALUE, DESCRIPTOR(S), REFERENCE)); -- $HIBER -- -- Hibernate -- -- $HIBER_S -- procedure HIBER ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, HIBER); pragma IMPORT_VALUED_PROCEDURE (HIBER, "SYS$HIBER", (COND_VALUE_TYPE), (VALUE)); -- -- $IDTOASC -- -- Identifier To Ascii Conversion -- -- $IDTOASC id, [namlen], [nambuf], [resid], [attrib], [contxt] -- -- id = identifier longword to convert, or zero to -- find all identifiers (wildcarding) -- namlen = address of a word to store the length of the -- identifier name -- nambuf = address of a character string descriptor that -- describes the buffer to return the identifier name -- resid = address of a longword to return the id found -- while wildcarding -- attrib = address to return the attributes longword -- contxt = address of a longword containing the record stream -- context. initially should be zero, value output -- on first call, value input on subsequent calls. -- --***INFO: 5 parameters require overloading procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : out STRING; RESID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : out STRING; RESID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : out STRING; RESID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : out STRING; RESID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : out STRING; RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : out STRING; RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : out STRING; RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : out STRING; RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : out UNSIGNED_WORD; NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMBUF argument RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : out STRING; RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : out STRING; RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : out STRING; RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : out STRING; RESID : in ADDRESS := ADDRESS_ZERO; -- To omit optional RESID argument ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : out STRING; RESID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in out CONTEXT_TYPE); procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : out STRING; RESID : out RIGHTS_ID_TYPE; ATTRIB : in ADDRESS := ADDRESS_ZERO; -- To omit optional ATTRIB argument CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : out STRING; RESID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IDTOASC ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; NAMLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional NAMLEN argument NAMBUF : out STRING; RESID : out RIGHTS_ID_TYPE; ATTRIB : out UNSIGNED_LONGWORD; CONTXT : in out CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, IDTOASC); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, STRING, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, STRING, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, STRING, RIGHTS_ID_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, STRING, RIGHTS_ID_TYPE, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, STRING, ADDRESS, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, STRING, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, STRING, ADDRESS, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, STRING, ADDRESS, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, ADDRESS, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, ADDRESS, ADDRESS, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, ADDRESS, RIGHTS_ID_TYPE, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, ADDRESS, RIGHTS_ID_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, ADDRESS, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_WORD, ADDRESS, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, RIGHTS_ID_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, RIGHTS_ID_TYPE, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, ADDRESS, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, ADDRESS, ADDRESS, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, STRING, ADDRESS, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, STRING, ADDRESS, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, STRING, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, STRING, ADDRESS, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, STRING, RIGHTS_ID_TYPE, ADDRESS, CONTEXT_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, STRING, RIGHTS_ID_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, STRING, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IDTOASC, "SYS$IDTOASC", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, ADDRESS, STRING, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE)); -- -- $IEEE_SET_FP_CONTROL -- -- Set IEEE floating point control register -- -- $IEEE_SET_FP_CONTROL [clrmsk], [setmsk], [prvmsk] -- -- clrmsk = address of a quadword mask to clear -- setmsk = address of a quadword mask to set -- prvmsk = address of a quadword to return previous value -- procedure IEEE_SET_FP_CONTROL ( STATUS : out COND_VALUE_TYPE; -- return value CLRMSK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; SETMSK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; PRVMSK : out MASK_QUADWORD_TYPE); procedure IEEE_SET_FP_CONTROL ( STATUS : out COND_VALUE_TYPE; -- return value CLRMSK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; SETMSK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; PRVMSK : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVMSK argument pragma INTERFACE (EXTERNAL, IEEE_SET_FP_CONTROL); pragma IMPORT_VALUED_PROCEDURE (IEEE_SET_FP_CONTROL, "SYS$IEEE_SET_FP_CONTROL", (COND_VALUE_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IEEE_SET_FP_CONTROL, "SYS$IEEE_SET_FP_CONTROL", (COND_VALUE_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, ADDRESS), (VALUE, REFERENCE, REFERENCE, VALUE)); -- $IMGACT -- -- Image Activation -- -- $IMGACT name,[dflnam],hdrbuf,[imgctl],[inadr], -- [retadr], [ident], [acmode] -- -- -- name = address of descriptor for file name string -- -- dflnam = descriptor for file name string -- -- hdrbuf = address of 512 byte buffer to write in -- -- imgctl = image activation control flags -- -- inadr = address of quadword specifying virtual address -- range to be mapped -- -- retadr = address of quadword specifying virtual address -- range actually mapped -- -- ident = address of quadword holding image section match -- control and identifier -- -- acmode = access mode to be the owner of the created pages -- procedure IMGACT ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; DFLNAM : in STRING := STRING'NULL_PARAMETER; HDRBUF : out ADDRESS; IMGCTL : in UNSIGNED_LONGWORD := 0; INADR : in ADDRESS_RANGE_TYPE := ADDRESS_RANGE_TYPE'NULL_PARAMETER; RETADR : out ADDRESS_RANGE_TYPE; IDENT : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0); procedure IMGACT ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; DFLNAM : in STRING := STRING'NULL_PARAMETER; HDRBUF : out ADDRESS; IMGCTL : in UNSIGNED_LONGWORD := 0; INADR : in ADDRESS_RANGE_TYPE := ADDRESS_RANGE_TYPE'NULL_PARAMETER; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument IDENT : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, IMGACT); pragma IMPORT_VALUED_PROCEDURE (IMGACT, "SYS$IMGACT", (COND_VALUE_TYPE, STRING, STRING, ADDRESS, UNSIGNED_LONGWORD, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, SECTION_ID_TYPE, ACCESS_MODE_TYPE), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IMGACT, "SYS$IMGACT", (COND_VALUE_TYPE, STRING, STRING, ADDRESS, UNSIGNED_LONGWORD, ADDRESS_RANGE_TYPE, ADDRESS, SECTION_ID_TYPE, ACCESS_MODE_TYPE), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); -- $IMGFIX -- -- Image Address Fixup Service -- -- $IMGFIX -- procedure IMGFIX ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, IMGFIX); pragma IMPORT_VALUED_PROCEDURE (IMGFIX, "SYS$IMGFIX", (COND_VALUE_TYPE), (VALUE)); -- $INIT_VOL -- -- Initialize Volume -- -- $INIT_VOL devnam, volnam, [itmlst] -- -- devnam = device name containing volume to initialize -- -- volnam = name to initialize the volume with -- -- itmlst = address of item code list for initialization options -- procedure INIT_VOL ( STATUS : out COND_VALUE_TYPE; -- return value DEVNAM : in DEVICE_NAME_TYPE; VOLNAM : in STRING; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, INIT_VOL); pragma IMPORT_VALUED_PROCEDURE (INIT_VOL, "SYS$INIT_VOL", (COND_VALUE_TYPE, DEVICE_NAME_TYPE, STRING, ITEM_LIST_TYPE), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE)); -- $IO_CLEANUP -- -- Cleanup a previously set-up I/O -- -- $IO_CLEANUP fandle -- -- fandle = fandle to clean up -- procedure IO_CLEANUP ( STATUS : out COND_VALUE_TYPE; -- return value FANDL : in UNSIGNED_QUADWORD := (0, 0)); pragma INTERFACE (EXTERNAL, IO_CLEANUP); pragma IMPORT_VALUED_PROCEDURE (IO_CLEANUP, "SYS$IO_CLEANUP", (COND_VALUE_TYPE, UNSIGNED_QUADWORD), (VALUE, VALUE)); -- $IO_FASTPATH -- -- I/O Fastpath system service -- -- $IO_FASTPATH efn, cpu_mask, func, iosb, astadr, astprm -- -- efn = event flag number -- -- cpu_mask = either -1 wildcard or pointer to longword -- containing CPU mask -- FP$K_BALANCE_PORTS = balance fastpath ports -- -- func = fastpath function code -- -- iosb = address of I/O status block -- -- astadr = address of AST completion routine -- -- astprm = AST routine parameter -- procedure IO_FASTPATH ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CPU_MASK : in UNSIGNED_LONGWORD := 0; FUNC : in FUNC_CODE_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; MASK_LENGTH : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, IO_FASTPATH); pragma IMPORT_VALUED_PROCEDURE (IO_FASTPATH, "SYS$IO_FASTPATH", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, FUNC_CODE_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE), MASK_LENGTH); procedure IO_FASTPATHW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CPU_MASK : in UNSIGNED_LONGWORD := 0; FUNC : in FUNC_CODE_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; MASK_LENGTH : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, IO_FASTPATHW); pragma IMPORT_VALUED_PROCEDURE (IO_FASTPATHW, "SYS$IO_FASTPATHW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, FUNC_CODE_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE), MASK_LENGTH); -- $IO_PERFORM -- -- Transfer data between device and buffer -- -- $IO_PERFORM fandle, chan, iosadr, bufadr, buflen, devdata -- ($IO_PERFORMW) -- -- fandle = fandle from previous $IO_SETUP -- -- chan = standard I/O channel -- -- iosadr = IOSA address -- -- bufadr = address of data buffer (64 bits) -- -- buflen = length of data buffer (64 bits) -- -- devdata= data passed to driver, e.g., media address -- -- procedure IO_PERFORM ( STATUS : out COND_VALUE_TYPE; -- return value FANDL : in UNSIGNED_QUADWORD := QUADWORD_UNSIGNED_ZERO; CHAN : in CHANNEL_TYPE := 0; IOSADR : in OCTAWORD_UNSIGNED_TYPE := (0, 0, 0, 0); BUFADR : in ADDRESS := ADDRESS_ZERO; BUFLEN : in UNSIGNED_QUADWORD := QUADWORD_UNSIGNED_ZERO; DEVDATA : in UNSIGNED_QUADWORD := QUADWORD_UNSIGNED_ZERO); pragma INTERFACE (EXTERNAL, IO_PERFORM); pragma IMPORT_VALUED_PROCEDURE (IO_PERFORM, "SYS$IO_PERFORM", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, CHANNEL_TYPE, OCTAWORD_UNSIGNED_TYPE, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); procedure IO_PERFORMW ( STATUS : out COND_VALUE_TYPE; -- return value FANDL : in UNSIGNED_QUADWORD := QUADWORD_UNSIGNED_ZERO; CHAN : in CHANNEL_TYPE := 0; IOSADR : in OCTAWORD_UNSIGNED_TYPE := (0, 0, 0, 0); BUFADR : in ADDRESS := ADDRESS_ZERO; BUFLEN : in UNSIGNED_QUADWORD := QUADWORD_UNSIGNED_ZERO; DEVDATA : in UNSIGNED_QUADWORD := QUADWORD_UNSIGNED_ZERO); pragma INTERFACE (EXTERNAL, IO_PERFORMW); pragma IMPORT_VALUED_PROCEDURE (IO_PERFORMW, "SYS$IO_PERFORMW", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, CHANNEL_TYPE, OCTAWORD_UNSIGNED_TYPE, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- $IO_SETUP -- -- Set up a fast I/O -- -- $IO_SETUP func, bufobj, iosobj, astadr, flags, return_fandle -- -- func = function code -- -- bufobj = data buffer object (address of (vector of 2 ints)) -- -- iosobj = IOSA buffer object (address of (vector of 2 ints)) -- -- astadr = completion AST address (address of entry) -- -- flags = flags -- -- return_fandle = address of returned fandle -- procedure IO_SETUP ( STATUS : out COND_VALUE_TYPE; -- return value FUNC : in FUNCTION_CODE_TYPE := 0; BUFOBJ : in UNSIGNED_LONGWORD_ARRAY := ADDRESS_ZERO; IOSOBJ : in UNSIGNED_LONGWORD_ARRAY := ADDRESS_ZERO; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_FANDLE : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, IO_SETUP); pragma IMPORT_VALUED_PROCEDURE (IO_SETUP, "SYS$IO_SETUP", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, UNSIGNED_LONGWORD_ARRAY, UNSIGNED_LONGWORD_ARRAY, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE)); -- $IPC -- -- Interprocess Communication Request -- -- $IPC [efn] ,func ,ipcb ,[astadr] ,[astprm] -- ($IPCW) -- -- efn = number of event flag to set on completion -- -- func = function code specifying action to be performed -- -- ipcb = address of Interprocess Communication Block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as argument -- -- procedure IPC ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; IPCB : in ADDRESS; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, IPC); pragma IMPORT_VALUED_PROCEDURE (IPC, "SYS$IPC", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); procedure IPCW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; IPCB : in ADDRESS; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, IPCW); pragma IMPORT_VALUED_PROCEDURE (IPCW, "SYS$IPCW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); -- $LCKPAG -- -- Lock Pages in Memory -- -- $LCKPAG inadr ,[retadr] ,[acmode] -- -- inadr = address of 2-longword array containing starting and -- ending addresses of pages to be locked -- -- retadr = address of 2-longword array to receive addresses of -- pages actually locked -- -- acmode = access mode to check against the owner of the pages -- procedure LCKPAG ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); procedure LCKPAG ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, LCKPAG); pragma IMPORT_VALUED_PROCEDURE (LCKPAG, "SYS$LCKPAG", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (LCKPAG, "SYS$LCKPAG", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE)); -- $LCKPAG_64 -- -- Lock Pages in Memory -- -- $LCKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 -- -- start_va_64 = Starting address of address space to lock -- -- length_64 = Byte length of addresses to lock -- -- acmode = Access mode to be checked against the page owner -- -- return_va_64 = Address of address space locked -- -- return_length_64 = Length of address space locked -- procedure LCKPAG_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, LCKPAG_64); pragma IMPORT_VALUED_PROCEDURE (LCKPAG_64, "SYS$LCKPAG_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- $LFS -- -- Call the LFS file system -- -- $LFS [efn] ,func ,fsb ,[astadr] ,[astprm] -- -- efn = number of event flag to set on completion -- -- func = function code specifying action to be performed -- -- fsb = address of File System Block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as argument -- procedure LFS ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; FSB : in ADDRESS; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, LFS); pragma IMPORT_VALUED_PROCEDURE (LFS, "SYS$LFS", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); -- $LKWSET -- -- Lock Pages in Working Set -- -- $LKWSET inadr ,[retadr] ,[acmode] -- -- inadr = address of 2-longword array containing starting and -- ending virtual addresses of pages to be locked -- -- retadr = address of a 2-longword array to receive starting and -- ending virtual addresses of pages actually locked -- -- acmode = access mode to be checked against the page owner -- procedure LKWSET ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); procedure LKWSET ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, LKWSET); pragma IMPORT_VALUED_PROCEDURE (LKWSET, "SYS$LKWSET", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (LKWSET, "SYS$LKWSET", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE)); -- $LKWSET_64 -- -- Lock Pages in Working Set -- -- $LKWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 -- -- start_va_64 = Starting address of address space to lock -- -- length_64 = Byte length of addresses to lock -- -- acmode = Access mode to be checked against the page owner -- -- return_va_64 = Address of address space locked -- -- return_length_64 = Length of address space locked -- procedure LKWSET_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, LKWSET_64); pragma IMPORT_VALUED_PROCEDURE (LKWSET_64, "SYS$LKWSET_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- -- $LOOKUP_MAPPING -- -- Find single Mapping record in Mapping database -- -- $LOOKUP_MAPPING initmlst ,[outitmlst] -- -- initmlst = address of a list of item descriptors for the operation -- outitmlst = address of a list of item descriptors for the operation -- procedure LOOKUP_MAPPING ( STATUS : out COND_VALUE_TYPE; -- return value INITMLST : in ITEM_LIST_3_TYPE; OUTITMLST : in ITEM_LIST_3_TYPE := ITEM_LIST_3_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, LOOKUP_MAPPING); pragma IMPORT_VALUED_PROCEDURE (LOOKUP_MAPPING, "SYS$LOOKUP_MAPPING", (COND_VALUE_TYPE, ITEM_LIST_3_TYPE, ITEM_LIST_3_TYPE), (VALUE, REFERENCE, REFERENCE)); -- $MGBLSC -- -- Map Global Section -- -- $MGBLSC inadr ,[retadr] ,[acmode] ,[flags] ,gsdnam ,[ident] ,[relpag] -- -- inadr = address of 2-longword array containing starting and -- ending addresses of pages to be mapped -- -- retadr = address of 2-longword array to receive virtual -- addresses of pages mapped -- -- acmode = access mode of owner of mapped pages -- -- flags = flags overriding default section characteristics -- -- Flag Meaning -- -- SEC$M_WRT Read/write section -- SEC$M_SYSGBL System global section -- SEC$M_EXPREG Find first available space -- -- gsdnam = address of global section name descriptor -- -- ident = address of quadword containing version id and match control -- -- relpag = relative page number within global section -- procedure MGBLSC ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; GSDNAM : in SECTION_NAME_TYPE; IDENT : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; RELPAG : in UNSIGNED_LONGWORD := 0); procedure MGBLSC ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; GSDNAM : in SECTION_NAME_TYPE; IDENT : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; RELPAG : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, MGBLSC); pragma IMPORT_VALUED_PROCEDURE (MGBLSC, "SYS$MGBLSC", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, SECTION_NAME_TYPE, SECTION_ID_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (MGBLSC, "SYS$MGBLSC", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, SECTION_NAME_TYPE, SECTION_ID_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); -- $MGBLSC_64 -- -- Map Global Page or Disk File Section -- -- $MGBLSC_64 gsdnam_64, ident_64, region_id_64, section_offset_64, -- length_64, acmode, flags, return_va_64, return_length_64 -- [, start_va_64[, page_prot]] -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- region_id_64 = Address of quadword region id -- -- section_offset_64 = Relative byte within global section to start mapping -- -- length_64 = Byte length of section to map -- -- acmode = Access mode of owner of mapped pages -- -- flags = Flags overriding default section characteristics -- -- Flag Meaning -- -- SEC$M_EXPREG Find first available space -- SEC$M_NO_OVERMAP Do not overmap existing address space -- SEC$M_SYSGBL System global section -- SEC$M_WRT Read/write mapping of section -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- start_va_64 = Starting address of address space to create -- -- page_prot = Desired page protection (optional) -- procedure MGBLSC_64 ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; REGION_ID_64 : in UNSIGNED_QUADWORD; SECTION_OFFSET_64 : in UNSIGNED_QUADWORD; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; PAGE_PROT : in PAGE_PROTECTION_TYPE := PAGE_PROTECTION_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, MGBLSC_64); pragma IMPORT_VALUED_PROCEDURE (MGBLSC_64, "SYS$MGBLSC_64", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS, PAGE_PROTECTION_TYPE), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE), START_VA_64); -- $MGBLSC_GPFN_64 -- -- Map Global Page Frame Section -- -- $MGBLSC_GPFN_64 gsdnam_64, ident_64, region_id_64, relative_page, page_count, -- acmode, flags, return_va_64, return_length_64 -- [, start_va_64[, page_prot]] -- -- gsdnam_64 = Address of global section name string descriptor -- (32-bit or 64-bit descriptor) -- -- ident_64 = Address of quadword containing version id and match control -- -- region_id_64 = Address of quadword region id -- -- relative_page = Relative page within global section to start mapping -- -- page_count = Number of page frames to map -- -- acmode = Access mode of owner of mapped pages -- -- flags = Flags overriding default section characteristics -- -- Flag Meaning -- -- SEC$M_EXPREG Find first available space -- SEC$M_NO_OVERMAP Do not overmap existing address space -- SEC$M_SYSGBL System global section -- SEC$M_WRT Read/write mapping of section -- -- return_va_64 = Address of address space created -- -- return_length_64 = Length of address space created -- -- start_va_64 = Starting address of address space to create -- -- page_prot = Desired page protection (optional) -- procedure MGBLSC_GPFN_64 ( STATUS : out COND_VALUE_TYPE; -- return value GSDNAM_64 : in SECTION_NAME_TYPE; IDENT_64 : in SECTION_ID_TYPE := SECTION_ID_TYPE'NULL_PARAMETER; REGION_ID_64 : in UNSIGNED_QUADWORD; RELATIVE_PAGE : in UNSIGNED_QUADWORD; PAGE_COUNT : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; START_VA_64 : in ADDRESS := ADDRESS'NULL_PARAMETER; PAGE_PROT : in PAGE_PROTECTION_TYPE := PAGE_PROTECTION_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, MGBLSC_GPFN_64); pragma IMPORT_VALUED_PROCEDURE (MGBLSC_GPFN_64, "SYS$MGBLSC_GPFN_64", (COND_VALUE_TYPE, SECTION_NAME_TYPE, SECTION_ID_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD, ADDRESS, PAGE_PROTECTION_TYPE), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE), START_VA_64); -- -- $MODIFY -- -- Modify File -- -- $MODIFY fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure MODIFY ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, MODIFY); pragma IMPORT_VALUED_PROCEDURE (MODIFY, "SYS$MODIFY", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $MODIFY_MAPPING -- -- Modify Mapping record in Mapping database -- -- $MODIFY_MAPPING initmlst, moditmlst -- -- initmlst = address of a list of item descriptors for the operation -- moditmlst = address of a list of item descriptors for the operation -- procedure MODIFY_MAPPING ( STATUS : out COND_VALUE_TYPE; -- return value INITMLST : in ITEM_LIST_3_TYPE; MODITMLST : in ITEM_LIST_3_TYPE); pragma INTERFACE (EXTERNAL, MODIFY_MAPPING); pragma IMPORT_VALUED_PROCEDURE (MODIFY_MAPPING, "SYS$MODIFY_MAPPING", (COND_VALUE_TYPE, ITEM_LIST_3_TYPE, ITEM_LIST_3_TYPE), (VALUE, REFERENCE, REFERENCE)); -- -- $MOD_HOLDER -- -- Modify Holder Record In Rights Database -- -- $MOD_HOLDER id, holder, [set_attrib], [clr_attrib] -- -- id = identifier longword -- holder = address of the holder identifier quadword -- set_attrib = longword containing the attributes to set -- into the holder record -- clr_attrib = longword containing the attributes to clear -- in the holder record -- procedure MOD_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : in RIGHTS_HOLDER_TYPE; SET_ATTRIB : in UNSIGNED_LONGWORD := 0; CLR_ATTRIB : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, MOD_HOLDER); pragma IMPORT_VALUED_PROCEDURE (MOD_HOLDER, "SYS$MOD_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, RIGHTS_HOLDER_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE)); -- -- $MOD_IDENT -- -- Modify Identifier Record In Rights Database -- -- $MOD_IDENT id, [set_attrib], [clr_attrib], [new_name], [new_value] -- -- id = identifier longword -- set_attrib = longword containing the attributes -- to set into the identifier record -- clr_attrib = longword containing the attributes -- to clear in the identifier record -- new_name = address of the new identifier name character -- string descriptor -- new_value = new identifier value longword -- procedure MOD_IDENT ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; SET_ATTRIB : in UNSIGNED_LONGWORD := 0; CLR_ATTRIB : in UNSIGNED_LONGWORD := 0; NEW_NAME : in STRING := STRING'NULL_PARAMETER; NEW_VALUE : in RIGHTS_ID_TYPE := 0); pragma INTERFACE (EXTERNAL, MOD_IDENT); pragma IMPORT_VALUED_PROCEDURE (MOD_IDENT, "SYS$MOD_IDENT", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, RIGHTS_ID_TYPE), (VALUE, VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE)); -- $MOUNT -- -- Mount Volume -- -- $MOUNT itmlst -- -- itmlst = Address of a list of item identifiers -- procedure MOUNT ( STATUS : out COND_VALUE_TYPE; -- return value ITMLST : in ITEM_LIST_TYPE); pragma INTERFACE (EXTERNAL, MOUNT); pragma IMPORT_VALUED_PROCEDURE (MOUNT, "SYS$MOUNT", (COND_VALUE_TYPE, ITEM_LIST_TYPE), (VALUE, REFERENCE)); -- $MTACCESS -- -- Installation specific accessibility routine -- -- $MTACCESS lblnam, [uic], [std_version], [access_char], -- [access_spec],type -- -- lblnam = On input this field is the address of the -- VOL1 or HDR1 label read off the magnetic tape. On -- output of labels this field is zero. The type -- of label is determined by the TYPE field. -- uic = This field contains the longword volme UIC passed -- by value. -- std_version = This field contains a byte value of the -- decimal equivalent of the version number -- gotten from the VOL1 label, passed by value. -- access_char = This field contins the byte value of the -- accessibility character specified by the user, -- passed by value. For output of labels only. -- access_spec = This field determines if the character passed -- in ACCESS_CHAR was specified by user, passed -- by value. It must contain one of the following -- values: -- MTA$K_CHARVALID = YES -- MTA$K_NOCHAR = NO -- For output of labels only. -- type = This field contains the type of accessibility to process, -- passed by value. It must contain one of the following -- values: -- MTA$K_INVOL1 = Input a VOL1 label -- MTA$K_INHDR1 = Input a HDR1 label -- MTA$K_OUTVOL1 = Output a VOL1 label -- MTA$K_OUTHDR1 = Output a HDR1 label -- procedure MTACCESS ( STATUS : out COND_VALUE_TYPE; -- return value LBLNAM : in UNSIGNED_LONGWORD_ARRAY; UIC : in RIGHTS_ID_TYPE := 0; STD_VERSION : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_3; ACCESS_CHAR : in UNSIGNED_LONGWORD := LONGWORD_UNSIGNED_32; ACCESS_SPEC : in UNSIGNED_LONGWORD := 0; TYP : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, MTACCESS); pragma IMPORT_VALUED_PROCEDURE (MTACCESS, "SYS$MTACCESS", (COND_VALUE_TYPE, UNSIGNED_LONGWORD_ARRAY, RIGHTS_ID_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- $NUMTIM -- -- Convert Binary Time to Numeric Time -- -- $NUMTIM timbuf ,[timadr] -- -- timbuf = address of a 7-word buffer to receive numeric time -- information -- -- timadr = address of a quadword containing the 64-bit time. If -- 0, use current time -- procedure NUMTIM ( STATUS : out COND_VALUE_TYPE; -- return value TIMBUF : out UNSIGNED_WORD_ARRAY; TIMADR : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, NUMTIM); pragma IMPORT_VALUED_PROCEDURE (NUMTIM, "SYS$NUMTIM", (COND_VALUE_TYPE, UNSIGNED_WORD_ARRAY, DATE_TIME_TYPE), (VALUE, REFERENCE, REFERENCE)); -- -- $NUMUTC -- -- Convert UTC Binary Time to Numeric Time -- -- $NUMUTC timbuf ,[utcadr] -- -- timbuf = address of a 11-word buffer to receive numeric time -- information -- -- 31 0 -- +---------------+---------------+ -- | month of year | year since 0 | 7 word Date (ala NUMTIM) -- +---------------+---------------+ -- | hour of day | day of month | -- +---------------+---------------+ -- | sec. of min. | min. of hour | -- +---------------+---------------+ -- | iDays | hund of Sec | -- +---------------+---------------+ -- | imins | ihours | 6 word Inaccuracy -- +---------------+---------------+ -- | ihund of sec | isecs | -- +---------------+---------------+ -- | TDF in Min | -- +---------------+ -- -- utcadr = address of a utc_date_time to convert. -- 0, use current time -- procedure NUMUTC ( STATUS : out COND_VALUE_TYPE; -- return value TIMBUF : out UNSIGNED_WORD_ARRAY; UTCADR : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, NUMUTC); pragma IMPORT_VALUED_PROCEDURE (NUMUTC, "SYS$NUMUTC", (COND_VALUE_TYPE, UNSIGNED_WORD_ARRAY, UTC_DATE_TIME_TYPE), (VALUE, REFERENCE, REFERENCE)); -- -- $NXTVOL -- -- Go to Next Volume -- -- $NXTVOL rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure NXTVOL ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, NXTVOL); pragma IMPORT_VALUED_PROCEDURE (NXTVOL, "SYS$NXTVOL", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $OPEN -- -- Open File -- -- $OPEN fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine procedure OPEN ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, OPEN); pragma IMPORT_VALUED_PROCEDURE (OPEN, "SYS$OPEN", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $PARSE -- -- Parse File Name -- -- $PARSE fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure PARSE ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PARSE); pragma IMPORT_VALUED_PROCEDURE (PARSE, "SYS$PARSE", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $PARSE_ACL -- -- Parse an Access Control list Entry -- -- $PARSE_ACL acl-string ,acl-entry ,[error-position], -- [bit-names], [routin] -- -- acl-string = address of a descriptor of a buffer which -- contains the text to be parsed -- -- acl-entry = address of a descriptor of a buffer into -- which the converted ACE is to be written -- -- error-position = address of a word to receive the number of -- characters actually processed by the service. -- If the service fails, this count points to -- the failing point in the input string. -- -- bit-names = address of a access bit name table (32 entries) -- -- routin = address of routine to be executed in kernel mode -- procedure PARSE_ACL ( STATUS : out COND_VALUE_TYPE; -- return value ACLSTR : in STRING; ACLENT : out STRING; ERRPOS : out UNSIGNED_LONGWORD; ACCNAM : in ACCESS_BIT_NAMES_TYPE := ACCESS_BIT_NAMES_TYPE'NULL_PARAMETER; ROUTIN : in ADDRESS := ADDRESS_ZERO); procedure PARSE_ACL ( STATUS : out COND_VALUE_TYPE; -- return value ACLSTR : in STRING; ACLENT : out STRING; ERRPOS : in ADDRESS := ADDRESS_ZERO; -- To omit optional ERRPOS argument ACCNAM : in ACCESS_BIT_NAMES_TYPE := ACCESS_BIT_NAMES_TYPE'NULL_PARAMETER; ROUTIN : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, PARSE_ACL); pragma IMPORT_VALUED_PROCEDURE (PARSE_ACL, "SYS$PARSE_ACL", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_LONGWORD, ACCESS_BIT_NAMES_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (PARSE_ACL, "SYS$PARSE_ACL", (COND_VALUE_TYPE, STRING, STRING, ADDRESS, ACCESS_BIT_NAMES_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, REFERENCE, VALUE)); -- $PARSE_CLASS itmlst, [routin] -- -- Parse access class strings -- -- itmlst = address of a list of item descriptors -- -- routin = address of routine to be executed in kernel mode -- -- procedure PARSE_CLASS ( STATUS : out COND_VALUE_TYPE; -- return value ITMLST : in ITEM_LIST_TYPE; ROUTIN : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, PARSE_CLASS); pragma IMPORT_VALUED_PROCEDURE (PARSE_CLASS, "SYS$PARSE_CLASS", (COND_VALUE_TYPE, ITEM_LIST_TYPE, ADDRESS), (VALUE, REFERENCE, VALUE)); -- $PERSONA_CREATE -- -- Create Persona -- -- $PERSONA_CREATE persona, [usrnam], [flags], [usrpro], [itmlst] -- -- persona = address of longword holding persona identifier -- -- usrnam = address of user name descriptor -- -- flags = bitvector value -- -- usrpro = address of a descriptor pointing to a user profile block (TLV structure) -- -- itmlst = address of item list for modifications to persona -- procedure PERSONA_CREATE ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : out UNSIGNED_LONGWORD; USRNAM : in STRING := STRING'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; USRPRO : in ADDRESS := ADDRESS'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PERSONA_CREATE); pragma IMPORT_VALUED_PROCEDURE (PERSONA_CREATE, "SYS$PERSONA_CREATE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, ADDRESS, ITEM_LIST_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE), USRPRO); -- $PERSONA_CREATE_INT -- -- Create Persona Internal Service -- -- $PERSONA_CREATE_INT persona, itmlst -- -- persona = address of longword holding persona identifier -- -- itmlst = address of item list containing persona data -- procedure PERSONA_CREATE_INT ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : out UNSIGNED_LONGWORD; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PERSONA_CREATE_INT); pragma IMPORT_VALUED_PROCEDURE (PERSONA_CREATE_INT, "SYS$PERSONA_CREATE_INT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_TYPE), (VALUE, REFERENCE, REFERENCE)); -- $PERSONA_ASSUME -- -- Assume Persona -- -- $PERSONA_ASSUME persona, [flags], [previous], [acmode] -- -- persona = address of longword holding persona identifier -- -- flags = longword value -- -- previous = address of longword to receive previous persona identifier -- -- acmode = access mode of code assuming persona -- -- procedure PERSONA_ASSUME ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : in UNSIGNED_LONGWORD; FLAGS : in UNSIGNED_LONGWORD := 0; PREVIOUS : out UNSIGNED_LONGWORD; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER); procedure PERSONA_ASSUME ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : in UNSIGNED_LONGWORD; FLAGS : in UNSIGNED_LONGWORD := 0; PREVIOUS : in ADDRESS := ADDRESS_ZERO; -- To omit optional PREVIOUS argument ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PERSONA_ASSUME); pragma IMPORT_VALUED_PROCEDURE (PERSONA_ASSUME, "SYS$PERSONA_ASSUME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, REFERENCE, VALUE), ACMODE); pragma IMPORT_VALUED_PROCEDURE (PERSONA_ASSUME, "SYS$PERSONA_ASSUME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE), PREVIOUS); -- $PERSONA_DELETE -- -- Delete Persona -- -- $PERSONA_DELETE persona -- -- persona = address of longword holding persona identifier -- procedure PERSONA_DELETE ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, PERSONA_DELETE); pragma IMPORT_VALUED_PROCEDURE (PERSONA_DELETE, "SYS$PERSONA_DELETE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE)); -- $PERSONA_EXPORT_ARB -- -- Move Persona data to ARB structures -- -- $PERSONA_EXPORT_ARB [level] -- -- level = level of ARB_SUPPORT to be provided -- procedure PERSONA_EXPORT_ARB ( STATUS : out COND_VALUE_TYPE; -- return value LEVEL : in INTEGER := LONGWORD_SIGNED_-1); pragma INTERFACE (EXTERNAL, PERSONA_EXPORT_ARB); pragma IMPORT_VALUED_PROCEDURE (PERSONA_EXPORT_ARB, "SYS$PERSONA_EXPORT_ARB", (COND_VALUE_TYPE, INTEGER), (VALUE, VALUE)); -- $PERSONA_IMPORT_ARB -- -- Load Persona Block with ARB structures data -- -- $PERSONA_IMPORT_ARB [level] -- -- level = level of ARB_SUPPORT to be provided -- procedure PERSONA_IMPORT_ARB ( STATUS : out COND_VALUE_TYPE; -- return value LEVEL : in INTEGER := LONGWORD_SIGNED_-1); pragma INTERFACE (EXTERNAL, PERSONA_IMPORT_ARB); pragma IMPORT_VALUED_PROCEDURE (PERSONA_IMPORT_ARB, "SYS$PERSONA_IMPORT_ARB", (COND_VALUE_TYPE, INTEGER), (VALUE, VALUE)); -- $PERSONA_CLONE -- -- Create duplicate Persona block -- -- $PERSONA_CLONE persona -- -- persona = address of location in which to store the persona id -- of the clone. -- -- input_id = address of location containing the persona ID to clone -- OPTIONAL! -- procedure PERSONA_CLONE ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : out UNSIGNED_LONGWORD; INPUT_ID : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PERSONA_CLONE); pragma IMPORT_VALUED_PROCEDURE (PERSONA_CLONE, "SYS$PERSONA_CLONE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE), INPUT_ID); -- -- $PROCESS_AFFINITY -- -- Modify process affinity -- -- $PROCESS_AFFINITY [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags],[mask_length] -- -- pidadr = address of process identification of process for -- which affinity is to be changed -- prcnam = address of process name string descriptor -- select_mask = address of bitmask indicating which capabilities -- are to be involved in the specified operation -- modify_mask = address of bitmask indicating final state -- of those capabilities specified in select_mask -- prev_mask = address of user quadword that will hold the -- previous states of the individual capabilities -- flags = address of behavioral flags for this operation -- mask_length = address of user longword that will hold the -- common length of all bitmaps - select,modify,prev -- procedure PROCESS_AFFINITY ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in PROCESS_ID_TYPE := PROCESS_ID_TYPE'NULL_PARAMETER; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; SELECT_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; MODIFY_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; PREV_MASK : out MASK_QUADWORD_TYPE; FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER; MASK_LENGTH : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PROCESS_AFFINITY); pragma IMPORT_VALUED_PROCEDURE (PROCESS_AFFINITY, "SYS$PROCESS_AFFINITY", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE), MASK_LENGTH); -- -- $PROCESS_CAPABILITIES -- -- Modify process user capabilities -- -- $PROCESS_CAPABILITIES [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags] -- -- pidadr = address of process identification of process for -- which capabilities are to be modified -- prcnam = address of process name string descriptor -- select_mask = address of bitmask indicating which capabilities -- are to be involved in the specified operation -- modify_mask = address of bitmask indicating final state -- of those capabilities specified in select_mask -- prev_mask = address of user quadword that will hold the -- previous states of the individual capabilities -- flags = address of behavioral flags for this operation -- procedure PROCESS_CAPABILITIES ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in PROCESS_ID_TYPE := PROCESS_ID_TYPE'NULL_PARAMETER; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; SELECT_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; MODIFY_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; PREV_MASK : out MASK_QUADWORD_TYPE; FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); procedure PROCESS_CAPABILITIES ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in PROCESS_ID_TYPE := PROCESS_ID_TYPE'NULL_PARAMETER; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; SELECT_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; MODIFY_MASK : in MASK_QUADWORD_TYPE := MASK_QUADWORD_TYPE'NULL_PARAMETER; PREV_MASK : in ADDRESS := ADDRESS_ZERO; -- To omit optional PREV_MASK argument FLAGS : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PROCESS_CAPABILITIES); pragma IMPORT_VALUED_PROCEDURE (PROCESS_CAPABILITIES, "SYS$PROCESS_CAPABILITIES", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, UNSIGNED_QUADWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (PROCESS_CAPABILITIES, "SYS$PROCESS_CAPABILITIES", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, MASK_QUADWORD_TYPE, MASK_QUADWORD_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, REFERENCE)); -- $PROCESS_SCAN -- -- Initialize Process_scan context -- -- $Process_scan pidctx , [itmlst ] -- -- pidctx = address of process ctx id -- -- itmlst = address of a list of item descriptors -- -- procedure PROCESS_SCAN ( STATUS : out COND_VALUE_TYPE; -- return value PIDCTX : in out PROCESS_ID_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PROCESS_SCAN); pragma IMPORT_VALUED_PROCEDURE (PROCESS_SCAN, "SYS$PROCESS_SCAN", (COND_VALUE_TYPE, PROCESS_ID_TYPE, ITEM_LIST_TYPE), (VALUE, REFERENCE, REFERENCE)); -- $PSHARED_REGISTER -- -- Register a process and global section -- -- $PSHARED_REGISTER addr -- -- addr = base address of the global section to be registered -- $PURGE_WS -- -- Purge Working Set -- -- $PURGE_WS start_va_64, length_64 -- -- start_va_64 = Starting address of address space to purge -- -- length_64 = Byte length of addresses to purge -- -- procedure PURGE_WS ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, PURGE_WS); pragma IMPORT_VALUED_PROCEDURE (PURGE_WS, "SYS$PURGE_WS", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE)); -- $PURGWS -- -- Purge Working Set -- -- $PURGWS inadr -- -- inadr = address of 2-longword array containing starting and -- ending addresses of pages to be removed -- procedure PURGWS ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE); pragma INTERFACE (EXTERNAL, PURGWS); pragma IMPORT_VALUED_PROCEDURE (PURGWS, "SYS$PURGWS", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE), (VALUE, REFERENCE)); -- -- $PUT -- -- Put Record to File -- -- $PUT rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure PUT ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, PUT); pragma IMPORT_VALUED_PROCEDURE (PUT, "SYS$PUT", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $PUTMSG -- -- Put Message -- -- $PUTMSG msgvec ,[actrtn] ,[facnam], [actprm] -- -- msgvec = address of message argument vector -- -- actrtn = address of entry mask of action routine -- -- facnam = address of facility name string descriptor -- -- actprm = parameter to pass to action routine -- procedure PUTMSG ( STATUS : out COND_VALUE_TYPE; -- return value MSGVEC : in ADDRESS; ACTRTN : in ADDRESS := ADDRESS_ZERO; FACNAM : in STRING := STRING'NULL_PARAMETER; ACTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, PUTMSG); pragma IMPORT_VALUED_PROCEDURE (PUTMSG, "SYS$PUTMSG", (COND_VALUE_TYPE, ADDRESS, ADDRESS, STRING, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE)); -- $QIO -- -- Queue I/O Request -- -- $QIO [efn] ,chan ,func ,[iosb] ,[astadr] ,[astprm] -- ($QIOW) ,[p1] ,[p2] ,[p3] ,[p4] ,[p5] ,[p6] -- -- efn = number of event flag to set on completion -- -- chan = number of channel on which I/O is directed -- -- func = function code specifying action to be performed -- -- iosb = address of quadword I/O status block to receive final -- completion status -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as argument -- -- p1... = optional device- and function-specific parameters -- procedure QIO ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE; FUNC : in FUNCTION_CODE_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; P1 : in UNSIGNED_LONGWORD := 0; P2 : in UNSIGNED_LONGWORD := 0; P3 : in UNSIGNED_LONGWORD := 0; P4 : in UNSIGNED_LONGWORD := 0; P5 : in UNSIGNED_LONGWORD := 0; P6 : in UNSIGNED_LONGWORD := 0); procedure QIO ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE; FUNC : in FUNCTION_CODE_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; P1 : in UNSIGNED_LONGWORD := 0; P2 : in UNSIGNED_LONGWORD := 0; P3 : in UNSIGNED_LONGWORD := 0; P4 : in UNSIGNED_LONGWORD := 0; P5 : in UNSIGNED_LONGWORD := 0; P6 : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, QIO); pragma IMPORT_VALUED_PROCEDURE (QIO, "SYS$QIO", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, FUNCTION_CODE_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (QIO, "SYS$QIO", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, FUNCTION_CODE_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); procedure QIOW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE; FUNC : in FUNCTION_CODE_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; P1 : in UNSIGNED_LONGWORD := 0; P2 : in UNSIGNED_LONGWORD := 0; P3 : in UNSIGNED_LONGWORD := 0; P4 : in UNSIGNED_LONGWORD := 0; P5 : in UNSIGNED_LONGWORD := 0; P6 : in UNSIGNED_LONGWORD := 0); procedure QIOW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE; FUNC : in FUNCTION_CODE_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; P1 : in UNSIGNED_LONGWORD := 0; P2 : in UNSIGNED_LONGWORD := 0; P3 : in UNSIGNED_LONGWORD := 0; P4 : in UNSIGNED_LONGWORD := 0; P5 : in UNSIGNED_LONGWORD := 0; P6 : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, QIOW); pragma IMPORT_VALUED_PROCEDURE (QIOW, "SYS$QIOW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, FUNCTION_CODE_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (QIOW, "SYS$QIOW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, FUNCTION_CODE_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- -- $READ -- -- Read Block from File -- -- $READ rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure READ ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, READ); pragma IMPORT_VALUED_PROCEDURE (READ, "SYS$READ", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $READEF -- -- Read Event Flag -- -- $READEF efn ,state -- -- efn = event flag number of any flag in the cluster -- -- state = address of a longword to receive current state of all -- flags in the cluster -- procedure READEF ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE; STATE : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, READEF); pragma IMPORT_VALUED_PROCEDURE (READEF, "SYS$READEF", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE)); -- -- $READ_THREAD_UNQ -- -- Read thread unique value -- -- $READ_THREAD_UNQ contxt -- -- contxt = address of quadword in which to return the -- thread unique value -- procedure READ_THREAD_UNQ ( STATUS : out COND_VALUE_TYPE; -- return value CONTXT : out CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, READ_THREAD_UNQ); pragma IMPORT_VALUED_PROCEDURE (READ_THREAD_UNQ, "SYS$READ_THREAD_UNQ", (COND_VALUE_TYPE, CONTEXT_TYPE), (VALUE, REFERENCE)); -- -- $REGISTRY -- -- Interface to the Registry Database -- -- $REGISTRY [efn], func, [ntcredentials], itmlst, [iosb] -- [,astadr] [,astprm] [,timeout] -- ($REGISTRYW) -- -- efn = event flag to be set at completion -- -- func = function code specifying action to be performed -- -- ntcredentials = address of an NT user credentials buffer -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- timeout = request timeout value -- procedure REGISTRY ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; NTCREDENTIALS : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TIMEOUT : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, REGISTRY); pragma IMPORT_VALUED_PROCEDURE (REGISTRY, "SYS$REGISTRY", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE), ASTADR); procedure REGISTRYW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; NTCREDENTIALS : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TIMEOUT : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, REGISTRYW); pragma IMPORT_VALUED_PROCEDURE (REGISTRYW, "SYS$REGISTRYW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE), ASTADR); -- -- $RELEASE -- -- Release Record -- -- $RELEASE rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure RELEASE ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, RELEASE); pragma IMPORT_VALUED_PROCEDURE (RELEASE, "SYS$RELEASE", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $RELEASE_LICENSE -- -- Release authorization to execute licensed software product. -- -- $RELEASE_LICENSE context -- -- contxt = address of context buffer returned by -- $grant_license (4 longwords) -- procedure RELEASE_LICENSE ( STATUS : out COND_VALUE_TYPE; -- return value CONTXT : in CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, RELEASE_LICENSE); pragma IMPORT_VALUED_PROCEDURE (RELEASE_LICENSE, "SYS$RELEASE_LICENSE", (COND_VALUE_TYPE, CONTEXT_TYPE), (VALUE, REFERENCE)); -- -- $RELEASE_VP -- -- Release the Vector Processor -- -- $RELEASE_VP -- procedure RELEASE_VP ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, RELEASE_VP); pragma IMPORT_VALUED_PROCEDURE (RELEASE_VP, "SYS$RELEASE_VP", (COND_VALUE_TYPE), (VALUE)); -- -- $RELEASE_VP_INT -- -- Release the Vector Processor, internal form -- -- $RELEASE_VP_INT -- procedure RELEASE_VP_INT ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, RELEASE_VP_INT); pragma IMPORT_VALUED_PROCEDURE (RELEASE_VP_INT, "SYS$RELEASE_VP_INT", (COND_VALUE_TYPE), (VALUE)); -- -- $REMOVE -- -- Remove File -- -- $REMOVE fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure REMOVE ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, REMOVE); pragma IMPORT_VALUED_PROCEDURE (REMOVE, "SYS$REMOVE", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $REM_HOLDER -- -- Remove Holder Record From Rights Database -- -- $REM_HOLDER id, holder -- -- id = identifier longword -- holder = address of the holder identifier quadword -- procedure REM_HOLDER ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE; HOLDER : in RIGHTS_HOLDER_TYPE); pragma INTERFACE (EXTERNAL, REM_HOLDER); pragma IMPORT_VALUED_PROCEDURE (REM_HOLDER, "SYS$REM_HOLDER", (COND_VALUE_TYPE, RIGHTS_ID_TYPE, RIGHTS_HOLDER_TYPE), (VALUE, VALUE, REFERENCE)); -- -- $REM_IDENT -- -- Remove Identifier From Rights Database -- -- $REM_IDENT id -- -- id = identifier longword -- procedure REM_IDENT ( STATUS : out COND_VALUE_TYPE; -- return value ID : in RIGHTS_ID_TYPE); pragma INTERFACE (EXTERNAL, REM_IDENT); pragma IMPORT_VALUED_PROCEDURE (REM_IDENT, "SYS$REM_IDENT", (COND_VALUE_TYPE, RIGHTS_ID_TYPE), (VALUE, VALUE)); -- -- $RENAME -- -- Rename File -- -- $RENAME oldfab, [err], [suc], newfab -- -- oldfab = address of oldfab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- -- newfab = address of new fab procedure RENAME ( STATUS : out COND_VALUE_TYPE; -- return value OLDFAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; NEWFAB : in out FAB_TYPE); pragma INTERFACE (EXTERNAL, RENAME); pragma IMPORT_VALUED_PROCEDURE (RENAME, "SYS$RENAME", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE, FAB_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE)); -- -- $RESTORE_VP_EXCEPTION -- -- Restore Vector Processor Exception State -- -- $RESTORE_VP_EXCEPTION excid -- -- excid = address of a context longword -- procedure RESTORE_VP_EXCEPTION ( STATUS : out COND_VALUE_TYPE; -- return value EXCID : in CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, RESTORE_VP_EXCEPTION); pragma IMPORT_VALUED_PROCEDURE (RESTORE_VP_EXCEPTION, "SYS$RESTORE_VP_EXCEPTION", (COND_VALUE_TYPE, CONTEXT_TYPE), (VALUE, REFERENCE)); -- -- $RESTORE_VP_EXC_INT -- -- Restore Vector Processor Exception State -- -- $RESTORE_VP_EXC_INT excid -- -- excid = address of a context longword -- procedure RESTORE_VP_EXC_INT ( STATUS : out COND_VALUE_TYPE; -- return value EXCID : in CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, RESTORE_VP_EXC_INT); pragma IMPORT_VALUED_PROCEDURE (RESTORE_VP_EXC_INT, "SYS$RESTORE_VP_EXC_INT", (COND_VALUE_TYPE, CONTEXT_TYPE), (VALUE, REFERENCE)); -- -- $RESTORE_VP_STATE -- -- Restore Mainline Vector State -- -- $RESTORE_VP_STATE -- procedure RESTORE_VP_STATE ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, RESTORE_VP_STATE); pragma IMPORT_VALUED_PROCEDURE (RESTORE_VP_STATE, "SYS$RESTORE_VP_STATE", (COND_VALUE_TYPE), (VALUE)); -- $RESUME -- -- Resume Suspended Process -- -- $RESUME [pidadr] ,[prcnam] -- -- pidadr = address of process id of process to be resumed -- -- prcnam = address of process name string descriptor -- procedure RESUME ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER); procedure RESUME ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, RESUME); pragma IMPORT_VALUED_PROCEDURE (RESUME, "SYS$RESUME", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (RESUME, "SYS$RESUME", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE), (VALUE, VALUE, DESCRIPTOR(S))); -- -- $REVOKID -- -- Revoke Identifier from Process -- -- $REVOKID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] -- -- pidadr = address of PID of affected process -- prcnam = address of string descriptor of process name -- id = address of quadword identifier and attributes -- name = address of string descriptor of identifier name -- prvatr = address to store attributes of superseded id -- segment = optional segment index, by value -- procedure REVOKID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in out RIGHTS_HOLDER_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : out UNSIGNED_LONGWORD; SEGMENT : in UNSIGNED_LONGWORD := 0); procedure REVOKID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in out RIGHTS_HOLDER_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVATR argument SEGMENT : in UNSIGNED_LONGWORD := 0); procedure REVOKID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVATR argument SEGMENT : in UNSIGNED_LONGWORD := 0); procedure REVOKID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : out UNSIGNED_LONGWORD; SEGMENT : in UNSIGNED_LONGWORD := 0); procedure REVOKID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : out UNSIGNED_LONGWORD; SEGMENT : in UNSIGNED_LONGWORD := 0); procedure REVOKID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional ID argument NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVATR argument SEGMENT : in UNSIGNED_LONGWORD := 0); procedure REVOKID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in out RIGHTS_HOLDER_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVATR argument SEGMENT : in UNSIGNED_LONGWORD := 0); procedure REVOKID ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; ID : in out RIGHTS_HOLDER_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; PRVATR : out UNSIGNED_LONGWORD; SEGMENT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, REVOKID); pragma IMPORT_VALUED_PROCEDURE (REVOKID, "SYS$REVOKID", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, RIGHTS_HOLDER_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (REVOKID, "SYS$REVOKID", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, RIGHTS_HOLDER_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (REVOKID, "SYS$REVOKID", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ADDRESS, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (REVOKID, "SYS$REVOKID", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, ADDRESS, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (REVOKID, "SYS$REVOKID", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, ADDRESS, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (REVOKID, "SYS$REVOKID", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, ADDRESS, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (REVOKID, "SYS$REVOKID", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, RIGHTS_HOLDER_TYPE, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (REVOKID, "SYS$REVOKID", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, RIGHTS_HOLDER_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE)); -- -- $REWIND -- -- Rewind File -- -- $REWIND rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure REWIND ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, REWIND); pragma IMPORT_VALUED_PROCEDURE (REWIND, "SYS$REWIND", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $RMSRUNDWN -- -- RMS rundown (close all files opened by OpenVMS RMS for -- the image or process and halts I/O activity. -- -- $RMSRUNDWN buf-addr, type-value -- -- buf-addr = a descriptor pointing to a 22-byte buffer -- that is to receive the device identification -- (16 bytes) and the file identification (6 bytes) -- bytes) of an improperly closed output file. -- type-value = a single byte code that specifies the type of -- I/O rundown to be performed. procedure RMSRUNDWN ( STATUS : out COND_VALUE_TYPE; -- return value BUFADDR : out STRING; TYPEVALUE : in UNSIGNED_BYTE); pragma INTERFACE (EXTERNAL, RMSRUNDWN); pragma IMPORT_VALUED_PROCEDURE (RMSRUNDWN, "SYS$RMSRUNDWN", (COND_VALUE_TYPE, STRING, UNSIGNED_BYTE), (VALUE, DESCRIPTOR(S), VALUE)); -- $RUNDWN -- -- Rundown Process -- -- $RUNDWN [acmode] -- -- acmode = access mode to rundown; this and all less -- privileged access modes are rundown -- procedure RUNDWN ( STATUS : out COND_VALUE_TYPE; -- return value ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, RUNDWN); pragma IMPORT_VALUED_PROCEDURE (RUNDWN, "SYS$RUNDWN", (COND_VALUE_TYPE, ACCESS_MODE_TYPE), (VALUE, VALUE)); -- -- $SAVE_VP_EXCEPTION -- -- Save Vector Processor Exception State -- -- $SAVE_VP_EXCEPTION excid ,[flags] -- -- excid = address of a context longword -- -- flags = noallocation flag -- 0 -> allocate 1 -> don't allocate -- procedure SAVE_VP_EXCEPTION ( STATUS : out COND_VALUE_TYPE; -- return value EXCID : out CONTEXT_TYPE; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SAVE_VP_EXCEPTION); pragma IMPORT_VALUED_PROCEDURE (SAVE_VP_EXCEPTION, "SYS$SAVE_VP_EXCEPTION", (COND_VALUE_TYPE, CONTEXT_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, VALUE)); -- -- $SAVE_VP_EXC_INT -- -- Save Vector Processor Exception State, internal form -- -- $SAVE_VP_EXC_INT excid ,[flags] -- -- excid = address of a context longword -- -- flags = noallocation flag -- 0 -> allocate 1 -> don't allocate -- procedure SAVE_VP_EXC_INT ( STATUS : out COND_VALUE_TYPE; -- return value EXCID : out CONTEXT_TYPE; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SAVE_VP_EXC_INT); pragma IMPORT_VALUED_PROCEDURE (SAVE_VP_EXC_INT, "SYS$SAVE_VP_EXC_INT", (COND_VALUE_TYPE, CONTEXT_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, VALUE)); -- -- $SCAN_INTRUSION -- -- Scan intrusion database -- -- $SCAN_INTRUSION logfail_status, failed_user, job_type, -- [source_terminal], [source_node], [source_user], [source_addr], -- [failed_password], [parent_user], [parent_id], [flags] -- -- logfail_status in login failure status -- failed_user in address of failed username descriptor -- job_type in job type index -- source_terminal in address of source terminal descriptor -- source_node in address of source nodename descriptor -- source_user in address of source username descriptor -- source_address in address of source DECnet address -- failed_password in address of failed password (breakin attempts only) -- parent_user in address of parent username -- parent_id in parent PID -- flags in intrusion service flags -- procedure SCAN_INTRUSION ( STATUS : out COND_VALUE_TYPE; -- return value LOGFAIL_STATUS : in UNSIGNED_LONGWORD; FAILED_USER : in STRING; JOB_TYPE : in UNSIGNED_LONGWORD; SOURCE_TERMINAL : in STRING := STRING'NULL_PARAMETER; SOURCE_NODE : in STRING := STRING'NULL_PARAMETER; SOURCE_USER : in STRING := STRING'NULL_PARAMETER; SOURCE_ADDRESS : in STRING := STRING'NULL_PARAMETER; FAILED_PASSWORD : in STRING := STRING'NULL_PARAMETER; PARENT_USER : in STRING := STRING'NULL_PARAMETER; PARENT_ID : in PROCESS_ID_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SCAN_INTRUSION); pragma IMPORT_VALUED_PROCEDURE (SCAN_INTRUSION, "SYS$SCAN_INTRUSION", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, STRING, STRING, STRING, STRING, STRING, STRING, PROCESS_ID_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE)); -- -- $SCAN_MAPPING -- -- Locate Mapping records in Mapping database -- -- $SCAN_MAPPING initmlst. outitmlst [,contxt] -- -- initmlst = address of a list of item descriptors for the operation -- outitmlst = address of a list of item descriptors for the operation -- contxt = address of a context long word -- procedure SCAN_MAPPING ( STATUS : out COND_VALUE_TYPE; -- return value INITMLST : in ITEM_LIST_3_TYPE; OUTITMLST : in ITEM_LIST_3_TYPE; CONTXT : in out CONTEXT_TYPE); procedure SCAN_MAPPING ( STATUS : out COND_VALUE_TYPE; -- return value INITMLST : in ITEM_LIST_3_TYPE; OUTITMLST : in ITEM_LIST_3_TYPE; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument pragma INTERFACE (EXTERNAL, SCAN_MAPPING); pragma IMPORT_VALUED_PROCEDURE (SCAN_MAPPING, "SYS$SCAN_MAPPING", (COND_VALUE_TYPE, ITEM_LIST_3_TYPE, ITEM_LIST_3_TYPE, CONTEXT_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SCAN_MAPPING, "SYS$SCAN_MAPPING", (COND_VALUE_TYPE, ITEM_LIST_3_TYPE, ITEM_LIST_3_TYPE, ADDRESS), (VALUE, REFERENCE, REFERENCE, VALUE)); -- $SCHDWK -- -- Schedule Wakeup -- -- $SCHDWK [pidadr] ,[prcnam] ,daytim ,[reptim] -- -- pidadr = address of process id of process to be awakened -- -- prcnam = address of process name string descriptor -- -- daytim = address of quadword containing time to wake -- -- reptim = address of quadword containing repeat time interval -- procedure SCHDWK ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; DAYTIM : in DATE_TIME_TYPE; REPTIM : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER); procedure SCHDWK ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; DAYTIM : in DATE_TIME_TYPE; REPTIM : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SCHDWK); pragma IMPORT_VALUED_PROCEDURE (SCHDWK, "SYS$SCHDWK", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, DATE_TIME_TYPE, DATE_TIME_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SCHDWK, "SYS$SCHDWK", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, DATE_TIME_TYPE, DATE_TIME_TYPE), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE)); -- -- $SEARCH -- -- Search for File Name -- -- $SEARCH fab, [err], [suc] -- -- fab = address of fab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure SEARCH ( STATUS : out COND_VALUE_TYPE; -- return value FAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SEARCH); pragma IMPORT_VALUED_PROCEDURE (SEARCH, "SYS$SEARCH", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $SETCLUEVT -- -- Set Cluster Event Notification -- -- $SETCLUEVT event, astadr, [astprm], [acmode], [handle] -- -- event = code indicating type of event -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as an argument -- -- acmode = access mode of AST -- -- handle = address of handle -- procedure SETCLUEVT ( STATUS : out COND_VALUE_TYPE; -- return value EVENT : in UNSIGNED_LONGWORD; ASTADR : in AST_PROCEDURE_TYPE; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; HANDLE : out ADDRESS); procedure SETCLUEVT ( STATUS : out COND_VALUE_TYPE; -- return value EVENT : in UNSIGNED_LONGWORD; ASTADR : in AST_PROCEDURE_TYPE; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; HANDLE : in UNSIGNED_LONGWORD := 0); -- To omit optional HANDLE argument pragma INTERFACE (EXTERNAL, SETCLUEVT); pragma IMPORT_VALUED_PROCEDURE (SETCLUEVT, "SYS$SETCLUEVT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ACCESS_MODE_TYPE, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SETCLUEVT, "SYS$SETCLUEVT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE)); -- $SETDDIR -- -- Read and set the default directory string for the process. -- -- $SETDDIR [new-dir-addr] ,[length-addr] ,[cur-dir-addr] -- -- new-dir-addr = a descriptor of the new default directory. -- -- length-addr = a word that is to receive the length of the -- current default directory. -- -- cur-dir-addr = descriptor of a buffer that is to receive -- the current default directory. procedure SETDDIR ( STATUS : out COND_VALUE_TYPE; -- return value NEWDIRADDR : in STRING := STRING'NULL_PARAMETER; LENGTHADDR : out UNSIGNED_WORD; CURDIRADDR : out STRING); procedure SETDDIR ( STATUS : out COND_VALUE_TYPE; -- return value NEWDIRADDR : in STRING := STRING'NULL_PARAMETER; LENGTHADDR : out UNSIGNED_WORD; CURDIRADDR : in ADDRESS := ADDRESS_ZERO); -- To omit optional CURDIRADDR argument procedure SETDDIR ( STATUS : out COND_VALUE_TYPE; -- return value NEWDIRADDR : in STRING := STRING'NULL_PARAMETER; LENGTHADDR : in ADDRESS := ADDRESS_ZERO; -- To omit optional LENGTHADDR argument CURDIRADDR : in ADDRESS := ADDRESS_ZERO); -- To omit optional CURDIRADDR argument procedure SETDDIR ( STATUS : out COND_VALUE_TYPE; -- return value NEWDIRADDR : in STRING := STRING'NULL_PARAMETER; LENGTHADDR : in ADDRESS := ADDRESS_ZERO; -- To omit optional LENGTHADDR argument CURDIRADDR : out STRING); pragma INTERFACE (EXTERNAL, SETDDIR); pragma IMPORT_VALUED_PROCEDURE (SETDDIR, "SYS$SETDDIR", (COND_VALUE_TYPE, STRING, UNSIGNED_WORD, STRING), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (SETDDIR, "SYS$SETDDIR", (COND_VALUE_TYPE, STRING, UNSIGNED_WORD, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETDDIR, "SYS$SETDDIR", (COND_VALUE_TYPE, STRING, ADDRESS, ADDRESS), (VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETDDIR, "SYS$SETDDIR", (COND_VALUE_TYPE, STRING, ADDRESS, STRING), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S))); -- $SETDFPROT -- -- Read and write the default file protection for the process. -- -- $SETDFPROT [new-def-prot-addr] ,[cur-def-prot-addr] -- -- new-def-prot-addr = a word that specifies the new default file -- protection specification. -- -- cur-def-prot-addr = a word that is to receive the current default file -- protection specification. procedure SETDFPROT ( STATUS : out COND_VALUE_TYPE; -- return value NEWDEFPROTADDR : in FILE_PROTECTION_TYPE := FILE_PROTECTION_TYPE'NULL_PARAMETER; CURDEFPROTADDR : out FILE_PROTECTION_TYPE); procedure SETDFPROT ( STATUS : out COND_VALUE_TYPE; -- return value NEWDEFPROTADDR : in FILE_PROTECTION_TYPE := FILE_PROTECTION_TYPE'NULL_PARAMETER; CURDEFPROTADDR : in ADDRESS := ADDRESS_ZERO); -- To omit optional CURDEFPROTADDR argument pragma INTERFACE (EXTERNAL, SETDFPROT); pragma IMPORT_VALUED_PROCEDURE (SETDFPROT, "SYS$SETDFPROT", (COND_VALUE_TYPE, FILE_PROTECTION_TYPE, FILE_PROTECTION_TYPE), (VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SETDFPROT, "SYS$SETDFPROT", (COND_VALUE_TYPE, FILE_PROTECTION_TYPE, ADDRESS), (VALUE, REFERENCE, VALUE)); -- $SET_RETURN_VALUE -- -- Set return value/status in the Mechanism array -- -- $SET_RETURN_VALUE [mechanism_arg], [return_type], return_value -- -- mechanism_arg = Address of mechanism vector -- -- return_type = Address of a longword containing one of the values -- specified in the Function Return Signature Encoding tables -- of the OpenVMS calling standard. -- -- return_value = Address of a value of the type specified by the -- return_type argument. The referenced value will be read -- as a longword, quadword, or octaword, depending on the -- return_type value. -- -- procedure SET_RETURN_VALUE ( STATUS : out COND_VALUE_TYPE; -- return value MECHANISM_ARG : in UNSIGNED_QUADWORD_ARRAY := ADDRESS_ZERO; RETURN_TYPE : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; RETURN_VALUE : in UNSIGNED_BYTE_ARRAY); pragma INTERFACE (EXTERNAL, SET_RETURN_VALUE); pragma IMPORT_VALUED_PROCEDURE (SET_RETURN_VALUE, "SYS$SET_RETURN_VALUE", (COND_VALUE_TYPE, UNSIGNED_QUADWORD_ARRAY, UNSIGNED_LONGWORD, UNSIGNED_BYTE_ARRAY), (VALUE, VALUE, REFERENCE, REFERENCE)); -- $SET_SYSTEM_EVENT -- -- Set System Event Notification -- -- $SET_SYSTEM_EVENT event, astadr, [astprm], [acmode], handle -- -- event = code indicating type of event -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as an argument -- -- acmode = access mode of AST -- -- flags = flags longword (one example is to indicate whether the notification -- of the event should be done only once or should be repeated) -- -- event_handle = address of handle -- procedure SET_SYSTEM_EVENT ( STATUS : out COND_VALUE_TYPE; -- return value EVENT : in UNSIGNED_LONGWORD; ASTADR : in AST_PROCEDURE_TYPE; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; HANDLE : out ADDRESS); pragma INTERFACE (EXTERNAL, SET_SYSTEM_EVENT); pragma IMPORT_VALUED_PROCEDURE (SET_SYSTEM_EVENT, "SYS$SET_SYSTEM_EVENT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE)); -- -- $SET_IMPLICIT_AFFINITY -- -- Modify process implicit affinity -- -- $SET_IMPLICIT_AFFINITY [pidadr],[prcnam],[state],[cpu_id],[prev_mask] -- -- pidadr = address of process identification of process for -- which affinity is to be changed -- prcnam = address of process name string descriptor -- cpu_id = CPUID number process is to be assigned to initially -- prev_mask = address of user quadword that will hold the -- previous states of the individual capabilities -- procedure SET_IMPLICIT_AFFINITY ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in PROCESS_ID_TYPE := PROCESS_ID_TYPE'NULL_PARAMETER; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; STATE : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER; CPU_ID : in INTEGER := LONGWORD_SIGNED_-1; PREV_MASK : out MASK_QUADWORD_TYPE); procedure SET_IMPLICIT_AFFINITY ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in PROCESS_ID_TYPE := PROCESS_ID_TYPE'NULL_PARAMETER; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; STATE : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER; CPU_ID : in INTEGER := LONGWORD_SIGNED_-1; PREV_MASK : in ADDRESS := ADDRESS_ZERO); -- To omit optional PREV_MASK argument pragma INTERFACE (EXTERNAL, SET_IMPLICIT_AFFINITY); pragma IMPORT_VALUED_PROCEDURE (SET_IMPLICIT_AFFINITY, "SYS$SET_IMPLICIT_AFFINITY", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_QUADWORD, INTEGER, MASK_QUADWORD_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SET_IMPLICIT_AFFINITY, "SYS$SET_IMPLICIT_AFFINITY", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_QUADWORD, INTEGER, ADDRESS), (VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE)); -- $SET_RESOURCE_DOMAIN -- -- Set Resource Domain -- -- $SET_RESOURCE_DOMAIN func ,rsdm_id ,uic_group ,[nullarg] ,[access] ,[acmode] -- -- func = join or leave function to be performed -- 1 - Join the System Resource Domain -- 2 - Join the Process Default Domain -- 3 - Join a new Resource Domain (not System or Process) -- -- rsdm_id = address of the Resource Domain Id -- -- domain_number = number identifying target Resource Domain -- -- nullarg = Placeholder reserved to Digital -- -- access = Access desired (defined by RSDM$M macro -- -- acmode = requested access mode -- -- procedure SET_RESOURCE_DOMAIN ( STATUS : out COND_VALUE_TYPE; -- return value FUNC : in FUNCTION_CODE_TYPE; RSDM_ID : in out ADDRESS; DOMAIN_NUMBER : in UNSIGNED_LONGWORD; NULLARG : in ADDRESS := ADDRESS_ZERO; ACCES : in UNSIGNED_LONGWORD := 0; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, SET_RESOURCE_DOMAIN); pragma IMPORT_VALUED_PROCEDURE (SET_RESOURCE_DOMAIN, "SYS$SET_RESOURCE_DOMAIN", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE)); -- $SET_SECURITY -- -- Set Object Security Profile -- -- $SET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] -- procedure SET_SECURITY ( STATUS : out COND_VALUE_TYPE; -- return value CLSNAM : in STRING := STRING'NULL_PARAMETER; OBJNAM : in STRING := STRING'NULL_PARAMETER; OBJHAN : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; CONTXT : in out CONTEXT_TYPE; ACMODE : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); procedure SET_SECURITY ( STATUS : out COND_VALUE_TYPE; -- return value CLSNAM : in STRING := STRING'NULL_PARAMETER; OBJNAM : in STRING := STRING'NULL_PARAMETER; OBJHAN : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument ACMODE : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SET_SECURITY); pragma IMPORT_VALUED_PROCEDURE (SET_SECURITY, "SYS$SET_SECURITY", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, CONTEXT_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SET_SECURITY, "SYS$SET_SECURITY", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ITEM_LIST_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE)); -- $SET_UNWIND_TABLE -- -- Register or extend and unwind table (UT) information -- -- $SET_UNWIND_TABLE code_base_va, code_size, ut_base_va, ut_size, -- handler_base_va, unwind_info_base, name -- -- code_base_va = The process virtual address of the start of the code region -- -- code_size = Size of code region in bytes -- -- ut_base_va = Quadword aligned process virtual address of the UT -- -- ut_size = The size of the UT in bytes -- -- handler_base_va = The handler_base_va plus the unwind information block's condition -- handler procedure value must add up to the process virtual address -- of the condition handler's function value. -- -- unwind_info_base = The unwind_info_base plus a particular unwind table entry (UTE) -- unwind info block (UIB) offset must add up to the process virtual -- address of that UIB. -- -- name = Fixed length string, passed by descriptor. -- -- flags = MUTE flags, mask word, optional -- procedure SET_UNWIND_TABLE ( STATUS : out COND_VALUE_TYPE; -- return value CODE_BASE_VA : in UNSIGNED_QUADWORD := (0, 0); CODE_SIZE : in UNSIGNED_QUADWORD := (0, 0); UT_BASE_VA : in UNSIGNED_QUADWORD := (0, 0); UT_SIZE : in UNSIGNED_QUADWORD := (0, 0); HANDLER_BASE_VA : in UNSIGNED_QUADWORD := (0, 0); UNWIND_INFO_BASE : in UNSIGNED_QUADWORD := (0, 0); NAME : in STRING; FLAGS : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SET_UNWIND_TABLE); pragma IMPORT_VALUED_PROCEDURE (SET_UNWIND_TABLE, "SYS$SET_UNWIND_TABLE", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, STRING, UNSIGNED_WORD), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE), FLAGS); -- $SETAST -- -- Set AST Enable -- -- $SETAST enbflg -- -- enbflg = AST enable indicator for current access mode -- 0 -> disable 1 -> enable -- procedure SETAST ( STATUS : out COND_VALUE_TYPE; -- return value ENBFLG : in BOOLEAN); pragma INTERFACE (EXTERNAL, SETAST); pragma IMPORT_VALUED_PROCEDURE (SETAST, "SYS$SETAST", (COND_VALUE_TYPE, BOOLEAN), (VALUE, VALUE)); -- $SETEF -- -- Set Event Flag -- -- $SETEF efn -- -- efn = event flag number of flag to set -- procedure SETEF ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE); pragma INTERFACE (EXTERNAL, SETEF); pragma IMPORT_VALUED_PROCEDURE (SETEF, "SYS$SETEF", (COND_VALUE_TYPE, EF_NUMBER_TYPE), (VALUE, VALUE)); -- $GETENV -- -- Get an environment variable -- -- $GETENV ItemList -- -- ItemList = address of a zero terminated item list. -- -- procedure GETENV ( STATUS : out COND_VALUE_TYPE; -- return value ITEMLIST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GETENV); pragma IMPORT_VALUED_PROCEDURE (GETENV, "SYS$GETENV", (COND_VALUE_TYPE, ITEM_LIST_TYPE), (VALUE, REFERENCE)); -- $SETENV -- -- Set an environment variable -- -- $SETENV ItemList -- -- ItemList = address of a zero terminated item list. -- -- procedure SETENV ( STATUS : out COND_VALUE_TYPE; -- return value ITEMLIST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SETENV); pragma IMPORT_VALUED_PROCEDURE (SETENV, "SYS$SETENV", (COND_VALUE_TYPE, ITEM_LIST_TYPE), (VALUE, REFERENCE)); -- $SETEVTAST -- -- Establish an Event AST Routine -- -- $SETEVTAST evtnam, evtadr, [evtfac], [acmode], [flags], [reqid] -- (SETEVTASTW) ,[evtid], [evtcrd], [efn], [iosb], [astadr] -- ,[astprm], [nullarg] -- -- evtnam = address of descriptor of event name -- -- evtadr = address of entry mask of event AST routine -- -- evtfac = address of event facility code -- -- acmode = access mode of event declaration -- -- flags = optional flags -- -- reqid = user provided identification of this request -- -- evtid = address to receive unique identification of this request -- -- evtcrd = amount of AST credit to reserve for request -- -- efn = event flag to set when $SETEVTAST completes -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of completion AST routine -- -- astprm = value to be passed to completion AST routine -- procedure SETEVTAST ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; EVTADR : in AST_PROCEDURE_TYPE; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; EVTID : out UNSIGNED_LONGWORD; EVTCRD : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure SETEVTAST ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; EVTADR : in AST_PROCEDURE_TYPE; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; EVTID : out UNSIGNED_LONGWORD; EVTCRD : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure SETEVTAST ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; EVTADR : in AST_PROCEDURE_TYPE; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; EVTID : in ADDRESS := ADDRESS_ZERO; -- To omit optional EVTID argument EVTCRD : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure SETEVTAST ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; EVTADR : in AST_PROCEDURE_TYPE; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; EVTID : in ADDRESS := ADDRESS_ZERO; -- To omit optional EVTID argument EVTCRD : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, SETEVTAST); pragma IMPORT_VALUED_PROCEDURE (SETEVTAST, "SYS$SETEVTAST", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETEVTAST, "SYS$SETEVTAST", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETEVTAST, "SYS$SETEVTAST", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETEVTAST, "SYS$SETEVTAST", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); procedure SETEVTASTW ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; EVTADR : in AST_PROCEDURE_TYPE; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; EVTID : out UNSIGNED_LONGWORD; EVTCRD : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure SETEVTASTW ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; EVTADR : in AST_PROCEDURE_TYPE; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; EVTID : out UNSIGNED_LONGWORD; EVTCRD : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure SETEVTASTW ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; EVTADR : in AST_PROCEDURE_TYPE; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; EVTID : in ADDRESS := ADDRESS_ZERO; -- To omit optional EVTID argument EVTCRD : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure SETEVTASTW ( STATUS : out COND_VALUE_TYPE; -- return value EVTNAM : in STRING; EVTADR : in AST_PROCEDURE_TYPE; EVTFAC : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; REQID : in UNSIGNED_LONGWORD := 0; EVTID : in ADDRESS := ADDRESS_ZERO; -- To omit optional EVTID argument EVTCRD : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, SETEVTASTW); pragma IMPORT_VALUED_PROCEDURE (SETEVTASTW, "SYS$SETEVTASTW", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETEVTASTW, "SYS$SETEVTASTW", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETEVTASTW, "SYS$SETEVTASTW", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETEVTASTW, "SYS$SETEVTASTW", (COND_VALUE_TYPE, STRING, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); -- $SETEXV -- -- Set Exception Vector -- -- $SETEXV [vector] ,[addres] ,[acmode] ,[prvhnd] -- -- vector = vector number -- 0 -> primary vector 1 -> secondary 2 -> last chance -- -- addres = exception handler address (0 indicates deassign vector) -- -- acmode = access mode for which vector is set -- -- prvhnd = address of longword to receive previous handler address -- procedure SETEXV ( STATUS : out COND_VALUE_TYPE; -- return value VECTOR : in UNSIGNED_LONGWORD := 0; ADDRES : in ADDRESS := ADDRESS_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; PRVHND : out ADDRESS); procedure SETEXV ( STATUS : out COND_VALUE_TYPE; -- return value VECTOR : in UNSIGNED_LONGWORD := 0; ADDRES : in ADDRESS := ADDRESS_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; PRVHND : in UNSIGNED_LONGWORD := 0); -- To omit optional PRVHND argument pragma INTERFACE (EXTERNAL, SETEXV); pragma IMPORT_VALUED_PROCEDURE (SETEXV, "SYS$SETEXV", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ACCESS_MODE_TYPE, ADDRESS), (VALUE, VALUE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SETEXV, "SYS$SETEXV", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE)); -- $SETFLT -- -- Set Fault Characteristics on Pages -- -- $SETFLT inadr ,[retadr] ,[acmode] ,fault_flag -- -- inadr = address of 2-longword array containing starting and -- ending virtual addresses of pages to change -- -- retadr = address of 2-longword array containing starting and -- ending addresses of pages which were changed -- -- acmode = access mode of request -- -- fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) -- procedure SETFLT ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; FAULT_FLAG : in FAULT_FLAG_TYPE); procedure SETFLT ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; FAULT_FLAG : in FAULT_FLAG_TYPE); pragma INTERFACE (EXTERNAL, SETFLT); pragma IMPORT_VALUED_PROCEDURE (SETFLT, "SYS$SETFLT", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, FAULT_FLAG_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETFLT, "SYS$SETFLT", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, FAULT_FLAG_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE)); -- $SETFLT_64 -- -- Set Fault Characteristics on Pages -- -- $SETLFT_64 start_va_64, length_64, acmode, fault_flag, return_va_64, return_length_64 -- -- start_va_64 = Starting address of address space to set protection -- -- length_64 = Byte length of addresses to set protection -- -- acmode = Access mode of request -- -- fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) -- -- return_va_64 = Address of address space whose protection was set -- -- return_length_64 = Length of address space whose protection was set -- procedure SETFLT_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FAULT_FLAG : in FAULT_FLAG_TYPE; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, SETFLT_64); pragma IMPORT_VALUED_PROCEDURE (SETFLT_64, "SYS$SETFLT_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, FAULT_FLAG_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- $SETIME -- -- Set System Time -- -- $SETIME [timadr] -- -- timadr = address of quadword containing new system time in -- 64-bit format. If 0, recalibrate system time using -- hardware time-of-year clock. -- procedure SETIME ( STATUS : out COND_VALUE_TYPE; -- return value TIMADR : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SETIME); pragma IMPORT_VALUED_PROCEDURE (SETIME, "SYS$SETIME", (COND_VALUE_TYPE, DATE_TIME_TYPE), (VALUE, REFERENCE)); -- $SETIMR -- -- Set Timer -- -- $SETIMR [efn] ,daytim ,[astadr] ,[reqidt] ,[flags] -- -- efn = event flag to set when timer expires -- -- daytim = address of quadword containing 64-bit time value -- -- astadr = address of entry mask of AST routine -- -- reqidt = request identification of this timer request -- -- flags = only bit 0 used right now. If bit 0 is set, -- then this timer request is in terms of CPU time. -- procedure SETIMR ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; DAYTIM : in DATE_TIME_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; REQIDT : in USER_ARG_TYPE := USER_ARG_ZERO; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SETIMR); pragma IMPORT_VALUED_PROCEDURE (SETIMR, "SYS$SETIMR", (COND_VALUE_TYPE, EF_NUMBER_TYPE, DATE_TIME_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); -- $SETPFM -- -- Set Page Fault Monitoring -- -- $SETPFM [pfmflg] ,[astadr] ,[astprm] ,[acmode] -- -- pfmflg = function/subfunction bits -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- acmode = access mode for which the AST is to be declared -- -- bufcntadr = address of longword for which the number of -- page fault monitoring buffers allocated is stored. -- procedure SETPFM ( STATUS : out COND_VALUE_TYPE; -- return value PFMFLG : in FUNCTION_CODE_TYPE := 0; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; BUFCNTADR : in INTEGER := 0); pragma INTERFACE (EXTERNAL, SETPFM); pragma IMPORT_VALUED_PROCEDURE (SETPFM, "SYS$SETPFM", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ACCESS_MODE_TYPE, INTEGER), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE)); -- $SETPRA -- -- Set Power Recovery AST -- -- $SETPRA astadr ,[acmode] -- -- astadr = address of power recovery AST routine -- -- acmode = access mode of AST -- procedure SETPRA ( STATUS : out COND_VALUE_TYPE; -- return value ASTADR : in AST_PROCEDURE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, SETPRA); pragma IMPORT_VALUED_PROCEDURE (SETPRA, "SYS$SETPRA", (COND_VALUE_TYPE, AST_PROCEDURE_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE)); -- $SETPRI -- -- Set Priority -- -- $SETPRI [pidadr] ,[prcnam] ,pri ,[prvpri],[pol],[prvpol] -- -- pidadr = address of process id of process to be set -- -- prcnam = address of process name string descriptor -- -- pri = new base priority for the process -- -- prvpri = address of longword to receive previous base priority -- -- pol = address of new scheduling policy for the process -- -- prvpol = address of longword to receive previous sched policy -- procedure SETPRI ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PRI : in UNSIGNED_LONGWORD; PRVPRI : out UNSIGNED_LONGWORD; POL : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PRVPOL : out UNSIGNED_LONGWORD); procedure SETPRI ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PRI : in UNSIGNED_LONGWORD; PRVPRI : out UNSIGNED_LONGWORD; POL : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PRVPOL : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVPOL argument procedure SETPRI ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PRI : in UNSIGNED_LONGWORD; PRVPRI : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVPRI argument POL : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PRVPOL : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVPOL argument procedure SETPRI ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PRI : in UNSIGNED_LONGWORD; PRVPRI : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVPRI argument POL : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PRVPOL : out UNSIGNED_LONGWORD); procedure SETPRI ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PRI : in UNSIGNED_LONGWORD; PRVPRI : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVPRI argument POL : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PRVPOL : out UNSIGNED_LONGWORD); procedure SETPRI ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PRI : in UNSIGNED_LONGWORD; PRVPRI : in ADDRESS := ADDRESS_ZERO; -- To omit optional PRVPRI argument POL : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PRVPOL : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVPOL argument procedure SETPRI ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PRI : in UNSIGNED_LONGWORD; PRVPRI : out UNSIGNED_LONGWORD; POL : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PRVPOL : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVPOL argument procedure SETPRI ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PRI : in UNSIGNED_LONGWORD; PRVPRI : out UNSIGNED_LONGWORD; POL : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; PRVPOL : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, SETPRI); pragma IMPORT_VALUED_PROCEDURE (SETPRI, "SYS$SETPRI", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SETPRI, "SYS$SETPRI", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETPRI, "SYS$SETPRI", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, ADDRESS), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETPRI, "SYS$SETPRI", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SETPRI, "SYS$SETPRI", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SETPRI, "SYS$SETPRI", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETPRI, "SYS$SETPRI", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETPRI, "SYS$SETPRI", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, REFERENCE, REFERENCE, REFERENCE)); -- $SETPRN -- -- Set Process Name -- -- $SETPRN [prcnam] -- -- prcnam = address of the process name string descriptor -- procedure SETPRN ( STATUS : out COND_VALUE_TYPE; -- return value PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SETPRN); pragma IMPORT_VALUED_PROCEDURE (SETPRN, "SYS$SETPRN", (COND_VALUE_TYPE, PROCESS_NAME_TYPE), (VALUE, DESCRIPTOR(S))); -- $SETPRT -- -- Set Protection on Pages -- -- $SETPRT inadr ,[retadr] ,[acmode] ,prot ,[prvprt] -- -- inadr = address of 2-longword array containing starting and -- ending virtual addresses of pages to change -- -- retadr = address of 2-longword array containing starting and -- ending addresses of pages which were changed -- -- acmode = access mode of request -- -- prot = new protection -- -- prvprt = address of byte to receive previous protection of -- last page changed -- procedure SETPRT ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; PROT : in PAGE_PROTECTION_TYPE; PRVPRT : out PAGE_PROTECTION_TYPE); procedure SETPRT ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; PROT : in PAGE_PROTECTION_TYPE; PRVPRT : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVPRT argument procedure SETPRT ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; PROT : in PAGE_PROTECTION_TYPE; PRVPRT : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVPRT argument procedure SETPRT ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; PROT : in PAGE_PROTECTION_TYPE; PRVPRT : out PAGE_PROTECTION_TYPE); pragma INTERFACE (EXTERNAL, SETPRT); pragma IMPORT_VALUED_PROCEDURE (SETPRT, "SYS$SETPRT", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, PAGE_PROTECTION_TYPE, PAGE_PROTECTION_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SETPRT, "SYS$SETPRT", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, PAGE_PROTECTION_TYPE, ADDRESS), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETPRT, "SYS$SETPRT", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, PAGE_PROTECTION_TYPE, ADDRESS), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETPRT, "SYS$SETPRT", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, PAGE_PROTECTION_TYPE, PAGE_PROTECTION_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE)); -- $SETPRT_64 -- -- Set Protection on Pages -- -- $SETPRT_64 start_va_64, length_64, acmode, prot, return_va_64, return_length_64, -- return_prot_64 -- -- start_va_64 = Starting address of address space to set protection -- -- length_64 = Byte length of addresses to set protection -- -- acmode = Access mode of request -- -- prot = New protection -- -- return_va_64 = Address of address space whose protection was set -- -- return_length_64 = Length of address space whose protection was set -- -- return_prot_64 = Address of longword to receive previous protection of -- last page changed -- procedure SETPRT_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; PROT : in PAGE_PROTECTION_TYPE; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; RETURN_PROT_64 : out PAGE_PROTECTION_TYPE); pragma INTERFACE (EXTERNAL, SETPRT_64); pragma IMPORT_VALUED_PROCEDURE (SETPRT_64, "SYS$SETPRT_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, PAGE_PROTECTION_TYPE, ADDRESS, UNSIGNED_QUADWORD, PAGE_PROTECTION_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE)); -- $SETPRV -- -- Set privileges. -- $SETPRV [enbflg] ,[prvadr] ,[prmflg] ,[prvprv] -- -- enbflg = enable indicator -- 0 -> disable 1 -> enable -- -- prvadr = 64-bit mask defining the privileges to be enabled or -- disabled -- -- prmflg = permanent indicator -- 0 -> temporary (for this image) 1 -> permanent -- -- prvprv = address of quadword buffer to receive previous privileges -- procedure SETPRV ( STATUS : out COND_VALUE_TYPE; -- return value ENBFLG : in BOOLEAN := FALSE; PRVADR : in MASK_PRIVILEGES_TYPE := MASK_PRIVILEGES_TYPE'NULL_PARAMETER; PRMFLG : in BOOLEAN := FALSE; PRVPRV : out MASK_PRIVILEGES_TYPE); procedure SETPRV ( STATUS : out COND_VALUE_TYPE; -- return value ENBFLG : in BOOLEAN := FALSE; PRVADR : in MASK_PRIVILEGES_TYPE := MASK_PRIVILEGES_TYPE'NULL_PARAMETER; PRMFLG : in BOOLEAN := FALSE; PRVPRV : in ADDRESS := ADDRESS_ZERO); -- To omit optional PRVPRV argument pragma INTERFACE (EXTERNAL, SETPRV); pragma IMPORT_VALUED_PROCEDURE (SETPRV, "SYS$SETPRV", (COND_VALUE_TYPE, BOOLEAN, MASK_PRIVILEGES_TYPE, BOOLEAN, MASK_PRIVILEGES_TYPE), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SETPRV, "SYS$SETPRV", (COND_VALUE_TYPE, BOOLEAN, MASK_PRIVILEGES_TYPE, BOOLEAN, ADDRESS), (VALUE, VALUE, REFERENCE, VALUE, VALUE)); -- $SETRWM -- -- Set Resource Wait Mode -- -- $SETRWM [watflg] -- -- watflg = wait indicator -- 0 -> wait for resources 1 -> return failure immediately -- (type is NUMBER rather than BOOLEAN since WATFLG=TRUE -- means don't wait, which is the opposite of what is seems) -- procedure SETRWM ( STATUS : out COND_VALUE_TYPE; -- return value WATFLG : in UNSIGNED_LONGWORD := FALSE); pragma INTERFACE (EXTERNAL, SETRWM); pragma IMPORT_VALUED_PROCEDURE (SETRWM, "SYS$SETRWM", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- $SETSFM -- -- Set System Service Failure Mode -- -- $SETSFM [enbflg] -- -- enbflg = enable indicator -- 0 -> disable generation of exceptions on service failures -- 1 -> generate exceptions for system service failures -- procedure SETSFM ( STATUS : out COND_VALUE_TYPE; -- return value ENBFLG : in BOOLEAN := FALSE); pragma INTERFACE (EXTERNAL, SETSFM); pragma IMPORT_VALUED_PROCEDURE (SETSFM, "SYS$SETSFM", (COND_VALUE_TYPE, BOOLEAN), (VALUE, VALUE)); -- $SETSSF -- -- Set System Service Filter -- -- $SETSSF [mask] -- -- mask = flags for services to inhibit -- procedure SETSSF ( STATUS : out COND_VALUE_TYPE; -- return value MASK : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SETSSF); pragma IMPORT_VALUED_PROCEDURE (SETSSF, "SYS$SETSSF", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- $SETSHLV -- -- Modify process default unshelving action -- -- $SETSHLV [pidadr] ,[prcnam], [shlvflg] -- -- pidadr = address of process id of process -- -- prcnam = address of name string descriptor of process -- -- shlvflg = longword containing the desired shelving mode -- in the bottom bit. If the bottom bit is set, -- then the default is not to automatically unshelve -- shelved files. If the bottom bit is clear, then -- the default is to automatically unshelve shelved -- files. -- procedure SETSHLV ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; SHLVFLG : in UNSIGNED_LONGWORD := 0); procedure SETSHLV ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; SHLVFLG : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SETSHLV); pragma IMPORT_VALUED_PROCEDURE (SETSHLV, "SYS$SETSHLV", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETSHLV, "SYS$SETSHLV", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE)); -- $SETSTK -- -- SET VIRTUAL STACK LIMITS -- -- $SETSTK inadr ,[retadr] ,[acmode] -- -- inadr = address of 2-longword array containing starting and -- ending virtual address of stack limits to set -- -- retadr = address of a 2-longword array to receive starting and -- ending virtual address of stack limits to set -- -- acmode = access mode for the stack to change -- procedure SETSTK ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); procedure SETSTK ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, SETSTK); pragma IMPORT_VALUED_PROCEDURE (SETSTK, "SYS$SETSTK", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETSTK, "SYS$SETSTK", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE)); -- $SETSTK_64 -- -- SET VIRTUAL STACK LIMITS -- -- $SETSTK_64 start_va, length, acmode, flags, prev_start_va_64, prev_length_64 -- -- start_va_64 = lowest address for new stack limits -- -- length_64 = length of address range for new stack limits -- -- acmode = access mode for the stack to change -- -- flags = VA$M_SETSTK_REGISTER - set register stack limits (IA64 only) -- -- prev_start_va_64 = pointer to lowest address for previous stack limits -- -- prev_length_64 = pointer to length of previous stack limits -- procedure SETSTK_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; PREV_START_VA_64 : out ADDRESS; PREV_LENGTH_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, SETSTK_64); pragma IMPORT_VALUED_PROCEDURE (SETSTK_64, "SYS$SETSTK_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- $SETSWM -- -- Set Process Swap Mode -- -- $SETSWM [swpflg] -- -- swpflg = swap indicator -- 0 -> enable swapping 1 -> disable swapping -- procedure SETSWM ( STATUS : out COND_VALUE_TYPE; -- return value SWPFLG : in UNSIGNED_LONGWORD := FALSE); pragma INTERFACE (EXTERNAL, SETSWM); pragma IMPORT_VALUED_PROCEDURE (SETSWM, "SYS$SETSWM", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- -- $SETDTI -- -- Set Distributed Transaction Information -- -- $SETDTI [efn], [flags], iosb, [astadr], [astprm], context, -- ($SETDTIW) func, itmlst -- -- efn = event flag to set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of the entry mask of an AST routine -- astprm = value to be passed to AST routine -- context = address of longword search context -- func = function code to be performed -- itmlst = address of a list of item descriptors -- procedure SETDTI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in CONTEXT_TYPE; FUNC : in FUNCTION_CODE_TYPE; ITMLST : in ITEM_LIST_TYPE); pragma INTERFACE (EXTERNAL, SETDTI); pragma IMPORT_VALUED_PROCEDURE (SETDTI, "SYS$SETDTI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, CONTEXT_TYPE, FUNCTION_CODE_TYPE, ITEM_LIST_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE)); procedure SETDTIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in CONTEXT_TYPE; FUNC : in FUNCTION_CODE_TYPE; ITMLST : in ITEM_LIST_TYPE); pragma INTERFACE (EXTERNAL, SETDTIW); pragma IMPORT_VALUED_PROCEDURE (SETDTIW, "SYS$SETDTIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, CONTEXT_TYPE, FUNCTION_CODE_TYPE, ITEM_LIST_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE)); -- $SETUAI -- -- Modify User Authorization Information -- -- $SETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] -- ,[astprm] -- -- efn = event flag to be set at completion -- -- contxt = address of a context longword (UAF IFI & ISI) -- -- usrnam = address of user name descriptor -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- procedure SETUAI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; USRNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETUAI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; USRNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETUAI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument USRNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETUAI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument USRNAM : in STRING; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SETUAI); pragma IMPORT_VALUED_PROCEDURE (SETUAI, "SYS$SETUAI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETUAI, "SYS$SETUAI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETUAI, "SYS$SETUAI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETUAI, "SYS$SETUAI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); -- -- $SHOW_INTRUSION -- -- Show intrusion record -- -- $SHOW_INTRUSION user_criteria, intruder, intruder_len, breakin_block, [flags], [context] -- -- user_criteria in address of user criteria descriptor -- intruder in out address of intruder descriptor -- intruder_len out address of word to receive intruder string length -- breakin_block out address of intrusion block -- flags in intrusion service flags -- context in out address of optional longword context -- procedure SHOW_INTRUSION ( STATUS : out COND_VALUE_TYPE; -- return value USER_CRITERIA : in STRING; INTRUDER : in out STRING; INTRUDER_LEN : out UNSIGNED_WORD; BREAKIN_BLOCK : out UNSIGNED_LONGWORD; FLAGS : in UNSIGNED_LONGWORD := 0; CONTEXT : in out CONTEXT_TYPE); procedure SHOW_INTRUSION ( STATUS : out COND_VALUE_TYPE; -- return value USER_CRITERIA : in STRING; INTRUDER : in out STRING; INTRUDER_LEN : out UNSIGNED_WORD; BREAKIN_BLOCK : out UNSIGNED_LONGWORD; FLAGS : in UNSIGNED_LONGWORD := 0; CONTEXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTEXT argument pragma INTERFACE (EXTERNAL, SHOW_INTRUSION); pragma IMPORT_VALUED_PROCEDURE (SHOW_INTRUSION, "SYS$SHOW_INTRUSION", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_WORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, CONTEXT_TYPE), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SHOW_INTRUSION, "SYS$SHOW_INTRUSION", (COND_VALUE_TYPE, STRING, STRING, UNSIGNED_WORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, VALUE)); -- $SNDACC -- -- Send Message to Accounting Manager -- -- $SNDACC msgbuf ,[chan] -- -- msgbuf = address of message buffer string descriptor -- -- chan = number of channel assigned to mailbox to receive reply -- procedure SNDACC ( STATUS : out COND_VALUE_TYPE; -- return value MSGBUF : in STRING; CHAN : in CHANNEL_TYPE := 0); pragma INTERFACE (EXTERNAL, SNDACC); pragma IMPORT_VALUED_PROCEDURE (SNDACC, "SYS$SNDACC", (COND_VALUE_TYPE, STRING, CHANNEL_TYPE), (VALUE, DESCRIPTOR(S), VALUE)); -- $SNDERR -- -- Send Message to Error Logger -- -- $SNDERR msgbuf -- -- msgbuf = address of message buffer string descriptor -- procedure SNDERR ( STATUS : out COND_VALUE_TYPE; -- return value MSGBUF : in STRING); pragma INTERFACE (EXTERNAL, SNDERR); pragma IMPORT_VALUED_PROCEDURE (SNDERR, "SYS$SNDERR", (COND_VALUE_TYPE, STRING), (VALUE, DESCRIPTOR(S))); -- $SNDOPR -- -- Send Message to Operator -- -- $SNDOPR msgbuf ,[chan] -- -- msgbuf = address of message buffer string descriptor -- -- chan = number of channel assigned to mailbox to receive reply -- procedure SNDOPR ( STATUS : out COND_VALUE_TYPE; -- return value MSGBUF : in STRING; CHAN : in CHANNEL_TYPE := 0); pragma INTERFACE (EXTERNAL, SNDOPR); pragma IMPORT_VALUED_PROCEDURE (SNDOPR, "SYS$SNDOPR", (COND_VALUE_TYPE, STRING, CHANNEL_TYPE), (VALUE, DESCRIPTOR(S), VALUE)); -- $SNDSMB -- -- Send Message to Symbiont Manager -- -- $SNDSMB msgbuf ,[chan] -- -- msgbuf = address of message buffer string descriptor -- -- chan = number of channel assigned to mailbox to receive reply -- procedure SNDSMB ( STATUS : out COND_VALUE_TYPE; -- return value MSGBUF : in STRING; CHAN : in CHANNEL_TYPE := 0); pragma INTERFACE (EXTERNAL, SNDSMB); pragma IMPORT_VALUED_PROCEDURE (SNDSMB, "SYS$SNDSMB", (COND_VALUE_TYPE, STRING, CHANNEL_TYPE), (VALUE, DESCRIPTOR(S), VALUE)); -- $SNDJBC -- -- Send Message to Job Controller -- -- $SNDJBC [efn], func, [nullarg], [itmlst], -- ($SNDJBCW) [iosb], [astadr], [astprm] -- -- efn = event flag to be set when request completes -- func = code specifying function to be performed -- nullarg = reserved argument for similarity with $getxxx services -- itmlst = address of a list of item descriptors for the operation -- iosb = address of a quadword status block to receive the final status -- astadr = address of an ast routine to be called when request completes -- astprm = 32-bit ast parameter -- procedure SNDJBC ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; NULLARG : in ADDRESS := ADDRESS_ZERO; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SNDJBC ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; NULLARG : in ADDRESS := ADDRESS_ZERO; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SNDJBC); pragma IMPORT_VALUED_PROCEDURE (SNDJBC, "SYS$SNDJBC", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SNDJBC, "SYS$SNDJBC", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); procedure SNDJBCW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; NULLARG : in ADDRESS := ADDRESS_ZERO; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SNDJBCW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; NULLARG : in ADDRESS := ADDRESS_ZERO; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SNDJBCW); pragma IMPORT_VALUED_PROCEDURE (SNDJBCW, "SYS$SNDJBCW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SNDJBCW, "SYS$SNDJBCW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); -- -- $SPACE -- -- Space to Record in File -- -- $SPACE rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure SPACE ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SPACE); pragma IMPORT_VALUED_PROCEDURE (SPACE, "SYS$SPACE", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $SSIO_FSYNC -- -- Synchronize file changes with the storage device for a file that -- has been opened for Shared Stream I/O (SSIO) access. -- -- $SSIO_FSYNC chan, iosa ,[ast] ,[astprm] -- ($SSIO_FSYNCW) -- -- chan = channel number for SSIO accessed file -- -- iosa = address of I/O status area (4 quadwords) to receive final -- completion status (64-bit address) -- -- ast = address of AST routine (64-bit address) -- -- astprm = value to be passed to AST routine as argument (64-bit value) -- procedure SSIO_FSYNC ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_FSYNC); pragma IMPORT_VALUED_PROCEDURE (SSIO_FSYNC, "SYS$SSIO_FSYNC", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); procedure SSIO_FSYNCW ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_FSYNCW); pragma IMPORT_VALUED_PROCEDURE (SSIO_FSYNCW, "SYS$SSIO_FSYNCW", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $SSIO_GETFL -- -- Get the current file status flags for a file that has been opened -- for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with -- F_SETFL command parameter. -- -- $SSIO_GETFL chan ,iosa ,[ast] ,[astprm] -- ($SSIO_GETFLW) -- -- chan = channel number for SSIO accessed file -- -- iosa = address of I/O status area (4 quadwords) to receive final -- completion status and file status flags (64-bit address) -- -- ast = address of AST routine (64-bit address) -- -- astprm = value to be passed to AST routine as argument (64-bit value) -- procedure SSIO_GETFL ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_GETFL); pragma IMPORT_VALUED_PROCEDURE (SSIO_GETFL, "SYS$SSIO_GETFL", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); procedure SSIO_GETFLW ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_GETFLW); pragma IMPORT_VALUED_PROCEDURE (SSIO_GETFLW, "SYS$SSIO_GETFLW", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $SSIO_LSEEK -- -- Set the current file offset to a file that has been opened for -- Shared Stream I/O (SSIO) access. -- -- $SSIO_LSEEK chan ,offset_in ,whence ,iosa ,[ast] ,[astprm] -- ($SSIO_LSEEKW) -- -- chan = channel number for SSIO accessed file -- -- offset_in = signed offset value used in conjunction with the -- whence parameter to determine a new resultant file -- offset (64-bit value) -- -- whence = value that controls interpretation of offset_in -- Must be one of: -- SSIO$C_SEEK_SET: Resultant offset is offset_in -- SSIO$C_SEEK_CUR: Resultant offset is current value -- plus offset_in -- SSIO$C_SEEK_END: Resultant offset is current end-of- -- file position plus offset_in -- -- iosa = address of I/O status area (4 quadwords) to receive final -- completion status (64-bit address) -- -- ast = address of AST routine (64-bit address) -- -- astprm = value to be passed to AST routine as argument (64-bit value) -- procedure SSIO_LSEEK ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; OFFSET_IN : in LONGWORD_TYPE; WHENCE : in LONGWORD_TYPE; IOSA : in UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_LSEEK); pragma IMPORT_VALUED_PROCEDURE (SSIO_LSEEK, "SYS$SSIO_LSEEK", (COND_VALUE_TYPE, CHANNEL_TYPE, LONGWORD_TYPE, LONGWORD_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); procedure SSIO_LSEEKW ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; OFFSET_IN : in LONGWORD_TYPE; WHENCE : in LONGWORD_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_LSEEKW); pragma IMPORT_VALUED_PROCEDURE (SSIO_LSEEKW, "SYS$SSIO_LSEEKW", (COND_VALUE_TYPE, CHANNEL_TYPE, LONGWORD_TYPE, LONGWORD_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $SSIO_READ -- -- Read a byte stream from the current file offset from a file that -- has been opened for Shared Stream I/O (SSIO) access -- -- $SSIO_READ chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] -- ($SSIO_READW) -- -- chan = channel number for SSIO accessed file -- -- buffer = address of data buffer to receive data (64-bit address) -- -- bufsiz = size of data buffer in bytes (64-bit value) -- -- iosa = address of I/O status area (4 quadwords) to receive final -- completion status (64-bit address) -- -- ast = address of AST routine (64-bit address) -- -- astprm = value to be passed to AST routine as argument (64-bit value) -- procedure SSIO_READ ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; BUFFER : out UNSIGNED_BYTE_ARRAY; BUFSIZ : in UNSIGNED_LONGWORD; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_READ); pragma IMPORT_VALUED_PROCEDURE (SSIO_READ, "SYS$SSIO_READ", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_BYTE_ARRAY, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE)); procedure SSIO_READW ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; BUFFER : out UNSIGNED_BYTE_ARRAY; BUFSIZ : in UNSIGNED_LONGWORD; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_READW); pragma IMPORT_VALUED_PROCEDURE (SSIO_READW, "SYS$SSIO_READW", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_BYTE_ARRAY, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $SSIO_SETFL -- -- Set the current file status flags for a file that has been opened -- for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with -- F_SETFL command parameter. -- -- $SSIO_SETFL chan ,file_sts_flgs ,iosa ,[ast] ,[astprm] -- ($SSIO_SETFLW) -- -- chan = channel number for SSIO accessed file -- -- file_sts_flgs = desired file status flag value -- Only mask value that can be changed is SSIO$M_O_APPEND. -- -- iosa = address of I/O status area (4 quadwords) to receive final -- completion status (64-bit address) -- -- ast = address of AST routine (64-bit address) -- -- astprm = value to be passed to AST routine as argument (64-bit value) -- procedure SSIO_SETFL ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; FILE_STS_FLGS : in LONGWORD_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_SETFL); pragma IMPORT_VALUED_PROCEDURE (SSIO_SETFL, "SYS$SSIO_SETFL", (COND_VALUE_TYPE, CHANNEL_TYPE, LONGWORD_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); procedure SSIO_SETFLW ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; FILE_STS_FLGS : in LONGWORD_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_SETFLW); pragma IMPORT_VALUED_PROCEDURE (SSIO_SETFLW, "SYS$SSIO_SETFLW", (COND_VALUE_TYPE, CHANNEL_TYPE, LONGWORD_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $SSIO_SYNC -- -- Synchronize file changes that have been made via prior calls to -- the $SSIO_WRITE and $SSIO_TRUNCATE services to all files on this -- system that have been opened for Shared Stream I/O (SSIO) access. -- The file changes are synchronized with the corresponding storage -- device. -- -- $SSIO_SYNC -- procedure SSIO_SYNC ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, SSIO_SYNC); pragma IMPORT_VALUED_PROCEDURE (SSIO_SYNC, "SYS$SSIO_SYNC", (COND_VALUE_TYPE), (VALUE)); -- $SSIO_TRUNCATE -- -- Truncate (or extend) a file that has been opened for Shared -- Stream I/O (SSIO) access. -- -- $SSIO_TRUNCATE chan ,file_length ,iosa ,[ast] ,[astprm] -- ($SSIO_TRUNCATEW) -- -- chan = channel number for SSIO accessed file -- -- file_length = new end-of-file length (64-bit value) -- -- iosa = address of I/O status area (4 quadwords) to receive final -- completion status (64-bit address) -- -- ast = address of AST routine (64-bit address) -- -- astprm = value to be passed to AST routine as argument (64-bit value) -- procedure SSIO_TRUNCATE ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; FILE_LENGTH : in LONGWORD_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_TRUNCATE); pragma IMPORT_VALUED_PROCEDURE (SSIO_TRUNCATE, "SYS$SSIO_TRUNCATE", (COND_VALUE_TYPE, CHANNEL_TYPE, LONGWORD_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); procedure SSIO_TRUNCATEW ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; FILE_LENGTH : in LONGWORD_TYPE; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_TRUNCATEW); pragma IMPORT_VALUED_PROCEDURE (SSIO_TRUNCATEW, "SYS$SSIO_TRUNCATEW", (COND_VALUE_TYPE, CHANNEL_TYPE, LONGWORD_TYPE, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $SSIO_WRITE -- -- Write a byte stream to the current file offset to a file that -- has been opened for Shared Stream I/O (SSIO) access -- -- $SSIO_WRITE chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] -- ($SSIO_WRITEW) -- -- chan = channel number for SSIO accessed file -- -- buffer = address of data buffer to receive data (64-bit address) -- -- bufsiz = size of data buffer in bytes (64-bit value) -- -- iosa = address of I/O status area (4 quadwords) to receive final -- completion status (64-bit address) -- -- ast = address of AST routine (64-bit address) -- -- astprm = value to be passed to AST routine as argument (64-bit value) -- procedure SSIO_WRITE ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; BUFFER : in UNSIGNED_BYTE_ARRAY; BUFSIZ : in UNSIGNED_LONGWORD; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_WRITE); pragma IMPORT_VALUED_PROCEDURE (SSIO_WRITE, "SYS$SSIO_WRITE", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_BYTE_ARRAY, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE)); procedure SSIO_WRITEW ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; BUFFER : in UNSIGNED_BYTE_ARRAY; BUFSIZ : in UNSIGNED_LONGWORD; IOSA : out UNSIGNED_QUADWORD_ARRAY; AST : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SSIO_WRITEW); pragma IMPORT_VALUED_PROCEDURE (SSIO_WRITEW, "SYS$SSIO_WRITEW", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_BYTE_ARRAY, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD_ARRAY, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $SUSPND -- -- Suspend Process -- -- $SUSPND [pidadr] ,[prcnam], [flags] -- -- pidadr = address of process id of process to be suspended -- -- prcnam = address of name string descriptor of process -- -- flags = longword of bit flags, of which only bit 0 is -- currently used. If bit 0 is set, then this -- is a hard suspend request; if clear this is -- a soft suspend request. -- procedure SUSPND ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0); procedure SUSPND ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SUSPND); pragma IMPORT_VALUED_PROCEDURE (SUSPND, "SYS$SUSPND", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), VALUE)); pragma IMPORT_VALUED_PROCEDURE (SUSPND, "SYS$SUSPND", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE)); -- $SYNCH -- -- Synchronize Event Completion -- -- $SYNCH [iosb] ,[efn] -- -- efn = event flag to be set at completion -- -- iosb = address of a quadword I/O status block -- procedure SYNCH ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE); procedure SYNCH ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO); -- To omit optional IOSB argument pragma INTERFACE (EXTERNAL, SYNCH); pragma IMPORT_VALUED_PROCEDURE (SYNCH, "SYS$SYNCH", (COND_VALUE_TYPE, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE), (VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (SYNCH, "SYS$SYNCH", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS), (VALUE, VALUE, VALUE)); -- $SUBSYSTEM -- -- Modify Protected Subsystem Attributes -- -- $SUBSYSTEM enbflg -- -- enbflg = enable indicator -- 0 => disable image identifiers -- 1 => restore image identifiers -- procedure SUBSYSTEM ( STATUS : out COND_VALUE_TYPE; -- return value ENBFLG : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SUBSYSTEM); pragma IMPORT_VALUED_PROCEDURE (SUBSYSTEM, "SYS$SUBSYSTEM", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- -- $TIMCON -- -- Convert between binary UTC and Smithsonian times -- -- $TIMCON smntim, utctim, cvtflg -- -- For cvtflg = 0 (Convert UTC to Smithsonian) -- smnadr = Address of the output quadword to be written -- with the UTC time converted to date_time -- utcadr = Address of the input 128 bit utc_date_time time to -- be converted -- cvtflg = 0 -- -- For cvtflg = 1 (Convert Smithsonian to UTC) -- smnadr = Address of input Smithsonian binary time to be -- converted (VMS Binabs time). -- utcadr = Address of the output 128 bit binary time to -- be written with the converted time -- cvtflg = 1 -- procedure TIMCON ( STATUS : out COND_VALUE_TYPE; -- return value SMNADR : in out DATE_TIME_TYPE; UTCADR : in out UTC_DATE_TIME_TYPE; CVTFLG : in UNSIGNED_LONGWORD := FALSE); pragma INTERFACE (EXTERNAL, TIMCON); pragma IMPORT_VALUED_PROCEDURE (TIMCON, "SYS$TIMCON", (COND_VALUE_TYPE, DATE_TIME_TYPE, UTC_DATE_TIME_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE)); -- $TRNLNM -- -- Translate Logical Name -- -- $TRNLNM [attr], tabnam, [lognam], [acmode], [itemlist] -- -- attr = address of logical name translation attributes -- -- Attribute Meaning -- LNM$M_CASE_BLIND Search of string is case insensitive -- -- tabnam = address of logical name table name string descriptor -- -- lognam = address of logical name string descriptor -- -- acmode = address of access mode for logical name -- -- itmlst = address of a list of item descriptors -- procedure TRNLNM ( STATUS : out COND_VALUE_TYPE; -- return value ATTR : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; TABNAM : in LOGICAL_NAME_TYPE; LOGNAM : in LOGICAL_NAME_TYPE; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, TRNLNM); pragma IMPORT_VALUED_PROCEDURE (TRNLNM, "SYS$TRNLNM", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, LOGICAL_NAME_TYPE, LOGICAL_NAME_TYPE, ACCESS_MODE_TYPE, ITEM_LIST_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE)); -- $TRNLOG -- -- Translate Logical Name -- -- $TRNLOG lognam ,[rsllen] ,rslbuf ,[table] ,[acmode] ,[dsbmsk] -- -- lognam = address of logical name string descriptor -- -- rsllen = address of word to receive length of resultant name -- -- rslbuf = address of descriptor for buffer to receive resultant -- string -- -- table = address of byte to receive logical name table number -- -- acmode = address of byte to receive access mode of entry -- (process table only) -- -- dsbmsk = table search disable mask -- -- Bit Set Meaning -- -- 0 Do not search system table -- 1 Do not search group table -- 2 Do not search process table -- procedure TRNLOG ( STATUS : out COND_VALUE_TYPE; -- return value LOGNAM : in LOGICAL_NAME_TYPE; RSLLEN : out UNSIGNED_WORD; RSLBUF : out STRING; TABLE : out UNSIGNED_BYTE; ACMODE : out ACCESS_MODE_TYPE; DSBMSK : in UNSIGNED_LONGWORD := 0); procedure TRNLOG ( STATUS : out COND_VALUE_TYPE; -- return value LOGNAM : in LOGICAL_NAME_TYPE; RSLLEN : out UNSIGNED_WORD; RSLBUF : out STRING; TABLE : out UNSIGNED_BYTE; ACMODE : in ADDRESS := ADDRESS_ZERO; -- To omit optional ACMODE argument DSBMSK : in UNSIGNED_LONGWORD := 0); procedure TRNLOG ( STATUS : out COND_VALUE_TYPE; -- return value LOGNAM : in LOGICAL_NAME_TYPE; RSLLEN : out UNSIGNED_WORD; RSLBUF : out STRING; TABLE : in ADDRESS := ADDRESS_ZERO; -- To omit optional TABLE argument ACMODE : in ADDRESS := ADDRESS_ZERO; -- To omit optional ACMODE argument DSBMSK : in UNSIGNED_LONGWORD := 0); procedure TRNLOG ( STATUS : out COND_VALUE_TYPE; -- return value LOGNAM : in LOGICAL_NAME_TYPE; RSLLEN : out UNSIGNED_WORD; RSLBUF : out STRING; TABLE : in ADDRESS := ADDRESS_ZERO; -- To omit optional TABLE argument ACMODE : out ACCESS_MODE_TYPE; DSBMSK : in UNSIGNED_LONGWORD := 0); procedure TRNLOG ( STATUS : out COND_VALUE_TYPE; -- return value LOGNAM : in LOGICAL_NAME_TYPE; RSLLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional RSLLEN argument RSLBUF : out STRING; TABLE : in ADDRESS := ADDRESS_ZERO; -- To omit optional TABLE argument ACMODE : out ACCESS_MODE_TYPE; DSBMSK : in UNSIGNED_LONGWORD := 0); procedure TRNLOG ( STATUS : out COND_VALUE_TYPE; -- return value LOGNAM : in LOGICAL_NAME_TYPE; RSLLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional RSLLEN argument RSLBUF : out STRING; TABLE : in ADDRESS := ADDRESS_ZERO; -- To omit optional TABLE argument ACMODE : in ADDRESS := ADDRESS_ZERO; -- To omit optional ACMODE argument DSBMSK : in UNSIGNED_LONGWORD := 0); procedure TRNLOG ( STATUS : out COND_VALUE_TYPE; -- return value LOGNAM : in LOGICAL_NAME_TYPE; RSLLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional RSLLEN argument RSLBUF : out STRING; TABLE : out UNSIGNED_BYTE; ACMODE : in ADDRESS := ADDRESS_ZERO; -- To omit optional ACMODE argument DSBMSK : in UNSIGNED_LONGWORD := 0); procedure TRNLOG ( STATUS : out COND_VALUE_TYPE; -- return value LOGNAM : in LOGICAL_NAME_TYPE; RSLLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional RSLLEN argument RSLBUF : out STRING; TABLE : out UNSIGNED_BYTE; ACMODE : out ACCESS_MODE_TYPE; DSBMSK : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, TRNLOG); pragma IMPORT_VALUED_PROCEDURE (TRNLOG, "SYS$TRNLOG", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, UNSIGNED_WORD, STRING, UNSIGNED_BYTE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (TRNLOG, "SYS$TRNLOG", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, UNSIGNED_WORD, STRING, UNSIGNED_BYTE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (TRNLOG, "SYS$TRNLOG", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, UNSIGNED_WORD, STRING, ADDRESS, ADDRESS, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (TRNLOG, "SYS$TRNLOG", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, UNSIGNED_WORD, STRING, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), REFERENCE, DESCRIPTOR(S), VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (TRNLOG, "SYS$TRNLOG", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, ADDRESS, STRING, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (TRNLOG, "SYS$TRNLOG", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, ADDRESS, STRING, ADDRESS, ADDRESS, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (TRNLOG, "SYS$TRNLOG", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, ADDRESS, STRING, UNSIGNED_BYTE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (TRNLOG, "SYS$TRNLOG", (COND_VALUE_TYPE, LOGICAL_NAME_TYPE, ADDRESS, STRING, UNSIGNED_BYTE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE)); -- -- $TRUNCATE -- -- Truncate Record -- -- $TRUNCATE rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure TRUNCATE ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, TRUNCATE); pragma IMPORT_VALUED_PROCEDURE (TRUNCATE, "SYS$TRUNCATE", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $ULKPAG -- -- Unlock Pages From Memory -- -- $ULKPAG inadr ,[retadr] ,[acmode] -- -- inadr = address of 2-longword array containing starting and -- ending virtual addresses of pages to be unlocked -- -- retadr = address of a 2-longword array to receive starting and -- ending virtual addresses of pages actually unlocked -- -- acmode = access mode to check against the owner of the pages -- procedure ULKPAG ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); procedure ULKPAG ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, ULKPAG); pragma IMPORT_VALUED_PROCEDURE (ULKPAG, "SYS$ULKPAG", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ULKPAG, "SYS$ULKPAG", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE)); -- $ULKPAG_64 -- -- Unlock Pages in Memory -- -- $ULKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 -- -- start_va_64 = Starting address of address space to unlock -- -- length_64 = Byte length of addresses to lock -- -- acmode = Access mode to be checked against the page owner -- -- return_va_64 = Address of address space unlocked -- -- return_length_64 = Length of address space unlocked -- procedure ULKPAG_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, ULKPAG_64); pragma IMPORT_VALUED_PROCEDURE (ULKPAG_64, "SYS$ULKPAG_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- $ULWSET -- -- Unlock Pages From Working Set -- -- $ULWSET inadr ,[retadr] ,[acmode] -- -- inadr = address of 2-longword array containing starting and -- ending virtual addresses of pages to be unlocked -- -- retadr = address of a 2-longword array to receive starting and -- ending virtual addresses of pages actually unlocked -- -- acmode = access mode to check against the owner of the pages -- procedure ULWSET ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0); procedure ULWSET ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, ULWSET); pragma IMPORT_VALUED_PROCEDURE (ULWSET, "SYS$ULWSET", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ULWSET, "SYS$ULWSET", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE), (VALUE, REFERENCE, VALUE, VALUE)); -- $ULWSET_64 -- -- Unlock Pages from Working Set -- -- $ULWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 -- -- start_va_64 = Starting address of address space to unlock -- -- length_64 = Byte length of addresses to lock -- -- acmode = Access mode to be checked against the page owner -- -- return_va_64 = Address of address space unlocked -- -- return_length_64 = Length of address space unlocked -- procedure ULWSET_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, ULWSET_64); pragma IMPORT_VALUED_PROCEDURE (ULWSET_64, "SYS$ULWSET_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, ADDRESS, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE)); -- $UNWIND -- -- Unwind Call Stack -- -- $UNWIND [depadr] ,[newpc] -- -- depadr = address of longword containing number of logical frames -- (depth) to unwind call stack -- -- newpc = address to be given control when the unwind is complete -- procedure UNWIND ( STATUS : out COND_VALUE_TYPE; -- return value DEPADR : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; NEWPC : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, UNWIND); pragma IMPORT_VALUED_PROCEDURE (UNWIND, "SYS$UNWIND", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS), (VALUE, REFERENCE, VALUE)); -- -- $UPDATE -- -- Update Record -- -- $UPDATE fab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure UPDATE ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, UPDATE); pragma IMPORT_VALUED_PROCEDURE (UPDATE, "SYS$UPDATE", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- $UPDSEC -- -- Update Section File on Disk -- -- $UPDSEC inadr ,[retadr] ,[acmode] ,[updflg] ,[efn] ,[iosb] -- ($UPDSECW) ,[astadr] ,[astprm] -- -- inadr = address of 2-longword array containing starting and -- ending addresses of the pages to be potentially -- written -- -- retadr = address of 2-longword array to receive addresses of -- the first and last page queued in the first I/O -- request -- -- acmode = access mode on behalf of which the service is -- performed -- -- updflg = update indicator for read/write global sections -- 0 -> write all read/write pages in the section -- UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller -- -- efn = number of event flag to set when the section file is -- updated -- -- iosb = address of quadword I/O status block -- -- astadr = address of entry mask of an AST service routine -- -- astprm = AST parameter to be passed to the AST service routine -- procedure UPDSEC ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := FALSE; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure UPDSEC ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := FALSE; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure UPDSEC ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := FALSE; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure UPDSEC ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := FALSE; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, UPDSEC); pragma IMPORT_VALUED_PROCEDURE (UPDSEC, "SYS$UPDSEC", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (UPDSEC, "SYS$UPDSEC", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (UPDSEC, "SYS$UPDSEC", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (UPDSEC, "SYS$UPDSEC", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); procedure UPDSECW ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := FALSE; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure UPDSECW ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : out ADDRESS_RANGE_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := FALSE; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure UPDSECW ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := FALSE; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure UPDSECW ( STATUS : out COND_VALUE_TYPE; -- return value INADR : in ADDRESS_RANGE_TYPE; RETADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional RETADR argument ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := FALSE; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, UPDSECW); pragma IMPORT_VALUED_PROCEDURE (UPDSECW, "SYS$UPDSECW", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (UPDSECW, "SYS$UPDSECW", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS_RANGE_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (UPDSECW, "SYS$UPDSECW", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (UPDSECW, "SYS$UPDSECW", (COND_VALUE_TYPE, ADDRESS_RANGE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE)); -- $UPDSEC_64 -- -- Update Section File on Disk -- -- $UPDSEC_64 start_va_64, length_64, acmode, updflg, efn, iosa_64 -- return_va_64, return_length_64[,astadr_64[, astprm_64]] -- -- start_va_64 = Starting address of address space to update -- -- length_64 = Byte length of addresses to update -- -- acmode = access mode on behalf of which the service is -- performed -- -- updflg = update indicator for read/write global sections -- 0 -> write all read/write pages in the section -- UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller -- -- efn = number of event flag to set when the section file is -- updated -- -- iosa_64 = address of 4 quadword I/O status area -- -- return_va_64 = Address of address space queued in the first -- I/O request -- -- return_length_64 = Length of address space queued in the first -- I/O request -- -- astadr_64 = address of entry mask of an AST service routine -- -- astprm_64 = AST parameter to be passed to the AST service routine -- procedure UPDSEC_64 ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSA_64 : out ADDRESS; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; ASTADR_64 : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM_64 : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, UPDSEC_64); pragma IMPORT_VALUED_PROCEDURE (UPDSEC_64, "SYS$UPDSEC_64", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, ADDRESS, UNSIGNED_QUADWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE), ASTADR_64); procedure UPDSEC_64W ( STATUS : out COND_VALUE_TYPE; -- return value START_VA_64 : in ADDRESS; LENGTH_64 : in UNSIGNED_QUADWORD; ACMODE : in ACCESS_MODE_TYPE := 0; UPDFLG : in UNSIGNED_LONGWORD := 0; EFN : in EF_NUMBER_TYPE := 0; IOSA_64 : out ADDRESS; RETURN_VA_64 : out ADDRESS; RETURN_LENGTH_64 : out UNSIGNED_QUADWORD; ASTADR_64 : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM_64 : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, UPDSEC_64W); pragma IMPORT_VALUED_PROCEDURE (UPDSEC_64W, "SYS$UPDSEC_64W", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD, EF_NUMBER_TYPE, ADDRESS, ADDRESS, UNSIGNED_QUADWORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE), ASTADR_64); -- -- $VERIFY_PROXY -- -- Verify proxy record -- -- $VERIFY_PROXY rem_node, rem_user, [proposed_user], local_user, local_user_len, flags -- -- rem_node in address of remote node descriptor -- rem_user in address of remote user descriptor -- proposed_user in address of optional proposed user descriptor -- local_user out address of descriptor to receive local user -- local_user_len out address of word to receive local user length -- flags in proxy service flags -- procedure VERIFY_PROXY ( STATUS : out COND_VALUE_TYPE; -- return value REM_NODE : in STRING; REM_USER : in STRING; PROPOSED_USER : in STRING := STRING'NULL_PARAMETER; LOCAL_USER : out STRING; LOCAL_USER_LEN : out UNSIGNED_WORD; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, VERIFY_PROXY); pragma IMPORT_VALUED_PROCEDURE (VERIFY_PROXY, "SYS$VERIFY_PROXY", (COND_VALUE_TYPE, STRING, STRING, STRING, STRING, UNSIGNED_WORD, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, VALUE)); -- -- $WAIT -- -- Wait on File -- -- $WAIT rab -- -- rab = address of rab -- -- procedure WAIT ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE); pragma INTERFACE (EXTERNAL, WAIT); pragma IMPORT_VALUED_PROCEDURE (WAIT, "SYS$WAIT", (COND_VALUE_TYPE, RAB_TYPE), (VALUE, REFERENCE)); -- $WAITFR -- -- Wait for Single Event Flag -- -- $WAITFR efn -- -- efn = event flag number to wait for -- procedure WAITFR ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE); pragma INTERFACE (EXTERNAL, WAITFR); pragma IMPORT_VALUED_PROCEDURE (WAITFR, "SYS$WAITFR", (COND_VALUE_TYPE, EF_NUMBER_TYPE), (VALUE, VALUE)); -- $WAKE -- -- Wake -- -- $WAKE [pidadr] ,[prcnam] -- -- pidadr = address of process id of process to be awakened -- -- prcnam = address of name string descriptor of process to be -- awakened -- procedure WAKE ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in out PROCESS_ID_TYPE; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER); procedure WAKE ( STATUS : out COND_VALUE_TYPE; -- return value PIDADR : in ADDRESS := ADDRESS_ZERO; -- To omit optional PIDADR argument PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, WAKE); pragma IMPORT_VALUED_PROCEDURE (WAKE, "SYS$WAKE", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_NAME_TYPE), (VALUE, REFERENCE, DESCRIPTOR(S))); pragma IMPORT_VALUED_PROCEDURE (WAKE, "SYS$WAKE", (COND_VALUE_TYPE, ADDRESS, PROCESS_NAME_TYPE), (VALUE, VALUE, DESCRIPTOR(S))); -- $WFLAND -- -- Wait for Logical AND of Event Flags -- -- $WFLAND efn ,mask -- -- efn = event flag number of any flag within the cluster -- -- mask = 32-bit mask of flags that must be set -- procedure WFLAND ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE; MASK : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, WFLAND); pragma IMPORT_VALUED_PROCEDURE (WFLAND, "SYS$WFLAND", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE)); -- $WFLOR -- -- Wait for Logical OR of Event Flags -- -- $WFLOR efn ,mask -- -- efn = event flag number of any flag within the cluster -- -- mask = 32-bit mask of flags, any of which must be set -- procedure WFLOR ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE; MASK : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, WFLOR); pragma IMPORT_VALUED_PROCEDURE (WFLOR, "SYS$WFLOR", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE)); -- -- $WRITE -- -- Write Block to File -- -- $WRITE rab, [err], [suc] -- -- rab = address of rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- procedure WRITE ( STATUS : out COND_VALUE_TYPE; -- return value RAB : in out RAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, WRITE); pragma IMPORT_VALUED_PROCEDURE (WRITE, "SYS$WRITE", (COND_VALUE_TYPE, RAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE), ERR); -- -- $WRITE_THREAD_UNQ -- -- Write thread unique value -- -- $WRITE_THREAD_UNQ contxt -- -- contxt = address of quadword that contains the -- thread unique value to be written -- procedure WRITE_THREAD_UNQ ( STATUS : out COND_VALUE_TYPE; -- return value CONTXT : in CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, WRITE_THREAD_UNQ); pragma IMPORT_VALUED_PROCEDURE (WRITE_THREAD_UNQ, "SYS$WRITE_THREAD_UNQ", (COND_VALUE_TYPE, CONTEXT_TYPE), (VALUE, REFERENCE)); -- $XFS_CLIENT -- -- Call the XFS client -- -- $XFS_CLIENT [efn] ,func ,fsb ,[astadr] ,[astprm] -- -- efn = number of event flag to set on completion -- -- func = function code specifying action to be performed -- -- fsb = address of File System Block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as argument -- procedure XFS_CLIENT ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; FSB : in ADDRESS; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, XFS_CLIENT); pragma IMPORT_VALUED_PROCEDURE (XFS_CLIENT, "SYS$XFS_CLIENT", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); -- $XFS_SERVER -- -- Call the XFS server -- -- $XFS_SERVER [efn] ,func ,fsb ,[astadr] ,[astprm] -- -- efn = number of event flag to set on completion -- -- func = function code specifying action to be performed -- -- fsb = address of File System Block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine as argument -- procedure XFS_SERVER ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; FSB : in ADDRESS; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, XFS_SERVER); pragma IMPORT_VALUED_PROCEDURE (XFS_SERVER, "SYS$XFS_SERVER", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); -- $DCLRNH -- -- Declare Restart Handler -- -- $DCLRNH desblk -- -- desblk = address of handler control block containing: -- -- +-------------------------------+ -- | forward link | -- +-------------------------------+ -- | restart handler address | -- +-------------------------------+ -- | argument count | -- +-------------------------------+ -- | reserved, must be zero | -- +-------------------------------+ -- | address to store event code | -- +-------------------------------+ -- | additional arguments | -- +-- for restart handler, --+ -- | if any | -- +-------------------------------+ -- procedure DCLRNH ( STATUS : out COND_VALUE_TYPE; -- return value DESBLK : in UNSIGNED_LONGWORD_ARRAY); pragma INTERFACE (EXTERNAL, DCLRNH); pragma IMPORT_VALUED_PROCEDURE (DCLRNH, "SYS$DCLRNH", (COND_VALUE_TYPE, UNSIGNED_LONGWORD_ARRAY), (VALUE, REFERENCE)); -- $CANRNH -- -- Cancel Restart Handler -- -- $CANRNH [desblk] -- -- desblk = address of handler control block describing -- handler to be deleted. If 0, delete all -- procedure CANRNH ( STATUS : out COND_VALUE_TYPE; -- return value DESBLK : in UNSIGNED_LONGWORD_ARRAY := UNSIGNED_LONGWORD_ARRAY'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CANRNH); pragma IMPORT_VALUED_PROCEDURE (CANRNH, "SYS$CANRNH", (COND_VALUE_TYPE, UNSIGNED_LONGWORD_ARRAY), (VALUE, REFERENCE)); -- -- $ABORT_TRANS -- -- Abort a transaction -- -- $ABORT_TRANS [efn], [flags], iosb [, [astadr], [astprm], -- ($ABORT_TRANSW) [tid], [reason], [bid]] -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of an entry mask of AST routine -- astprm = value to be passed to AST routine as an argument -- tid = identifier of transaction to be aborted -- reason = optional extended abort reason code -- bid = identifier of transaction branch to be aborted -- procedure ABORT_TRANS ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER; REASON : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; BID : in BRANCH_ID_TYPE := BRANCH_ID_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, ABORT_TRANS); pragma IMPORT_VALUED_PROCEDURE (ABORT_TRANS, "SYS$ABORT_TRANS", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, COND_VALUE_TYPE, BRANCH_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE), ASTADR); procedure ABORT_TRANSW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER; REASON : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; BID : in BRANCH_ID_TYPE := BRANCH_ID_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, ABORT_TRANSW); pragma IMPORT_VALUED_PROCEDURE (ABORT_TRANSW, "SYS$ABORT_TRANSW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, COND_VALUE_TYPE, BRANCH_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE), ASTADR); -- -- $ACK_EVENT -- -- Acknowledge a resource manager transaction event -- -- $ACK_REPORT [flags], report_id, report_reply, [, [reason], -- [beftime], [afttime], [part_name], [rm_context], -- [timout]] -- -- flags = operation flags -- report_id = participant id value -- report_reply = value of completion status -- reason = extended abort reason code (for veto vote) -- beftim = lower bound of commit timestamp -- afttim = upper bound of commit timestamp -- part_name = address of participant name descriptor -- rm_context = RM private value to be passed to evt_rtn -- timout = transaction execution time-out value -- procedure ACK_EVENT ( STATUS : out COND_VALUE_TYPE; -- return value FLAGS : in UNSIGNED_LONGWORD := 0; REPORT_ID : in UNSIGNED_LONGWORD; REPORT_REPLY : in COND_VALUE_TYPE; REASON : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; BEFTIME : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER; AFTTIME : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER; PART_NAME : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, ACK_EVENT); pragma IMPORT_VALUED_PROCEDURE (ACK_EVENT, "SYS$ACK_EVENT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, COND_VALUE_TYPE, COND_VALUE_TYPE, UTC_DATE_TIME_TYPE, UTC_DATE_TIME_TYPE, STRING, USER_ARG_TYPE, DATE_TIME_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE), REASON); -- -- $ADD_BRANCH -- -- Add a transaction branch -- -- $ADD_BRANCH [efn], [flags], iosb, [astadr], [astprm], -- ($ADD_BRANCHW) tid, tm_name, bid -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of an entry mask of AST routine -- astprm = value to be passed to AST routine as an argument -- tid = transaction id for this branch -- tm_name = address of commit domain name descriptor -- bid = address to receive new branch identifier -- procedure ADD_BRANCH ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER; TM_NAME : in STRING; BID : out BRANCH_ID_TYPE); pragma INTERFACE (EXTERNAL, ADD_BRANCH); pragma IMPORT_VALUED_PROCEDURE (ADD_BRANCH, "SYS$ADD_BRANCH", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, STRING, BRANCH_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE)); procedure ADD_BRANCHW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER; TM_NAME : in STRING; BID : out BRANCH_ID_TYPE); pragma INTERFACE (EXTERNAL, ADD_BRANCHW); pragma IMPORT_VALUED_PROCEDURE (ADD_BRANCHW, "SYS$ADD_BRANCHW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, STRING, BRANCH_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE)); -- -- *************** NOTE: $CREATE_BRANCH(W) service definitions are obsolete ************** -- -- $CREATE_BRANCH -- -- Create a transaction branch -- -- $CREATE_BRANCH = [efn], [flags], iosb, [astadr], [astprm], -- ($CREATE_BRANCHW) tid, bid [,[timout], [acmode], [tx_class]] -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of an entry mask of AST routine -- astprm = value to be passed to AST routine as an argument -- tid = transaction id for this branch -- bid = address to receive new branch identifier -- timout = transaction execution time-out value -- acmode = access mode for $CREATE_BRANCH call -- tx_class= user transaction class name -- procedure CREATE_BRANCH ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : out TRANSACTION_ID_TYPE; BID : out BRANCH_ID_TYPE; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TX_CLASS : in STRING := STRING'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREATE_BRANCH); pragma IMPORT_VALUED_PROCEDURE (CREATE_BRANCH, "SYS$CREATE_BRANCH", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, BRANCH_ID_TYPE, DATE_TIME_TYPE, ACCESS_MODE_TYPE, STRING), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, DESCRIPTOR(S)), TIMOUT); procedure CREATE_BRANCHW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : out TRANSACTION_ID_TYPE; BID : out BRANCH_ID_TYPE; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TX_CLASS : in STRING := STRING'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, CREATE_BRANCHW); pragma IMPORT_VALUED_PROCEDURE (CREATE_BRANCHW, "SYS$CREATE_BRANCHW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, BRANCH_ID_TYPE, DATE_TIME_TYPE, ACCESS_MODE_TYPE, STRING), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE, DESCRIPTOR(S)), TIMOUT); -- $CVT_FILENAME -- -- Convert a string between RMS format and file-system format. -- -- $CVT_FILENAME cvttyp, srcstr, inflags, outbuf, outlen, outflags -- -- cvttyp = value indicating conversion type (RMS-to-filesys or -- filesys-to-RMS) -- srcstr = address of string descriptor for source string -- inflags = mask indicating source string characteristics -- outbuf = address of string descriptor for output string -- outlen = address to store length of returned output string -- outflags = address of a longword to receive flags describing -- output string -- procedure CVT_FILENAME ( STATUS : out COND_VALUE_TYPE; -- return value CVTTYP : in UNSIGNED_LONGWORD := 0; SRCSTR : in STRING; INFLAGS : in UNSIGNED_LONGWORD := 0; OUTBUF : in out STRING; OUTLEN : out UNSIGNED_WORD; OUTFLAGS : out UNSIGNED_LONGWORD); procedure CVT_FILENAME ( STATUS : out COND_VALUE_TYPE; -- return value CVTTYP : in UNSIGNED_LONGWORD := 0; SRCSTR : in STRING; INFLAGS : in UNSIGNED_LONGWORD := 0; OUTBUF : in out STRING; OUTLEN : out UNSIGNED_WORD; OUTFLAGS : in ADDRESS := ADDRESS_ZERO); -- To omit optional OUTFLAGS argument procedure CVT_FILENAME ( STATUS : out COND_VALUE_TYPE; -- return value CVTTYP : in UNSIGNED_LONGWORD := 0; SRCSTR : in STRING; INFLAGS : in UNSIGNED_LONGWORD := 0; OUTBUF : in out STRING; OUTLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTLEN argument OUTFLAGS : in ADDRESS := ADDRESS_ZERO); -- To omit optional OUTFLAGS argument procedure CVT_FILENAME ( STATUS : out COND_VALUE_TYPE; -- return value CVTTYP : in UNSIGNED_LONGWORD := 0; SRCSTR : in STRING; INFLAGS : in UNSIGNED_LONGWORD := 0; OUTBUF : in out STRING; OUTLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTLEN argument OUTFLAGS : out UNSIGNED_LONGWORD); procedure CVT_FILENAME ( STATUS : out COND_VALUE_TYPE; -- return value CVTTYP : in UNSIGNED_LONGWORD := 0; SRCSTR : in STRING; INFLAGS : in UNSIGNED_LONGWORD := 0; OUTBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTBUF argument OUTLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTLEN argument OUTFLAGS : out UNSIGNED_LONGWORD); procedure CVT_FILENAME ( STATUS : out COND_VALUE_TYPE; -- return value CVTTYP : in UNSIGNED_LONGWORD := 0; SRCSTR : in STRING; INFLAGS : in UNSIGNED_LONGWORD := 0; OUTBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTBUF argument OUTLEN : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTLEN argument OUTFLAGS : in ADDRESS := ADDRESS_ZERO); -- To omit optional OUTFLAGS argument procedure CVT_FILENAME ( STATUS : out COND_VALUE_TYPE; -- return value CVTTYP : in UNSIGNED_LONGWORD := 0; SRCSTR : in STRING; INFLAGS : in UNSIGNED_LONGWORD := 0; OUTBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTBUF argument OUTLEN : out UNSIGNED_WORD; OUTFLAGS : in ADDRESS := ADDRESS_ZERO); -- To omit optional OUTFLAGS argument procedure CVT_FILENAME ( STATUS : out COND_VALUE_TYPE; -- return value CVTTYP : in UNSIGNED_LONGWORD := 0; SRCSTR : in STRING; INFLAGS : in UNSIGNED_LONGWORD := 0; OUTBUF : in ADDRESS := ADDRESS_ZERO; -- To omit optional OUTBUF argument OUTLEN : out UNSIGNED_WORD; OUTFLAGS : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, CVT_FILENAME); pragma IMPORT_VALUED_PROCEDURE (CVT_FILENAME, "SYS$CVT_FILENAME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, STRING, UNSIGNED_WORD, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (CVT_FILENAME, "SYS$CVT_FILENAME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, STRING, UNSIGNED_WORD, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CVT_FILENAME, "SYS$CVT_FILENAME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, STRING, ADDRESS, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CVT_FILENAME, "SYS$CVT_FILENAME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, STRING, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, DESCRIPTOR(S), VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (CVT_FILENAME, "SYS$CVT_FILENAME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, ADDRESS, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (CVT_FILENAME, "SYS$CVT_FILENAME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, ADDRESS, ADDRESS, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CVT_FILENAME, "SYS$CVT_FILENAME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_WORD, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (CVT_FILENAME, "SYS$CVT_FILENAME", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_WORD, UNSIGNED_LONGWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, REFERENCE)); -- -- $DECLARE_RM [efn], [flags], iosb, [astadr], [astprm], -- ($DECLARE_RMW) rm_id, event_handler [, [part_name], -- [rm_context], [acmode], [tm_log_id], [event_mask]] -- -- Declare Resource Manager to DDTM -- -- efn = event flag to set upon completion -- flags = operation flags -- iosb = address of I/O status block -- astadr = address of entry mask of AST routine -- astprm = value to be passed to AST routine -- rm_id = address of longword to receive resource manager id -- event_rtn = address of entry mask of transaction event routine -- part_name = address of resource manager name descriptor -- rm_context = RM private value to be passed to evt_rtn -- acmode = value of access mode in which to invoke evt_rtn -- tm_log_id = transaction manager log id for validation checks -- event_mask = mask of events required by this resource manager -- procedure DECLARE_RM ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RM_ID : out UNSIGNED_LONGWORD; EVENT_HANDLER : in AST_PROCEDURE_TYPE; PART_NAME : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TM_LOG_ID : out OCTAWORD_UNSIGNED_TYPE; EVENT_MASK : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); procedure DECLARE_RM ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RM_ID : out UNSIGNED_LONGWORD; EVENT_HANDLER : in AST_PROCEDURE_TYPE; PART_NAME : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TM_LOG_ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional TM_LOG_ID argument EVENT_MASK : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DECLARE_RM); pragma IMPORT_VALUED_PROCEDURE (DECLARE_RM, "SYS$DECLARE_RM", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, STRING, USER_ARG_TYPE, ACCESS_MODE_TYPE, OCTAWORD_UNSIGNED_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE), EVENT_MASK); pragma IMPORT_VALUED_PROCEDURE (DECLARE_RM, "SYS$DECLARE_RM", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, STRING, USER_ARG_TYPE, ACCESS_MODE_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE), PART_NAME); procedure DECLARE_RMW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RM_ID : out UNSIGNED_LONGWORD; EVENT_HANDLER : in AST_PROCEDURE_TYPE; PART_NAME : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TM_LOG_ID : out OCTAWORD_UNSIGNED_TYPE; EVENT_MASK : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); procedure DECLARE_RMW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RM_ID : out UNSIGNED_LONGWORD; EVENT_HANDLER : in AST_PROCEDURE_TYPE; PART_NAME : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TM_LOG_ID : in ADDRESS := ADDRESS_ZERO; -- To omit optional TM_LOG_ID argument EVENT_MASK : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, DECLARE_RMW); pragma IMPORT_VALUED_PROCEDURE (DECLARE_RMW, "SYS$DECLARE_RMW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, STRING, USER_ARG_TYPE, ACCESS_MODE_TYPE, OCTAWORD_UNSIGNED_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE), EVENT_MASK); pragma IMPORT_VALUED_PROCEDURE (DECLARE_RMW, "SYS$DECLARE_RMW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, AST_PROCEDURE_TYPE, STRING, USER_ARG_TYPE, ACCESS_MODE_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE), PART_NAME); -- -- $END_BRANCH -- -- End an active branch of a transaction -- -- $END_BRANCH [efn], [flags], iosb, [astadr], [astprm], -- ($END_BRANCHW) tid, bid -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of a completion AST routine entry mask -- astprm = value to be passed to completion AST routine -- tid = address of transaction identifier -- bid = address of transaction branch identifier -- procedure END_BRANCH ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : in TRANSACTION_ID_TYPE; BID : in BRANCH_ID_TYPE); pragma INTERFACE (EXTERNAL, END_BRANCH); pragma IMPORT_VALUED_PROCEDURE (END_BRANCH, "SYS$END_BRANCH", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, BRANCH_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE)); procedure END_BRANCHW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : in TRANSACTION_ID_TYPE; BID : in BRANCH_ID_TYPE); pragma INTERFACE (EXTERNAL, END_BRANCHW); pragma IMPORT_VALUED_PROCEDURE (END_BRANCHW, "SYS$END_BRANCHW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, BRANCH_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE)); -- -- $END_TRANS -- -- Commit a transaction -- -- $END_TRANS [efn], [flags], iosb [, [astadr], [astprm], [tid] ] -- ($END_TRANSW) -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of an entry mask of AST routine -- astprm = value to be passed to AST routine as an argument -- tid = identifier of transaction to be committed -- procedure END_TRANS ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, END_TRANS); pragma IMPORT_VALUED_PROCEDURE (END_TRANS, "SYS$END_TRANS", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE), ASTADR); procedure END_TRANSW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, END_TRANSW); pragma IMPORT_VALUED_PROCEDURE (END_TRANSW, "SYS$END_TRANSW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE), ASTADR); -- -- $FINISH_RMOP -- -- Finish resource manager transaction event operation -- -- $FINISH_RMOP [efn], [flags], iosb, [astadr], [astprm], -- ($FINISH_RMOPW) part_id, retsts [, [reason], -- [beftime], [afttime] -- -- efn = event flag to set upon completion -- flags = operation flags -- iosb = address of I/O status block -- astadr = address of entry mask of AST routine -- astprm = value to be passed to AST routine -- part_id = participant id value -- retsts = value of completion status -- reason = extended abort reason code (for veto vote) -- beftim = lower bound of commit timestamp -- afttim = upper bound of commit timestamp -- procedure FINISH_RMOP ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; PART_ID : in UNSIGNED_LONGWORD; RETSTS : in COND_VALUE_TYPE; REASON : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; BEFTIME : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER; AFTTIME : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, FINISH_RMOP); pragma IMPORT_VALUED_PROCEDURE (FINISH_RMOP, "SYS$FINISH_RMOP", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, COND_VALUE_TYPE, COND_VALUE_TYPE, UTC_DATE_TIME_TYPE, UTC_DATE_TIME_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE), REASON); procedure FINISH_RMOPW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; PART_ID : in UNSIGNED_LONGWORD; RETSTS : in COND_VALUE_TYPE; REASON : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; BEFTIME : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER; AFTTIME : in UTC_DATE_TIME_TYPE := UTC_DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, FINISH_RMOPW); pragma IMPORT_VALUED_PROCEDURE (FINISH_RMOPW, "SYS$FINISH_RMOPW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, COND_VALUE_TYPE, COND_VALUE_TYPE, UTC_DATE_TIME_TYPE, UTC_DATE_TIME_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE), REASON); -- -- $FORGET_RM -- -- Forget a resource manager previously declared to DECdtm -- -- $FORGET_RM [efn], [flags], iosb, [astadr], [astprm], rm_id -- ($FORGET_RMW) -- -- efn = event flag to set upon completion -- flags = operation flags -- iosb = address of I/O status block -- astadr = address of entry mask of AST routine -- astprm = value to be passed to AST routine -- rm_id = resource manager id value -- procedure FORGET_RM ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RM_ID : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, FORGET_RM); pragma IMPORT_VALUED_PROCEDURE (FORGET_RM, "SYS$FORGET_RM", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); procedure FORGET_RMW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RM_ID : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, FORGET_RMW); pragma IMPORT_VALUED_PROCEDURE (FORGET_RMW, "SYS$FORGET_RMW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); -- -- $GET_DEFAULT_TRANS -- -- Get the current process default transaction -- -- $GET_DEFAULT_TRANS tid -- -- tid = identifier of the process default transaction -- procedure GET_DEFAULT_TRANS ( STATUS : out COND_VALUE_TYPE; -- return value TID : out TRANSACTION_ID_TYPE); pragma INTERFACE (EXTERNAL, GET_DEFAULT_TRANS); pragma IMPORT_VALUED_PROCEDURE (GET_DEFAULT_TRANS, "SYS$GET_DEFAULT_TRANS", (COND_VALUE_TYPE, TRANSACTION_ID_TYPE), (VALUE, REFERENCE)); -- $GET_UNWIND_ENTRY_INFO -- -- Get fixed-up unwind entry information -- -- $GET_UNWIND_ENTRY_INFO pc, get_ue_block, name -- -- pc = target PC -- -- get_ue_block = address of a 4-quadword block to be filled in -- -- name = Fixed length string, passed by descriptor. -- -- ... -- flags = address of MUTE flags, mask word, optional. procedure GET_UNWIND_ENTRY_INFO ( STATUS : out COND_VALUE_TYPE; -- return value PC : in UNSIGNED_QUADWORD := (0, 0); GET_UE_BLOCK : in UNSIGNED_QUADWORD := (0, 0); NAME : in STRING; READTARGETMEM : in ADDRESS := ADDRESS'NULL_PARAMETER; IDENT : in UNSIGNED_QUADWORD := UNSIGNED_QUADWORD'NULL_PARAMETER; FLAGS : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, GET_UNWIND_ENTRY_INFO); pragma IMPORT_VALUED_PROCEDURE (GET_UNWIND_ENTRY_INFO, "SYS$GET_UNWIND_ENTRY_INFO", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, STRING, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_WORD), (VALUE, VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE), READTARGETMEM); -- -- $JOIN_RM -- -- Join a resource manager previously started transaction -- -- $JOIN_RM [efn], [flags], iosb, [astadr], [astprm], -- ($JOIN_RMW) rm_id [, [tid], [part_name], [rm_context], [timout]] -- -- efn = event flag to set upon completion -- flags = operation flags -- iosb = address of I/O status block -- astadr = address of entry mask of AST routine -- astprm = value to be passed to AST routine -- rm_id = resource manager id value -- tid = address of transaction id -- part_name = participant name string -- rm_context = RM private value to pass to event routine -- timout = transaction execution time-out value -- procedure JOIN_RM ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RM_ID : in UNSIGNED_LONGWORD; TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER; PART_NAME : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, JOIN_RM); pragma IMPORT_VALUED_PROCEDURE (JOIN_RM, "SYS$JOIN_RM", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, TRANSACTION_ID_TYPE, STRING, USER_ARG_TYPE, DATE_TIME_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, REFERENCE), TID); procedure JOIN_RMW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RM_ID : in UNSIGNED_LONGWORD; TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER; PART_NAME : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, JOIN_RMW); pragma IMPORT_VALUED_PROCEDURE (JOIN_RMW, "SYS$JOIN_RMW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, TRANSACTION_ID_TYPE, STRING, USER_ARG_TYPE, DATE_TIME_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, REFERENCE), TID); -- -- $RECOVER -- -- Recover transaction state. -- -- $RECOVER [efn], [flags], iosb, [astadr], [astprm], -- ($RECOVERW) recovery_prefix, event_handler, tm_log_id [, -- [tid], [node], [rm_context], [acmode], [max_events]] -- -- efn = event flag to set upon completion -- flags = operation flags -- iosb = address of I/O status block -- astadr = address of entry mask of AST routine -- astprm = value to be passed to AST routine -- recovery_prefix = address of search name descriptor -- event_handler = address of entry mask of recovery event routine -- tm_log_id = address TM log identifier -- tid = address of transaction identifier -- node = address of node name descriptor -- rm_context = value to be passed via event block to event_handler -- acmode = value of access mode in which event ASTs should be delivered -- max_events = value of maximum number of events to be queued concurrently -- procedure RECOVER ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RECOVERY_PREFIX : in STRING; EVENT_HANDLER : in AST_PROCEDURE_TYPE; TM_LOG_ID : in OCTAWORD_UNSIGNED_TYPE; TID : in OCTAWORD_UNSIGNED_TYPE := OCTAWORD_UNSIGNED_TYPE'NULL_PARAMETER; NODE : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; MAX_EVENTS : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, RECOVER); pragma IMPORT_VALUED_PROCEDURE (RECOVER, "SYS$RECOVER", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, STRING, AST_PROCEDURE_TYPE, OCTAWORD_UNSIGNED_TYPE, OCTAWORD_UNSIGNED_TYPE, STRING, USER_ARG_TYPE, ACCESS_MODE_TYPE, UNSIGNED_WORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, VALUE), TID); procedure RECOVERW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RECOVERY_PREFIX : in STRING; EVENT_HANDLER : in AST_PROCEDURE_TYPE; TM_LOG_ID : in OCTAWORD_UNSIGNED_TYPE; TID : in OCTAWORD_UNSIGNED_TYPE := OCTAWORD_UNSIGNED_TYPE'NULL_PARAMETER; NODE : in STRING := STRING'NULL_PARAMETER; RM_CONTEXT : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; MAX_EVENTS : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, RECOVERW); pragma IMPORT_VALUED_PROCEDURE (RECOVERW, "SYS$RECOVERW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, STRING, AST_PROCEDURE_TYPE, OCTAWORD_UNSIGNED_TYPE, OCTAWORD_UNSIGNED_TYPE, STRING, USER_ARG_TYPE, ACCESS_MODE_TYPE, UNSIGNED_WORD), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, VALUE), TID); -- -- $SET_DEFAULT_TRANS -- -- Set up the process default transaction -- -- $SET_DEFAULT_TRANS [efn], [flags], iosb [, [astadr], [astprm], -- ($SET_DEFAULT_TRANSW) [new_tid], [old_tid]] -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of an entry mask of AST routine -- astprm = value to be passed to AST routine as an argument -- new_tid = identifier of new process default transaction -- old_tid = identifier of superceded process default transaction -- procedure SET_DEFAULT_TRANS ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; NEW_TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER; OLD_TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SET_DEFAULT_TRANS); pragma IMPORT_VALUED_PROCEDURE (SET_DEFAULT_TRANS, "SYS$SET_DEFAULT_TRANS", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, TRANSACTION_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE), ASTADR); procedure SET_DEFAULT_TRANSW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; NEW_TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER; OLD_TID : in TRANSACTION_ID_TYPE := TRANSACTION_ID_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SET_DEFAULT_TRANSW); pragma IMPORT_VALUED_PROCEDURE (SET_DEFAULT_TRANSW, "SYS$SET_DEFAULT_TRANSW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, TRANSACTION_ID_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE), ASTADR); -- -- $START_BITMAP -- -- Create and start a write bitmap -- -- $START_BITMAP handle_in, chan, devnam, name, cluster, flags, handle_out -- procedure START_BITMAP ( STATUS : out COND_VALUE_TYPE; -- return value HANDLE_IN : in UNSIGNED_LONGWORD := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; CLUSTER : in UNSIGNED_LONGWORD := 0; FLAGS : in UNSIGNED_LONGWORD := 0; HANDLE_OUT : out UNSIGNED_LONGWORD); procedure START_BITMAP ( STATUS : out COND_VALUE_TYPE; -- return value HANDLE_IN : in UNSIGNED_LONGWORD := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE; NAME : in STRING := STRING'NULL_PARAMETER; CLUSTER : in UNSIGNED_LONGWORD := 0; FLAGS : in UNSIGNED_LONGWORD := 0; HANDLE_OUT : in ADDRESS := ADDRESS_ZERO); -- To omit optional HANDLE_OUT argument pragma INTERFACE (EXTERNAL, START_BITMAP); pragma IMPORT_VALUED_PROCEDURE (START_BITMAP, "SYS$START_BITMAP", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, CHANNEL_TYPE, DEVICE_NAME_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (START_BITMAP, "SYS$START_BITMAP", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, CHANNEL_TYPE, DEVICE_NAME_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE)); -- -- $START_BRANCH -- -- Start a transaction branch -- -- $START_BRANCH [efn], [flags], iosb, [astadr], [astprm], -- ($START_BRANCHW) tid, tm_name, bid, [, [timout], [acmode], [tx_class]] -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of an entry mask of AST routine -- astprm = value to be passed to AST routine as an argument -- tid = transaction id for this branch -- tm_name = address of parent commit domain name descriptor -- bid = address of branch identifier -- timout = transaction execution time-out value -- acmode = access mode for $READY_TO_COMMIT call -- tx_class= user transaction class name -- procedure START_BRANCH ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : in TRANSACTION_ID_TYPE; TM_NAME : in STRING; BID : in BRANCH_ID_TYPE; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TX_CLASS : in STRING := STRING'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, START_BRANCH); pragma IMPORT_VALUED_PROCEDURE (START_BRANCH, "SYS$START_BRANCH", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, STRING, BRANCH_ID_TYPE, DATE_TIME_TYPE, ACCESS_MODE_TYPE, STRING), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, DESCRIPTOR(S)), TIMOUT); procedure START_BRANCHW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : in TRANSACTION_ID_TYPE; TM_NAME : in STRING; BID : in BRANCH_ID_TYPE; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TX_CLASS : in STRING := STRING'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, START_BRANCHW); pragma IMPORT_VALUED_PROCEDURE (START_BRANCHW, "SYS$START_BRANCHW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, STRING, BRANCH_ID_TYPE, DATE_TIME_TYPE, ACCESS_MODE_TYPE, STRING), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE, DESCRIPTOR(S)), TIMOUT); -- -- $START_TRANS -- -- Start a new transaction -- -- $START_TRANS [efn], [flags], iosb [, [astadr], [astprm], -- ($START_TRANSW) [tid], [timout], [acmode], [tx_class]] -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of an entry mask of AST routine -- astprm = value to be passed to AST routine as an argument -- tid = identifier of transaction just started -- timout = transaction execution time-out value -- acmode = outermost access mode allowed to end the transaction -- tx_class= user transaction class name -- procedure START_TRANS ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TID : out TRANSACTION_ID_TYPE; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TX_CLASS : in STRING := STRING'NULL_PARAMETER); procedure START_TRANS ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TID : in ADDRESS := ADDRESS_ZERO; -- To omit optional TID argument TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TX_CLASS : in STRING := STRING'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, START_TRANS); pragma IMPORT_VALUED_PROCEDURE (START_TRANS, "SYS$START_TRANS", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, DATE_TIME_TYPE, ACCESS_MODE_TYPE, STRING), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE, DESCRIPTOR(S)), TIMOUT); pragma IMPORT_VALUED_PROCEDURE (START_TRANS, "SYS$START_TRANS", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, DATE_TIME_TYPE, ACCESS_MODE_TYPE, STRING), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE, DESCRIPTOR(S)), ASTADR); procedure START_TRANSW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TID : out TRANSACTION_ID_TYPE; TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TX_CLASS : in STRING := STRING'NULL_PARAMETER); procedure START_TRANSW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_TYPE'NULL_PARAMETER; TID : in ADDRESS := ADDRESS_ZERO; -- To omit optional TID argument TIMOUT : in DATE_TIME_TYPE := DATE_TIME_TYPE'NULL_PARAMETER; ACMODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER; TX_CLASS : in STRING := STRING'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, START_TRANSW); pragma IMPORT_VALUED_PROCEDURE (START_TRANSW, "SYS$START_TRANSW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, DATE_TIME_TYPE, ACCESS_MODE_TYPE, STRING), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE, VALUE, DESCRIPTOR(S)), TIMOUT); pragma IMPORT_VALUED_PROCEDURE (START_TRANSW, "SYS$START_TRANSW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, DATE_TIME_TYPE, ACCESS_MODE_TYPE, STRING), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, VALUE, DESCRIPTOR(S)), ASTADR); -- -- $TRANS_EVENT -- -- Start a new transaction -- -- $TRANS_EVENT [efn], [flags], iosb, [astadr], [astprm], -- ($TRANS_EVENTW) tid, rm_id, tx_event -- -- efn = event flag to be set at completion -- flags = operation flags -- iosb = address of a quadword I/O status block -- astadr = address of an entry mask of AST routine -- astprm = value to be passed to AST routine as an argument -- tid = identifier of transaction just started -- rm_id = value of resource manager identifier returned by $DECLARE_RM -- tx_event = transaction transition event -- procedure TRANS_EVENT ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : in TRANSACTION_ID_TYPE; RM_ID : in UNSIGNED_LONGWORD := 0; TX_EVENT : in TX_EVENT_TYPE); pragma INTERFACE (EXTERNAL, TRANS_EVENT); pragma IMPORT_VALUED_PROCEDURE (TRANS_EVENT, "SYS$TRANS_EVENT", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, UNSIGNED_LONGWORD, TX_EVENT_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); procedure TRANS_EVENTW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FLAGS : in UNSIGNED_LONGWORD := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; TID : in TRANSACTION_ID_TYPE; RM_ID : in UNSIGNED_LONGWORD := 0; TX_EVENT : in TX_EVENT_TYPE); pragma INTERFACE (EXTERNAL, TRANS_EVENTW); pragma IMPORT_VALUED_PROCEDURE (TRANS_EVENTW, "SYS$TRANS_EVENTW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, TRANSACTION_ID_TYPE, UNSIGNED_LONGWORD, TX_EVENT_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); -- $TSTCLUEVT -- -- Test Cluster Event Notification -- -- $TSTCLUEVT [handle], [acmode], [event] -- -- handle = address of handle -- -- acmode = access mode of AST -- -- event = code indicating type of event -- procedure TSTCLUEVT ( STATUS : out COND_VALUE_TYPE; -- return value HANDLE : in ADDRESS := ADDRESS_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; EVENT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, TSTCLUEVT); pragma IMPORT_VALUED_PROCEDURE (TSTCLUEVT, "SYS$TSTCLUEVT", (COND_VALUE_TYPE, ADDRESS, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- PTD$CREATE -- -- Create a pseudo terminal -- -- PTD$CREATE CHAN, [ACMODE], [CHARBUFF], [BUFLEN], [HANGUP_AST], -- [HANGUP_ASTPRM], [AST_ACMODE], INADR -- -- CHAN = Address of word to receive channel number assigned -- ACMODE = Access mode associated with channel -- CHARBUFF = Address ofa 3 - 5 longword array containing device -- characteristics. -- BUFLEN = Length of characteristics buffer in bytes either -- 12, 16, or 20 -- ASTADR = Address of entry mask of AST routine -- ASTPRM = Value to be passed to AST routine -- AST_ACMODE = Access mode for whjich the AST is to be delivered -- INADR = Address of 2-longword array containing starting and -- ending virtual address of pages to be used as -- I/O buffers procedure PTD_CREATE ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : out CHANNEL_TYPE; ACMODE : in ACCESS_MODE_TYPE := 0; CHARBUFF : in UNSIGNED_LONGWORD_ARRAY := UNSIGNED_LONGWORD_ARRAY'NULL_PARAMETER; BUFLEN : in UNSIGNED_WORD := WORD_UNSIGNED_12; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; AST_ACMODE : in ACCESS_MODE_TYPE := 0; INADR : in ADDRESS_RANGE_TYPE); pragma INTERFACE (EXTERNAL, PTD_CREATE); pragma IMPORT_VALUED_PROCEDURE (PTD_CREATE, "PTD$CREATE", (COND_VALUE_TYPE, CHANNEL_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD_ARRAY, UNSIGNED_WORD, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ACCESS_MODE_TYPE, ADDRESS_RANGE_TYPE), (VALUE, REFERENCE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE, VALUE, REFERENCE)); -- PTD$READ -- -- Read data from the pseudo terminal -- -- PTD$READ(W) [EFN], CHAN, [ASTADR], [ASTPRM], READBUF, READBUF_LEN -- EFN = Number of event flag to set on completion -- CHAN = Word containing number of channel on which I/O is to be performed -- ASTADR = Address of entry mask of AST routine -- ASTPRM = Value to be passed to AST routine -- READBUF = Address character string to hold characters read -- READBUF_LEN = Number of character to be read from pseudo terminal procedure PTD_READ ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; READBUF : in UNSIGNED_LONGWORD := 0; READBUF_LEN : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, PTD_READ); pragma IMPORT_VALUED_PROCEDURE (PTD_READ, "PTD$READ", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE)); procedure PTD_READW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; READBUF : in UNSIGNED_LONGWORD := 0; READBUF_LEN : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, PTD_READW); pragma IMPORT_VALUED_PROCEDURE (PTD_READW, "PTD$READW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE)); -- PTD$WRITE -- -- Write data to the pseudo terminal -- -- PTD$WRITE CHAN, [ASTADR], [ASTPRM], WRTBUF, WRTBUF_LEN, -- [ECHOBUF], ECHOBUF_LEN] -- CHAN = Word containing number of channel on which I/O is to be performed -- ASTADR = Address of entry mask of AST routine -- ASTPRM = Value to be passed to AST routine -- WRTBUF = Address of character string containing character to write to -- pseudo terminal -- WRTBUF_LEN = Number of characters to write to pseudo terminal -- ECHOBUF = Address character string to hold characters read -- ECHOBUF_LEN = Number of character to be read from pseudo terminal procedure PTD_WRITE ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; WRTBUF : in UNSIGNED_LONGWORD := 0; WRTBUF_LEN : in UNSIGNED_LONGWORD := 0; ECHOBUF : in UNSIGNED_LONGWORD := 0; ECHOBUF_LEN : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, PTD_WRITE); pragma IMPORT_VALUED_PROCEDURE (PTD_WRITE, "PTD$WRITE", (COND_VALUE_TYPE, CHANNEL_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- PTD$SET_EVENT_NOTIFICATION -- -- Enable or disable terminal event notification ASTs -- -- PTD$SET_EVENT_NOTIFICATION CHAN, ASTADR, [ASTPRM], [ACMODE], -- TYPE -- CHAN = Word containing number of channel on which I/O is to be performed -- ASTADR = Address of entry mask of AST routine -- ASTPRM = Value to be passed to AST routine -- ACMODE = Access mode for whjich the AST is to be delivered -- TYPE = Longword containing procedure PTD_SET_EVENT_NOTIFICATION ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0; TYP : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, PTD_SET_EVENT_NOTIFICATION); pragma IMPORT_VALUED_PROCEDURE (PTD_SET_EVENT_NOTIFICATION, "PTD$SET_EVENT_NOTIFICATION", (COND_VALUE_TYPE, CHANNEL_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ACCESS_MODE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE)); -- PTD$CANCEL -- -- Cancel queued control connection read request(s) -- -- PTD$CANCEL CHAN -- -- CHAN = Word containing number of channel on which I/O is to be performed procedure PTD_CANCEL ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE); pragma INTERFACE (EXTERNAL, PTD_CANCEL); pragma IMPORT_VALUED_PROCEDURE (PTD_CANCEL, "PTD$CANCEL", (COND_VALUE_TYPE, CHANNEL_TYPE), (VALUE, VALUE)); -- PTD$DELETE -- -- Delete a pseudo terminal -- -- PTD$DELETE CHAN -- -- CHAN = Word containing number of channel on which I/O is to be performed procedure PTD_DELETE ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE); pragma INTERFACE (EXTERNAL, PTD_DELETE); pragma IMPORT_VALUED_PROCEDURE (PTD_DELETE, "PTD$DELETE", (COND_VALUE_TYPE, CHANNEL_TYPE), (VALUE, VALUE)); -- PTD$DECTERM_SET_PAGE_SIZE -- -- Change terminal page length and width -- -- PTD$DECTERM_SET_PAGE_SIZE CHAN, PAGE_LEN, PAGE_WIDTH -- -- CHAN = Word containing number of channel on which I/O is to be performed -- PAGE_LEN = Longword containing new page length of terminal -- PAGE_WIDTH = Longword containing new page width of terminal procedure PTD_DECTERM_SET_PAGE_SIZE ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE; PAGE_LEN : in UNSIGNED_LONGWORD; PAGE_WIDTH : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, PTD_DECTERM_SET_PAGE_SIZE); pragma IMPORT_VALUED_PROCEDURE (PTD_DECTERM_SET_PAGE_SIZE, "PTD$DECTERM_SET_PAGE_SIZE", (COND_VALUE_TYPE, CHANNEL_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- $POSIX_FORK_CONTROL -- -- Control POSIX fork() operations -- -- $POSIX_FORK_CONTROL cntrl , [when] , [handler] , [arg] , [ac -- -- cntrl = constant defining what control routine is to do -- -- when = bit array of when handler is to be called -- -- handler= handler address -- -- arg = arg value that is passed back to the handler -- -- acmode = access mode at which to make the specified callback procedure POSIX_FORK_CONTROL ( STATUS : out COND_VALUE_TYPE; -- return value CNTRL : in FUNCTION_CODE_TYPE; WHE : in UNSIGNED_LONGWORD := 0; HANDLER : in ADDRESS := ADDRESS_ZERO; ARG : in USER_ARG_TYPE := USER_ARG_ZERO; ACMODE : in ACCESS_MODE_TYPE := 0); pragma INTERFACE (EXTERNAL, POSIX_FORK_CONTROL); pragma IMPORT_VALUED_PROCEDURE (POSIX_FORK_CONTROL, "SYS$POSIX_FORK_CONTROL", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, USER_ARG_TYPE, ACCESS_MODE_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- $START_ALIGN_FAULT_REPORT -- -- Start user-image alignment fault reporting -- -- $START_ALIGN_FAULT_REPORT report_method, [report_buffer, buffer_length] -- -- report_method = either AFR$C_EXCEPTION or AFR$C_BUFFERED -- -- report_buffer = buffer to use to save alignment fault -- data if the BUFFERED method is specified. -- -- buffer_length = the size in bytes of the user buffer procedure START_ALIGN_FAULT_REPORT ( STATUS : out COND_VALUE_TYPE; -- return value REPORT_METHOD : in INTEGER; REPORT_BUFFER : in ADDRESS := ADDRESS_ZERO; BUFFER_LENGTH : in INTEGER := 0); pragma INTERFACE (EXTERNAL, START_ALIGN_FAULT_REPORT); pragma IMPORT_VALUED_PROCEDURE (START_ALIGN_FAULT_REPORT, "SYS$START_ALIGN_FAULT_REPORT", (COND_VALUE_TYPE, INTEGER, ADDRESS, INTEGER), (VALUE, VALUE, VALUE, VALUE)); -- $GET_ALIGN_FAULT_DATA -- -- Get alignment fault data from the collector. -- -- $GET_ALIGN_FAULT_DATA buffer, buffer_size, return_size -- -- buffer = Buffer in which to save the alignment fault -- data. -- -- buffer_size = The size in bytes of the user buffer -- -- return_size = Address of a longword in which to return the -- size of the alignment fault data found. procedure GET_ALIGN_FAULT_DATA ( STATUS : out COND_VALUE_TYPE; -- return value BUFFER : in ADDRESS; BUFFER_SIZE : in INTEGER; RETURN_SIZE : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, GET_ALIGN_FAULT_DATA); pragma IMPORT_VALUED_PROCEDURE (GET_ALIGN_FAULT_DATA, "SYS$GET_ALIGN_FAULT_DATA", (COND_VALUE_TYPE, ADDRESS, INTEGER, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- $STOP_ALIGN_FAULT_REPORT -- -- Stop user-image alignment fault reporting -- -- $STOP_ALIGN_FAULT_REPORT -- procedure STOP_ALIGN_FAULT_REPORT ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, STOP_ALIGN_FAULT_REPORT); pragma IMPORT_VALUED_PROCEDURE (STOP_ALIGN_FAULT_REPORT, "SYS$STOP_ALIGN_FAULT_REPORT", (COND_VALUE_TYPE), (VALUE)); -- $PERM_REPORT_ALIGN_FAULT -- -- Start process permanent alignment fault reporting. -- -- $PERM_REPORT_ALIGN_FAULT -- procedure PERM_REPORT_ALIGN_FAULT ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, PERM_REPORT_ALIGN_FAULT); pragma IMPORT_VALUED_PROCEDURE (PERM_REPORT_ALIGN_FAULT, "SYS$PERM_REPORT_ALIGN_FAULT", (COND_VALUE_TYPE), (VALUE)); -- $PERM_DIS_ALIGN_FAULT_REPORT -- -- Start process permanent alignment fault reporting. -- -- $PERM_DIS_ALIGN_FAULT_REPORT -- procedure PERM_DIS_ALIGN_FAULT_REPORT ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, PERM_DIS_ALIGN_FAULT_REPORT); pragma IMPORT_VALUED_PROCEDURE (PERM_DIS_ALIGN_FAULT_REPORT, "SYS$PERM_DIS_ALIGN_FAULT_REPORT", (COND_VALUE_TYPE), (VALUE)); -- $INIT_SYS_ALIGN_FAULT_REPORT -- -- Start system wide alignment fault reporting. -- -- $INIT_SYS_ALIGN_FAULT_REPORT match_table, buffer_size, flags -- -- match_table = Array of longwords used to restrict -- the alignment faults reported -- -- buffer_size = The number of bytes to use to save alignment -- fault data. -- flags = can be either 0 or AFR$M_USER_INFO -- procedure INIT_SYS_ALIGN_FAULT_REPORT ( STATUS : out COND_VALUE_TYPE; -- return value MATCH_TABLE : in ADDRESS; BUFFER_SIZE : in INTEGER; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, INIT_SYS_ALIGN_FAULT_REPORT); pragma IMPORT_VALUED_PROCEDURE (INIT_SYS_ALIGN_FAULT_REPORT, "SYS$INIT_SYS_ALIGN_FAULT_REPORT", (COND_VALUE_TYPE, ADDRESS, INTEGER, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- $GET_SYS_ALIGN_FAULT_DATA -- -- Get alignment fault data from the system wide collector. -- -- $GET_SYS_ALIGN_FAULT_DATA buffer, buffer_size, return_size -- -- buffer = Buffer in which to save the alignment fault -- data. -- -- buffer_size = The size in bytes of the user buffer -- -- return_size = Address of a longword in which to return the -- size of the alignment fault data found. procedure GET_SYS_ALIGN_FAULT_DATA ( STATUS : out COND_VALUE_TYPE; -- return value BUFFER : in ADDRESS; BUFFER_SIZE : in INTEGER; RETURN_SIZE : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, GET_SYS_ALIGN_FAULT_DATA); pragma IMPORT_VALUED_PROCEDURE (GET_SYS_ALIGN_FAULT_DATA, "SYS$GET_SYS_ALIGN_FAULT_DATA", (COND_VALUE_TYPE, ADDRESS, INTEGER, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- $STOP_SYS_ALIGN_FAULT_REPORT -- -- Stop system-wide alignment fault reporting -- -- $STOP_SYS_ALIGN_FAULT_REPORT -- procedure STOP_SYS_ALIGN_FAULT_REPORT ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, STOP_SYS_ALIGN_FAULT_REPORT); pragma IMPORT_VALUED_PROCEDURE (STOP_SYS_ALIGN_FAULT_REPORT, "SYS$STOP_SYS_ALIGN_FAULT_REPORT", (COND_VALUE_TYPE), (VALUE)); -- $RESCHED -- -- Request voluntary preemption of current process -- -- $RESCHED -- procedure RESCHED ( STATUS : out COND_VALUE_TYPE); -- return value pragma INTERFACE (EXTERNAL, RESCHED); pragma IMPORT_VALUED_PROCEDURE (RESCHED, "SYS$RESCHED", (COND_VALUE_TYPE), (VALUE)); -- -- $SCHED -- -- Control class scheduler -- -- $SCHED func, P1, P2, P3 -- -- func = function code (see CSHDEFS in STARLET) -- -- P1 = buffer address, AST entry point address, or 0 -- -- P2 = buffer length address or AST acmode or PID or 0 -- -- P3 = entry size of a single buffer element or 0 procedure SCHED ( STATUS : out COND_VALUE_TYPE; -- return value FUNC : in FUNCTION_CODE_TYPE; P1 : in UNSIGNED_LONGWORD := 0; P2 : in UNSIGNED_LONGWORD := 0; P3 : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, SCHED); pragma IMPORT_VALUED_PROCEDURE (SCHED, "SYS$SCHED", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE)); -- -- $SIGNAL_ARRAY_64 -- -- Return address of 64-bit signal array. -- -- $SIGNAL_ARRAY_64 mcharg, sigarg_64 -- -- mcharg = address of the mechanism array -- -- sigarg_64 = 64-bit pointer to which the address of -- 64-bit signal array is written. procedure SIGNAL_ARRAY_64 ( STATUS : out COND_VALUE_TYPE; -- return value MCHARG : in UNSIGNED_QUADWORD_ARRAY; SIGARG_64 : out UNSIGNED_QUADWORD_ARRAY); pragma INTERFACE (EXTERNAL, SIGNAL_ARRAY_64); pragma IMPORT_VALUED_PROCEDURE (SIGNAL_ARRAY_64, "SYS$SIGNAL_ARRAY_64", (COND_VALUE_TYPE, UNSIGNED_QUADWORD_ARRAY, UNSIGNED_QUADWORD_ARRAY), (VALUE, REFERENCE, REFERENCE)); -- $AVOID_PREEMPT -- -- Enable/disable preemption avoidance -- -- $AVOID_PREEMPT enbflg -- -- enbflg = Avoid preempt enable indicator -- 0 -> disable 1 -> enable -- procedure AVOID_PREEMPT ( STATUS : out COND_VALUE_TYPE; -- return value ENBFLG : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, AVOID_PREEMPT); pragma IMPORT_VALUED_PROCEDURE (AVOID_PREEMPT, "SYS$AVOID_PREEMPT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- $SETUP_AVOID_PREEMPT -- -- Enable/disable preemption avoidance underpinnings -- -- $SETUP_AVOID_PREEMPT enbflg -- -- enbflg = Avoid preempt enable indicator -- 0 -> disable 1 -> enable -- procedure SETUP_AVOID_PREEMPT ( STATUS : out COND_VALUE_TYPE; -- return value ENBFLG : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, SETUP_AVOID_PREEMPT); pragma IMPORT_VALUED_PROCEDURE (SETUP_AVOID_PREEMPT, "SYS$SETUP_AVOID_PREEMPT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- -- $ICC_ACCEPT -- -- Accept an ICC connection -- -- $ICC_ACCEPT Conn_Handle ,[Accept_Buf] ,[Accept_Len] -- ,[User_Context] ,[Flags] -- -- Conn_Handle = Handle value associated with the Connection -- Accept_Buf = Address of user Accept data -- Accept_Len = Length of the accept data -- User_Context = User context value -- Flags = Flags argument -- procedure ICC_ACCEPT ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; ACCEPT_BUF : in ADDRESS := ADDRESS_ZERO; ACCEPT_LEN : in UNSIGNED_LONGWORD := 0; USER_CONTEXT : in USER_ARG_TYPE := USER_ARG_ZERO; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ICC_ACCEPT); pragma IMPORT_VALUED_PROCEDURE (ICC_ACCEPT, "SYS$ICC_ACCEPT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, USER_ARG_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- -- $ICC_CLOSE_ASSOC -- -- Close an ICC association -- -- $ICC_CLOSE_ASSOC Assoc_Handle -- -- Assoc_Handle = Handle representing the Association to close -- procedure ICC_CLOSE_ASSOC ( STATUS : out COND_VALUE_TYPE; -- return value ASSOC_HANDLE : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_CLOSE_ASSOC); pragma IMPORT_VALUED_PROCEDURE (ICC_CLOSE_ASSOC, "SYS$ICC_CLOSE_ASSOC", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- -- $ICC_CONNECT[W] -- -- Initiate an ICC Connection attempt -- -- $ICC_CONNECT[W] IOS_ICC ,[astadr] ,[astprm] ,assoc_handle -- ,conn_hndl_A ,remote_assoc ,[remote_node] -- ,[user_context] ,[conn_buf] ,[conn_buf_len] -- ,[return_buf] ,[return_buf_len] ,[retlen_addr] -- ,[flags] -- -- ios_icc = address of a IOS_ICC (Connect version) -- astadr = address of entry mask of users' completion AST -- routine -- astprm = value to be passed to the AST routine as an -- argument -- Assoc_Handle = Handle representing the Association to close -- Conn_Hndl_A = Address to return the handle value of the -- opened Connection -- Remote_Assoc = Pointer to a descriptor describing the remote -- association name string -- Remote_Node = Pointer to a descriptor describing the remote -- node name string -- User_Context = User context value -- Conn_Buf = Address of a buffer containing Connect data -- Conn_Buf_Len = Length of the connect data in Conn_Buf -- Return_Buf = Address of a buffer for return data -- Return_Buf_Len = Length of the buffer available for return data -- Retlen_Addr = Address to receive the actual length of any -- return data -- Flags = Flags argument -- procedure ICC_CONNECT ( STATUS : out COND_VALUE_TYPE; -- return value IOS_ICC : out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ASSOC_HANDLE : in UNSIGNED_LONGWORD; CONN_HNDL_A : out UNSIGNED_LONGWORD; REMOTE_ASSOC : in STRING := STRING'NULL_PARAMETER; REMOTE_NODE : in STRING := STRING'NULL_PARAMETER; USER_CONTEXT : in USER_ARG_TYPE := USER_ARG_ZERO; CONN_BUF : in ADDRESS := ADDRESS_ZERO; CONN_BUF_LEN : in UNSIGNED_LONGWORD := 0; RETURN_BUF : in ADDRESS := ADDRESS_ZERO; RETURN_BUF_LEN : in UNSIGNED_LONGWORD := 0; RETLEN_ADDR : out ADDRESS; FLAGS : in UNSIGNED_LONGWORD := 0); procedure ICC_CONNECT ( STATUS : out COND_VALUE_TYPE; -- return value IOS_ICC : out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ASSOC_HANDLE : in UNSIGNED_LONGWORD; CONN_HNDL_A : out UNSIGNED_LONGWORD; REMOTE_ASSOC : in STRING := STRING'NULL_PARAMETER; REMOTE_NODE : in STRING := STRING'NULL_PARAMETER; USER_CONTEXT : in USER_ARG_TYPE := USER_ARG_ZERO; CONN_BUF : in ADDRESS := ADDRESS_ZERO; CONN_BUF_LEN : in UNSIGNED_LONGWORD := 0; RETURN_BUF : in ADDRESS := ADDRESS_ZERO; RETURN_BUF_LEN : in UNSIGNED_LONGWORD := 0; RETLEN_ADDR : in UNSIGNED_LONGWORD := 0; -- To omit optional RETLEN_ADDR argument FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ICC_CONNECT); pragma IMPORT_VALUED_PROCEDURE (ICC_CONNECT, "SYS$ICC_CONNECT", (COND_VALUE_TYPE, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, STRING, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ICC_CONNECT, "SYS$ICC_CONNECT", (COND_VALUE_TYPE, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, STRING, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); procedure ICC_CONNECTW ( STATUS : out COND_VALUE_TYPE; -- return value IOS_ICC : out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ASSOC_HANDLE : in UNSIGNED_LONGWORD; CONN_HNDL_A : out UNSIGNED_LONGWORD; REMOTE_ASSOC : in STRING := STRING'NULL_PARAMETER; REMOTE_NODE : in STRING := STRING'NULL_PARAMETER; USER_CONTEXT : in USER_ARG_TYPE := USER_ARG_ZERO; CONN_BUF : in ADDRESS := ADDRESS_ZERO; CONN_BUF_LEN : in UNSIGNED_LONGWORD := 0; RETURN_BUF : in ADDRESS := ADDRESS_ZERO; RETURN_BUF_LEN : in UNSIGNED_LONGWORD := 0; RETLEN_ADDR : out ADDRESS; FLAGS : in UNSIGNED_LONGWORD := 0); procedure ICC_CONNECTW ( STATUS : out COND_VALUE_TYPE; -- return value IOS_ICC : out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; ASSOC_HANDLE : in UNSIGNED_LONGWORD; CONN_HNDL_A : out UNSIGNED_LONGWORD; REMOTE_ASSOC : in STRING := STRING'NULL_PARAMETER; REMOTE_NODE : in STRING := STRING'NULL_PARAMETER; USER_CONTEXT : in USER_ARG_TYPE := USER_ARG_ZERO; CONN_BUF : in ADDRESS := ADDRESS_ZERO; CONN_BUF_LEN : in UNSIGNED_LONGWORD := 0; RETURN_BUF : in ADDRESS := ADDRESS_ZERO; RETURN_BUF_LEN : in UNSIGNED_LONGWORD := 0; RETLEN_ADDR : in UNSIGNED_LONGWORD := 0; -- To omit optional RETLEN_ADDR argument FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ICC_CONNECTW); pragma IMPORT_VALUED_PROCEDURE (ICC_CONNECTW, "SYS$ICC_CONNECTW", (COND_VALUE_TYPE, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, STRING, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (ICC_CONNECTW, "SYS$ICC_CONNECTW", (COND_VALUE_TYPE, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, STRING, STRING, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE, VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- -- $ICC_DISCONNECT[W] -- -- Initiate an ICC Disconnection -- -- $ICC_DISCONNECT[W] conn_handle ,IOSB ,[astadr] ,[astprm] -- ,[disc_buf] ,[disc_buf_len] -- -- Conn_Handle = Handle representing the Connection to terminate -- iosb = Address of a quadword I/O status block -- astadr = Address of entry mask of users' completion AST -- routine -- astprm = Value to be passed to the AST routine as an -- argument -- Disc_Buf = Address of an optional buffer containing -- Disconnect data -- Disc_Buf_Len = Length of the disconnect data in Disc_Buf -- procedure ICC_DISCONNECT ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; DISC_BUF : in ADDRESS := ADDRESS_ZERO; DISC_BUF_LEN : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ICC_DISCONNECT); pragma IMPORT_VALUED_PROCEDURE (ICC_DISCONNECT, "SYS$ICC_DISCONNECT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); procedure ICC_DISCONNECTW ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; DISC_BUF : in ADDRESS := ADDRESS_ZERO; DISC_BUF_LEN : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ICC_DISCONNECTW); pragma IMPORT_VALUED_PROCEDURE (ICC_DISCONNECTW, "SYS$ICC_DISCONNECTW", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); -- -- $ICC_REJECT -- -- Reject an ICC connection -- -- $ICC_REJECT Conn_Handle ,[Reject_Buf] ,[Reject_Buf_Len] -- ,[Reason] -- -- Conn_Handle = Handle value associated with the Connection -- Reject_Buf = Address of optional user Reject data -- Reject_Buf_Len = Length of the reject data -- Reason = Reason for the rejection -- procedure ICC_REJECT ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; REJECT_BUF : in ADDRESS := ADDRESS_ZERO; REJECT_BUF_LEN : in UNSIGNED_LONGWORD := 0; REASON : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ICC_REJECT); pragma IMPORT_VALUED_PROCEDURE (ICC_REJECT, "SYS$ICC_REJECT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE)); -- -- $ICC_OPEN_ASSOC -- -- Open an ICC association -- -- $ICC_OPEN_ASSOC assoc_handle ,[assoc_name] ,[logical_name] -- ,[logical_table] ,[conn_rtn] ,[disc_rtn] -- ,[recv_rtn] ,[maxflowbufcnt] ,[prot] -- -- Assoc_Handle = Address to return the handlevalue of the -- opened Association -- Assoc_Name = Pointer to a descriptor describing the -- association name string -- Logical_Name = Pointer to a descriptor describing a logical -- name for use by the ICC simple registry -- Logical_Table = Pointer to a descriptor describing a logical -- name table for use by the ICC simple registry -- Conn_Rtn = Address of the User's Connect AST routine -- Disc_Rtn = Address of the User's Disconnect AST routine -- Recv_Rtn = Address of the User's receive AST routine -- Maxflowbufcnt = Maximum number of pending inbound message -- buffers -- Prot = Default protection for association -- procedure ICC_OPEN_ASSOC ( STATUS : out COND_VALUE_TYPE; -- return value ASSOC_HANDLE : out UNSIGNED_LONGWORD; ASSOC_NAME : in STRING := STRING'NULL_PARAMETER; LOGICAL_NAME : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; LOGICAL_TABLE : in LOGICAL_NAME_TYPE := LOGICAL_NAME_TYPE'NULL_PARAMETER; CONN_RTN : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; DISC_RTN : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; RECV_RTN : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; MAXFLOWBUFCNT : in UNSIGNED_LONGWORD := 0; PROT : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ICC_OPEN_ASSOC); pragma IMPORT_VALUED_PROCEDURE (ICC_OPEN_ASSOC, "SYS$ICC_OPEN_ASSOC", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, LOGICAL_NAME_TYPE, LOGICAL_NAME_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, DESCRIPTOR(S), DESCRIPTOR(S), DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE)); -- -- $ICC_RECEIVE[W] -- -- Receive data over an ICC connection -- -- $ICC_RECEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] -- ,recv_buf ,recv_buf_len -- -- conn_handle = Handle representing the Connection the data -- is being transferred over -- ios_icc = Address of an I/O status block (16-byte ICC -- RECEIVE layout) -- astadr = Address of entry mask of users' completion AST -- routine -- astprm = Value to be passed to the AST routine as an -- argument -- recv_buf = Address of a buffer to receive the data -- recv_buf_len = Length of the buffer receiving the data -- procedure ICC_RECEIVE ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOS_ICC : in out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RECV_BUF : in ADDRESS; RECV_BUF_LEN : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_RECEIVE); pragma IMPORT_VALUED_PROCEDURE (ICC_RECEIVE, "SYS$ICC_RECEIVE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); procedure ICC_RECEIVEW ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOS_ICC : in out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; RECV_BUF : in ADDRESS; RECV_BUF_LEN : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_RECEIVEW); pragma IMPORT_VALUED_PROCEDURE (ICC_RECEIVEW, "SYS$ICC_RECEIVEW", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); -- -- $ICC_REPLY[W] -- -- Send a reply over an ICC connection -- -- $ICC_REPLY[W] conn_handle ,ios_icc ,[astadr] ,[astprm] -- ,reply_buf ,reply_len -- -- conn_handle = Handle representing the Connection the data is -- being transferred over -- ios_icc = Address of an I/O status block (8-byte ICC -- REPLY layout) -- astadr = Address of entry mask of users' completion AST -- routine -- astprm = Value to be passed to the AST routine as an -- argument -- reply_buf = Address of a buffer containing the data -- reply_len = Length of the data in reply_buf -- procedure ICC_REPLY ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOS_ICC : in out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; REPLY_BUF : in ADDRESS; REPLY_LEN : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_REPLY); pragma IMPORT_VALUED_PROCEDURE (ICC_REPLY, "SYS$ICC_REPLY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); procedure ICC_REPLYW ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOS_ICC : in out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; REPLY_BUF : in ADDRESS; REPLY_LEN : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_REPLYW); pragma IMPORT_VALUED_PROCEDURE (ICC_REPLYW, "SYS$ICC_REPLYW", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); -- -- $ICC_TRANSCEIVE[W] -- -- ICC transceive operation -- -- $ICC_TRANSCEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] -- ,send_buf ,send_len -- -- conn_handle = Handle representing the Connection the data is -- being transferred over -- ios_icc = Address of an I/O status block (20-byte ICC -- TRANSCEIVE layout ) -- astadr = Address of entry mask of users' completion AST -- routine -- astprm = Value to be passed to the AST routine as an -- argument -- send_buf = Address of a buffer conta in ing the data -- send_len = Length of the data in send_buf -- procedure ICC_TRANSCEIVE ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOS_ICC : in out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; SEND_BUF : in ADDRESS; SEND_LEN : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_TRANSCEIVE); pragma IMPORT_VALUED_PROCEDURE (ICC_TRANSCEIVE, "SYS$ICC_TRANSCEIVE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); procedure ICC_TRANSCEIVEW ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOS_ICC : in out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE; ASTPRM : in USER_ARG_TYPE; SEND_BUF : in ADDRESS; SEND_LEN : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_TRANSCEIVEW); pragma IMPORT_VALUED_PROCEDURE (ICC_TRANSCEIVEW, "SYS$ICC_TRANSCEIVEW", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); -- -- $ICC_TRANSMIT[W] -- -- Transmit data over an ICC connection -- -- $ICC_TRANSMIT[W] conn_handle ,ios_icc ,[astadr] ,[astprm] -- ,send_buf ,send_len -- -- conn_handle = Handle representing the Connection the data is -- being transferred over -- ios_icc = Address of a quadword I/O status block -- astadr = Address of entry mask of users' completion AST -- routine -- astprm = Value to be passed to the AST routine as an -- argument -- send_buf = Address of a buffer conta in ing the data -- send_len = Length of the data in send_buf -- procedure ICC_TRANSMIT ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOS_ICC : out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; SEND_BUF : in ADDRESS; SEND_LEN : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_TRANSMIT); pragma IMPORT_VALUED_PROCEDURE (ICC_TRANSMIT, "SYS$ICC_TRANSMIT", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); procedure ICC_TRANSMITW ( STATUS : out COND_VALUE_TYPE; -- return value CONN_HANDLE : in UNSIGNED_LONGWORD; IOS_ICC : out IOS_ICC_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; SEND_BUF : in ADDRESS; SEND_LEN : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, ICC_TRANSMITW); pragma IMPORT_VALUED_PROCEDURE (ICC_TRANSMITW, "SYS$ICC_TRANSMITW", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, IOS_ICC_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE)); -- $PERSONA_QUERY -- -- Query Persona Information -- -- $PERSONA_QUERY persona, itmlst -- -- persona = address of longword holding persona identifier -- -- itmlst = address of list of item descriptors -- -- procedure PERSONA_QUERY ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : in UNSIGNED_LONGWORD; ITMLST : in ITEM_LIST_3_TYPE); pragma INTERFACE (EXTERNAL, PERSONA_QUERY); pragma IMPORT_VALUED_PROCEDURE (PERSONA_QUERY, "SYS$PERSONA_QUERY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE), (VALUE, REFERENCE, REFERENCE)); -- $PERSONA_FIND -- -- Locate Persona With Characteristic -- -- $PERSONA_FIND persona, itmlst -- -- persona = address of longword holding persona identifier -- -- itmlst = address of list of item descriptors -- -- contxt = address of a context long word (used for iterative -- calls or a multi-entry item list) -- -- -- procedure PERSONA_FIND ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : out UNSIGNED_LONGWORD; ITMLST : in ITEM_LIST_3_TYPE; CONTXT : in out CONTEXT_TYPE); procedure PERSONA_FIND ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : out UNSIGNED_LONGWORD; ITMLST : in ITEM_LIST_3_TYPE; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument pragma INTERFACE (EXTERNAL, PERSONA_FIND); pragma IMPORT_VALUED_PROCEDURE (PERSONA_FIND, "SYS$PERSONA_FIND", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE, CONTEXT_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (PERSONA_FIND, "SYS$PERSONA_FIND", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE, ADDRESS), (VALUE, REFERENCE, REFERENCE, VALUE)); -- $PERSONA_RESERVE -- -- Reserve Persona Slot For Delegation -- -- $PERSONA_RESERVE clientPID, persona -- -- clientPID = address of longword holding client's PID -- -- persona = address of longword holding persona identifier -- -- procedure PERSONA_RESERVE ( STATUS : out COND_VALUE_TYPE; -- return value CLIENTPID : in PROCESS_ID_TYPE; PERSONA : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, PERSONA_RESERVE); pragma IMPORT_VALUED_PROCEDURE (PERSONA_RESERVE, "SYS$PERSONA_RESERVE", (COND_VALUE_TYPE, PROCESS_ID_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE)); -- $PERSONA_DELEGATE -- -- Delegate Persona To Another Process -- -- $PERSONA_DELEGATE serverPID, persona, input_id -- -- serverPID = address of longword holding server's PID -- -- persona = address of longword holding persona identifier reserved by server -- -- input_id = address of longword holding persona identifier to delegate -- procedure PERSONA_DELEGATE ( STATUS : out COND_VALUE_TYPE; -- return value SERVERPID : in PROCESS_ID_TYPE; PERSONA : in UNSIGNED_LONGWORD; INPUT_ID : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, PERSONA_DELEGATE); pragma IMPORT_VALUED_PROCEDURE (PERSONA_DELEGATE, "SYS$PERSONA_DELEGATE", (COND_VALUE_TYPE, PROCESS_ID_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, REFERENCE)); -- $PERSONA_EXTENSION_LOOKUP -- -- Find Extension on the system -- -- $PERSONA_EXTENSION_LOOKUP extensionName, extensionID -- -- extensionName = address of string descriptor of name -- -- extensionID = address of longword the ID is written to -- -- procedure PERSONA_EXTENSION_LOOKUP ( STATUS : out COND_VALUE_TYPE; -- return value EXTENSIONNAME : in STRING; EXTENSIONID : out EXT_ID_TYPE_TYPE); pragma INTERFACE (EXTERNAL, PERSONA_EXTENSION_LOOKUP); pragma IMPORT_VALUED_PROCEDURE (PERSONA_EXTENSION_LOOKUP, "SYS$PERSONA_EXTENSION_LOOKUP", (COND_VALUE_TYPE, STRING, EXT_ID_TYPE_TYPE), (VALUE, DESCRIPTOR(S), REFERENCE)); -- $PERSONA_CREATE_EXTENSION -- -- Create Persona Extension -- -- $PERSONA_CREATE_EXTENSION persona, extensionID, buffer, length, flags -- -- persona = address of longword holding persona identifier -- -- extensionID = address of longword holding extension to create -- -- buffer = address of TLV buffer -- -- length = address of longword containing TLV size in bytes -- -- flags = address of a flags longword -- -- procedure PERSONA_CREATE_EXTENSION ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : in UNSIGNED_LONGWORD; EXTENSIONID : in EXT_ID_TYPE_TYPE; BUFFER : in ADDRESS; LENGTH : in UNSIGNED_LONGWORD; FLAGS : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, PERSONA_CREATE_EXTENSION); pragma IMPORT_VALUED_PROCEDURE (PERSONA_CREATE_EXTENSION, "SYS$PERSONA_CREATE_EXTENSION", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, EXT_ID_TYPE_TYPE, ADDRESS, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, REFERENCE)); -- $PERSONA_DELETE_EXTENSION -- -- Delete An Extension From A Persona -- -- $PERSONA_DELETE_EXTENSION persona, extensionID -- -- persona = address of longword holding persona identifier -- -- extensionID = address of longword holding extension to delete -- -- procedure PERSONA_DELETE_EXTENSION ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : in UNSIGNED_LONGWORD; EXTENSIONID : in EXT_ID_TYPE_TYPE); pragma INTERFACE (EXTERNAL, PERSONA_DELETE_EXTENSION); pragma IMPORT_VALUED_PROCEDURE (PERSONA_DELETE_EXTENSION, "SYS$PERSONA_DELETE_EXTENSION", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, EXT_ID_TYPE_TYPE), (VALUE, REFERENCE, REFERENCE)); -- $PERSONA_MODIFY -- -- Modify Persona -- -- $PERSONA_MODIFY persona, itmlst -- -- persona = address of longword holding persona identifier -- -- itmlst = address of list of item descriptors -- -- procedure PERSONA_MODIFY ( STATUS : out COND_VALUE_TYPE; -- return value PERSONA : in UNSIGNED_LONGWORD; ITMLST : in ITEM_LIST_3_TYPE); pragma INTERFACE (EXTERNAL, PERSONA_MODIFY); pragma IMPORT_VALUED_PROCEDURE (PERSONA_MODIFY, "SYS$PERSONA_MODIFY", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ITEM_LIST_3_TYPE), (VALUE, REFERENCE, REFERENCE)); -- -- $SET_PROCESS_PROPERTIES[W] -- -- Set a simple value associated with a process -- -- $SET_PROCESS_PROPERTIES[W] mbz1 ,pidadr ,prcnam ,property -- ,value, prev_value [,bufsiz] [,bufcnt] -- -- mbz1 = Reserved for future use by Digital. Must -- be specified as 0. -- pidadr = For system service logging, the address of -- the PID of the target process. Otherwise, 0. -- prcnam = For system service logging, the address of -- the process name descriptor of the target -- process. Otherwise, must be 0. -- property = A constant that selects which property to set -- value = A quadword value to set the property to -- prev_value = The address of a quadword which will receive the -- previous value of the property -- bufsiz = For PPROP$C_SS_ENABLE, the size in bytes of a log buffer -- bufcnt = For PPROP$C_SS_ENABLE, the number of log buffers -- flags = for PPROP$C_SS_ENABLE, the associated flags -- procedure SET_PROCESS_PROPERTIES ( STATUS : out COND_VALUE_TYPE; -- return value MBZ1 : in ADDRESS := ADDRESS_ZERO; PIDADR : in PROCESS_ID_TYPE := PROCESS_ID_TYPE'NULL_PARAMETER; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PROPERTY : in FUNCTION_CODE_TYPE; VALUE : in UNSIGNED_QUADWORD; PREV_VALUE : out UNSIGNED_QUADWORD; BUFSIZ : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; BUFCNT : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SET_PROCESS_PROPERTIES); pragma IMPORT_VALUED_PROCEDURE (SET_PROCESS_PROPERTIES, "SYS$SET_PROCESS_PROPERTIES", (COND_VALUE_TYPE, ADDRESS, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, FUNCTION_CODE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE), BUFSIZ); procedure SET_PROCESS_PROPERTIESW ( STATUS : out COND_VALUE_TYPE; -- return value MBZ1 : in ADDRESS := ADDRESS_ZERO; PIDADR : in PROCESS_ID_TYPE := PROCESS_ID_TYPE'NULL_PARAMETER; PRCNAM : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; PROPERTY : in FUNCTION_CODE_TYPE; VALUE : in UNSIGNED_QUADWORD; PREV_VALUE : out UNSIGNED_QUADWORD; BUFSIZ : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; BUFCNT : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER; FLAGS : in UNSIGNED_LONGWORD := UNSIGNED_LONGWORD'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, SET_PROCESS_PROPERTIESW); pragma IMPORT_VALUED_PROCEDURE (SET_PROCESS_PROPERTIESW, "SYS$SET_PROCESS_PROPERTIESW", (COND_VALUE_TYPE, ADDRESS, PROCESS_ID_TYPE, PROCESS_NAME_TYPE, FUNCTION_CODE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE), BUFSIZ); -- SYS$ACQUIRE_GALAXY_LOCK -- -- $ACQUIRE_GALAXY_LOCK lock_handle,timeout,flags -- -- lock_handle - GLOCK handle -- timeout - timeout value in 10 microsecond units -- flags - flags procedure ACQUIRE_GALAXY_LOCK ( STATUS : out COND_VALUE_TYPE; -- return value LOCK_HANDLE : in UNSIGNED_QUADWORD; TIMEOUT : in UNSIGNED_LONGWORD := 0; FLAGS : in UNSIGNED_LONGWORD := 0); pragma INTERFACE (EXTERNAL, ACQUIRE_GALAXY_LOCK); pragma IMPORT_VALUED_PROCEDURE (ACQUIRE_GALAXY_LOCK, "SYS$ACQUIRE_GALAXY_LOCK", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE)); -- SYS$CREATE_GALAXY_LOCK -- -- $CREATE_GALAXY_LOCK lcktbl_handle,name,size,timeout,ipl,rank,lock_handle -- -- lcktbl_handle - handle of lock table in which to create the lock -- name - pointer to name of lock; 16 bytes. ASCIZ or Descriptor -- size - size of lock -- timeout - wait timeout value in 10 micro second units -- ipl - IPL to raise to when lock is acquired (kernel mode only) -- rank - rank of lock -- lock_handle - lock handle -- -- procedure CREATE_GALAXY_LOCK ( STATUS : out COND_VALUE_TYPE; -- return value LCKTBL_HANDLE : in UNSIGNED_LONGWORD; NAME : in STRING; SIZE : in UNSIGNED_LONGWORD; TIMEOUT : in UNSIGNED_LONGWORD := 0; IPL : in UNSIGNED_LONGWORD := 0; RANK : in UNSIGNED_LONGWORD := 0; LOCK_HANDLE : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, CREATE_GALAXY_LOCK); pragma IMPORT_VALUED_PROCEDURE (CREATE_GALAXY_LOCK, "SYS$CREATE_GALAXY_LOCK", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, REFERENCE)); -- SYS$CREATE_GALAXY_LOCK_TABLE -- -- $CREATE_GALAXY_LOCK_TABLE name,accmode,section_size,section_type,prot,lock_size,lcktbl_handle -- -- name - pointer to name of section; 16 bytes. ASCIZ or Descriptor -- accmode - access mode -- section_size - virtual size of the section (bytes) -- section_type - glcktbl$c_process | glcktbl$c_system -- prot - page protection -- lock_size - size of locks in the section -- lcktbl_handle - handle of lock table -- procedure CREATE_GALAXY_LOCK_TABLE ( STATUS : out COND_VALUE_TYPE; -- return value NAME : in STRING; ACCMODE : in UNSIGNED_LONGWORD; SECTION_SIZE : in UNSIGNED_QUADWORD; SECTION_TYPE : in UNSIGNED_LONGWORD; PROT : in UNSIGNED_LONGWORD; LOCK_SIZE : in UNSIGNED_LONGWORD; LCKTBL_HANDLE : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, CREATE_GALAXY_LOCK_TABLE); pragma IMPORT_VALUED_PROCEDURE (CREATE_GALAXY_LOCK_TABLE, "SYS$CREATE_GALAXY_LOCK_TABLE", (COND_VALUE_TYPE, STRING, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE)); -- SYS$DELETE_GALAXY_LOCK -- -- $DELETE_GALAXY_LOCK lock_handle -- -- lock_handle - lock handle -- procedure DELETE_GALAXY_LOCK ( STATUS : out COND_VALUE_TYPE; -- return value LOCK_HANDLE : in UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, DELETE_GALAXY_LOCK); pragma IMPORT_VALUED_PROCEDURE (DELETE_GALAXY_LOCK, "SYS$DELETE_GALAXY_LOCK", (COND_VALUE_TYPE, UNSIGNED_QUADWORD), (VALUE, VALUE)); -- SYS$DELETE_GALAXY_LOCK_TABLE -- -- $DELETE_GALAXY_LOCK_TABLE lcktbl_handle -- -- lcktbl_handle - handle of lock table -- procedure DELETE_GALAXY_LOCK_TABLE ( STATUS : out COND_VALUE_TYPE; -- return value LCKTBL_HANDLE : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, DELETE_GALAXY_LOCK_TABLE); pragma IMPORT_VALUED_PROCEDURE (DELETE_GALAXY_LOCK_TABLE, "SYS$DELETE_GALAXY_LOCK_TABLE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, VALUE)); -- SYS$GET_GALAXY_LOCK_INFO -- -- $GET_GALAXY_LOCK_INFO lcktbl_handle,name,timeout,size,ipl,rank,lock_handle, name_length -- -- lock_handle - lock handle -- name - pointer to name of lock; 16 bytes, zero terminated -- timeout - wait timeout value in 10 micro second units -- size - size of lock -- ipl - IPL to raise to when lock is acquired (kernel mode only) -- rank - rank of lock -- flags - flags from lock -- name_length - pointer to a word where the length of the name will be returned -- procedure GET_GALAXY_LOCK_INFO ( STATUS : out COND_VALUE_TYPE; -- return value LOCK_HANDLE : in UNSIGNED_QUADWORD; NAME : out STRING; TIMEOUT : out UNSIGNED_LONGWORD; SIZE : out UNSIGNED_LONGWORD; IPL : out UNSIGNED_LONGWORD; RANK : out UNSIGNED_LONGWORD; FLAGS : out UNSIGNED_WORD; NAME_LENGTH : out UNSIGNED_WORD); procedure GET_GALAXY_LOCK_INFO ( STATUS : out COND_VALUE_TYPE; -- return value LOCK_HANDLE : in UNSIGNED_QUADWORD; NAME : out STRING; TIMEOUT : out UNSIGNED_LONGWORD; SIZE : out UNSIGNED_LONGWORD; IPL : out UNSIGNED_LONGWORD; RANK : out UNSIGNED_LONGWORD; FLAGS : out UNSIGNED_WORD; NAME_LENGTH : in ADDRESS := ADDRESS_ZERO); -- To omit optional NAME_LENGTH argument pragma INTERFACE (EXTERNAL, GET_GALAXY_LOCK_INFO); pragma IMPORT_VALUED_PROCEDURE (GET_GALAXY_LOCK_INFO, "SYS$GET_GALAXY_LOCK_INFO", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_WORD, UNSIGNED_WORD), (VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (GET_GALAXY_LOCK_INFO, "SYS$GET_GALAXY_LOCK_INFO", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_WORD, ADDRESS), (VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE), NAME_LENGTH); -- SYS$GET_GALAXY_LOCK_SIZE -- -- $GET_GALAXY_LOCK_SIZE min_size, max_size -- -- min_size - minimum size of a galaxy lock -- max_size - maximum size of a galaxy lock -- procedure GET_GALAXY_LOCK_SIZE ( STATUS : out COND_VALUE_TYPE; -- return value MIN_SIZE : out UNSIGNED_LONGWORD; MAX_SIZE : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, GET_GALAXY_LOCK_SIZE); pragma IMPORT_VALUED_PROCEDURE (GET_GALAXY_LOCK_SIZE, "SYS$GET_GALAXY_LOCK_SIZE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE)); -- SYS$INIT_GALAXY_LOCK -- -- $INIT_GALAXY_LOCK va,name,size,timeout,ipl,rank,lock_handle -- -- va - local va of memory to be initialized -- name - pointer to name of lock; 16 bytes, zero terminated -- size - size of lock -- timeout - wait timeout value in 10 micro second units -- ipl - IPL to raise to when lock is acquired (kernel mode only) -- rank - rank of lock -- lock_handle - lock handle -- -- procedure INIT_GALAXY_LOCK ( STATUS : out COND_VALUE_TYPE; -- return value VA : in ADDRESS; NAME : in STRING; SIZE : in UNSIGNED_LONGWORD; TIMEOUT : in UNSIGNED_LONGWORD := 0; IPL : in UNSIGNED_LONGWORD := 0; RANK : in UNSIGNED_LONGWORD := 0; LOCK_HANDLE : out UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, INIT_GALAXY_LOCK); pragma IMPORT_VALUED_PROCEDURE (INIT_GALAXY_LOCK, "SYS$INIT_GALAXY_LOCK", (COND_VALUE_TYPE, ADDRESS, STRING, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, REFERENCE)); -- SYS$INIT_GALAXY_LOCK_TABLE -- -- $INIT_GALAXY_LOCK_TABLE region_va,reg_phys_size,reg_virt_size,section_type,lock_size,lcktbl_handle -- -- region_va - local va of shared memory region where the locks reside -- reg_phys_size - physical size of the region (bytes) -- reg_virt_size - virtual size of the region (bytes) -- section_type - glcktbl$c_process | glcktbl$c_system -- lock_size - size of locks in the section -- lcktbl_handle - handle of lock table -- procedure INIT_GALAXY_LOCK_TABLE ( STATUS : out COND_VALUE_TYPE; -- return value REGION_VA : in ADDRESS; REG_PHYS_SIZE : in UNSIGNED_QUADWORD; REG_VIRT_SIZE : in UNSIGNED_QUADWORD; SECTION_TYPE : in UNSIGNED_LONGWORD; LOCK_SIZE : in UNSIGNED_LONGWORD; LCKTBL_HANDLE : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, INIT_GALAXY_LOCK_TABLE); pragma IMPORT_VALUED_PROCEDURE (INIT_GALAXY_LOCK_TABLE, "SYS$INIT_GALAXY_LOCK_TABLE", (COND_VALUE_TYPE, ADDRESS, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, REFERENCE)); -- SYS$RELEASE_GALAXY_LOCK -- -- $RELEASE_GALAXY_LOCK lock_handle -- -- lock_handle - lock handle -- procedure RELEASE_GALAXY_LOCK ( STATUS : out COND_VALUE_TYPE; -- return value LOCK_HANDLE : in UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, RELEASE_GALAXY_LOCK); pragma IMPORT_VALUED_PROCEDURE (RELEASE_GALAXY_LOCK, "SYS$RELEASE_GALAXY_LOCK", (COND_VALUE_TYPE, UNSIGNED_QUADWORD), (VALUE, VALUE)); -- SYS$RESET_GALAXY_LOCK -- -- $RESET_GALAXY_LOCK lock_handle -- -- lock_handle - lock handle -- lock_va - local address of lock -- procedure RESET_GALAXY_LOCK ( STATUS : out COND_VALUE_TYPE; -- return value LOCK_HANDLE : in UNSIGNED_QUADWORD; LOCK_VA : out ADDRESS); pragma INTERFACE (EXTERNAL, RESET_GALAXY_LOCK); pragma IMPORT_VALUED_PROCEDURE (RESET_GALAXY_LOCK, "SYS$RESET_GALAXY_LOCK", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, ADDRESS), (VALUE, VALUE, REFERENCE)); -- SYS$WAIT_ON_GLOCK -- -- $WAIT_ON_GLOCK lock_handle,timeout -- -- lock_handle - lock handle -- timeout - timeout value; overrides the value in the lock -- procedure WAIT_ON_GLOCK ( STATUS : out COND_VALUE_TYPE; -- return value LOCK_HANDLE : in UNSIGNED_QUADWORD; TIMEOUT : in UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, WAIT_ON_GLOCK); pragma IMPORT_VALUED_PROCEDURE (WAIT_ON_GLOCK, "SYS$WAIT_ON_GLOCK", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD), (VALUE, VALUE, VALUE)); -- SYS$NOTIFY_GLOCK_WAITERS -- -- $NOTIFY_GLOCK_WAITERS lock_handle,waiters -- -- lock_handle - lock handle -- waiters - bitmask of galaxy nodes with waiters for this lock -- procedure NOTIFY_GLOCK_WAITERS ( STATUS : out COND_VALUE_TYPE; -- return value LOCK_HANDLE : in UNSIGNED_QUADWORD; WAITERS : in UNSIGNED_QUADWORD); pragma INTERFACE (EXTERNAL, NOTIFY_GLOCK_WAITERS); pragma IMPORT_VALUED_PROCEDURE (NOTIFY_GLOCK_WAITERS, "SYS$NOTIFY_GLOCK_WAITERS", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, VALUE)); -- $QIOSERVER -- -- QIOserver Control and Information -- -- $QIOSERVER [efn], func, [context], [itmlst], -- ($QIOSERVERW) [iosb], [astadr], [astprm] -- -- efn = event flag to be set when request completes -- func = code specifying function to be performed -- context = address of a longword containing a context number -- itmlst = address of a list of item descriptors for the operation -- iosb = address of a quadword status block to receive the final status -- astadr = address of an ast routine to be called when request completes -- astprm = 32-bit (VAX) or 64-bit (ALPHA) ast parameter -- procedure QIOSERVER ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure QIOSERVER ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure QIOSERVER ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTEXT argument ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure QIOSERVER ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTEXT argument ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, QIOSERVER); pragma IMPORT_VALUED_PROCEDURE (QIOSERVER, "SYS$QIOSERVER", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (QIOSERVER, "SYS$QIOSERVER", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (QIOSERVER, "SYS$QIOSERVER", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (QIOSERVER, "SYS$QIOSERVER", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); procedure QIOSERVERW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure QIOSERVERW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in out CONTEXT_TYPE; ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure QIOSERVERW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTEXT argument ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure QIOSERVERW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; FUNC : in FUNCTION_CODE_TYPE; CONTEXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTEXT argument ITMLST : in ITEM_LIST_TYPE := ITEM_LIST_TYPE'NULL_PARAMETER; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, QIOSERVERW); pragma IMPORT_VALUED_PROCEDURE (QIOSERVERW, "SYS$QIOSERVERW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (QIOSERVERW, "SYS$QIOSERVERW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, CONTEXT_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (QIOSERVERW, "SYS$QIOSERVERW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (QIOSERVERW, "SYS$QIOSERVERW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, VALUE, REFERENCE, REFERENCE, REFERENCE, VALUE)); -- $DEVICE_PATH_SCAN -- -- SCAN Device Path Information -- -- $DEVICE_PATH_SCAN [chan] ,[devnam] ,itmlst ,[contxt] ,[nullarg] -- -- chan = number of a channel assigned to the device or -- 0 if device is specified by the devnam parameter -- -- devnam = address of device name or logical name descriptor -- -- itmlst = address of a list of item descriptors -- -- contxt = address of long word used to indicate current position of $DEVICE_PATH_SCAN -- -- nullarg = reserved argument -- -- procedure DEVICE_PATH_SCAN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; CONTXT : in out CONTEXT_TYPE; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure DEVICE_PATH_SCAN ( STATUS : out COND_VALUE_TYPE; -- return value CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument NULLARG : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, DEVICE_PATH_SCAN); pragma IMPORT_VALUED_PROCEDURE (DEVICE_PATH_SCAN, "SYS$DEVICE_PATH_SCAN", (COND_VALUE_TYPE, CHANNEL_TYPE, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, CONTEXT_TYPE, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DEVICE_PATH_SCAN, "SYS$DEVICE_PATH_SCAN", (COND_VALUE_TYPE, CHANNEL_TYPE, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, VALUE)); -- $SET_DEVICE -- $SET_DEVICEW -- -- SET Device Information -- -- $SET_DEVICE [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr], -- $SET_DEVICEW [astprm] ,[nullarg] -- -- efn = event flag to be set at completion -- -- chan = number of a channel assigned to the device or -- 0 if device is specified by the devnam parameter -- -- devnam = address of device name or logical name descriptor -- -- itmlst = address of a list of item descriptors -- -- iosb = address of a quadword I/O status block -- -- astadr = address of entry mask of AST routine -- -- astprm = value to be passed to AST routine -- -- nullarg = reserved argument -- -- procedure SET_DEVICE ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure SET_DEVICE ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, SET_DEVICE); pragma IMPORT_VALUED_PROCEDURE (SET_DEVICE, "SYS$SET_DEVICE", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SET_DEVICE, "SYS$SET_DEVICE", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); procedure SET_DEVICEW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); procedure SET_DEVICEW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CHAN : in CHANNEL_TYPE := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; NULLARG : in ADDRESS := ADDRESS_ZERO); pragma INTERFACE (EXTERNAL, SET_DEVICEW); pragma IMPORT_VALUED_PROCEDURE (SET_DEVICEW, "SYS$SET_DEVICEW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SET_DEVICEW, "SYS$SET_DEVICEW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CHANNEL_TYPE, DEVICE_NAME_TYPE, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE, VALUE)); -- -- $IO_TRANSITION -- $IO_TRANSITIONW -- -- IO State Transitions -- -- $IO_TRANSITION tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm -- $IO_TRANSITIONW tran_code,devnam,[nodename],[node_id],flags,efn,iosb,astadr,astprm -- -- Parameters: -- tran_code - Transition code of operation to be initiated -- devnam - CPU ID of processor to affected -- nodename - ASCII descriptor name equivalent to node ID -- node_id - Galactic node ID -- flags - Quadword pointer to longword behavioral flags -- efn - Event flag number for completion notification -- iosb - IOSB block address for completion notification -- astadr - Address of AST routine name on completion -- astprm - AST parameter to be passed back on completion -- contxt - Context longword -- procedure IO_TRANSITION ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in out CONTEXT_TYPE); procedure IO_TRANSITION ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IO_TRANSITION ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IO_TRANSITION ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in out CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, IO_TRANSITION); pragma IMPORT_VALUED_PROCEDURE (IO_TRANSITION, "SYS$IO_TRANSITION", (COND_VALUE_TYPE, INTEGER, DEVICE_NAME_TYPE, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, CONTEXT_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IO_TRANSITION, "SYS$IO_TRANSITION", (COND_VALUE_TYPE, INTEGER, DEVICE_NAME_TYPE, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IO_TRANSITION, "SYS$IO_TRANSITION", (COND_VALUE_TYPE, INTEGER, DEVICE_NAME_TYPE, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IO_TRANSITION, "SYS$IO_TRANSITION", (COND_VALUE_TYPE, INTEGER, DEVICE_NAME_TYPE, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, CONTEXT_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE)); procedure IO_TRANSITIONW ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in out CONTEXT_TYPE); procedure IO_TRANSITIONW ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IO_TRANSITIONW ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in ADDRESS := ADDRESS_ZERO); -- To omit optional CONTXT argument procedure IO_TRANSITIONW ( STATUS : out COND_VALUE_TYPE; -- return value TRAN_CODE : in INTEGER := 0; DEVNAM : in DEVICE_NAME_TYPE := DEVICE_NAME_TYPE'NULL_PARAMETER; NODENAME : in PROCESS_NAME_TYPE := PROCESS_NAME_TYPE'NULL_PARAMETER; NODE_ID : in INTEGER := LONGWORD_SIGNED_-1; FLAGS : in INTEGER := 0; EFN : in EF_NUMBER_TYPE := 0; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO; CONTXT : in out CONTEXT_TYPE); pragma INTERFACE (EXTERNAL, IO_TRANSITIONW); pragma IMPORT_VALUED_PROCEDURE (IO_TRANSITIONW, "SYS$IO_TRANSITIONW", (COND_VALUE_TYPE, INTEGER, DEVICE_NAME_TYPE, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, CONTEXT_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (IO_TRANSITIONW, "SYS$IO_TRANSITIONW", (COND_VALUE_TYPE, INTEGER, DEVICE_NAME_TYPE, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IO_TRANSITIONW, "SYS$IO_TRANSITIONW", (COND_VALUE_TYPE, INTEGER, DEVICE_NAME_TYPE, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, ADDRESS), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (IO_TRANSITIONW, "SYS$IO_TRANSITIONW", (COND_VALUE_TYPE, INTEGER, DEVICE_NAME_TYPE, PROCESS_NAME_TYPE, INTEGER, INTEGER, EF_NUMBER_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE, CONTEXT_TYPE), (VALUE, VALUE, DESCRIPTOR(S), DESCRIPTOR(S), VALUE, VALUE, VALUE, VALUE, REFERENCE, VALUE, REFERENCE)); -- SYS$MAP_UIC -- -- $MAP_UIC uic, uid, gid -- -- uic - address of the UIC to look up mapping for -- uid - address of cell to write matching UID into -- gid - address of cell to write matching GID into -- procedure MAP_UIC ( STATUS : out COND_VALUE_TYPE; -- return value UIC : in UIC_LONGWORD_TYPE; UID : out UNSIGNED_LONGWORD; GID : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, MAP_UIC); pragma IMPORT_VALUED_PROCEDURE (MAP_UIC, "SYS$MAP_UIC", (COND_VALUE_TYPE, UIC_LONGWORD_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD), (VALUE, REFERENCE, REFERENCE, REFERENCE)); -- SYS$MAP_UID -- -- $MAP_UIC uid, uic, username, retlen -- -- uid - address of the UID to look up mapping for -- uid - address of cell to write matching UIC into -- username - address of a string descriptor to write matching username into -- retlen - address of a word to write the length of the username into -- procedure MAP_UID ( STATUS : out COND_VALUE_TYPE; -- return value UID : in UNSIGNED_LONGWORD; UIC : out UIC_LONGWORD_TYPE; USERNAME : out STRING; RETLEN : out UNSIGNED_WORD); pragma INTERFACE (EXTERNAL, MAP_UID); pragma IMPORT_VALUED_PROCEDURE (MAP_UID, "SYS$MAP_UID", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UIC_LONGWORD_TYPE, STRING, UNSIGNED_WORD), (VALUE, REFERENCE, REFERENCE, DESCRIPTOR(S), REFERENCE)); -- SYS$SET_SESSION_ID - Create new POSIX session -- -- $SET_SESSION_ID sid -- -- sid - address of a longword written with the newly created Session ID. -- procedure SET_SESSION_ID ( STATUS : out COND_VALUE_TYPE; -- return value SID : out UNSIGNED_LONGWORD); pragma INTERFACE (EXTERNAL, SET_SESSION_ID); pragma IMPORT_VALUED_PROCEDURE (SET_SESSION_ID, "SYS$SET_SESSION_ID", (COND_VALUE_TYPE, UNSIGNED_LONGWORD), (VALUE, REFERENCE)); -- SYS$SET_PROCESS_GROUP - Create or change POSIX process group -- -- $SET_PROCESS_GROUP pid, pgid, retpgid -- -- pid - address of a PID that is the target of this call -- pgid - address of a longword Process Group ID (also a PID) to have target join -- retpgid - address of a longword written with PGID of a new group (also a PID) -- procedure SET_PROCESS_GROUP ( STATUS : out COND_VALUE_TYPE; -- return value PID : in PROCESS_ID_TYPE; PGID : in PROCESS_ID_TYPE; RETPGID : out PROCESS_ID_TYPE); pragma INTERFACE (EXTERNAL, SET_PROCESS_GROUP); pragma IMPORT_VALUED_PROCEDURE (SET_PROCESS_GROUP, "SYS$SET_PROCESS_GROUP", (COND_VALUE_TYPE, PROCESS_ID_TYPE, PROCESS_ID_TYPE, PROCESS_ID_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE)); -- SYS$SET_POSIX_IDS - Set POSIX UID and GID values -- -- $SET_POSIX_IDS itmlst, flags -- -- itlmst - address of an item list 3 of POSIX ID values to set -- flags - flags signed longword, by value -- procedure SET_POSIX_IDS ( STATUS : out COND_VALUE_TYPE; -- return value ITMLST : in ITEM_LIST_TYPE; FLAGS : in INTEGER); pragma INTERFACE (EXTERNAL, SET_POSIX_IDS); pragma IMPORT_VALUED_PROCEDURE (SET_POSIX_IDS, "SYS$SET_POSIX_IDS", (COND_VALUE_TYPE, ITEM_LIST_TYPE, INTEGER), (VALUE, REFERENCE, VALUE)); -- SYS$LOG_SYSTEM_SERVICE - Log system service request -- -- $LOG_SYSTEM_SERVICE logtype, [bufseqnum], [logentry], [service_status], [service_ra], -- [arglist_add],[vector_index], [prev_mode] -- -- logtype - type of log entry, e.g., SSLOG$C_SS_ENTRY -- bufseqnum - address to store/fetch longword sequence number assoc. -- with log's buffer -- logentry - address to fetch/store 64-bit log buffer entry address -- service_status - completion status of service being logged -- service_ra - address corresponding to return address from call to -- service being logged -- arglist_add - address of VAX-style argument list to service being logged -- vector_index - position of system service vector in SYS$PUBLIC_VECTORS of -- service being logged -- prev_mode - mode from which service being logged was called procedure LOG_SYSTEM_SERVICE ( STATUS : out COND_VALUE_TYPE; -- return value LOGTYP : in UNSIGNED_LONGWORD; BUFSEQNUM : in out UNSIGNED_LONGWORD; LOGENTRY : in out ADDRESS; SERVICE_STATUS : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; SERVICE_RA : in ADDRESS := ADDRESS'NULL_PARAMETER; ARGLIST_ADD : in ARG_LIST_TYPE := ARG_LIST_TYPE'NULL_PARAMETER; VECTOR_INDEX : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; PREV_MODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER); procedure LOG_SYSTEM_SERVICE ( STATUS : out COND_VALUE_TYPE; -- return value LOGTYP : in UNSIGNED_LONGWORD; BUFSEQNUM : in out UNSIGNED_LONGWORD; LOGENTRY : in UNSIGNED_LONGWORD := 0; -- To omit optional LOGENTRY argument SERVICE_STATUS : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; SERVICE_RA : in ADDRESS := ADDRESS'NULL_PARAMETER; ARGLIST_ADD : in ARG_LIST_TYPE := ARG_LIST_TYPE'NULL_PARAMETER; VECTOR_INDEX : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; PREV_MODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER); procedure LOG_SYSTEM_SERVICE ( STATUS : out COND_VALUE_TYPE; -- return value LOGTYP : in UNSIGNED_LONGWORD; BUFSEQNUM : in ADDRESS := ADDRESS_ZERO; -- To omit optional BUFSEQNUM argument LOGENTRY : in UNSIGNED_LONGWORD := 0; -- To omit optional LOGENTRY argument SERVICE_STATUS : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; SERVICE_RA : in ADDRESS := ADDRESS'NULL_PARAMETER; ARGLIST_ADD : in ARG_LIST_TYPE := ARG_LIST_TYPE'NULL_PARAMETER; VECTOR_INDEX : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; PREV_MODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER); procedure LOG_SYSTEM_SERVICE ( STATUS : out COND_VALUE_TYPE; -- return value LOGTYP : in UNSIGNED_LONGWORD; BUFSEQNUM : in ADDRESS := ADDRESS_ZERO; -- To omit optional BUFSEQNUM argument LOGENTRY : in out ADDRESS; SERVICE_STATUS : in COND_VALUE_TYPE := COND_VALUE_TYPE'NULL_PARAMETER; SERVICE_RA : in ADDRESS := ADDRESS'NULL_PARAMETER; ARGLIST_ADD : in ARG_LIST_TYPE := ARG_LIST_TYPE'NULL_PARAMETER; VECTOR_INDEX : in UNSIGNED_WORD := UNSIGNED_WORD'NULL_PARAMETER; PREV_MODE : in ACCESS_MODE_TYPE := ACCESS_MODE_TYPE'NULL_PARAMETER); pragma INTERFACE (EXTERNAL, LOG_SYSTEM_SERVICE); pragma IMPORT_VALUED_PROCEDURE (LOG_SYSTEM_SERVICE, "SYS$LOG_SYSTEM_SERVICE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, ADDRESS, COND_VALUE_TYPE, ADDRESS, ARG_LIST_TYPE, UNSIGNED_WORD, ACCESS_MODE_TYPE), (VALUE, VALUE, REFERENCE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE), SERVICE_STATUS); pragma IMPORT_VALUED_PROCEDURE (LOG_SYSTEM_SERVICE, "SYS$LOG_SYSTEM_SERVICE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, UNSIGNED_LONGWORD, COND_VALUE_TYPE, ADDRESS, ARG_LIST_TYPE, UNSIGNED_WORD, ACCESS_MODE_TYPE), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE), LOGENTRY); pragma IMPORT_VALUED_PROCEDURE (LOG_SYSTEM_SERVICE, "SYS$LOG_SYSTEM_SERVICE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, UNSIGNED_LONGWORD, COND_VALUE_TYPE, ADDRESS, ARG_LIST_TYPE, UNSIGNED_WORD, ACCESS_MODE_TYPE), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE), BUFSEQNUM); pragma IMPORT_VALUED_PROCEDURE (LOG_SYSTEM_SERVICE, "SYS$LOG_SYSTEM_SERVICE", (COND_VALUE_TYPE, UNSIGNED_LONGWORD, ADDRESS, ADDRESS, COND_VALUE_TYPE, ADDRESS, ARG_LIST_TYPE, UNSIGNED_WORD, ACCESS_MODE_TYPE), (VALUE, VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE, VALUE), SERVICE_STATUS); -- -- $GETLMI -- $GETLMIW -- -- Get License Management Information -- -- $GETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm -- $GETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm -- Inputs: -- efn - Event flag number. (optional, by value) -- contxt - Context block used for subsequent calls for wildcard license type. (optional by reference) -- reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor) -- itmlst - Item list containing information to fully describe the requested function. (required, by reference) -- iosb - I/O status block. (optional, by reference) -- astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference) -- astprm - AST parameter for the AST routine. (optional, by value) -- procedure GETLMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETLMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETLMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETLMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETLMI); pragma IMPORT_VALUED_PROCEDURE (GETLMI, "SYS$GETLMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETLMI, "SYS$GETLMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETLMI, "SYS$GETLMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETLMI, "SYS$GETLMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); procedure GETLMIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETLMIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETLMIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure GETLMIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, GETLMIW); pragma IMPORT_VALUED_PROCEDURE (GETLMIW, "SYS$GETLMIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETLMIW, "SYS$GETLMIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETLMIW, "SYS$GETLMIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (GETLMIW, "SYS$GETLMIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); -- -- $SETLMI -- $SETLMIW -- -- Set License Management Information -- -- $SETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm -- $SETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm -- Inputs: -- efn - Event flag number. (optional, by value) -- contxt - Context block used for subsequent calls for wildcard license type. (optional by reference) -- reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor) -- itmlst - Item list containing information to fully describe the requested function. (required, by reference) -- iosb - I/O status block. (optional, by reference) -- astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference) -- astprm - AST parameter for the AST routine. (optional, by value) -- procedure SETLMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETLMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETLMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETLMI ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SETLMI); pragma IMPORT_VALUED_PROCEDURE (SETLMI, "SYS$SETLMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETLMI, "SYS$SETLMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETLMI, "SYS$SETLMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETLMI, "SYS$SETLMI", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); procedure SETLMIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETLMIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in out CONTEXT_TYPE; RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETLMIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : in ADDRESS := ADDRESS_ZERO; -- To omit optional IOSB argument ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); procedure SETLMIW ( STATUS : out COND_VALUE_TYPE; -- return value EFN : in EF_NUMBER_TYPE := 0; CONTXT : in ADDRESS := ADDRESS_ZERO; -- To omit optional CONTXT argument RESERVED : in STRING := STRING'NULL_PARAMETER; ITMLST : in ITEM_LIST_TYPE; IOSB : out IO_STATUS_BLOCK_TYPE; ASTADR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; ASTPRM : in USER_ARG_TYPE := USER_ARG_ZERO); pragma INTERFACE (EXTERNAL, SETLMIW); pragma IMPORT_VALUED_PROCEDURE (SETLMIW, "SYS$SETLMIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETLMIW, "SYS$SETLMIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, CONTEXT_TYPE, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, REFERENCE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETLMIW, "SYS$SETLMIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, ADDRESS, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, VALUE, REFERENCE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (SETLMIW, "SYS$SETLMIW", (COND_VALUE_TYPE, EF_NUMBER_TYPE, ADDRESS, STRING, ITEM_LIST_TYPE, IO_STATUS_BLOCK_TYPE, AST_PROCEDURE_TYPE, USER_ARG_TYPE), (VALUE, VALUE, VALUE, DESCRIPTOR(S), REFERENCE, REFERENCE, REFERENCE, VALUE)); -- -- $IEEE_SET_ROUNDING_MODE -- $IEEE_SET_PRECISION_MODE -- -- Set and retrieve the IEEE rounding/precision mode for the current kernel thread -- -- $IEEE_SET_ROUNDING_MODE( value, prev_value ) -- -- value = A longword constant specifying the rounding mode for the thread -- prev_value = The address of a longword which will receive the -- previous rounding mode -- procedure IEEE_SET_ROUNDING_MODE ( STATUS : out COND_VALUE_TYPE; -- return value VALUE : in FUNCTION_CODE_TYPE; PREV_VALUE : out FUNCTION_CODE_TYPE); pragma INTERFACE (EXTERNAL, IEEE_SET_ROUNDING_MODE); pragma IMPORT_VALUED_PROCEDURE (IEEE_SET_ROUNDING_MODE, "SYS$IEEE_SET_ROUNDING_MODE", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, FUNCTION_CODE_TYPE), (VALUE, VALUE, REFERENCE)); procedure IEEE_SET_PRECISION_MODE ( STATUS : out COND_VALUE_TYPE; -- return value VALUE : in FUNCTION_CODE_TYPE; PREV_VALUE : out FUNCTION_CODE_TYPE); pragma INTERFACE (EXTERNAL, IEEE_SET_PRECISION_MODE); pragma IMPORT_VALUED_PROCEDURE (IEEE_SET_PRECISION_MODE, "SYS$IEEE_SET_PRECISION_MODE", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, FUNCTION_CODE_TYPE), (VALUE, VALUE, REFERENCE)); -- $DEBUG_BREAK -- -- Manipulate hardware debug resources -- -- $DEBUG_BREAK func, handle, addr, addr_mask, mode_mask, access_mask -- -- func = what function to perform -- -- handle = address of handle -- -- addr = address to be debugged -- -- addr_mask = which bits in the address are significant -- -- mode_mask = which mode(s) are to generate an exception -- -- access_mask = are we monitoring reads or writes? procedure DEBUG_BREAK ( STATUS : out COND_VALUE_TYPE; -- return value FUNC : in FUNCTION_CODE_TYPE := (0, 0); HANDLE : in out UNSIGNED_LONGWORD; ADDR : in ADDRESS := ADDRESS_ZERO; ADDR_MASK : in MASK_QUADWORD_TYPE := (0, 0); MODE_MASK : in UNSIGNED_BYTE := (0, 0); ACCESS_MASK : in UNSIGNED_BYTE := 0); procedure DEBUG_BREAK ( STATUS : out COND_VALUE_TYPE; -- return value FUNC : in FUNCTION_CODE_TYPE := (0, 0); HANDLE : in ADDRESS := ADDRESS_ZERO; -- To omit optional HANDLE argument ADDR : in ADDRESS := ADDRESS_ZERO; ADDR_MASK : in MASK_QUADWORD_TYPE := (0, 0); MODE_MASK : in UNSIGNED_BYTE := (0, 0); ACCESS_MASK : in UNSIGNED_BYTE := 0); pragma INTERFACE (EXTERNAL, DEBUG_BREAK); pragma IMPORT_VALUED_PROCEDURE (DEBUG_BREAK, "SYS$DEBUG_BREAK", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, UNSIGNED_LONGWORD, ADDRESS, MASK_QUADWORD_TYPE, UNSIGNED_BYTE, UNSIGNED_BYTE), (VALUE, VALUE, REFERENCE, VALUE, VALUE, VALUE, VALUE)); pragma IMPORT_VALUED_PROCEDURE (DEBUG_BREAK, "SYS$DEBUG_BREAK", (COND_VALUE_TYPE, FUNCTION_CODE_TYPE, ADDRESS, ADDRESS, MASK_QUADWORD_TYPE, UNSIGNED_BYTE, UNSIGNED_BYTE), (VALUE, VALUE, VALUE, VALUE, VALUE, VALUE, VALUE)); -- $POWER_CONTROL -- -- Manipulate the platform's power and performance settings -- -- $DEBUG_BREAK power_setting, current_value -- -- power_setting = a quadword value to specify the new power/performance setting -- -- current_value = the address of a quadword for the service to return the current -- setting (optional) procedure POWER_CONTROL ( STATUS : out COND_VALUE_TYPE; -- return value POWER_SETTING : in UNSIGNED_QUADWORD; CURRENT_VALUE : out UNSIGNED_QUADWORD); procedure POWER_CONTROL ( STATUS : out COND_VALUE_TYPE; -- return value POWER_SETTING : in UNSIGNED_QUADWORD; CURRENT_VALUE : in ADDRESS := ADDRESS_ZERO); -- To omit optional CURRENT_VALUE argument pragma INTERFACE (EXTERNAL, POWER_CONTROL); pragma IMPORT_VALUED_PROCEDURE (POWER_CONTROL, "SYS$POWER_CONTROL", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD), (VALUE, VALUE, REFERENCE)); pragma IMPORT_VALUED_PROCEDURE (POWER_CONTROL, "SYS$POWER_CONTROL", (COND_VALUE_TYPE, UNSIGNED_QUADWORD, ADDRESS), (VALUE, VALUE, VALUE), CURRENT_VALUE); end STARLET;