bubble: make configurable

This commit is contained in:
Vince Weaver 2024-02-19 00:28:37 -05:00
parent 472df21766
commit a72c6e4aa9
2 changed files with 48 additions and 4 deletions

View File

@ -9,12 +9,13 @@
; originally was working off the BASIC code posted on the pouet forum
; original effect by yuruyrau on twitter
; 2304 bytes -- first working version
; soft-switches
;KEYPRESS = $C000
;KEYRESET = $C010
KEYPRESS = $C000
KEYRESET = $C010
PAGE1 = $C054
PAGE2 = $C055
@ -47,7 +48,7 @@ HGR_PAGE = $E6
; const
;NUM = 32
NUM = 24
;NUM = 24
bubble:
@ -98,11 +99,14 @@ next_frame:
sta is1_smc+1
sta is2_smc+1
num1_smc:
lda #24 ; 40
sta I
i_loop:
num2_smc:
lda #24 ; 200
sta J
j_loop:
ldx U
@ -203,6 +207,35 @@ done_i:
inc T
end:
lda KEYPRESS
bpl flip_pages
bit KEYRESET
; 0110 -> 0100
and #$5f ; to handle lowercase too...
cmp #'A'
bne check_z
inc num1_smc+1
jmp done_keys
check_z:
cmp #'Z'
bne check_j
dec num1_smc+1
jmp done_keys
check_j:
cmp #'J'
bne check_m
inc num2_smc+1
jmp done_keys
check_m:
cmp #'M'
bne done_keys
dec num2_smc+1
done_keys:
flip_pages:
; flip pages
; if $20 (draw PAGE1) draw PAGE2, SHOW page1

View File

@ -1,2 +1,13 @@
5 HOME
10 PRINT CHR$(4);"CATALOG"
10 PRINT " BUBBLE UNIVERSE EXPERIMENTS"
15 PRINT " BY DEATER / FAST CODE BY SERATO_FIG"
20 PRINT
25 PRINT "THIS VERSION YOU CAN CHANGE"
27 PRINT "PARAMETERS ON THE FLY"
28 PRINT "+ TRY PRESSING A/Z TO INC/DEC I"
29 PRINT "+ TRY PRESSING J/M TO INC/DEC J"
30 PRINT:PRINT "PRESS ANY KEY TO START"
40 GET A$
50 IF A$="Q" THEN END
60 PRINT:PRINT CHR$(4)"BRUN BUBBLE_C64"