WebSVN – Kolibri OS – Diff – /programs/network/icq/trunk/ki.asm

-; <--- description --->
 ; compiler:     FASM 1.67.21
-; name:         ICQ for Kolibri
+; name:         ICQ client for Kolibri
-; version:      0.01
+; version:      0.1.30
 ; written by:   LV
-; e-mail:       lv4evil@ya.ru
+; e-mail:       lv4evil@yandex.ru
-; <--- include all MeOS stuff --->
 include "lang.inc"
-include "../../../macros.inc"
+include "MACROS.INC"
-purge mov
+;purge mov
 ;include "ASCL9/ascl.inc"
-;include "debug.inc"
-include "EDITBOX.INC"
+;include "debug.inc"
 include "editbox.inc"
 ; <--- start of MenuetOS application --->
 MEOS_APP_START
+;include "debug.inc"
+include "2000.inc"
+include "comp.inc"
 ;include "fsio.inc"
+include "dos2win.inc"
+include "parser.inc"
+include "ssi.inc"
-;include "debug.inc"
+use_edit_box procinfo,22,5
+;
+; á«¨ == 0, ª®¤ ¤«ï ¨á¯®«ì§®¢ ¨ï ª®â ªâ «¨áâ
-include "2000.inc"
+;   á¥à¢¥à¥ ¥  áá¥¬¡«¨àã¥âáï
 include "comp.inc"
 USE_SSI = 1
 use_edit_box procinfo,22,5
+;
+CODE
+    ;mov eax, 40
+    ;mov ebx, 47h
+    ;int 40h
+    ;
+    ;  £àã§ª  ª®ä¨£®¢
+    ;
+    mov  eax, fname
+    call    parseconf
+    ;
+    ; ë¢®¤ § £àã¦¥®© ¨ä®à¬ æ¨¨
+    ;
 ; <--- start of code --->
-CODE
+    mov eax, cfg_message
     xor ebx, ebx
+    call writemsg
-    ;mov eax, 40
-    ;mov ebx, 47h
+    call showcfg
     ;int 40h
     ;call    loaduin
-    call    loaduin
+    call    draw_window 	   ; at first create and draw the window
     call    draw_window 	   ; at first create and draw the window
     je	    button		   ;     jump to button handler
+    ;
     ; ¤¥¬ ¤ ëå
-    ;
-    mov     eax, 53
-    mov     ebx, 2
+    ;
-    push    ecx
-    mov     ecx, [socket]
-    int     0x40
-    pop     ecx
+    mcall 53,2,[socket]
     cmp     eax, 0
     jnz     read_socket
     mouse_edit_box inputbox
     ;
     ; á«¨ ¥áâì á®¥¤¨¥¨¥ á á¥à¢¥à®¬, ¯®áë« ¥¬ ¯ ª¥âë - ¯®¤â¢¥¦¤¥¨ï ª ¦¤ë¥ 60 á
     ; ¥ âà¥¡ã¥âáï
-    call    sendkeep
+;    call    sendkeep
     jmp     wait_event		   ;   else return to the start of main cycle
   redraw:			   ; redraw event handler
     call    draw_window
     jmp     wait_event
     jmp     wait_event
+  button:			   ; button event handler
-  button:			   ; button event handler
+    ;mov     eax, 17		   ;   get button identifier
-    mov     eax, 17		   ;   get button identifier
+    ;int     0x40
-    int     0x40
+    mcall 17
     imul ebx, eax
-    lea eax, [names+ebx]
+    lea eax, [names + ebx]
-    mov [buff+ecx], ' ' ; à®¡¥«
+    mov [buff + ecx], ' ' ; à®¡¥«
-    lea ebx, [buff+ecx+1]
+    lea ebx, [buff + ecx + 1]
     mov ecx, NAME_LEN
+    ;debug
+     push ebx
+     mov ebx, NAME_LEN
+     call print_mem
+     pop ebx
+    ;
     call strcpy
     mov eax, buff
     xor ebx, ebx
     call writemsg
   @@:
     cmp     ah, 1
     jne     wait_event		   ;   return if button id != 1
-    or	    eax, -1		   ;   exit application
+    ;   exit application
-    int     0x40
+    mcall -1
-  draw_window:
-    mov     eax, 12		   ; start drawing
-    mov     ebx, 1
+  draw_window:
-    int     0x40
-    mov     eax, 0		   ; create and draw the window
-    mov     ebx, 100*65536+700	   ;   (window_cx)*65536+(window_sx)
-    mov     ecx, 100*65536+500	   ;   (window_cy)*65536+(window_sy)
-    mov     edx, 0x03ffffff	   ;   work area color & window type 3
-;   mov     esi, 0                 ;   grab color (not used)
-;   mov     edi, 0                 ;   frame color (not used)
-    int     0x40
-    mov     eax, 4		   ; window header
-    mov     ebx, 8*65536+8	   ;   coordinates
-    mov     ecx, 0x10ffffff	   ;   color & font N1
+    ; start drawing
-    mov     edx, header 	   ;   address of text
+    mcall 12,1
     draw_button 530, 460, 60, 15, 4, 'SEND'
-    call printbuff
+    call    printbuff
+    call    buttonbox
+    ;
+    ; Image
+    ;
+    ;mov eax, 7
+    ;mov ebx, redicq
+    ;mov ecx, 15*65536+15
+    ;mov edx, 100*65536+100
+    ;int 40h
-    call    buttonbox
     mov     eax, 12		   ; finish drawing
-    mov     ebx, 2
+   ; finish drawing
-    int     0x40
+   mcall 12,2
   ret
+;
+;  ®¥¤¨¥¨¥
+;
+  connect:
+  lea eax, [vtable + vartable.icqip]
   call ip_parser
-;  ®¥¤¨¥¨¥
+  call htonl
-;
+  data_debug 'IP:', eax
   connect:
     ; ¢ ¯à¥¤ë¤ãé¥¬ æ¨ª«¥
+    ;
     cmp [hrf], 1
     jz rs_head_recived
+  rs_check_sock:
-    mov eax, 53
+    ;mov eax, 53
-    mov ebx, 2
+    ;mov ebx, 2
-    mov ecx, [socket]
+    ;mov ecx, [socket]
+    ;int 40h
-    int 40h
+    mcall 53,2,[socket]
     cmp eax, 6 ; Flap head size
     jc r_end
+    ;
     ; à¨¨¬ ¥¬ § £®«®¢®ª
+    ;
     xor edx, edx
     ;mov ecx, [socket]
    rs_loop:
-    mov eax,  53
-    mov ebx, 3
+    ;mov eax,  53
+    ;mov ebx, 3
     ;int 40h
-    int 40h
+    mcall 53,3,[socket]
+    ;
     ;  à®¢¥àï¥¬, ¯®«ãç¥ë «¨ ¤ ë¥
+    ;
   rs_head_recived:
-    mov eax, 53
+    ;mov eax, 53
-    mov ebx, 2
+    ;mov ebx, 2
     ;mov ecx, [socket]
+    ;int 40h
+    mcall 53,2,[socket]
     int 40h
     cmp ax, [rflap.wDs]   ;  §¬¥à ¤ ëå
     jc r_end
+    ;
+    ;
    rs_data_loop:
     cmp edx, esi
     jz rs_data_end
-    mov eax, 53
+    ;mov eax, 53
+    ;mov ebx, 3
-    mov ebx, 3
+    ;int 40h
-    int 40h
+    mcall 53,3,[socket]
     mov [mbuff+edx], bl
     inc edx
     jmp rs_data_loop
+    ;
     ;  ë¥ ¯à¨ïâë
     ;
     rs_data_end:
     mov [hrf], 0
-    write_debug 'Some data received'
+    ;write_debug 'Some data recived'
+    ;
+    ;
+    ;
+    cmp [login], 0
+    jz rs_login
+    call main_loop
-    cmp [login], 0
+    ;
+    ; áâì á¬ëá« ¯à®¢¥à¨âì á®ª¥â    «¨ç¨¥ á«¥¤ãîé¥£® § £®«®¢ª
     jz rs_login
-    call main_loop
+    ;jmp r_end
-    jmp r_end
+    jmp rs_check_sock
     rs_login:
-    rs_login:
+    call srv_login
-    call srv_login
+    ;write_debug 'Exited srv_login'
-    ;write_debug 'Exited srv_login'
+    ;jmp r_end
+    ;
     ;  «¨èª®¬ ¡®«ìè®© ¯ ª¥â!
+    ;
     rs_big_flap:
-    write_debug 'Too BIG FLAP Received'
+    write_debug 'Too BIG FLAP Recived'
     mov [hrf], 0
-    mov ecx, [socket]
+    ;mov ecx, [socket]
     mov ax, [rflap.wDs]
     xor esi, esi
     mov esi, eax
     xor edx, edx
    rs_data_loop2:
     cmp edx, esi
     jz r_end
     ;mov eax, 53
-    mov eax, 53
+    ;mov ebx, 3
-    mov ebx, 3
+    ;int 40h
     mov    ecx, 1000	     ; ¯à¥¤¥«ï¥¬ «®ª «ìë© ¯®àâ,  ç¨ ¥¬ á 1000
     getlp:
     inc    ecx
     push   ecx
-    mov    eax, 53
+    ;mov    eax, 53
-    mov    ebx, 9
+    ;mov    ebx, 9
+    ;int    0x40
-    int    0x40
+    mcall 53,9,ecx
     pop    ecx
     cmp    eax, 0	     ; íâ®â «®ª «ìë© ¯®àâ ¨á¯®«ì§ã¥âáï?
     jz	   getlp	     ; ¤  - ¯à®¤®«¦ ¥¬ ¯¥à¥¡¨à âì
     ;OK ecx = port number
     ;Open Socket
-    mov eax, 53
+    ;mov eax, 53
-    mov ebx, 5
+    ;mov ebx, 5
     xor edx, edx
     ;mov dx, ICQ_PORT
     pop edx
     ;mov esi,ICQ_IP
-    mov edi, 1;SOCKET_ACTIVE
+    ;mov edi, 1;SOCKET_ACTIVE
     ;int 40h
-    int 040h
+    mcall 53, 5, ecx, edx, esi, 1
+    ;
     mov [socket], eax
     mov [socket], eax
+    ;
     ; ¤¥¬ ãáâ ®¢ª¨ á®¥¤¨¥¨ï
+    mov ecx, eax
+  srv_loop:
+    ;mov eax, 5
+    ;mov ebx, 50
+    ;int 40h
+    mcall 5, 50
-    mov ecx, eax
-  srv_loop:
+    ;mov eax, 53
-    mov eax, 53
+    ;mov ebx, 6
-    mov ebx, 6
+    ;int 40h
-    int 40h
+    mcall 53, 6, ecx
     cmp eax, TCB_ESTABLISHED
     jz fin
-    cmp eax, 11
-    jae @f
-    ;
-    mov eax, 5
+    cmp eax, 11
+    jae c_end
+    ;
+    ;inc [timer]
+    ;cmp [timer], 50
-    mov ebx, 50
+    ;jz srv_err
-    int 40h
+    jmp srv_loop
     jmp srv_loop
   ;srv_err:
     ;mov [timer], word 0
     ;cmp eax,-1
     ;jnz fin
     ;delay 100
-    write_debug 'CONNECTION FAILED'		      ;®¤ª«îç¥¨¥ ¥ ã¤ «®áì
+    write_debug	'CONNECTION FAILED'                   ;®¤ª«îç¥¨¥ ¥ ã¤ «®áì
-    jmp @f
+    jmp c_end
     ;connrcted:
 					  ;CONNECTED
     fin:
     write_debug 'Connected!!!!'
-  @@:
+  c_end:
     pop edi
-    pop esi
-    pop edx
+    pop esi
-    pop ecx
+    pop edx
-    ;pop ebx
+    pop ecx
-  ret
+    ;pop ebx
   ret
     ;®à¬¨àã¥¬ ¯ ª¥â ¤«ï á®¥¤¨¥¨ï
+    ;
     ;mov [flap.bId], FLAP_ID
     mov [flap.bCh], NEW_CONNECTION
-    mov eax, 26
+    ;mov eax, 26
-    mov ebx, 9
+    ;mov ebx, 9
+    ;int 40h
-    int 40h
+    mcall 26, 9
     mov [seq], ax
-    mov [flap.wSn], ax	    ; Sequence number
+    mov [flap.wSn], ax      ; Sequence number
     ;mov [buff],0
     ;mov [buff+1],0
     ;mov [buff+2],0
     mov dword [buff], 0x01000000 ;login Protokol version  00 00 00 01
     ;mov[buff+4],0
     mov word [buff+4], 0x0100; TLV.TYPE = UIN     00 01
-    mov eax, UIN
+    lea eax, [vtable + vartable.uin]
     call strlen
     mov [buff+6], ah
     mov [buff+7], al ; Length of UIN
     mov edx, eax
-    add edx, 7		       ; ¢ edx ¤«¨  § ¯®«¥®£® ¡ãä¥à
+    add edx, 7                 ; ¢ edx ¤«¨  § ¯®«¥®£® ¡ãä¥à
-    mov ecx, eax	      ;«¨  áâà®ª¨
+    mov ecx, eax              ;«¨  áâà®ª¨
-    mov eax, UIN
+    lea eax, [vtable + vartable.uin]
-    lea ebx, [buff+8]	      ; + à §¬¥à ¤ ëå ¢ ¡ãä¥à¥ + 1
+    lea ebx, [buff+8]         ; + à §¬¥à ¤ ëå ¢ ¡ãä¥à¥ + 1
+    call strcpy
     call strcpy
     lea eax, [vtable + vartable.pass]
-    mov eax, PASS
+    call roast
     call roast
+    mov [buff+edx+2], 2 ; TLV.TYPE - rosted password
-    mov [buff+edx+2], 2 ; TLV.TYPE - rosted password
+    call strlen
-    call strlen
+    mov [buff+edx+4], al
-    mov word [buff+edx+4], ax  ; Length of pass
+    mov [buff+edx+3], ah  ; Length of pass
     add edx, 4
     mov ebx, buff
+    add ebx, edx               ;  § ç¥¨¥
-    add ebx, edx	       ;  § ç¥¨¥
+    add edx, eax               ; ®åà ï¥¬ ¢ EDX ¤«¨ã § ¯®«¥®£® ¡ãäà
-    add edx, eax	       ; ®åà ï¥¬ ¢ EDX ¤«¨ã § ¯®«¥®£® ¡ãäà
+    mov ecx, eax               ; «¨  áâà®ª¨
-    mov ecx, eax	       ; «¨  áâà®ª¨
+    lea eax, [vtable + vartable.pass]              ; áâ®ç¨ª
-    mov eax, PASS	       ; áâ®ç¨ª
+    inc ebx
-    inc ebx
+    call strcpy
     call strcpy
     mov [buff+edx+2], 3 ; TLV.TYPE - client id string
-    mov [buff+edx+2], 3 ; TLV.TYPE - client id string
+    mov eax, ID_STRING
+    call strlen
+    mov [buff+edx+4], al
-    mov eax, ID_STRING
+    mov [buff+edx+3], ah
     call strlen
+    add edx, 4
+    mov ecx, eax
-    mov word [buff+edx+4], ax
+    mov ebx, buff
     add ebx, edx
-    add edx, 4
+    add edx, eax
-    mov ecx, eax
+    inc ebx
+    mov eax, ID_STRING
+    call strcpy
-    mov ebx, buff
-    add ebx, edx
+    xor eax, eax
     add edx, eax
-    inc ebx
+    mov [buff+edx+2], 016h  ; TLV.TYPE - Client id
+    mov [buff+edx+4], 2
+    mov ax, ID_NUM
-    mov eax, ID_STRING
+    call htons
-    call strcpy
+    mov word [buff+edx+5], ax
     add edx, 6
     mov [buff+edx+2], 016h  ; TLV.TYPE - Client id
+    mov [buff+edx+2], 017h ; Client major version
+    mov [buff+edx+4], 2
-    mov [buff+edx+4], 2
+    mov ax, MAJOR
-    mov word [buff+edx+6], ID_NUM
+    call htons
-    add edx, 6
+    mov word [buff+edx+5], ax
     add edx, 6
