Subversion Repositories Kolibri OS

Rev

Rev 3115 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3115 Rev 3431
Line 1... Line 1...
1
use32
1
use32
2
    org 0x0
2
    org 0x0
3
    db  'MENUET01'
3
    db  'MENUET01'
4
    dd  0x01,start,i_end,e_end,e_end,0,0
4
    dd  0x01,start,i_end,e_end,e_end,0,this_file_name
Line 5... Line 5...
5
 
5
 
6
include '../../../../proc32.inc'
6
include '../../../../proc32.inc'
7
include '../../../../macros.inc'
7
include '../../../../macros.inc'
8
include '../../../../dll.inc'
8
include '../../../../dll.inc'
Line 17... Line 17...
17
 
17
 
18
	stdcall dll.Load, @IMPORT
18
	stdcall dll.Load, @IMPORT
19
	or	eax, eax
19
	or	eax, eax
Line 20... Line 20...
20
	jnz	quit
20
	jnz	quit
21
 
21
 
22
	invoke	file.open, input_file, O_READ
22
	invoke	file.open, this_file_name, O_READ
23
	or	eax, eax
23
	or	eax, eax
Line 24... Line 24...
24
	jz	quit
24
	jz	quit
25
	mov	[fh], eax
25
	mov	[fh], eax
Line 26... Line 26...
26
 
26
 
27
	invoke	file.size, input_file
27
	invoke	file.size, this_file_name
28
	mov	[file_len], ebx
28
	mov	[file_len], ebx
Line 99... Line 99...
99
 
99
 
100
sz msg_few_args		, '2 arguments required',0x0a
100
sz msg_few_args		, '2 arguments required',0x0a
101
sz msg_bad_hash_type	, 'invalid hash type',0x0a
101
sz msg_bad_hash_type	, 'invalid hash type',0x0a
Line 102... Line -...
102
sz msg_file_not_found	, 'file not found: '
-
 
103
 
-
 
104
input_file	db '/hd0/1/crashtest',0
102
sz msg_file_not_found	, 'file not found: '
105
 
103
 
106
f70_buf:
104
f70_buf:
107
	funcnum	dd 0
105
	funcnum	dd 0
108
	src	dd 0
106
	src	dd 0
109
	res1	dd 0
107
	res1	dd 0
110
	count	dd BUFFER_SIZE
108
	count	dd BUFFER_SIZE
111
	dst	dd data_buffer
109
	dst	dd data_buffer
Line 112... Line 110...
112
	res2	db 0
110
	res2	db 0
113
	fname	dd input_file
111
	fname	dd this_file_name
Line 114... Line 112...
114
 
112
 
Line 140... Line 138...
140
hex		rb 1024
138
hex		rb 1024
141
data_buffer	rb BUFFER_SIZE
139
data_buffer	rb BUFFER_SIZE
142
file_data	rd 1
140
file_data	rd 1
143
file_len	rd 1
141
file_len	rd 1
Line -... Line 142...
-
 
142
 
144
 
143
this_file_name	rb 4096
145
rb 0x400					;stack
144
rb 0x400					;stack