kolibrios-gitea/programs/bcc32/include/kos_lib.inc

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
proc @strlen$qpxc uses edi
  cld
  mov  edi,[esp+8]
  mov  ecx,-1
  xor  al,al
  repnz scasb
  not  ecx
  lea  eax,[ecx-1]
  ret
endp

align 4
proc @strcpy$qpcpxc uses esi edi
  cld
  mov  edi,[esp+16]
  mov  ecx,-1
  mov  esi,edi
  xor  al,al
  repnz scasb
  not  ecx
  mov  edi,[esp+12]
  mov  edx,ecx
  mov  eax,edi
  shr  ecx,2
  rep movsd
  mov  ecx,edx
  and  ecx,3
  rep movsb
  ret
endp

align 4
proc @memcpy$qpvpxvui uses esi edi
  cld
  mov  edi,[esp+12]
  mov  eax,edi
  mov  ecx,[esp+20]
  mov  esi,[esp+16]
  mov  edx,ecx
  shr  ecx,2
  rep movsd
  mov  ecx,edx
  and  ecx,3
  rep movsb
  ret
endp

align 4
proc @memset$qpvcui uses edi
  cld
  mov  edi,[esp+8]
  mov  al,[esp+12]
  mov  ah,al
  mov  dx,ax
  shl  eax,16
  mov  ax,dx
  mov  ecx,[esp+16]
  mov  edx,ecx
  shr  ecx,2
  rep stosd
  mov  ecx,edx
  and  ecx,3
  rep stosb
  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:
	ret 
endp

align 4
proc __ftol
  sub  esp,12
  wait
  fstcw word [esp+8]
  wait
  mov  al,[esp+9]
  or  byte [esp+9],0x0c
  fldcw word [esp+8]
  fistp qword [esp]
  mov  [esp+9],al
  fldcw word [esp+8]
  mov  eax,[esp]
  mov  edx,[esp+4]
  add  esp,12
  ret
endp

align 4
proc @floor$qd
  fld  qword [esp+4]
  mov  ax,[esp+10]
  shl  ax,1
  cmp  ax,0x8680
  ja  .floor_end
  mov  ch,4
  sub  esp,2
  wait
  fstcw word [esp]
  mov  ax,0xf3ff
  wait
  mov  dx,[esp]
  and  ax,dx
  or  ah,ch
  mov  [esp],ax
  fldcw word [esp]
  frndint
  mov  [esp],dx
  fldcw word [esp]
  add  esp,2
.floor_end:
  ret
endp

align 4
proc @MessageBox$qpc
	mov eax,[esp+4]
	notify_window_run eax
	ret
endp