+    mov [buff+edx+2], 018h ; Client minor version
-    mov [buff+edx+2], 017h ; Client major version
+    mov [buff+edx+4], 2
-    mov [buff+edx+4], 2
+    mov ax, MINOR
-    mov [buff+edx+6], MAJOR
+    call htons
-    add edx, 6
+    mov word [buff+edx+5], ax
+    add edx, 6
+    mov [buff+edx+2], 019h ; Client lesser version
-    mov [buff+edx+2], 018h ; Client minor version
+    mov [buff+edx+4], 2
-    mov [buff+edx+4], 2
+    mov ax, LESSER
-    mov [buff+edx+6], MINOR
+    call htons
-    add edx, 6
+    mov word [buff+edx+5], ax
     inc ebx
     add edx, eax
     mov eax, CL_LANG
     call strcpy
-    mov [buff+edx+2], 0Fh ; Client language
+    mov [buff+edx+2], 0Eh ; Client country
     mov eax, CL_COUNTRY
     call strlen
     mov word [buff+edx+4], ax
     add edx, 4
    uin_loop:
     xor eax, eax
     mov ax, word [mbuff+ebx]
-    cmp ax, 0100h	       ;  00 01 TLV.Type UIN
+    cmp ax, 0100h              ;  00 01 TLV.Type UIN
-    jz l_uin_ok 		 ;  ¥¯¥àì á¥à¢¥à ¯¥à¥¤ ¥â ¥é¥ ¤ ë¥ ¯à¨ á®¥¤¨¥¨¨,   ¯®â®¬ ®¯ïâì
+    jz l_uin_ok                  ;  ¥¯¥àì á¥à¢¥à ¯¥à¥¤ ¥â ¥é¥ ¤ ë¥ ¯à¨ á®¥¤¨¥¨¨,   ¯®â®¬ ®¯ïâì
-    add ebx, 5			       ; â®â ¦¥ TLV 1
+    add ebx, 5                   ; â®â ¦¥ TLV 1  (®¢ë© ä®à¬ â ¯ ª¥ªâ )
     cmp ebx, 5
     ja l_tlvt_err
     jmp uin_loop
+    ;
     ;  ®¥¤¨ï¥¬áï á BOS
+    ;
     ;call srv_disconnect
     mov ecx, [socket]
-    ;write_debug 'Closing socket'
+    write_debug 'Closing socket'
     ;call closesocket
+    ;
+    ;
-    ;mov eax, 53
+    ;
-    ;mov ebx, 8
+    ;FIXME!!!
+    ; ª®¬¬¥â®à®¢ ® ¨§-§  ¯à®¡«¥¬ë á á¥â¥¢ë¬ áâ¥ª®¬
+    ;§ ªàëâ¨¥ á®ª¥â  § ¢¥è¨¢ ¥â á¨áâ¥¬ã
-    ;int 40h
+    ;mcall 53, 8, ecx
     l_data_err:
     write_debug 'LOGIN DATA MISMATCH'
     jmp l_fin
     l_len_err:
-    write_debug 'RECEIVED DATA LENGTH MISMATCH'
+    write_debug 'RECIVED DATA LENGTH MISMATCH'
     jmp l_fin
     l_tlvt_err:
     l_ch_err:
     write_debug 'FLAP CHANNEL MISMATCH'
     jmp l_fin
     l_flap_err:
-    write_debug 'FLAP ID MISMATCH / RECEIVE ERROR'
+    write_debug 'FLAP ID MISMATCH / RECIVE ERROR'
     l_fin:
+    ;
     ; ¥®¡å®¤¨¬® § ªàëâì á®ª¥â
+    ;
     ;call srv_disconnect
-    ;call closesocket
+    call closesocket
     l_end:
     pop edx
     popf
   ret
+;
+;  ªà®á ¤«ï áà ¢¥¨ï áâà®ª
+;
+macro strcmp first, second, len
+{
+   push ecx
+   push esi
+   push edi
+   mov ecx, len
+   mov esi, first
+   mov edi, second
+   repe cmpsb
+   pop edi
+   pop esi
+   pop ecx
+}
+;
 ;  ¯®«ï¥â ¡ãä¥à, ¯®  ¤à¥áã ¢ ebx
 ; ¤ ë¬¨, ¯®  ¤à¥áã eax, ¢
 ; cx  - ¨¯ TLV
     call strcpy
-    xchg ecx, edx	    ; ecx - handle, edx - data size
+    xchg ecx, edx           ; ecx - handle, edx - data size
     s_wait:
-    mov eax, 53 	    ; à®¢¥àï¥¬ á®áâ®ï¨¥ á®ª¥â . á«¨ á®¥¤¨¥¨¥
+    ;mov eax, 53             ; à®¢¥àï¥¬ á®áâ®ï¨¥ á®ª¥â . á«¨ á®¥¤¨¥¨¥
+    ;mov ebx, 6              ; ãáâ ®¢«¥® - ¯®áë« ¥¬ ¡ãä¥à, ¥á«¨ á®ª¥â § ªàëâ, ãå®¤¨¬
-    mov ebx, 6		    ; ãáâ ®¢«¥® - ¯®áë« ¥¬ ¡ãä¥à, ¥á«¨ á®ª¥â § ªàëâ, ãå®¤¨¬
+    ;int 40h
-    int 40h
+    mcall 53, 6, ecx
     cmp eax, TCB_ESTABLISHED ; ãáâ ®¢«¥®
     jz s_est
     cmp eax, TCB_CLOSED
     jz s_fin
-    cmp eax, 12 	   ;   ¬¥ï â ª®¥ ¡ë«®, ª®£¤  á®¥¤¨¥¨¥ ãáâ  ¢«¨¢ «®áì á ¯ãáâ®â®© :-)
+    cmp eax, 12            ;   ¬¥ï â ª®¥ ¡ë«®, ª®£¤  á®¥¤¨¥¨¥ ãáâ  ¢«¨¢ «®áì á ¯ãáâ®â®© :-)
-    jnc s_fin		   ;
+    jnc s_fin              ;
     ;mov eax, 5
-    mov eax, 5
+    ;mov ebx, 1
-    mov ebx, 1
+    ;int 40h                ; ¤¥¬
-    int 40h		   ; ¤¥¬
+    mcall 5, 1
-    jmp s_wait
+    jmp s_wait
     s_est:
+    ;mov eax, 53
-    mov eax, 53
+    ;mov ebx, 7             ; ¯¨á âì ¢ á®ª¥â
     mov ebx, 7		   ; ¯¨á âì ¢ á®ª¥â
-    ;xchg ecx, edx          ; ecx - handle, edx - data length
+    add edx, 6             ; + size of header
-    add edx, 6		   ; + size of header
+    ;mov esi, sbuff         ; data
-    mov esi, sbuff	   ; data
+    ;int 40h
-    int 40h
+    mcall 53, 7, ecx, edx, sbuff
     s_fin:
-    pop ecx
-    pop ebx
-    pop esi
-    ;pop ecx
-    pop edx
-    popf
-  ret
-;
-; à¨¨¬ ¥â ¯ ª¥â ¨§ á®ª¥â
-; eax - ãª § â¥«ì   FLAP_head
-; ebx - ãª § â¥«ì   ¬ áá¨¢
-; ecx - å¥¤« á®ª¥â
-; ®§¢à é ¥â ¢ eax ª®«¨ç¥áâ¢® ¯à¨ïâëå ¡ ©â ¢ ¬ áá¨¢¥
-;
-;  recvflap:
-;    pushf
-;
-;    ;push eax
-;    push ebx
-;    push esi
-;    push edi
-;    push edx
-;    mov esi, eax
-;    mov edi, ebx
-;
-;    r_fail:
-;    mov eax, 53         ;  ¯à è¨¢  ¥¬ á®ª¥â
-;    mov ebx, 2          ;  ¢ eax ª®«¨ç¥áâ¢® ¯®«ãç¥ëå ¡ ©â
-;    int 40h             ;
-;    cmp eax, 6          ;  ¡ãä¥à ¥ ¯ãáâ®©
-;    jnc r_ok
-;
-;    mov eax, 53         ;  ®«ãç ¥¬ á®áâ®ï¨¥ á®ª¥â
-;    mov ebx, 6          ;
-;    int 40h             ;
-;
-;    cmp eax, TCB_CLOSED ; § ªàëâ - ãå®¤¨¬
-;    jz r_err
-;
-;
-;   ;mov eax, 5         ; ¦¤¥¬
-;    ;mov ebx, 1
-;    ;int 40h
-;    ; ãå®¤¨¬
-;
-;    ;jmp r_fail
-;    jmp rf_fin
-;
-;    r_ok:               ;  ¡ãä¥à¥ ¤ ë¥
-;
-;    mov eax, 53
-;    mov ebx, 3
-;    int 40h
-;    mov [esi], bl       ; flap.bId
-;    cmp bl, FLAP_ID
-;    jnz r_err
-;
-;    mov eax, 53
-;    mov ebx, 3
-;    int 40h
-;    mov [esi+1], bl   ; flap.bCh
-;
-;    mov eax, 53
-;    mov ebx, 3
-;    int 40h
-;    mov [esi+3], bl   ; flap.wSn áâ àè¨© ¡ ©â
-;
-;    mov eax, 53
-;    mov ebx, 3
-;    int 40h
-;    mov [esi+2], bl   ; flap.wSn ¬« ¤è¨© ¡ ©â
-;
-;    mov eax, 53
-;    mov ebx, 3
-;    int 40h
-;    mov [esi+5], bl   ; flap.wDs áâ àè¨© ¡ ©â
-;
-;    mov eax, 53
-;    mov ebx, 3
-;    int 40h
-;    mov [esi+4], bl   ; flap.wDs ¬« ¤è¨© ¡ ©â
-;
-;    r_check:
-;    mov eax, 53       ; à®¢¥àï¥¬ ç¨á«® ¯®«ãç¥ëå ¡ ©â
-;    mov eax, 2
-;    int 40h
-;
-;    xor ebx, ebx
-;    mov bx, word [esi+4] ; flap.wDs
-;    cmp eax, ebx
-;    jnc r_drr           ;>=
-;
-;    mov eax, 68           ; wait
-;    mov ebx, 1
-;    int 40h
-;    jmp r_check
-;
-;    r_drr:            ; ready for data  recive
-;
-;
-;    xor edx, edx
-;    mov dx, word [esi+4] ; flap.wDs
-;    xor esi, esi
-;
-;    rf_loop:
-;    mov eax, 53
-;    mov ebx, 3
-;    int 40h
-;    mov [edi+esi], bl
-;    inc esi
-;    cmp esi, edx
-;    jnz rf_loop
-;    mov eax, edx
-;    jmp rf_fin
-;
-;    r_err:
-;    ;pop ebx
-;    ;pop eax
-;    mov eax, -1
-;    jmp rf_fin
-;
-;
-;    rf_fin:
+    pop ecx
-;    pop edx
+    pop ebx
-;    pop edi
+    pop esi
-;    pop esi
+    ;pop ecx
 ;  <-- ECX - å¥¤« á®ª¥â , ª®â®àë© ã¦® § ªàëâì
 ;  --> ECX - ¥§ã«ìâ â (¥ ¤¥¦®)
+;
   closesocket:
     push eax
-    push ebx
+    ;push ebx
-    mov eax, 53
+    ;mov eax, 53
-    mov ebx, 8
+    ;mov ebx, 8
+    ;int 40h
-    int 40h
+    mcall 53, 8, ecx
     mov ecx, eax
-    pop ebx
+    ;pop ebx
     pop eax
     push esi
     push edi
     xor ecx, ecx
     ;xor eax, eax
-    xor ebx, ebx
+    mov ebx, eax
     xor edx, edx
     xor esi, esi
     xor edi, edi
     ip_loop:
     xor eax, eax
     ;xor edx, edx
-    mov al, [bos_address+ecx]
+    mov al, [ebx+ecx]
     cmp al, '.'
     jz ip_dot
     mov eax, par_buff
     call ascitoint
-    shl esi, 8	     ; ¤¢¨£ ¥¬ ¯à¥¤ë¤ãé¨© ¡ ©â
+    shl esi, 8       ; ¤¢¨£ ¥¬ ¯à¥¤ë¤ãé¨© ¡ ©â
     add esi, eax
     ;mov eax, esi     ; IP ¢ 16 à¨ç®© ä®à¬¥
-    ;xor ebx, ebx    ; ®¬¥à  ¯®àâ  ¥â
+    xor ebx, ebx    ; ®¬¥à  ¯®àâ  ¥â
     jmp ip_end
-    @@: 			   ; ë«® :
+    @@:                            ; ë«® :
     mov [par_buff+edx], 0
-    jz m_keep_alive	     ;
+    jz m_keep_alive          ;
+    ;
     ; ¡à ¡®âª  à áá®¥¤¨¥¨ï
+    ;
   m_close_conn:
-    write_debug 'Another Computer is Using YOUR UIN!'
+    write_debug 'Another Computer Use YOUR UIN!'
     call srv_disconnect
     call closesocket
     jmp m_fin
+    ;
     ; ®¡à ¡®âª  á®¥¤¨¥¨ï
+    ;
     ; £¥¥à¨àã¥¬ á«ãç ©ë© seq
     ; «ï íâ®£® ¡¥à¥¬ ¢à¥¬ï, ¯à®è¥¤è¥¥ á ¬®¬¥â  § ¯ãáª  á¨áâ¥¬ë
     ;
-    mov eax, 26
+    ;mov eax, 26
-    mov ebx, 9
+    ;mov ebx, 9
+    ;int 40h
-    int 40h
+    mcall 26, 9
     mov [seq], ax
+    ;
     ; â¤ ¥¬ á¥à¢¥àã cookie
+    ;
     jmp m_fin
   m_snac_1_other:
+    ;
   m_snac_3_b:
+    ;
     ; § ¢á¥© ¨ä®à¬ æ¨¨ ¯®ª  ã¦¥ â®«ìª® áâ âãá
+    ;
-    xor edx, edx	   ; ç¥âç¨ª
+    xor edx, edx           ; ç¥âç¨ª - ®¬¥à UIN ¢ ¬ áá¨¢¥
     xor ecx, ecx
     xor eax, eax
-    cld 	    ;   ¯à ¢«¥¨¨ ã¢¥«¨ç¥¨ï  ¤à¥á®¢
+    cld             ;   ¯à ¢«¥¨¨ ã¢¥«¨ç¥¨ï  ¤à¥á®¢
     jnz m_snac_3_b_loop
+    ;
     ; UIN ¯à¥¤¥«¥
+    ;
+    ;
+    ;  ©â¨ TLV á® áâ âãá®¬
+    ; á®åà ïâì edx
+    xor esi, esi    ; ç¥âç¨ª TLV
+    xor ecx, ecx
-    lea ecx, [eax+10+11]	   ; +sizeof SNAC_head + offset #2 TLV
+    mov ch, byte [mbuff + eax + 13]   ; ®«-¢® TLV ¢ æ¥¯®çª¥
+    mov cl, byte [mbuff + eax + 14]   ;
-    mov ax, word [mbuff+ecx]		;#2 TLV.Type
+    lea eax, [eax + 10 + 5]    ; eax ãª § â¥«ì   æ¥¯®çªã TLV
+    lea eax, [mbuff + eax]     ;
+  m_snac_3_b_next_tlv:
-    cmp ax, 0C00h		   ;dc info (optional)
+    cmp esi, ecx
+    jz m_snac_3_b_endchain
+    xor ebx, ebx
+    mov bh, [eax]              ;
+    mov bl, [eax + 1]          ; TLV.Type
+    data_debug 'TLV type', ebx
-    jz m_snac_3_b_dc
-    cmp ax, 0A00h		   ;external ip address
+    cmp ebx, 0x06              ;TLV.Type(0x06) - user status
+    jz m_snac_3_b_status
+    ;
+    ;  §¡¨à ¥¬ æ¥¯®çªã ¤ «ìè¥
+    ;
+    get_next_tlv
-    jz m_snac_3_b_extip
+    inc esi
+    jmp m_snac_3_b_next_tlv
+    ; FIXME ¥®¯â¨¬ «ì® - ª®¤ ¡ã¤¥â ã¤ «¥
+    ;
+    ;lea ecx, [eax+10+11]           ; +sizeof SNAC_head + offset #2 TLV
+    ;mov ax, word [mbuff+ecx]            ;#2 TLV.Type
+    ;cmp ax, 0C00h                  ;dc info (optional)
+    ;jz m_snac_3_b_dc
+    ;cmp ax, 0A00h                  ;external ip address
+    ;jz m_snac_3_b_extip
-    jmp m_snac_3_b_bad_tlv
+    ;jmp m_snac_3_b_bad_tlv
-  m_snac_3_b_dc:
+  ;m_snac_3_b_dc:
     ;
     ; à®¯ãáª ¥¬ íâ®â TLV
