58 lines
1.4 KiB
ArmAsm
58 lines
1.4 KiB
ArmAsm
; traditional font renderer using normal font tables
|
|
|
|
slowfont ; A = character, X = column, Y = row; A is clobbered, X&Y are not
|
|
stx temp_col ; save col to be returned to caller
|
|
sty temp_row ; save row to be returned to caller
|
|
|
|
; find address of glyph
|
|
sta font_ptr
|
|
lda #0
|
|
sta font_ptr + 1
|
|
asl font_ptr ; multiply by 8
|
|
rol font_ptr + 1
|
|
asl font_ptr
|
|
rol font_ptr + 1
|
|
asl font_ptr
|
|
rol font_ptr + 1
|
|
|
|
clc ; add font table address to get pointer inside font table
|
|
lda #<fatfont ; would be slightly faster if page aligned because you
|
|
adc font_ptr ; could just store the low byte
|
|
sta slowfont_loop_smc+1
|
|
lda #>fatfont
|
|
adc font_ptr+1
|
|
sta slowfont_loop_smc+2
|
|
|
|
lda hgrtextrow_l,y ; load address of first line of hgr text
|
|
sta hgr_ptr
|
|
lda hgrtextrow_h,y
|
|
sta hgr_ptr+1
|
|
|
|
ldx #0
|
|
ldy temp_col ; col goes in y
|
|
slowfont_loop
|
|
slowfont_loop_smc
|
|
lda $ffff,x
|
|
sta (hgr_ptr),y
|
|
clc
|
|
lda #4
|
|
adc hgr_ptr+1
|
|
sta hgr_ptr+1
|
|
inx
|
|
cpx #8
|
|
bcc slowfont_loop
|
|
|
|
ldx temp_col
|
|
ldy temp_row
|
|
rts
|
|
|
|
|
|
hgrtextrow_l
|
|
.byte $00,$80,$00,$80,$00,$80,$00,$80
|
|
.byte $28,$A8,$28,$A8,$28,$A8,$28,$A8
|
|
.byte $50,$D0,$50,$D0,$50,$D0,$50,$D0
|
|
hgrtextrow_h
|
|
.byte $20,$20,$21,$21,$22,$22,$23,$23
|
|
.byte $20,$20,$21,$21,$22,$22,$23,$23
|
|
.byte $20,$20,$21,$21,$22,$22,$23,$23
|