Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-29 00:31:52 +00:00
Code Issues Projects Releases Wiki Activity

driven: have large font going

Browse Source
This commit is contained in:
Vince Weaver 2024-11-05 14:55:04 -05:00
parent 549918e8a3
commit 0f0f6c947a
3 changed files with 101 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
demos/driven/part05_atrus/Makefile
View File

@ -14,13 +14,17 @@ atrus.o: atrus.s \
../zp.inc ../hardware.inc \
graphics/atrus03_iipix.hgr.zx02 \
graphics/atrus10_iipix.hgr.zx02 \
graphics/atrus11_iipix.hgr.zx02
graphics/atrus11_iipix.hgr.zx02 \
font/large_font.inc
ca65 -o atrus.o atrus.s -l atrus.lst
###
graphics/tree01.gr.zx02:
font/large_font.inc:
cd font && make
graphics/atrus03_iipix.hgr.zx02:
cd graphics && make
###

94
demos/driven/part05_atrus/atrus.s
View File

@ -53,6 +53,23 @@ atrus_opener:
;=================================
; scroller
;=================================
bit FULLGR
lda #<atrus10_graphics
sta zx_src_l+1
lda #>atrus10_graphics
sta zx_src_h+1
lda #$40 ; on both pages
jsr zx02_full_decomp
jsr do_scroll
jsr wait_until_keypress
;=================================
; book start
;=================================
lda #<atrus10_graphics
sta zx_src_l+1
@ -61,7 +78,6 @@ atrus_opener:
lda #$20
jsr zx02_full_decomp
jsr wait_until_keypress
;=================================
@ -109,3 +125,79 @@ atrus_text:
.include "plasma.s"
.include "font/large_font.inc"
do_scroll:
ldy #0
sty SCROLL_OFFSET ; FIXME: SCROLL_OFFSET
do_scroll_loop:
ldx SCROLL_OFFSET
lda scroll_text,X
sec
sbc #'@'
asl
tax
do_scroll_col_loop:
; row1
lda large_font_row0,X
sta $22D0,Y
; row2
lda large_font_row1,X
sta $26D0,Y
; row3
lda large_font_row2,X
sta $2AD0,Y
; row4
lda large_font_row3,X
sta $2ED0,Y
; row5
lda large_font_row4,X
sta $32D0,Y
; row6
lda large_font_row5,X
sta $36D0,Y
; row7
lda large_font_row6,X
sta $3AD0,Y
; row8
lda large_font_row7,X
sta $3ED0,Y
; row9
lda large_font_row8,X
sta $2350,Y
; row10
lda large_font_row9,X
sta $2750,Y
; row11
lda large_font_row10,X
sta $2B50,Y
; row12
lda large_font_row11,X
sta $2F50,Y
; row13
lda large_font_row12,X
sta $3350,Y
; row14
lda large_font_row13,X
sta $3750,Y
; row15
lda large_font_row14,X
sta $3B50,Y
; row16
lda large_font_row15,X
sta $3F50,Y
inx
iny
tya
and #1
bne do_scroll_col_loop
inc SCROLL_OFFSET
cpy #40
bne do_scroll_loop
rts
scroll_text:
.byte "THE@QUICK@BROWN@FOX@JUMPED@OVER@THE@LAZY@DOG"

2
demos/driven/zp.inc
View File

@ -170,7 +170,9 @@ BACKUP_OUTL = $F2
BACKUP_OUTH = $F3
GUITAR_FRAME = $F4
; Atrus
SCROLL_OFFSET = $F0
; PLASMACUBE
;OUT1 = $F0