hgr_font: more or less works for uppercase

games/peasant/hgr_font.s

@@ -42,7 +42,7 @@ outl_no_oflo:
 	rts
 
 	;==================
-	; X in X
+	;  in X
 	; Y in Y
 	; Char in A
 hgr_put_char:
@@ -94,112 +94,112 @@ put_char_smc1:
 hgr_font:
 
 ; ' ' $20
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
 ; ! $21
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
 	.byte $00
 ; " $22
-	.byte $0a	; 01010
+	.byte $28	; 010 10
-	.byte $0a	; 01010
+	.byte $28	; 010 10
-	.byte $0a	; 01010
+	.byte $28	; 010 10
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
 	.byte $00
-; #
+; # $23
-	.byte $0a	; 01010
+	.byte $28	; 010 10
-	.byte $0a	; 01010
+	.byte $28	; 010 10
-	.byte $1f	; 11111
+	.byte $7c	; 111 11
-	.byte $0a	; 01010
+	.byte $28	; 010 10
-	.byte $1f	; 11111
+	.byte $7c	; 111 11
-	.byte $0a	; 01010
+	.byte $28	; 010 10
-	.byte $0a	; 01010
+	.byte $28	; 010 10
 	.byte $00
-; $
+; $ $24
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $0f	; 01111
+	.byte $3c	; 011 11
-	.byte $14	; 10100
+	.byte $50	; 101 00
-	.byte $0e	; 01110
+	.byte $38	; 011 10
-	.byte $05	; 00101
+	.byte $14	; 001 01
-	.byte $1e	; 11110
+	.byte $78	; 111 10
-	.byte $04	; 00100
+	.byte $10	; 001 00
 	.byte $00
-; %
+; % $25
-	.byte $18	; 11000
+	.byte $60	; 110 00
-	.byte $19	; 11001
+	.byte $64	; 110 01
-	.byte $02	; 00010
+	.byte $08	; 000 10
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $08	; 01000
+	.byte $20	; 010 00
-	.byte $13	; 10011
+	.byte $4c	; 100 11
-	.byte $03	; 00011
+	.byte $0c	; 000 11
 	.byte $00
-; &
+; & $26
-	.byte $08	; 01000
+	.byte $20	; 010 00
-	.byte $14	; 10100
+	.byte $50	; 101 00
-	.byte $14	; 10100
+	.byte $50	; 101 00
-	.byte $08	; 01000
+	.byte $20	; 010 00
-	.byte $15	; 10101
+	.byte $54	; 101 01
-	.byte $12	; 10010
+	.byte $48	; 100 10
-	.byte $0d	; 01101
+	.byte $34	; 011 01
 	.byte $00
-; '
+; ' $27
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
 	.byte $00
-; (
+; ( $28
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $08	; 01000
+	.byte $20	; 010 00
-	.byte $10	; 10000
+	.byte $40	; 100 00
-	.byte $10	; 10000
+	.byte $40	; 100 00
-	.byte $10	; 10000
+	.byte $40	; 100 00
-	.byte $08	; 01000
+	.byte $20	; 010 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
 	.byte $00
-; )
+; ) $29
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $02	; 00010
+	.byte $08	; 000 10
-	.byte $01	; 00001
+	.byte $04	; 000 01
-	.byte $01	; 00001
+	.byte $04	; 000 01
-	.byte $01	; 00001
+	.byte $04	; 000 01
-	.byte $02	; 00010
+	.byte $08	; 000 10
-	.byte $04	; 00100
+	.byte $10	; 001 00
 	.byte $00
-; *
+; * $2A
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $15	; 10101
+	.byte $54	; 101 01
-	.byte $0e	; 01110
+	.byte $38	; 011 10
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $0e	; 01110
+	.byte $38	; 011 10
-	.byte $15	; 10101
+	.byte $54	; 101 01
-	.byte $04	; 00100
+	.byte $10	; 001 00
 	.byte $00
-; +
+; + $2B
-	.byte $00	; 00000
+	.byte $00	; 000 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $1f	; 11111
+	.byte $7c	; 111 11
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $04	; 00100
+	.byte $10	; 001 00
-	.byte $00	; 00000
+	.byte $00	; 000 00
 	.byte $00
 ; ,
 	.byte $00	; 00000
@@ -381,265 +381,295 @@ hgr_font:
 	.byte $00	; 00000
 	.byte $04	; 00100
 	.byte $00
-; @
+; @ $40
-	.byte $0e	; 01110
+	.byte $38	; 011 10
-	.byte $11	; 10001
+	.byte $44	; 100 01
-	.byte $15	; 10101
+	.byte $54	; 101 01
-	.byte $17	; 10111
+	.byte $5c	; 101 11
-	.byte $16	; 10110
+	.byte $58	; 101 10
-	.byte $10	; 10000
+	.byte $40	; 100 00
-	.byte $0f	; 01111
+	.byte $3c	; 011 11
 	.byte $00
-; A
+; A $41
-	.byte $04	; 00100
+	.byte $08	; 00100	X000 1000
-	.byte $0a	; 01010
+	.byte $14	; 01010 X001 0100
-	.byte $11	; 10001
+	.byte $22	; 10001 X010 0010
-	.byte $11	; 10001
+	.byte $22	; 10001 X010 0010
-	.byte $1f	; 11111
+	.byte $3E	; 11111 X011 1110
-	.byte $11	; 10001
+	.byte $22	; 10001 X010 0010
-	.byte $11	; 10001
+	.byte $22	; 10001 X010 0010
 	.byte $00
