WebSVN – NedoOS – Blame – /src/

Rev	Author	Line No.	Line
8	dimkam	1	prword
		2	;hl=num
		3	exx
		4	ld hl,0
		5	exx
		6	prdword
		7	;hl'hl=num
		8	ld a,' '
		9	ld (prnumdwordcmd_zero),a
		10	exx
		11	ld bc,1000000000/65536
		12	exx
		13	ld bc,1000000000&#ffff
		14	call prnumdwordcmd0
		15	exx
		16	ld bc,100000000/65536
		17	exx
		18	ld bc,100000000&#ffff
		19	call prnumdwordcmd0
		20	exx
		21	ld bc,10000000/65536
		22	exx
		23	ld bc,10000000&#ffff
		24	call prnumdwordcmd0
		25	exx
		26	ld bc,1000000/65536
		27	exx
		28	ld bc,1000000&#ffff
		29	call prnumdwordcmd0
		30	exx
		31	ld bc,100000/65536
		32	exx
		33	ld bc,100000&#ffff
		34	call prnumdwordcmd0
		35	exx
		36	ld bc,0
		37	exx
		38	ld bc,10000
		39	call prnumdwordcmd0
		40	ld bc,1000
		41	call prnumdwordcmd0
		42	ld bc,100
		43	call prnumdwordcmd0
		44	ld bc,10
		45	call prnumdwordcmd0
		46	ld a,'0'
		47	ld (prnumdwordcmd_zero),a
		48	ld bc,1
		49	prnumdwordcmd0
		50	;bc=digit
		51	ld a,'0'-1
		52	prnumdwordcmd1
		53	inc a
		54	or a
		55	sbc hl,bc
		56	exx
		57	sbc hl,bc
		58	exx
		59	jr nc,prnumdwordcmd1
		60	add hl,bc
		61	exx
		62	adc hl,bc
		63	exx
		64	push bc
		65	push de
		66	push hl
		67	cp '0'
		68	jr nz,prnumdwordcmd_nozero
		69	prnumdwordcmd_zero=$+1
		70	ld a,' '
		71	jr prnumdwordcmd_nozeroq
		72	prnumdwordcmd_nozero
		73	ld hl,prnumdwordcmd_zero
		74	ld (hl),'0'
		75	prnumdwordcmd_nozeroq
		76	exx
		77	push bc
		78	push hl
		79	PRCHAR
		80	pop hl
		81	pop bc
		82	exx
		83	pop hl
		84	pop de
		85	pop bc
		86	ret

Subversion Repositories NedoOS