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
parent
cecd6521ae
commit
ee19981e8d
103
PARADIST.S
103
PARADIST.S
|
@ -585,7 +585,8 @@ prepdigi:
|
||||||
move.w (a6)+,d7
|
move.w (a6)+,d7
|
||||||
move.l a6,digiptr
|
move.l a6,digiptr
|
||||||
|
|
||||||
|
move.l $42a.w,my_reset+2
|
||||||
|
move.l #my_reset,$42a.w
|
||||||
|
|
||||||
ifeq test
|
ifeq test
|
||||||
lupo:
|
lupo:
|
||||||
|
@ -2152,9 +2153,6 @@ notreset:
|
||||||
|
|
||||||
move.b $fffffc02.w,d0
|
move.b $fffffc02.w,d0
|
||||||
|
|
||||||
move.b #5,$ffff8800.w
|
|
||||||
move.b d0,$ffff8802.w
|
|
||||||
move.l #$0d000200,$ffff8800.w
|
|
||||||
move.l cheatcodepos,a0
|
move.l cheatcodepos,a0
|
||||||
cmp.b (a0)+,d0
|
cmp.b (a0)+,d0
|
||||||
beq.s cheatok
|
beq.s cheatok
|
||||||
|
@ -2215,7 +2213,9 @@ cheatcodmod: equ *+2
|
||||||
no_esc:
|
no_esc:
|
||||||
cmpi.b #57,d0
|
cmpi.b #57,d0
|
||||||
bne.s no_key
|
bne.s no_key
|
||||||
|
bra.s myexit
|
||||||
|
my_reset:
|
||||||
|
move.l #0,resetexit
|
||||||
myexit:
|
myexit:
|
||||||
;restore digisound
|
;restore digisound
|
||||||
move.w #(256+512/4)-1,d0
|
move.w #(256+512/4)-1,d0
|
||||||
|
@ -2225,7 +2225,7 @@ restdigi:
|
||||||
move.l (a0)+,(a1)+
|
move.l (a0)+,(a1)+
|
||||||
dbf d0,restdigi
|
dbf d0,restdigi
|
||||||
|
|
||||||
|
resetexit: equ *+2
|
||||||
jmp exit
|
jmp exit
|
||||||
|
|
||||||
no_key:
|
no_key:
|
||||||
|
@ -2433,7 +2433,12 @@ calcpredigi:
|
||||||
move.l (a7,d7),(a0)+
|
move.l (a7,d7),(a0)+
|
||||||
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
|
move.l a6,digiptr
|
||||||
|
|
||||||
|
@ -5118,11 +5123,13 @@ wavetab:
|
||||||
dc.l wordhinher
|
dc.l wordhinher
|
||||||
dc.l _nix
|
dc.l _nix
|
||||||
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 dreieck
|
dc.l dreieck
|
||||||
dc.l slowdist,slowdist,slowdist,slowdist
|
dc.l slowdist,slowdist,slowdist,slowdist
|
||||||
dc.l hacker,hacker,hacker
|
|
||||||
dc.l sinus
|
dc.l sinus
|
||||||
dc.l sinus
|
dc.l sinus
|
||||||
dc.l sinschief
|
dc.l sinschief
|
||||||
|
@ -5133,21 +5140,6 @@ wavetab:
|
||||||
dc.l sinschief
|
dc.l sinschief
|
||||||
dc.l sinus
|
dc.l sinus
|
||||||
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
|
dc.l 0 ;end
|
||||||
|
|
||||||
mwavetab:
|
mwavetab:
|
||||||
|
@ -5161,44 +5153,11 @@ mwavetab:
|
||||||
dc.l slowdist
|
dc.l slowdist
|
||||||
dc.l slowdist
|
dc.l slowdist
|
||||||
dc.l slowdist
|
dc.l slowdist
|
||||||
dc.l wordschief
|
|
||||||
dc.l 0 ;end
|
dc.l 0 ;end
|
||||||
|
|
||||||
boink:
|
boink:
|
||||||
incbin includes\boink.bin
|
incbin includes\boink.bin
|
||||||
dc.w 128
|
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:
|
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
|
||||||
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 -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
|
dc.w 128
|
||||||
|
fast:
|
||||||
|
incbin includes\fast.bin
|
||||||
|
dc.w 128
|
||||||
sinschief:
|
sinschief:
|
||||||
incbin includes\sisi.bin
|
incbin includes\sisi.bin
|
||||||
dc.w 128
|
dc.w 128
|
||||||
wordhinher:
|
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,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
|
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:
|
wordzurueck:
|
||||||
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
|
||||||
|
@ -5385,15 +5344,9 @@ scrolltextend:
|
||||||
|
|
||||||
;**********************************************************
|
;**********************************************************
|
||||||
|
|
||||||
prt:
|
|
||||||
dc.b 27,"Y",32+20,32+1," 000"
|
|
||||||
str: dc.b "0 ",0
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
even
|
even
|
||||||
psginittab:dc.b 0,$ff,1,$ff,2,$ff,3,$ff,4,$ff,5,$ff,6,0
|
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
|
even
|
||||||
hwpalette:
|
hwpalette:
|
||||||
dc.w $000,$227,$005,$654,$543,$432,$321,$777
|
dc.w $000,$227,$005,$654,$543,$432,$321,$777
|
||||||
|
@ -5413,7 +5366,7 @@ lowbyte:
|
||||||
even
|
even
|
||||||
hwscrolldat:
|
hwscrolldat:
|
||||||
|
|
||||||
incbin "includes\hwscroll.dat"
|
incbin "includes\hwdat.bin"
|
||||||
even
|
even
|
||||||
|
|
||||||
section bss
|
section bss
|
||||||
|
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -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
|
Loading…
Reference in New Issue