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

 ; e-mail:       lv4evil@ya.ru
 ; <--- include all MeOS stuff --->
 include "lang.inc"
-include "MACROS.INC"
+include "../../../macros.inc"
 purge mov
 ;include "ASCL9/ascl.inc"
   key:				   ; key event handler
     mov     eax, 2		   ;   get key code
     int     0x40
-    cmp ah, 0Dh                    ; à®¡¥« - ®â¯à ¢¨âì á®®¡é¥¨¥
+    cmp ah, 0Dh 		   ; à®¡¥« - ®â¯à ¢¨âì á®®¡é¥¨¥
   button:			   ; button event handler
     mov     eax, 17		   ;   get button identifier
     int     0x40
     cmp     ah, 2
-    jz      connect
+    jz	    connect
     cmp     ah, 3
-    jz      disconnect
+    jz	    disconnect
     cmp     ah, 4
-    jz      send
+    jz	    send
     ; ¬¥  ã¨
     ;mov al, [inputbuff+2]
     ;cmp al, 20h
     ;jz sd_use_kl
     mov al, [inputbuff+3]
-    cmp al, 20h            ; à®¡¥«
+    cmp al, 20h 	   ; à®¡¥«
     jz sd_use_kl
+    ;
     ; é¥¬ ¯¥à¢ë© ¯à®¡¥«, ¨¬ ¤®«¦¥ § ª®ç¨âìáï ã¨
+    ;
     xor ecx, ecx
   sd_loop:
     mov al, [inputbuff+ecx]
     cmp al, 20h
     jz sd_space
     cmp al, 0
-    jz  wait_event
+    jz	wait_event
     inc ecx
     jmp sd_loop
   sd_space:
   sd_use_kl:
     lea eax, [inputbuff+1]
     mov [inputbuff+3], byte 0
     call ascitoint
-    lea eax, [eax-1]    ; .ª. ¢  ®âáç¥â á 0
+    lea eax, [eax-1]	; .ª. ¢  ®âáç¥â á 0
     mov [curruser], al
+    ;
     ;  ë¥ ¯à¨ïâë
+    ;
     rs_data_end:
     mov [hrf], 0
-    write_debug 'Some data recived'
+    write_debug 'Some data received'
+    ;
+    ;
+    ;
     cmp [login], 0
     jz rs_login
+    ;
     ;  «¨èª®¬ ¡®«ìè®© ¯ ª¥â!
+    ;
     rs_big_flap:
-    write_debug 'Too BIG FLAP Recived'
+    write_debug 'Too BIG FLAP Received'
     mov [hrf], 0
     mov ecx, [socket]
   jmp wait_event
 ; ®¥¤¨¥¨¥ á á¥à¢¥à®¬, ¢®§¢à é ¥â ¢ eax - åí¤« á®ª¥â
 ; ¯¥à¥¤ ¥¬ ¢ ¥ å IP  ¤à¥á á¥à¢¥à
 ; ¢ ebx - ¯®àâ
   srv_connect:
     push ecx
     push edx
     push esi
     push edi
     push ebx
-    mov esi, eax             ; IP - ¢ esi
+    mov esi, eax	     ; IP - ¢ esi
     ; find free port
     mov    ecx, 1000	     ; ¯à¥¤¥«ï¥¬ «®ª «ìë© ¯®àâ,  ç¨ ¥¬ á 1000
     ;cmp eax,-1
     ;jnz fin
     ;delay 100
-    write_debug	'CONNECTION FAILED'                   ;®¤ª«îç¥¨¥ ¥ ã¤ «®áì
+    write_debug 'CONNECTION FAILED'		      ;®¤ª«îç¥¨¥ ¥ ã¤ «®áì
     jmp @f
     ;connrcted:
+;
 ; --> ecx socket handle
+;
   buff db 1024 dup 0
-  lbuff db 8 dup 0 	 ; «ï 1 ¯ ª¥â  ®â á¥à¢¥à
+  lbuff db 8 dup 0	 ; «ï 1 ¯ ª¥â  ®â á¥à¢¥à
   srv_login:
     pushf
     push eax
     push ebx
+    ;
     movzx eax, [rflap.wDs]
     cmp eax, 4
     jnz l_len_err
     mov eax, dword [mbuff]
-    cmp eax, 01000000h      ; 00 00 00 01
+    cmp eax, 01000000h	    ; 00 00 00 01
     jnz l_data_err
+    ;
     ;®à¬¨àã¥¬ ¯ ª¥â ¤«ï á®¥¤¨¥¨ï
+    ;
     ;mov [flap.bId], FLAP_ID
     mov eax, 26
     mov ebx, 9
     int 40h
     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 eax, 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 ebx, [buff+8]         ; + à §¬¥à ¤ ëå ¢ ¡ãä¥à¥ + 1
+    lea ebx, [buff+8]	      ; + à §¬¥à ¤ ëå ¢ ¡ãä¥à¥ + 1
     call strlen
     mov word [buff+edx+4], ax  ; 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	       ; «¨  áâà®ª¨
-    mov eax, PASS              ; áâ®ç¨ª
+    mov eax, PASS	       ; áâ®ç¨ª
     inc ebx
     call strcpy
     mov [flap.wDs], dx ; Data size
     mov eax, flap
     mov ebx, buff
     call sendflap
     cmp eax, 0
-    jnz l_fin           ; ¥ãá¯¥å
+    jnz l_fin		; ¥ãá¯¥å
     jmp l_end
     xor ebx, ebx
    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
   l_uin_ok:
     mov eax, ebx
     xor ebx, ebx
-    mov bl, [mbuff+eax+3]           ;
+    mov bl, [mbuff+eax+3]	    ;
-    mov bh, [mbuff+eax+2]           ;  «¨  ¤ ëå
+    mov bh, [mbuff+eax+2]	    ;  «¨  ¤ ëå
+    ;
     ;  UIN ®ª  ¥ ¯à®¢¥àï¥âáï
+    ;
     lea ebx, [ebx+eax+4]
     mov ax, word [mbuff+ebx]
-    cmp ax, 0500h             ; 00 05 Bos address
+    cmp ax, 0500h	      ; 00 05 Bos address
     jz l_all_ok
-    cmp ax, 0400h             ; UIN incorrect
+    cmp ax, 0400h	      ; UIN incorrect
     jz l_uin_err
     cmp ax, 0800h
     jz l_pass_err
     jmp l_tlvt_err
+    ;
     ; ¥á«¨ ¥¢¥àë© UIN/ ¯ à®«ì, ¯®«ãç ¥¬ TLV.TYPE 4/8
     ;
     l_all_ok:
     xor ecx, ecx
-    mov cl, [mbuff+ebx+3]       ;length
+    mov cl, [mbuff+ebx+3]	;length
-    mov ch, [mbuff+ebx+2]       ;
+    mov ch, [mbuff+ebx+2]	;
     lea eax, [mbuff+ebx+4]
     push ebx
     mov ebx, bos_address
     call strcpy
     pop ebx
     add ebx, ecx
