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

mode7_demo: paramaterize scrolling code

Browse Source
This commit is contained in:
Vince Weaver 2017-12-17 23:40:52 -05:00
parent f0a2779fe8
commit a3c4beea48
2 changed files with 84 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
asm_routines/hlin_clearscreen.s
View File

@ -24,6 +24,31 @@ clear_screens:
rts rts
clear_screens_notext:
;===================================
; Clear top/bottom of page 0
;===================================
lda #$0
sta DRAW_PAGE
jsr clear_top
lda #$0
jsr clear_bottom_a
;===================================
; Clear top/bottom of page 1
;===================================
lda #$4
sta DRAW_PAGE
jsr clear_top
lda #$0
jsr clear_bottom_a
rts
;================================ ;================================
; hlin_setup ; hlin_setup
;================================ ;================================
@ -156,7 +181,7 @@ clear_top_a:
sta COLOR sta COLOR
; VLIN Y, V2 AT A ; HLIN Y, V2 AT A
lda #40 lda #40
sta V2 sta V2
@ -177,8 +202,14 @@ clear_top_loop:
rts rts
;=============================
; clear_bottom
;=============================
clear_bottom: clear_bottom:
lda #$a0 ; NORMAL space lda #$a0 ; NORMAL space
clear_bottom_a:
sta COLOR sta COLOR
lda #40 lda #40

78
mode7_demo/mode7_demo.s
View File

@ -4,8 +4,9 @@
; Clear screen and setup graphics ; Clear screen and setup graphics
;================================ ;================================
jsr clear_screens ; clear top/bottom of page 0/1
jsr set_gr_page0 jsr set_gr_page0
bit FULLGR
jsr clear_screens_notext ; clear top/bottom of page 0/1
lda #$4 lda #$4
sta DRAW_PAGE sta DRAW_PAGE
@ -44,7 +45,18 @@ demo_loop:
; lda #255 ; lda #255
; jsr WAIT ; jsr WAIT
jsr scroll
lda #>deater_scroll
sta INH
lda #<deater_scroll
sta INL
; lda #10
lda #40
sta CV
jsr gr_scroll
;============= ;=============
; Fade out ; Fade out
@ -74,48 +86,62 @@ scroll_row2 EQU $8B00
scroll_row3 EQU $8C00 scroll_row3 EQU $8C00
scroll_row4 EQU $8D00 scroll_row4 EQU $8D00
SCROLL_LENGTH EQU $E6 SCROLL_LENGTH EQU $61
OFFSET EQU $62
;========================
; scroll some text
;========================
; RLE compressed data in INL/INH
; CV is Y position to display at
scroll: gr_scroll:
lda #0 lda #0
sta ANGLE sta OFFSET
;======================= ;=======================
; decompress scroll text ; decompress scroll text
;======================= ;=======================
lda #>deater_scroll
sta INH
lda #<deater_scroll
sta INL
jsr decompress_scroll jsr decompress_scroll
scroll_loop: scroll_loop:
ldx #0 ldx #0
ldy ANGLE
lda DISP_PAGE ldy CV
beq draw_page2 lsr
lda #4 lda gr_offsets,Y ; get position
sta sm1+1
lda gr_offsets+2,Y ; get position
sta sm2+1
lda gr_offsets+4,Y ; get position
sta sm3+1
lda gr_offsets+6,Y ; get position
sta sm4+1
iny
clc
lda gr_offsets,Y ; get position
adc DRAW_PAGE
sta sm1+2 sta sm1+2
lda gr_offsets+2,Y ; get position
adc DRAW_PAGE
sta sm2+2 sta sm2+2
lda #5 lda gr_offsets+4,Y ; get position
adc DRAW_PAGE
sta sm3+2 sta sm3+2
lda gr_offsets+6,Y ; get position
adc DRAW_PAGE
sta sm4+2 sta sm4+2
jmp draw_done
draw_page2: ldy OFFSET
lda #8
sta sm1+2
sta sm2+2
lda #9
sta sm3+2
sta sm4+2
draw_done:
draw_loop: draw_loop:
@ -158,16 +184,16 @@ sm4:
; loop forever ; loop forever
;================== ;==================
clc clc
lda ANGLE lda OFFSET
adc #40 adc #40
cmp SCROLL_LENGTH cmp SCROLL_LENGTH
bne blah bne blah
lda #0 lda #0
sta ANGLE sta OFFSET
jmp scroll_loop jmp scroll_loop
blah: blah:
inc ANGLE inc OFFSET
jmp scroll_loop ; 3 jmp scroll_loop ; 3