forked from KolibriOS/kolibrios
341 lines
8.5 KiB
NASM
341 lines
8.5 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; ;
|
||
; 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
|
||
|
||
; <20> à ¬¥âàë:
|
||
; ®â 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 ' Ž’Š“„€: |<7C>®áá¨ï, ‘¥«ï⨮, Œ<>Š Œ®áª¢ , 1 Šãàá '
|
||
db ' Š“„€: | <20> ¢«îè¨ …¢£¥¨©, waptap@mail.ru '
|
||
db ' '
|
||
db 'x' ; <- END MARKER, DONT DELETE
|
||
labelt:
|
||
db 'ŠŽ<C5A0>ˆ<EFBFBD>Ž‚€ˆ… ”€‰‹€'
|
||
labellen:
|
||
|
||
errors:
|
||
db "ä ©« ᪮¯¨à®¢ ãá¯¥è® "
|
||
db "(ç⥨¥) ¥ § ¤ ¡ § ¦¤ "
|
||
db "(ç⥨¥) ä ©«®¢ ï á¨á⥬ ¥ ¯®¤¤¥à¦¨¢ ¥âáï"
|
||
db "(ç⥨¥) ¥¨§¢¥áâ ï ä ©«®¢ ï á¨á⥬ "
|
||
db "(ç⥨¥) ¥ § ¤ à §¤¥« ¦¤ "
|
||
db "¥¤®áâ â®ç® ¯ ¬ï⨠"
|
||
db "(ç⥨¥) ª®¥æ ä ©« "
|
||
db "(ç⥨¥) ¥¨§¢¥áâ ï ®è¨¡ª "
|
||
db "(§ ¯¨áì) ¥ § ¤ à §¤¥« ¦¤ "
|
||
db "(§ ¯¨áì) ä ©«®¢ ï á¨á⥬ ¥ ¯®¤¤¥à¦¨¢ ¥âáï"
|
||
db "(§ ¯¨áì) ¥¨§¢¥áâ ï ä ©«®¢ ï á¨á⥬ "
|
||
db "(§ ¯¨áì) ¥ § ¤ à §¤¥« ¦¤ "
|
||
db "oh shit! "
|
||
db "(§ ¯¨áì) ä ©« ¥ ©¤¥ "
|
||
db "(§ ¯¨áì) ¥¨§¢¥áâ ï ®è¨¡ª "
|
||
db "<22>ãâì ª ¨áâ®ç¨ªã ¨ ¯à¨¥¬¨ªã ¥ 㪠§ ë!!! "
|
||
db "<22>ãâì ª ¯à¨¥¬¨ªã ¥ 㪠§ !!! "
|
||
|
||
;0123456789012345678901234567890123456789012
|
||
I_END: |