code 'word', $word
        mov edi,[tin]           ; Pointer into TIB
        mov ecx,[tp]
        sub ecx,edi
        inc ecx
        repe scasb
        dec edi
        inc ecx
        dup
        mov [esi],edi           ;a
        repne scasb
        mov eax,edi
        dec eax
        sub eax,[esi]           ;n
        mov [tin],edi
next
