****************************************************
*                                                  *
*       PowerPacker linkable library code          *
*       (for SAS/C)                                *
*                                                  *
*       pp.lib / ppnb.lib                          *
*                                                  *
*       Copyright (c) 1991 by Nico François        *
*                                                  *
****************************************************

	IFND LIBRARIES_POWERPACKER_LIB_I
	include "libraries/powerpacker_lib.i"
	ENDC

	XREF	_PPBase

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