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

	IFND	LIBRARIES_KONWERSJA_LIB_I
	include "libraries/konwersja_lib.i"
	ENDC

	XREF	_KonBase

GETKONBASE	MACRO
	IFD	SMALL_CODE
	move.l	_KonBase(a4),a6 ; Dla adresowania wzglëdem a4...
	ENDC
	IFD	LARGE_CODE
	move.l	_KonBase,a6	; Dla adresowania bezpoôredniego...
	ENDC
	IFND	SMALL_CODE
	IFND	LARGE_CODE
	move.l	#12323,a0	; Spowodowanie bîëdu!
	ENDC
	ENDC
	ENDM