mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-29 08:55:10 +00:00
gr: thinking: have it scrolling
what to do about bottom of screen
This commit is contained in:
parent
66d1a39722
commit
845bdad1b4
@ -16,6 +16,7 @@ thinking:
|
|||||||
jsr SETGR ; set lo-res 40x40 mode
|
jsr SETGR ; set lo-res 40x40 mode
|
||||||
; A=$D0 afterward
|
; A=$D0 afterward
|
||||||
|
|
||||||
|
big_loop:
|
||||||
|
|
||||||
; COL value doesn't matter?
|
; COL value doesn't matter?
|
||||||
|
|
||||||
@ -37,6 +38,11 @@ yloop:
|
|||||||
txa
|
txa
|
||||||
jsr GBASCALC ; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
|
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
|
lda COL
|
||||||
and #$7
|
and #$7
|
||||||
tay
|
tay
|
||||||
@ -56,8 +62,6 @@ xloop:
|
|||||||
inc COL
|
inc COL
|
||||||
|
|
||||||
inc XSTART
|
inc XSTART
|
||||||
inc XSTART
|
|
||||||
dec XSTOP
|
|
||||||
dec XSTOP
|
dec XSTOP
|
||||||
|
|
||||||
inc YSTART
|
inc YSTART
|
||||||
@ -66,6 +70,34 @@ xloop:
|
|||||||
cmp #10
|
cmp #10
|
||||||
bne box_loop
|
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
|
;0 1 2 3 3
|
||||||
|
Loading…
Reference in New Issue
Block a user