syn2cat
/
paradist
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Lots of utilities and original grafics which I forgot in previous release. 

Some more work on the distorters and a little PSG init correction.
Added reset demo handling.
master
Georges Kesseler 2012-02-21 23:23:10 +01:00
parent cecd6521ae
commit ee19981e8d
14 changed files with 62 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
PARADIST.S
View File

@ -585,7 +585,8 @@ prepdigi:
move.w (a6)+,d7
move.l a6,digiptr
move.l $42a.w,my_reset+2
move.l #my_reset,$42a.w
ifeq test
lupo:
@ -2152,9 +2153,6 @@ notreset:
move.b $fffffc02.w,d0
move.b #5,$ffff8800.w
move.b d0,$ffff8802.w
move.l #$0d000200,$ffff8800.w
move.l cheatcodepos,a0
cmp.b (a0)+,d0
beq.s cheatok
@ -2215,7 +2213,9 @@ cheatcodmod: equ *+2
no_esc:
cmpi.b #57,d0
bne.s no_key
bra.s myexit
my_reset:
move.l #0,resetexit
myexit:
;restore digisound
move.w #(256+512/4)-1,d0
@ -2225,7 +2225,7 @@ restdigi:
move.l (a0)+,(a1)+
dbf d0,restdigi
resetexit: equ *+2
jmp exit
no_key:
@ -2433,7 +2433,12 @@ calcpredigi:
move.l (a7,d7),(a0)+
move.l (a7,d7),(a0)+
dcb 70,$4e71
dcb 70-20,$4e71
tst.w $1f0.w
bmi.s noend
subq.w #1,$1f0.w
beq myexit
noend:
move.l a6,digiptr
@ -5118,11 +5123,13 @@ wavetab:
dc.l wordhinher
dc.l _nix
dc.l _nix
dc.l hacker,hacker,hacker
dc.l fast
dc.l fast
dc.l fast
dc.l fast
dc.l dreieck
dc.l dreieck
dc.l slowdist,slowdist,slowdist,slowdist
dc.l hacker,hacker,hacker
dc.l sinus
dc.l sinus
dc.l sinschief
@ -5133,21 +5140,6 @@ wavetab:
dc.l sinschief
dc.l sinus
dc.l sinus
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l bytezurueck
dc.l wordschief
dc.l wordschief
dc.l wordschief
dc.l 0 ;end
mwavetab:
@ -5161,44 +5153,11 @@ mwavetab:
dc.l slowdist
dc.l slowdist
dc.l slowdist
dc.l wordschief
dc.l 0 ;end
boink:
incbin includes\boink.bin
dc.w 128
hacker:
dc.w 2-1,-2,2,-2,2,-2,2,-2-1
dc.w 4,-4,4,-4,4,-4,4,-4-1
dc.w 6,-6,6,-6,6,-6,6,-6-1
dc.w 8,-8,8,-8,8,-8,8,-8-3
dc.w 12,-12,12,-12,12,-12,12,-12-1
dc.w 14,-14,14,-14,14,-14,14,-14-1
dc.w 16,-16,16,-16,16,-16,16,-16
dc.w 16,-16,16,-16,16,-16,16,-16+1
dc.w 14,-14,14,-14,14,-14,14,-14+1
dc.w 12,-12,12,-12,12,-12,12,-12+3
dc.w 8,-8,8,-8,8,-8,8,-8+1
dc.w 6,-6,6,-6,6,-6,6,-6+1
dc.w 4,-4,4,-4,4,-4,4,-4+1
dc.w 2,-2,2,-2,2,-2,2,-2+1
dc.w 128
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,16
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,-16
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,16
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,-16
dc.w 128
slowdist:
dc.w 0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1
dc.w 0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1
@ -5246,23 +5205,23 @@ bytezurueck:
dc.w -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
dc.w -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
dc.w 128
fast:
incbin includes\fast.bin
dc.w 128
sinschief:
incbin includes\sisi.bin
dc.w 128
wordhinher:
dc.w 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
dc.w -2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,128
wordschief:
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,128
wordschief:
dc.w 2,2,2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2,2,2
dc.w 2,2,2,2,2,2,2,2,2,2,128
wordzurueck:
dc.w -2,-2,-2,-2,-2,-2,-2,-2
dc.w -2,-2,-2,-2,-2,-2,-2,-2
@ -5385,15 +5344,9 @@ scrolltextend:
;**********************************************************
prt:
dc.b 27,"Y",32+20,32+1," 000"
str: dc.b "0 ",0
even
psginittab:dc.b 0,$ff,1,$ff,2,$ff,3,$ff,4,$ff,5,$ff,6,0
dc.b 7,%11111011,8,0,9,0,10,16,11,5,12,100,13,2,$ff,0
dc.b 7,%11111011,8,0,9,0,10,0,11,5,12,100,13,2,$ff,0
even
hwpalette:
dc.w $000,$227,$005,$654,$543,$432,$321,$777
@ -5413,7 +5366,7 @@ lowbyte:
even
hwscrolldat:
incbin "includes\hwscroll.dat"
incbin "includes\hwdat.bin"
even
section bss

BIN
back.pal Executable file
View File

Binary file not shown.

BIN
fond_7c.neo Executable file
View File

Binary file not shown.

BIN
fond_7c.rst Executable file
View File

Binary file not shown.

BIN
includes/fast.bin Executable file
View File

Binary file not shown.

BIN
includes/hwdat.bin Executable file
View File

Binary file not shown.

BIN
mkcolors.gfa Executable file
View File

Binary file not shown.

BIN
mksinus.gfa Executable file
View File

Binary file not shown.

BIN
newback.neo Executable file
View File

Binary file not shown.

BIN
newback.rst Executable file
View File

Binary file not shown.

BIN
test.neo Executable file
View File

Binary file not shown.

BIN
test.rst Executable file
View File

Binary file not shown.

BIN
test2.rst Executable file
View File

Binary file not shown.

34
text.txt Executable file
View File

@ -0,0 +1,34 @@
<20> wow !! this is gunstick's revolutionary
fullscreen-screen. nobody can beat <20> !!! this
screen uses the <20>-playfield technique. i hope
it will be the best fullscreen distorter ever made.
the font is from oxar ” (great work!). the wonderful
background was designed by dizzy from tool 8.
all code and music sampling by gunstick. i'm sorry
for all the people who don't like slow scrollers, but
this text is a bit longer, to show you, that nothing is
precalculated. many of those shitty disting
one-plane scrolls are preshifted. theese ones
are not! if you still think this is easy then look at
the parallaxed (bidirectional !!!) background:[
| ]<5D>[
|| ||
]have you
noticed that it's not simply parallaxed? there's another
wave in it. i don't want to make greetings here, so
let's continue talking about fullscreens and hardscrollers.
i haven't seen any hardscroller which works always correctly
on all st's. so if you see some nasty flickering on the top
border you have an st model i wasn't able to test. until
now i found 14 different hardware configurations. our hardscroller
works on all, but there might be more . . . so if you are a
programmer, please test your overscan routine on every st you can
find (especially those in other countries !!) message to griff: i
tried to use the keyboard processor for hardscrolling but it didn't work.
do you want to know how i manage to shift all the scrollings??? well
the dma chip can serialize data. by programming it in a special way
(reading and writing the same time)
the dma sends the data back, but shifted by one bit. little 3d graphics
hint: what about doing your 3d graphics with the midi interface?
as you have now often enough seen the distortion wave and heard
the digisound i think it's time to press space and i will wrap here