.TITLE	XPORT_EXAMPLE_XFER	- Transfer vectors for network-specific library
	.IDENT	'V-1'

;
;****************************************************************************
;*									    *
;*  COPYRIGHT (c) 1989 BY						    *
;*  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
;*  ALL RIGHTS RESERVED.						    *
;* 									    *
;*  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
;*  ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
;*  INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
;*  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
;*  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   *
;*  TRANSFERRED.							    *
;* 									    *
;*  THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
;*  AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
;*  CORPORATION.							    *
;* 									    *
;*  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
;*  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
;* 									    *
;*									    *
;****************************************************************************
;
;++
;   FACILITY:
;
;	VAX/VMS DECWindows Transport - Network-specific Transport
;
;   ABSTRACT:
;
;	Generate the transfer vectors for a shareable library.
;
;   ENVIRONMENT:
;
;	Native mode, any mode
;
;   AUTHOR:
;
;	Peter Vatne		01-Jun-1989
;
;   MODIFIED BY:
;
;--

	.SBTTL	Declarations
;
; Define TRANSFER macro to set up external entry points.
;
	.MACRO	TRANSFER	ENTRY_POINT

	.ALIGN	QUAD			; Align on 8-byte boundary
	.TRANSFER 'ENTRY_POINT'		; Define universal symbol here
	.MASK	'ENTRY_POINT'		; Copy routine's entry mask
	JMP	G^'ENTRY_POINT'+2	; Jump directly to routine

	.ENDM	TRANSFER

;
; Define FILL_TRANSFER macro to handle obsolete entry points.
;

	.MACRO	FILL_TRANSFER

	.ALIGN	QUAD			; Align on 8-byte boundary
	.BLKB	8			; Pad each entry to 8 bytes

	.ENDM	FILL_TRANSFER

;
; Define TRANSFER_JSB macro to set up external JSB entry points.
;

	.MACRO	TRANSFER_JSB	ENTRY_POINT

	.ALIGN	QUAD			; Align on 8-byte boundary
	.TRANSFER 'ENTRY_POINT'		; Define universal symbol here
	JMP	G^'ENTRY_POINT'		; Jump directly to routine

	.ENDM	TRANSFER_JSB

	.SBTTL	Define transfer vectors

;
; NOTE: These transfer vectors cannot change.  Add new vectors at the
;	end -- replace obsolete vectors with dummy FILL_TRANSFER entries.
;

	.PSECT	$TRANSFER$	PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,QUAD

	TRANSFER DECW$TRANSPORT_INIT	; Transport initialization routine

	.END