-    lea ebx, [ebx+4]                ;  §¬¥à § £®«®¢ª
+    lea ebx, [ebx+4]		    ;  §¬¥à § £®«®¢ª
     ;
     ; cookie
     ;
     ;write_debug 'Login Cookie'
     xor eax, eax
     mov ax, word [mbuff+ebx]
-    cmp ax, 0600h                  ; TLV.Type cookie
+    cmp ax, 0600h		   ; TLV.Type cookie
     jnz l_tlvt_err
-    mov cl, [mbuff+ebx+3]           ;
+    mov cl, [mbuff+ebx+3]	    ;
-    mov ch, [mbuff+ebx+2]           ; Length
+    mov ch, [mbuff+ebx+2]	    ; Length
     mov [cookie_len], cx
     lea eax, [mbuff+ebx+4]
     push ebx
     mov ebx, srv_cookie
     call strcpy
     ;mov ebx, 8
     ;int 40h
     mov eax, bos_address
     call ip_parser
     call htonl
     data_debug 'BOS Address: ', eax
     data_debug 'BOS Port: ', ebx
     mov [bos_ip], eax
     mov [bos_port], ebx
     call srv_connect
-    mov [login], 1                ; ®¥¤¨¥¨¥ á ®á®¢ë¬ á¥à¢¥à®¬ ãáâ ®¢«¥®
+    mov [login], 1		  ; ®¥¤¨¥¨¥ á ®á®¢ë¬ á¥à¢¥à®¬ ãáâ ®¢«¥®
     ;mov [socket], eax
     l_data_err:
     write_debug 'LOGIN DATA MISMATCH'
     jmp l_fin
     l_len_err:
-    write_debug 'RECIVED DATA LENGTH MISMATCH'
+    write_debug 'RECEIVED 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 / RECIVE ERROR'
+    write_debug 'FLAP ID MISMATCH / RECEIVE ERROR'
     l_fin:
     l_end:
     pop edx
     ;pop ecx
     pop ebx
     pop eax
     popf
   ret
+;
 ; Length of string
 ; input eax = offset string
     xor ecx, ecx
     loop_s:
     mov cl, [eax+ebx]
     cmp ecx,0
-    jz  nl
+    jz	nl
     inc ebx
     jmp loop_s
     xor ecx, ecx
     xor ebx, ebx
     loop_r:
     mov bl, [eax+ecx] ;¨¬¢®« ¨§ ¬ áá¨¢  ¯ à®«ï
-    cmp bl, 0         ;®¥æ áâà®ª¨
+    cmp bl, 0	      ;®¥æ áâà®ª¨
     jz r_fin
     xor bl, [ROASTING_ARRAY+ecx]
     push ebx
     push ecx
     xor edx, edx
-    mov dl, [eax]          ; ID byte
+    mov dl, [eax]	   ; ID byte
     mov [sbuff], dl
-    mov dl, [eax+1]        ; FLAP channel
+    mov dl, [eax+1]	   ; FLAP channel
     mov [sbuff+1], dl
-    mov dl, [eax+2]        ; FLAP datagramm seq number
+    mov dl, [eax+2]	   ; FLAP datagramm seq number
-    mov [sbuff+3], dl      ; ¬¥ï¥¬ ¬¥áâ ¬¨ ¡ ©âë ¤«ï ¯¥à¥¤ ç¨ ¯® á¥â¨
+    mov [sbuff+3], dl	   ; ¬¥ï¥¬ ¬¥áâ ¬¨ ¡ ©âë ¤«ï ¯¥à¥¤ ç¨ ¯® á¥â¨
     mov dl, [eax+3]
     mov [sbuff+2], dl
-    mov dl, [eax+4]        ; FLAP data size
+    mov dl, [eax+4]	   ; FLAP data size
     mov [sbuff+5], dl
     mov dl, [eax+5]
     mov [sbuff+4], dl
     mov dx, word [eax+4]
-    xchg ecx, edx           ; ecx - size edx - handle
+    xchg ecx, edx	    ; ecx - size edx - handle
-    mov eax, ebx            ; data
+    mov eax, ebx	    ; data
-    mov ebx, sbuff          ; dest
+    mov ebx, sbuff	    ; dest
-    add ebx, 6              ; + header size
+    add ebx, 6		    ; + header size
     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
     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 ebx, 1
-    int 40h                ; ¤¥¬
+    int 40h		   ; ¤¥¬
     jmp s_wait
   srv_disconnect:
     pushf
     push eax
     push ebx
     mov [flap.bId], FLAP_ID
-    mov [flap.bCh], 4      ;Disconnect
+    mov [flap.bCh], 4	   ;Disconnect
     xor eax, eax
     mov ax, [seq]
     mov [flap.wSn], ax
     mov [flap.wDs], 0
     mov eax, flap
     mov eax, par_buff
     call ascitoint
     ;data_debug 'Debug eax: ', eax
-    cmp ecx, 0       ; ¥ ¬®¦¥â  ç¨ âìáï á â®çª¨
+    cmp ecx, 0	     ; ¥ ¬®¦¥â  ç¨ âìáï á â®çª¨
     jz ip_err
-    shl esi, 8       ; ¤¢¨£ ¥¬ ¯à¥¤ë¤ãé¨© ¡ ©â
+    shl esi, 8	     ; ¤¢¨£ ¥¬ ¯à¥¤ë¤ãé¨© ¡ ©â
     add esi, eax
     inc ecx
     xor edx, edx     ; ç¥âç¨ª ¡ãä¥à  = 0
     jmp ip_loop
-    ip_colon:         ; :  áâà®ª¥  ¤à¥á
+    ip_colon:	      ; :  áâà®ª¥  ¤à¥á
-    inc edi           ; ë«® :
+    inc edi	      ; ë«® :
     jmp ip_dot
     ip_end_str:
     cmp edi, 1
     jz @f
-                          ; : ¥ ¡ë«®
+			  ; : ¥ ¡ë«®
     mov [par_buff+edx], 0 ; ®¥æ áâà®ª¨
     mov eax, par_buff
     call ascitoint
-    shl esi, 8       ; ¤¢¨£ ¥¬ ¯à¥¤ë¤ãé¨© ¡ ©â
+    shl esi, 8	     ; ¤¢¨£ ¥¬ ¯à¥¤ë¤ãé¨© ¡ ©â
     add esi, eax
     ;mov eax, esi     ; IP ¢ 16 à¨ç®© ä®à¬¥
     ;xor ebx, ebx    ; ®¬¥à  ¯®àâ  ¥â
     jmp ip_end
     ;xor esi, esi
     xor edi, edi
     ati_loop:
     mov bl, [eax+ecx]
