.TITLE	VCI_JKT
	.IDENT	/X-5/

;++
;
; Copyright © 1996 Digital Equipment Corporation.
; All rights reserved.
;
; Redistribution and use in source and binary forms are permitted
; provided that the above copyright notice and this paragraph are
; duplicated in all such forms and that any documentation,
; advertising materials, and other materials related to such
; distribution and use acknowledge that the software was developed
; by Digital Equipment Corporation.  The name of the
; Corporation may not be used to endorse or promote products derived
; from this software without specific prior written permission.
; THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
; IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
; WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
;
;      Important Note:
;
;         This coding example uses privileged OpenVMS interfaces.
;         OpenVMS does not guarantee that these interfaces will
;         be supported indefinitely, and may change these interfaces
;         without prior notice.
;
; Jacket routines for calls between PPP and other VCMs; required to
; deal with calling sequences not supported by DECC.
;
;	X-5	FAK001		Forrest A. Kenney	04-September-2003
;		Add linkage directives for IA64.
;
; Barry Kierstein 17-December-1996
;                 Replaced the standard Digital copyright with
;                 one compatible with the CMU copyright.
;
; Barry Kierstein  1-August-1996
;                 Added "Important Note" disclaimer.
;
; Barry Kierstein 24-July-1996
;                 Corrected copyright notice.
;
; Patrick Crilly  13-December-1995
;		  Derived from similar jackets provided for XTI by Dave Porter
;
;--

	.PSECT 	$CODE,SHR,EXE,NOWRT,PIC,LONG

	.SBTTL	Call-outs

;++
; VCICALL
;
; Parameters:
;
;  4(AP) = address of target routine
;  8(AP) = address of VCRP
; 12(AP) = address of VCIB
;
; Return value:
;
; R0 = completion status
;
;--

	.ENTRY	VCICALL,^M<R3,R4>

	MOVL	8(AP),R3
	MOVL	12(AP),R4
	.USE_LINKAGE	LANGUAGE=OTHER
	JSB	@4(AP)
	RET

;++
; VCICREATE
;
; Parameters:
;
; 4(AP) = address of target routine
; 8(AP) = address of VCIB
;
; Return value:
;
; R0 = completion status
;
;--

	.ENTRY	VCICREATE,^M<R4>

	MOVL	8(AP),R4
	.USE_LINKAGE	LANGUAGE=OTHER
	JSB	@4(AP)
	RET

;++
; VCIDELETE
;
; Parameters:
;
;  4(AP) = address of target routine
; 8(AP) = address of VCIB
;
; Return value:
;
; R0 = completion status
;
;--

	.ENTRY	VCIDELETE,^M<R4>

	MOVL	8(AP),R4
	.USE_LINKAGE	LANGUAGE=OTHER
	JSB	@4(AP)
	RET

.END