Subversion Repositories Kolibri OS

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

;                                           ;

; FILE COPY - system module for copy        ;

; files.Prog for SYS X-TREE BROWSER v22     ;

;                                           ;

; Create by Pavlushin Evgeni waptap@mail.ru ;

;              homepage www.deck4.narod.ru  ;

;                                           ;

; On base SYSTREE FILE COPIER 1.02          ;

;    Ivan Poddubny ivan-yar@bk.ru           ;

;                                           ;

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

;������ �ண� �� ���� � ���筠� �� 㦥 ��� ��� ࠡ�⠥�

    use32

    org     0x0

    db      'MENUET01'     ; 8 byte id

    dd      0x01           ; header version

    dd      START          ; start of code

    dd      I_END          ; size of image

    dd      0x20000        ; memory for app

    dd      0x10000        ; esp

    dd      param_area , 0x0      ; I_Param , I_Icon

include 'lang.inc'

include 'macros.inc'       ; very useful stuff for MeOS

include 'ascl.inc'

STRLEN = 48                ; maximal length of filename

START:                     ; start of execution

; ��ࠬ����:

; �� 0 �� 100 ���� � ���筨��

; �� 100 �� 200 ���� � �ਥ�����

;

;get param

    mov eax,15

    cmp byte [param_area],0

    je  err_exit   ;source not found

    mov eax,16

    cmp byte [param_area+100],0

    je  err_exit   ;dest not found

    mov ecx,199

cdf:

    mov al,[param_area+ecx]

    cmp al,byte 32

    jne nor

    mov al,byte 0

nor:

    mov al,[param_area+ecx]

    dec ecx

    jns cdf

    mov ecx,STRLEN - 4

copysp:

    mov al,[param_area+ecx]

    mov [source+ecx],al

    dec ecx

    jns copysp

    mov [source+42],byte 0

    mov ecx,STRLEN - 4

copydp:

    mov al,[param_area+ecx+100]

    mov [destination+ecx],al

    dec ecx

    jns copydp

    mov [destination+42],byte 0

    call draw_window

    call copy_file

dexit:

    wtevent red,key,button

    jmp dexit

red:

    call draw_window

    jmp dexit

key:

button:

exit:

    close

err_exit:

    push eax

    call draw_window

    pop  eax

    jmp copy_error

; print message now

copy_error:

    mov  ebp,43

    mul  ebp

    mov  ebp,eax

    mov  eax,4

    mov  ebx,20*65536+70

    mov  ecx,0x10ff0000

    mov  edx,errors ;*8]

    add  edx,ebp

    mov  esi,43  ;[errors+edi*8+4]

    int  0x40

    jmp dexit

;closep:

;    or   eax,-1        ; close program

;    int  0x40

;====================================================

; copy_file

;   This piece of code copies src file to dst file,

;   then it pass the control to copy_error routine,

;   which returns to the main cycle of the app.

;   It's NOT a function! It's reached by direct jump

;   from the button handler.

;====================================================

copy_file:

    ; at first we must get the size of the source file

    mov  [source_info.blocks],1 ; load only 512 bytes

    mov  eax,58

    mov  ebx,source_info

    int  0x40

    ; now eax contains error code

    ; and ebx contains file size in bytes

    test eax,eax      ; check if eax is equal to zero (success)

    je   .ok_getsize  ;   eax = 0 => continue

    cmp  eax,6

    jna  @f

    mov  eax,7        ; if error code is above 6, it will be 7

  @@:

    cmp  eax,5        ; file might be copied successfully altrough

                      ; the system reports an error 5

    jne  copy_error   ; print error code now

  .ok_getsize:

    ; allocate memory

    push ebx         ; save file size

    mov  ecx,ebx

    add  ecx,0x20000 ; size of memory needed = 0x20000+filesize

    mov  eax,64      ; func 64

    mov  ebx,1       ; resize application memory

    int  0x40

    pop  ebx         ; restore filesize

    ; check if alloc function failed

    test eax,eax     ; non-zero value means error

    je   .ok_memory

    mov  eax,5       ; error 5 - out of memory

    jmp  copy_error  ; print error code now

  .ok_memory:

    ; save number of blocks to source_info

    shr  ebx,9       ; divide by 512

    inc  ebx         ; blocks++

    mov  [source_info.blocks],ebx

    ; read the source file

    mov  eax,58

    mov  ebx,source_info

    int  0x40

    ; ebx = file size

    ; save loaded file

    mov  [dest_info.bytes2write],ebx ; file size in bytes

    mov  eax,58

    mov  ebx,dest_info

    int  0x40

    ; check if 58 function failed

    test eax,eax

    je   .ok_write

    add  eax,7        ; error number += 7

    cmp  eax,6+7

    jna  copy_error

    mov  eax,7+7

    jmp  copy_error

  .ok_write:

    ; return to the initial amount of memory

    mov  eax,64

    mov  ebx,1

    mov  ecx,0x20000

    int  0x40

    xor  eax,eax      ; eax = message number (0-OK)

