WebSVN – Kolibri OS – Diff – /programs/network/airc/trunk/airc.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                   ;;
;;    IRC CLIENT for MenuetOS                        ;;
;;                                                   ;;
;;    License: GPL / See file COPYING for details    ;;
;;    Copyright 2004 (c) Ville Turjanmaa             ;;
;;                                                   ;;
;;    Compile with FASM for Menuet                   ;;
;;                                                   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
version equ '0.51'
 
 
;__DEBUG__ equ 1
;__DEBUG_LEVEL__ equ 1
 
use32
 
		org	0x0
 
		db	'MENUET01'		; 8 byte id
		dd	0x01			; required os
		dd	START			; program start
		dd	I_END			; program image size
		dd	0x100000		; required amount of memory
		dd	0x100000
		dd	0,0
 
include "..\..\..\macros.inc"
;include "fdo.inc"
include "eth.inc"
;include "lang.inc"
 
irc_server_name db      'kolibrios.org',0                 ; default server name
 
user_nick	dd	12				  ; length
		db	'kolibri_user           '	  ; string
 
user_real_name	dd	14				  ; length
		db	'KolibriOS User         '	  ; string
 
 
START:				; start of execution
 
    mov  eax,40
    mov  ebx,10000111b
    mcall
 
    mov  edi,I_END
    mov  ecx,60*120
    mov  eax,32
    cld
    rep  stosb
 
    mov  eax,[rxs]
    imul eax,11
    mov  [pos],eax
 
    mov  ebp,0
    mov  edx,I_END
 
redraw: 			; redraw
    call draw_window		; at first, draw the window
 
still:
 
    inc  [cursor_on_off]
 
    mov  eax,5
    mov  ebx,1
    mcall
 
    mov  eax,11 		; wait here for event
    mcall
 
    call print_status
 
    cmp  eax,1			; redraw
    je	 redraw
    cmp  eax,2			; key
    je	 main_window_key
    cmp  eax,3			; button
    je	 button
 
    cmp  [I_END+120*60],byte 1
    jne  no_main_update
    mov  [I_END+120*60],byte 0
    mov  edx,I_END
    call draw_channel_text
  no_main_update:
 
    call read_incoming_data
 
    call send_data_to_server
 
    test [cursor_on_off],0x3f
    jnz  nopri
    inc  [blink]
    call blink_cursor
    call print_channel_list
  nopri:
 
    jmp  still
 
 
 
 
 
 
 
 
button: 			; button
 
    mov  eax,17 		; get id
    mcall
 
    cmp  ah,1			; close program
    jne  noclose
    or   eax,-1
    mcall
  noclose:
 
    call socket_commands
 
    jmp  still
 
 
print_status:
 
    pusha
 
    mov  eax,53
    mov  ebx,6
    mov  ecx,[socket]
    mcall
 
    mov  [status],eax
 
    cmp  [old_status],eax
    je	 nopr
 
    mov  [old_status],eax
 
    push eax
 
    mov  eax,13
    mov  ebx,450*65536+30
    mov  ecx,231*65536+10
    mov  edx,0xffffff
    mcall
 
    pop  ecx
    mov  eax,47
    mov  ebx,2*65536
    mov  edx,450*65536+231
    mov  esi,0x000000
    mcall
 
  nopr:
 
    popa
 
    ret
 
status dd 0
old_status dd 0
 
 
socket_commands:
 
    cmp  ah,22	     ; open socket
    jnz  tst3
    mov  eax,3
    mcall
    mov  ecx,eax
 
pusha
    mov     eax,irc_server_name
    resolve irc_server_name,dword[irc_server_ip]
    ;DEBUGF 1,'%u.%u.%u.%u\n',1[irc_server_ip],1[irc_server_ip+1],1[irc_server_ip+2],1[irc_server_ip+3]
popa
 
    mov  eax,53
    mov  ebx,5
    mov  edx,6667
    mov  esi,dword [irc_server_ip]
    mov  edi,1
    mcall
    mov  [socket], eax
    ret
  tst3:
 
 
    cmp  ah,23	      ; write userinfo
    jnz  tst4
 
    mov  eax,53  ; user
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,string0l-string0
    mov  esi,string0
    mcall
 
    mov  eax,53  ;
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,[user_real_name]
    mov  esi,user_real_name+4
    mcall
 
    mov  eax,53  ;
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,2
    mov  esi,line_feed
    mcall
 
 
    mov  eax,5
    mov  ebx,10
    mcall
 
    mov  eax,53  ; nick
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,string1l-string1
    mov  esi,string1
    mcall
 
    mov  eax,53  ;
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,[user_nick]
    mov  esi,user_nick+4
    mcall
 
    mov  eax,53  ;
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,2
    mov  esi,line_feed
    mcall
 
 
    ret
 
  line_feed:  db  13,10
 
  tst4:
 
 
    cmp  ah,24	   ; close socket
    jnz  no_24
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
    ret
  no_24:
 
 
    ret
 
 
main_window_key:
 
    mov  eax,2
    mcall
 
    shr  eax,8
 
    cmp  eax,8
    jne  no_bks2
    cmp  [xpos],0
    je	 still
    dec  [xpos]
    call print_entry
    jmp  still
   no_bks2:
 
    cmp  eax,20
    jbe  no_character2
    mov  ebx,[xpos]
    mov  [send_string+ebx],al
    inc  [xpos]
    cmp  [xpos],80
    jb	 noxposdec
    mov  [xpos],79
  noxposdec:
    call print_entry
    jmp  still
  no_character2:
 
    cmp  eax,13
    jne  no_send
    cmp  [xpos],0
    je	 no_send2
    cmp  [send_string],byte '/'   ; server command
    jne  no_send2
    mov  [send_to_server],1
    jmp  still
  no_send2:
 
    jmp  still
 
 
print_channel_list:
 
    pusha
 
    mov  eax,13
    mov  ebx,415*65536+6*13
    mov  ecx,27*65536+12*10
    mov  edx,0xffffff
    mcall
 
    mov  eax,4
    mov  ebx,415*65536+27
    mov  ecx,[index_list_1]
    mov  edx,channel_list+32
  newch:
    movzx esi,byte [edx+31]
    and  esi,0x1f
    mcall
    add  edx,32
    add  ebx,12
    cmp  edx,channel_list+32*10
    jbe  newch
 
  no_channel_list:
 
    popa
 
    ret
 
 
print_user_list:
 
    pusha
 
  newtry:
 
    mov  edx,ebp
    imul edx,120*80
    add  edx,120*60+8+I_END
    cmp  [edx],byte 1
    je	 nonp
 
    mov  edx,ebp
    imul edx,120*80
    add  edx,120*70+I_END
    mov  edi,edx
 
    mov  eax,[edx-8]
    mov  ebx,[edx-4]
    add  ebx,edx
    sub  ebx,3
    inc  eax
    dec  edx
  newnss:
    inc  edx
    dec  eax
    jz	 startuu
  asdf:
    cmp  [edx],word '  '
    jne  nodouble
    inc  edx
  nodouble:
    cmp  [edx],byte ' '
    je	 newnss
    inc  edx
    cmp  edx,ebx
    jbe  asdf
    dec  dword [edi-8]
 
    popa
    ret
 
  startuu:
 
    cmp  [edx],byte ' '
    jne  startpr
    inc  edx
  startpr:
 
    pusha
    mov  eax,13
    mov  ebx,415*65536+6*13
    mov  ecx,27*65536+12*10
    mov  edx,0xffffff
    mcall
    popa
 
    mov  eax,4
    mov  ebx,415*65536+27
 
    mov  ebp,0
  newuser:
 
    mov  esi,0
  newusers:
    cmp  [edx+esi],byte ' '
    je	 do_print
    inc  esi
    cmp  esi,20
    jbe  newusers
  do_print:
 
    mov  ecx,[index_list_1]
    cmp  [edx],byte '@'
    jne  no_op
    mov  ecx,[index_list_2]
  no_op:
 
    mcall
 
    inc  ebp
    cmp  ebp,10
    je	 nonp
 
    add  ebx,12
 
    add  edx,esi
 
    inc  edx
    cmp  [edx],byte ' '
    jne  newuser
    inc  edx
    jmp  newuser
 
  nonp:
 
    popa
 
    ret
 
 
start_user_list_at dd 0x0
 
 
recode_to_cp1251:
	push	esi edx
  .loop:
	lodsb
	cmp	al,0x80
	jb	@f
	and	eax,0x7F
	mov	al,[cp866_table+eax]
    @@: mov	[esi-1],al
	dec	edx
	jnz	.loop
	pop	edx esi
	ret
 
 
