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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                   ;;
;;    POP CLIENT for MenuetOS                        ;;
;;    - Modified from IRC client                     ;;
;;                                                   ;;
;;    License: GPL / See file COPYING for details    ;;
;;    Copyright 2002 (c) Ville Turjanmaa             ;;
;;                                                   ;;
;;    Compile with FASM for Menuet                   ;;
;;                                                   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
include 'macros.inc'
version equ '0.1'
 
use32
 
                org     0x0
 
                db      'MENUET01'              ; 8 byte id
                dd      0x01                    ; required os
                dd      START                   ; program start
                dd      I_END                   ; program image size
                dd      0x200000                ; required amount of memory
                dd      0xffff0
                dd      0,0
 
START:                          ; start of execution
 
    mov  [file_start],0x100000
 
    mov  eax,70
    mov  ebx,filel
    mcall
 
    test eax,eax
    jz   @f
    cmp  eax,6
    jnz  notfound
@@:
    add  [file_start],ebx
  notfound:
 
    mov  edi,I_END
    mov  ecx,60*120
    mov  al,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:
 
    mov  eax,5
    mov  ebx,1
    mcall
 
    mov  eax,11                 ; wait here for event
    mcall
 
    cmp  eax,1                  ; redraw
    je   redraw
    cmp  eax,2                  ; key
    je   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_server_data
  no_main_update:
 
    cmp  [server_active],0
    je   noread
    call read_incoming_data
  noread:
 
    call print_status
 
    cmp  [status],4
    je   send_request
 
    jmp  still
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Save the fetched mails
;;
 
 
save_file:
 
   pusha
 
   mov  ebx,files
   mov  eax,[file_start]
   sub  eax,0x100000
   mov  [ebx+12],eax
 
   mov  eax,70
   mcall
 
   popa
 
   ret
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Send user id/passwd/mailrq
;;
 
 
send_request:
 
    inc  [mcounter]
 
    cmp  [mcounter],1000
    jbe  no_send
 
    mov  eax,[ccounter]
    imul  eax,32
    add  eax,getmail
    mov  esi,eax
 
    inc  [ccounter]
 
    mov  edx,32
 
    cmp  [ccounter],1
    jne  no1
    mov  edx,5+2
    add  edx,[l2]
  no1:
 
    cmp  [ccounter],2
    jne  no2
    mov  edx,5+2
    add  edx,[l3]
  no2:
 
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mcall
    mov  [mcounter],0
 
    cmp  [esi],dword 'quit'
    je   close_fetch
 
 
  no_send:
 
    jmp  still
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Close connection to server
;;
 
 
close_fetch:
 
    mov  eax,53
    mov  ebx,7
    mov  ecx,[socket]
    mov  edx,14
    mov  esi,quitc
    mcall
    mov  [mcounter],0
 
    mov  eax,5
    mov  ebx,150
    mcall
 
    call read_incoming_data
 
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
 
    mov  eax,5
    mov  ebx,2
    mcall
 
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
 
    mov  [server_active],0
 
    jmp  still
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  User input processing
;;
 
 
key:
 
    mov  eax,2
    mcall
 
    jmp  still
 
 
button:                         ; button
 
    mov  eax,17                 ; get id
    mcall
 
    cmp  ah,60
    jne  no_open
        mov     eax, 70
        mov     ebx, tinypad_start
        mcall
    jmp  still
  no_open:
 
    cmp  ah,1                   ; close program
    jne  noclose
    mov  eax,-1
    mcall
  noclose:
 
    cmp  ah,51
    je   read_string
    cmp  ah,52
    je   read_string
    cmp  ah,53
    je   read_string
 
    call socket_commands
 
    jmp  still
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Socket open & close
;;
 
socket_commands:
 
    cmp  ah,22       ; open socket
    jnz  tst3
 
    mov  [server_active],1
 
    mov  [mcounter],900
    mov  [ccounter],0
 
    mov  eax,3
    mcall
 
    mov  eax,3
    mcall
    mov  ecx,eax
    and  ecx,0xffff
 
    mov  eax,53
    mov  ebx,5
    mov  edx,110
    mov  esi,dword [ip]
    mov  edi,1
    mcall
    mov  [socket], eax
 
    ret
  tst3:
 
 
    cmp  ah,24     ; close socket
    jnz  no_24
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
    mov  [header_sent],0
    mov  [mail_rp],0
    mov  [server_active],0
 
    ret
  no_24:
 
    ret
 
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Display connection status
;;
 
