;
; Transfer vector for VAX shareable image
;
.TITLE ENGINE
.IDENT /ENGINE/
;
; Define macro to assist in building transfer vector entries. Each entry
; should take no more than 8 bytes.
;
.MACRO FTRANSFER_ENTRY routine
.ALIGN QUAD
.TRANSFER routine
.MASK routine
JMP routine+2
.ENDM FTRANSFER_ENTRY
;
; Place entries in own program section.
;
.PSECT $$ENGINE,QUAD,PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT
ENGINE_xfer:
FTRANSFER_ENTRY bind_engine
FTRANSFER_ENTRY v_check
.BLKB 32768-<.-ENGINE_xfer> ; 64 pages total.
.END
'/>