send_data_to_server:
 
    pusha
 
    cmp  [send_to_server],1
    jne  sdts_ret
 
    mov  eax,[xpos]
    mov  [send_string+eax+0],byte 13
    mov  [send_string+eax+1],byte 10
 
    mov  eax,[rxs]
    imul eax,11
    mov  [pos],eax
    mov  eax,[send_to_channel]
    imul eax,120*80
    add  eax,I_END
    mov  [text_start],eax
 
    cmp  [send_string],byte '/'   ; server command
    je	 server_command
 
    mov  bl,13
    call print_character
    mov  bl,10
    call print_character
    mov  bl,'<'
    call print_character
 
    mov  esi,user_nick+4
    mov  ecx,[user_nick]
  newnp:
    mov  bl,[esi]
    call print_character
    inc  esi
    loop newnp
 
    mov  bl,'>'
    call print_character
    mov  bl,' '
    call print_character
 
    mov  ecx,[xpos]
    mov  esi,send_string
  newcw:
    mov  bl,[esi]
    call print_character
    inc  esi
    loop newcw
 
    mov  eax,dword [send_to_channel]
    shl  eax,5
    add  eax,channel_list
    mov  esi,eax
 
    mov  edi,send_string_header+8
    movzx ecx,byte [eax+31]
    cld
    rep  movsb
 
    mov  [edi],word ' :'
 
    mov   esi, send_string_header
    mov   edx,10
    movzx ebx,byte [eax+31]
    add   edx,ebx
 
    mov  eax, 53      ; write channel
    mov  ebx, 7
    mov  ecx, [socket]
    mcall
 
    mov  esi,send_string
    mov  edx,[xpos]
    inc  edx
 
	call	recode_to_cp1251
 
    mov  eax, 53      ; write message
    mov  ebx, 7
    mov  ecx, [socket]
    mcall
 
    jmp  send_done
 
  server_command:
 
    cmp  [send_string+1],dword 'anic'
    jne  no_set_nick
 
    mov  ecx,[xpos]
    sub  ecx,7
    mov  [user_nick],ecx
 
    mov  esi,send_string+7
    mov  edi,user_nick+4
    cld
    rep  movsb
 
    pusha
    mov  edi,text+70*1+15
    mov  eax,32
    mov  ecx,15
    cld
    rep  stosb
    popa
 
    mov  esi,user_nick+4
    mov  edi,text+70*1+15
    mov  ecx,[user_nick]
    cld
    rep  movsb
 
    call draw_window
 
    mov  [xpos],0
    mov  [send_to_server],0
 
    popa
    ret
 
  no_set_nick:
 
    cmp  [send_string+1],dword 'area'
    jne  no_set_real_name
 
    mov  ecx,[xpos]
    sub  ecx,7
    mov  [user_real_name],ecx
 
    mov  esi,send_string+7
    mov  edi,user_real_name+4
    cld
    rep  movsb
 
    pusha
    mov  edi,text+70*0+15
    mov  eax,32
    mov  ecx,15
    cld
    rep  stosb
    popa
 
    mov  esi,user_real_name+4
    mov  edi,text+70*0+15
    mov  ecx,[xpos]
    sub  ecx,7
    cld
    rep  movsb
 
    call draw_window
 
    mov  [xpos],0
    mov  [send_to_server],0
 
    popa
    ret
 
  no_set_real_name:
 
    cmp  [send_string+1],dword 'aser'
    jne  no_set_server
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
pusha
    mov     eax,send_string
    add     eax,[xpos]
    mov     dword[eax],0
    resolve send_string+7,dword[irc_server_ip]
    ;DEBUGF 1,'%u.%u.%u.%u\n',1[irc_server_ip],1[irc_server_ip+1],1[irc_server_ip+2],1[irc_server_ip+3]
popa
 
    mov  ecx,[xpos]
    sub  ecx,7
 
    pusha
    mov  edi,text+70*2+15
    mov  eax,32
    mov  ecx,15
    cld
    rep  stosb
    popa
 
    mov  esi,send_string+7
    mov  edi,text+70*2+15
    cld
    rep  movsb
 
    call draw_window
 
    mov  [xpos],0
    mov  [send_to_server],0
 
    popa
    ret
 
   no_set_server:
 
 
 
 
    cmp  [send_string+1],dword 'quer'
    jne  no_query_create
 
    mov  edi,I_END+120*80
    mov  eax,1 ; create channel window - search for empty slot
   newse2:
    mov  ebx,eax
    shl  ebx,5
    cmp  dword [channel_list+ebx],dword '    '
    je	 free_found2
    add  edi,120*80
    inc  eax
    cmp  eax,[max_windows]
    jb	 newse2
 
  free_found2:
 
    mov  edx,send_string+7
 
    mov  ecx,[xpos]
    sub  ecx,7
    mov  [channel_list+ebx+31],cl
 
    call create_channel_name
 
    push edi
    push eax
    mov  [edi+120*60+8],byte 1 ; query window
    mov  eax,32
    mov  ecx,120*60
    cld
    rep  stosb
    pop  eax
    pop  edi
 
    ; eax has the free position
    mov  [thread_screen],edi
    call create_channel_window
 
    mov  [xpos],0
    mov  [send_to_server],0
 
    popa
    ret
 
  no_query_create:
 
 
    mov  esi, send_string+1
    mov  edx, [xpos]
    add  edx,1
 
    mov  eax, 53      ; write server command
    mov  ebx, 7
    mov  ecx, [socket]
    mcall
 
  send_done:
 
    mov  [xpos],0
    mov  [send_to_server],0
 
    cmp  [send_string+1],dword 'quit'
    jne  no_quit_server
    mov  eax,5
    mov  ebx,200
    mcall
 
    mov  eax, 53      ; close socket
    mov  ebx, 8
    mov  ecx, [socket]
    mcall
 
    mov  ecx,[max_windows]
    mov  edi,I_END
  newclose:
    mov  [edi+120*60+4],byte  1
    add  edi,120*80
    loop newclose
 
    popa
    ret
 
  no_quit_server:
 
  sdts_ret:
 
    popa
    ret
 
 
 
read_incoming_data:
 
    pusha
 
  read_new_byte:
 
    call read_incoming_byte
    cmp  ecx,-1
    je	 no_data_in_buffer
 
    cmp  bl,10
    jne  no_start_command
    mov  [cmd],1
  no_start_command:
 
    cmp  bl,13
    jne  no_end_command
    mov  eax,[cmd]
    mov  [eax+command-2],byte 0
    call analyze_command
    mov  edi,command
    mov  ecx,250
    mov  eax,0
    cld
    rep  stosb
    mov  [cmd],0
  no_end_command:
 
    mov  eax,[cmd]
    cmp  eax,512
    jge  still
 
    mov  [eax+command-2],bl
    inc  [cmd]
 
    jmp  read_new_byte
 
  no_data_in_buffer:
 
    popa
 
    ret
 
 
create_channel_name:
 
    pusha
 
  search_first_letter:
    cmp  [edx],byte ' '
    jne  first_letter_found
    inc  edx
    jmp  search_first_letter
  first_letter_found:
 
    mov  esi,edx
    mov  edi,channel_list
    add  edi,ebx
    mov  ecx,30
    xor  eax,eax
  newcase:
    mov  al,[esi]
    cmp  eax,'a'
    jb	 nocdec
    cmp  eax,'z'
    jg	 nocdec
    sub  al,97-65
  nocdec:
    mov  [edi],al
    inc  esi
    inc  edi
    loop newcase
 
    popa
 
    ret
 
 
create_channel_window:
 
    pusha
 
    mov  [cursor_on_off],0
 
    mov  [thread_nro],eax
 
    mov  eax,51
    mov  ebx,1
    mov  ecx,channel_thread
    mov  edx,[thread_stack]
    mcall
 
    mov  eax,5
    mov  ebx,10
    mcall
 
    add  [thread_stack],0x4000
    add  [thread_screen],120*80
 
    popa
 
    ret
 
 
print_entry:
 
    pusha
 
    mov  eax,13
    mov  ebx,8*65536+6*80
    mov  ecx,151*65536+13
    mov  edx,0xffffff
    mcall
 
    mov  eax,4
    mov  ebx,8*65536+154
    mov  ecx,0x000000
    mov  edx,send_string
    mov  esi,[xpos]
    mcall
 
    popa
 
    ret
 
blink dd 0x0
 
blink_cursor:
 
    pusha
 
    mov  eax,9
    mov  ebx,0xe0000
    mov  ecx,-1
    mcall
 
    mov  edx,[blink]
    and  edx,1
    sub  edx,1
    and  edx,0xffffff
