         .OUTPI ALFRES
         .ENTRY ZERBUF
         .VIRT8 ZPAG
;ZEROES THE OUTPUT BUFFER
ZERBUF   LDA BITOFF
         STA ZPAG
         LDA BITOFF+1
         STA ZPAG+1
         LDX #2
ZER001   LSR ZPAG+1
         ROR ZPAG    ;Get offset
         DEX
         BPL ZER001
         LDA OUTBUF
         CLC
         ADC ZPAG
         STA ZPAG
         LDA OUTBUF+1
         ADC ZPAG+1
         STA ZPAG+1
         LDA BITOFF
         AND #$07    ;A byte boundary?
         BEQ ZER002
         INC ZPAG
         BNE ZER002
         INC ZPAG+1
ZER002   LDA OUTBUF
         CLC
         ADC MAXBUF
         STA ZLEN
         LDA OUTBUF+1
         ADC MAXBUF+1
         STA ZLEN+1  ;Fix endpoint
         LDY #0
         TYA
ZER003   LDX ZPAG+1
         CPX ZLEN+1
         BCC ZER004
         LDX ZPAG
         CPX ZLEN
         BCC ZER004
         RTS
ZER004   STA (ZPAG),Y
         INC ZPAG
         BNE ZER003
         INC ZPAG+1
         BNE ZER003
         BEQ ZER003
