--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:15 by OpenVMS SDL EV3-3      
-- Source:  29-AUG-2000 09:54:48 $1$DGA8085:[LIB_ADA.LIS]ACMEAGENT_CO_DEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
with ACMEAGENT_DATA_DEF;use ACMEAGENT_DATA_DEF;
with ACMEDEF;use ACMEDEF;
with UTCBLKDEF;use UTCBLKDEF;
with ILEDEF;use ILEDEF;
 
package ACMEAGENT_CO_DEF is
 
--  module $ACMEAGENT_CO_DEF IDENT X-1
 
--+
-- 
--  ACME Agent Callout Routines Prototypes
-- 
---
--
--	acme$ast_routine  kcb_vector, acme_context, wqe, wqe_context,
--				ast_context, ast_parameter
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	ast_context	= address of quadword containing the AST context id
--			  (parameter) returned to the agent when acquiring
--			  the AST context
--	ast_parameter	= addesss of quadword containing ACME specific value
--			  specified by the agent when acquiring the AST context
--
 
    procedure ACME_AST_ROUTINE (
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	AST_CONTEXT	: in  UNSIGNED_QUADWORD;
	AST_PARAMETER	: in  UNSIGNED_QUADWORD);
 
    pragma INTERFACE (EXTERNAL, ACME_AST_ROUTINE);
 
    pragma IMPORT_PROCEDURE (ACME_AST_ROUTINE, "acme$ast_routine",
	(ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD, UNSIGNED_QUADWORD,
	UNSIGNED_QUADWORD),
	(REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--	acme$ast_routine  kcb_vector, acme_context, wqe, wqe_context,
--				ast_context, rms_parameter
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	ast_context	= address of longword containing the AST context id
--			  (parameter) returned to the agent when acquiring
--			  the AST context
--	rms_context	= addesss of RMS structure associated with this AST
--			  (the ...$L_CTX field contains the AST parameter
--			  specified by the agent when acquiring the AST context)
--
 
    procedure ACME_RMSAST_ROUTINE (
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	AST_CONTEXT	: in  UNSIGNED_LONGWORD;
	RMS_CONTEXT	: in  UNSIGNED_LONGWORD_ARRAY);
 
    pragma INTERFACE (EXTERNAL, ACME_RMSAST_ROUTINE);
 
    pragma IMPORT_PROCEDURE (ACME_RMSAST_ROUTINE, "acme$rmsast_routine",
	(ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD, UNSIGNED_LONGWORD,
	UNSIGNED_LONGWORD_ARRAY),
	(REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  Agent Initialize
--
--	acme$co_agent_initialize  kcb_vector, acme_context, wqe
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--
 
    procedure ACME_CO_AGENT_INITIALIZE (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_AGENT_INITIALIZE);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_AGENT_INITIALIZE, "acme$co_agent_initialize",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  Agent Shutdown
--
--	acme$co_agent_shutdown  kcb_vector, acme_context, wqe
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--
 
    procedure ACME_CO_AGENT_SHUTDOWN (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_AGENT_SHUTDOWN);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_AGENT_SHUTDOWN, "acme$co_agent_shutdown",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  Agent Standby
--
--	acme$co_agent_standby  kcb_vector, acme_context, wqe
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--
 
    procedure ACME_CO_AGENT_STANDBY (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_AGENT_STANDBY);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_AGENT_STANDBY, "acme$co_agent_standby",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  Agent Startup
--
--	acme$co_agent_startup  kcb_vector, acme_context, wqe
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	concurrency_factor	= number indicating extent of parallelism
--
 
    procedure ACME_CO_AGENT_STARTUP (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	X_FACTOR	: in  UNSIGNED_LONGWORD);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_AGENT_STARTUP);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_AGENT_STARTUP, "acme$co_agent_startup",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_LONGWORD),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  EVENT function
--
--	acme$co_event   kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_EVENT (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_EVENT);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_EVENT, "acme$co_event",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  QUERY function
--
--	acme$co_query   kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_QUERY (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_QUERY);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_QUERY, "acme$co_query",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ACCEPT_PASSWORDS phase processing
--
--	acme$co_accept_passwords  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_ACCEPT_PASSWORDS (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_ACCEPT_PASSWORDS);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_ACCEPT_PASSWORDS, "acme$co_accept_passwords",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ACCEPT_PRINCIPAL phase processing
--
--	acme$co_accept_principal  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_ACCEPT_PRINCIPAL (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_ACCEPT_PRINCIPAL);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_ACCEPT_PRINCIPAL, "acme$co_accept_principal",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ANCILLARY_MECH_1 phase processing
--
--	acme$co_ancillary_mech_1  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_ANCILLARY_MECH_1 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_ANCILLARY_MECH_1);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_ANCILLARY_MECH_1, "acme$co_ancillary_mech_1",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ANCILLARY_MECH_2 phase processing
--
--	acme$co_ancillary_mech_2  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_ANCILLARY_MECH_2 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_ANCILLARY_MECH_2);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_ANCILLARY_MECH_2, "acme$co_ancillary_mech_2",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ANCILLARY_MECH_3 phase processing
--
--	acme$co_ancillary_mech_3  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_ANCILLARY_MECH_3 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_ANCILLARY_MECH_3);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_ANCILLARY_MECH_3, "acme$co_ancillary_mech_3",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD ANNOUNCE phase processing
--
--	acme$co_announce  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_ANNOUNCE (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_ANNOUNCE);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_ANNOUNCE, "acme$co_announce",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD AUTHENTICATE phase processing
--
--	acme$co_authenticate  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_AUTHENTICATE (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_AUTHENTICATE);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_AUTHENTICATE, "acme$co_authenticate",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD AUTHORIZE phase processing
--
--	acme$co_authorize  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_AUTHORIZE (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_AUTHORIZE);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_AUTHORIZE, "acme$co_authorize",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD AUTOLOGON phase processing
--
--	acme$co_autologon  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_AUTOLOGON (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_AUTOLOGON);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_AUTOLOGON, "acme$co_autologon",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD CREDENTIALS phase processing
--
--	acme$co_credentials  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_CREDENTIALS (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_CREDENTIALS);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_CREDENTIALS, "acme$co_credentials",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD FINISH phase processing
--
--	acme$co_finish  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_FINISH (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_FINISH);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_FINISH, "acme$co_finish",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD INITIALIZE phase processing
--
--	acme$co_initialize   kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_INITIALIZE (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_INITIALIZE);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_INITIALIZE, "acme$co_initialize",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD MAP_PRINCIPAL phase processing
--
--	acme$co_map_principal  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_MAP_PRINCIPAL (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_MAP_PRINCIPAL);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_MAP_PRINCIPAL, "acme$co_map_principal",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD LOGON_INFORMATION phase processing
--
--	acme$co_logon_information  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_LOGON_INFORMATION (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_LOGON_INFORMATION);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_LOGON_INFORMATION, "acme$co_logon_information",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD MESSAGES phase processing
--
--	acme$co_messages  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_MESSAGES (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_MESSAGES);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_MESSAGES, "acme$co_messages",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD NEW_PASSWORD_1 phase processing
--
--	acme$co_new_password_1  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_NEW_PASSWORD_1 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_NEW_PASSWORD_1);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_NEW_PASSWORD_1, "acme$co_new_password_1",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD NEW_PASSWORD_2 phase processing
--
--	acme$co_new_password_2  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_NEW_PASSWORD_2 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_NEW_PASSWORD_2);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_NEW_PASSWORD_2, "acme$co_new_password_2",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD NOTICES phase processing
--
--	acme$co_notices  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_NOTICES (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_NOTICES);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_NOTICES, "acme$co_notices",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD PASSWORD_1 phase processing
--
--	acme$co_password_1  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_PASSWORD_1 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_PASSWORD_1);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_PASSWORD_1, "acme$co_password_1",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD PASSWORD_2 phase processing
--
--	acme$co_password_2  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_PASSWORD_2 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_PASSWORD_2);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_PASSWORD_2, "acme$co_password_2",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD PRINCIPAL_NAME phase processing
--
--	acme$co_principal_name  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_PRINCIPAL_NAME (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_PRINCIPAL_NAME);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_PRINCIPAL_NAME, "acme$co_principal_name",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD QUALIFY_PASSWORD_1 phase processing
--
--	acme$co_qualify_password_1  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_QUALIFY_PASSWORD_1 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_QUALIFY_PASSWORD_1);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_QUALIFY_PASSWORD_1, "acme$co_qualify_password_1",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD QUALIFY_PASSWORD_2 phase processing
--
--	acme$co_qualify_password_2  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_QUALIFY_PASSWORD_2 (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_QUALIFY_PASSWORD_2);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_QUALIFY_PASSWORD_2, "acme$co_qualify_password_2",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD SET_PASSWORDS phase processing
--
--	acme$co_set_passwords  kcb_vector, acme_context, wqe, wqe_context,
--				item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_SET_PASSWORDS (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_SET_PASSWORDS);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_SET_PASSWORDS, "acme$co_set_passwords",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD SYSTEM_PASSWORD phase processing
--
--	acme$co_system_password  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_SYSTEM_PASSWORD (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_SYSTEM_PASSWORD);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_SYSTEM_PASSWORD, "acme$co_system_password",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
--
--  AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD VALIDATE_MAPPING phase processing
--
--	acme$co_validate_mapping  kcb_vector, acme_context, wqe, wqe_context,
--					item_list, acme_item_list
--
--	kcb_vector	= address of ACM Kernel Callback Vector
--	acme_context	= address of agent specific context
--	wqe		= address of ACM Work Queue Entry
--	wqe_context	= address of agent specific request context
--	item_list	= address of agent independent item list
--	acme_item_list	= address of agent specific item list
--
 
    procedure ACME_CO_VALIDATE_MAPPING (
	STATUS		: out COND_VALUE_TYPE;				-- return value
	KCB_VECTOR	: in  ACM_CALLBACK_VECTOR_TYPE;
	ACME_CONTEXT	: in out UNSIGNED_QUADWORD;
	WQE		: in  ACM_WORK_QUEUE_ENTRY_TYPE;
	WQE_CONTEXT	: in out UNSIGNED_QUADWORD;
	ITEM_LIST	: in  ITEM_LIST_TYPE;
	ACME_ITEM_LIST	: in  ITEM_LIST_TYPE);
 
    pragma INTERFACE (EXTERNAL, ACME_CO_VALIDATE_MAPPING);
 
    pragma IMPORT_VALUED_PROCEDURE (ACME_CO_VALIDATE_MAPPING, "acme$co_validate_mapping",
	(COND_VALUE_TYPE, ACM_CALLBACK_VECTOR_TYPE, UNSIGNED_QUADWORD, ACM_WORK_QUEUE_ENTRY_TYPE, UNSIGNED_QUADWORD,
	ITEM_LIST_TYPE, ITEM_LIST_TYPE),
	(VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE, REFERENCE));
 
end ACMEAGENT_CO_DEF;