Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-06 14:30:18 +00:00
Code Issues Projects Releases Wiki Activity

xmas2018: more ball scroll work

Browse Source
This commit is contained in:
Vince Weaver 2018-12-21 11:49:44 -05:00
parent 87224c4500
commit 5a438ee57e
2 changed files with 69 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
xmas_2018/ball.s
View File

@ -196,22 +196,20 @@ done_framing:
do_something_else: do_something_else:
; -1 ; -1
jsr do_reflection ; 6+36 jsr do_reflection ; 6+126
; 1842 (+1 incoming) ; 1842 (+1 incoming)
; -3 jmp ; -3 jmp
; -42 do_reflection ; -132 do_reflection
;=================== ;===================
; 1797 ; 1707
; Try X=10 Y=32 cycles=1793 R4 ; Try X=84 Y=4 cycles=1705 R2
nop
nop nop
ldy #32 ; 2 ldy #4 ; 2
baloopQ:ldx #10 ; 2 baloopQ:ldx #84 ; 2
baloopR:dex ; 2 baloopR:dex ; 2
bne baloopR ; 2nt/3 bne baloopR ; 2nt/3
dey ; 2 dey ; 2
@ -250,9 +248,12 @@ ball_done:
;====================================== ;======================================
; 30 + 6 = 36 ; 120 + 6 = 126
do_reflection: do_reflection:
;=============
; LORES 20x40 -> HIRES 126x156
lda $664 ; 4 lda $664 ; 4
; if 0 make 0, otherwise make FF ; if 0 make 0, otherwise make FF
@ -269,4 +270,61 @@ do_reflection:
;=========== ;===========
; 30 ; 30
;=============
; LORES 20x42 -> HIRES 126x152
lda $6E4 ; 4
; if 0 make 0, otherwise make FF
cmp #1 ; 2
lda #$00 ; 2
adc #$ff ; 2
eor #$ff ; 2
and #$ff ; 2
sta $5150+(126/7) ; 4
sta $5550+(126/7) ; 4
sta $5950+(126/7) ; 4
sta $5d50+(126/7) ; 4
;===========
; 30
;=============
; LORES 20x44 -> HIRES 126x148
lda $764 ; 4
; if 0 make 0, otherwise make FF
cmp #1 ; 2
lda #$00 ; 2
adc #$ff ; 2
eor #$ff ; 2
and #$ff ; 2
sta $41d0+(126/7) ; 4
sta $45d0+(126/7) ; 4
sta $49d0+(126/7) ; 4
sta $4dd0+(126/7) ; 4
;===========
; 30
;=============
; LORES 20x46 -> HIRES 126x144
lda $7E4 ; 4
; if 0 make 0, otherwise make FF
cmp #1 ; 2
lda #$00 ; 2
adc #$ff ; 2
eor #$ff ; 2
and #$ff ; 2
sta $4150+(126/7) ; 4
sta $4550+(126/7) ; 4
sta $4950+(126/7) ; 4
sta $4d50+(126/7) ; 4
;===========
; 30
rts ; 6 rts ; 6

4
xmas_2018/xmas2018.s
View File

@ -179,16 +179,16 @@ game_over_man:
; as they are called during cycle-counting ; as they are called during cycle-counting
.align $100 .align $100
.include "wreath.s" .include "wreath.s"
.include "ball.s"
.include "gr_putsprite.s" .include "gr_putsprite.s"
.include "gr_offsets.s" .include "gr_offsets.s"
.include "vapor_lock.s"
.include "gr_fast_clear.s" .include "gr_fast_clear.s"
.include "vapor_lock.s"
.align $100 .align $100
.include "play_music.s" .include "play_music.s"
.include "delay_a.s" .include "delay_a.s"
.include "gr_scroll.s" .include "gr_scroll.s"
.include "mockingboard.s" .include "mockingboard.s"
.include "ball.s"
; Things here alignment doesn't matter ; Things here alignment doesn't matter