-    cmp bl, 0         ; ®¥æ áâà®ª¨
+    cmp bl, 0	      ; ®¥æ áâà®ª¨
     jz ati_str_end
     cmp bl, 39h
-    ja ati_err        ; ¥ æ¨äà
+    ja ati_err	      ; ¥ æ¨äà
     cmp bl, 30h
     jb ati_err
     ati_loop2:
     cmp edx, ecx
     jz ati_all
     push eax
-    sub eax, edx              ; ëç¥áâì áç¥âç¨ª
+    sub eax, edx	      ; ëç¥áâì áç¥âç¨ª
     movzx ebx, byte [eax]     ;  bl á¨¬¢®«
     ;pop eax
     sub bl, 30h       ; ëç¨á«ï¥¬ 10â¨çãî æ¨äàã
     push esi
     push edi
     push ebx
     push edx
     ;xor ebx, ebx
-    mov esi, ecx            ; å¥¤« á®ª¥â
+    mov esi, ecx	    ; å¥¤« á®ª¥â
-    mov edi, ebx            ; ª § â¥«ì   ¤ ë¥
+    mov edi, ebx	    ; ª § â¥«ì   ¤ ë¥
     xor ebx, ebx
-    mov bl, [eax]           ;
+    mov bl, [eax]	    ;
     mov [snac_buff+1], bl   ; Family ID
-    mov bl, [eax+1]         ; ®¢¥àâ¨àã¥âáï ¢ BigEndian
+    mov bl, [eax+1]	    ; ®¢¥àâ¨àã¥âáï ¢ BigEndian
     mov [snac_buff], bl     ;
-    mov bl, [eax+2]         ;
+    mov bl, [eax+2]	    ;
     mov [snac_buff+3], bl   ; Subtype ID
-    mov bl, [eax+3]         ;
+    mov bl, [eax+3]	    ;
     mov [snac_buff+2], bl   ;
-    mov bl, [eax+4]         ;
+    mov bl, [eax+4]	    ;
     mov [snac_buff+5], bl   ;
-    mov bl, [eax+5]         ; Flags
+    mov bl, [eax+5]	    ; Flags
     mov [snac_buff+4], bl   ;
-    mov bl, [eax+6]         ;
+    mov bl, [eax+6]	    ;
     mov [snac_buff+9], bl   ;
-    mov bl, [eax+7]         ;
+    mov bl, [eax+7]	    ;
     mov [snac_buff+8], bl   ;
-    mov bl, [eax+8]         ; Reqest ID
+    mov bl, [eax+8]	    ; Reqest ID
     mov [snac_buff+7], bl   ;
-    mov bl, [eax+9]         ;
+    mov bl, [eax+9]	    ;
     mov [snac_buff+6], bl   ;
     lea ebx, [snac_buff+10]
-    mov eax, edi            ; ª § â¥«ì   ¤ ë¥
+    mov eax, edi	    ; ª § â¥«ì   ¤ ë¥
     ;add ebx, 10             ; + à §¬¥à § £®«®¢ª  SNAC
-    mov ecx, edx            ; à §¬¥à ¤ ëå
+    mov ecx, edx	    ; à §¬¥à ¤ ëå
     call strcpy
-    mov ecx, esi            ; ¥¤« á®ª¥â
+    mov ecx, esi	    ; ¥¤« á®ª¥â
     mov [flap.bId], FLAP_ID
-    mov [flap.bCh], 2       ;   « ¤«ï ¯®áë«ª¨ SNAC
+    mov [flap.bCh], 2	    ;   « ¤«ï ¯®áë«ª¨ SNAC
     xor ebx, ebx
+    ;
     ; ¯à¥¤¥«ï¥¬ â¨¯ ¯à¨ïâ®£® FLAP
+    ;
     xor ebx, ebx
     mov bl, [rflap.bCh]
-    cmp bl, 1                ; áâ ®¢ª  á®¥¤¨¥¨ï
+    cmp bl, 1		     ; áâ ®¢ª  á®¥¤¨¥¨ï
-    jz  m_login
+    jz	m_login
     cmp bl, 2
-    jz m_snac                ; ®«ãç¥ SNAC
+    jz m_snac		     ; ®«ãç¥ SNAC
     cmp bl, 3
-    jz m_flap_err            ; FLAP-level error
+    jz m_flap_err	     ; FLAP-level error
     cmp bl, 4
-    jz m_close_conn          ;  ªàëâ¨¥ á®¥¤¨¥¨ï
+    jz m_close_conn	     ;  ªàëâ¨¥ á®¥¤¨¥¨ï
     cmp bl, 5
-    jz m_keep_alive          ;
+    jz m_keep_alive	     ;
+    ;
     ; ¡à ¡®âª  à áá®¥¤¨¥¨ï
+    ;
   m_close_conn:
-    write_debug 'Another Computer Use YOUR UIN!'
+    write_debug 'Another Computer is Useing YOUR UIN!'
     call srv_disconnect
     call closesocket
     jmp m_fin
+    ;
     ; ®¡à ¡®âª  á®¥¤¨¥¨ï
     ; ¯à®¢¥àï¥¬ ¢¥àá¨î ¯à®â®ª®«
+    ;
     xor eax, eax
     mov al, [mbuff+3]
     cmp eax, 1
-    jnz m_login_other    ; ¥ ¯®¤å®¤¨â
+    jnz m_login_other	 ; ¥ ¯®¤å®¤¨â
+    ;
+    ;
     mov [flap.bCh], 1
     mov [flap.wSn], ax
     xor eax, eax
     mov ax, [cookie_len]
-    add eax, 8            ; TLV len + protocol version len
+    add eax, 8		  ; TLV len + protocol version len
     mov [flap.wDs], ax
     mov dword [buff], 01000000h  ; 00 00 00 01 ®¬¥à ¯à®â®ª®«
-    mov word [buff+4], 0600h     ; 00 06   TLV.Type
+    mov word [buff+4], 0600h	 ; 00 06   TLV.Type
     mov ax, [cookie_len]
-    mov [buff+6], ah             ;
+    mov [buff+6], ah		 ;
-    mov [buff+7], al             ; TLV.Length
+    mov [buff+7], al		 ; TLV.Length
-    mov edx, ecx                 ; edx <-- socket handle
+    mov edx, ecx		 ; edx <-- socket handle
-    mov ecx, eax                 ; ecx <-- cookie len
+    mov ecx, eax		 ; ecx <-- cookie len
-    mov eax, srv_cookie          ; Src
+    mov eax, srv_cookie 	 ; Src
     lea ebx, [buff+8]
     call strcpy
-    mov ecx, edx                 ; ecx <-- socket handle
+    mov ecx, edx		 ; ecx <-- socket handle
     xor edx, edx
     mov bx, [rsnac.wFid]
     mov dx, [rsnac.wSid]
     cmp bx, 1
-    jz m_snac_1              ;Generic service controls
+    jz m_snac_1 	     ;Generic service controls
     cmp bx, 2
-    jz m_snac_2              ;Location services
+    jz m_snac_2 	     ;Location services
     cmp bx, 3
-    jz m_snac_3              ;Buddy List management service
+    jz m_snac_3 	     ;Buddy List management service
     cmp bx, 4
-    jz m_snac_4              ;ICBM (messages) service
+    jz m_snac_4 	     ;ICBM (messages) service
     cmp bx, 9
-    jz m_snac_9              ;Privacy management service
+    jz m_snac_9 	     ;Privacy management service
     cmp bx, 015h
-    jz m_snac_15             ;ICQ specific extensions service
+    jz m_snac_15	     ;ICQ specific extensions service
     cmp bx, 013h
-    jz m_snac_13             ;Server Side Information (SSI) service
+    jz m_snac_13	     ;Server Side Information (SSI) service
     jmp m_other_snac
+    ;
     jz m_snac_1_1
     jmp m_snac_1_other
+    ;
     ; Rate limits information response
+    ;
-  m_snac_1_7:              ; â¢¥ç ¥¬
+  m_snac_1_7:		   ; â¢¥ç ¥¬
     mov [ssnac.wFid], 1    ; Family
     mov [ssnac.wSid], 8    ; Subtype
     mov [ssnac.dRi], 8
     mov word [buff], 0100h   ; 0001
     mov word [buff+2], 0200h ; 0002
     mov word [buff+4], 0300h ; 0003
     mov word [buff+6], 0400h ; 0004
     mov word [buff+8], 0500h ; 0005
     mov eax, ssnac
     mov ebx, buff
-    mov edx, 10              ;  §¬¥à ¤ ëå
+    mov edx, 10 	     ;  §¬¥à ¤ ëå
     call sendsnac
+    ;
     ; Client ask server location service limitations
+    ;
     mov [ssnac.wFid], 2    ; Family
+    ;
     ;  Server sends supported services list
+    ;
     ;
     ;   SNAC(01,17)
     ;   Client ask for services version numbers
+    ;
     mov [ssnac.wFid], 1    ; Family
     mov [ssnac.wSid], 17h    ; Subtype
     mov [ssnac.dRi], 17h
+    ;
     ;   ¯¨á®ª á¥à¢¨á®¢, ª®â®àë¥  ¬ ã¦ë
     ;
-    ;    xx xx	 	word	 	family number #1
+    ;    xx xx          word            family number #1
-    ;    xx xx	 	word	 	family version
+    ;    xx xx          word            family version
-    ;      ...	 	 ...	 	 ...
+    ;      ...           ...             ...
+    ;
+    ;
     jmp m_fin
   m_snac_1_other:
     pop ecx
     mov eax, ssnac
     mov ebx, buff
-    mov edx, C_LEN+4            ; «¨  ¤ ëå+à §¬¥à § £®«®¢ª  TLV
+    mov edx, C_LEN+4		; «¨  ¤ ëå+à §¬¥à § £®«®¢ª  TLV
     call sendsnac
+    ;
     ; Client ask server for ICBM service parameters
+    ;
     mov [ssnac.wFid], 4    ; Family
     mov [ssnac.wSid], 4    ; Subtype
-    mov [ssnac.dRi], 4     ; request-id
+    mov [ssnac.dRi], 4	   ; request-id
     mov eax, ssnac
     mov ebx, buff
     xor edx, edx
     call sendsnac
+    ;
   m_snac_3_b:
+    ;
     ; § ¢á¥© ¨ä®à¬ æ¨¨ ¯®ª  ã¦¥ â®«ìª® áâ âãá
+    ;
-    xor edx, edx           ; ç¥âç¨ª
+    xor edx, edx	   ; ç¥âç¨ª
     xor ecx, ecx
     xor eax, eax
-    cld             ;   ¯à ¢«¥¨¨ ã¢¥«¨ç¥¨ï  ¤à¥á®¢
+    cld 	    ;   ¯à ¢«¥¨¨ ã¢¥«¨ç¥¨ï  ¤à¥á®¢
     dec edx
   m_snac_3_b_loop:
     inc edx
     cmp edx, UINS
-    jnc m_snac_3_b_end     ;>=
+    jnc m_snac_3_b_end	   ;>=
-    mov cl, [mbuff+10]     ; «¨
+    mov cl, [mbuff+10]	   ; «¨
     mov eax, ecx
     mov edi, UIN_LEN
     imul edi ,edx
     jnz m_snac_3_b_loop
+    ;
     ; UIN ¯à¥¤¥«¥
+    ;
-    lea ecx, [eax+10+11]           ; +sizeof SNAC_head + offset #2 TLV
+    lea ecx, [eax+10+11]	   ; +sizeof SNAC_head + offset #2 TLV
-    mov ax, word [mbuff+ecx]            ;#2 TLV.Type
+    mov ax, word [mbuff+ecx]		;#2 TLV.Type
-    cmp ax, 0C00h                  ;dc info (optional)
+    cmp ax, 0C00h		   ;dc info (optional)
     jz m_snac_3_b_dc
-    cmp ax, 0A00h                  ;external ip address
+    cmp ax, 0A00h		   ;external ip address
     jz m_snac_3_b_extip
     jmp m_snac_3_b_bad_tlv
   m_snac_3_b_extip:
+    ;
     ;  íâ®â :-)
     lea ecx, [ecx+8]
     mov ax, word [mbuff+ecx]
-    cmp ax, 0600h                 ;TLV.Type(0x0A) - external ip address
+    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:
     dec edx
     m_snac_3_c_loop:
     inc edx
     cmp edx, UINS
-    jnc m_snac_3_b_end     ;>=
+    jnc m_snac_3_b_end	   ;>=
-    mov cl, [mbuff+10]     ; «¨
+    mov cl, [mbuff+10]	   ; «¨
     mov edi, UIN_LEN
     imul edi ,edx
     lea edi, [uins+edi]
   m_snac_3_other:
+    ;
     ;  Client change default ICBM parameters command
+    ;
     mov [ssnac.wFid], 4    ; Family
     mov [ssnac.wSid], 2    ; Subtype
-    mov [ssnac.dRi], 2     ; request-id
+    mov [ssnac.dRi], 2	   ; request-id
     mov eax, ICBM_PARAMS
     mov ebx, buff
     push ecx
+    ;
     ;   Client ask server PRM service limitations
+    ;
     mov [ssnac.wFid], 9    ; Family
     mov [ssnac.wSid], 2    ; Subtype
-    mov [ssnac.dRi], 2     ; request-id
+    mov [ssnac.dRi], 2	   ; request-id
     mov eax, ssnac
     mov ebx, buff
     xor edx, edx
     call sendsnac
   m_snac_4_7:
+    ;
     ;  ¯à¥¤¥«ï¥¬ â¨¯ á®®¡é¥¨ï ¯® ¯®«î message channel
+    ;
     xor eax, eax
-    mov ax, word [mbuff+10+8]           ; +10 - à §¬¥à SNAC
+    mov ax, word [mbuff+10+8]		; +10 - à §¬¥à SNAC
-                                        ; +8 á¬¥é¥¨¥ ¤® message channel
+					; +8 á¬¥é¥¨¥ ¤® message channel
-    cmp ax, 0100h                       ; 00 01
+    cmp ax, 0100h			; 00 01
     jz m_snac_ch1
     cmp ax, 0200h
     jz m_snac_ch2
     cmp ax, 0400h
     jz m_snac_ch4
   m_snac_ch1:
+    ;
     ; .ª ¢ ®ç¥à¥¤®© à § ®¯¨á ¨¥ ¯à®â®ª®«  ¥ á®¢¯ ¤ ¥â á à¥ «ì®áâìî
     ; à §¡¨à ¥¬ ¢á¥ TLV ¯® ¯®àï¤ªã
-    mov eax, dword [mbuff+10]          ; cookie
+    mov eax, dword [mbuff+10]	       ; cookie
     mov [msg_cookie1], eax
     mov eax, dword [mbuff+10+4]
-    mov [msg_cookie2], eax             ; á¯®«ì§ãîâáï ¤«ï ¯®â¢¥à¦¤¥¨ï ¯à¨¥¬  á®®¡é¥¨©
+    mov [msg_cookie2], eax	       ; á¯®«ì§ãîâáï ¤«ï ¯®â¢¥à¦¤¥¨ï ¯à¨¥¬  á®®¡é¥¨©
-    mov al, [mbuff+10+10]              ; Sender UIN length
+    mov al, [mbuff+10+10]	       ; Sender UIN length
     mov [ui.bUinLength], al
     push ecx
     movzx ecx, al
-    lea eax, [mbuff+10+11]             ; UIN string
+    lea eax, [mbuff+10+11]	       ; UIN string
-    lea ebx, [ui.bUin]                 ; Dest
+    lea ebx, [ui.bUin]		       ; Dest
     call strcpy
-    lea ecx, [ecx+10+15]               ; ¯¥à¢ë© TLV
+    lea ecx, [ecx+10+15]	       ; ¯¥à¢ë© TLV
  m_snac_ch1_loop:
     movzx eax, word [mbuff+ecx]
-    cmp eax, 0100h                     ;TLV.Type(0x01) - user class
+    cmp eax, 0100h		       ;TLV.Type(0x01) - user class
     jz m_snac_ch1_1
-    cmp eax, 0600h                     ;TLV.Type(0x06) - user status
+    cmp eax, 0600h		       ;TLV.Type(0x06) - user status
     jz m_snac_ch1_6
-    cmp eax, 0800h                     ; Unknown type
+    cmp eax, 0800h		       ; Unknown type
     jz m_snac_ch1_8
-    cmp eax, 0500h                     ; Unknown type
+    cmp eax, 0500h		       ; Unknown type
     jz m_snac_ch1_5
-    cmp eax, 0F00h                     ; TLV.Type(0x0f) - user idle time
+    cmp eax, 0F00h		       ; TLV.Type(0x0f) - user idle time
     jz m_snac_ch1_f
-    cmp eax, 0300h                     ; TLV.Type(0x03) - account creation time
+    cmp eax, 0300h		       ; TLV.Type(0x03) - account creation time
     jz m_snac_ch1_3
-    cmp eax, 0400h                     ; TLV.Type(0x04) - automated response flag
+    cmp eax, 0400h		       ; TLV.Type(0x04) - automated response flag
     jz m_snac_ch1_4
-    cmp eax, 0200h                     ; TLV.Type(0x02) - message data
+    cmp eax, 0200h		       ; TLV.Type(0x02) - message data
     jz m_snac_ch1_mess
     jmp m_snac_msg_tlv_err
     ;
     ; ®§¬®¦®, ¤®¯®«¨â¥«ì ï ¨¨ä®à¬ æ¨ï ¡ã¤¥â ®¡à ¡ âë¢ âìáï
     ; ® ¯®ª  ¥â
   m_snac_ch1_1:
-    movzx eax, word [mbuff+ecx+2]       ; TLV.Length
+    movzx eax, word [mbuff+ecx+2]	; TLV.Length
     call ntohs
     lea ecx, [eax+ecx+4]
     jmp m_snac_ch1_loop
   m_snac_ch1_6:
-    mov eax, dword [mbuff+ecx+4]            ; User status
+    mov eax, dword [mbuff+ecx+4]	    ; User status
     call ntohl
     mov [ui.dUserStatus], eax
-    movzx eax, word [mbuff+ecx+2]       ; TLV.Length
+    movzx eax, word [mbuff+ecx+2]	; TLV.Length
     call ntohs
     lea ecx, [eax+ecx+4]
     ;
+    ;
     jmp m_snac_ch1_loop
   m_snac_ch1_8:
-    movzx eax, word [mbuff+ecx+2]       ; TLV.Length
+    movzx eax, word [mbuff+ecx+2]	; TLV.Length
     call ntohs
   m_snac_ch1_mess:
+    ;
+    ;
     movzx eax, word [mbuff+ecx+4]    ;
-    cmp eax, 0105h                   ; 05 fragment identifier (array of required capabilities)
+    cmp eax, 0105h		     ; 05 fragment identifier (array of required capabilities)
-    jnz m_snac_ch1_fr_err            ; 01 fragment version
+    jnz m_snac_ch1_fr_err	     ; 01 fragment version
     movzx eax, word [mbuff+ecx+6]    ; Length
     call ntohs
-    lea ecx, [ecx+eax+8]             ; à®¯ãáª ¥¬  byte array of required capabilities (1 - text)
+    lea ecx, [ecx+eax+8]	     ; à®¯ãáª ¥¬  byte array of required capabilities (1 - text)
-    movzx eax, word [mbuff+ecx]      ; 	fragment identifier (message text)
+    movzx eax, word [mbuff+ecx]      ;  fragment identifier (message text)
-    cmp eax, 0101h                   ;  fragment version
+    cmp eax, 0101h		     ;  fragment version
     jnz m_snac_ch1_fr_err
     movzx eax, word [mbuff+ecx+2]    ; TLV Length
     call ntohs
     xchg eax, ecx
     mov eax, dword [mbuff+10]
     mov [msg_cookie1], eax
     mov eax, dword [mbuff+10+4]
     mov [msg_cookie2], eax
-    mov al, [mbuff+10+10]              ; Sender UIN length
+    mov al, [mbuff+10+10]	       ; Sender UIN length
     mov [ui.bUinLength], al
     push ecx
     movzx ecx, al
-    lea eax, [mbuff+10+11]             ; UIN string
+    lea eax, [mbuff+10+11]	       ; UIN string
-    lea ebx, [ui.bUin]                 ; Dest
+    lea ebx, [ui.bUin]		       ; Dest
     mov eax, [msg_cookie1]
     mov dword [buff], eax
     mov eax, [msg_cookie2]
     mov dword [buff+4], eax
