.TITLE	LOGDA - IMPURE DATA AREAS
	.IDENT	/01.00/
	.LIST	MEB
;
; AUTHOR:	H. L. COLEMAN
;		MILLIKEN AND COMPANY
;		P. O. BOX 1926
;		MAIL STOP M-103
;		SPARTANBURG, S. C. 29304
;		(803)573-2556
;
; VERSION:	01.00
;
; DATE:		30-MAR-78
;
; MODIFICATIONS:
;
; FUNCTION:	IMPURE DATA AREAS
;
	.PAGE
; MACRO CALLS AND SYSTEM DEFINITIONS.
;
	.MCALL	FDBDF$,FDAT$A,FDRC$A,FDBK$A,FDOP$A,FSRSZ$A,NMBLK$A,NBOF$L
	.MCALL	FDOF$L,FCSBT$
	.MCALL	GMCR$
	NBOF$L				;DEFINE FNB OFFSETS
	FDOF$L				;DEFINE FDB OFFSETS
	FCSBT$				;DEFINE FCS BITS
	.PAGE
; LOG FILE DEFINITION
;
LOGFL::	FDBDF$
	FDAT$A	R.FIX,,512.,-25.,-25.
	FDRC$A	FD.RWM
	FDBK$A	,512.,,2,LIOSB
	FDOP$A	2,,LFNB,FO.WRT,FA.ENB!FA.RWD!20.
	FSRSZ$	0
LFNB==LOGFL+F.FNB
LIOSB::	.WORD	1,0		;LOG FILE IOSB
CURBUF::.WORD	LBUF1		;A(CURRENT LOG FILE BUFFER)
NXTBUF::.WORD	LBUF2		;A(NEXT LOG FILE BUFFER)
LBUF1::	.BLKW	256.		;LOG FILE BUFFER
LBUF2::	.BLKW	256.		;LOG FILE BUFFER
	.PAGE
; MESSAGES
;
PFX::	.BYTE	PRMT-PFX-1
	.ASCII	/LOG -/
PRMT::	.BYTE	M001-PRMT-1
	.ASCII	/LOG>/
M001::	.BYTE	M002-M001-1
	.ASCII	/NOT A PRIVLEDGED TERMINAL/
M002::	.BYTE	M003-M002-1
	.ASCII	/SYNTAX ERROR/
M003::	.BYTE	M004-M003-1
	.ASCII	/INVALID DEVICE/
M004::	.BYTE	M005-M004-1
	.ASCII	/INVALID LOG FILE SPECIFICATION/
M005::	.BYTE	M006-M005-1
	.ASCII	/INVALID LOG DEVICE/
M006::	.BYTE	M007-M006-1
	.ASCII	/ERROR FINDING DIRECTORY/
M007::	.BYTE	M008-M007-1
	.ASCII	/I-O ERROR ON LOG FILE/
M008::	.BYTE	M009-M008-1
	.ASCII	/ERROR CLOSING LOG FILE/
M009::	.BYTE	M010-M009-1
	.ASCII	/IOSB = /
M009I::	.ASCII	/        /
	.ASCII	/FDB ERROR TYPE = /
M009T::	.ASCII	/  /
	.ASCII	/FDB ERROR CODE = /
M009F::	.ASCII	/        /
M010::	.BYTE	M011-M010-1
	.ASCII	/LOGGING EDDED/
M011::	.BYTE	M012-M011-1
	.ASCII	/LOG FILE OPEN ERROR/
M012::	.BYTE	0
	.EVEN
	.PAGE
; CONSTANTS AND WORK AREAS
;
MCRLIN::GMCR$			;COMMAND BUFFER
PARBUF::			;PARSE BUFFER
PARDEV::.ASCII	/  /		;DEVICE NAME
PARUN::	.WORD	0		;UNIT NUMBER
PARUIC::.BYTE	0,0		;UIC
PARFNM::.RAD50	/         /	;FILE NAME
PARTYP::.RAD50	/   /		;FILE TYPE
PARVER::.WORD	0		;FILE VERSION NUMBER
PARFLG::.WORD	0		;PARSE (FNB) FLAGS
DEFBUF::.ASCII	/SY/		;LOG FILE DEFAULTS
	.WORD	0
	.BYTE	0,0
	.RAD50	/TTLOG    LOG/
	.WORD	0
TIDEF::	.ASCII	/TI: /		;TERMINAL DEFAULT
	.EVEN
TTUCB::	.WORD	0		;A(UCB OF TERMINAL BEING LOGGED)
LOGLST::.WORD	0		;A(LOG QUEUE LISTHEAD)
FNBYT::	.BYTE	0
CHAR::	.BYTE	0
	.EVEN
LOGBUF::.WORD	0		;A(LOG BUFFER)
LINCNT::.WORD	0		;LINE COUNT
TTWK::	.BLKW	3
	.PAGE
; SYMBOL DEFINITIONS
;
ANYWC==NB.SVR!NB.STP!NB.SNM!NB.SD1!NB.SD2
	.END