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

xmas2018: more fine tuning

Browse Source
This commit is contained in:
Vince Weaver 2018-12-21 10:00:33 -05:00
parent 432085f8cd
commit 980e89c315
2 changed files with 26 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
xmas_2018/ball.s
View File

@ -174,7 +174,7 @@ done_framing:
lda FRAMEH ; 3
cmp #10 ; length of song? ; 2
cmp #14 ; length of song? ; 2
beq ball_done ; 3
; -1
;===============

55
xmas_2018/merry.s
View File

@ -4,15 +4,8 @@
merry:
;===================
; init screen
;===================
; init vars
lda #15
sta XPOS
lda #38
sta YPOS
lda #0
sta FRAME
@ -26,7 +19,7 @@ merry:
; setup graphics for vapor lock
;==============================
jsr vapor_lock ; 6
; jsr vapor_lock ; 6
; vapor lock returns with us at beginning of hsync in line
; 114 (7410 cycles), so with 5070 lines to go
@ -53,15 +46,15 @@ merry:
; Try X=136 Y=14 cycles=9605
ldy #14 ; 2
meloopA:ldx #136 ; 2
meloopB:dex ; 2
bne meloopB ; 2nt/3
dey ; 2
bne meloopA ; 2nt/3
; ldy #14 ; 2
;meloopA:ldx #136 ; 2
;meloopB:dex ; 2
; bne meloopB ; 2nt/3
; dey ; 2
; bne meloopA ; 2nt/3
jmp merry_begin_loop
.align $100
; jmp merry_begin_loop
;.align $100
;================================================
@ -82,15 +75,15 @@ merry_display_loop:
; Try X=24 Y=99 cycles=12475 R5
lda $0
nop
; lda $0
; nop
ldy #99 ; 2
meloopE:ldx #24 ; 2
meloopF:dex ; 2
bne meloopF ; 2nt/3
dey ; 2
bne meloopE ; 2nt/3
; ldy #99 ; 2
;meloopE:ldx #24 ; 2
;meloopF:dex ; 2
; bne meloopF ; 2nt/3
; dey ; 2
; bne meloopE ; 2nt/3
@ -104,6 +97,8 @@ meloopF:dex ; 2
; 4540
; cli ; start music interrupt
; jsr play_music ; 6+1032
@ -121,12 +116,12 @@ meloopF:dex ; 2
; Try X=9 Y=89 cycles=4540
ldy #89 ; 2
meloop1:ldx #9 ; 2
meloop2:dex ; 2
bne meloop2 ; 2nt/3
dey ; 2
bne meloop1 ; 2nt/3
; ldy #89 ; 2
;meloop1:ldx #9 ; 2
;meloop2:dex ; 2
; bne meloop2 ; 2nt/3
; dey ; 2
; bne meloop1 ; 2nt/3
; no keypress = 10+(24) = 34