-    mov word [buff+8], 0200h      ; Channel 2
+    mov word [buff+8], 0200h	  ; Channel 2
     mov al, [ui.bUinLength]
     mov [buff+10], al
     lea eax, [ui.bUin]
     lea ebx, [buff+11]
     call strcpy
     lea ecx, [ecx+11]
-    mov word [buff+ecx], 0100h    ; reason code (1 - unsupported channel, 2 - busted payload, 3 - channel specific)
+    mov word [buff+ecx], 0100h	  ; reason code (1 - unsupported channel, 2 - busted payload, 3 - channel specific)
     mov edx, ecx
     jmp m_fin
   m_snac_4_other:
     mov [ssnac.wSid], 0Eh    ; Subtype
     mov [ssnac.dRi], 0Eh     ; request-id
     mov eax, ssnac
     mov ebx, buff
-    xor edx, edx             ; TLV head len
+    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], 0	    ;  TLV type 06
-    mov [buff+1], 6h        ;
+    mov [buff+1], 6h	    ;
-    mov [buff+2], 0         ;  TLV data length
+    mov [buff+2], 0	    ;  TLV data length
-    mov [buff+3], 4         ;
+    mov [buff+3], 4	    ;
+    ;
     mov [status], ax
     mov word [buff+6], ax
     mov eax, ssnac
     mov ebx, buff
-    mov edx, 8           ; TLV head len+ data len
+    mov edx, 8		 ; TLV head len+ data len
     call sendsnac
     mov eax, UIN
     call ascitoint
     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
+    ;
     ; Client READY command
+    ;
     mov [ssnac.wFid], 1  ; Family
     mov [ssnac.wSid], 2    ; Subtype
-    mov [ssnac.dRi], 2     ; request-id
+    mov [ssnac.dRi], 2	   ; request-id
     mov eax, FAMILY_ARR
     mov ebx, buff
     push ecx
+    ;
     ;  ¯à è¨¢ ¥¬ offline á®®¡é¥¨ï
+    ;
     mov [ssnac.wFid], 15h  ; Family
     mov [ssnac.wSid], 2    ; Subtype
-    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
     call ascitoint
     mov dword [buff+6], eax
     mov [login], 2
     jmp m_fin
   m_snac_9_other:
-    write_debug 'Unknown SNAC Family 9 Recived'
+    write_debug 'Unknown SNAC Family 9 Received'
     jmp m_fin
+    ;
     ; ¡à ¡®âª¨ ¯®ª  ¥â
+    ;
     ;
-    ;  SNAC(13,05)	  Client check if its local SSI copy is up-to-date
+    ;  SNAC(13,05)        Client check if its local SSI copy is up-to-date
+    ;
     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], 10h	  ;     number of items in client local SSI copy
     mov ebx, buff
+    ;
     ;  Client activates server SSI data
+    ;
     mov [ssnac.wFid], 13h  ; Family
     mov [ssnac.wSid], 7    ; Subtype
-    mov [ssnac.dRi], 7     ; request-id
+    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], 1Eh    ; Subtype
     mov [ssnac.dRi], 1Eh     ; request-id
-    mov [buff], 0           ;  TLV type 06
+    mov [buff], 0	    ;  TLV type 06
-    mov [buff+1], 6h        ;
+    mov [buff+1], 6h	    ;
-    mov [buff+2], 0         ;  TLV data length
+    mov [buff+2], 0	    ;  TLV data length
-    mov [buff+3], 4         ;
+    mov [buff+3], 4	    ;
+    ;
+    ;
     mov ax, STATUS_DCDISABLED  ; DC disabled
     call htons
     mov [status], ax
     mov word [buff+6], ax
     mov eax, ssnac
     mov ebx, buff
-    mov edx, 8           ; TLV head len+ data len
+    mov edx, 8		 ; TLV head len+ data len
     call sendsnac
+    ;
     ; Client READY command
+    ;
     mov [ssnac.wFid], 1  ; Family
     mov [ssnac.wSid], 2    ; Subtype
-    mov [ssnac.dRi], 2     ; request-id
+    mov [ssnac.dRi], 2	   ; request-id
     mov eax, FAMILY_ARR
+    ;
     ;  ¯à è¨¢ ¥¬ offline á®®¡é¥¨ï
+    ;
     mov [ssnac.wFid], 15h  ; Family
     mov [ssnac.wSid], 2    ; Subtype
-    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
     call ascitoint
     mov dword [buff+6], eax
     jmp m_fin
     ;write_debug 'SNAC 15, 3'
     xor eax, eax
     mov ax, word [mbuff+10]  ; + SNAC.head size
-    cmp ax, 0100h            ; 00 01 TLV type
+    cmp ax, 0100h	     ; 00 01 TLV type
     jnz m_snac_tlv_err
     mov ax, word [mbuff+10+10]
-    cmp ax, 0041h             ; Offline Message
+    cmp ax, 0041h	      ; Offline Message
     jz m_snac_offline_mes
-    cmp ax, 0042h             ; End messages
+    cmp ax, 0042h	      ; End messages
     jz m_snac_offline_end
     cmp ax, 07DAh
     jz m_snac_meta_data
     write_debug 'Unknown Subtype SNAC (15,3)'
     jmp m_fin
   m_snac_offline_mes:
-    mov eax, MESS                      ;
+    mov eax, MESS		       ;
-    call strlen                        ;  ë¢®¤¨¬ áâà®ªã á á®®¡é¥¨¥¬ ® ®â¯à ¢¨â¥«¥ ¨ ¢à¥¬¥¨ ®â¯à ¢ª¨
+    call strlen 		       ;  ë¢®¤¨¬ áâà®ªã á á®®¡é¥¨¥¬ ® ®â¯à ¢¨â¥«¥ ¨ ¢à¥¬¥¨ ®â¯à ¢ª¨
-    push ecx                           ;
+    push ecx			       ;
-    mov ecx, eax                   ;
+    mov ecx, eax		   ;
     mov eax, MESS
     mov ebx, buff
     call strcpy
-    mov eax, dword [mbuff+14+10]          ; Sender UIN
+    mov eax, dword [mbuff+14+10]	  ; Sender UIN
-    lea ebx, [buff+ecx]                ; ®á«¥ áâà®çª¨ ® á®®¡é¥¨¨
+    lea ebx, [buff+ecx] 	       ; ®á«¥ áâà®çª¨ ® á®®¡é¥¨¨
     call int2strd
     lea ebx, [ebx+eax]
     mov [ebx], byte ' '
     inc ebx
-                                       ; + «¨  UIN
+				       ; + «¨  UIN
-    movzx eax, byte [mbuff+21+10]         ; Day
+    movzx eax, byte [mbuff+21+10]	  ; Day
     call int2strd
     lea ebx, [ebx+eax]
     mov [ebx], byte '.'
     inc ebx