+    ;
-    lea ecx, [ecx+41]
+    ;lea ecx, [ecx+41]
-  m_snac_3_b_extip:
+  ;m_snac_3_b_extip:
     ;
     ;  íâ®â :-)
-    lea ecx, [ecx+8]
+    ;lea ecx, [ecx+8]
-    mov ax, word [mbuff+ecx]
+    ;mov ax, word [mbuff+ecx]
+    ;cmp ax, 0600h                 ;TLV.Type(0x0A) - external ip address
+    ;jz m_snac_3_b_status
+    ;jmp m_snac_3_b_bad_tlv
     cmp ax, 0600h		  ;TLV.Type(0x0A) - external ip address
     jz m_snac_3_b_status
-    jmp m_snac_3_b_bad_tlv
+  m_snac_3_b_status:
+    ;
-  m_snac_3_b_status:
+    ; áâ âãá
+    ;
-    ;  ª®¥æ-â® áâ âãá 8-)
+    mov ecx, eax
     mov eax, dword [ecx + 4]
-    mov eax, dword [mbuff+ecx+4]
+    ;mov eax, dword [mbuff+ecx+4]
     call ntohl
   m_snac_3_b_end:
     write_debug 'UIN not in local Contact List'
+    jmp m_fin
+  m_snac_3_b_endchain:
     jmp m_fin
   m_snac_3_other:
     mov eax, MESS
     mov ebx, buff
     call strcpy
+    lea ebx, [ebx + ecx]
+    ;
+    ; ¥¯«®å® ¡ë«® ¡ë ¢ë¢¥áâ¨ ¥ UIN   Nickname, ¥á«¨ ® ¥áâì ¢ ª®â ªâ «¨áâ¥
+    ;
+    xor esi, esi    ; ç¥âç¨ª
+   m_snac_ch1_next_uin:
+    cmp esi, UINS
+    jz m_snac_ch1_notfound
+    mov edx, UIN_LEN
+    imul edx, esi
+    lea edx, [uins + edx]
+    movzx ecx, byte [ui.bUinLength]
+    strcmp edx, ui.bUin, ecx
+    jz m_snac_ch1_uin
+    inc esi
+    jmp m_snac_ch1_next_uin
+    ;
+    ; ®¤å®¤ïé¨© UIN ¥áâì ¢ ª®â ªâ-«¨áâ¥
+    ;
+   m_snac_ch1_uin:
+    mov edx, NAME_LEN
+    imul edx, esi
+    lea edx, [names + edx]
+    mov eax, edx
+    call strlen
+    mov ecx, eax
+    mov eax, edx
+    call strcpy
+    jmp m_snac_ch1_msgfrom
+    ;
+    ; á«¨ ¯®¤å®¤ïé¥£® UIN ¥â ¢ ª®â ªâ-«¨áâ¥
+    ;
+   m_snac_ch1_notfound:
     lea ebx, [ebx+ecx]
     lea eax, [ui.bUin]
     movzx ecx, byte [ui.bUinLength]
+    call strcpy
+    ;
+    ; ë¢®¤ á®®¡é¥¨ï "®â ª®£®"
+    ;
-    call strcpy
+   m_snac_ch1_msgfrom:
-    mov [ebx+ecx], byte 0
+    mov [ebx + ecx], byte 0
     jmp m_fin
   m_snac_4_other:
+    ;
   m_snac_9_3:
+    ;
     ; ¡à ¡®âª¨ ¯®ª  ¥â
+    ;
+    if USE_SSI <> 0
+    ;
+    ;  ¯à®á  á á¥à¢¥à
+    ;
+    ;
+    ; Request contact list (first time)
+    ;
+    mov [ssnac.wFid], 13h    ; Family
+    mov [ssnac.wSid], 04h    ; Subtype
+    mov [ssnac.dRi], 04h     ; request-id
+    mov eax, ssnac
+    mov ebx, buff
+    xor edx, edx
+    call sendsnac
+    else
     call sendsnac
+    ;
     ;  &RQ áâì ¯ ª¥â ãáâ ®¢ª¨ à §à¥è¥¨©. ï ¨á¯®«ì§ãî ¥£® ¡¥§ ¨§¬¥¥¨ï
-    ;  â.ª. ¥ § î, çâ® ® á®¤¥à¦¨â
+    ;  â.ª. ¥ § î, çâ® ® á®¤¥à¦¨â
-    ;
+    ; - ¢®§¬®¦®, ¡ã¤ã ¨á¯®«ì§®¢ âì ¯®§¤¥¥
-    mov [ssnac.wFid], 15  ; Family
+    ;mov [ssnac.wFid], 15  ; Family
-    mov [ssnac.wSid], 2    ; Subtype
-    mov [ssnac.dRi], 2
-    mov word [buff], 0100h   ; 00 01 encapsulated META_DATA
-    mov word [buff+2], 1000h ; 00 10     Len
-    mov word [buff+4], 000Eh ;  LE Len
-    mov word [buff+10], 07D0h ; META_DATA_REQ
-    mov eax, UIN
+    ;mov [ssnac.wSid], 2    ; Subtype
+    ;mov [ssnac.dRi], 2
+    ;mov word [buff], 0100h   ; 00 01 encapsulated META_DATA
+    ;mov word [buff+2], 1000h ; 00 10     Len
+    ;mov word [buff+4], 000Eh ;  LE Len
+    ;mov word [buff+10], 07D0h ; META_DATA_REQ
+    ;mov eax, UIN
-    call ascitoint
+    ;call ascitoint
-    mov dword [buff+6], eax
+    ;mov dword [buff+6], eax
-    mov word [buff+12], 0102h	; request sequence number (incrementing)
+    ;mov word [buff+12], 0102h   ; request sequence number (incrementing)
-    mov word [buff+14], 0424h	; META_SET_PERMS_USERINFO
+    ;mov word [buff+14], 0424h   ; META_SET_PERMS_USERINFO
-    mov [buff+16], 1		; authorization (1-required, 0-not required)
+    ;mov [buff+16], 1            ; authorization (1-required, 0-not required)
-    mov [buff+17], byte 0	; webaware (0-no, 1-yes)
+    ;mov [buff+17], byte 0       ; webaware (0-no, 1-yes)
-    mov [buff+18], 1		 ; dc_perms (0-any, 1-contact, 2-authorization)
+    ;mov [buff+18], 1             ; dc_perms (0-any, 1-contact, 2-authorization)
-    mov [buff+19], 0		;unknown
+    ;mov [buff+19], 0            ;unknown
-    mov eax, ssnac
+    ;mov eax, ssnac
-    mov ebx, buff
+    ;mov ebx, buff
-    mov [ssnac.dRi], 2	   ; request-id
+    mov [ssnac.dRi], 2     ; request-id
-    mov word [buff], 0100h	;  TLV type 01
+    mov word [buff], 0100h      ;  TLV type 01
-    mov word [buff+2], 0A00h	;  00 0a «¨
+    mov word [buff+2], 0A00h    ;  00 0a «¨
-    mov word [buff+4], 0008h	;  08 00
+    mov word [buff+4], 0008h    ;  08 00
-    mov eax, UIN
+    lea eax, [vtable + vartable.uin]
     call ascitoint
     mov dword [buff+6], eax
-    mov [buff+10],  003Ch ; 3C 00 -  ¯à®á   ®ää« ©®¢ë¥ á®®¡é¥¨ï
+    mov word [buff+10],  003Ch ; 3C 00 -  ¯à®á   ®ää« ©®¢ë¥ á®®¡é¥¨ï
-    mov [buff+12],  0002  ; 02 00 - request sequence number
+    mov word [buff+12],  0002  ; 02 00 - request sequence number
+    ;
     ; § ¢¥àè¥® á®¥¤¨¥¨¥
