;       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