     .OUTPI ALFRES
     .ENTRY FALLOC

;Allocates the i/o buffers

FALLOC LDA #1
       JSR MALLOC  ;GET IT ALL
       STX IBUFF
       STY IBUFF+1
       LDA LEN+1
       CMP #$20    ;MORE THAN $2000?
       BCS FAL001
       LDX LEN
       STX IBMAX
       LSR A
       ROR IBMAX   SPLIT THE BUFFERS
       STA IBMAX+1
       JMP FAL002
FAL001 LDA #0      MAX INPUT IS 1F00
       STA IBMAX
       LDA #$1F
       STA IBMAX+1
FAL002 LDA IBUFF
       CLC
       ADC IBMAX
       STA OBUFF
       LDA IBUFF+1
       ADC IBMAX+1
       STA OBUFF+1
       LDA LEN
       SEC
       SBC IBMAX
       STA OBMAX
       LDA LEN+1
       SBC IBMAX+1
       STA OBMAX+1
       JSR FINIT     INIT FILES
       RTS
       