IDNT	VBR
		SECTION	text,CODE

		INCLUDE	"exec/execbase.i"

		MACHINE	MC68010


		XREF	_RawPrintfFunc

		XDEF	@GetVBR,@SetVBR

@GetVBR:	movem.l	d1/a0-a1/a5/a6,-(SP)
		moveq.l	#0,d0				; Default-Resultat
		lea	GetSupie(PC),a5
		bra.s	CommCont


@SetVBR:	movem.l	d1/a0-a1/a5/a6,-(SP)
		lea	SetSupie(PC),a5

CommCont:	movea.l	4.W,a6
		btst.b	#AFB_68010,AttnFlags+1(a6)	; 68010 oder neuer
		beq.s	1$				; nein --->
		jsr	-30(a6)				; Supervisor ; Get/Set VBR
1$:
		movem.l	(SP)+,d1/a0-a1/a5/a6
		rts

GetSupie:	movec.l	vbr,d0
		move.l	d0,-(SP)
		pea	GetText(PC)
		bsr	_RawPrintfFunc
		addq.w	#8,SP
		rte

SetSupie:	movec.l	a0,vbr
		move.l	d0,-(SP)
		pea	SetText(PC)
		bsr	_RawPrintfFunc
		addq.w	#8,SP
		rte


GetText:	dc.b	"GetVBR -> $%08lx",10,0
SetText:	dc.b	"SetVBR($%08lx)",10,0


		END