;	Alphawrite header analysis  (works on v1.2)
;	Author Iain Fraser, Mortimer Technology Ltd, 1987
;
;       See AWUTIL.DOC for more info

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM

	EXTERN	$ODTIM

	OBJNAM	.LIT

	VMAJOR	=1.
	VMINOR	=0
	VEDIT	=100.

	PHDR	-1,,PH$REE!PH$REU

WRID:
	BYP					; strip leading spaces
	TRM					; terminator on input line?
	BNE	PACKFL
	CRLF
	TYPECR	No filename supplied
	JMP	ENDPRG
PACKFL:	FSPEC	INFIL,WRT			; pack filename into DDB
	INIT	INFIL				; initialise DDB
	LOOKUP	INFIL				; file exists?
	BEQ	OPFIL
	CRLF
	TYPECR	File does not exist
	JMP	ENDPRG
OPFIL:
	OPENI	INFIL
	MOV	#13.,D2
F1:	FILINB	INFIL
	DBF	D2,F1
	MOV	#59.,D2
DESC:	FILINB	INFIL
	TTY
	DBF	D2,DESC
	CRLF
	MOV	#19.,D2
AUTH:	FILINB	INFIL
	TTY
	DBF	D2,AUTH
	TYPE	:
	MOV	#5.,D2
DEPT:	FILINB	INFIL
	TTY
	DBF	D2,DEPT
	TYPE	:
	MOV	#19.,D2
OPER:	FILINB	INFIL
	TTY
	DBF	D2,OPER
	TYPE	:
	CLOSE	INFIL
	MOV	#11.,D2
F2:	FILINB	INFIL
	DBF	D2,F2
	FILINL	INFIL
	MOV	D1,D3
	MOVW	#41000,D5
	MOV	#0,A2
	CALL $ODTIM
	TYPE	:
	MOV	#3.,D2
F3:	FILINB	INFIL
	DBF	D2,F3
	FILINL	INFIL
	MOV	D1,D3
	MOVW	#41000,D5
	MOV	#0,A2
	CALL $ODTIM
ENDPRG:	CRLF
	EXIT

INFIL:	BLKB	D.DDB
	EVEN

	END


.