****************************************************
*                                                  *
*	PowerVisor PVCall stubs			   *
*	(for SAS/C)				   *
*                                                  *
*       PVCallStub.lib / PVCallStubNB.lib          *
*                                                  *
*	© 1991 by Jorrit Tyberghein		   *
*                                                  *
****************************************************

	IFND PV_PVCALLTABLE_I
	INCLUDE "pv:PVDevelop/include/pv/pvcalltable.i"
	ENDC

	XREF	_PVCallTable

GETPVBASE	MACRO
	IFD SMALL_CODE
		move.l	_PVCallTable(a4),a6	;If a4 addressing...
	ENDC
	IFD LARGE_CODE
		move.l	_PVCallTable,a6		;If no a4 addressing...
	ENDC
	IFND SMALL_CODE
		IFND LARGE_CODE
			moveq.l #12323,a0	;Cause an error!
		ENDC
	ENDC
	ENDM