         .OUTPI ALFRES
         .ENTRY WRTCHR,IOEXIT
         .VIRT8 OPTR,AX

WRTCHR   LDY #0
         LDA AX
         STA (OPTR),Y ;Store the character
         CLC
         ADC TCRC
         STA TCRC
         LDA #0
         ADC TCRC+1
         STA TCRC+1
         INC OPTR
         BNE WRT001
         INC OPTR+1
WRT001   INC OBUFL
         BNE WRT002
         INC OBUFL+1
WRT002   LDA OBUFL+1 ;Reached buffer limit ?
         CMP MAXBUF+1
         BCC WRT004
         LDA OBUFL
         CMP MAXBUF
         BCC WRT004
         LDA OUTBUF
         STA ADR
         LDA OUTBUF+1
         STA ADR+1
         LDA OBUFL
         STA LEN
         LDA OBUFL+1
         STA LEN+1
         LDX #D2
         JSR BPUT    ;Flush the buffer
         BPL WRT003
         LDX #.LO.ERRM06
         LDY #.HI.ERRM06
         JSR SCRPRT
IOEXIT   PLA
         PLA
         PLA
         PLA
         JMP DEXIT
WRT003   LDA OUTBUF
         STA OPTR
         LDA OUTBUF+1
         STA OPTR+1
         LDA #0
         STA OBUFL
         STA OBUFL+1
WRT004   RTS
