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

double: update effect

Browse Source
This commit is contained in:
Vince Weaver 2023-05-14 01:44:14 -04:00
parent 7409f2f5a9
commit cd72e91c0d
3 changed files with 62 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vaporlock/doubledouble/Makefile
View File

@ -31,7 +31,7 @@ double.o: double.s \
interrupt_handler.s pt3_lib_mockingboard_patch.s \
wait_a_bit.s wait.s pt3_lib_init.s \
music/fighting.zx02 \
effect_static.s \
effect_static.s effect_slide.s \
graphics/sworg_hgr.hgr.zx02 \
graphics/sworg_dhgr.aux.zx02 \
graphics/sworg_dhgr.bin.zx02 \

4
vaporlock/doubledouble/double.s
View File

@ -434,7 +434,8 @@ vblank_smc:
jsr $ffff
.include "effect_static.s"
; .include "effect_static.s"
.include "effect_slide.s"
jmp double_loop ; 3
@ -473,6 +474,7 @@ wait_until_keypress:
lda KEYBOARD
bpl wait_until_keypress
bit KEYRESET
delay_12:
rts

58
vaporlock/doubledouble/effect_slide.s Normal file
View File

@ -0,0 +1,58 @@
; goal
;
; 192 lines
; window is 32 lines
; so 0...current
; current...current+32
; current+32...192
; double hi-res / double lo-res
; test, 100 lines of double-hires
; 100*65 = 6500
; 2+ X*(12+2+3) - 1
ldx #100 ; 2
aloop:
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
dex ; 2
bne aloop ; 2/3
sta LORES
sta PAGE1
sta SET80COL
sta CLRAN3
ldx #32 ; 2
bloop:
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
dex ; 2
bne bloop ; 2/3
bit HIRES
ldx #60 ; 2
cloop:
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
jsr delay_12 ; 12
dex ; 2
bne cloop ; 2/3