+    ;
     mov [login], 2
+    end if   ; USE_SSI = 0
     jmp m_fin
   m_snac_9_other:
-    write_debug 'Unknown SNAC Family 9 Received'
+    write_debug 'Unknown SNAC Family 9 Recived'
     jmp m_fin
+    ;
     ; FAMILY 13
+    ;
+  m_snac_13:
     cmp dx, 3
-  m_snac_13:
+    jz m_snac_13_3
-    cmp dx, 3
+    cmp dx, 6
+    ;
     mov [ssnac.wFid], 13h  ; Family
     mov [ssnac.wSid], 5    ; Subtype
-    mov [ssnac.dRi], 5	   ; request-id
+    mov [ssnac.dRi], 5     ; request-id
     mov eax, ssnac
+    ;
+    ;
-    ;  3D E7 48 17
+    ;
-    mov [buff], 03Dh	  ;
+    mov [buff], 03Dh      ;
-    mov [buff+1], 0E7h	  ;     modification date/time of client local SSI copy
+    mov [buff+1], 0E7h    ;   	modification date/time of client local SSI copy
-    mov [buff+2], 48h	  ;
+    mov [buff+2], 48h     ;
-    mov [buff+3], 17h	  ;
+    mov [buff+3], 17h     ;
+    ;
-    ; 00 10
+    ;
-    mov [buff+4], 00	  ;
+    mov [buff+4], 00      ;
-    mov [buff+5], 10h	  ;     number of items in client local SSI copy
+    mov [buff+5], 00h     ;  	number of items in client local SSI copy
     mov ebx, buff
     mov edx, 5
     call sendsnac
+    jmp m_fin
+    ;
+    ; Server contact list reply
+    ;
+  m_snac_13_6:
+    lea eax, [mbuff+10]     ;  eax § £àã¦ ¥¬  ¤à¥á ¯à¨¥¬®£® ¡ãä¥à + à §¬¥à § £®«®¢ª  snac
+    call ssi_process_data   ; ¡à ¡®âª  ¯ ª¥â  á
+    ;
+    ; ªâ¨¢¨àã¥¬ SSI
+    ;
+    mov [ssnac.wFid], 13h  ; Family
+    mov [ssnac.wSid], 7    ; Subtype
+    mov [ssnac.dRi], 7     ; request-id
+    mov eax, ssnac
+    mov ebx, buff
+    xor edx, edx
+    call sendsnac
+    ;
+    ; ¯®á«¥¤ïï áâ ¤¨ï á®¥¤¨¥¨ï
+    ;
+    ;
+    ;  ¯à è¨¢ ¥¬ á¢®î ¨ä®à¬ æ¨î
+    ;
+    mov [ssnac.wFid], 1  ; Family
+    mov [ssnac.wSid], 0Eh    ; Subtype
+    mov [ssnac.dRi], 0Eh     ; request-id
+    mov eax, ssnac
+    mov ebx, buff
+    xor edx, edx             ; TLV head len
+    call sendsnac
+    ;
+    ; Client sends its DC info and status to server
+    ;
+    mov [ssnac.wFid], 1  ; Family
+    mov [ssnac.wSid], 1Eh    ; Subtype
+    mov [ssnac.dRi], 1Eh     ; request-id
+    mov [buff], 0           ;  TLV type 06
+    mov [buff+1], 6h        ;
+    mov [buff+2], 0         ;  TLV data length
+    mov [buff+3], 4         ;
+    ;
+    ;
+    mov ax, STATUS_DCDISABLED  ; DC disabled
+    call htons
+    mov word [buff+4], ax
+    mov ax, STATUS_ONLINE
+    mov [status], ax
+    mov word [buff+6], ax
+    mov eax, ssnac
+    mov ebx, buff
+    mov edx, 8           ; TLV head len+ data len
+    call sendsnac
+    ;
+    ;  ë£àã¦ ¥¬   á¥à¢¥à
+    ;   FIXME ®§¬®¦®, §¤¥áì ¥ ã¦  íâ  äãªæ¨ï
+    ;call uploadkl
+    ;
+    ; ë£àã¦ ¥¬ ¨¢¨§¨¡« «¨áâ, ¯®ª  ¯ãáâ®©
+    ;
+    ;mov [ssnac.wFid], 9  ; Family
+    ;mov [ssnac.wSid], 7    ; Subtype
+    ;mov [ssnac.dRi], 7
+    ;mov eax, ssnac
+    ;mov ebx, buff
+    ;xor edx, edx
+    ;call sendsnac
+    ;
+    ;  &RQ áâì ¯ ª¥â ãáâ ®¢ª¨ à §à¥è¥¨©. ï ¨á¯®«ì§ãî ¥£® ¡¥§ ¨§¬¥¥¨ï
+    ;  â.ª. ¥ § î, çâ® ® á®¤¥à¦¨â
+    ; - ¢®§¬®¦®, ¡ã¤ã ¨á¯®«ì§®¢ âì ¯®§¤¥¥
+    ;mov [ssnac.wFid], 15  ; Family
+    ;mov [ssnac.wSid], 2    ; Subtype
+    ;mov [ssnac.dRi], 2
+    ;mov word [buff], 0100h   ; 00 01 encapsulated META_DATA
+    ;mov word [buff+2], 1000h ; 00 10     Len
+    ;mov word [buff+4], 000Eh ;  LE Len
+    ;mov word [buff+10], 07D0h ; META_DATA_REQ
+    ;mov eax, UIN
+    ;call ascitoint
+    ;mov dword [buff+6], eax
+    ;mov word [buff+12], 0102h   ; request sequence number (incrementing)
+    ;mov word [buff+14], 0424h   ; META_SET_PERMS_USERINFO
+    ;mov [buff+16], 1            ; authorization (1-required, 0-not required)
+    ;mov [buff+17], byte 0       ; webaware (0-no, 1-yes)
+    ;mov [buff+18], 1             ; dc_perms (0-any, 1-contact, 2-authorization)
+    ;mov [buff+19], 0            ;unknown
+    ;mov eax, ssnac
+    ;mov ebx, buff
+    ;mov edx, 20
+    ;
+    ; Client READY command
+    ;
+    mov [ssnac.wFid], 1  ; Family
+    mov [ssnac.wSid], 2    ; Subtype
+    mov [ssnac.dRi], 2     ; request-id
+    mov eax, FAMILY_ARR
+    mov ebx, buff
+    push ecx
+    mov ecx, FA_LEN
+    call strcpy
+    pop ecx
+    mov eax, ssnac
+    mov ebx, buff
+    mov edx, FA_LEN
+    call sendsnac
+    ;
+    ;  ¯à è¨¢ ¥¬ offline á®®¡é¥¨ï
+    ;
+    mov [ssnac.wFid], 15h  ; Family
+    mov [ssnac.wSid], 2    ; Subtype
+    mov [ssnac.dRi], 2     ; request-id
+    mov word [buff], 0100h      ;  TLV type 01
+    mov word [buff+2], 0A00h    ;  00 0a «¨
+    mov word [buff+4], 0008h    ;  08 00
+    lea eax, [vtable + vartable.uin]
+    call ascitoint
+    mov dword [buff+6], eax
+    mov word [buff+10],  003Ch ; 3C 00 -  ¯à®á   ®ää« ©®¢ë¥ á®®¡é¥¨ï
+    mov word [buff+12],  0002  ; 02 00 - request sequence number
+    mov edx, 14        ; ¡é¨© à §¬¥à ¤ ëå ¢ ¡ãä¥à¥
+    mov eax, ssnac
+    mov ebx, buff
+    call sendsnac
+    ;
+    ;  ¯à è¨¢ ¥¬ ¨ä®à¬ æ¨î ¢á¥å UIN
+    ; FIXME ®§¬®¦®, §¤¥áì ¥ ã¦  íâ  äãªæ¨ï
+    ;call getinfo
+    ;
+    ; § ¢¥àè¥® á®¥¤¨¥¨¥
+    ;
+    mov [login], 2
+    jmp m_fin
     jmp m_fin
+    ;
     ;  Server tell client its local copy up-to-date
