Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-19 15:30:08 +00:00
Code Issues Projects Releases Wiki Activity

lovebyte: rs update final version

Browse Source
This commit is contained in:
Vince Weaver 2024-02-04 23:33:29 -05:00
parent 082e7d0118
commit 668bfcca8b
4 changed files with 51 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
demos/lovebyte2024/rainbow_squares_128/Makefile
View File

@ -17,15 +17,14 @@ rainbow_squares.dsk: HELLO RAINBOW_SQUARES
submit: rainbow_squares.zip
rainbow_squares.zip: RAINBOW_SQUARES rainbow_squares.s file_id.diz rainbow_squares.dsk
mkdir -p lovebyte2023_rainbow_squares
cp RAINBOW_SQUARES ./lovebyte2023_rainbow_squares
cp rainbow_squares.s ./lovebyte2023_rainbow_squares
cp file_id.diz ./lovebyte2023_rainbow_squares
cp rainbow_squares.dsk ./lovebyte2023_rainbow_squares
cp monitor.txt ./lovebyte2023_rainbow_squares
cp rainbow_squares_screen.png ./lovebyte2023_rainbow_squares
cp rainbow_squares_720p.mp4 ./lovebyte2023_rainbow_squares
zip -r rainbow_squares.zip lovebyte2023_rainbow_squares
mkdir -p lovebyte2024_rainbow_squares
cp RAINBOW_SQUARES ./lovebyte2024_rainbow_squares
cp rainbow_squares.s ./lovebyte2024_rainbow_squares
cp file_id.diz ./lovebyte2024_rainbow_squares
cp rainbow_squares.dsk ./lovebyte2024_rainbow_squares
cp rainbow_squares_screen.png ./lovebyte2024_rainbow_squares
cp rainbow_squares_720p.mp4 ./lovebyte2024_rainbow_squares
zip -r rainbow_squares.zip lovebyte2024_rainbow_squares
####

18
demos/lovebyte2024/rainbow_squares_128/file_id.diz Normal file
View File

@ -0,0 +1,18 @@
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
RAINBOW_SQUARES 128
-------------------------------------
by Deater / dSr
123-byte Intro for Apple II
(Apple II has a 4-byte header)
Lovebyte 2024
Some rainbow-backed squares with
also some "sound".
This is a frozen scene from a
Sierpinski rotozoom (loosely
based on the one in Hellmood's
Memories)

5
demos/lovebyte2024/rainbow_squares_128/hello.bas
View File

@ -1,5 +1,8 @@
5 HOME
10 PRINT " RAINBOW_SQUARES"
10 PRINT " -= RAINBOW_SQUARES =-"
12 PRINT " ------------------- "
15 PRINT " FOR LOVEBYTE 2024"
17 PRINT " BY DEATER / DSR"
20 PRINT CHR$(4)"CATALOG"
25 PRINT:PRINT "PRESS ANY KEY TO 'BRUN RAINBOW_SQUARES'"
30 GET A$

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

@ -16,6 +16,7 @@ COLOR = $30
HGR_X = $E0
HGR_Y = $E2
HGR_COLOR = $E4
HGR_PAGE = $E6
;XX = $F7
XX_TH = $F8
@ -23,7 +24,7 @@ XX_TL = $F9
;YY = $FA
YY_TH = $FB
YY_TL = $FC
FRAME = $FD
WAIT_TIME= $FD
SAVED = $FF
; Soft switches
@ -46,7 +47,6 @@ WAIT = $FCA8 ; delay 1/2(26+27A+5A^2) us
;================================
rainbow_squares:
jsr HGR ; set FULLGR, sets A=0,Y=0
sta FRAME ; init frame
rainbow_outer:
; Y=0 from both paths
@ -109,7 +109,7 @@ rainbow_xloop:
beq white
black:
bit $C030
bit $C030 ; make some noise
lda #00 ; black
.byte $2C ; bit trick
white:
@ -132,7 +132,8 @@ white:
ldx HGR_X
inx ; XX
cpx #255
; cpx #255
; bne rainbow_xloop
bne rainbow_xloop
iny ; YY
@ -142,39 +143,39 @@ white:
; inc T
inc T_L
; clc
; lda T_L
;blah_smc:
; adc #1
; sta T_L
; bcc no_carry
; inc T_H
;no_carry:
; done frame
; only draw two frames
inc FRAME
lda FRAME
cmp #2
beq really_done
lda HGR_PAGE ; see if on page2 yet
cmp #$40
beq really_done ; if so, skip to end
jsr HGR2
; A/Y=0
beq rainbow_outer ; what can we branch on?
beq rainbow_outer ;
reset_wait:
lda #$D0
sta WAIT_TIME
really_done:
bit PAGE1
lda #200
lda WAIT_TIME
jsr WAIT
inc WAIT_TIME
beq reset_wait
bit PAGE2
lda #200
lda WAIT_TIME
jsr WAIT
beq really_done ; bra