Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-28 09:30:41 +00:00
Code Issues Projects Releases Wiki Activity
4d7830b2f2
dos33fsprogs/demosplash/font.s

255 lines
7.2 KiB
ArmAsm
Raw Normal View History

ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
; 12 bytes per char
; 0x20 - 0x5F = 32 - 96 = 64*12 = 768 bytes
ds: update font code
2019-10-12 23:00:55 +00:00
; FIXME: if only 32 chars then we can make the code a lot simpler/smaller
; + only 2 pages of data (instead of 4)
; + calculations, no need for high bit in multiply
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
colors_hi: .byte $C4,$CF
colors_lo: .byte $FC,$4C
;==================================
; put_char
; ypos = Y (must be multiple of 2)
; xpos = X
; char = A
; waste 256 bytes to avoid crossing pages and muly by 6
ds: update font code
2019-10-12 23:00:55 +00:00
; 4+24+37+(43*3)+3+34+(43*3)+5 = 365
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
put_char:
; point to font location
sec ; 2
ds: print 7 chars
2019-10-12 23:44:07 +00:00
sbc #'@' ; 2
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
; multiply by 8... 0..63 -> 0..511 1 1111
; shift left by 4
ds: update font code
2019-10-12 23:00:55 +00:00
; pha ; 3
; lsr ; 2
; lsr ; 2
; lsr ; 2
; clc ; 2
; adc #>font_high ; 2
; sta fh1_smc+2 ; 4
; sta fh2_smc+2 ; 4
; clc ; 2
; adc #1 ; 2
; sta fl1_smc+2 ; 4
; sta fl2_smc+2 ; 4
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
;============
ds: update font code
2019-10-12 23:00:55 +00:00
; 4
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
ds: update font code
2019-10-12 23:00:55 +00:00
; pla ; 4
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
asl ; 2
asl ; 2
asl ; 2
adc #<font_high ; always zero ; 2
sta fh1_smc+1 ; 4
sta fh2_smc+1 ; 4
sta fl1_smc+1 ; 4
sta fl2_smc+1 ; 4
;============
ds: update font code
2019-10-12 23:00:55 +00:00
; 24
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
; calculate output
txa ; 2
pha ; 3
clc ; 2
adc gr_offsets,y ; 4+
sta page0_put_char1+1 ; 4
sta page1_put_char1+1 ; 4
lda gr_offsets+1,y ; 4+
sta page1_put_char1+2 ; 4
clc ; 2
adc #$4 ; 2
sta page0_put_char1+2 ; 4
ds: update font code
2019-10-12 23:00:55 +00:00
ldx #0 ; 2
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
;============
; 37
put_char_inner_loop1:
fh1_smc:
lda font_high,X ; 4+
and colors_hi ; 4
page0_put_char1:
sta $400 ; 4
fl1_smc:
lda font_low,X ; 4+
and colors_lo ; 4
page1_put_char1:
sta $800 ; 4
inc page0_put_char1+1 ; 6
inc page1_put_char1+1 ; 6
ds: update font code
2019-10-12 23:00:55 +00:00
inx ; 2
cpx #3 ; 2
bne put_char_inner_loop1 ; 3
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
;============
ds: update font code
2019-10-12 23:00:55 +00:00
; 43 * 3
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
; -1
iny ; 2
iny ; 2
;============
; 3
; unrolled
ds: update font code
2019-10-12 23:00:55 +00:00
clc ; 2
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
pla ; restore X pos ; 4
adc gr_offsets,y ; 4+
sta page0_put_char2+1 ; 4
sta page1_put_char2+1 ; 4
lda gr_offsets+1,y ; 4+
sta page1_put_char2+2 ; 4
clc ; 2
adc #$4 ; 2
sta page0_put_char2+2 ; 4
;==============
; 34
put_char_inner_loop2:
fh2_smc:
lda font_high,X ; 4
and colors_hi+1 ; 4+
page0_put_char2:
sta $400 ; 4
fl2_smc:
lda font_low,X ; 4+
and colors_lo+1 ; 4+
page1_put_char2:
sta $800 ; 4
inc page0_put_char2+1 ; 6
inc page1_put_char2+1 ; 6
ds: update font code
2019-10-12 23:00:55 +00:00
inx ; 2
cpx #6 ; 2
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
bne put_char_inner_loop2 ; 3
;============
; 43*3
; -1
rts ; 6
;==============
; 5
ds: update font code
2019-10-12 23:00:55 +00:00
;H0H ** ****** ** ** ** ** ** ** ** ** ** **
;L0H ** ** ** ** ** ** ** ** ** ** ** ** **
;H0L ** ** ** ** ** ** ** ** **
;L0L ** ** ** ** ** ** ** ** ** ** ** **
;H1H ** ** ** ** ** ** ** ** ** ** ** ** **
;L1H ** ** ** ** ** ** ** ** **
;H1L ** ** ** ** ** ** ** ** ** ** **
;L1L ** ** ** ** ** ** ** ** ** ** ** ** **
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
.align $100
font_high:
ds: print 7 chars
2019-10-12 23:44:07 +00:00
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; ' '
ds: update font code
2019-10-12 23:00:55 +00:00
.byte $f0,$0f,$f0,$ff,$0f,$ff,$00,$00 ; A
.byte $ff,$0f,$f0,$ff,$0f,$ff,$00,$00 ; B
.byte $f0,$0f,$0f,$ff,$00,$00,$00,$00 ; C
.byte $ff,$0f,$f0,$ff,$00,$ff,$00,$00 ; D
.byte $ff,$0f,$0f,$ff,$ff,$f0,$00,$00 ; E
ds: forever prints
2019-10-13 00:57:36 +00:00
.byte $ff,$0f,$0f,$ff,$0f,$00,$00,$00 ; F
;H0H ** ** ** ** ** ** ** ** ** ** **
;L0H ** ** ** ** ** ** ** **
;H0L ** ** ** ** ** ** ** **
;L0L ** ** ** ** ** ** ** ** ** **
;H1H ** ** ** ** ** ** ** ** ** **
;L1H ** ** ** ** ** ** ** ** **
;H1L ** ** ** ** ** ** ** ** ** **
;L1L ** ** ** ** ** ** ** ** ** ** ** ** **
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; G
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; H
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; I
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; J
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; K
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; L
;H0H ** ** ** ** ** ** ** ** ** **
;L0H ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
;H0L ** ** ** ** ** ** ** ** ** ** ** ** **
;L0L ** ** ** ** ** ** ** ** ** ** ** ** ** **
;H1H ** ** ** ** ** ** ** ** ** ** ** ** **
;L1H ** ** ** ** ** ** ** ** ** ** **
;H1L ** ** ** ** ** ** ** ** ** ** ** ** **
;L1L ** ** ** ** ** ** ** ** ** **
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; M
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; N
.byte $f0,$0f,$f0,$ff,$f0,$ff,$00,$00 ; O
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; P
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; Q
.byte $ff,$0f,$f0,$ff,$0f,$f0,$00,$00 ; R
;H0H ** ** ** ** ** ** ** ** ** ** ** ** **
;L0H ** ** ** ** ** ** ** ** ** **
;H0L ** ** ** ** ** ** ** ** ** **
;L0L ** ** ** ** ** ** ** ** ** **
;H1H ** ** ** ** ** ** ** ** ** **
;L1H ** ** ** ** ** ** ** ** ** ** ** **
;H1L ** ** ** ** ** ** ** ** ** ** **
;L1L ** ** ** ** ** ** ** ** **
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; S
.byte $0f,$ff,$0f,$00,$ff,$00,$00,$00 ; T
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; U
.byte $ff,$00,$ff,$0f,$f0,$0f,$00,$00 ; V
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; W
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; X
;H0H ** ** ** ** **
;L0H ** ** **
;H0L ** ** **
;L0L ** ** ** **
;H1H ** **
;L1H ** **
;H1L ** **
;L1L ** ** ** **
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; Y
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; Z
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
ds: update font code
2019-10-12 23:00:55 +00:00
.align $100
ds: of course forgot the font file
2019-10-12 22:11:52 +00:00
font_low: ; 2 pages later
ds: print 7 chars
2019-10-12 23:44:07 +00:00
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; ' '
ds: update font code
2019-10-12 23:00:55 +00:00
.byte $ff,$f0,$ff,$ff,$00,$ff,$00,$00 ; A
.byte $ff,$f0,$0f,$ff,$f0,$ff,$00,$00 ; B
.byte $ff,$00,$00,$0f,$f0,$f0,$00,$00 ; C
.byte $ff,$00,$ff,$ff,$f0,$0f,$00,$00 ; D
.byte $ff,$ff,$0f,$ff,$f0,$f0,$00,$00 ; E
.byte $ff,$ff,$0f,$ff,$00,$00,$00,$00 ; F
ds: forever prints
2019-10-13 00:57:36 +00:00
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; G
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; H
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; I
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; J
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; K
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; L
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; M
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; N
.byte $ff,$0f,$ff,$0f,$f0,$0f,$00,$00 ; O
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; P
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; Q
.byte $ff,$ff,$0f,$ff,$00,$ff,$00,$00 ; R
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; S
.byte $00,$ff,$00,$00,$ff,$00,$00,$00 ; T
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; U
.byte $ff,$00,$ff,$0f,$ff,$0f,$00,$00 ; V
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; W
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; X
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; Y
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; Z
Reference in New Issue Copy Permalink