Z80 Routines:Other:DispHL - Revision history

Galandros: optimized routine

2010-04-21T13:56:49Z

optimized routine

Galandros at 13:53, 21 April 2010

2010-04-21T13:53:02Z

Galandros: category

2010-04-21T13:51:40Z

Galandros: /* Decimal Unsigned Versions */ added needed subroutine

2009-11-28T16:09:25Z

‎Decimal Unsigned Versions: added needed subroutine

Galandros: added description, hex version and optimized the decimal version. all tested!

2009-11-28T16:07:11Z

added description, hex version and optimized the decimal version. all tested!

Galandros: New page: DispHL DispHL == Unsigned Version == ;DispHL, especially adapted to some kind of games (RPG's actually) ;input: hl=num, ...

2009-10-26T22:08:15Z

New page: DispHL DispHL == Unsigned Version == <nowiki>;DispHL, especially adapted to some kind of games (RPG's actually) ;input: hl=num, ...

New page

[[Category:Z80 Routines:Other|DispHL]]
[[Category:Z80 Routines|DispHL]]
== Unsigned Version ==

<nowiki>;DispHL, especially adapted to some kind of games (RPG's actually)
;input: hl=num, d=row,e=col, bc=number of algarisms to skip
;number of numbers' characters to display: 5 ; example: 65000
;output: hl displayed
DispHL:
push bc
ld (CurRow),de
ld de,OP1
push de
push de ;save twice...
call Num2Dec
ex de,hl
ld (hl),0
pop hl
jr firsttime
nozerodisp:
ld (hl),' ' ;suppress starting zeros, but you can delete this code if you don't want it
inc hl
firsttime:
ld a,(hl)
cp '0'
jr z,nozerodisp
pop hl
pop bc
add hl,bc
b_call(_PutS)
ret

;also adaptable for a DispA routine!
DispA:
ld h,0
ld l,a
ld bc,2
jr DispHL</nowiki>

== Signed Version ==
{{stub}}
<nowiki>;
DispHLsign:</nowiki>

@@ Line 41: / Line 41: @@
   <nowiki>;DispHL for games
-;input: hl=num, d=row,e=col, bc=number of algarisms to skip
+;input: hl=num, d=row,e=col, c=number of algarisms to skip
 ;number of numbers' characters to display: 5 ; example: 65000
-;output: hl displayed
+;output: hl displayed, with algarisms skiped and spaces for initial zeros
-DispHL_game:
+DispHL_games:
-	push bc
+	inc c
 	ld (CurRow),de
-	ld de,OP1
+;Number in hl to decimal ASCII
-	push de
+;Thanks to z80 Bits
-	push de		;save twice...
+;inputs:	hl = number to ASCII
-	call Num2Dec    ;subroutine
+;example: hl=300 outputs '  300'
-	ex de,hl
+;destroys: af, hl, de used
-	ld (hl),0
+	ld	de,-10000
-	pop hl
-	jr firsttime
-nozerodisp:
-	ld (hl),' '	;suppress starting zeros, but you can delete this code if you don't want it
-	inc hl
-firsttime:
-	ld a,(hl)
-	cp '0'
-	jr z,nozerodisp
-	pop hl
-	pop bc
-	add hl,bc
-	call PUTSTR		;b_call(_PutS)
-	ret
-−
-Num2Dec:
-	ld	bc,-10000
 	call	Num1
-	ld	bc,-1000
+	ld	de,-1000
 	call	Num1
-	ld	bc,-100
+	ld	de,-100
 	call	Num1
-	ld	c,-10
+	ld	e,-10
 	call	Num1
-	ld	c,-1
+	ld	e,-1
-Num1:	ld	a,'0'-1
+Num1:
 Num2:	inc	a
-	add	hl,bc
+	add	hl,de
 	jr	c,Num2
-	sbc	hl,bc
+	sbc	hl,de
-	ld	(de),a
+	dec c			;c is skipping
-	inc	de
+	jr nz,skipnum
-	ret </nowiki>
+	inc c
+	djnz notcharnumzero
-<!-- It would be good a optimized version but I don't know how to avoid OP1 temp use -->
+	cp '0'
 == Hexadecimal Version ==
@@ Line 119: / Line 114: @@
   <nowiki>;DispHL signed
+;
-DispHLsign:
+DispHLdecsigned:
- </nowiki>

@@ Line 1: / Line 1: @@
-[[Category:Z80 Routines:Other|DispHL]]
+[[Category:Z80 Routines:Display|DispHL]]
 [[Category:Z80 Routines:Other|DispHL]]
 [[Category:Z80 Routines|DispHL]]

← Older revision		Revision as of 13:51, 21 April 2010
Line 1:		Line 1:
		+	[[Category:Z80 Routines:Other\|DispHL]]
	[[Category:Z80 Routines:Other\|DispHL]]		[[Category:Z80 Routines:Other\|DispHL]]
	[[Category:Z80 Routines\|DispHL]]		[[Category:Z80 Routines\|DispHL]]