Subversion Repositories Kolibri OS

txt_sp db ' ',0

txt_buf db '1234',0

	rd 1

{

local .end_t

local .m_txt

jmp .end_t

align 4

	.m_txt db txt,0

align 4

.end_t:

if dest eq

	mov eax,.m_txt

else

	mov dest,.m_txt

end if

}

tz1 db 'next_in',13,10,0

tz2 db 'avail_in',13,10,0

tz3 db 'total_in',13,10,0

tz4 db 'next_out',13,10,0

tz5 db 'avail_out',13,10,0

tz6 db 'total_out',13,10,0

tz7 db 'msg',13,10,0

tz8 db 'state',13,10,0

tz9 db 'zalloc',13,10,0

tz10 db 'zfree',13,10,0

tz11 db 'opaque',13,10,0

tz12 db 'data_type',13,10,0

tz13 db 'adler',13,10,0

tz14 db 'reserved',13,10,0

dd z_stream.next_in,4,tz1

dd z_stream.avail_in,2,tz2

dd z_stream.total_in,4,tz3

dd z_stream.next_out,4,tz4

dd z_stream.avail_out,2,tz5

dd z_stream.total_out,4,tz6

dd z_stream.msg,4,tz7

dd z_stream.state,4,tz8

dd z_stream.zalloc,4,tz9

dd z_stream.zfree,4,tz10

dd z_stream.opaque,4,tz11

dd z_stream.data_type,2,tz12

dd z_stream.adler,4,tz13

dd z_stream.reserved,4,tz14

dd 0,0

ta2 db 'status',13,10,0

ta3 db 'pending_buf',13,10,0

ta4 db 'pending_buf_size',13,10,0

ta5 db 'pending_out',13,10,0

ta6 db 'pending',13,10,0

ta7 db 'wrap',13,10,0

ta8 db 'gzhead',13,10,0

ta9 db 'gzindex',13,10,0

ta10 db 'method',13,10,0

ta11 db 'last_flush',13,10,0

ta12 db 'w_size',13,10,0

ta13 db 'w_bits',13,10,0

ta14 db 'w_mask',13,10,0

ta15 db 'window',13,10,0

ta16 db 'window_size',13,10,0

ta17 db 'prev',13,10,0

ta18 db 'head',13,10,0

ta19 db 'ins_h',13,10,0

ta20 db 'hash_size',13,10,0

ta21 db 'hash_bits',13,10,0

ta22 db 'hash_mask',13,10,0

ta23 db 'hash_shift',13,10,0

ta24 db 'block_start',13,10,0

ta25 db 'match_length',13,10,0

ta26 db 'prev_match',13,10,0

ta27 db 'match_available',13,10,0

ta28 db 'strstart',13,10,0

ta29 db 'match_start',13,10,0

ta30 db 'lookahead',13,10,0

ta31 db 'prev_length',13,10,0

ta32 db 'max_chain_length',13,10,0

ta33 db 'max_lazy_match',13,10,0

ta34 db 'level',13,10,0

ta35 db 'strategy',13,10,0

ta36 db 'good_match',13,10,0

ta37 db 'nice_match',13,10,0

ta38 db 'dyn_ltree',13,10,0

ta39 db 'dyn_dtree',13,10,0

ta40 db 'bl_tree',13,10,0

ta41 db 'l_desc',13,10,0

ta42 db 'd_desc',13,10,0

ta43 db 'bl_desc',13,10,0

ta44 db 'bl_count',13,10,0

ta45 db 'heap',13,10,0

ta46 db 'heap_len',13,10,0

ta47 db 'heap_max',13,10,0

ta48 db 'depth',13,10,0

ta49 db 'l_buf',13,10,0

ta50 db 'lit_bufsize',13,10,0

ta51 db 'last_lit',13,10,0

ta52 db 'd_buf',13,10,0

ta53 db 'opt_len',13,10,0

ta54 db 'static_len',13,10,0

ta55 db 'matches',13,10,0

ta56 db 'insert',13,10,0

; db 'compressed_len',13,10,0

; db 'bits_sent',13,10,0

ta59 db 'bi_buf',13,10,0

ta60 db 'bi_valid',13,10,0

ta61 db 'high_water',13,10,0

dd deflate_state.strm,4,ta1