;    mov  edx,0
 
    cmp  ax,word [0xe0000+4]
    jne  no_blink
 
    call print_entry
 
    mov  ebx,[xpos]
    imul ebx,6
    add  ebx,8
    mov  cx,bx
    shl  ebx,16
    mov  bx,cx
    mov  ecx,151*65536+163
    mov  eax,38
    mcall
 
    popa
 
    ret
 
  no_blink:
 
    mov  eax,13
    mov  ebx,8*65536+6*60
    mov  ecx,151*65536+13
    mov  edx,0xffffff
    mcall
 
    popa
 
    ret
 
 
 
 
 
set_channel:
 
    pusha
 
    ; UPPER / LOWER CASE CHECK
 
    mov  esi,eax
    mov  edi,channel_temp
    mov  ecx,40
    xor  eax,eax
  newcase2:
    mov  al,[esi]
    cmp  eax,'#'
    jb	 newcase_over2
    cmp  eax,'a'
    jb	 nocdec2
    cmp  eax,'z'
    jg	 nocdec2
    sub  al,97-65
  nocdec2:
    mov  [edi],al
    inc  esi
    inc  edi
    loop newcase2
  newcase_over2:
    sub  edi,channel_temp
    mov  [channel_temp_length],edi
 
    mov  eax,channel_temp
 
    mov  [text_start],I_END+120*80
    mov  ebx,channel_list+32
    mov  eax,[eax]
 
    mov  edx,[channel_temp_length]
 
  stcl1:
    cmp  dl,[ebx+31]
    jne  notfound
 
    pusha
    xor  eax,eax
    xor  edx,edx
    mov  ecx,0
  stc4:
    mov  dl,[ebx+ecx]
    mov  al,[channel_temp+ecx]
    cmp  eax,edx
    jne  notfound2
    inc  ecx
    cmp  ecx,[channel_temp_length]
    jb	 stc4
    popa
 
    jmp  found
 
  notfound2:
    popa
 
  notfound:
    add  [text_start],120*80
    add  ebx,32
    cmp  ebx,channel_list+19*32
    jb	 stcl1
 
    mov  [text_start],I_END
 
  found:
 
    popa
 
    ret
 
 
channel_temp:	      times   100   db	 0
channel_temp_length   dd      0x0
 
 
 
print_nick:
 
    pusha
 
    mov  eax,command+1
    mov  dl,'!'
    call print_text
 
    popa
    ret
 
 
analyze_command:
 
    pusha
 
    mov  [text_start],I_END
    mov  ecx,[rxs]
    imul ecx,11
    mov  [pos],ecx
 
    mov  bl,13
;  call print_character
    mov  bl,10
;  call print_character
 
    mov  ecx,[cmd]
    sub  ecx,2
    mov  esi,command+0
  newcmdc:
    mov  bl,[esi]
;  call print_character
    inc  esi
    loop newcmdc
 
    mov   edx,I_END
;  call  draw_channel_text
 
    cmp  [cmd],20
    jge  cmd_len_ok
 
    mov  [cmd],0
 
    popa
    ret
 
 
  cmd_len_ok:
 
    cmp  [command],dword 'PING'  ; ping response
    jne  no_ping_responce
 
    call print_command_to_main
 
    mov  [command],dword 'PONG'
 
    call print_command_to_main
 
    mov  eax,4
    mov  ebx,100*65536+3
    mov  ecx,0xffffff
    mov  edx,command
    mov  esi,[cmd]
    mov  [command+esi-1],word '**'
;    mcall
 
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,[cmd]
    sub  edx,2
    and  edx,255
    mov  esi,command
    mcall
 
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,2
    mov  esi,linef
    mcall
 
    popa
    ret
 
  linef  db  13,10
 
  no_ping_responce:
 
    mov  eax,[rxs]
    imul eax,11
    mov  [pos],eax
 
    mov  [command],byte '<'
 
    mov  eax,command
    mov  ecx,100
   new_blank:
    cmp  [eax],byte ' '
    je	 bl_found
    inc  eax
    loop new_blank
    mov  eax,50
  bl_found:
 
    inc  eax
    mov  [command_position],eax
 
    mov  esi,eax
    mov  edi,irc_command
    mov  ecx,8
    cld
    rep  movsb
 
 
    cmp  [irc_command],'PRIV'  ; message to channel
    jne  no_privmsg
 
    ; compare nick
 
    mov  eax,[command_position]
    add  eax,8
    call compare_to_nick
    cmp  [cresult],0
    jne  no_query_msg
    mov  eax,command+1
  no_query_msg:
    call set_channel
 
    mov  ecx,100 ; [cmd]
    mov  eax,command+10
  acl3:
    cmp  [eax],byte ':'
    je	 acl4
    inc  eax
    loop acl3
    mov  eax,10
  acl4:
    inc  eax
 
    cmp  [eax+1],dword 'ACTI'
    jne  no_action
    push eax
    mov  eax,action_header_short
    mov  dl,0
    call print_text
    mov  eax,command+1
    mov  dl,'!'
    call print_text
    mov  bl,' '
    call print_character
    pop  eax
    add  eax,8
    mov  dl,0
    call print_text
    popa
    ret
 
  no_action:
 
    push eax
    mov  bl,10
    call print_character
    mov  eax,command
    mov  dl,'!'
    call print_text
    mov  bl,'>'
    call print_character
    mov  bl,' '
    call print_character
    pop  eax
 
    mov  dl,0
    call print_text
 
    popa
    ret
 
  no_privmsg:
 
 
    cmp  [irc_command],'PART'	 ; channel leave
    jne  no_part
 
    ; compare nick
 
    mov  eax,command+1
    call compare_to_nick
    cmp  [cresult],0
    jne  no_close_window
 
    mov  eax,[command_position]
    add  eax,5
    call set_channel
 
    mov  eax,[text_start]
    mov  [eax+120*60+4],byte 1
 
    popa
    ret
 
  no_close_window:
 
    mov  eax,[command_position]
    add  eax,5
    call set_channel
 
    mov  eax,action_header_red
    mov  dl,0
    call print_text
    mov  eax,command+1
    mov  dl,'!'
    mov  cl,' '
    call print_text
    mov  eax,has_left_channel
    mov  dl,0
    call print_text
    mov  eax,[command_position]
    add  eax,5
    mov  dl,' '
    call print_text
 
    popa
    ret
 
  no_part:
 
 
    cmp  [irc_command],'JOIN'	 ; channel join
    jne  no_join
 
    ; compare nick
 
    mov  eax,command+1
    call compare_to_nick
    cmp  [cresult],0
    jne  no_new_window
 
    mov  edi,I_END+120*80
    mov  eax,1 ; create channel window - search for empty slot
   newse:
    mov  ebx,eax
    shl  ebx,5
    cmp  dword [channel_list+ebx],dword '    '
    je	 free_found
    add  edi,120*80
    inc  eax
    cmp  eax,[max_windows]
    jb	 newse
 
  free_found:
 
    mov  edx,[command_position]
    add  edx,6
 
    push eax
    push edx
    mov  ecx,0
   finde:
    inc  ecx
    inc  edx
    movzx eax,byte [edx]
    cmp  eax,'#'
    jge  finde
    mov  [channel_list+ebx+31],cl
    pop  edx
    pop  eax
 
    call create_channel_name
 
    push edi
    push eax
    mov  [edi+120*60+8],byte 0 ; channel window
    mov  eax,32
    mov  ecx,120*60
    cld
    rep  stosb
    pop  eax
    pop  edi
 
    ; eax has the free position
    mov  [thread_screen],edi
    call create_channel_window
 
  no_new_window:
 
    mov  eax,[command_position]
    add  eax,6
    call set_channel
 
    mov  eax,action_header_blue
    mov  dl,0
    call print_text
    mov  eax,command+1
    mov  dl,'!'
    mov  cl,' '
    call print_text
 
    mov  eax,joins_channel
    mov  dl,0
    call print_text
 
    mov  eax,[command_position]
    add  eax,6
    mov  dl,0
    call print_text
 
    popa
    ret
 
  no_join:
 
 
    cmp  [irc_command],'NICK'	   ; nick change
    jne  no_nick_change
 
    mov  [text_start],I_END
    add  [text_start],120*80
 
 new_all_channels3:
 
    mov  eax,action_header_short
    mov  dl,0
    call print_text
    mov  eax,command+1
    mov  dl,'!'
    call print_text
    mov  eax,is_now_known_as
    mov  dl,0
    call print_text
    mov  eax,[command_position]
    add  eax,6
    mov  dl,0
    call print_text
 
    add  [text_start],120*80
    cmp  [text_start],I_END+120*80*20
    jb	 new_all_channels3
 
    popa
    ret
 
  no_nick_change:
 
 
     cmp  [irc_command],'KICK'	    ; kick
     jne  no_kick
 
    mov  [text_start],I_END
    add  [text_start],120*80
 
    mov  eax,[command_position]
    add  eax,5
    call set_channel
 
