JUMPPTR GetVBR
	SECTION test,CODE_C
GetVBR:					;-->d0
	MOVEM.L A5-A6,-(SP)
	moveq #0,d0
	move.l 4.w,a6
	btst #0,297(a6)
	beq.s .noacc
	lea .VBRtoA2(PC),a5
	jsr -30(a6)
.noacc:	MOVEM.L (SP)+,A5-A6
	RTS
.VBRtoA2:
	dc.w $4e7a,$0801		;=movec VBR,d0; $0801=reg"0"=d0
	RTE