old_status dd 0x0
 
print_status:
 
    pusha
 
    mov  eax,53
    mov  ebx,6
    mov  ecx,[socket]
    mcall
 
    mov  [status],eax
 
    cmp  eax,[old_status]
    je   nopr
 
    mov  [old_status],eax
 
    push eax
 
    mov  eax,13
    mov  ebx,200*65536+30
    mov  ecx,160*65536+10
    mov  edx,0xffffff
    mcall
 
    pop  ecx
 
    cmp  [server_active],1
    jne  nopr
 
    mov  eax,47
    mov  ebx,3*65536
    mov  edx,200*65536+160
    mov  esi,0x000000
    mcall
 
  nopr:
 
    popa
 
    ret
 
 
 
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Read data from server
;;
 
 
read_incoming_data:
 
    pusha
 
  read_new_byte:
 
    call read_incoming_byte
    cmp  ecx,-1
    je   no_data_in_buffer
 
    mov  eax,[file_start]
    mov  [eax],bl
    inc  [file_start]
 
    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 save_file
    call analyze_data
    mov  edi,command
    mov  ecx,250
    mov  eax,0
    cld
    rep  stosb
    mov  [cmd],0
  no_end_command:
 
    mov  eax,[cmd]
    cmp  eax,250
    jge  still
 
    mov  [eax+command-2],bl
    inc  [cmd]
 
    jmp  read_new_byte
 
  no_data_in_buffer:
 
    popa
 
    ret
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Read user input for ip/user/passwd
;;
 
 
read_string:
 
    shr  eax,8
    sub  eax,51
    mov  ebx,eax
    imul eax,12
    add  eax,181
 
    mov  [len],ebx
    shl  [len],2
    add  [len],l1
 
    imul ebx,50
    add  ebx,input1
 
    mov  [addr],ebx
    mov  [ya],eax
 
    mov  edi,[addr]
    mov  eax,0
    mov  ecx,30
    cld
    rep  stosb
 
    call print_input_text
 
    mov  edi,[addr]
 
  f11:
    mov  eax,10
    mcall
    cmp  eax,2
    jne  read_done
    mov  eax,2
    mcall
    shr  eax,8
    cmp  eax,13
    je   read_done
    cmp  eax,8
    jnz  nobsl
    cmp  edi,[addr]
    jz   f11
    sub  edi,1
    mov  [edi],byte 32
    call print_text
    jmp  f11
  nobsl:
    mov  [edi],al
 
    call print_input_text
 
    add  edi,1
    mov  esi,[addr]
    add  esi,30
    cmp  esi,edi
    jnz  f11
 
  read_done:
 
    push edi
 
    mov  ecx,40
    mov  eax,32
    cld
    rep  stosb
 
    call print_input_text
 
    pop  edi
    sub  edi,[addr]
    mov  eax,[len]
    mov  [eax],edi
 
    cmp  [len],l1
    jne  noip
    mov  esi,input1
    mov  edi,ip_text+15
    mov  ecx,16
    cld
    rep  movsb
    call ip_set
   noip:
 
    cmp  [len],l2
    jne  nol2
    mov  esi,input2
    mov  edi,l2_text+15
    mov  ecx,22
    cld
    rep  movsb
    mov  esi,input2
    mov  edi,getmail+5
    mov  ecx,[l2]
    cld
    rep  movsb
    mov  al,13
    stosb
    mov  al,10
    stosb
   nol2:
 
    cmp  [len],l3
    jne  nol3
    mov  esi,input3
    mov  edi,getmail+32+5
    mov  ecx,[l3]
    cld
    rep  movsb
    mov  al,13
    stosb
    mov  al,10
    stosb
   nol3:
 
    call draw_window
 
    jmp  still
 
 
 
