         .OUTPI ALFRES
         .ENTRY RELOAD

RELOAD   LDA CMPSIZ+2
         ORA CMPSIZ+3
         BEQ REL002
REL001   JSR BGET
         JSR DECCMP
         RTS
REL002   LDA CMPSIZ+1
         CMP LEN+1
         BCC REL003             ;USE CMPSIZ IF SMALLER
         BEQ REL010             ;CHK LSB
         BCS REL001             ;USE LEN, CMPSIZ TOO BIG
REL010   LDA CMPSIZ
         CMP LEN
         BCC REL003
         BEQ REL003
         BCS REL001
REL003   LDA CMPSIZ
         STA LEN
         LDA CMPSIZ+1
         STA LEN+1
         LDA LEN
         ORA LEN+1
         BEQ REL004
         JSR BGET
REL004   LDY #$88    ;Say eof
         JSR DECCMP
         RTS
