mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-29 08:55:10 +00:00
double: add in static effect
This commit is contained in:
parent
2b001d1134
commit
670f252ef9
@ -263,7 +263,9 @@ no_music_for_you:
|
|||||||
vblank_smc:
|
vblank_smc:
|
||||||
jsr $ffff
|
jsr $ffff
|
||||||
|
|
||||||
jsr effect_dhgr_dgr
|
jsr effect_static
|
||||||
|
|
||||||
|
; jsr effect_dhgr_dgr
|
||||||
|
|
||||||
jmp double_loop ; 3
|
jmp double_loop ; 3
|
||||||
|
|
||||||
@ -275,38 +277,55 @@ vblank_smc:
|
|||||||
|
|
||||||
.include "vblank.s"
|
.include "vblank.s"
|
||||||
|
|
||||||
.include "effect_dhgr_dgr.s"
|
; actually want 1524-12 = 1512 (6 each for jsr/rts)
|
||||||
|
|
||||||
; actually want 1552-12 (6 each for jsr/rts)
|
|
||||||
; 1540
|
|
||||||
; Try X=15 Y=19 cycles=1540
|
|
||||||
; 1532
|
; 1532
|
||||||
; Try X=1 Y=139 cycles=1530
|
; Try X=1 Y=139 cycles=1530
|
||||||
|
; 1524
|
||||||
|
; Try X=5 Y=49 cycles=1520
|
||||||
|
; 1512
|
||||||
|
; Try X=22 Y=13 cycles=1509
|
||||||
|
|
||||||
|
delay_1560:
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
delay_1552:
|
delay_1552:
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
delay_1548:
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
delay_1544:
|
||||||
|
|
||||||
nop
|
nop
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ldy #139 ; 2
|
ldy #139 ; 2
|
||||||
loop5: ldx #1 ; 2
|
loop5: ldx #1 ; 2
|
||||||
loop6: dex ; 2
|
loop6: dex ; 2
|
||||||
bne loop6 ; 2nt/3
|
bne loop6 ; 2nt/3
|
||||||
dey ; 2
|
dey ; 2
|
||||||
bne loop5 ; 2nt/3
|
bne loop5 ; 2nt/3
|
||||||
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
wait_until_keypress:
|
|
||||||
lda KEYBOARD
|
|
||||||
bpl wait_until_keypress
|
|
||||||
bit KEYRESET
|
|
||||||
delay_12:
|
delay_12:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
.include "effect_dhgr_dgr.s"
|
||||||
|
|
||||||
|
.include "effect_static.s"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;wait_until_keypress:
|
||||||
|
; lda KEYBOARD
|
||||||
|
; bpl wait_until_keypress
|
||||||
|
; bit KEYRESET
|
||||||
|
;delay_12:
|
||||||
|
; rts
|
||||||
|
|
||||||
|
|
||||||
.include "pt3_lib_detect_model.s"
|
.include "pt3_lib_detect_model.s"
|
||||||
.include "pt3_lib_core.s"
|
.include "pt3_lib_core.s"
|
||||||
.include "pt3_lib_init.s"
|
.include "pt3_lib_init.s"
|
||||||
@ -351,7 +370,6 @@ config_string:
|
|||||||
.byte 0,23,"APPLE II? MOCKINGBOARD: NO ",0
|
.byte 0,23,"APPLE II? MOCKINGBOARD: NO ",0
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
.include "text_print.s"
|
.include "text_print.s"
|
||||||
.include "title.s"
|
.include "title.s"
|
||||||
.include "gr_fast_clear.s"
|
.include "gr_fast_clear.s"
|
||||||
@ -387,4 +405,3 @@ middle_table3:
|
|||||||
middle_table4:
|
middle_table4:
|
||||||
.byte <PAGE1,<PAGE2,<PAGE2,<PAGE1
|
.byte <PAGE1,<PAGE2,<PAGE2,<PAGE1
|
||||||
.byte <PAGE1,<PAGE1,<PAGE2,<PAGE1
|
.byte <PAGE1,<PAGE1,<PAGE2,<PAGE1
|
||||||
|
|
||||||
|
@ -1,105 +1,72 @@
|
|||||||
|
; just a static effect for near-beginning
|
||||||
|
|
||||||
|
; note comes in with 6 (jsr) + 6 (rts) + vblank jitter
|
||||||
|
|
||||||
|
; wait 24 scanlines lines
|
||||||
|
; (24*65) = 1560 cycles
|
||||||
|
; ??-8 = 1560-8 = 1552
|
||||||
|
|
||||||
|
effect_static:
|
||||||
|
|
||||||
; 3 LINES 80-COL TEXT AN3=0 PAGE=2
|
; 3 LINES 80-COL TEXT AN3=0 PAGE=2
|
||||||
|
|
||||||
; intentionally a few cycles short as vblank returns+ a few cycles
|
; intentionally a few cycles short as vblank returns+ a few cycles
|
||||||
bit PAGE2
|
; bit SET_TEXT ; 4
|
||||||
bit SET_TEXT ; 4
|
; bit PAGE2 ; 4
|
||||||
|
|
||||||
; wait 24 scanlines lines
|
jsr delay_1544
|
||||||
; (24*65)-8 = 1560-8 = 1552
|
|
||||||
|
|
||||||
jsr delay_1552
|
|
||||||
|
|
||||||
; 3 LINES 40-COL TEXT AN3=0 PAGE=2
|
; 3 LINES 40-COL TEXT AN3=0 PAGE=2
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
sta CLR80COL ; 4
|
sta CLR80COL ; 4
|
||||||
bit SET_TEXT ; 4
|
bit SET_TEXT ; 4
|
||||||
|
|
||||||
jsr delay_1552
|
jsr delay_1552 ; 1560 total
|
||||||
|
|
||||||
; 3 LINES 40-col LORES AN3=0 PAGE=1
|
; 3 LINES 40-col LORES AN3=0 PAGE=1
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
bit PAGE1 ; 4
|
bit PAGE1 ; 4
|
||||||
bit SET_GR ; 4
|
bit SET_GR ; 4
|
||||||
|
|
||||||
jsr delay_1552
|
jsr delay_1552 ; 1560 total
|
||||||
|
|
||||||
; 3 LINES 80-col DLORES AN3=0 PAGE=1
|
; 3 LINES 80-col DLORES AN3=0 PAGE=1
|
||||||
|
|
||||||
nop
|
sta LORES ; 4
|
||||||
nop
|
|
||||||
|
|
||||||
sta LORES
|
|
||||||
sta SET80COL ; 4
|
sta SET80COL ; 4
|
||||||
sta CLRAN3 ; 4
|
sta CLRAN3 ; 4
|
||||||
|
|
||||||
jsr delay_1552
|
jsr delay_1548 ; 1560 total
|
||||||
|
|
||||||
|
|
||||||
; 3 LINES 80-col DLORES AN3=0 PAGE=1
|
; 3 LINES 80-col DLORES AN3=0 PAGE=1
|
||||||
|
|
||||||
nop
|
jsr delay_1560
|
||||||
nop
|
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
|
|
||||||
jsr delay_1552
|
|
||||||
|
|
||||||
; 3 lines HIRES 40-COL AN3=1 PAGE=2
|
; 3 lines HIRES 40-COL AN3=1 PAGE=2
|
||||||
|
|
||||||
sta CLR80COL
|
sta CLR80COL ; 4
|
||||||
sta HIRES ; 4
|
sta HIRES ; 4
|
||||||
sta PAGE2 ; 4
|
sta PAGE2 ; 4
|
||||||
sta SETAN3
|
sta SETAN3 ; 4
|
||||||
|
|
||||||
jsr delay_1552
|
jsr delay_1544
|
||||||
|
|
||||||
; 3 lines Double-hires AN3=0 PAGE=1
|
; 3 lines Double-hires AN3=0 PAGE=1
|
||||||
sta PAGE1
|
sta PAGE1 ; 4
|
||||||
bit HIRES
|
bit HIRES ; 4
|
||||||
sta SET80COL ; 4 ; set 80 column mode
|
sta SET80COL ; 4 ; set 80 column mode
|
||||||
sta CLRAN3 ; 4 ; doublehireson
|
sta CLRAN3 ; 4 ; doublehireson
|
||||||
|
|
||||||
jsr delay_1552
|
jsr delay_1544
|
||||||
|
|
||||||
; 3 line Double-HIRES
|
; 3 line Double-HIRES
|
||||||
|
|
||||||
nop
|
jsr delay_1560
|
||||||
nop
|
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
|
|
||||||
nop
|
|
||||||
nop
|
|
||||||
|
|
||||||
jsr delay_1552
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; set 80-column text for next iteration
|
||||||
|
|
||||||
|
sta SET_TEXT ; 4
|
||||||
|
bit PAGE2 ; 4
|
||||||
|
|
||||||
|
rts
|
||||||
|
Loading…
Reference in New Issue
Block a user