apple2_hgr_font_tutorial/asm/asciitable.s
2016-01-27 23:26:52 -08:00

61 lines
1.4 KiB
ArmAsm

__MAIN = $1080
.include "dos33.inc"
.include "ca65.inc"
KEYBOARD = $C000
KEYSTROBE = $C010
TXTCLR = $C050 ; Mode Graphics
MIXCLR = $C052 ; Full screen
MIXSET = $C053 ; Split screen
PAGE1 = $C054
HIRES = $C057 ; Mode HGR
HgrLo = $F5
HgrHi = $F6
glyph = $FE
DrawChar = $310
HgrLoY = $3A0
HgrHiY = $3B8
AsciiTable
BIT PAGE1 ; Page 1
BIT TXTCLR ; not text, but graphics
BIT MIXSET ; Split screen text/graphics
BIT HIRES ; HGR, no GR
LDA #0 ; glyph=0
STA glyph ; save which glyph to draw
LDY #8 ; Row=8
_RowN
LDA HgrLoY,Y
STA HgrLo ; Screen Address Lo
LDA HgrHiY,Y
ORA #$20 ; HGR Page 1
STA HgrHi ; Screen Address Hi
LDY #00 ; Y = col
_Glyph
LDA glyph ; A = glyph
JSR DrawChar
INC glyph ; yes, ++glyph
LDA glyph ;
CMP #$20 ; done 16 chars?
BEQ _Row1
CMP #$40
BEQ _Row2
CMP #$60
BEQ _Row3
CMP #$80
BNE _Glyph ;
_Done RTS ; Optimization: BEQ _Row4
_Row1 LDY #9
BNE _RowN
_Row2 LDY #10
BNE _RowN
_Row3 LDY #11
BNE _RowN
__END: