hgr_font: more or less works for uppercase

This commit is contained in:
Vince Weaver 2021-08-09 13:19:47 -04:00
parent aa32a93326
commit e152360e7d

View File

@ -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 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
; ! $21
.byte $04 ; 00100
.byte $04 ; 00100
.byte $04 ; 00100
.byte $04 ; 00100
.byte $04 ; 00100
.byte $00 ; 00000
.byte $04 ; 00100
.byte $10 ; 001 00
.byte $10 ; 001 00
.byte $10 ; 001 00
.byte $10 ; 001 00
.byte $10 ; 001 00
.byte $00 ; 000 00
.byte $10 ; 001 00
.byte $00
; " $22
.byte $0a ; 01010
.byte $0a ; 01010
.byte $0a ; 01010
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
.byte $28 ; 010 10
.byte $28 ; 010 10
.byte $28 ; 010 10
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00
; #
.byte $0a ; 01010
.byte $0a ; 01010
.byte $1f ; 11111
.byte $0a ; 01010
.byte $1f ; 11111
.byte $0a ; 01010
.byte $0a ; 01010
; # $23
.byte $28 ; 010 10
.byte $28 ; 010 10
.byte $7c ; 111 11
.byte $28 ; 010 10
.byte $7c ; 111 11
.byte $28 ; 010 10
.byte $28 ; 010 10
.byte $00
; $
.byte $04 ; 00100
.byte $0f ; 01111
.byte $14 ; 10100
.byte $0e ; 01110
.byte $05 ; 00101
.byte $1e ; 11110
.byte $04 ; 00100
; $ $24
.byte $10 ; 001 00
.byte $3c ; 011 11
.byte $50 ; 101 00
.byte $38 ; 011 10
.byte $14 ; 001 01
.byte $78 ; 111 10
.byte $10 ; 001 00
.byte $00
; %
.byte $18 ; 11000
.byte $19 ; 11001
.byte $02 ; 00010
.byte $04 ; 00100
.byte $08 ; 01000
.byte $13 ; 10011
.byte $03 ; 00011
; % $25
.byte $60 ; 110 00
.byte $64 ; 110 01
.byte $08 ; 000 10
.byte $10 ; 001 00
.byte $20 ; 010 00
.byte $4c ; 100 11
.byte $0c ; 000 11
.byte $00
; &
.byte $08 ; 01000
.byte $14 ; 10100
.byte $14 ; 10100
.byte $08 ; 01000
.byte $15 ; 10101
.byte $12 ; 10010
.byte $0d ; 01101
; & $26
.byte $20 ; 010 00
.byte $50 ; 101 00
.byte $50 ; 101 00
.byte $20 ; 010 00
.byte $54 ; 101 01
.byte $48 ; 100 10
.byte $34 ; 011 01
.byte $00
; '
.byte $04 ; 00100
.byte $04 ; 00100
.byte $04 ; 00100
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
.byte $00 ; 00000
; ' $27
.byte $10 ; 001 00
.byte $10 ; 001 00
.byte $10 ; 001 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00 ; 000 00
.byte $00
; (
.byte $04 ; 00100
.byte $08 ; 01000
.byte $10 ; 10000
.byte $10 ; 10000
.byte $10 ; 10000
.byte $08 ; 01000
.byte $04 ; 00100
; ( $28
.byte $10 ; 001 00
.byte $20 ; 010 00
.byte $40 ; 100 00
.byte $40 ; 100 00
.byte $40 ; 100 00
.byte $20 ; 010 00
.byte $10 ; 001 00
.byte $00
; )
.byte $04 ; 00100
.byte $02 ; 00010
.byte $01 ; 00001
.byte $01 ; 00001
.byte $01 ; 00001
.byte $02 ; 00010
.byte $04 ; 00100
; ) $29
.byte $10 ; 001 00
.byte $08 ; 000 10
.byte $04 ; 000 01
.byte $04 ; 000 01
.byte $04 ; 000 01
.byte $08 ; 000 10
.byte $10 ; 001 00
.byte $00
; *
.byte $04 ; 00100
.byte $15 ; 10101
.byte $0e ; 01110
.byte $04 ; 00100
.byte $0e ; 01110
.byte $15 ; 10101
.byte $04 ; 00100
; * $2A
.byte $10 ; 001 00
.byte $54 ; 101 01
.byte $38 ; 011 10
.byte $10 ; 001 00
.byte $38 ; 011 10
.byte $54 ; 101 01
.byte $10 ; 001 00
.byte $00
; +
.byte $00 ; 00000
.byte $04 ; 00100
.byte $04 ; 00100
.byte $1f ; 11111
.byte $04 ; 00100
.byte $04 ; 00100
.byte $00 ; 00000
; + $2B
.byte $00 ; 000 00
.byte $10 ; 001 00
.byte $10 ; 001 00
.byte $7c ; 111 11
.byte $10 ; 001 00
.byte $10 ; 001 00
.byte $00 ; 000 00
.byte $00
; ,
.byte $00 ; 00000
@ -381,265 +381,295 @@ hgr_font:
.byte $00 ; 00000
.byte $04 ; 00100
.byte $00
; @
.byte $0e ; 01110
.byte $11 ; 10001
.byte $15 ; 10101
.byte $17 ; 10111
.byte $16 ; 10110
.byte $10 ; 10000
.byte $0f ; 01111
; @ $40
.byte $38 ; 011 10
.byte $44 ; 100 01
.byte $54 ; 101 01
.byte $5c ; 101 11
.byte $58 ; 101 10
.byte $40 ; 100 00
.byte $3c ; 011 11
.byte $00
; A
.byte $04 ; 00100
.byte $0a ; 01010
.byte $11 ; 10001
.byte $11 ; 10001
.byte $1f ; 11111
.byte $11 ; 10001
.byte $11 ; 10001
; A $41
.byte $08 ; 00100 X000 1000
.byte $14 ; 01010 X001 0100
.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 $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