25 lines
532 B
Plaintext
25 lines
532 B
Plaintext
;
|
|
; 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
|