****************************************************
*                                                  *
*       ReqTools linkable library code             *
*       (for SAS/C)                                *
*                                                  *
*       reqtools.lib / reqtoolsnb.lib              *
*                                                  *
*       Copyright (c) 1991 by Nico François        *
*                                                  *
****************************************************

	IFND LIBRARIES_REQTOOLS_LIB_I
	include "libraries/reqtools_lib.i"
	ENDC

	XREF	_ReqToolsBase

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