;
;
	.SBTTL GENERAL AND FLOATING POINT REGISTER DEFINITIONS
;
.MACRO	FLODEF
	.IIF	EQ	LST$$	.LIST
	AC0	=	%0		;FLOATING ACUMULATOR 0
	AC1	=	%1		;FLOATING ACUMULATOR 1
	AC2	=	%2		;FLOATING ACUMULATOR 2
	AC3	=	%3		;FLOATING ACUMULATOR 3
	.IIF	EQ	LST$$	.NLIST
.ENDM	FLODEF
;
;
;
;
;
.MACRO	BITDEF
	.IIF	EQ	LST$$	.LIST
	BIT0	= 	000001
	BIT1	=	000002
	BIT2	=	000004
	BIT3	=	000010
	BIT4	=	000020
	BIT5	=	000040
	BIT6	=	000100
	BIT7	=	000200
	BIT8	=	000400
	BIT9	=	001000
	BIT10	=	002000
	BIT11	=	004000
	BIT12	=	010000
	BIT13	=	020000
	BIT14	=	040000
	BIT15	=	100000
	.IIF	EQ	LST$$	.NLIST
.ENDM	BITDEF
;
;

;
;
.MACRO	FNAMDEF
;
	.IIF	EQ	LST$$	.LIST
;
;		PRESETS
	DOT	=	000001		;FILENAME TERMINATOR
	COMMA	=	000002		;GROUP UIC TERMINATOR
	SEMI	=	000004		;EXTENSTION TERMINATOR
	COLON	=	000010		;DEVICE TERMINATOR
	OPEN	=	000020		;UIC START CHARACTER
	CLOSE	=	000040		;UIC MEMBER TERMINATOR
	NOCHAR	=	000100		;NO CHARACTER IS VALID TERMINATOR
	REMTERM	=	000200		;REMOVE TERMINATOR EXIT SLOT
	REMWILD	=	000400		;REMOVE WILDCARD EXIT
	OCTAL	=	001000		;INPUT CHARACTERS MUST BE OCTAL
	DECIMAL	=	002000		;INPUT CHARACTERS MUST BE DECIMAL
	NUMBER	=	004000		;CONVERT NUMBER BACK TO ASCII
	ALPHA	=	010000		;CHECK CHARACTERS ARE VALID ALPHAS
	RAD50	=	020000		;CHECK CHARACTERS ARE VALID R50
	SPECIAL	=	040000		;INPUT CHARACTERS CAN BE SPECIALS
	WILD	=	100000		;WILD CARD IS VALID IN THIS FIELD
;
	.IIF	EQ	LST$$	.NLIST
;
;
.ENDM	FNAMDEF
;
;
;
;
;
.MACRO	FILEFUN
;
	.IIF	EQ	LST$$	.LIST
;
;		FILENAME CONTROL FUNCTIONS
;
	.NOSY0	=	000001		;DO NOT ASSUME SY0: AS DEFAULT DEVICE
	.NOUIC	=	000002		;ALLOW DEFAULT UIC ONLY
	.NOWILD	=	000100		;WILD CARDS NOT ALLOWED
;
;		FILE CONTROL FUNCTIONS
;
	.BLOCK	=	100000		;THIS FCS OPERATION IS BLOCK TYPE
	.READ	=	000001		;THIS OPERATION IS NOT READ RECORD
	.WRITE	=	000002		;THIS OPERATION IS WRITE/CREATE
	.EXTEND	=	000004		;THIS OPERATION IS FILE EXTEND
	.FIX	=	000010		;THIS FILE HAS A FIXED LENGTH
;
	.IIF	EQ	LST$$	.NLIST
;
.ENDM	FILEFUN
;
;
;
;
;
	.END
;
;
;