+    ;
+    ;
     mov ax, STATUS_DCDISABLED  ; DC disabled
     call htons
     mov word [buff+4], ax
+    ;
-    mov ax, STATUS_ONLINE
+    ;
-    mov [status], ax
+    mov ax, [status]
     mov word [buff+6], ax
     mov eax, ssnac
     mov ebx, buff
-    mov [ssnac.dRi], 2	   ; request-id
+    mov [ssnac.dRi], 2     ; request-id
-    mov word [buff], 0100h	;  TLV type 01
+    mov word [buff], 0100h      ;  TLV type 01
-    mov word [buff+2], 0A00h	;  00 0a «¨
+    mov word [buff+2], 0A00h    ;  00 0a «¨
-    mov word [buff+4], 0008h	;  08 00
+    mov word [buff+4], 0008h    ;  08 00
-    mov eax, UIN
+    lea eax, [vtable + vartable.uin]
     call ascitoint
     mov dword [buff+6], eax
     jmp m_fin
     mov [ssnac.dRi], 0602h     ; request-id
-    mov word [buff], 0100h     ;  00 01 TLV.Type(1) - encapsulated META_DATA1
+    mov word [buff], 0100h     ;  00 01	TLV.Type(1) - encapsulated META_DATA1
-    mov word [buff+2], 0A00h   ;  00 0A TLV.Length
+    mov word [buff+2], 0A00h   ;  00 0A	TLV.Length
-    mov word [buff+4], 0008h   ;  08 00 data chunk size (TLV.Length-2)
+    mov word [buff+4], 0008h   ;  08 00	data chunk size (TLV.Length-2)
-    mov eax, UIN
+    lea eax, [vtable + vartable.uin]
     call ascitoint
     mov dword [buff+6], eax    ; xx xx xx xx (LE) client uin
-    mov word [buff+10], 003Eh  ; 3E 00  (LE) data type: delete offline msgs request cmd
+    mov word [buff+10], 003Eh  ; 3E 00	(LE) data type: delete offline msgs request cmd
     jmp m_fin
   m_snac_15_other:
-    write_debug 'Unknown SNAC Family 15 Received'
+    write_debug 'Unknown SNAC Family 15 Recived'
     jmp m_fin
     mov [ssnac.wSid], 6    ; Subtype
     mov [ssnac.dRi], 106h     ; request-id
+    ;
     ;  ®«ãç ¥¬ ¢à¥¬ï á § ¯ãáª  á¨áâ¥¬ë, ¤«ï cookie
+    ;
-    mov eax, 26
+    ;mov eax, 26
-    mov ebx, 9
+    ;mov ebx, 9
-    int 40h
+    ;int 40h
+    mcall 26, 9
     mov dword [buff], eax      ; Cookie 1
     mov dword [buff+4], eax    ; Cookie 2
     mov [ssnac.dRi], 702h     ; request-id
-    mov word [buff], 0100h	   ;TLV.Type(1) - encapsulated META_DATA
+    mov word [buff], 0100h         ;TLV.Type(1) - encapsulated META_DATA
-    mov word [buff+2], 1000h	   ; 00 10  TLV.Length
+    mov word [buff+2], 1000h       ; 00 10  TLV.Length
-    mov word [buff+4], 000Eh	   ; (LE)               data chunk size (TLV.Length-2)
+    mov word [buff+4], 000Eh       ; (LE)	 	data chunk size (TLV.Length-2)
-    mov eax, UIN
+    lea eax, [vtable + vartable.uin]
     call ascitoint
-    mov dword [buff+6], eax	   ;(LE)                request owner uin
+    mov dword [buff+6], eax        ;(LE)	 	request owner uin
-    mov word [buff+10], 07D0h	   ;data type: META_DATA_REQ
+    mov word [buff+10], 07D0h      ;data type: META_DATA_REQ
     ;mov word [buff+12], 0008h      ; request sequence number <<<-- ®¦¥â ¬¥ïâìáï FIXIT
   @@:
     popad
     popf
   ret
+;
+; ãªæ¨ï ¤«ï ãáâ ®¢ª¨ áâ âãá
+; áâ âãá ¢ ¯¥à¥¬¥®© status
+ setstatus:
+  push eax
+  push ebx
+  push edx
+    ;
+    ; Client sends its DC info and status to server
+    ;
+    mov [ssnac.wFid], 1  ; Family
+    mov [ssnac.wSid], 1Eh    ; Subtype
+    mov [ssnac.dRi], 1Eh     ; request-id
+    mov [buff], 0           ;  TLV type 06
+    mov [buff+1], 6h        ;
+    mov [buff+2], 0         ;  TLV data length
+    mov [buff+3], 4         ;
+    ;
+    ;
+    mov ax, STATUS_DCDISABLED  ; DC disabled
+    call htons
+    mov word [buff+4], ax
+    ;
+    ;
+    mov ax, [status]
+    mov word [buff+6], ax
+    mov eax, ssnac
+    mov ebx, buff
+    mov edx, 8           ; TLV head len+ data len
+    call sendsnac
+  pop edx
+  pop ebx
+  pop eax
+ ret
+;
+;  ªà®á ¯à®¯ãáª ¥â ¢á¥ ¯à®¡¥«ë ¢ áâà®ª¥ ¤®
+; 1 £® § ç é¥£® á¨¬¢®«
+; eax - ãª § â¥«ì   null-terminated áâà®ªã
+macro skip_spaces {
+  local ..sp_end, ..sp_loop
+  push ebx
+  push ecx
+  xor ebx, ebx
+  xor ecx, ecx
+ ..sp_loop:
+  mov bl, [eax + ecx]
+  cmp bl, 0x20
+  jnz ..sp_end
+  inc ecx
+  jmp ..sp_loop
+ ..sp_end:
+  lea eax, [eax + ecx]
+  pop ecx
+  pop ebx
+}
+;
+; ¡à ¡®âª  ª®¬ ¤
+;  ¥ax ¯¥à¥¤ ¥âáï ãª § â¥«ì   áâà®ªã. ®¬ ¤  ¨  à£ã¬¥âë à §¤¥«¥ë ¯à®¡¥«®¬
+; ª®¬ ¤   ç¨ ¥âáï á /
+; ¢ eax - à¥§ã«ìâ â ¢ë¯®«¥¨ï ª®¬ ¤ë, -1 ª®¬ ¤  ¥ áãé¥áâ¢ã¥â, 0 ®ª, ¤àã£¨¥ § ¢¨áïâ ®â ª®¬ ¤ë
+ cmd:
+   push ebx
+   push ecx
+   push edi
+   push esi
+   ;
+   ; à®¢¥à¨âì ¯¥à¢ë© á¨¬¢®«
+   ;
+   xor ebx, ebx
+   mov bl, [eax]
+   cmp bl, '/'
+   jnz cmd_end
+   ;
+   ;  §¤¥«¥¨¥ ¯® 1© ¡ãª¢¥ ª®¬ ¤ë
+   ;
+   mov bl, [eax + 1]
+   cmp bl, 'c'
+   jz cmd_c
+   cmp bl, 'e'
+   jz cmd_e
+   cmp bl, 's'
+   jz cmd_s
+   jmp cmd_no
+  cmd_c:
+  cmd_e:
+   lea ebx, [eax + 1]
+   strcmp ebx, str_exit, str_exit.len
+   jz cmd_exit
+   jmp cmd_no
+  cmd_s:
+   lea ebx, [eax + 1]
+   strcmp ebx, str_status, str_status.len
+   jz cmd_status
+   jmp cmd_no
+  cmd_exit:
+  cmd_status:
+   ;
+   ; ãáâ ®¢¨âì áâ âãá ¨ ¯®á« âì ¯ ª¥â á¬¥ë áâ âãá
+   ;
+   lea eax, [eax + 1 + str_status.len]
+   skip_spaces
+   strcmp eax, str_online, str_online.len
+   jz cmd_st_online
+   strcmp eax, str_away, str_away.len
+   jz cmd_st_away
+   strcmp eax, str_na, str_na.len
+   jz cmd_st_na
+   strcmp eax, str_dnd, str_dnd.len
+   jz cmd_st_dnd
+   strcmp eax, str_bisy, str_bisy.len
+   jz cmd_st_bisy
+   strcmp eax, str_free4chat, str_free4chat.len
+   jz cmd_st_free4chat
+   ;
+   ; â âãá ¥ ®¯à¥¤¥«¥.
+   ; ë¢¥áâ¨ á®®¡é¥¨¥  ® ¤®áâã¯ëå áâ âãá å
+   ;
+   mov eax, str_status_message
+   xor ebx, ebx
+   call writemsg
+   jmp cmd_end
+  cmd_st_online:
+  cmd_st_away:
+  cmd_st_na:
+  cmd_st_dnd:
+  cmd_st_bisy:
+  cmd_st_free4chat:
+  cmd_no:
+  cmd_end:
+   pop esi
+   pop edi
+   pop ecx
+   pop ebx
+ ret
 ; <--- initialised data --->
