         .OUTPI ALFRES
         .ENTRY FLUSH

FLUSH    LDA OBUFL
         ORA OBUFL+1
         BNE FLU001  ;Go write it out
         RTS
FLU001   LDA OUTBUF
         STA ADR
         LDA OUTBUF+1
         STA ADR+1
         LDA OBUFL
         STA LEN
         LDA OBUFL+1
         STA LEN+1
         LDX #D2
         JSR BPUT
         RTS