dd deflate_state.status,4,ta2

dd deflate_state.pending_buf,4,ta3

dd deflate_state.pending_buf_size,4,ta4

dd deflate_state.pending_out,4,ta5

dd deflate_state.pending,4,ta6

dd deflate_state.wrap,4,ta7

dd deflate_state.gzhead,4,ta8

dd deflate_state.gzindex,4,ta9

dd deflate_state.method,1,ta10

dd deflate_state.last_flush,4,ta11

dd deflate_state.w_size,4,ta12

dd deflate_state.w_bits,4,ta13

dd deflate_state.w_mask,4,ta14

dd deflate_state.window,4,ta15

dd deflate_state.window_size,4,ta16

dd deflate_state.prev,4,ta17

dd deflate_state.head,4,ta18

dd deflate_state.ins_h,4,ta19

dd deflate_state.hash_size,4,ta20

dd deflate_state.hash_bits,4,ta21

dd deflate_state.hash_mask,4,ta22

dd deflate_state.hash_shift,4,ta23

dd deflate_state.block_start,4,ta24

dd deflate_state.match_length,4,ta25

dd deflate_state.prev_match,4,ta26

dd deflate_state.match_available,4,ta27

dd deflate_state.strstart,4,ta28

dd deflate_state.match_start,4,ta29

dd deflate_state.lookahead,4,ta30

dd deflate_state.prev_length,4,ta31

dd deflate_state.max_chain_length,4,ta32

dd deflate_state.max_lazy_match,4,ta33

dd deflate_state.level,2,ta34

dd deflate_state.strategy,2,ta35

dd deflate_state.good_match,4,ta36

dd deflate_state.nice_match,4,ta37

dd deflate_state.dyn_ltree,((2*HEAP_SIZE) shl 16)+2,ta38

dd deflate_state.dyn_dtree,((2*(2*D_CODES+1)) shl 16)+2,ta39

dd deflate_state.bl_tree,((2*(2*BL_CODES+1)) shl 16)+2,ta40

dd deflate_state.l_desc,(3 shl 16)+4,ta41

dd deflate_state.d_desc,(3 shl 16)+4,ta42

dd deflate_state.bl_desc,(3 shl 16)+4,ta43

dd deflate_state.bl_count,((MAX_BITS+1) shl 16)+2,ta44

dd deflate_state.heap,((2*L_CODES+1) shl 16)+2,ta45

dd deflate_state.heap_len,4,ta46

dd deflate_state.heap_max,4,ta47

dd deflate_state.depth,((2*L_CODES+1) shl 16)+1,ta48

dd deflate_state.l_buf,4,ta49

dd deflate_state.lit_bufsize,4,ta50

dd deflate_state.last_lit,4,ta51

dd deflate_state.d_buf,4,ta52

dd deflate_state.opt_len,4,ta53

dd deflate_state.static_len,4,ta54

dd deflate_state.matches,4,ta55

dd deflate_state.insert,4,ta56

;if DEBUG eq 1

;dd deflate_state.compressed_len

;dd deflate_state.bits_sent

;end if

dd deflate_state.bi_buf,2,ta59

dd deflate_state.bi_valid,4,ta60

dd deflate_state.high_water,4,ta61

dd 0,0

proc dbg_print, fun:dword, mes:dword

pushad

	mov eax,SF_BOARD

	mov ebx,SSF_DEBUG_WRITE

	cmp esi,0

	je .end0

	@@:

		mov cl,byte[esi]

		int 0x40

		inc esi

		cmp byte[esi],0

		jne @b

	mov cl,':'

	int 0x40

	mov cl,' '

	int 0x40

	.end0:

	mov esi,[mes]

	cmp esi,0

	je .end_f

	@@:

		mov cl,byte[esi]

		cmp cl,0

		je .end_f

		int 0x40

		inc esi

		jmp @b

	.end_f:

popad

	ret

endp

; zif - 1...8

align 4

proc hex_in_str, buf:dword,val:dword,zif:dword

pushad

	mov edi,dword[buf]

	mov ecx,dword[zif]

	add edi,ecx

	dec edi

	mov ebx,dword[val]

		mov al,bl

		and al,0xf

		cmp al,10

		jl @f

			add al,'a'-'0'-10

		@@:

		add al,'0'

		mov byte[edi],al

		dec edi

		shr ebx,4

	loop .cycle

