kolibrios-gitea/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: