Subversion Repositories Kolibri OS

;;================================================================================================;;

proc libini._.str_to_int ;////////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? --- TBD ---                                                                                    ;;

;;------------------------------------------------------------------------------------------------;;

;> esi = string buffer address                                                                    ;;

;;------------------------------------------------------------------------------------------------;;

;< eax = binary number representation (no overflow checks made)                                   ;;

;;================================================================================================;;

	push	edx

	xor	eax, eax

	xor	edx, edx

    @@: lodsb

	cmp	al, '0'

	jb	@f

	cmp	al, '9'

	ja	@f

	add	eax, -'0'

	imul	edx, 10

	add	edx, eax

	jmp	@b

    @@: dec	esi

	mov	eax, edx

	pop	edx

	ret

endp

;;================================================================================================;;

proc libini._.int_to_str ;////////////////////////////////////////////////////////////////////////;;

;;------------------------------------------------------------------------------------------------;;

;? --- TBD ---                                                                                    ;;

;;------------------------------------------------------------------------------------------------;;

;> eax = number to convert                                                                        ;;

;> ecx = base                                                                                     ;;

;> edi = string buffer address                                                                    ;;

;;------------------------------------------------------------------------------------------------;;

;< --- TBD ---                                                                                    ;;

;;================================================================================================;;

	push	ecx edx

	or	eax, eax

	jns	@f

	mov	byte[edi], '-'

	inc	edi

    @@: call	.recurse

	pop	edx ecx

	ret

  .recurse:

	cmp	eax,ecx

	jb	@f

	xor	edx,edx

	div	ecx

	push	edx

	call	.recurse

	pop	eax

    @@: cmp	al,10

	sbb	al,0x69

	das

	stosb

	retn

endp