; new_all_channels4:
 
    mov  eax,action_header_short
    mov  dl,0
    call print_text
    mov  eax,command+1
    mov  dl,'!'
    call print_text
     mov  eax,kicked
     mov  dl,0
    call print_text
    mov  eax,[command_position]
    add  eax,5
    mov  dl,0
    call print_text
 
;    add  [text_start],120*80
;    cmp  [text_start],I_END+120*80*20
;    jb   new_all_channels4
 
    popa
    ret
 
  no_kick:
 
 
 
 
    cmp  [irc_command],'QUIT'	 ; irc quit
    jne  no_quit
 
    mov  [text_start],I_END
    add  [text_start],120*80
 
 new_all_channels2:
 
    mov  eax,action_header_red
    mov  dl,0
    call print_text
    mov  eax,command+1
    mov  dl,'!'
    call print_text
    mov  eax,has_quit_irc
    mov  dl,0
    call print_text
 
    add  [text_start],120*80
    cmp  [text_start],I_END+120*80*20
    jb	 new_all_channels2
 
    popa
    ret
 
  no_quit:
 
 
    cmp  [irc_command],dword 'MODE'  ; channel mode change
    jne  no_mode
 
    mov  [text_start],I_END
    add  [text_start],120*80
 
    mov  eax,[command_position]
    add  eax,5
    call set_channel
 
 new_all_channels:
 
    mov  eax,action_header_short
    mov  dl,0
    call print_text
 
    call print_nick
 
    mov  eax,sets_mode
    mov  dl,0
    call print_text
 
    mov  eax,[command_position]
    add  eax,5
    mov  dl,0
    call print_text
 
;    add  [text_start],120*80
;    cmp  [text_start],I_END+120*80*20
;    jb   new_all_channels
 
    popa
    ret
 
  no_mode:
 
 
    cmp  [irc_command],dword '353 '  ; channel user names
    jne  no_user_list
 
    mov  eax,[command_position]
   finde2:
    inc  eax
    cmp  [eax],byte '#'
    jne  finde2
    call set_channel
 
   finde3:
    inc  eax
    cmp  [eax],byte ':'
    jne  finde3
 
    pusha
    cmp  [user_list_pos],0
    jne  no_clear_user_list
    mov  edi,[text_start]
    add  edi,120*70
    mov  [edi-8],dword 0
    mov  [edi-4],dword 0
    mov  eax,32
    mov  ecx,1200
    cld
    rep  stosb
  no_clear_user_list:
    popa
 
    push eax
 
    mov  esi,eax
    inc  esi
    mov  edi,[text_start]
    add  edi,120*70
    add  edi,[user_list_pos]
    mov  edx,edi
    mov  ecx,command
    add  ecx,[cmd]
    sub  ecx,[esp]
    sub  ecx,3
    and  ecx,0xfff
    cld
    rep  movsb
 
    pop  eax
    mov  ebx,command
    add  ebx,[cmd]
    sub  ebx,eax
    sub  ebx,2
    mov  [edx+ebx-1],dword '    '
 
    add  [user_list_pos],ebx
 
    mov  eax,[user_list_pos]
    mov  ebx,[text_start]
    add  ebx,120*70
    mov  [ebx-4],eax
 
    popa
    ret
 
  user_list_pos dd 0x0
 
  no_user_list:
 
 
    cmp  [irc_command],dword '366 '  ; channel user names end
    jne  no_user_list_end
 
    mov  [user_list_pos],0
 
    popa
    ret
 
  no_user_list_end:
 
    mov  [command],byte '-'
    call print_command_to_main
 
    popa
 
    ret
 
 
cresult db 0
 
compare_to_nick:
 
; input  : eax = start of compare
; output : [cresult] = 0 if match, [cresult]=1 if no match
 
 
    pusha
 
    mov  esi,eax
    mov  edi,0
 
  new_nick_compare:
 
    mov  bl,byte [esi]
    mov  cl,byte [user_nick+4+edi]
 
    cmp  bl,cl
    jne  nonickm
 
    add  esi,1
    add  edi,1
 
    cmp  edi,[user_nick]
    jb	 new_nick_compare
 
    movzx eax,byte [esi]
    cmp  eax,40
    jge  nonickm
 
    popa
    mov  [cresult],0
    ret
 
  nonickm:
 
    popa
    mov  [cresult],1
    ret
 
 
 
 
 
print_command_to_main:
 
    pusha
 
    mov  [text_start],I_END
    mov  ecx,[rxs]
    imul ecx,11
    mov  [pos],ecx
 
    mov  bl,13
    call print_character
    mov  bl,10
    call print_character
 
    mov  ecx,[cmd]
    sub  ecx,2
    mov  esi,command
   newcmdc2:
    mov  bl,[esi]
    call print_character
    inc  esi
    loop newcmdc2
 
    mov   edx,I_END
    call  draw_channel_text
 
    popa
 
    ret
 
 
 
 
print_text:
 
    pusha
 
    mov  ecx,command-2
    add  ecx,[cmd]
 
  ptr2:
    mov  bl,[eax]
    cmp  bl,dl
    je	 ptr_ret
    cmp  bl,0
    je	 ptr_ret
    call print_character
    inc  eax
    cmp  eax,ecx
    jbe  ptr2
 
  ptr_ret:
 
    mov  eax,[text_start]
    mov  [eax+120*60],byte 1
 
    popa
    ret
 
 
cp1251_table:
  db '?','?','?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; 8
  db '?','?','?','?','?',$F9,'?','?' , '?','?','?','?','?','?','?','?' ; 9
  db '?',$F6,$F7,'?',$FD,'?','?','?' , $F0,'?',$F2,'?','?','?','?',$F4 ; A
  db $F8,'?','?','?','?','?','?',$FA , $F1,$FC,$F3,'?','?','?','?',$F5 ; B
  db $80,$81,$82,$83,$84,$85,$86,$87 , $88,$89,$8A,$8B,$8C,$8D,$8E,$8F ; C
  db $90,$91,$92,$93,$94,$95,$96,$97 , $98,$99,$9A,$9B,$9C,$9D,$9E,$9F ; D
  db $A0,$A1,$A2,$A3,$A4,$A5,$A6,$A7 , $A8,$A9,$AA,$AB,$AC,$AD,$AE,$AF ; E
  db $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7 , $E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF ; F
 
;    0   1   2   3   4   5   6   7     8   9   A   B   C   D   E   F
 
cp866_table:
  db $C0,$C1,$C2,$C3,$C4,$C5,$C6,$C7 , $C8,$C9,$CA,$CB,$CC,$CD,$CE,$CF ; 8
  db $D0,$D1,$D2,$D3,$D4,$D5,$D6,$D7 , $D8,$D9,$DA,$DB,$DC,$DD,$DE,$DF ; 9
  db $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7 , $E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF ; A
  db '?','?','?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; B
  db '?','?','?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; C
  db '?','?','?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; D
  db $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7 , $F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF ; E
  db $A8,$B8,$AA,$BA,$AF,$BF,$A1,$A2 , $B0,$95,$B7,'?',$B9,$A4,'?','?' ; F
 
;    0   1   2   3   4   5   6   7     8   9   A   B   C   D   E   F
 
print_character:
 
    pusha
 
    cmp  bl,13	   ; line beginning
    jne  nobol
    mov  ecx,[pos]
    add  ecx,1
  boll1:
    sub  ecx,1
    mov  eax,ecx
    xor  edx,edx
    mov  ebx,[rxs]
    div  ebx
    cmp  edx,0
    jne  boll1
    mov  [pos],ecx
    jmp  newdata
  nobol:
 
    cmp  bl,10	   ; line down
    jne  nolf
   addx1:
    add  [pos],dword 1
    mov  eax,[pos]
    xor  edx,edx
    mov  ecx,[rxs]
    div  ecx
    cmp  edx,0
    jnz  addx1
    mov  eax,[pos]
    jmp  cm1
  nolf:
  no_lf_ret:
 
 
    cmp  bl,15	  ; character
    jbe  newdata
 
    mov  eax,[irc_data]
    shl  eax,8
    mov  al,bl
    mov  [irc_data],eax
 
    mov  eax,[pos]
    call draw_data
 
    mov  eax,[pos]
    add  eax,1
  cm1:
    mov  ebx,[scroll+4]
    imul ebx,[rxs]
    cmp  eax,ebx
    jb	 noeaxz
 
    mov  esi,[text_start]
    add  esi,[rxs]
 
    mov  edi,[text_start]
    mov  ecx,ebx
    cld
    rep  movsb
 
    mov  esi,[text_start]
    mov  ecx,[rxs]
    imul ecx,61
    add  esi,ecx
 
    mov  edi,[text_start]
    mov  ecx,[rxs]
    imul ecx,60
    add  edi,ecx
    mov  ecx,ebx
    cld
    rep  movsb
 
    mov  eax,ebx
    sub  eax,[rxs]
  noeaxz:
    mov  [pos],eax
 
  newdata:
 
    mov  eax,[text_start]
    mov  [eax+120*60],byte 1
 
    popa
    ret
 
 
 
