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

megademo: arrival: finish animating heart

Browse Source
This commit is contained in:
Vince Weaver 2018-10-30 00:15:34 -04:00
parent 6de8d73824
commit ef253c7749
1 changed files with 41 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
megademo/arrival.s
View File

@ -6,8 +6,8 @@
;TFV_X = 0 ;TFV_X = 0
;TFV_Y = 1 ;TFV_Y = 1
TFG_X = 2 TFG_X = 2
HEART_X = 3 ;HEART_X = 3
HEART_Y = 4 ;HEART_Y = 4
arriving_there: arriving_there:
@ -32,11 +32,11 @@ setup_arrival:
lda #8 lda #8
sta DRAW_PAGE sta DRAW_PAGE
lda #14 ; lda #14
sta HEART_X ; sta HEART_X
lda #20 ; lda #20
sta HEART_Y ; sta HEART_Y
lda #22 lda #22
sta TFG_X sta TFG_X
@ -169,7 +169,7 @@ ar_no_carry:
;================= ;=================
lda FRAMEH ; 3 lda FRAMEH ; 3
cmp #45 ; 2 cmp #30 ; 2
bne ar_not_done ; 3 bne ar_not_done ; 3
jmp ar_all_done jmp ar_all_done
ar_not_done: ar_not_done:
@ -293,7 +293,7 @@ draw_the_field:
;=============================== ;===============================
; STATE0 = draw nothing ; STATE0 = draw nothing
; STATE2 = draw open door + walking TFV+susie ; STATE2 = draw open door + walking TFV+susie
; STATE4 = draw TFV on bird ; STATE4 = draw heart
; Set up jump table that runs same speed on 6502 and 65c02 ; Set up jump table that runs same speed on 6502 and 65c02
ldy STATE ; 3 ldy STATE ; 3
@ -559,29 +559,33 @@ ar_draw_wfall:
jmp ar_back_from_jumptable ; 3 jmp ar_back_from_jumptable ; 3
.align $100
;====================================================== ;======================================================
; State4 : heart ; State4 : heart
;====================================================== ;======================================================
; 6237 ; 6237
; -464 (draw heart) ; -473 (draw heart)
; -217 (erase heart) ; -217 (erase heart)
; -3 = return ; -3 = return
;========== ;==========
; 5553 ; 5544
ar_state4: ar_state4:
jsr erase_heart ; 6+211 jsr erase_heart ; 6+211
lda HEART_X ; 3 lda FRAMEH ; 3
and #$f ; 2
tax ; 2
lda ar_heart_lookup_x,x ; 4
sta XPOS ; 3 sta XPOS ; 3
lda HEART_Y ; 3
lda ar_heart_lookup_y,x ; 4
sta YPOS ; 3 sta YPOS ; 3
; draw fs standing ; draw heart
lda #>heart_sprite ; 2 lda #>heart_sprite ; 2
sta INH ; 3 sta INH ; 3
lda #<heart_sprite ; 2 lda #<heart_sprite ; 2
@ -589,19 +593,16 @@ ar_state4:
jsr put_sprite ; 6 jsr put_sprite ; 6
;========= ;=========
; 28 + 436 = 464 ; 37 + 436 = 473
ar_done_heart: ar_done_heart:
; delay ; delay
; Try X=47 Y=23 cycles=5544
; Try X=21 Y=50 cycles=5551 R2 ldy #23 ; 2
arloopV:ldx #47 ; 2
nop
ldy #50 ; 2
arloopV:ldx #21 ; 2
arloopW:dex ; 2 arloopW:dex ; 2
bne arloopW ; 2nt/3 bne arloopW ; 2nt/3
dey ; 2 dey ; 2
@ -609,17 +610,6 @@ arloopW:dex ; 2
jmp ar_back_from_jumptable jmp ar_back_from_jumptable
heart_path:
.byte $14,$20
.byte $14,$20
.byte $13,$18
.byte $13,$18
.byte $14,$16
.byte $15,$16
; .byte $15,$14
; .byte $14,$14
;====================== ;======================
; erase field ; erase field
@ -669,3 +659,22 @@ heart_loop:
; -1 ; -1
rts ; 6 rts ; 6
ar_heart_lookup_x:
.byte 14,14,13,13,14,14,14,14
; .byte 14,14,15,15,14,14,14,14
.byte 14,14,14,14,14,14,14,14
ar_heart_lookup_y: ; HEART_Y
.byte 20,20,18,18,16,16,16,16
.byte 16,16,16,16,16,16,16,16
heart_path:
; .byte $14,$20
; .byte $14,$20
; .byte $13,$18
; .byte $13,$18
; .byte $14,$16
; .byte $15,$16
; .byte $15,$14
; .byte $14,$14