         .OUTPI ALFRES
         .ENTRY UPDHDR
;REWRITES THE ARC HEADER BLOCK AND REOPENS THE FILE
UPDHDR   LDX #D2
         JSR CLOSE
         JSR SPDATE     ;GET SPARTA D/T
         PHA          ;SAVE THE MM
         TYA
         SEC
         SBC #80      ;CALC THE OFFSET
         STX KEY
         TAX
         PLA
         TAY
         LDA KEY
         JSR PKDTE    ;PACK THE DATE
         STX DATE
         STY DATE+1
         JSR SPTIME
         JSR PKTIM
         STX TIME
         STY TIME+1
         LDX #D2
         LDA #.LO.OFILE
         LDY #.HI.OFILE
         JSR OPNUPD
         LDA OLDPTR             ;POINT BACK TO START OF FILE
         STA SECT
         LDA OLDPTR+1
         STA SECT+1
         LDA OLDPTR+2
         STA SECT+2
         LDX #D2
         JSR CPOINT
         LDA #.LO.HDR
         STA ADR
         LDA #.HI.HDR
         STA ADR+1
         LDA #.LO.HDRL
         STA LEN
         LDA #.HI.HDRL
         STA LEN+1
         JSR BPUT
         LDX #D2
         JSR CLOSE
         LDX #D2
         LDA #.LO.OFILE
         LDY #.HI.OFILE
         JSR OPNAPP
         RTS
