mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-10 13:29:57 +00:00
double: closer
This commit is contained in:
parent
a985959e47
commit
cb4cec284f
|
@ -222,6 +222,11 @@ skip_all_checks:
|
||||||
|
|
||||||
.include "setup_graphics.s"
|
.include "setup_graphics.s"
|
||||||
|
|
||||||
|
;=================================
|
||||||
|
; midline first, no music
|
||||||
|
;=================================
|
||||||
|
|
||||||
|
.include "effect_midline.s"
|
||||||
|
|
||||||
;=================================
|
;=================================
|
||||||
; main static loop
|
; main static loop
|
||||||
|
|
|
@ -1,18 +1,101 @@
|
||||||
; goal
|
effect_midline:
|
||||||
;
|
|
||||||
; 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
|
lda #7
|
||||||
; 100*65 = 6500
|
sta XX
|
||||||
|
|
||||||
; 2+ X*(12+2+3) - 1
|
outer_outer_loop:
|
||||||
|
ldy #120
|
||||||
|
|
||||||
effect_top_smc:
|
|
||||||
|
; comes in with 4
|
||||||
|
outer_loop:
|
||||||
|
|
||||||
|
ldx #192 ; 2
|
||||||
|
; 6
|
||||||
|
lda $00 ; nop 3 ; 3
|
||||||
|
; 9
|
||||||
|
jmp skip_nop
|
||||||
|
; 12
|
||||||
|
|
||||||
|
inner_loop:
|
||||||
|
|
||||||
|
nop ; 2
|
||||||
|
nop ; 2
|
||||||
|
nop ; 2
|
||||||
|
nop ; 2
|
||||||
|
|
||||||
|
|
||||||
|
; 8
|
||||||
|
|
||||||
|
; set text
|
||||||
|
sta LORES ; 4
|
||||||
|
skip_nop:
|
||||||
|
sta SET_TEXT ; 4
|
||||||
|
sta SETAN3 ; 4
|
||||||
|
sta CLR80COL ; 4
|
||||||
|
bit PAGE1 ; 4
|
||||||
|
|
||||||
|
; 28
|
||||||
|
|
||||||
|
jsr delay_12 ; 12
|
||||||
|
|
||||||
|
; 40
|
||||||
|
|
||||||
|
; set double-hires
|
||||||
|
sta SET_GR ; 4
|
||||||
|
sta HIRES ; 4
|
||||||
|
sta CLRAN3 ; 4
|
||||||
|
sta SET80COL ; 4
|
||||||
|
bit PAGE2 ; 4
|
||||||
|
|
||||||
|
; 60
|
||||||
|
|
||||||
|
dex ; 2
|
||||||
|
; 62
|
||||||
|
bne inner_loop ; 2/3
|
||||||
|
; 65
|
||||||
|
|
||||||
|
; -1
|
||||||
|
dey ; 2
|
||||||
|
bne outer_loop ; 3
|
||||||
|
|
||||||
|
dec XX
|
||||||
|
bne outer_outer_loop
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
.if 0
|
||||||
|
; black and white
|
||||||
|
|
||||||
|
; set double-hires
|
||||||
|
sta SET_GR ; 4
|
||||||
|
sta HIRES ; 4
|
||||||
|
sta CLRAN3 ; 4
|
||||||
|
sta SET80COL ; 4
|
||||||
|
bit PAGE2 ; 4
|
||||||
|
; 20
|
||||||
|
jsr delay_12
|
||||||
|
; 32
|
||||||
|
; set text
|
||||||
|
sta LORES ; 4
|
||||||
|
sta SET_TEXT ; 4
|
||||||
|
sta SETAN3 ; 4
|
||||||
|
sta CLR80COL ; 4
|
||||||
|
bit PAGE1 ; 4
|
||||||
|
; 52
|
||||||
|
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
; 62
|
||||||
|
jmp effect_midline ; 3
|
||||||
|
; 65
|
||||||
|
.endif
|
||||||
|
|
||||||
|
|
||||||
|
.if 0
|
||||||
|
|
||||||
ldx #192 ; 2
|
ldx #192 ; 2
|
||||||
qloop:
|
qloop:
|
||||||
|
@ -32,13 +115,5 @@ qloop:
|
||||||
dex ; 2
|
dex ; 2
|
||||||
; 62
|
; 62
|
||||||
bne qloop ; 2/3
|
bne qloop ; 2/3
|
||||||
|
.endif
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,5 @@
|
||||||
5 HOME
|
5 HOME
|
||||||
10 PRINT CHR$(4);"CATALOG"
|
10 PRINT CHR$(4);"CATALOG"
|
||||||
|
15 PRINT:PRINT "LOADING DOUBLE..."
|
||||||
20 PRINT CHR$(4);"BRUN DOUBLE"
|
20 PRINT CHR$(4);"BRUN DOUBLE"
|
||||||
|
|
||||||
|
|
|
@ -20,7 +20,7 @@ show_title:
|
||||||
|
|
||||||
; print the text
|
; print the text
|
||||||
|
|
||||||
ldx #7
|
ldx #10
|
||||||
title_loop:
|
title_loop:
|
||||||
|
|
||||||
jsr move_and_print
|
jsr move_and_print
|
||||||
|
@ -37,6 +37,9 @@ title_text:
|
||||||
.byte 0, 3," ART : BASED ON PIC BY @helpcomputer0",0
|
.byte 0, 3," ART : BASED ON PIC BY @helpcomputer0",0
|
||||||
.byte 0, 5," MUSIC: N. UEMATSU",0
|
.byte 0, 5," MUSIC: N. UEMATSU",0
|
||||||
.byte 0, 8," ",0
|
.byte 0, 8," ",0
|
||||||
|
.byte 0,12,"DON'T DESPAIR EMULATOR WRITERS",0
|
||||||
|
.byte 0,13," THE STARTING MID-LINE EFFECT",0
|
||||||
|
.byte 0,14," IS NON-DETERMINISTIC (VBLANK INEXACT)",0
|
||||||
.byte 0,16," ______",0
|
.byte 0,16," ______",0
|
||||||
.byte 0,17," A \/\/\/ SOFTWARE PRODUCTION",0
|
.byte 0,17," A \/\/\/ SOFTWARE PRODUCTION",0
|
||||||
.byte 0,19," HTTP://WWW.DEATER.NET/WEAVE/VMWPROD",0
|
.byte 0,19," HTTP://WWW.DEATER.NET/WEAVE/VMWPROD",0
|
||||||
|
|
Loading…
Reference in New Issue
Block a user