draw_data:
 
    pusha
 
    and  ebx,0xff
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
    add  eax,[text_start]
    mov  [eax],bl
 
    popa
    ret
 
 
read_incoming_byte:
 
    mov  eax, 53
    mov  ebx, 2
    mov  ecx, [socket]
    mcall
 
    mov  ecx,-1
 
    cmp  eax,0
    je	 no_more_data
 
    mov  eax, 53
    mov  ebx, 3
    mov  ecx, [socket]
    mcall
 
	cmp	bl,0x80
	jb	@f
	and	ebx,0x7F
	mov	bl,[cp1251_table+ebx]
    @@:
 
    mov  ecx,0
 
  no_more_data:
 
    ret
 
 
 
draw_window:
 
    pusha
 
    mov  eax,12
    mov  ebx,1
    mcall
 
    mov  [old_status],300
 
    xor  eax,eax		   ; draw window
    mov  ebx,5*65536+499
    mov  ecx,5*65536+345
    mov  edx,[wcolor]
    add  edx,0x14ffffff
    mov  edi,title
    mcall
 
    mov  eax,8			   ; button: open socket
    mov  ebx,43*65536+22
    mov  ecx,229*65536+10
    mov  edx,22
    mov  esi,[main_button]
    mcall
 
    ;mov  eax,8			   ; button: send userinfo
    mov  ebx,180*65536+22
    mov  ecx,229*65536+10
    mov  edx,23
    mcall
 
    ;mov  eax,8			   ; button: close socket
    mov  ebx,317*65536+22
    mov  ecx,229*65536+10
    mov  edx,24
    mcall
 
    mov  eax,38 		   ; line
    mov  ebx,5*65536+494
    mov  ecx,148*65536+148
    mov  edx,[main_line]
    mcall
    add  ecx,1*65536+1
 
    mov  eax,38 		   ; line
    mov  ebx,5*65536+494
    mov  ecx,166*65536+166
    mcall
    add  ecx,1*65536+1
 
    mov  eax,38 		   ; line
    mov  ebx,410*65536+410
    mov  ecx,22*65536+148
    mcall
    add  ebx,1*65536+1
 
    mov  ebx,25*65536+183	   ; info text
    mov  ecx,0x000000
    mov  edx,text
    mov  esi,70
  newline:
    mov  eax,4
    mcall
    add  ebx,12
    add  edx,70
    cmp  [edx],byte 'x'
    jne  newline
 
    mov  edx,I_END		  ; text from server
    call draw_channel_text
 
    mov  eax,12
    mov  ebx,2
    mcall
 
    popa
 
    ret
 
main_line    dd 0x000000
main_button  dd 0x6565cc
 
 
text:
 
db '   Real name : KolibriOS User  - change with eg /areal Jill User      '
db '   Nick      : kolibri_user    - change with eg /anick Jill           '
db '   Server    : kolibrios.org   - change with eg /aserv irc.by         '
db '                                                                      '
db '        1) Open socket         2) Send userinfo       Close socket    '
db '                                                                      '
db '   Commands after established connection:                             '
db '                                                                      '
db '   /join #ChannelName         - eg /join #general                     '
db '   /part #ChannelName         - eg /part #windows                     '
db '   /query Nickname            - eg /query Mary                        '
db '   /quit                      - Quit server and Close socket          '
 
db 'x' ; <- END MARKER, DONT DELETE
 
 
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;                        CHANNEL THREADS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
 
channel_thread:
 
    mov   ebp,[thread_nro]
    mov   eax,ebp
    shl   eax,14
    add   eax,0x80000
    mov   esp,eax
 
    mov   edi,ebp	 ; clear thread memory
    imul  edi,120*80
    add   edi,I_END
    mov   ecx,120*80
    mov   eax,32
    cld
;    rep   stosb
 
    mov   edx,[thread_screen]
 
    call  thread_draw_window
 
  w_t:
 
    mov  esi,ebp
    imul esi,120*80
    add  esi,I_END
    cmp  [esi+120*60+4],byte 1
    jne  no_channel_leave
    mov  [esi+120*60+4],byte 0
    mov  edi,ebp
    shl  edi,5
    mov  dword [channel_list+edi],dword '    '
    mov  byte  [channel_list+edi+31],byte 1
    mov  eax,-1
    mcall
  no_channel_leave:
 
    call  check_mouse
 
    mov   eax,23
    mov   ebx,1
    mcall
 
    cmp   eax,1
    jne   no_draw_window
    call  thread_draw_window
    call  draw_channel_text
    call  print_user_list
  no_draw_window:
 
    cmp   eax,2
    je	  thread_key
 
    cmp   eax,3
    jne   no_end
    mov   eax,17
    mcall
    mov   eax,ebp
    imul  eax,120*80
    add   eax,I_END
    cmp   [eax+120*60+8],byte 0 ; channel window
    je	  not_close
    mov   eax,ebp
    shl   eax,5
    add   eax,channel_list
    mov   [eax],dword '    '
    mov   [eax+31],byte 1
    mov   eax,-1
    mcall
  not_close:
    mov   [text_start],eax
    mov   eax,nocl
  newcc:
    mov   bl,[eax]
    call  print_character
    inc   eax
    cmp   [eax],byte 0
    jne   newcc
    call  draw_channel_text
    jmp   w_t
   nocl:   db  13,10,'To exit channel, use PART or QUIT command.',0
   no_end:
 
    cmp   [edx+120*60],byte 1
    jne   no_update
    mov   [edx+120*60],byte 0
    call  draw_channel_text
  no_update:
 
    test [cursor_on_off],0x3f
    jnz   nopri2
 
    call  blink_cursor
    call  print_user_list
 
  nopri2:
 
    jmp   w_t
 
 
 
check_mouse:
 
    pusha
 
    mov  eax,37
    mov  ebx,1
    mcall
 
    mov  ebx,eax
    shr  eax,16
    and  ebx,0xffff
 
    cmp  eax,420
    jb	 no_mouse
    cmp  eax,494
    jg	 no_mouse
 
    cmp  ebx,145
    jg	 no_mouse
    cmp  ebx,23
    jb	 no_mouse
 
 
    cmp  ebx,100
    jb	 no_plus
    mov  eax,ebp
    imul eax,120*80
    add  eax,120*70+I_END
    inc  dword [eax-8]
    call print_user_list
    mov  eax,5
    mov  ebx,8
    mcall
    jmp  no_mouse
  no_plus:
 
    cmp  ebx,80
    jg	 no_mouse
    mov  eax,ebp
    imul eax,120*80
    add  eax,120*70+I_END
    cmp  dword [eax-8],dword 0
    je	 no_mouse
    dec  dword [eax-8]
    call print_user_list
    mov  eax,5
    mov  ebx,8
    mcall
 
  no_minus:
 
  no_mouse:
 
    popa
 
    ret
 
 
 
 
thread_key:
 
    mov  eax,2
    mcall
 
    shr  eax,8
 
    cmp  eax,8
    jne  no_bks
    cmp  [xpos],0
    je	 w_t
    dec  [xpos]
    call print_entry
    jmp  w_t
   no_bks:
 
    cmp  eax,20
    jbe  no_character
    mov  ebx,[xpos]
    mov  [send_string+ebx],al
    inc  [xpos]
    cmp  [xpos],80
    jb	 xpok
    mov  [xpos],79
  xpok:
    call print_entry
    jmp  w_t
  no_character:
 
    cmp  eax,13
    jne  no_send
    cmp  [xpos],0
    je	 no_send
    mov  dword [send_to_channel],ebp
    mov  [send_to_server],1
  wait_for_sending:
    mov  eax,5
    mov  ebx,1
    mcall
    cmp  [send_to_server],1
    je	 wait_for_sending
    call draw_channel_text
    call print_entry
    jmp  w_t
  no_send:
 
    jmp  w_t
 
 
 
 
 
 
draw_channel_text:
 
    pusha
 
    mov   eax,4
    mov   ebx,10*65536+26
    mov   ecx,12
    mov   esi,[rxs]
  dct:
    pusha
    mov   cx,bx
    shl   ecx,16
    mov   cx,9
    mov   eax,13
    mov   ebx,10*65536
    mov   bx,word [rxs]
    imul  bx,6
    mov   edx,0xffffff
    mcall
    popa
    push  ecx
    mov   eax,4
    mov   ecx,0
    cmp   [edx],word '* '
    jne   no_red
    mov   ecx,0x0000ff
   no_red:
    cmp   [edx],word '**'
    jne   no_light_blue
    cmp   [edx+2],byte '*'
    jne   no_light_blue
    mov   ecx,0x0000ff
  no_light_blue:
    cmp   [edx],byte '#'
    jne   no_blue
    mov   ecx,0x0000ff
  no_blue:
    mcall
    add   edx,[rxs]
    add   ebx,10
    pop   ecx
    loop  dct
 
    popa
    ret
 
 
 
 
 
thread_draw_window:
 
    pusha
 
    mov  eax,12
    mov  ebx,1
    mcall
 
    mov  ebx,ebp		   ; draw window
    shl  ebx,16+4
    xor  eax,eax
    mov  ecx,ebx
    mov  bx,499
    mov  cx,170
 
 
 
 
 
 
 
 
    mov  edx,[wcolor]
    add  edx,0x03ffffff
    mov  esi,0x80555599
    mov  edi,0x00ffffff
 
    mcall
 
    mov  eax,ebp		   ; label
    add  eax,48
    mov  [labelc+14],al
    mov  eax,ebp
    shl  eax,5
    add  eax,channel_list
    mov  esi,eax
    mov  edi,labelc+17
    movzx ecx,byte [eax+31]
    cld
    rep   movsb
 
    mov  esi,17 		   ; print label
    movzx ebx,byte [eax+31]
    add  esi,ebx
    mov  eax,4
    mov  ebx,9*65536+8
    mov  ecx,0x00ffffff
    mov  edx,labelc
    mcall
 
    mov  eax,38 		   ; line
    mov  ebx,5*65536+494
    mov  ecx,148*65536+148
    mov  edx,[channel_line_sun]
    mcall
    add  ecx,1*65536+1
    mov  edx,[channel_line_shadow]
    mcall
 
 
    ;mov  eax,38 		   ; line
    mov  ebx,410*65536+410
    mov  ecx,22*65536+148
    mov  edx,[channel_line_sun]
    mcall
    add  ebx,1*65536+1
    mov  edx,[channel_line_shadow]
    mcall
 
    mov  eax,12
    mov  ebx,2
    mcall
 
    popa
 
    ret
 
 
; DATA AREA
 
socket	dd  0x0
 
bgc  dd  0x000000
     dd  0x000000
     dd  0x00ff00
     dd  0x0000ff
     dd  0x005500
     dd  0xff00ff
     dd  0x00ffff
     dd  0x770077
 
tc   dd  0xffffff
     dd  0xff00ff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
 
channel_line_sun    dd 0x9999ff
channel_line_shadow dd 0x666699
 
cursor_on_off  dd  0x0
 
max_windows    dd  20
 
thread_stack   dd  0x9fff0
thread_nro     dd 1
thread_screen  dd I_END+120*80*1
 
action_header_blue  db	10,'*** ',0
action_header_red   db	10,'*** ',0
 
action_header_short db	10,'* ',0
 
has_left_channel db  ' has left ',0
joins_channel	 db  ' has joined ',0
is_now_known_as  db  ' is now known as ',0
has_quit_irc	 db  ' has quit IRC',0
sets_mode	 db  ' sets mode ',0
kicked		 db  ' kicked from ',0
 
index_list_1	 dd  0x0000bb
index_list_2	 dd  0x0000ff
 
posx		 dd  0x0
incoming_pos	 dd  0x0
incoming_string: times 128 db 0
 
pos	     dd  0x0
 
text_start   dd  I_END
irc_data     dd  0x0
print	     db  0x0
cmd	     dd  0x0
rxs	     dd  66
 
res:	     db  0,0
command:     times  600  db 0x0
 
nick	     dd  0,0,0
irc_command  dd  0,0
 
command_position  dd 0x0
counter 	  dd  0
send_to_server	  db 0
 
channel_list:	  times 32*20 db 32
send_to_channel   dd 0x0
 
send_string_header:  db     'privmsg #eax :'
		     times  100  db  0x0
 
send_string:	     times  100  db  0x0
xpos	     dd  0
 
string0:     db  'USER guest ser1 ser2 :'
string0l:
string1:     db  'nick '
string1l:
 
attribute   dd	0
scroll	    dd	1
	    dd	12
 
numtext     db	'                     '
 
wcolor	    dd	0x000000
 
labelc	    db	'AIRC - WINDOW X: #xxx                 '
title	    db	'IRC client ',version,0
 
;include_debug_strings  ; ALWAYS present in data section
 
irc_server_ip db ?  ; bufer for server_IP
 
dnsMsg:  rb 512     ; buffer used by DNS client
 
 
;;
;;   Channel data at I_END
;;
;;   120*80 * channel window (1+)
;;
;;      At         Size
;;
;;      00      ,  120*60   window text 120 characters per row
;;  120*60      ,  1        text is updated
;;  120*60+4    ,  1        close yourself
;;  120*60+8    ,  1        0 = channel window  :  1 = private chat
;;  120*61      ,  256      channel name
;;  120*61+254  ,  254      channel entry text from user
;;  120*61+255  ,  1        length of entry text
;;  120*69+248  ,  4        display names from n:th name
;;  120*69+252  ,  4        length of names string
;;  120*70      ,  1200     names separated with space
;;
I_END:
 
>
>

