Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-16 23:20:43 +00:00
Code Issues Projects Releases Wiki Activity

gr: thinking: have it scrolling

Browse Source 
what to do about bottom of screen
This commit is contained in:
Vince Weaver 2021-07-01 13:57:10 -04:00
parent 66d1a39722
commit 845bdad1b4
1 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
graphics/gr/thinking/thinking.s
View File

@ -16,6 +16,7 @@ thinking:
jsr SETGR ; set lo-res 40x40 mode
; A=$D0 afterward
big_loop:
; COL value doesn't matter?
@ -37,6 +38,11 @@ yloop:
txa
jsr GBASCALC ; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
lda GBASH
draw_page_smc:
adc #0
sta GBASH
lda COL
and #$7
tay
@ -56,8 +62,6 @@ xloop:
inc COL
inc XSTART
inc XSTART
dec XSTOP
dec XSTOP
inc YSTART
@ -66,6 +70,34 @@ xloop:
cmp #10
bne box_loop
;==========================
; done drawing rainbow box
;==========================
flip_pages:
ldy #1
lda draw_page_smc+1 ; DRAW_PAGE
bne done_page
dey
done_page:
ldx PAGE1,Y ; set display page to PAGE1 or PAGE2
eor #$4 ; flip draw page between $400/$800
sta draw_page_smc+1 ; DRAW_PAGE
lda #255
jsr WAIT
;===================
; increment color
; after loop we are +10
; so -1 actually means increment 1 (because we mod 8 it)
dec COL
jmp big_loop
;0 1 2 3 3