.title	PROTO_ACTION	MAIL alternate protcol action table
; +
; PROTO_ACTION	Generate a table of action routines for LNK_C_xxx operations
;
; Author:	Nick de Smith
; Date  :	27-Oct-87
; Description:
; This routine is used to generate a dispatch table for the required routines
; for an alternate protocol for VMSMAIL. The table is read by MAIL$PROTOCOL in
; module PROTO.C.
;
; Edit	Edit date	By	Why
;  01	05-May-87	NMdS	First attempt
;--
	.Ident	/V01.01/
;
; We use .WEAK so that undefined routines have a 0 entry in the table.
; The dispatch code in MAIL$PROTOCOL handles this.
;
.weak	PROTO_OUT_CONNECT, PROTO_OUT_SENDER, PROTO_OUT_CKUSER, PROTO_OUT_TO,-
	PROTO_OUT_SUBJ, PROTO_OUT_FILE, PROTO_OUT_CKSEND, PROTO_OUT_DEACCESS,-
	PROTO_IN_CONNECT, PROTO_IN_SENDER, PROTO_IN_CKUSER, PROTO_IN_TO,-
	PROTO_IN_SUBJ, PROTO_IN_FILE, PROTO_IO_READ, PROTO_IO_WRITE
;+
; Dispatch table for alternate protocol action routines.
;
; ***  The order of routines in this table is critical.  ***
; *** It is the same as the sequence of LNK_C_xxx values ***
; *** from LNKDEF in module MAILDEF. Do not ever add to  ***
; *** the middle or start of this list.                  ***
;-
	.psect	$code	rd, nowrt, exe, shr, pic, long
mai$r_action::						; Accessed by MAIL$PROTOCOL
	.address	 PROTO_OUT_CONNECT
	.address	 PROTO_OUT_SENDER
	.address	 PROTO_OUT_CKUSER
	.address	 PROTO_OUT_TO
	.address	 PROTO_OUT_SUBJ
	.address	 PROTO_OUT_FILE
	.address	 PROTO_OUT_CKSEND
	.address	 PROTO_OUT_DEACCESS
	.address	 PROTO_IN_CONNECT
	.address	 PROTO_IN_SENDER
	.address	 PROTO_IN_CKUSER
	.address	 PROTO_IN_TO
	.address	 PROTO_IN_SUBJ
	.address	 PROTO_IN_FILE
	.address	 PROTO_IO_READ
	.address	 PROTO_IO_WRITE
mai$c_max_operation == <. - mai$r_action - 1>/4		; Maximim allowed operation number
	.end