mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-05-31 21:41:32 +00:00
bubble: make configurable
This commit is contained in:
parent
472df21766
commit
a72c6e4aa9
|
@ -9,12 +9,13 @@
|
||||||
; originally was working off the BASIC code posted on the pouet forum
|
; originally was working off the BASIC code posted on the pouet forum
|
||||||
; original effect by yuruyrau on twitter
|
; original effect by yuruyrau on twitter
|
||||||
|
|
||||||
|
; 2304 bytes -- first working version
|
||||||
|
|
||||||
|
|
||||||
; soft-switches
|
; soft-switches
|
||||||
|
|
||||||
;KEYPRESS = $C000
|
KEYPRESS = $C000
|
||||||
;KEYRESET = $C010
|
KEYRESET = $C010
|
||||||
PAGE1 = $C054
|
PAGE1 = $C054
|
||||||
PAGE2 = $C055
|
PAGE2 = $C055
|
||||||
|
|
||||||
|
@ -47,7 +48,7 @@ HGR_PAGE = $E6
|
||||||
; const
|
; const
|
||||||
|
|
||||||
;NUM = 32
|
;NUM = 32
|
||||||
NUM = 24
|
;NUM = 24
|
||||||
|
|
||||||
bubble:
|
bubble:
|
||||||
|
|
||||||
|
@ -98,11 +99,14 @@ next_frame:
|
||||||
sta is1_smc+1
|
sta is1_smc+1
|
||||||
sta is2_smc+1
|
sta is2_smc+1
|
||||||
|
|
||||||
|
num1_smc:
|
||||||
lda #24 ; 40
|
lda #24 ; 40
|
||||||
sta I
|
sta I
|
||||||
|
|
||||||
i_loop:
|
i_loop:
|
||||||
|
num2_smc:
|
||||||
lda #24 ; 200
|
lda #24 ; 200
|
||||||
|
|
||||||
sta J
|
sta J
|
||||||
j_loop:
|
j_loop:
|
||||||
ldx U
|
ldx U
|
||||||
|
@ -203,6 +207,35 @@ done_i:
|
||||||
inc T
|
inc T
|
||||||
|
|
||||||
end:
|
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
|
; flip pages
|
||||||
|
|
||||||
; if $20 (draw PAGE1) draw PAGE2, SHOW page1
|
; if $20 (draw PAGE1) draw PAGE2, SHOW page1
|
||||||
|
|
|
@ -1,2 +1,13 @@
|
||||||
5 HOME
|
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"
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user