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

intro: ootw: more dna work

Browse Source
This commit is contained in:
Vince Weaver 2019-02-17 14:15:15 -05:00
parent b9fc2e310b
commit 21cd9fffa1
1 changed files with 44 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
ootw/intro.s
View File

@ -699,9 +699,9 @@ scanner:
; small circle / | - / nothing (pause) ; small circle / | - / nothing (pause)
; big circle / | - / nothing (pause) ; big circle / | - / nothing (pause)
jsr gr_copy_to_current_40x40 ; jsr gr_copy_to_current_40x40
jsr draw_dna ; jsr draw_dna
jsr page_flip ; jsr page_flip
; approx one rotation until "Good evening" ; approx one rotation until "Good evening"
; two rotation, then switch to key + Ferrari ; two rotation, then switch to key + Ferrari
@ -1230,6 +1230,11 @@ run_sequence_static:
ldy #0 ; init ldy #0 ; init
run_sequence_static_loop: run_sequence_static_loop:
lda (INTRO_LOOPL),Y ; draw DNA
sta DNA_OUT
iny
lda (INTRO_LOOPL),Y ; pause for time lda (INTRO_LOOPL),Y ; pause for time
beq run_sequence_static_done beq run_sequence_static_done
tax tax
@ -1269,6 +1274,12 @@ static_loop:
jsr gr_overlay_40x40_noload jsr gr_overlay_40x40_noload
lda DNA_OUT
beq no_dna
jsr draw_dna
no_dna:
jsr page_flip jsr page_flip
ldy INTRO_LOOPER ldy INTRO_LOOPER
@ -1573,18 +1584,22 @@ scanning_sequence:
; AI sequence ; AI sequence
ai_sequence: ai_sequence:
.byte 50 .byte 0,50 ; pause at start, no dna
.word ai01_rle ; slices .word ai01_rle ; slices
.byte 50
.word ai02_rle ; slices_zoom
.byte 50
.word ai03_rle ; little circle
.byte 50
.word ai04_rle ; big circle
.byte 0
; .word ai05_rle ; key .byte 0,50 ; pause at start, no dna
; .byte 50 .word ai02_rle ; slices_zoom
.byte 0,50 ; pasue as start, no dna
.word ai03_rle ; little circle
.byte 0,50 ; pause at start, no dna
.word ai04_rle ; big circle
.byte 1,100 ; pause longer, yes dna
.word ai05_rle ; key
.byte 0,0
; .word ai05_rle ; key ; .word ai05_rle ; key
; .byte 0 ; .byte 0
@ -1718,8 +1733,11 @@ draw_dna_loop:
lda #26 lda #26
sta XPOS sta XPOS
lda DNA_PROGRESS lda DNA_COUNT ; 0, 4, 8, 12, 16....
; lsr lsr
clc
adc DNA_PROGRESS ; 0,2,4,6,8,...
and #$e and #$e
tax tax
@ -1738,6 +1756,9 @@ draw_dna_loop:
cmp #28 cmp #28
bne draw_dna_loop bne draw_dna_loop
inc DNA_PROGRESS
inc DNA_PROGRESS
rts rts
dna_list: dna_list:
@ -1748,6 +1769,7 @@ dna_list:
.word dna4_sprite .word dna4_sprite
.word dna5_sprite .word dna5_sprite
.word dna6_sprite .word dna6_sprite
.word dna7_sprite
dna0_sprite: dna0_sprite:
.byte $7,$2 .byte $7,$2
@ -1783,3 +1805,8 @@ dna6_sprite:
.byte $7,$2 .byte $7,$2
.byte $CC,$40,$40,$40,$40,$40,$66 .byte $CC,$40,$40,$40,$40,$40,$66
.byte $0C,$00,$00,$00,$00,$00,$06 .byte $0C,$00,$00,$00,$00,$00,$06
dna7_sprite:
.byte $7,$2
.byte $66,$40,$40,$40,$40,$40,$cc
.byte $06,$00,$00,$00,$00,$00,$0c