         .OUTPI ALFRES
         .ENTRY SETUP
;WRITES THE INITIAL HEADER BLOCK
SETUP    LDA #.LO.HDR
         STA ADR
         LDA #.HI.HDR
         STA ADR+1
         LDA #.LO.HDRL
         STA LEN
         LDA #.HI.HDRL
         STA LEN+1
         LDX #D2
         JSR CNOTE
         LDA SECT
         STA OLDPTR
         LDA SECT+1
         STA OLDPTR+1
         LDA SECT+2
         STA OLDPTR+2
         LDX #D2
         JSR BPUT    ;Go write it
         LDX #3
         LDA #0
SET001   STA CMPSIZ,X
         STA LENGTH,X
         DEX
         BPL SET001
         RTS
