Z80 Routines:Graphic:Bub4font - Revision history

Galandros at 22:13, 26 October 2009

2009-10-26T22:13:23Z

Galandros: Routines:Graphic:Bub4font moved to Z80 Routines:Graphic:Bub4font: unite z80 routines

2009-10-25T19:50:04Z

Routines:Graphic:Bub4font moved to Z80 Routines:Graphic:Bub4font: unite z80 routines

Guillaumeh at 06:55, 29 March 2005

2005-03-29T06:55:36Z

Dwedit: moved to base category as well

2005-03-29T05:03:43Z

moved to base category as well

AndyJ at 04:44, 28 March 2005

2005-03-28T04:44:01Z

Guillaumeh: used the right wiki syntax

2005-03-27T18:57:27Z

used the right wiki syntax

Show changes

Guillaumeh at 15:32, 27 March 2005

2005-03-27T15:32:06Z

New page

; dwedit's bub_font routine modified with
; harper maddox's 4*4 galaxy font (expanded)
; by guillaume h.
; june 2004

; displayable characters go from $20 (space) to $5A (Z)
; they include : capital letters, digits, and some punctuation

; !"#$%&'()*+,-./
; 0123456789:;<=>?
; @ABCDEFGHIJKLMNO
; PQRSTUVWXYZ

; remarks :
; $24 is "power 4" in ti's font, but a dollar sign in normal ascii
; in this font, it's gonna be a block, because drawing a dollar sign
; because drawing one in 4*4 is hard..

; $5B is a space right now, it is a theta in ti's ascii and a '['
; in normal ascii

FONT_HEIGHT equ 4

appvputs
ld a,(hl)
inc hl
or a
ret z
push hl
call appvputmap
pop hl
jr appvputs

appvputmap
sub $20
ld l,a
srl l
ld h,0
add hl,hl
add hl,hl ; multiplication by 4 = FONT_HEIGHT
ld de,fontdata
add hl,de
ld de,bytes4
ld b,FONT_HEIGHT
and 1
jr z,unshiftedchar
shiftedcharloop:
ld a,(hl)
add a,a
add a,a
add a,a
add a,a
ld (de),a
inc hl
inc de
djnz shiftedcharloop
jr fontskip
unshiftedchar:
ld a,(hl)
and %11110000
ld (de),a
inc hl
inc de
djnz unshiftedchar
fontskip:
ld ix,bytes4
ld hl,(pencol)
ld a,l
ld l,h
inc l
ld bc,256*FONT_HEIGHT+1
call largesprite
;advance
ld hl,pencol
ld a,(hl)
add a,6
ld (hl),a
ld c,%00001000
findwidthloop:
dec (hl)
ld a,c
add a,a
ret z
ld c,a
ld de,bytes4
ld b,FONT_HEIGHT
findwidthloop2:
ld a,(de)
and c
ret nz
inc de
djnz findwidthloop2
jr findwidthloop

bytes4:
db 0,0,0,0

fontdata:
db %00001000
db %00001000 ; (space) !
db %00000000
db %00001000

db %10100101
db %10101111 ; " #
db %00000101
db %00001111

db %11111010
db %11110100 ; $ (block) %
db %11111000
db %11111010

db %01001000 ; & '
db %11101000
db %10100000
db %01010000

db %01001000
db %10000100 ; ( )
db %10000100
db %01001000

db %00000000 ; * +
db %10100100
db %01001110
db %10100100

db %00000000
db %00000000 ; , -
db %01001110
db %10000000

db %00000001 ; . /
db %00000010
db %00000100
db %10001000

db %11101000 ;0 1
db %10101000
db %10101000
db %11101000

db %11101110 ; 2 3
db %00100110
db %11000010
db %11101110

db %10101110
db %10101100 ; 4 5
db %11100010
db %00101110

db %10001110 ; 6 7
db %11100010
db %10100010
db %11100010

db %11101110 ; 8 9
db %11101010
db %10101110
db %11100010

db %00000100
db %10000000 ; : ;
db %00000100
db %10001000

db %00000000
db %01001110 ; < =
db %10000000
db %01001110

db %00001110
db %10000010 ; > ?
db %01000000
db %10000100

db %01100100
db %10101010
db %11101110 ; @ A
db %01101010

db %11101100
db %11101000
db %10101000 ; B C
db %11101100

db %11001100
db %10101100 ; D E
db %10101000
db %11001100

db %11001110 ; F G
db %11001000
db %10001010
db %10001110

db %10101000
db %10101000 ; H I
db %11101000
db %10101000

db %00101010
db %00101010 ; J K
db %10101100
db %11101010

db %10001110
db %10001110 ; L M
db %10001010
db %11001010

db %11001110
db %10101010 ; N O
db %10101010
db %10101110

db %11101110 ; P Q
db %10101010
db %11101110
db %10001110

db %11101100
db %10101000 ; R S
db %11000100
db %10101100

db %11101010 ; T U
db %01001010
db %01001010
db %01001110

db %10101010
db %10101010 ; V W
db %10101110
db %01001110

db %10101010
db %10101010
db %01000100 ; X Y
db %10100100

db %11000000
db %01000000 ; Z
db %10000000
db %11000000

@@ Line 1: / Line 1: @@
-[[Category:Z80 Routines:Graphic|bub4font]]
+[[Category:Z80 Routines:Graphic|Bub4font]]
-[[Category:Z80 Routines|bub4font]]
+[[Category:Z80 Routines|Bub4font]]
   <nowiki>
 ; dwedit's bub_font routine modified with

@@ Line 1: / Line 1: @@
 [[Category:Z80 Routines:Graphic|bub4font]]
   <nowiki>
 ; dwedit's bub_font routine modified with

← Older revision		Revision as of 04:44, 28 March 2005
Line 1:		Line 1:
		+	[[Category:Z80 Routines:Graphic\|bub4font]]
	<nowiki>		<nowiki>
	; dwedit's bub_font routine modified with		; dwedit's bub_font routine modified with

← Older revision	Revision as of 19:50, 25 October 2009
(No difference)

@@ Line 74: / Line 74: @@
   inc l
   ld bc,256*FONT_HEIGHT+1
-  call largesprite
+  call largesprite      ; or any sprite routine that fits
   ;advance
   ld hl,pencol
@@ Line 88: / Line 88: @@
   ld c,a
   ld de,bytes4
-	ld b,FONT_HEIGHT
+ ld b,FONT_HEIGHT
 findwidthloop2:
-	ld a,(de)
+ ld a,(de)
-	and c
+ and c
-	ret nz
+ ret nz
-	inc de
+ inc de
-	djnz findwidthloop2
+ djnz findwidthloop2
-	jr findwidthloop
+ jr findwidthloop
 bytes4:
-	db 0,0,0,0
+ db 0,0,0,0
 fontdata: