         .OUTPI ALFRES
         .ENTRY XPACK

XPACK    JSR FALLOC    ALLOC RAM
         LDA #0
         STA STATE
XPA001   JSR FGETC     GET A CHAR
         BMI XPA002
         JSR PUTNCR
         BPL XPA001
         RTS
XPA002   JSR OFLUSH
         JSR CHKFIL
         RTS
