Subversion Repositories Kolibri OS

include "..\..\..\develop\info3ds\info_fun_float.inc"

align 4

proc @DoubleToStr$qduso uses esi edi

  cld

  lea  esi,[esp+12]

  mov  edi,Data_Double

  movsd

  movsd

  mov  ax,[esp+20]

  mov [NumberSymbolsAD],ax

  call DoubleFloat_to_String

  cmp dword[esp+24],0

  je @f

  call String_crop_0

  @@:

  mov eax,Data_String

  ret

endp

align 4

proc @StrToDouble$qpc uses esi edi

  cld

  mov edi,Data_String

  mov esi,[esp+12]

  mov ecx,32

  repnz movsb

  call String_to_DoubleFloat

  fld qword[Data_Double]

  ret

endp

;input:

; *str - указатель на строку, число должно быть в 10 или 16 ричном виде

;output:

; eax - число

align 4

proc @StrToInt$qpc uses ebx esi

	xor eax,eax

	xor ebx,ebx

	mov esi,[esp+12]

	;на случай если перед числом находятся пробелы

	@@:

	cmp byte[esi],' '

	jne @f

		inc esi

		jmp @b

	@@:

	;определение отрицательных чисел

	xor ecx,ecx

	inc ecx

	cmp byte[esi],'-'

	jne @f

		dec ecx

		inc esi

	@@:

	cmp word[esi],'0x'

	je .load_digit_16

	.load_digit_10: ;считывание 10-тичных цифр

		mov bl,byte[esi]

		cmp bl,'0'

		jl @f

		cmp bl,'9'

		jg @f

			sub bl,'0'

			imul eax,10

			add eax,ebx

			inc esi

			jmp .load_digit_10

	jmp @f

	.load_digit_16: ;считывание 16-ричных цифр

		add esi,2

	.cycle_16:

		mov bl,byte[esi]

		cmp bl,'0'

		jl @f

		cmp bl,'f'

		jg @f

		cmp bl,'9'

		jle .us1

			cmp bl,'A'

			jl @f ;отсеиваем символы >'9' и <'A'

		.us1: ;составное условие

		cmp bl,'F'

		jle .us2

			cmp bl,'a'

			jl @f ;отсеиваем символы >'F' и <'a'

			sub bl,32 ;переводим символы в верхний регистр, для упрощения их последущей обработки

		.us2: ;составное условие

			sub bl,'0'

			cmp bl,9

			jle .cor1

				sub bl,7 ;convert 'A' to '10'

			.cor1:

			shl eax,4

			add eax,ebx

			inc esi

			jmp .cycle_16

	@@:

	or ecx,ecx ;если число отрицательное

	jnz @f

		sub ecx,eax

		mov eax,ecx

	@@:

	ret

endp

align 4

endp

  ret

  mov  eax,[esp+4]

  ret

endp

align 4

proc @strcmp$qpxct1 uses esi edi

	cld

	xor	eax,eax

	mov	edi,[esp+16]

	mov	esi,edi

	mov	ecx,-1

	repne scasb

	not	ecx

	mov	edi,esi

	mov	esi,[esp+12]

	repe  cmpsb

	mov	al,[esi-1]

	movzx edx,byte[edi-1]

	sub	eax,edx

	ret

endp

align 4

proc @strchr$qpxci uses edi

	mov	edi,[esp+8]

	mov	edx,edi

	mov	ecx,-1

	xor	eax,eax

	cld

	repne scasb

	not	ecx

	mov	edi,edx

	mov	al,[esp+12]

	repne scasb

	jnz	@f

	lea	eax,[edi-1]

	ret

@@:

	xor	eax,eax

	ret

endp

align 4

proc @strstr$qpxct1 uses ebx esi edi

	xor  eax,eax

	mov  esi,[esp+16]

	test esi,esi

	je   .not_f

	mov  edi,[esp+20]

	test edi,edi

	je   .not_f

	mov  edx,edi

	mov	 ecx,-1

	cld

	repne scasb

	not	 ecx

	mov  ebx,ecx ;ebx = strlen(str2)

align 4

.cycle:

	cmp  byte[esi],0

	je   .not_f

	mov  edi,edx

	push esi

	mov  ecx,ebx

	repe cmpsb

	pop  esi

	inc  esi

	cmp  byte[edi-1],0

	jne  .cycle	

	lea  eax,[esi-1]

.not_f: