.PAGE
	.IIF	EQ	$$$LST	.NLIST
	.TITLE	RMSDFN
	.IDENT	/01.00/
	.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:							   H
;O									   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
	;
	;
	;
	;GLOBAL DEFINITIONS
	;
	;
	;
	SP$BLN	==	32.		;SIZE OF A FILESPEC BLOCK
	XX$LUN	==	-1		;NO LUN SPECIFIED
	XX$OPN	==	-2		;FILE ALREADY OPENED/CLOSED
	XX$ALL	==	-3		;INTERNAL ALLOCATION ERROR
	XX$STM	==	-4		;STREAM ALREADY CONNECTED/DISCONNECTED
	XX$KEY	==	-5		;ILLEGAL KEY NUMBER FOR THIS FILE
	XX$NOP	==	-6		;NO OPERATION POSSIBLE
	XX$RFA	==	-7		;ILLEGAL PUT OPERATION (RFA MODE)
	XX$RAC	==	-8.		;ILLEGAL RECORD ACCESS MODE
	XX$FAC	==	-9.		;ILLEGAL FILE ACCESS RIGHTS REQUESTED
	;
	;
	;
	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