mov   a,BSNCcost            ;get color
           mov   dptr,#BSNjcol
           jmp   @a+dptr
                       
BSNjcol:   sjmp  BSNr2                 ; read 1/2 time 
           sjmp  BSNr4
           sjmp  BSNr8
            ; etc