+; B $42
+	.byte $1E	; 11110	X001 1110
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $1E	; 11110 X001 1110
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $1E	; 11110 X001 1110
+	.byte $00
+; C $43
+	.byte $1c	; 01110 X001 1100
+	.byte $22	; 10001 X010 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $22	; 10001 X010 0010
+	.byte $1c	; 01110 X001 1100
+	.byte $00
+; D $44
+	.byte $1e	; 11110 X001 1110
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $1e	; 11110 X001 1110
+	.byte $00
+; E $45
+	.byte $3E	; 11111 X011 1110
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $1e	; 11110 X001 1110
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $3E	; 11111 X011 1110
+	.byte $00
+; F $46
+	.byte $3E	; 11111 X011 1110
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $1E	; 11110 X001 1110
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $00
+; G $47
+	.byte $3c	; 01111 X011 1100
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $32	; 10011 X011 0010
+	.byte $22	; 10001 X010 0010
+	.byte $3c	; 01111 X011 1100
+	.byte $00
+; H $48
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $3E	; 11111 X011 1110
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $00
+; I $49
+	.byte $1c	; 01110 X001 1100
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $1c	; 01110 X001 1100
+	.byte $00
+; J $4A
+	.byte $20	; 00001 X010 0000
+	.byte $20	; 00001 X010 0000
+	.byte $20	; 00001 X010 0000
+	.byte $20	; 00001 X010 0000
+	.byte $20	; 00001 X010 0000
+	.byte $22	; 10001 X010 0010
+	.byte $1c	; 01110 X001 1100
+	.byte $00
+; K $4B
+	.byte $22	; 10001 X010 0010
+	.byte $12	; 10010 X001 0010
+	.byte $1A	; 10100 X000 1010
+	.byte $06	; 11000 X000 0110
+	.byte $0A	; 10100 X000 1010
+	.byte $12	; 10010 X001 0010
+	.byte $22	; 10001 X010 0010
+	.byte $00
+; L $4C
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $3E	; 11111 X011 1110
+	.byte $00
+; M $4D
+	.byte $22	; 10001 X010 0010
+	.byte $36	; 11011 X011 0110
+	.byte $2a	; 10101 X010 1010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $00
+; N $4E
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $26	; 11001 X010 0110
+	.byte $2a	; 10101 X010 1010
+	.byte $32	; 10011 X011 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $00
+; O $4F
+	.byte $1c	; 01110 X001 1100
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $1c	; 01110 X001 1100
+	.byte $00
+; P $50
+	.byte $1e	; 11110 X001 1110
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $1e	; 11110 X001 1110
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $02	; 10000 X000 0010
+	.byte $00
+; Q $51
+	.byte $1c	; 01110 X001 1100
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $2a	; 10101 X010 1010
+	.byte $12	; 10010 X001 0010
+	.byte $2c	; 01101 X010 1100
+	.byte $00
+; R $52
+	.byte $1e	; 11110 X001 1110
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $1e	; 11110 X001 1110
+	.byte $0a	; 10100 X000 1010
+	.byte $12	; 10010 X001 0010
+	.byte $22	; 10001 X010 0010
+	.byte $00
+; S $53
+	.byte $1c	; 01110 X001 1100
+	.byte $22	; 10001 X010 0010
+	.byte $02	; 10000 X000 0010
+	.byte $1c	; 01110 X001 1100
+	.byte $20	; 00001 X010 0000
+	.byte $22	; 10001 X010 0010
+	.byte $1c	; 01110 X001 1100
+	.byte $00
+; T $54
+	.byte $3E	; 11111 X011 1110
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $00
+; U $55
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $1C	; 01110 X001 1100
+	.byte $00
+; V $56
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $14	; 01010 X001 0100
+	.byte $08	; 00100 X000 1000
+	.byte $00
+; W $57
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $2A	; 10101 X010 1010
+	.byte $2A	; 10101 X010 1010
+	.byte $36	; 11011 X011 0110
+	.byte $22	; 10001 X010 0010
+	.byte $00
+; X $58
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $14	; 01010 X001 0100
+	.byte $08	; 00100 X000 1000
+	.byte $14	; 01010 X001 0100
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $00
+; Y $59
+	.byte $22	; 10001 X010 0010
+	.byte $22	; 10001 X010 0010
+	.byte $14	; 01010 X001 0100
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $08	; 00100 X000 1000
+	.byte $00
+; Z $5A
+	.byte $3e	; 11111 X011 1110
+	.byte $20	; 00001 X010 0000
+	.byte $10	; 00010 X001 0000
+	.byte $08	; 00100 X000 1000
+	.byte $04	; 01000 X000 0100
+	.byte $02	; 10000 X000 0010
+	.byte $3e	; 11111 X011 1110
+	.byte $00
+; [ $5B
+	.byte $3e	; 11111 X011 1110
+	.byte $06	; 11000 X000 0110
+	.byte $06	; 11000 X000 0110
+	.byte $06	; 11000 X000 0110
+	.byte $06	; 11000 X000 0110
+	.byte $06	; 11000 X000 0110
+	.byte $3e	; 11111 X011 1110
+	.byte $00
+; \ $5C
+	.byte $00	; 00000 X000 0000
+	.byte $02	; 10000 X000 0010
+	.byte $04	; 01000 X000 0100
+	.byte $08	; 00100 X000 1000
+	.byte $10	; 00010 X001 0000
+	.byte $20	; 00001 X010 0000
+	.byte $00	; 00000 X000 0000
+	.byte $00
+; ] $5d
+	.byte $3e	; 11111 X011 1110
+	.byte $30	; 00011 X011 0000
+	.byte $30	; 00011 X011 0000
+	.byte $30	; 00011 X011 0000
+	.byte $30	; 00011 X011 0000
+	.byte $30	; 00011 X011 0000
+	.byte $3e	; 11111 X011 1110
+	.byte $00
+; ^ $5e
+	.byte $00	; 00000 X000 0000
+	.byte $00	; 00000 X000 0000
+	.byte $08	; 00100 X000 1000
+	.byte $14	; 01010 X001 0100
+	.byte $22	; 10001 X010 0010
+	.byte $00	; 00000 X000 0000
+	.byte $00	; 00000 X000 0000
+	.byte $00
+; _ $5f
+	.byte $00	; 00000 X000 0000
+	.byte $00	; 00000 X000 0000
+	.byte $00	; 00000 X000 0000
+	.byte $00	; 00000 X000 0000
+	.byte $00	; 00000 X000 0000
+	.byte $00	; 00000 X000 0000
+	.byte $00	; 00000 X000 0000
+	.byte $7f	; 11111 X111 1111
 
