; include macros

	INCDIR	MAC:
	INCLUDE	"sysmacs.i"
	INCLUDE	"libmacs.i"
	INCLUDE	"dosmacs.i"
	INCEQUS	ALL

;	STDOPT	DEBUG
	STDOPT

	INCLIB	string
	INCLIB	dos
	INCLIB	resource
	INCLIB	tube

; jump pc data
	INITSYS	DOS,VANILLA,CLI,NOWB
	MOVEQ	#20,D0
	MOVE.L	D0,ReturnCode(GP)

; Print relocation info.

	LIBBASE	exec,A6
	btst.b	#AFB_68010,AttnFlags+1(A6)
	beq.s	NoVBR
	move.l	A5,-(SP)
	lea	GetVBR(PC),A5
	CALL	Supervisor
	move.l	(SP)+,A5
	PRINTF	<'Vector Base: $%lx',10>,<D4>
	bra.s	ShowSysStack
NoVBR:
	PRINTF	<'This machine aint gots no vector base register',10>
ShowSysStack:
	PRINTF	<'System stack base: $%lx and top: $%lx',10>,<SysStkLower(A6),SysStkUpper(A6)>

; Done, purge the output buffer and cleanup

Exit:
	CLRERR
	CLR.L	ReturnCode(GP)
ErrorExit:
	STDERR
NoErrorStringSet:
	RTS

; Subroutines.

GetVBR:
	DC.W	$4E7A,$4801		;  movec.l VBR,D4
	RTE

	END