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 ;
|
|||
|
|
; ;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ண<EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD>筠<EFBFBD> <20><> 㦥 <20><><EFBFBD> <20><><EFBFBD> ࠡ<>⠥<EFBFBD>
|
|||
|
|
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><>ࠬ<EFBFBD><E0A0AC><EFBFBD><EFBFBD>:
|
|||
|
|
; <20><> 0 <20><> 100 <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>筨<EFBFBD><E7ADA8>
|
|||
|
|
; <20><> 100 <20><> 200 <20><><EFBFBD><EFBFBD> <20> <20>ਥ<EFBFBD><E0A8A5><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
;
|
|||
|
|
;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 ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: |<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD>⨭<EFBFBD>, <20><><EFBFBD> <20><>᪢<EFBFBD> , 1 <20><><EFBFBD><EFBFBD> '
|
|||
|
|
db ' <20><><EFBFBD><EFBFBD>: | <20><><EFBFBD><EFBFBD><EFBFBD>設 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, waptap@mail.ru '
|
|||
|
|
db ' '
|
|||
|
|
db 'x' ; <- END MARKER, DONT DELETE
|
|||
|
|
labelt:
|
|||
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>'
|
|||
|
|
labellen:
|
|||
|
|
|
|||
|
|
errors:
|
|||
|
|
db "䠩<> <><E1AAAE><EFBFBD><E0AEA2> <20>ᯥ譮 "
|
|||
|
|
db "(<28>⥭<EFBFBD><E2A5AD>) <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> "
|
|||
|
|
db "(<28>⥭<EFBFBD><E2A5AD>) 䠩<><E4A0A9><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ন<EFBFBD><E0A6A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
db "(<28>⥭<EFBFBD><E2A5AD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭠<EFBFBD> 䠩<><E4A0A9><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> "
|
|||
|
|
db "(<28>⥭<EFBFBD><E2A5AD>) <20><> <20><><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> <20><> "
|
|||
|
|
db "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>筮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "
|
|||
|
|
db "(<28>⥭<EFBFBD><E2A5AD>) <20><><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9> "
|
|||
|
|
db "(<28>⥭<EFBFBD><E2A5AD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭠<EFBFBD> <20>訡<EFBFBD><E8A8A1> "
|
|||
|
|
db "(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <20><> <20><><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> <20><> "
|
|||
|
|
db "(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) 䠩<><E4A0A9><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ন<EFBFBD><E0A6A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|||
|
|
db "(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭠<EFBFBD> 䠩<><E4A0A9><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> "
|
|||
|
|
db "(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <20><> <20><><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> <20><> "
|
|||
|
|
db "oh shit! "
|
|||
|
|
db "(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) 䠩<> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "
|
|||
|
|
db "(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⭠<EFBFBD> <20>訡<EFBFBD><E8A8A1> "
|
|||
|
|
db "<22><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>筨<EFBFBD><E7ADA8> <20> <20>ਥ<EFBFBD><E0A8A5><EFBFBD><EFBFBD><EFBFBD> <20><> 㪠<><E3AAA0><EFBFBD><EFBFBD>!!! "
|
|||
|
|
db "<22><><EFBFBD><EFBFBD> <20> <20>ਥ<EFBFBD><E0A8A5><EFBFBD><EFBFBD><EFBFBD> <20><> 㪠<><E3AAA0><EFBFBD>!!! "
|
|||
|
|
|
|||
|
|
;0123456789012345678901234567890123456789012
|
|||
|
|
I_END:
|