         .OUTPI ALFRES
         .ENTRY ADDCDE
         .VIRT8 BX,AX,HPTR
;Add a code to the table

ADDCDE   LDA FRECDE
         STA BX
         LDA FRECDE+1
         STA BX+1
         JSR INDEX
         LDA SAVK
         STA AX
         LDY #HCHAR
         STA (HPTR),Y
         LDA OLDCDE
         STA AX
         LDA OLDCDE+1
         STA AX+1
         LDY #HNEXT
         LDA AX
         STA (HPTR),Y
         INY
         LDA AX+1
         STA (HPTR),Y
         INC FRECDE
         BNE ADD001
         INC FRECDE+1
ADD001   RTS
