WebSVN – NedoOS – Blame – /src/calc/common/ascii_to_uint8.asm

Rev	Author	Line No.	Line
1485	alone	1	ifndef included_ascii_to_uint8
		2	define included_ascii_to_uint8
		3
		4	;#ifndef TOK_DECIMAL
		5	;#ifdef TOK_DECIMAL
		6	;#define TOK_DECIMAL TOK_DECIMAL
		7	;#else
		8	TOK_DECIMAL='.'
		9	;#endif
		10	;#endif
		11
		12	ascii_to_uint8:
		13	;c flag means don't increment the exponent
		14	ld c,0
		15	ld a,(hl)
		16	jr c,ascii_to_uint8_noexp
		17	cp TOK_DECIMAL
		18	jr z,ascii_to_uint8_noexpm2
		19	;_:
		20	sub 3Ah
		21	add a,10
		22	jr nc,ascii_to_uint8_noexp_end
		23	inc b
		24	ld c,a
		25	add a,a
		26	add a,a
		27	add a,c
		28	add a,a
		29	ld c,a
		30	inc hl
		31	;_:
		32	ld a,(hl)
		33	cp TOK_DECIMAL
		34	jr z,ascii_to_uint8_noexp_2nd
		35	;_:
		36	sub 3Ah
		37	add a,10
		38	jr nc,ascii_to_uint8_noexp_end
		39	inc b
		40	add a,c
		41	inc hl
		42	ld (de),a
		43	dec de
		44	or a
		45	ret
		46
		47	ascii_to_uint8_noexpm2
		48	inc hl
		49	ld a,(hl)
		50	ascii_to_uint8_noexp:
		51	sub 3Ah
		52	add a,10
		53	jr nc,ascii_to_uint8_noexp_end
		54	ld c,a
		55	add a,a
		56	add a,a
		57	add a,c
		58	add a,a
		59	ld c,a
		60	ascii_to_uint8_noexp_2nd:
		61	inc hl
		62	ld a,(hl)
		63	sub 3Ah
		64	add a,10
		65	jr nc,ascii_to_uint8_noexp_end
		66	add a,c
		67	inc hl
		68	db $FE ;start of `cp **`, saves 1cc
		69	ascii_to_uint8_noexp_end:
		70	ld a,c
		71	ld (de),a
		72	dec de
		73	scf
		74	ret
		75	endif

Subversion Repositories NedoOS