tokenHook:
     .db $83
     push hl
     ld hl,TokenTable
     add hl,de
     ld a,(hl)
     inc hl
     or (hl)
     jr z,NoChange
     ld h,(hl)
     ld l,a
     ex (sp),hl
NoChange:
     pop hl
     ret