         .OUTPI ALFRES
         .ENTRY INDEX
         .VIRT8 BX,HPTR

;Index calculates the address of a given slot
;
INDEX    LDA BX
         STA HPTR
         LDA BX+1
         STA HPTR+1
         ASL HPTR    ;hptr=bx*5+htable
         ROL HPTR+1
         ASL HPTR
         ROL HPTR+1
         LDA HPTR
         CLC
         ADC BX
         STA HPTR
         LDA HPTR+1
         ADC BX+1
         STA HPTR+1
         LDA HPTR
         CLC
         ADC HTABLE
         STA HPTR
         LDA HPTR+1
         ADC HTABLE+1
         STA HPTR+1
         RTS
