mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-19 12:32:35 +00:00
258 lines
7.3 KiB
ArmAsm
258 lines
7.3 KiB
ArmAsm
; 12 bytes per char
|
|
; 0x20 - 0x5F = 32 - 96 = 64*12 = 768 bytes
|
|
|
|
; 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
|
|
|
|
|
|
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
|
|
|
|
; 4+24+37+(43*3)+3+34+(43*3)+5 = 365
|
|
|
|
put_char:
|
|
; point to font location
|
|
sec ; 2
|
|
sbc #'@' ; 2
|
|
; multiply by 8... 0..63 -> 0..511 1 1111
|
|
; shift left by 4
|
|
; 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
|
|
;============
|
|
; 4
|
|
|
|
; pla ; 4
|
|
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
|
|
;============
|
|
; 24
|
|
|
|
; 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
|
|
|
|
ldx #0 ; 2
|
|
;============
|
|
; 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
|
|
|
|
inx ; 2
|
|
cpx #3 ; 2
|
|
bne put_char_inner_loop1 ; 3
|
|
;============
|
|
; 43 * 3
|
|
|
|
; -1
|
|
iny ; 2
|
|
iny ; 2
|
|
;============
|
|
; 3
|
|
; unrolled
|
|
clc ; 2
|
|
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
|
|
|
|
inx ; 2
|
|
cpx #6 ; 2
|
|
bne put_char_inner_loop2 ; 3
|
|
;============
|
|
; 43*3
|
|
|
|
; -1
|
|
rts ; 6
|
|
;==============
|
|
; 5
|
|
|
|
|
|
;H0H ** ****** ** ** ** ** ** ** ** ** ** **
|
|
;L0H ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
;H0L ** ** ** ** ** ** ** ** **
|
|
;L0L ** ** ** ** ** ** ** ** ** ** ** **
|
|
;H1H ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
;L1H ** ** ** ** ** ** ** ** **
|
|
;H1L ** ** ** ** ** ** ** ** ** ** **
|
|
;L1L ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
|
|
.align $100
|
|
font_high:
|
|
.byte $00,$00,$00,$00,$00,$00,$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
|
|
.byte $ff,$0f,$0f,$ff,$0f,$00,$00,$00 ; F
|
|
|
|
|
|
;H0H ** ** ** ** ** ** ** ** ** ** **
|
|
;L0H ** ** ** ** ** ** ** **
|
|
;H0L ** ** ** ** ** ** ** **
|
|
;L0L ** ** ** ** ** ** ** ** ** **
|
|
;H1H ** ** ** ** ** ** ** ** ** **
|
|
;L1H ** ** ** ** ** ** ** ** **
|
|
;H1L ** ** ** ** ** ** ** ** ** **
|
|
;L1L ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
|
|
.byte $f0,$0f,$0f,$ff,$00,$ff,$00,$00 ; G
|
|
.byte $ff,$00,$ff,$ff,$0f,$ff,$00,$00 ; H
|
|
.byte $0f,$ff,$0f,$00,$ff,$00,$00,$00 ; I
|
|
.byte $00,$00,$ff,$f0,$00,$ff,$00,$00 ; J
|
|
.byte $ff,$00,$ff,$ff,$0f,$f0,$00,$00 ; K
|
|
.byte $ff,$00,$00,$ff,$00,$00,$00,$00 ; L
|
|
|
|
;H0H ** ** ** ** ** ** ** ** **
|
|
;L0H ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
;H0L ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
;L0L ** ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
;H1H ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
;L1H ** ** ** ** ** ** ** ** ** ** **
|
|
;H1L ** ** ** ** ** ** ** ** ** ** **
|
|
;L1L ** ** ** ** ** ** ** ** **
|
|
|
|
.byte $ff,$f0,$f0,$ff,$0f,$ff,$00,$00 ; M
|
|
.byte $ff,$0f,$f0,$ff,$00,$ff,$00,$00 ; N
|
|
.byte $f0,$0f,$f0,$ff,$f0,$ff,$00,$00 ; O
|
|
.byte $ff,$0f,$f0,$ff,$0f,$00,$00,$00 ; P
|
|
.byte $f0,$0f,$f0,$0f,$f0,$0f,$00,$00 ; Q
|
|
.byte $ff,$0f,$f0,$ff,$0f,$f0,$00,$00 ; R
|
|
|
|
;H0H ** ** ** ** ** ** ** ** ** ** ** ** **
|
|
;L0H ** ** ** ** ** ** ** ** ** **
|
|
;H0L ** ** ** ** ** ** ** ** ** **
|
|
;L0L ** ** ** ** ** ** ** ** ** **
|
|
;H1H ** ** ** ** ** ** ** ** ** **
|
|
;L1H ** ** ** ** ** ** ** ** ** ** ** **
|
|
;H1L ** ** ** ** ** ** ** ** ** ** **
|
|
;L1L ** ** ** ** ** ** ** ** **
|
|
|
|
.byte $f0,$0f,$0f,$00,$0f,$ff,$00,$00 ; S
|
|
.byte $0f,$ff,$0f,$00,$ff,$00,$00,$00 ; T
|
|
.byte $ff,$00,$ff,$ff,$f0,$ff,$00,$00 ; U
|
|
.byte $ff,$00,$ff,$0f,$f0,$0f,$00,$00 ; V
|
|
.byte $ff,$00,$ff,$ff,$f0,$ff,$00,$00 ; W
|
|
.byte $ff,$00,$ff,$f0,$0f,$f0,$00,$00 ; X
|
|
|
|
|
|
;H0H ** ** ** ** **
|
|
;L0H ** ** ** **
|
|
;H0L ** ** ** **
|
|
;L0L ** ** ** **
|
|
;H1H ** **
|
|
;L1H ** ** **
|
|
;H1L ** ** **
|
|
;L1L ** ** ** **
|
|
|
|
.byte $ff,$00,$ff,$00,$ff,$00,$00,$00 ; Y
|
|
.byte $0f,$0f,$ff,$f0,$00,$00,$00,$00 ; Z
|
|
.byte $00,$f0,$00,$00,$f0,$00,$00,$00 ; : ([)
|
|
|
|
|
|
|
|
.align $100
|
|
|
|
font_low: ; 2 pages later
|
|
.byte $00,$00,$00,$00,$00,$00,$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
|
|
|
|
.byte $ff,$00,$f0,$0f,$f0,$ff,$00,$00 ; G
|
|
.byte $ff,$f0,$ff,$ff,$00,$ff,$00,$00 ; H
|
|
.byte $00,$ff,$00,$f0,$ff,$f0,$00,$00 ; I
|
|
.byte $00,$00,$ff,$00,$f0,$0f,$00,$00 ; J
|
|
.byte $ff,$f0,$0f,$ff,$00,$ff,$00,$00 ; K
|
|
.byte $ff,$00,$00,$ff,$f0,$f0,$00,$00 ; L
|
|
|
|
.byte $ff,$ff,$f0,$ff,$00,$ff,$00,$00 ; M
|
|
.byte $ff,$0f,$ff,$ff,$00,$ff,$00,$00 ; N
|
|
.byte $ff,$0f,$ff,$0f,$f0,$0f,$00,$00 ; O
|
|
.byte $ff,$f0,$ff,$ff,$00,$00,$00,$00 ; P
|
|
.byte $ff,$0f,$ff,$0f,$00,$ff,$00,$00 ; Q
|
|
.byte $ff,$ff,$0f,$ff,$00,$ff,$00,$00 ; R
|
|
|
|
.byte $ff,$f0,$00,$f0,$f0,$0f,$00,$00 ; S
|
|
.byte $00,$ff,$00,$00,$ff,$00,$00,$00 ; T
|
|
.byte $ff,$00,$ff,$0f,$f0,$0f,$00,$00 ; U
|
|
.byte $ff,$00,$ff,$0f,$ff,$0f,$00,$00 ; V
|
|
.byte $ff,$00,$ff,$ff,$0f,$ff,$00,$00 ; W
|
|
.byte $0f,$f0,$0f,$ff,$00,$ff,$00,$00 ; X
|
|
|
|
.byte $ff,$f0,$ff,$00,$ff,$00,$00,$00 ; Y
|
|
.byte $00,$f0,$0f,$ff,$f0,$f0,$00,$00 ; Z
|
|
.byte $00,$0f,$00,$00,$0f,$00,$00,$00 ; : ([)
|