print_input_text:
 
    pusha
 
    mov  eax,13
    mov  ebx,95*65536+23*6
    mov  ecx,[ya]
    shl  ecx,16
    mov  cx,9
    mov  edx,0xffffff
    mcall
 
    cmp  [len],l3
    je   noprt
 
    mov  eax,4
    mov  edx,[addr]
    mov  ebx,95*65536
    add  ebx,[ya]
    mov  ecx,0x000000
    mov  esi,23
    mcall
 
  noprt:
 
    popa
    ret
 
 
ip_set:
 
    mov   esi,input1-1
    mov   edi,ip
    xor   eax,eax
   ip1:
    inc   esi
    cmp   [esi],byte '0'
    jb    ip2
    cmp   [esi],byte '9'
    jg    ip2
    imul  eax,10
    movzx ebx,byte [esi]
    sub   ebx,48
    add   eax,ebx
    jmp   ip1
   ip2:
    mov   [edi],al
    xor   eax,eax
    inc   edi
    cmp   edi,ip+3
    jbe   ip1
    ret
   no_read_ip:
 
    ret
 
 
analyze_data:
 
    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
 
    cmp  [cmd],2
    jbe  nott
    mov  ecx,[cmd]
    sub  ecx,2
    mov  esi,command+0
  newcmdc:
    mov  bl,[esi]
    call print_character
    inc  esi
    loop newcmdc
 
   nott:
 
    mov   edx,I_END
    call  draw_server_data
 
  cmd_len_ok:
 
    cmp  [command],dword '-ERR'
    je   close_fetch
 
    cmp  [command],word '+O'
    jne  nook
    mov  [mcounter],990
  nook:
 
    popa
 
    ret
 
 
 
draw_data:
 
    push eax
 
    add  eax,[text_start]
    mov  [eax],bl
 
    pop  eax
    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
 
 
 
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
 
 
 
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
 
    mov  ecx,0
 
  no_more_data:
 
    ret
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Window definitions
;;
 
 
 
draw_window:
 
    pusha
 
    mov  eax,12
    mov  ebx,1
    mcall
 
    mov  eax,0                     ; draw window
    mov  ebx,5*65536+435
    mov  ecx,5*65536+232
    mov  edx,0x14ffffff
    mov  edi,labelt
    mcall
 
    mov  [old_status],300
 
    mov  eax,8                     ; button: open socket
    mov  ebx,23*65536+22
    mov  ecx,155*65536+10
    mov  edx,22
    mov  esi,0x44cc44
    mcall
 
;    mov  eax,8                     ; button: close socket
    mov  ebx,295*65536+22
    mov  ecx,155*65536+10
    mov  edx,24
    mov  esi,0xcc4444
    mcall
 
;    mov  eax,8                     ; button: text entries
    mov  ebx,243*65536+8
    mov  ecx,180*65536+8
    mov  edx,51
    mov  esi,0x4488dd
  newi:
    mcall
    inc  edx
    add  ecx,12*65536
    cmp  edx,53
    jbe  newi
 
;    mov  eax,8                     ; open inbox
    mov  ebx,295*65536+102
    mov  ecx,190*65536+14
    mov  edx,60
    mov  esi,0x5577dd
    mcall
 
    mov  eax,38                    ; line
    mov  ebx,5*65536+430
    mov  ecx,114*65536+114
    mov  edx,0x000000
    mcall
 
    mov  ebx,5*65536+133          ; 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_server_data
 
    mov  eax,12
    mov  ebx,2
    mcall
 
    popa
 
    ret
 
 
draw_server_data:
 
    pusha
 
    mov   eax,4
    mov   ebx,10*65536+26
    mov   ecx,8
    mov   esi,[rxs]
  dct:
    pusha
    mov   ecx,ebx
    shl   ecx,16
    mov   cl,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
    mcall
    add   edx,[rxs]
    add   ebx,10
    pop   ecx
    loop  dct
 
    popa
    ret
 
 
 
text:
 
db '   Incoming mails are written to /rd/1/popc.txt                       '
db '                                                                      '
db '        Check for mail.                               Force close     '
db '                                                                      '
ip_text:
db '   Server IP : 192.168.1.200            <                             '
l2_text:
db '   User      :                          <         Open popc.txt       '
 l3_text:
