Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                   ;;

;;    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                   ;;

;;                                                   ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

    int  0x40

    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

    call draw_window            ; at first, draw the window

still:

    mov  eax,5

    mov  ebx,1

    int  0x40

    mov  eax,11                 ; wait here for event

    int  0x40

    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

   int  0x40

   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]

    int  0x40

    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

    int  0x40

    mov  [mcounter],0

    mov  eax,5

    mov  ebx,150

    int  0x40

    call read_incoming_data

    mov  eax,53

    mov  ebx,8

    mov  ecx,[socket]

    int  0x40

    mov  eax,5

    mov  ebx,2

    int  0x40

    mov  eax,53

    mov  ebx,8

    mov  ecx,[socket]

    int  0x40

    mov  [server_active],0

    jmp  still

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;;  User input processing

;;

redraw:                         ; redraw

    call draw_window

    jmp  still

key:

    mov  eax,2

    int  0x40

    jmp  still

button:                         ; button

    mov  eax,17                 ; get id

    int  0x40

    cmp  ah,60

    jne  no_open

        mov     eax, 70

        mov     ebx, tinypad_start

        int     0x40

    jmp  still

  no_open:

    cmp  ah,1                   ; close program

    jne  noclose

    mov  eax,-1

    int  0x40

  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

    int  0x40

    mov  eax,3

    int  0x40