****************************************************
*                                                  *
*       I2C linkable library code                  *
*       (for SAS/C)                                *
*                                                  *
*       i2c.lib / i2cnb.lib                        *
*                                                  *
*       Copyright (c) 1993 by Brian Ipsen          *
*                                                  *
****************************************************

	XREF	_I2C_Base

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