popad

	ret

endp

; eax = strlen

align 4

proc strlen, str1:dword

	mov eax,[str1]

	@@:

		cmp byte[eax],0

		je @f

		inc eax

		jmp @b

	@@:

	sub eax,[str1]

	ret

endp

proc str_format_dbg, buf:dword, fmt:dword, p1:dword

pushad

	mov esi,[fmt]

	mov edi,[buf]

	mov ecx,80-1

	.cycle0:

		lodsb

		cmp al,'%'

		jne .no_param

			lodsb

			dec ecx

			cmp al,0

			je .cycle0end

			cmp al,'d'

			je @f

			cmp al,'u'

			je @f

			cmp al,'l'

			je .end1

				jmp .end0

			.end1: ;%lu %lx

				lodsb

				dec ecx

				cmp al,'u'

				jne .end0

			@@:

				mov eax,[p1]

				stdcall convert_int_to_str,ecx

				xor al,al

				repne scasb

				dec edi

			.end0:

			loop .cycle0

		.no_param:

		stosb

		cmp al,0

		je .cycle0end

		loop .cycle0

	.cycle0end:

	xor al,al

	stosb

	stdcall dbg_print,txt_sp,[buf]

popad

	ret

endp

proc debug_fields, saddr:dword, form:dword

locals

	nl_array dd ?

endl

pushad

	mov edi,[saddr]

	cmp edi,0

	je .end_f

	mcall SF_BOARD,SSF_DEBUG_WRITE,13

	mcall ,,10

	mov eax,[form]

align 4

	.cycle0:

		mov ebx,[eax+4]

		mov ecx,ebx

		and ebx,0xffff

		cmp ebx,0

		je .end_f

		mov esi,ebx

		shl ebx,1

		shr ecx,16

		cmp ecx,0

		je .end0

			;if array

			stdcall dbg_print,0,[eax+8]

			mov edx,61 ;size text line

			mov dword[nl_array],0

			.cycle2:

				inc dword[nl_array]

				sub edx,ebx

				sub edx,2 ;': '

				cmp edx,3

				jg .cycle2

			mov edx,edi

			add edx,[eax]

			push eax

			.nl_i:

			mov eax,[nl_array]

			mov byte[ebx+txt_buf],0 ;конец числа

			.cycle1:

				stdcall hex_in_str,txt_buf,[edx],ebx

				add edx,esi ;move next value

				mov edi,txt_buf

				cmp byte[edi],'0'

				jne @f

					inc edi

				cmp byte[edi],'0'

				jne @f

					inc edi

				cmp byte[edi],'0'

				jne @f

					inc edi

				cmp byte[edi],'0'

				jne @f

					inc edi

				@@:

				cmp byte[edi],0

				jne @f

					dec edi

				@@:

				stdcall dbg_print,edi,0

				pop edi

				dec eax

				jz .nl

				loop .cycle1

			.nl:

			push ebx ecx

			mcall SF_BOARD,SSF_DEBUG_WRITE,13

			mcall ,,10

			pop ecx ebx

			dec ecx

			cmp ecx,0

			jg .nl_i

			pop eax

			add eax,12

			jmp .cycle0

		.end0:

		mov edx,edi

		add edx,[eax]

		stdcall hex_in_str,txt_buf,[edx],ebx

		mov byte[ebx+txt_buf],0 ;конец числа

		stdcall dbg_print,txt_buf,[eax+8]

		add eax,12

		jmp .cycle0

.end_f:

	mcall SF_BOARD,SSF_DEBUG_WRITE,13

	mcall ,,10

popad

	ret

endp

; eax - число

; edi - буфер для строки

; len - длинна буфера

;output:

align 4

proc convert_int_to_str, len:dword

pushad

	mov esi,[len]

	add esi,edi

	dec esi

	call .str

popad

	ret

endp

.str:

	mov ecx,0x0a

	cmp eax,ecx

	jb @f

		xor edx,edx

		div ecx

		push edx

		call .str

		pop eax

	@@:

	cmp edi,esi

	jge @f

		or al,0x30

		stosb

		mov byte[edi],0

	@@:

	ret