-    movzx eax, byte [mbuff+20+10]         ;Mounth
+    movzx eax, byte [mbuff+20+10]	  ;Mounth
     call int2strd
     lea ebx, [ebx+eax]
     mov [ebx], byte ' '
     inc ebx
-    movzx eax, [mbuff+22+10]              ; Hour
+    movzx eax, [mbuff+22+10]		  ; Hour
     call int2strd
     lea ebx, [ebx+eax]
     mov [ebx], byte ':'
     inc ebx
-    movzx eax, [mbuff+23+10]              ; Minute
+    movzx eax, [mbuff+23+10]		  ; Minute
     call int2strd
+    ;
     mov [ssnac.wFid], 15h  ; Family
     mov [ssnac.wSid], 2    ; Subtype
     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
     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
-    mov word [buff+12], 0007h  ;  xx xx	(LE) request sequence number
+    mov word [buff+12], 0007h  ;  xx xx (LE) request sequence number
-    mov edx, 14                ;  §¬¥à ¤ ëå
+    mov edx, 14 	       ;  §¬¥à ¤ ëå
     mov eax, ssnac
   m_snac_meta_data:
+    ;
     ; ¯à¥¤¥«ï¥¬ ®ç¥à¥¤®© ¯®¤â¨¯ :-)
+    ;
     mov ax, word [mbuff+10+14]
-    cmp ax, 0104h                   ;data subtype: META_SHORT_USERINFO
+    cmp ax, 0104h		    ;data subtype: META_SHORT_USERINFO
     jz m_snac_short_userinfo
     cmp ax, 00C8h
-    jz m_snac_basic_userinfo        ;data subtype: META_BASIC_USERINFO
+    jz m_snac_basic_userinfo	    ;data subtype: META_BASIC_USERINFO
     write_debug 'Unknown META DATA subtype'
     jmp m_fin
   m_snac_short_userinfo:
+    ;
     ; § ¢á¥© ¨ä®à¬ æ¨¨ ¯®ª  ã¦¥ â®«ìª® ¨ª
+    ;
     mov al, [mbuff+10+16]
-     cmp al, 0Ah                    ;success byte
+     cmp al, 0Ah		    ;success byte
      jnz m_fin
      movzx eax, word [mbuff+10+12]  ;request sequence number
+     ;
      ;  § ¯à®á¥ ï ¨á¯®«ì§®¢ « ¯®àï¤ª®¢ë© ®¬¥à î§¥à  ¢
-     lea ebx, [mbuff+10+19]         ;nickname string
+     lea ebx, [mbuff+10+19]	    ;nickname string
      ; «¨  áâà®ª¨ ¥ ã¦ , â.ª. áâà®ª  Null-Terminated
   ; âª SIQ   § ¯à®á ª®à®âª®© ¨äë ®â¢¥ç ¥â
   ; ¯ ª¥â®¬ ¡ §®¢®© ¨ä®à¬ æ¨¨, à¥ «¨§ãî ¯®ª  â®«ìª® ¥£®
+  ;
   m_snac_basic_userinfo:
      mov al, [mbuff+10+16]
-     cmp al, 0Ah                    ;success byte
+     cmp al, 0Ah		    ;success byte
      jnz m_fin
      movzx eax, word [mbuff+10+12]  ;request sequence number
+     ;
      ;  § ¯à®á¥ ï ¨á¯®«ì§®¢ « ¯®àï¤ª®¢ë© ®¬¥à î§¥à  ¢
-     lea ebx, [mbuff+10+19]         ;nickname string
+     lea ebx, [mbuff+10+19]	    ;nickname string
      ; «¨  áâà®ª¨ ¥ ã¦ , â.ª. áâà®ª  Null-Terminated
      ;¯à¥¤¥«ï¥¬ áâ âãá
      mov ecx, 4
      imul ecx, eax
     jmp m_fin
   m_snac_15_other:
-    write_debug 'Unknown SNAC Family 15 Recived'
+    write_debug 'Unknown SNAC Family 15 Received'
     jmp m_fin
   snacpar:
     pushf
     push ecx
     ;push edx
-    mov cl, [ebx+1]     ; Family (service) id number ¬« ¤è¨© ¡ ©â
+    mov cl, [ebx+1]	; Family (service) id number ¬« ¤è¨© ¡ ©â
-    mov ch, [ebx]       ; áâ àè¨©
+    mov ch, [ebx]	; áâ àè¨©
     mov word [eax], cx
-    mov cl, [ebx+3]     ; Family subtype id number
+    mov cl, [ebx+3]	; Family subtype id number
-    mov ch, [ebx+2]     ;
+    mov ch, [ebx+2]	;
     mov word [eax+2], cx
-    mov cl, [ebx+5]      ; SNAC flags
+    mov cl, [ebx+5]	 ; SNAC flags
-    mov ch, [ebx+4]      ;
+    mov ch, [ebx+4]	 ;
     mov word [eax+4], cx ;
-    mov cl, [ebx+7]         ;
+    mov cl, [ebx+7]	    ;
-    mov ch, [ebx+6]         ;
+    mov ch, [ebx+6]	    ;
     mov word [eax+8], cx    ; SNAC request id
-    mov cl, [ebx+8]         ;
+    mov cl, [ebx+8]	    ;
-    mov ch, [ebx+7]         ;
+    mov ch, [ebx+7]	    ;
     mov word [eax+6], cx    ;
     mov eax, ebx
     lea ebx, [buff+11]
     call strcpy
     lea ecx, [ecx+11]
-    mov word [buff+ecx], 0200h    ;  	TLV.Type(0x02) - message data
+    mov word [buff+ecx], 0200h	  ;     TLV.Type(0x02) - message data
     ;push ecx                      ;
-                                   ; TLV.Length
+				   ; TLV.Length
-    mov word [buff+ecx+4], 0105h         ; 05 01   01 - fragment version, 05 - fragment identifier
+    mov word [buff+ecx+4], 0105h	 ; 05 01   01 - fragment version, 05 - fragment identifier
-    mov word [buff+ecx+6], 0100h         ; data length
+    mov word [buff+ecx+6], 0100h	 ; data length
-    mov [buff+ecx+8], 01                 ; byte array of required capabilities (1 - text)
+    mov [buff+ecx+8], 01		 ; byte array of required capabilities (1 - text)
-    mov [buff+ecx+9], 01                 ; fragment identifier (text message)
+    mov [buff+ecx+9], 01		 ; fragment identifier (text message)
-    mov [buff+ecx+10], 01                 ; fragment version
+    mov [buff+ecx+10], 01		  ; fragment version
     pop ebx
     mov eax, ebx
     call strlen
     mov edx, eax
