         .OUTPI ALFRES
         .ENTRY DECCMP

DECCMP   LDA CMPSIZ
         SEC
         SBC LEN
         STA CMPSIZ
         LDA CMPSIZ+1
         SBC LEN+1
         STA CMPSIZ+1
         LDA CMPSIZ+2
         SBC #0
         STA CMPSIZ+2
         RTS
