.PAGE
	.IIF	EQ	$$$LST	.NLIST
	.TITLE	RMSDFN
	.IDENT	/01.02/
	.NLIST	BEX	
	;
	;
	;
;BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON
;B									   B
;R	PURPOSE: DEFINE DATA AREAS FOR RMS-FTN INTERFACE		   R
;I									   I
;D									   D
;G	AUTHOR: ARTHUR P. GAUGHAN, JR.					   G
;E									   E
;P	DATE: 5/31/78							   P
;O									   O
;R	GLOBAL SYMBOLS DEFINED IN THIS MODULE: SEE LISTING		   R
;T									   T
;!	GLOBAL SYMBOLS REFERENCED IN THIS MODULE:			   !
;T									   T
;E									   E
;X									   X
;T									   T
;R									   R
;O	INPUTS: CONFIGURATION DEPENDENT PARAMETERS VIA COMMAND PREFIX FILE O
;N									   N
;!	OUTPUTS:							   !
;!									   !
;H	HOUSEKEEPING: ADD SUPPORT FOR APPROX MATCH APG JAN 18-19 1979	   H
;O		      REMOVE ERROR MASKS AND CONSTANTS 4-DEC-79 APG	   O
;R									   R
;S	NOTES: SUPPORTS INDEXED ORGANIZATION ONLY			   S
;H									   H
;A									   A
;M									   M
;BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON
	;
	;
	;
	.MCALL	ORG$,POOL$B,FABOF$,RABOF$,XABOF$
	;
	;
	;
	FABOF$	RMS$L
	RABOF$	RMS$L
	XABOF$	RMS$L
	;
	;
	;
	ORG$	IDX,<FIN,GET,PUT,UPD,DEL>
	POOL$B
	P$BDB	<4*NOPEN>
	P$FAB	NOPEN
	P$RABX	NOPEN,BIGKEY,NCHGES
	P$IDX	NKEYS
	P$BUF	<<<512.*2>*NOPEN>>
	POOL$E
	;
	;
	;
	.PSECT	$$$RMS
$$$RMS::
	.WORD	..FREE
	.WORD	0
..FREE:
	.WORD	0
$$$SIZ=	<<<FB$BLN+10>+<RB$BLN+10>>*NOPEN>
	.WORD	$$$SIZ
	.BLKB	$$$SIZ
	;
	;
	;
	.PSECT	$$$FAB
$$$FAB::
	.BLKW	<MAXLUN+1>		;ACCOUNT FOR LUN '0'
	;
	;
	;
	.PSECT	$$$RAB
$$$RAB::
	.BLKW	<MAXLUN+1>		;ACCOUNT FOR LUN '0'
	;
	;
	;
	.PSECT	$$$SYS
DEFALT::
	.ASCII	/SY0:/
DEFSIZ==<.-DEFALT>
	;
	;
	;
	.PSECT
	;
	;
	;
	;///////////////////////////////////////////////////////////////////////
	.END