-    lea eax, [eax+4]                     ; «¨  á®®¡é¥¨ï + Message charset number+ Message language number
+    lea eax, [eax+4]			 ; «¨  á®®¡é¥¨ï + Message charset number+ Message language number
     call htons
     mov word [buff+ecx+11], ax
     mov eax, edx
-    lea eax, [eax+13]                     ; + ¤«¨  á«ã¦¥¡ëå ¤ ëå
+    lea eax, [eax+13]			  ; + ¤«¨  á«ã¦¥¡ëå ¤ ëå
     call htons
     mov word [buff+ecx+2], ax
-    mov word [buff+ecx+13], 0700h        ; Message charset number
+    mov word [buff+ecx+13], 0700h	 ; Message charset number
-    mov word [buff+ecx+15], 0300h        ; Message language number
+    mov word [buff+ecx+15], 0300h	 ; Message language number
     mov eax, ecx
-    mov ecx, edx                         ; Len
+    mov ecx, edx			 ; Len
     lea edx, [eax+17]
-    mov eax, ebx                         ;Source
+    mov eax, ebx			 ;Source
     mov [ssnac.wFid], 15h  ; Family
     mov [ssnac.wSid], 2    ; Subtype
     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
     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
-    mov word [buff+14], 04BAh      ; data subtype: META_SHORTINFO_REQUEST
+    mov word [buff+14], 04BAh	   ; data subtype: META_SHORTINFO_REQUEST
     mov ecx, [socket]
     mov edx, 20
-    xor esi, esi        ; ç¥âç¨ª
+    xor esi, esi	; ç¥âç¨ª
     xor eax, eax
   gi_loop:
     mov ebx, esi
-    mov word [buff+12], bx      ; request sequence number
+    mov word [buff+12], bx	; request sequence number
     mov ebx, UIN_LEN
     imul ebx, esi
     mov al,  [uins+ebx]
+    ;
     ;  Add buddy(s) to contact list
+    ;
     mov [ssnac.wFid], 3   ; Family
     mov [ssnac.wSid], 4   ; Subtype
-    mov [ssnac.dRi], 4    ; request-id
+    mov [ssnac.dRi], 4	  ; request-id
-    xor esi, esi          ; ç¥âç¨ª
+    xor esi, esi	  ; ç¥âç¨ª
-    xor edx, edx          ;  ¯®«¥® ¡ ©â
+    xor edx, edx	  ;  ¯®«¥® ¡ ©â
   ukk_loop:
     mov ebx, UIN_LEN
     pushf
     pushad
     cmp [login], 2
     jnz @f
     mov ax, [timer]
-    cmp ax, 300           ;60 c
+    cmp ax, 300 	  ;60 c
     jb @f
     mov [timer], 0
     mov [flap.bId], FLAP_ID
-    mov [flap.bCh], 5         ;Keep alive
+    mov [flap.bCh], 5	      ;Keep alive
     mov [flap.wDs], 0
     inc [seq]
     mov ax, [seq]
     mov [flap.wSn], ax
     mov eax, flap
 ; <--- initialised data --->
 DATA
   lsz header,\
     ru, "KI",\
     en, "KI",\
 rflap FLAP_head
+;
 ssnac SNAC_head        ; ¤«ï ¯¥à¥¤ ç¨ SNAC
 rsnac SNAC_head        ; ¤«ï ¯à¨ïâ®£® SNAC
+;
-ui UI_head             ; User info
+ui UI_head	       ; User info
+;
 procinfo process_information
+;
 UIN db '123456789',0
 PASS db 'coolpass',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,\
 F7h, 03Fh, 014h, 092h, 02Eh, 07Ah, 064h, 075h, 0FAh, 0DFh, 04Dh, 0C8h, 088h, 06Fh, 0EAh, 035h,\
-h, 0FDh, 0B6h, 0DFh, 09h, 046h, 013h, 044h,  04Ch, 07Fh, 011h, 0D1h, 082h, 022h, 044h, 045h,\
+h, 0FDh, 0B6h, 0DFh, 09h, 046h, 013h, 044h,	04Ch, 07Fh, 011h, 0D1h, 082h, 022h, 044h, 045h,\
 h, 054h, 0, 0
+;
 ; From &RQ
+;
 C_LEN = 40h
 ;C_LEN = 80
 ICBM_PARAMS db 0, 0, 0, 0, 0, 0Bh, 01Fh, 040h, 3, 0E7h, 3, 0E7h, 0, 0, 0, 0
-ICBMP_LEN = 16           ;    ^^^ from &RQ
+ICBMP_LEN = 16		 ;    ^^^ from &RQ
 ;
 ; from &rq
 ;
-FAMILY_ARR db  0x00, 0x01, 0x00, 0x03, 0x01, 0x10, 0x04, 0x7B,  0x00, 0x13, 0x00, 0x02, 0x01, 0x10, 0x04, 0x7B,\
+FAMILY_ARR db  0x00, 0x01, 0x00, 0x03, 0x01, 0x10, 0x04, 0x7B,	0x00, 0x13, 0x00, 0x02, 0x01, 0x10, 0x04, 0x7B,\
+;
 CL_LANG db 'en',0
 CL_COUNTRY db 'us',0
-sbuff db 1024 dup 0     ; ãä¥à ¤«ï ¯¥à¥¤ ç¨ ¨á¯®«ì§ã¥âáï ¢ãâà¨ sendflap
+sbuff db 1024 dup 0	; ãä¥à ¤«ï ¯¥à¥¤ ç¨ ¨á¯®«ì§ã¥âáï ¢ãâà¨ sendflap
-rbuff db 1024 dup 0     ; à¨¥¬ë© ¡ãä¥à
+rbuff db 1024 dup 0	; à¨¥¬ë© ¡ãä¥à
-tbuff db 512 dup 0      ; «ï TLV
+tbuff db 512 dup 0	; «ï TLV
 srv_cookie db 512 dup 0 ; ãª¨ ¤«ï  ¢â®à¨§ æ¨¨
 bos_address db 128 dup 0 ; ¤à¥á BOS á¥à¢¥à
-cookie_len dw 0          ; «¨  ªãª¨
+cookie_len dw 0 	 ; «¨  ªãª¨
-seq dw 0                 ; Sequence number
+seq dw 0		 ; Sequence number
 bos_ip dd 0
 bos_port dd 0
-status dw 0             ; status
+status dw 0		; status
-mbuff db 2048 dup 0     ; «ï ¯à¨¥¬
+mbuff db 2048 dup 0	; «ï ¯à¨¥¬
-MBUFF_SIZE              = 2048
+MBUFF_SIZE		= 2048
-hrf db 0                ; « £ ¯à¨¥¬  § £®«®¢ª
+hrf db 0		; « £ ¯à¨¥¬  § £®«®¢ª
 mouse_flag dd 0
 socket dd 0
 login db 0

Subversion Repositories Kolibri OS

(root)/programs/network/icq/trunk/ki.asm – Rev 1832 → 1833