Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-14 13:33:48 +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 lda FRAMEH ; 3
cmp #10 ; length of song? ; 2 cmp #14 ; length of song? ; 2
beq ball_done ; 3 beq ball_done ; 3
; -1 ; -1
;=============== ;===============

55
xmas_2018/merry.s
View File

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