Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-06 18:30:12 +00:00
Code Issues Projects Releases Wiki Activity

lovelbyte: rs: 121 bytes

Browse Source
This commit is contained in:
Vince Weaver 2024-02-04 23:06:19 -05:00
parent 23d75504ee
commit 082e7d0118
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
demos/lovebyte2024/rainbow_squares_128/rainbow_squares.s
View File

@ -65,7 +65,7 @@ rainbow_yloop:
adc T_L adc T_L
sta YY_TL sta YY_TL
lda YY_TH lda YY_TH
adc T_H adc #$A0 ; T_H
sta YY_TH sta YY_TH
; reset XX to 0 ; reset XX to 0
@ -92,7 +92,7 @@ rainbow_xloop:
adc T_L adc T_L
sta XX_TL sta XX_TL
lda XX_TH lda XX_TH
adc T_H adc #$A0 ; T_H
sta XX_TH sta XX_TH
@ -163,13 +163,10 @@ white:
jsr HGR2 jsr HGR2
; A/Y=0 ; A/Y=0
jmp rainbow_outer ; what can we branch on? beq rainbow_outer ; what can we branch on?
really_done: really_done:
lda #200
jsr WAIT
bit PAGE1 bit PAGE1
lda #200 lda #200
@ -177,10 +174,13 @@ really_done:
bit PAGE2 bit PAGE2
jmp really_done lda #200
jsr WAIT
beq really_done ; bra
T_L: .byte $A0 T_L: .byte $A0
T_H: .byte $A0