-	.byte $1e	; 11110
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $1e	; 11110
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $1e	; 11110
-		; B
-	.byte $0e	; 01110
-	.byte $11	; 10001
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $11	; 10001
-	.byte $0e	; 01110
-		; C
-	.byte $1e	; 11110
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $1e	; 11110
-		; D
-	.byte $1f	; 11111
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $1e	; 11110
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $1f	; 11111
-		; E
-	.byte $1f	; 11111
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $1e	; 11110
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $10	; 10000
-		; F
-	.byte $0f	; 01111
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $13	; 10011
-	.byte $11	; 10001
-	.byte $0f	; 01111
-		; G
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $1f	; 11111
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-		; H
-	.byte $0e	; 01110
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $0e	; 01110
-		; I
-	.byte $01	; 00001
-	.byte $01	; 00001
-	.byte $01	; 00001
-	.byte $01	; 00001
-	.byte $01	; 00001
-	.byte $11	; 10001
-	.byte $0e	; 01110
-		; J
-	.byte $11	; 10001
-	.byte $12	; 10010
-	.byte $14	; 10100
-	.byte $18	; 11000
-	.byte $14	; 10100
-	.byte $12	; 10010
-	.byte $11	; 10001
-		; K
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $1f	; 11111
-		; L
-	.byte $11	; 10001
-	.byte $1b	; 11011
-	.byte $15	; 10101
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-		; M
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $19	; 11001
-	.byte $15	; 10101
-	.byte $13	; 10011
-	.byte $11	; 10001
-	.byte $11	; 10001
-		; N
-	.byte $0e	; 01110
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $0e	; 01110
-		; O
-	.byte $1e	; 11110
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $1e	; 11110
-	.byte $10	; 10000
-	.byte $10	; 10000
-	.byte $10	; 10000
-		; P
-	.byte $0e	; 01110
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $15	; 10101
-	.byte $12	; 10010
-	.byte $0d	; 01101
-		; Q
-	.byte $1e	; 11110
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $1e	; 11110
-	.byte $14	; 10100
-	.byte $12	; 10010
-	.byte $11	; 10001
-		; R
-	.byte $0e	; 01110
-	.byte $11	; 10001
-	.byte $10	; 10000
-	.byte $0e	; 01110
-	.byte $01	; 00001
-	.byte $11	; 10001
-	.byte $0e	; 01110
-		; S
-	.byte $1f	; 11111
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-		; T
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $0e	; 01110
-		; U
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $0a	; 01010
-	.byte $04	; 00100
-		; V
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $15	; 10101
-	.byte $15	; 10101
-	.byte $1b	; 11011
-	.byte $11	; 10001
-		; W
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $0a	; 01010
-	.byte $04	; 00100
-	.byte $0a	; 01010
-	.byte $11	; 10001
-	.byte $11	; 10001
-		; X
-	.byte $11	; 10001
-	.byte $11	; 10001
-	.byte $0a	; 01010
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-	.byte $04	; 00100
-		; Y
-	.byte $1f	; 11111
-	.byte $01	; 00001
-	.byte $02	; 00010
-	.byte $04	; 00100
-	.byte $08	; 01000
-	.byte $10	; 10000
-	.byte $1f	; 11111
-		; Z
-	.byte $1f	; 11111
-	.byte $18	; 11000
-	.byte $18	; 11000
-	.byte $18	; 11000
-	.byte $18	; 11000
-	.byte $18	; 11000
-	.byte $1f	; 11111
-		; [
-	.byte $00	; 00000
-	.byte $10	; 10000
-	.byte $08	; 01000
-	.byte $04	; 00100
-	.byte $02	; 00010
-	.byte $01	; 00001
-	.byte $00	; 00000
-		; \.
-	.byte $1f	; 11111
-	.byte $03	; 00011
-	.byte $03	; 00011
-	.byte $03	; 00011
-	.byte $03	; 00011
-	.byte $03	; 00011
-	.byte $1f	; 11111
-		; ]
-	.byte $00	; 00000
-	.byte $00	; 00000
-	.byte $04	; 00100
-	.byte $0a	; 01010
-	.byte $11	; 10001
-	.byte $00	; 00000
-	.byte $00	; 00000
-		; ^
-	.byte $00	; 00000
-	.byte $00	; 00000
-	.byte $00	; 00000
-	.byte $00	; 00000
-	.byte $00	; 00000
-	.byte $00	; 00000
-	.byte $1f	; 11111
-		; _
 
 ;*******************
 ; Lowercase
@@ -844,7 +874,7 @@ hgr_font:
 	.byte $0a	; 01010
 	.byte $11	; 10001
 	.byte $11	; 10001
-		; X
+		; 
 	.byte $11	; 10001
 	.byte $11	; 10001
 	.byte $0a	; 01010