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

 ;;                                                   ;;
 ;;    Compile with FASM for Menuet                   ;;
 ;;                                                   ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+version equ '0.5'
+;__DEBUG__ equ 1
-version equ '0.4'
+;__DEBUG_LEVEL__ equ 1
 		dd	I_END			; program image size
 		dd	0x100000		; required amount of memory
 		dd	0x100000
 		dd	0,0
+include "..\..\..\macros.inc"
+;include "fdo.inc"
-include "lang.inc"
+include "eth.inc"
-;include "macros.inc"
+;include "lang.inc"
 irc_server_ip	db	83,149,74,246		  ;server: kolibrios.org
 START:				; start of execution
     mov  eax,40
     mov  ebx,10000111b
-    int  0x40
+    mcall
     mov  edi,I_END
     inc  [cursor_on_off]
     mov  eax,5
     mov  ebx,1
-    int  0x40
+    mcall
     mov  eax,11 		; wait here for event
-    int  0x40
+    mcall
 button: 			; button
     mov  eax,17 		; get id
-    int  0x40
+    mcall
     cmp  ah,1			; close program
     jne  noclose
     mov  eax,-1
     pusha
     mov  eax,53
     mov  ebx,6
     mov  ecx,[socket]
-    int  0x40
+    mcall
     mov  [status],eax
     mov  eax,13
     mov  ebx,450*65536+30
     mov  ecx,231*65536+10
     mov  edx,0xffffff
-    int  0x40
+    mcall
     pop  ecx
     mov  eax,47
     mov  ebx,2*65536
     mov  edx,450*65536+231
     mov  esi,0x000000
-    int  0x40
+    mcall
 socket_commands:
     cmp  ah,22	     ; open socket
     jnz  tst3
     mov  eax,3
-    int  0x40
+    mcall
     mov  ecx,eax
     mov  eax,53
     mov  ebx,5
     mov  edx,6667
     mov  esi,dword [irc_server_ip]
     mov  edi,1
-    int  0x40
+    mcall
     mov  [socket], eax
     ret
     mov  eax,53  ; user
     mov  ebx,7
     mov  ecx,[socket]
     mov  edx,string0l-string0
     mov  esi,string0
-    int  0x40
+    mcall
     mov  eax,53  ;
     mov  ebx,7
     mov  ecx,[socket]
     mov  edx,[user_real_name]
     mov  esi,user_real_name+4
-    int  0x40
+    mcall
     mov  eax,53  ;
     mov  ebx,7
     mov  ecx,[socket]
     mov  edx,2
     mov  esi,line_feed
-    int  0x40
+    mcall
     mov  eax,5
     mov  ebx,10
-    int  0x40
+    mcall
     mov  eax,53  ; nick
     mov  ebx,7
     mov  ecx,[socket]
     mov  edx,string1l-string1
     mov  esi,string1
-    int  0x40
+    mcall
     mov  eax,53  ;
     mov  ebx,7
     mov  ecx,[socket]
     mov  edx,[user_nick]
     mov  esi,user_nick+4
-    int  0x40
+    mcall
     mov  eax,53  ;
     cmp  ah,24	   ; close socket
     jnz  no_24
     mov  eax,53
     mov  ebx,8
     mov  ecx,[socket]
-    int  0x40
+    mcall
     ret
   no_24:
     ret
 main_window_key:
     mov  eax,13
     mov  ebx,415*65536+6*13
     mov  ecx,27*65536+12*10
     mov  edx,0xffffff
-    int  0x40
+    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
-    int  0x40
+    mcall
     add  edx,32
     add  ebx,12
     pusha
     mov  eax,13
     mov  ebx,415*65536+6*13
     mov  ecx,27*65536+12*10
     mov  edx,0xffffff
-    int  0x40
+    mcall
     popa
     mov  eax,4
     cmp  [edx],byte '@'
     jne  no_op
     mov  ecx,[index_list_2]
   no_op:
-    int  0x40
+    mcall
     inc  ebp
     add   edx,ebx
     mov  eax, 53      ; write channel
     mov  ebx, 7
     mov  ecx, [socket]
-    int  0x40
+    mcall
     mov  esi,send_string
     mov  edx,[xpos]
     inc  edx
 	call	recode_to_cp1251
     mov  eax, 53      ; write message
     mov  ebx, 7
   no_set_real_name:
     cmp  [send_string+1],dword 'aser'
     jne  no_set_server
-    pusha
+;    pusha
-    mov   edi,irc_server_ip
+;    mov   edi,irc_server_ip
-    mov   esi,send_string+7
+;    mov   esi,send_string+7
-    mov   eax,0
+;    mov   eax,0
-    mov   edx,[xpos]
+;    mov   edx,[xpos]
-    add   edx,send_string-1
+;    add   edx,send_string-1
-  newsip:
+;  newsip:
-    cmp   [esi],byte '.'
+;    cmp   [esi],byte '.'
-    je	  sipn
+;    je    sipn
-    cmp   esi,edx
+;    cmp   esi,edx
-    jg	  sipn
+;    jg    sipn
-    movzx ebx,byte [esi]
+;    movzx ebx,byte [esi]
-    inc   esi
+;    inc   esi
-    imul  eax,10
+;    imul  eax,10
-    sub   ebx,48
+;    sub   ebx,48
-    add   eax,ebx
+;    add   eax,ebx
-    jmp   newsip
+;    jmp   newsip
-  sipn:
+;  sipn:
-    mov   [edi],al
+;    mov   [edi],al
-    xor   eax,eax
+;    xor   eax,eax
-    inc   esi
+;    inc   esi
-    cmp   esi,send_string+30
+;    cmp   esi,send_string+30
-    jg	  sipnn
+;    jg    sipnn
-    inc   edi
+;    inc   edi
-    cmp   edi,irc_server_ip+3
+;    cmp   edi,irc_server_ip+3
+;    jbe   newsip
+;  sipnn:
+;    popa
+pusha
+    mov     eax,send_string
+    add     eax,[xpos]
+    mov     dword[eax],0
-    jbe   newsip
+    resolve send_string+7,dword[irc_server_ip]
-  sipnn:
+    ;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
+popa
     add  edx,1
     mov  eax, 53      ; write server command
     mov  ebx, 7
     mov  ecx, [socket]
-    int  0x40
+    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
-    int  0x40
+    mcall
     mov  eax, 53      ; close socket
     mov  ebx, 8
     mov  ecx, [socket]
     mov  eax,51
     mov  ebx,1
     mov  ecx,channel_thread
     mov  edx,[thread_stack]
-    int  0x40
+    mcall
     mov  eax,5
     mov  ebx,10
-    int  0x40
+    mcall
     mov  eax,13
     mov  ebx,8*65536+6*80
     mov  ecx,151*65536+13
     mov  edx,0xffffff
-    int  0x40
+    mcall
     mov  eax,4
     mov  ebx,8*65536+154
     mov  ecx,0x000000
     mov  edx,send_string
     mov  esi,[xpos]
-    int  0x40
+    mcall
     pusha
     mov  eax,9
     mov  ebx,0xe0000
     mov  ecx,-1
-    int  0x40
+    mcall
     mov  edx,[blink]
     and  edx,1
     mov  cx,bx
     shl  ebx,16
     mov  bx,cx
     mov  ecx,151*65536+163
     mov  eax,38
-    int  0x40
+    mcall
     popa
     mov  eax,13
     mov  ebx,8*65536+6*60
     mov  ecx,151*65536+13
     mov  edx,0xffffff
-    int  0x40
+    mcall
     mov  ebx,100*65536+3
     mov  ecx,0xffffff
     mov  edx,command
     mov  esi,[cmd]
     mov  [command+esi-1],word '**'
-;    int  0x40
+;    mcall
     mov  eax,53
     mov  ebx,7
     mov  ecx,[socket]
     mov  edx,[cmd]
     sub  edx,2
     and  edx,255
     mov  esi,command
-    int  0x40
+    mcall
     mov  eax,53
     mov  ebx,7
     mov  ecx,[socket]
     mov  edx,2
     mov  esi,linef
-    int  0x40
+    mcall
   db '?','?','?','?','?','?','?','?' , $F1,'?','?','?','?','?','?','?' ; 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,'?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; F
+  db $A8,$B8,'?','?','?','?','?','?' , '?','?','?','?','?','?','?','?' ; F
 ;    0   1   2   3   4   5   6   7     8   9   A   B   C   D   E   F
 read_incoming_byte:
     mov  eax, 53
     mov  ebx, 2
     mov  ecx, [socket]
-    int  0x40
+    mcall
     mov  ecx,-1
     cmp  eax,0
     je	 no_more_data
     mov  eax, 53
     mov  ebx, 3
     mov  ecx, [socket]
-    int  0x40
+    mcall
     pusha
     mov  eax,12
     mov  ebx,1
-    int  0x40
+    mcall
     mov  [old_status],300
-    mov  eax,0			   ; draw window
+    xor  eax,eax		   ; draw window
-    mov  ebx,5*65536+499
-    mov  ecx,5*65536+345
-    mov  edx,[wcolor]
-    add  edx,0x03ffffff
-    mov  esi,0x80555599
-    mov  edi,0x00ffffff
-    int  0x40
+    mov  ebx,5*65536+499
-    mov  eax,4			   ; label
-    mov  ebx,9*65536+8
+    mov  ecx,5*65536+345
-    mov  ecx,0x10ffffff
+    mov  edx,[wcolor]
-    mov  edx,labelt
+    add  edx,0x13ffffff
-    mov  esi,labellen-labelt
+    mov  edi,title
-    int  0x40
+    mcall
     mov  eax,8			   ; button: open socket
     mov  ebx,43*65536+22
     mov  ecx,229*65536+10
     mov  edx,22
     mov  esi,[main_button]
-    int  0x40
+    mcall
-    mov  eax,8			   ; button: send userinfo
+    ;mov  eax,8			   ; button: send userinfo
     mov  ebx,180*65536+22
     mov  ecx,229*65536+10
     mov  edx,23
-    int  0x40
+    mcall
-    mov  eax,8			   ; button: close socket
+    ;mov  eax,8			   ; button: close socket
     mov  ebx,317*65536+22
     mov  ecx,229*65536+10
     mov  edx,24
-    int  0x40
-    mov  eax,38 		   ; line
+    mcall
     mov  ebx,5*65536+494
-    mov  ecx,148*65536+148
+    mov  eax,38 		   ; line
-    mov  edx,[main_line]
+    mov  ebx,5*65536+494
-    int  0x40
+    mov  ecx,148*65536+148
-    add  ecx,1*65536+1
-;    mov  edx,0x5555cc
-;    int  0x40
+    mov  edx,[main_line]
     mcall
-    mov  eax,38 		   ; line
+    add  ecx,1*65536+1
-    mov  ebx,5*65536+494
-    mov  ecx,166*65536+166
+    mov  eax,38 		   ; line
-    int  0x40
-    add  ecx,1*65536+1
-;    mov  edx,0x5555cc
+    mov  ebx,5*65536+494
-;    int  0x40
+    mov  ecx,166*65536+166
     mcall
-    mov  eax,38 		   ; line
+    add  ecx,1*65536+1
     mov  ebx,410*65536+410
-    mov  ecx,22*65536+148
+    mov  eax,38 		   ; line
-    int  0x40
+    mov  ebx,410*65536+410
-    add  ebx,1*65536+1
+    mov  ecx,22*65536+148
-;    mov  edx,0x5555cc
+    mcall
-;    int  0x40
+    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
-    int  0x40
+    mcall
 text:
 db '   Real name : KolibriOS User  - change with eg /areal Jill User      '
-db '   Nick      : kolibri_user    - change with eg /anick Jill           '
+db '   Nick      : KolibriOS User  - change with eg /anick Jill           '
-db '   Server    : 83.149.74.246   - change with eg /aserv 192.168.1.24   '
+db '   Server    : kolibrios.org   - change with eg /aserv irc.by         '
 db '                                                                      '
 db '        1) Open socket         2) Send userinfo       Close socket    '
     mov  edi,ebp
     shl  edi,5
     mov  dword [channel_list+edi],dword '    '
     mov  byte  [channel_list+edi+31],byte 1
     mov  eax,-1
-    int  0x40
+    mcall
   no_channel_leave:
     call  check_mouse
     mov   eax,23
     mov   ebx,1
-    int   0x40
+    mcall
     cmp   eax,1
     je	  thread_key
     cmp   eax,3
     jne   no_end
     mov   eax,17
-    int   0x40
+    mcall
     mov   eax,ebp
     imul  eax,120*80
     add   eax,I_END
     cmp   [eax+120*60+8],byte 0 ; channel window
     shl   eax,5
     add   eax,channel_list
     mov   [eax],dword '    '
     mov   [eax+31],byte 1
     mov   eax,-1
-    int   0x40
+    mcall
   not_close:
     mov   [text_start],eax
     mov   eax,nocl
   newcc:
     mov   bl,[eax]
     pusha
     mov  eax,37
     mov  ebx,1
-    int  0x40
+    mcall
     add  eax,120*70+I_END
     inc  dword [eax-8]
     call print_user_list
     mov  eax,5
     mov  ebx,8
-    int  0x40
+    mcall
     jmp  no_mouse
   no_plus:
     cmp  ebx,80
     je	 no_mouse
     dec  dword [eax-8]
     call print_user_list
     mov  eax,5
     mov  ebx,8
-    int  0x40
+    mcall
   no_minus:
 thread_key:
     mov  eax,2
-    int  0x40
+    mcall
     mov  dword [send_to_channel],ebp
     mov  [send_to_server],1
   wait_for_sending:
     mov  eax,5
     mov  ebx,1
-    int  0x40
+    mcall
     cmp  [send_to_server],1
     je	 wait_for_sending
     call draw_channel_text
     call print_entry
     jmp  w_t
     mov   eax,13
     mov   ebx,10*65536
     mov   bx,word [rxs]
     imul  bx,6
     mov   edx,0xffffff
-    int   0x40
+    mcall
     popa
     push  ecx
     mov   eax,4
     mov   ecx,0
     cmp   [edx],word '* '
   no_light_blue:
     cmp   [edx],byte '#'
     jne   no_blue
     mov   ecx,0x0000ff
   no_blue:
-    int   0x40
+    mcall
     add   edx,[rxs]
     add   ebx,10
     pop   ecx
     loop  dct
     pusha
     mov  eax,12
     mov  ebx,1
-    int  0x40
+    mcall
     mov  ebx,ebp		   ; draw window
     mov  edx,[wcolor]
     add  edx,0x03ffffff
     mov  esi,0x80555599
     mov  edi,0x00ffffff
-    int  0x40
+    mcall
     mov  eax,ebp		   ; label
     add  eax,48
     add  esi,ebx
     mov  eax,4
     mov  ebx,9*65536+8
     mov  ecx,0x00ffffff
     mov  edx,labelc
-    int  0x40
+    mcall
     mov  eax,38 		   ; line
     mov  ebx,5*65536+494
     mov  ecx,148*65536+148
     mov  edx,[channel_line_sun]
-    int  0x40
+    mcall
     add  ecx,1*65536+1
     mov  edx,[channel_line_shadow]
-    int  0x40
+    mcall
-    mov  eax,38 		   ; line
+    ;mov  eax,38 		   ; line
     mov  ebx,410*65536+410
     mov  ecx,22*65536+148
     mov  edx,[channel_line_sun]
-    int  0x40
+    mcall
     add  ebx,1*65536+1
     mov  edx,[channel_line_shadow]
-    int  0x40
+    mcall
     mov  eax,12
-    mov  ebx,2
-    int  0x40
+    mov  ebx,2
     mcall
     popa
 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
-labelc	    db	'AIRC - WINDOW X: #xxx                 '
-labelt	    db	'IRC client ',version
+dnsMsg:  rb 512     ; buffer used by DNS client
 labellen:
 ;;

Subversion Repositories Kolibri OS

(root)/programs/network/airc/trunk/airc.asm – Rev 195 → 485