Func CreateChatLog()
    _('ChatLogProc:')

    _('pushad')
    _('mov ecx,dword[esp+1F4]')
    _('mov ebx,eax')
    _('mov eax,dword[ChatLogCounter]')
    _('push eax')
    _('shl eax,9')
    _('add eax,ChatLogBase')
    _('mov dword[eax],ebx')

    _('mov edi,eax')
    _('add eax,4')
    _('xor ebx,ebx')

    _('ChatLogCopyLoop:')
    _('mov dx,word[ecx]')
    _('mov word[eax],dx')
    _('add ecx,2')
    _('add eax,2')
    _('inc ebx')
    _('cmp ebx,FF')
    _('jz ChatLogCopyExit')
    _('test dx,dx')
    _('jnz ChatLogCopyLoop')

    _('ChatLogCopyExit:')
    _('push 4')
    _('push edi')
    _('push CallbackEvent')
    _('push dword[CallbackHandle]')
    _('call dword[PostMessage]')

    _('pop eax')
    _('inc eax')
    _('cmp eax,ChatLogSize')
    _('jnz ChatLogSkipReset')
    _('xor eax,eax')
    _('ChatLogSkipReset:')
    _('mov dword[ChatLogCounter],eax')
    _('popad')

    _('ChatLogExit:')
    _('add edi,E')
    _('cmp eax,B')
    _('ljmp ChatLogReturn')
EndFunc   ;==>CreateChatLog