1: ;
    2: ; Transfer vector for VAX shareable image
    3: ;
    4:         .TITLE ENGINE
    5:         .IDENT /ENGINE/
    6: ;
    7: ; Define macro to assist in building transfer vector entries.  Each entry
    8: ; should take no more than 8 bytes.
    9: ;
   10:         .MACRO FTRANSFER_ENTRY routine
   11:         .ALIGN QUAD
   12:         .TRANSFER routine
   13:         .MASK  routine
   14:         JMP    routine+2
   15:         .ENDM FTRANSFER_ENTRY
   16: ;
   17: ; Place entries in own program section.
   18: ;
   19:         .PSECT $$ENGINE,QUAD,PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT
   20: ENGINE_xfer:
   21:         FTRANSFER_ENTRY bind_engine
   22:         FTRANSFER_ENTRY v_check
   23:         .BLKB 32768-<.-ENGINE_xfer>    ; 64 pages total.
   24:         .END