;
; VECTOR.MAR -- Macro to set up a transfer vector.
;
;	    This macro is used to set up transfer vectors into
;	shareable image library routines. 
;
	.TITLE	EVALUATE_VECTOR
	.IDENT	"1-001"

	.MACRO	VECTOR	ROUTINE_ADDRESS
	.EXTRN		ROUTINE_ADDRESS
	.ALIGN	QUAD
	.TRANSFER	ROUTINE_ADDRESS
	.MASK		ROUTINE_ADDRESS
	JMP		ROUTINE_ADDRESS + 2
	.ENDM

	.PSECT	$$$$VECTOR	PIC, USR, CON, REL, LCL, -
				SHR, EXE, RD, NOWRT, QUAD
;++
;
; Define tranfer vectors with the code
;
;		VECTOR	routine-name
;
;++
	VECTOR	EVALUATE
	.END