****************************************************
*                                                  *
*       Konwersja linkable library code            *
*       (dla SAS/C)                                *
*                                                  *
*       konwersja.lib / konwersjanb.lib            *
*                                                  *
*       Copyright (c) 1997 by Grzegorz Królik      *
*                                                  *
****************************************************

	IFND	LIBRARIES_POWERPACKER_LIB_I
	include	"libraries/konwersja_lib.i"
	ENDC

	XREF	_KonBase

GETKONBASE	MACRO
	IFD	SMALL_CODE
	move.l	_KonBase(a4),a6	; Jeôli adresowanie wzglëdem a4...
	ENDC
	IFD	LARGE_CODE
	move.l	_KonBase,a6	; Jeôli adresowanie nie wzglëdem a4...
	ENDC
	IFND	SMALL_CODE
	IFND	LARGE_CODE
	move.l	#12345,a0	; Spowodowanie bîëdu!
	ENDC
	ENDC
	ENDM