; print strings (source & destination)

print_text:

    mov  eax,13

    mov  ebx,107*65536+STRLEN*6

    mov  ecx,[ya]

    shl  ecx,16

    add  ecx,9

    mov  edx,0xf2f2f2

    int  0x40

    mov  eax,4

    mov  ebx,109*65536

    add  ebx,[ya]

    xor  ecx,ecx

    mov  edx,[addr]

    mov  esi,STRLEN

    int  0x40

    ret

;   *********************************************

;   *******  WINDOW DEFINITIONS AND DRAW ********

;   *********************************************

draw_window:

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,1                     ; 1, start of draw

    int  0x40

                                   ; DRAW WINDOW

    xor  eax,eax                   ; function 0 : define and draw window

    mov  ebx,160*65536+415         ; [x start] *65536 + [x size]

    mov  ecx,160*65536+90         ; [y start] *65536 + [y size]

    mov  edx,0x03DDDDDD            ; color of work area RRGGBB

    int  0x40

                                   ; WINDOW LABEL

    mov  eax,4                     ; function 4 : write text to window

    mov  ebx,8*65536+8             ; [x start] *65536 + [y start]

    mov  ecx,0x10ffffff            ; color of text RRGGBB

    mov  edx,labelt                ; pointer to text beginning

    mov  esi,labellen-labelt       ; text length

    int  0x40

    mov  eax,8

    mov  ebx,105*65536+290

    mov  ecx,33*65536+12

    mov  edx,4

    mov  esi,0xEBEBEB

    int  0x40

    mov  ebx,105*65536+290

    mov  ecx,49*65536+12

    mov  edx,5

    mov  esi,0xEBEBEB

    int  0x40

    mov  esi,source

    mov  edi,text+14

    mov  ecx,STRLEN

    rep  movsb

    mov  esi,destination

    mov  edi,text+STRLEN+59-45+14

    mov  ecx,STRLEN

    rep  movsb

    mov  ebx,25*65536+36   ; print filenames

    xor  ecx,ecx

    mov  edx,text

    mov  esi,STRLEN+59-45

  newline:

    mov  eax,4

    int  0x40

    add  ebx,16

    add  edx,STRLEN+59-45

    cmp  [edx],byte 'x'

    jnz  newline

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,2                     ; 2, end of draw

    int  0x40

    ret

; DATA AREA

align 4

param_area:

times 256 db 0

source_info:                 ; SOURCE FILEINFO

  .mode            dd 0      ; read file

  .start_block     dd 0x0    ; block to read

  .blocks          dd 0x700  ; num of blocks

  .address         dd 0x20000

  .workarea        dd 0x10000

  source:

  times (STRLEN) db 32

  db 0

dest_info:                   ; DESTINATION FILEINFO

  .mode            dd 1      ; write

  .notused         dd 0x0    ; not used

  .bytes2write     dd 0      ; bytes to write

  .address         dd 0x20000

  .workarea        dd 0x10000

  destination:

  times (STRLEN) db 32

  db 0

  align 4

  addr  dd  0x0

  ya    dd  0x0

  temp  dd  0

text:

      db '   ������:    |�����, ����⨭�, ��� ��᪢�  , 1 ����         '

      db '    ����:     |        �����設 �������, waptap@mail.ru       '

      db '                                                              '

      db 'x' ; <- END MARKER, DONT DELETE

labelt:

      db   '���������� �����'

labellen:

errors:

  db     "䠩� ᪮��஢�� �ᯥ譮                    "

  db     "(�⥭��) �� ������ ���� ��                 "

  db     "(�⥭��) 䠩����� ��⥬� �� �����ন������"

  db     "(�⥭��) �������⭠� 䠩����� ��⥬�      "

  db     "(�⥭��) �� ����� ࠧ��� ��                "

  db     "�������筮 �����                        "

  db     "(�⥭��) ����� 䠩��                       "

  db     "(�⥭��) �������⭠� �訡��                "

  db     "(������) �� ����� ࠧ��� ��                "

  db     "(������) 䠩����� ��⥬� �� �����ন������"

  db     "(������) �������⭠� 䠩����� ��⥬�      "

  db     "(������) �� ����� ࠧ��� ��                "

  db     "oh shit!                                   "

  db     "(������) 䠩� �� ������                    "

  db     "(������) �������⭠� �訡��                "

  db     "���� � ���筨�� � �ਥ����� �� 㪠����!!! "

  db     "���� � �ਥ����� �� 㪠���!!!              "

         ;0123456789012345678901234567890123456789012

I_END: