f transfer.mac
r transfer.gl
g/%?*$/s//	.TRANSFER	&@n	.MASK	&@n	JMP	L^&+2/
1i
	.TITLE	TRANSFER_V
	.PSECT	TRANSFER_VECT	EXE,NOWRT,PIC,SHR,GBL
.
$a
	.END
.
w
q