db '   Password  : (not shown)              <                             '
 
db 'x' ; <- END MARKER, DONT DELETE
 
file_start      dd      0x100000
 
; max size is 0x100000 bytes, read to/write from 0x100000
files:
       dd  2,0,0,?,0x100000
       db  0
       dd  pr
filel:
       dd  0,0,0,0x100000,0x100000
pr db  '/sys/popc.txt',0
 
ip     db 192,168,1,200
 
socket  dd  0x0
 
posx             dd  0x0
incoming_pos     dd  0x0
incoming_string: times 128 db 0
pos          dd  0x0
 
text_start   dd  I_END
print        db  0x0
cmd          dd  0x0
rxs          dd  66
 
res:         db  0,0
command:     times  256  db 0x0
 
command_position  dd 0
counter           dd 0
 
numtext      db  '                     '
labelt       db  'POP client v ',version,0
scroll:      dd 1,8
 
tinypad_start:
        dd      7
        dd      0
        dd      pr
        dd      0
        dd      0
        db      '/sys/TINYPAD',0
 
getmail:
       db  'user xyz                      ',13,10
       db  'pass xyz                      ',13,10
       db  'retr 1                        ',13,10
       db  'retr 2                        ',13,10
       db  'retr 3                        ',13,10
       db  'retr 4                        ',13,10
       db  'retr 5                        ',13,10
       db  'retr 6                        ',13,10
       db  'retr 7                        ',13,10
       db  'retr 8                        ',13,10
       db  'retr 9                        ',13,10
 
quitc:
       db  'quit        ',13,10
 
mcounter dd 900
ccounter dd 0
 
ld   db 13,10
 
server_active db 0
 
header_sent db 0
 
close_connection   dd 0x0
 
mail_rp      dd  0
 
irc_data   dd  0x0
addr       dd  0x0
ya         dd  0x0
len        dd  0x0
 
input1:  times 50 db 32
input2:  times 50 db 32
input3:  times 50 db 32
 
l1 dd 0
l2 dd 3
l3 dd 3
 
status  dd  0x0
 
I_END:

Rev 539	Rev 661
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; POP CLIENT for MenuetOS ;;	3	;; POP CLIENT for MenuetOS ;;
4	;; - Modified from IRC client ;;	4	;; - Modified from IRC client ;;
5	;; ;;	5	;; ;;
6	;; License: GPL / See file COPYING for details ;;	6	;; License: GPL / See file COPYING for details ;;
7	;; Copyright 2002 (c) Ville Turjanmaa ;;	7	;; Copyright 2002 (c) Ville Turjanmaa ;;
8	;; ;;	8	;; ;;
9	;; Compile with FASM for Menuet ;;	9	;; Compile with FASM for Menuet ;;
10	;; ;;	10	;; ;;
11	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	11	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12	include '..\..\..\macros.inc'	12	include 'macros.inc'
13	version equ '0.1'	13	version equ '0.1'
14		14
15	use32	15	use32
16		16
17	org 0x0	17	org 0x0
18		18
19	db 'MENUET01' ; 8 byte id	19	db 'MENUET01' ; 8 byte id
20	dd 0x01 ; required os	20	dd 0x01 ; required os
21	dd START ; program start	21	dd START ; program start
22	dd I_END ; program image size	22	dd I_END ; program image size
23	dd 0x200000 ; required amount of memory	23	dd 0x200000 ; required amount of memory
24	dd 0xffff0	24	dd 0xffff0
25	dd 0,0	25	dd 0,0
26		26
27	START: ; start of execution	27	START: ; start of execution
28		28
29	mov [file_start],0x100000	29	mov [file_start],0x100000
30		30
31	mov eax,70	31	mov eax,70
32	mov ebx,filel	32	mov ebx,filel
33	mcall	33	mcall
34		34
35	test eax,eax	35	test eax,eax
36	jz @f	36	jz @f
37	cmp eax,6	37	cmp eax,6
38	jnz notfound	38	jnz notfound
39	@@:	39	@@:
40	add [file_start],ebx	40	add [file_start],ebx
41	notfound:	41	notfound:
42		42
43	mov edi,I_END	43	mov edi,I_END
44	mov ecx,60*120	44	mov ecx,60*120
45	mov al,32	45	mov al,32
46	cld	46	cld
47	rep stosb	47	rep stosb
48		48
49	mov eax,[rxs]	49	mov eax,[rxs]
50	imul eax,11	50	imul eax,11
51	mov [pos],eax	51	mov [pos],eax
52		52
53	mov ebp,0	53	mov ebp,0
54	mov edx,I_END	54	mov edx,I_END
55		55
56	redraw: ; redraw	56	redraw: ; redraw
57	call draw_window ; at first, draw the window	57	call draw_window ; at first, draw the window
58		58
59	still:	59	still:
60		60
61	mov eax,5	61	mov eax,5
62	mov ebx,1	62	mov ebx,1
63	mcall	63	mcall
64		64
65	mov eax,11 ; wait here for event	65	mov eax,11 ; wait here for event
66	mcall	66	mcall
67		67
68	cmp eax,1 ; redraw	68	cmp eax,1 ; redraw
69	je redraw	69	je redraw
70	cmp eax,2 ; key	70	cmp eax,2 ; key
71	je key	71	je key
72	cmp eax,3 ; button	72	cmp eax,3 ; button
73	je button	73	je button
74		74
75	cmp [I_END+120*60],byte 1	75	cmp [I_END+120*60],byte 1
76	jne no_main_update	76	jne no_main_update
77	mov [I_END+120*60],byte 0	77	mov [I_END+120*60],byte 0
78	mov edx,I_END	78	mov edx,I_END
79	call draw_server_data	79	call draw_server_data
80	no_main_update:	80	no_main_update:
81		81
82	cmp [server_active],0	82	cmp [server_active],0
83	je noread	83	je noread
84	call read_incoming_data	84	call read_incoming_data
85	noread:	85	noread:
86		86
87	call print_status	87	call print_status
88		88
89	cmp [status],4	89	cmp [status],4
90	je send_request	90	je send_request
91		91
92	jmp still	92	jmp still
93		93
94		94
95	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	95	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
96	;;	96	;;
97	;; Save the fetched mails	97	;; Save the fetched mails
98	;;	98	;;
99		99
100		100
101	save_file:	101	save_file:
102		102
103	pusha	103	pusha
104		104
105	mov ebx,files	105	mov ebx,files
106	mov eax,[file_start]	106	mov eax,[file_start]
107	sub eax,0x100000	107	sub eax,0x100000
108	mov [ebx+12],eax	108	mov [ebx+12],eax
109		109
110	mov eax,70	110	mov eax,70
111	mcall	111	mcall
112		112
113	popa	113	popa
114		114
115	ret	115	ret
116		116
117		117
118	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	118	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
119	;;	119	;;
120	;; Send user id/passwd/mailrq	120	;; Send user id/passwd/mailrq
121	;;	121	;;
122		122
123		123
124	send_request:	124	send_request:
125		125
126	inc [mcounter]	126	inc [mcounter]
127		127
128	cmp [mcounter],1000	128	cmp [mcounter],1000
129	jbe no_send	129	jbe no_send
130		130
131	mov eax,[ccounter]	131	mov eax,[ccounter]
132	imul eax,32	132	imul eax,32
133	add eax,getmail	133	add eax,getmail
134	mov esi,eax	134	mov esi,eax
135		135
136	inc [ccounter]	136	inc [ccounter]
137		137
138	mov edx,32	138	mov edx,32
139		139
140	cmp [ccounter],1	140	cmp [ccounter],1
141	jne no1	141	jne no1
142	mov edx,5+2	142	mov edx,5+2
143	add edx,[l2]	143	add edx,[l2]
144	no1:	144	no1:
145		145
146	cmp [ccounter],2	146	cmp [ccounter],2
147	jne no2	147	jne no2
148	mov edx,5+2	148	mov edx,5+2
149	add edx,[l3]	149	add edx,[l3]
150	no2:	150	no2:
151		151
152	mov eax,53	152	mov eax,53
153	mov ebx,7	153	mov ebx,7
154	mov ecx,[socket]	154	mov ecx,[socket]
155	mcall	155	mcall
156	mov [mcounter],0	156	mov [mcounter],0
157		157
158	cmp [esi],dword 'quit'	158	cmp [esi],dword 'quit'
159	je close_fetch	159	je close_fetch
160		160
161		161
162	no_send:	162	no_send:
163		163
164	jmp still	164	jmp still
165		165
166		166
167	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	167	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
168	;;	168	;;
169	;; Close connection to server	169	;; Close connection to server
170	;;	170	;;
171		171
172		172
173	close_fetch:	173	close_fetch:
174		174
175	mov eax,53	175	mov eax,53
176	mov ebx,7	176	mov ebx,7
177	mov ecx,[socket]	177	mov ecx,[socket]
178	mov edx,14	178	mov edx,14
179	mov esi,quitc	179	mov esi,quitc
180	mcall	180	mcall
181	mov [mcounter],0	181	mov [mcounter],0
182		182
183	mov eax,5	183	mov eax,5
184	mov ebx,150	184	mov ebx,150
185	mcall	185	mcall
186		186
187	call read_incoming_data	187	call read_incoming_data
188		188
189	mov eax,53	189	mov eax,53
190	mov ebx,8	190	mov ebx,8
191	mov ecx,[socket]	191	mov ecx,[socket]
192	mcall	192	mcall
193		193
194	mov eax,5	194	mov eax,5
195	mov ebx,2	195	mov ebx,2
196	mcall	196	mcall
197		197
198	mov eax,53	198	mov eax,53
199	mov ebx,8	199	mov ebx,8
200	mov ecx,[socket]	200	mov ecx,[socket]
201	mcall	201	mcall
202		202
203	mov [server_active],0	203	mov [server_active],0
204		204
205	jmp still	205	jmp still
206		206
207		207
208	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	208	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
209	;;	209	;;
210	;; User input processing	210	;; User input processing
211	;;	211	;;
212		212
213		213
214	key:	214	key:
215		215
216	mov eax,2	216	mov eax,2
217	mcall	217	mcall
218		218
219	jmp still	219	jmp still
220		220
221		221
222	button: ; button	222	button: ; button
223		223
224	mov eax,17 ; get id	224	mov eax,17 ; get id
225	mcall	225	mcall
226		226
227	cmp ah,60	227	cmp ah,60
228	jne no_open	228	jne no_open
229	mov eax, 70	229	mov eax, 70
230	mov ebx, tinypad_start	230	mov ebx, tinypad_start
231	mcall	231	mcall
232	jmp still	232	jmp still
233	no_open:	233	no_open:
234		234
235	cmp ah,1 ; close program	235	cmp ah,1 ; close program
236	jne noclose	236	jne noclose
237	mov eax,-1	237	mov eax,-1
238	mcall	238	mcall
239	noclose:	239	noclose:
240		240
241	cmp ah,51	241	cmp ah,51
242	je read_string	242	je read_string
243	cmp ah,52	243	cmp ah,52
244	je read_string	244	je read_string
245	cmp ah,53	245	cmp ah,53
246	je read_string	246	je read_string
247		247
248	call socket_commands	248	call socket_commands
249		249
250	jmp still	250	jmp still
251		251
252		252
253	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	253	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
254	;;	254	;;
255	;; Socket open & close	255	;; Socket open & close
256	;;	256	;;
257		257
258	socket_commands:	258	socket_commands:
259		259
260	cmp ah,22 ; open socket	260	cmp ah,22 ; open socket
261	jnz tst3	261	jnz tst3
262		262
263	mov [server_active],1	263	mov [server_active],1
264		264
265	mov [mcounter],900	265	mov [mcounter],900
266	mov [ccounter],0	266	mov [ccounter],0
267		267
268	mov eax,3	268	mov eax,3
269	mcall	269	mcall
270		270
271	mov eax,3	271	mov eax,3
272	mcall	272	mcall
273	mov ecx,eax	273	mov ecx,eax
274	and ecx,0xffff	274	and ecx,0xffff
275		275
276	mov eax,53	276	mov eax,53
277	mov ebx,5	277	mov ebx,5
278	mov edx,110	278	mov edx,110
279	mov esi,dword [ip]	279	mov esi,dword [ip]
280	mov edi,1	280	mov edi,1
281	mcall	281	mcall
282	mov [socket], eax	282	mov [socket], eax
283		283
284	ret	284	ret
285	tst3:	285	tst3:
286		286
287		287
288	cmp ah,24 ; close socket	288	cmp ah,24 ; close socket
289	jnz no_24	289	jnz no_24
290	mov eax,53	290	mov eax,53
291	mov ebx,8	291	mov ebx,8
292	mov ecx,[socket]	292	mov ecx,[socket]
293	mcall	293	mcall
294	mov [header_sent],0	294	mov [header_sent],0
295	mov [mail_rp],0	295	mov [mail_rp],0
296	mov [server_active],0	296	mov [server_active],0
297		297
298	ret	298	ret
299	no_24:	299	no_24:
300		300
301	ret	301	ret
302		302
303		303
304		304
305	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	305	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
306	;;	306	;;
307	;; Display connection status	307	;; Display connection status
308	;;	308	;;
309		309
310	old_status dd 0x0	310	old_status dd 0x0
311		311
312	print_status:	312	print_status:
313		313
314	pusha	314	pusha
315		315
316	mov eax,53	316	mov eax,53
317	mov ebx,6	317	mov ebx,6
318	mov ecx,[socket]	318	mov ecx,[socket]
319	mcall	319	mcall
320		320
321	mov [status],eax	321	mov [status],eax
322		322
323	cmp eax,[old_status]	323	cmp eax,[old_status]
324	je nopr	324	je nopr
325		325
326	mov [old_status],eax	326	mov [old_status],eax
327		327
328	push eax	328	push eax
329		329
330	mov eax,13	330	mov eax,13
331	mov ebx,200*65536+30	331	mov ebx,200*65536+30
332	mov ecx,160*65536+10	332	mov ecx,160*65536+10
333	mov edx,0xffffff	333	mov edx,0xffffff
334	mcall	334	mcall
335		335
336	pop ecx	336	pop ecx
337		337
338	cmp [server_active],1	338	cmp [server_active],1
339	jne nopr	339	jne nopr
340		340
341	mov eax,47	341	mov eax,47
342	mov ebx,3*65536	342	mov ebx,3*65536
343	mov edx,200*65536+160	343	mov edx,200*65536+160
344	mov esi,0x000000	344	mov esi,0x000000
345	mcall	345	mcall
346		346
347	nopr:	347	nopr:
348		348
349	popa	349	popa
350		350
351	ret	351	ret
352		352
353		353
354		354
355		355
356		356
357	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	357	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
358	;;	358	;;
359	;; Read data from server	359	;; Read data from server
360	;;	360	;;
361		361
362		362
363	read_incoming_data:	363	read_incoming_data:
364		364
365	pusha	365	pusha
366		366
367	read_new_byte:	367	read_new_byte:
368		368
369	call read_incoming_byte	369	call read_incoming_byte
370	cmp ecx,-1	370	cmp ecx,-1
371	je no_data_in_buffer	371	je no_data_in_buffer
372		372
373	mov eax,[file_start]	373	mov eax,[file_start]
374	mov [eax],bl	374	mov [eax],bl
375	inc [file_start]	375	inc [file_start]
376		376
377	cmp bl,10	377	cmp bl,10
378	jne no_start_command	378	jne no_start_command
379	mov [cmd],1	379	mov [cmd],1
380	no_start_command:	380	no_start_command:
381		381
382	cmp bl,13	382	cmp bl,13
383	jne no_end_command	383	jne no_end_command
384	mov eax,[cmd]	384	mov eax,[cmd]
385	mov [eax+command-2],byte 0	385	mov [eax+command-2],byte 0
386	call save_file	386	call save_file
387	call analyze_data	387	call analyze_data
388	mov edi,command	388	mov edi,command
389	mov ecx,250	389	mov ecx,250
390	mov eax,0	390	mov eax,0
391	cld	391	cld
392	rep stosb	392	rep stosb
393	mov [cmd],0	393	mov [cmd],0
394	no_end_command:	394	no_end_command:
395		395
396	mov eax,[cmd]	396	mov eax,[cmd]
397	cmp eax,250	397	cmp eax,250
398	jge still	398	jge still
399		399
400	mov [eax+command-2],bl	400	mov [eax+command-2],bl
401	inc [cmd]	401	inc [cmd]
402		402
403	jmp read_new_byte	403	jmp read_new_byte
404		404
405	no_data_in_buffer:	405	no_data_in_buffer:
406		406
407	popa	407	popa
408		408
409	ret	409	ret
410		410
411		411
412	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	412	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
413	;;	413	;;
414	;; Read user input for ip/user/passwd	414	;; Read user input for ip/user/passwd
415	;;	415	;;
416		416
417		417
418	read_string:	418	read_string:
419		419
420	shr eax,8	420	shr eax,8
421	sub eax,51	421	sub eax,51
422	mov ebx,eax	422	mov ebx,eax
423	imul eax,12	423	imul eax,12
424	add eax,181	424	add eax,181
425		425
426	mov [len],ebx	426	mov [len],ebx
427	shl [len],2	427	shl [len],2
428	add [len],l1	428	add [len],l1
429		429
430	imul ebx,50	430	imul ebx,50
431	add ebx,input1	431	add ebx,input1
432		432
433	mov [addr],ebx	433	mov [addr],ebx
434	mov [ya],eax	434	mov [ya],eax
435		435
436	mov edi,[addr]	436	mov edi,[addr]
437	mov eax,0	437	mov eax,0
438	mov ecx,30	438	mov ecx,30
439	cld	439	cld
440	rep stosb	440	rep stosb
441		441
442	call print_input_text	442	call print_input_text
443		443
444	mov edi,[addr]	444	mov edi,[addr]
445		445
446	f11:	446	f11:
447	mov eax,10	447	mov eax,10
448	mcall	448	mcall
449	cmp eax,2	449	cmp eax,2
450	jne read_done	450	jne read_done
451	mov eax,2	451	mov eax,2
452	mcall	452	mcall
453	shr eax,8	453	shr eax,8
454	cmp eax,13	454	cmp eax,13
455	je read_done	455	je read_done
456	cmp eax,8	456	cmp eax,8
457	jnz nobsl	457	jnz nobsl
458	cmp edi,[addr]	458	cmp edi,[addr]
459	jz f11	459	jz f11
460	sub edi,1	460	sub edi,1
461	mov [edi],byte 32	461	mov [edi],byte 32
462	call print_text	462	call print_text
463	jmp f11	463	jmp f11
464	nobsl:	464	nobsl:
465	mov [edi],al	465	mov [edi],al
466		466
467	call print_input_text	467	call print_input_text
468		468
469	add edi,1	469	add edi,1
470	mov esi,[addr]	470	mov esi,[addr]
471	add esi,30	471	add esi,30
472	cmp esi,edi	472	cmp esi,edi
473	jnz f11	473	jnz f11
474		474
475	read_done:	475	read_done:
476		476
477	push edi	477	push edi
478		478
479	mov ecx,40	479	mov ecx,40
480	mov eax,32	480	mov eax,32
481	cld	481	cld
482	rep stosb	482	rep stosb
483		483
484	call print_input_text	484	call print_input_text
485		485
486	pop edi	486	pop edi
487	sub edi,[addr]	487	sub edi,[addr]
488	mov eax,[len]	488	mov eax,[len]
489	mov [eax],edi	489	mov [eax],edi
490		490
491	cmp [len],l1	491	cmp [len],l1
492	jne noip	492	jne noip
493	mov esi,input1	493	mov esi,input1
494	mov edi,ip_text+15	494	mov edi,ip_text+15
495	mov ecx,16	495	mov ecx,16
496	cld	496	cld
497	rep movsb	497	rep movsb
498	call ip_set	498	call ip_set
499	noip:	499	noip:
500		500

Subversion Repositories Kolibri OS

(root)/programs/network/popc/trunk/popc.asm – Rev 539 → 661