Rev 551	Rev 556
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; IRC CLIENT for MenuetOS ;;	3	;; IRC CLIENT for MenuetOS ;;
4	;; ;;	4	;; ;;
5	;; License: GPL / See file COPYING for details ;;	5	;; License: GPL / See file COPYING for details ;;
6	;; Copyright 2004 (c) Ville Turjanmaa ;;	6	;; Copyright 2004 (c) Ville Turjanmaa ;;
7	;; ;;	7	;; ;;
8	;; Compile with FASM for Menuet ;;	8	;; Compile with FASM for Menuet ;;
9	;; ;;	9	;; ;;
10	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	10	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
11		11
12	version equ '0.5'	12	version equ '0.51'
13		13
14		14
15	;__DEBUG__ equ 1	15	;__DEBUG__ equ 1
16	;__DEBUG_LEVEL__ equ 1	16	;__DEBUG_LEVEL__ equ 1
17		17
18	use32	18	use32
19		19
20	org 0x0	20	org 0x0
21		21
22	db 'MENUET01' ; 8 byte id	22	db 'MENUET01' ; 8 byte id
23	dd 0x01 ; required os	23	dd 0x01 ; required os
24	dd START ; program start	24	dd START ; program start
25	dd I_END ; program image size	25	dd I_END ; program image size
26	dd 0x100000 ; required amount of memory	26	dd 0x100000 ; required amount of memory
27	dd 0x100000	27	dd 0x100000
28	dd 0,0	28	dd 0,0
29		29
30	include "..\..\..\macros.inc"	30	include "..\..\..\macros.inc"
31	;include "fdo.inc"	31	;include "fdo.inc"
32	include "eth.inc"	32	include "eth.inc"
33	;include "lang.inc"	33	;include "lang.inc"
34		34
35	irc_server_ip db 83,149,74,246 ;server: kolibrios.org	35	irc_server_name db 'kolibrios.org',0 ; default server name
36		36
37	user_nick dd 12 ; length	37	user_nick dd 12 ; length
38	db 'kolibri_user ' ; string	38	db 'kolibri_user ' ; string
39		39
40	user_real_name dd 14 ; length	40	user_real_name dd 14 ; length
41	db 'KolibriOS User ' ; string	41	db 'KolibriOS User ' ; string
42		42
43		43
44	START: ; start of execution	44	START: ; start of execution
45		45
46	mov eax,40	46	mov eax,40
47	mov ebx,10000111b	47	mov ebx,10000111b
48	mcall	48	mcall
49		49
50	mov edi,I_END	50	mov edi,I_END
51	mov ecx,60*120	51	mov ecx,60*120
52	mov eax,32	52	mov eax,32
53	cld	53	cld
54	rep stosb	54	rep stosb
55		55
56	mov eax,[rxs]	56	mov eax,[rxs]
57	imul eax,11	57	imul eax,11
58	mov [pos],eax	58	mov [pos],eax
59		59
60	mov ebp,0	60	mov ebp,0
61	mov edx,I_END	61	mov edx,I_END
-		62
-		63	redraw: ; redraw
62	call draw_window ; at first, draw the window	64	call draw_window ; at first, draw the window
63		65
64	still:	66	still:
65		67
66	inc [cursor_on_off]	68	inc [cursor_on_off]
67		69
68	mov eax,5	70	mov eax,5
69	mov ebx,1	71	mov ebx,1
70	mcall	72	mcall
71		73
72	mov eax,11 ; wait here for event	74	mov eax,11 ; wait here for event
73	mcall	75	mcall
74		76
75	call print_status	77	call print_status
76		78
77	cmp eax,1 ; redraw	79	cmp eax,1 ; redraw
78	je redraw	80	je redraw
79	cmp eax,2 ; key	81	cmp eax,2 ; key
80	je main_window_key	82	je main_window_key
81	cmp eax,3 ; button	83	cmp eax,3 ; button
82	je button	84	je button
83		85
84	cmp [I_END+120*60],byte 1	86	cmp [I_END+120*60],byte 1
85	jne no_main_update	87	jne no_main_update
86	mov [I_END+120*60],byte 0	88	mov [I_END+120*60],byte 0
87	mov edx,I_END	89	mov edx,I_END
88	call draw_channel_text	90	call draw_channel_text
89	no_main_update:	91	no_main_update:
90		92
91	call read_incoming_data	93	call read_incoming_data
92		94
93	call send_data_to_server	95	call send_data_to_server
94		96
95	test [cursor_on_off],0x3f	97	test [cursor_on_off],0x3f
96	jnz nopri	98	jnz nopri
97	inc [blink]	99	inc [blink]
98	call blink_cursor	100	call blink_cursor
99	call print_channel_list	101	call print_channel_list
100	nopri:	102	nopri:
101		103
102	jmp still	104	jmp still
103		-
104		-
105	redraw: ; redraw	-
106		-
107	call draw_window	-
108	jmp still	-
109		-
110		105
111	button: ; button	106	button: ; button
112		107
113	mov eax,17 ; get id	108	mov eax,17 ; get id
114	mcall	109	mcall
115		110
116	cmp ah,1 ; close program	111	cmp ah,1 ; close program
117	jne noclose	112	jne noclose
118	mov eax,-1	113	or eax,-1
119	mcall	114	mcall
120	noclose:	115	noclose:
121		116
122	call socket_commands	117	call socket_commands
123		118
124	jmp still	119	jmp still
125		120
126		121
127	print_status:	122	print_status:
128		123
129	pusha	124	pusha
130		125
131	mov eax,53	126	mov eax,53
132	mov ebx,6	127	mov ebx,6
133	mov ecx,[socket]	128	mov ecx,[socket]
134	mcall	129	mcall
135		130
136	mov [status],eax	131	mov [status],eax
137		132
138	cmp [old_status],eax	133	cmp [old_status],eax
139	je nopr	134	je nopr
140		135
141	mov [old_status],eax	136	mov [old_status],eax
142		137
143	push eax	138	push eax
144		139
145	mov eax,13	140	mov eax,13
146	mov ebx,450*65536+30	141	mov ebx,450*65536+30
147	mov ecx,231*65536+10	142	mov ecx,231*65536+10
148	mov edx,0xffffff	143	mov edx,0xffffff
149	mcall	144	mcall
150		145
151	pop ecx	146	pop ecx
152	mov eax,47	147	mov eax,47
153	mov ebx,2*65536	148	mov ebx,2*65536
154	mov edx,450*65536+231	149	mov edx,450*65536+231
155	mov esi,0x000000	150	mov esi,0x000000
156	mcall	151	mcall
157		152
158	nopr:	153	nopr:
159		154
160	popa	155	popa
161		156
162	ret	157	ret
163		158
164	status dd 0	159	status dd 0
165	old_status dd 0	160	old_status dd 0
166		161
167		162
168	socket_commands:	163	socket_commands:
169		164
170	cmp ah,22 ; open socket	165	cmp ah,22 ; open socket
171	jnz tst3	166	jnz tst3
172	mov eax,3	167	mov eax,3
173	mcall	168	mcall
174	mov ecx,eax	169	mov ecx,eax
-		170
-		171	pusha
-		172	mov eax,irc_server_name
-		173	resolve irc_server_name,dword[irc_server_ip]
-		174	;DEBUGF 1,'%u.%u.%u.%u\n',1[irc_server_ip],1[irc_server_ip+1],1[irc_server_ip+2],1[irc_server_ip+3]
-		175	popa
-		176
175	mov eax,53	177	mov eax,53
176	mov ebx,5	178	mov ebx,5
177	mov edx,6667	179	mov edx,6667
178	mov esi,dword [irc_server_ip]	180	mov esi,dword [irc_server_ip]
179	mov edi,1	181	mov edi,1
180	mcall	182	mcall
181	mov [socket], eax	183	mov [socket], eax
182	ret	184	ret
183	tst3:	185	tst3:
184		186
185		187
186	cmp ah,23 ; write userinfo	188	cmp ah,23 ; write userinfo
187	jnz tst4	189	jnz tst4
188		190
189	mov eax,53 ; user	191	mov eax,53 ; user
190	mov ebx,7	192	mov ebx,7
191	mov ecx,[socket]	193	mov ecx,[socket]
192	mov edx,string0l-string0	194	mov edx,string0l-string0
193	mov esi,string0	195	mov esi,string0
194	mcall	196	mcall
195		197
196	mov eax,53 ;	198	mov eax,53 ;
197	mov ebx,7	199	mov ebx,7
198	mov ecx,[socket]	200	mov ecx,[socket]
199	mov edx,[user_real_name]	201	mov edx,[user_real_name]
200	mov esi,user_real_name+4	202	mov esi,user_real_name+4
201	mcall	203	mcall
202		204
203	mov eax,53 ;	205	mov eax,53 ;
204	mov ebx,7	206	mov ebx,7
205	mov ecx,[socket]	207	mov ecx,[socket]
206	mov edx,2	208	mov edx,2
207	mov esi,line_feed	209	mov esi,line_feed
208	mcall	210	mcall
209		211
210		212
211	mov eax,5	213	mov eax,5
212	mov ebx,10	214	mov ebx,10
213	mcall	215	mcall
214		216
215	mov eax,53 ; nick	217	mov eax,53 ; nick
216	mov ebx,7	218	mov ebx,7
217	mov ecx,[socket]	219	mov ecx,[socket]
218	mov edx,string1l-string1	220	mov edx,string1l-string1
219	mov esi,string1	221	mov esi,string1
220	mcall	222	mcall
221		223
222	mov eax,53 ;	224	mov eax,53 ;
223	mov ebx,7	225	mov ebx,7
224	mov ecx,[socket]	226	mov ecx,[socket]
225	mov edx,[user_nick]	227	mov edx,[user_nick]
226	mov esi,user_nick+4	228	mov esi,user_nick+4
227	mcall	229	mcall
228		230
229	mov eax,53 ;	231	mov eax,53 ;
230	mov ebx,7	232	mov ebx,7
231	mov ecx,[socket]	233	mov ecx,[socket]
232	mov edx,2	234	mov edx,2
233	mov esi,line_feed	235	mov esi,line_feed
234	mcall	236	mcall
235		237
236		238
237	ret	239	ret
238		240
239	line_feed: db 13,10	241	line_feed: db 13,10
240		242
241	tst4:	243	tst4:
242		244
243		245
244	cmp ah,24 ; close socket	246	cmp ah,24 ; close socket
245	jnz no_24	247	jnz no_24
246	mov eax,53	248	mov eax,53
247	mov ebx,8	249	mov ebx,8
248	mov ecx,[socket]	250	mov ecx,[socket]
249	mcall	251	mcall
250	ret	252	ret
251	no_24:	253	no_24:
252		254
253		255
254	ret	256	ret
255		257
256		258
257	main_window_key:	259	main_window_key:
258		260
259	mov eax,2	261	mov eax,2
260	mcall	262	mcall
261		263
262	shr eax,8	264	shr eax,8
263		265
264	cmp eax,8	266	cmp eax,8
265	jne no_bks2	267	jne no_bks2
266	cmp [xpos],0	268	cmp [xpos],0
267	je still	269	je still
268	dec [xpos]	270	dec [xpos]
269	call print_entry	271	call print_entry
270	jmp still	272	jmp still
271	no_bks2:	273	no_bks2:
272		274
273	cmp eax,20	275	cmp eax,20
274	jbe no_character2	276	jbe no_character2
275	mov ebx,[xpos]	277	mov ebx,[xpos]
276	mov [send_string+ebx],al	278	mov [send_string+ebx],al
277	inc [xpos]	279	inc [xpos]
278	cmp [xpos],80	280	cmp [xpos],80
279	jb noxposdec	281	jb noxposdec
280	mov [xpos],79	282	mov [xpos],79
281	noxposdec:	283	noxposdec:
282	call print_entry	284	call print_entry
283	jmp still	285	jmp still
284	no_character2:	286	no_character2:
285		287
286	cmp eax,13	288	cmp eax,13
287	jne no_send	289	jne no_send
288	cmp [xpos],0	290	cmp [xpos],0
289	je no_send2	291	je no_send2
290	cmp [send_string],byte '/' ; server command	292	cmp [send_string],byte '/' ; server command
291	jne no_send2	293	jne no_send2
292	mov [send_to_server],1	294	mov [send_to_server],1
293	jmp still	295	jmp still
294	no_send2:	296	no_send2:
295		297
296	jmp still	298	jmp still
297		299
298		300
299	print_channel_list:	301	print_channel_list:
300		302
301	pusha	303	pusha
302		304
303	mov eax,13	305	mov eax,13
304	mov ebx,41565536+613	306	mov ebx,41565536+613
305	mov ecx,2765536+1210	307	mov ecx,2765536+1210
306	mov edx,0xffffff	308	mov edx,0xffffff
307	mcall	309	mcall
308		310
309	mov eax,4	311	mov eax,4
310	mov ebx,415*65536+27	312	mov ebx,415*65536+27
311	mov ecx,[index_list_1]	313	mov ecx,[index_list_1]
312	mov edx,channel_list+32	314	mov edx,channel_list+32
313	newch:	315	newch:
314	movzx esi,byte [edx+31]	316	movzx esi,byte [edx+31]
315	and esi,0x1f	317	and esi,0x1f
316	mcall	318	mcall
317	add edx,32	319	add edx,32
318	add ebx,12	320	add ebx,12
319	cmp edx,channel_list+32*10	321	cmp edx,channel_list+32*10
320	jbe newch	322	jbe newch
321		323
322	no_channel_list:	324	no_channel_list:
323		325
324	popa	326	popa
325		327
326	ret	328	ret
327		329
328		330
329	print_user_list:	331	print_user_list:
330		332
331	pusha	333	pusha
332		334
333	newtry:	335	newtry:
334		336
335	mov edx,ebp	337	mov edx,ebp
336	imul edx,120*80	338	imul edx,120*80
337	add edx,120*60+8+I_END	339	add edx,120*60+8+I_END
338	cmp [edx],byte 1	340	cmp [edx],byte 1
339	je nonp	341	je nonp
340		342
341	mov edx,ebp	343	mov edx,ebp
342	imul edx,120*80	344	imul edx,120*80
343	add edx,120*70+I_END	345	add edx,120*70+I_END
344	mov edi,edx	346	mov edi,edx
345		347
346	mov eax,[edx-8]	348	mov eax,[edx-8]
347	mov ebx,[edx-4]	349	mov ebx,[edx-4]
348	add ebx,edx	350	add ebx,edx
349	sub ebx,3	351	sub ebx,3
350	inc eax	352	inc eax
351	dec edx	353	dec edx
352	newnss:	354	newnss:
353	inc edx	355	inc edx
354	dec eax	356	dec eax
355	jz startuu	357	jz startuu
356	asdf:	358	asdf:
357	cmp [edx],word ' '	359	cmp [edx],word ' '
358	jne nodouble	360	jne nodouble
359	inc edx	361	inc edx
360	nodouble:	362	nodouble:
361	cmp [edx],byte ' '	363	cmp [edx],byte ' '
362	je newnss	364	je newnss
363	inc edx	365	inc edx
364	cmp edx,ebx	366	cmp edx,ebx
365	jbe asdf	367	jbe asdf
366	dec dword [edi-8]	368	dec dword [edi-8]
367		369
368	popa	370	popa
369	ret	371	ret
370		372
371	startuu:	373	startuu:
372		374
373	cmp [edx],byte ' '	375	cmp [edx],byte ' '
374	jne startpr	376	jne startpr
375	inc edx	377	inc edx
376	startpr:	378	startpr:
377		379
378	pusha	380	pusha
379	mov eax,13	381	mov eax,13
380	mov ebx,41565536+613	382	mov ebx,41565536+613
381	mov ecx,2765536+1210	383	mov ecx,2765536+1210
382	mov edx,0xffffff	384	mov edx,0xffffff
383	mcall	385	mcall
384	popa	386	popa
385		387
386	mov eax,4	388	mov eax,4
387	mov ebx,415*65536+27	389	mov ebx,415*65536+27
388		390
389	mov ebp,0	391	mov ebp,0
390	newuser:	392	newuser:
391		393
392	mov esi,0	394	mov esi,0
393	newusers:	395	newusers:
394	cmp [edx+esi],byte ' '	396	cmp [edx+esi],byte ' '
395	je do_print	397	je do_print
396	inc esi	398	inc esi
397	cmp esi,20	399	cmp esi,20
398	jbe newusers	400	jbe newusers
399	do_print:	401	do_print:
400		402
401	mov ecx,[index_list_1]	403	mov ecx,[index_list_1]
402	cmp [edx],byte '@'	404	cmp [edx],byte '@'
403	jne no_op	405	jne no_op
404	mov ecx,[index_list_2]	406	mov ecx,[index_list_2]
405	no_op:	407	no_op:
406		408
407	mcall	409	mcall
408		410
409	inc ebp	411	inc ebp
410	cmp ebp,10	412	cmp ebp,10
411	je nonp	413	je nonp
412		414
413	add ebx,12	415	add ebx,12
414		416
415	add edx,esi	417	add edx,esi
416		418
417	inc edx	419	inc edx
418	cmp [edx],byte ' '	420	cmp [edx],byte ' '
419	jne newuser	421	jne newuser
420	inc edx	422	inc edx
421	jmp newuser	423	jmp newuser
422		424
423	nonp:	425	nonp:
424		426
425	popa	427	popa
426		428
427	ret	429	ret
428		430
429		431
430	start_user_list_at dd 0x0	432	start_user_list_at dd 0x0
431		433
432		434
433	recode_to_cp1251:	435	recode_to_cp1251:
434	push esi edx	436	push esi edx
435	.loop:	437	.loop:
436	lodsb	438	lodsb
437	cmp al,0x80	439	cmp al,0x80
438	jb @f	440	jb @f
439	and eax,0x7F	441	and eax,0x7F
440	mov al,[cp866_table+eax]	442	mov al,[cp866_table+eax]
441	@@: mov [esi-1],al	443	@@: mov [esi-1],al
442	dec edx	444	dec edx
443	jnz .loop	445	jnz .loop
444	pop edx esi	446	pop edx esi
445	ret	447	ret
446		448
447		449
448	send_data_to_server:	450	send_data_to_server:
449		451
450	pusha	452	pusha
451		453
452	cmp [send_to_server],1	454	cmp [send_to_server],1
453	jne sdts_ret	455	jne sdts_ret
454		456
455	mov eax,[xpos]	457	mov eax,[xpos]
456	mov [send_string+eax+0],byte 13	458	mov [send_string+eax+0],byte 13
457	mov [send_string+eax+1],byte 10	459	mov [send_string+eax+1],byte 10
458		460
459	mov eax,[rxs]	461	mov eax,[rxs]
460	imul eax,11	462	imul eax,11
461	mov [pos],eax	463	mov [pos],eax
462	mov eax,[send_to_channel]	464	mov eax,[send_to_channel]
463	imul eax,120*80	465	imul eax,120*80
464	add eax,I_END	466	add eax,I_END
465	mov [text_start],eax	467	mov [text_start],eax
466		468
467	cmp [send_string],byte '/' ; server command	469	cmp [send_string],byte '/' ; server command
468	je server_command	470	je server_command
469		471
470	mov bl,13	472	mov bl,13
471	call print_character	473	call print_character
472	mov bl,10	474	mov bl,10
473	call print_character	475	call print_character
474	mov bl,'<'	476	mov bl,'<'
475	call print_character	477	call print_character
476		478
477	mov esi,user_nick+4	479	mov esi,user_nick+4
478	mov ecx,[user_nick]	480	mov ecx,[user_nick]
479	newnp:	481	newnp:
480	mov bl,[esi]	482	mov bl,[esi]
481	call print_character	483	call print_character
482	inc esi	484	inc esi
483	loop newnp	485	loop newnp
484		486
485	mov bl,'>'	487	mov bl,'>'
486	call print_character	488	call print_character
487	mov bl,' '	489	mov bl,' '
488	call print_character	490	call print_character
489		491
490	mov ecx,[xpos]	492	mov ecx,[xpos]
491	mov esi,send_string	493	mov esi,send_string

Subversion Repositories Kolibri OS

(root)/programs/network/airc/trunk/airc.asm – Rev 551 → 556