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

vapor_lock: shorten the code a bit

Browse Source
This commit is contained in:
Vince Weaver 2018-09-19 21:18:11 -04:00
parent fad3c48c34
commit fa2eb6cef3
1 changed files with 12 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
fireworks/vapor_lock.s
View File

@ -6,53 +6,22 @@ vapor_lock:
; Clear Page0
lda #$0
sta DRAW_PAGE
lda #$ff ; full screen dark green $44
lda #$ff ; full screen white $ff
jsr clear_gr
lda #$aa
ldy #24
jsr clear_page_loop ; make top half red $11
jsr clear_page_loop ; make top half grey2 $aa
ldy #00 ; 0
sty $728+20
iny ; 1
sty $728+21
iny ; 2
sty $728+22
iny ; 3
sty $728+23
iny ; 4
sty $728+24
iny ; 5
sty $728+25
iny ; 6
sty $728+26
iny ; 7
sty $728+27
iny ; 8
sty $728+28
iny ; 9
sty $728+29
iny ; a
sty $728+30
iny ; b
sty $728+31
iny ; c
sty $728+32
iny ; d
sty $728+33
iny ; e
sty $728+34
iny ; f
sty $728+35
iny ; 10
sty $728+36
; set up a rainbow to aid in exact lock
ldy #00
rainbow_loop:
tya
sta $728+20,Y
iny
sty $728+37
iny
sty $728+38
iny
sty $728+39
cpy #20
bne rainbow_loop
;btt:
; jmp btt
@ -232,8 +201,8 @@ qloop:
inc $0
inc $0
inc $0
inc $0
inc $0
; inc $0
; inc $0
lda $C051