         .OUTPI ALFRES
         .ENTRY INITBL
         .VIRT8 HPTR
;Init_Table clears the slots and sets them up
;
INITBL   LDA #9      ;Set nbits to 9
         STA NBITS
         LDA #.LO.512
         STA MAXCDE
         LDA #.HI.512
         STA MAXCDE+1
         LDA #.LO.FIRSTF
         STA FRECDE
         LDA #.HI.FIRSTF
         STA FRECDE+1
         LDA HTABLE
         STA HPTR
         LDA HTABLE+1
         STA HPTR+1
         LDX #0
INI001   LDY #3
         LDA #$FF
INI002   STA (HPTR),Y
         DEY
         BPL INI002
         LDA HPTR
         CLC
         ADC #5
         STA HPTR
         BCC INI003
         INC HPTR+1
INI003   INX
         BNE INI001
         RTS