+DATA
+include "parser_data.inc"
-DATA
+include "ssi_data.inc"
-  lsz header,\
+include "comp_data.inc"
     ru, "KI",\
     en, "KI",\
-    fr, "KI"
+head db 'KI',0
+;
+MESS db 'Message from ', 0
+CUSER db 'Current user: ', 0
+;
 ; ¯¨á®ª IP á¥à¢¥à®¢ ICQ
 MESS db 'Message from ', 0
-CUSER db 'Current user: ', 0
+;205.188.153.121
 ;icq_ip db '64.12.200.089',0
 ;icq_ip db '64.12.161.185',0
+;
-ui UI_head	       ; User info
+ui UI_head             ; User info
+;
 procinfo process_information
+;
-UIN db '123456789',0
+;UIN db '362820484',0
-PASS db 'coolpass',0
+;PASS db 'test',0
 ID_STRING db 'ICQ Inc. - Product of ICQ (TM).2000b.4.65.1.3281.85',0
 ;ID_STRING db 'ICQ Inc. - Product of ICQ (TM).2001b.5.17.1.3642.85',0
-CAPABILITIES db 053h, 054h, 0, 0, 097h, 0B1h, 027h, 051h, 024h, 03Ch, 043h, 034h, 0ADh, 022h, 0D6h, 0ABh,\
+;CAPABILITIES db 0x09, 0x46, 0x13, 0x49, 0x4C, 0x7F, 0x11, 0xD1, 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00,\
-F7h, 03Fh, 014h, 092h, 02Eh, 07Ah, 064h, 075h, 0FAh, 0DFh, 04Dh, 0C8h, 088h, 06Fh, 0EAh, 035h,\
+                ;0x97, 0xB1, 0x27, 0x51, 0x24, 0x3C, 0x43, 0x34, 0xAD, 0x22, 0xD6, 0xAB, 0xF7, 0x3F, 0x14, 0x92,\
-h, 0FDh, 0B6h, 0DFh, 09h, 046h, 013h, 044h,	04Ch, 07Fh, 011h, 0D1h, 082h, 022h, 044h, 045h,\
+CAPABILITIES db 0x2E, 0x7A, 0x64, 0x75, 0xFA, 0xDF, 0x4D, 0xC8, 0x88, 0x6F, 0xEA, 0x35, 0x95, 0xFD, 0xB6, 0xDF,\
+                'KOLIBRI KI(cq)',0,0
+                ;0x09, 0x46, 0x13, 0x44, 0x4C, 0x7F, 0x11, 0xD1, 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00
+; 1 áâà®ª
+; {09461349-4C7F-11D1-8222-444553540000}
+; Client supports channel 2 extended, TLV(0x2711) based messages. Currently used only by ICQ clients.
+;ICQ clients and clones use this GUID as message format sign. Trillian client use another GUID
+; in channel 2 messages to implement its own message format (trillian doesn't use TLV(x2711) in SecureIM channel 2 messages!).
+;
+; 2 áâà®ª
+; {97B12751-243C-4334-AD22-D6ABF73F1492}
+; Client supports RTF messages. This capability currently used by ICQ service and ICQ clients.
+;
-h, 054h, 0, 0
+; 4 áâà®ª
+; {0946134E-4C7F-11D1-8222-444553540000}
+; Client supports UTF-8 messages. This capability currently used by AIM service and AIM clients
+;
+;
 ; From &RQ
+;
 ;                0x53, 0x54, 0x00, 0x00, 0x09, 0x46, 0x00, 0x00, 0x4C, 0x7F, 0x11, 0xD1, 0x82, 0x22, 0x44, 0x45,\        ;ST...F..L.T"DE
 ;                0x53, 0x54, 0x00, 0x00, 0x26, 0x52, 0x51, 0x69, 0x6E, 0x73, 0x69, 0x64, 0x65, 0x02, 0x07, 0x09,\        ;ST..&RQinside...
 ;                0x00, 0x00, 0x00, 0x00
-C_LEN = 40h
+C_LEN = 32
 ;C_LEN = 80
-x00, 0x02, 0x00, 0x01, 0x01, 0x01, 0x04, 0x7B,	0x00, 0x03, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\
+x00, 0x02, 0x00, 0x01, 0x01, 0x01, 0x04, 0x7B,  0x00, 0x03, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\
-x00, 0x15, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,	0x00, 0x04, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\
+x00, 0x15, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,  0x00, 0x04, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\
-x00, 0x06, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,	0x00, 0x09, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\
+x00, 0x06, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,  0x00, 0x09, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,\
-x00, 0x0A, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,	0x00, 0x10, 0x00, 0x01, 0x00, 0x10, 0x06, 0x6A
+x00, 0x0A, 0x00, 0x01, 0x01, 0x10, 0x04, 0x7B,  0x00, 0x10, 0x00, 0x01, 0x00, 0x10, 0x06, 0x6A
+;
+;
+;
+FA_LEN = 50h
 FA_LEN = 50h
+;
+;
 ID_NUM = 010Ah
 MAJOR = 05h
 ;MAJOR = 04h
 ;MINOR = 041h
 MINOR = 011h
 LESSER = 01h
 ;BUILD = 0CD1h
+BUILD = 0E3Ah
+DISTR = 055h
+;
 BUILD = 0E3Ah
 DISTR = 055h
 TCB_ESTABLISHED = 4
 TCB_CLOSED = 11
+;
 CL_LANG db 'en',0
+CL_COUNTRY db 'us',0
-CL_COUNTRY db 'us',0
 sbuff db 1024 dup 0     ; ãä¥à ¤«ï ¯¥à¥¤ ç¨ ¨á¯®«ì§ã¥âáï ¢ãâà¨ sendflap
-sbuff db 1024 dup 0	; ãä¥à ¤«ï ¯¥à¥¤ ç¨ ¨á¯®«ì§ã¥âáï ¢ãâà¨ sendflap
+;recived db 0              ; à¨ïâ® ¤ ëå ¨§ â¥«  ¯ ª¥â
-rbuff db 1024 dup 0	; à¨¥¬ë© ¡ãä¥à
+;rbuff db 1024 dup 0     ; à¨¥¬ë© ¡ãä¥à
+timer dw 0
+;ltest db "ADMIN",0
+buff db 1024 dup 0
+;  lbuff db 8 dup 0 	 ; «ï 1 ¯ ª¥â  ®â á¥à¢¥à
+;
+; âà®ª¨ ª®¬ ¤ ¤«ï áà ¢¥¨ï
+;
+str_status db 'status '
+str_status.len = $ - str_status
+str_exit db 'exit '
+str_exit.len = $ - str_exit
+;
+; âà®ª¨ áâ âãá®¢ ¤«ï áà ¢¥¨ï
+;
+str_away db 'away'
+str_away.len = $ - str_away
+str_dnd db 'dnd'
+str_dnd.len = $ - str_dnd
+str_bisy db 'bisy'
+str_bisy.len = $ - str_bisy
+str_na db 'na'
+str_na.len = $ - str_na
+str_online db 'online'
+str_online.len = $ - str_online
+str_free4chat db 'free4chat'
+str_free4chat.len = $ - str_free4chat
+str_status_message db '®áâã¯ë¥ áâ âãáë: away, bisy, na, dnd, online, free4chat',0
+;
 timer dw 0
+;
 ;ltest db "ADMIN",0

Subversion Repositories Kolibri OS

(root)/programs/network/icq/trunk/ki.asm – Rev 1834 → 2296