Preview
NEURASTHENIA
FINISHED ON 3.04.1993
DRINK BEER BE FREE!!!
NO
ERRORS
SHIT
CODE
TEKKNO
TEKKNO
TEKKNO
TEKKNO
BLOODY
DEAD
KILL
PRIEST
FUCKIN
SOUNDS
ACTION
COLORS
REPLAY
REPLAY
VERY
GOOD
SHIT
CODE
TEKKNO
BLOODY
ACTION
THE GREETINGS TO
PEPSI DRINKERS
FUTURE REVOLUTION
OLD BULLS
DEFENSYWA
FLYING COWS
INVESTATION
GENERATION
ESUALPPA
YMEHCLA
REKOJ
HMFW
TCEPSUS
SREZUL
MAET ATEB
THIS DEMO WAS
RELEASED
ON
********************
* A P P L A U S E *
* C O P Y P A R T Y*
* 9 3 *
********************
IN zYWIEC
CONTACT US:
UL. KORCZAKA 2/103
41-300
DaBROWA GoRNICZA
OR PHONE:
62 - 55 - 89
NOW SOME SHORT INFOS
ABOUT THIS PRODUCT.
--------------------
MOST OF EFFECTS
WAS DESIGNED BY
GREY.
ALL CODING
AND MUSIC BY
MATT
PICTURE OF VIKING
AND OTHER GFX BY
GREY
********************
THE INTRODUCTION
PART:
SOURCE CODE:
25 KB.
SOUNDS:
40 KB.
GRAPHICS:
40 KB.
********************
TEKKNO PART:
SOURCE CODE:
140 KB.
MUSIC:
190 KB.
GRAPHICS:
297 KB.
********************
END PART:
SOURCE CODE:
70 KB.
MUSIC:
112 KB.
GRAPHICS:
155 KB.
SAMPLES:
69 KB.
********************
BIG THANKS TO
UNCLE MAT
/ APPLAUSE
FOR TRACKLOADER.
THANKS TO
PHIL / APPLAUSE
FOR SOME HELP
********************
LEFT MOUSE -
CONTINUE LAST
PART.
********************
TEXT RESTARTS
NOW THE GREETINGS
TO OUR FRIENDS:
*************************
THORGAL
PHANTOM
PHIL
UNCLE MAT
DIXAN 05
/ APPLAUSE
ZUZA
ROY B.KYAN
LARK
/ FR
OR MAYBE /EX.FR ???
$.b d0,(a0)
move.b d1,(a1)
bra.s tabur
soiam:
bsr waiter1
bsr waiter1
bsr waiter1
bsr waiter1
move #3,$96(a6)
bsr waiter1
move.l #tabzero,from
move.l #colkam2+2,to
move.l #nic,jinny+2
move #15,ilecol+2
clr.b show_or_hide
bsr colorsup
move.l #czarny,$80(a6)
bsr waiter1
frani: moveq #16,d0
huoo: wrast
dbf d0,huoo
add #$111,swiec+2
cmp #$fff,swiec+2
bne.s frani
bsr waiter1
bsr waiter1
move.l #adrinterlace,d0
lea fint1(pc),a0
moveq #3,d7
dyadr: move d0,6(a0)
swap d0
move d0,2(a0)
swap d0
add.l #44*20,d0
addq.l #8,a0
dbf d7,dyadr
move.l #adrinterlace+20,d0
lea fint2(pc),a0
moveq #3,d7
dyadr2: move d0,6(a0)
swap d0
move d0,2(a0)
swap d0
add.l #44*20,d0
addq.l #8,a0
dbf d7,dyadr2
lea lastcopinthisdemo1(pc),a1
lea lastcopinthisdemo2(pc),a2
move.l a2,d0
move d0,runs+6
swap d0
move d0,runs+2
move.l #runs,d0
move d0,runf+6
swap d0
move d0,runf+2
move #$204,$100(a6)
clr.l d0
przed: move $4(a6),d0
and #$8000,d0
bne.s przed
move.l a1,$80(a6)
move.l a2,$84(a6)
clr $88(a6)
move.l #adrinterlace+[4*[20*44]],from
move.l #collast+2,to
move #15,ilecol+2
sf show_or_hide
bsr colorsup
koni:
bra.s koni
waiter1:moveq #80,d7
ww_r: wrast
dbf d7,ww_r
rts
copyglaz:
wrast
move.l d5,d0
move.l d6,d1
moveq #3,d7
cggg: wblit
move.l d1,$50(a6)
move.l d0,$54(a6)
move.l #-1,$44(a6)
move.l #$9f00000,$40(a6)
move.l #0,$64(a6)
move #[80*64]+[160/16],$58(a6)
add.l #80*20,d0
add.l #80*20,d1
dbf d7,cggg
sub.l #200,d6
add #$a00,jebb
cmp.l #kamien-200,d6
bne.s copyglaz
rts
glaznagoscia:
wrast
add d0,jebb
add d0,jebbg
dbf d6,glaznagoscia
rts
giveone:
lea tabwalk,a0
move.l #screen1+2,d0
move.l (a0)+,d1
bne.s lov
lea tabwalk(pc),a0
move.l (a0)+,d1
lov: move.l (a0)+,addile+2
move (a0)+,modulo
move.l a0,giveone+2
moveq #3,d7
blwrk: wblit
move.l d0,$54(a6)
move.l d1,$50(a6)
move.l #-1,$44(a6)
move.l #$9f00000,$40(a6)
move modulo(pc),$64(a6)
move #42,$66(a6)
move #[90*64]+[80/16],$58(a6)
addile: add.l #0,d1
add.l #90*56,d0
dbf d7,blwrk
move.l #screen1,d1
sub #9,ile
end1: move ile(pc),d0
move d0,d2
and #$f,d2
move d2,d3
asl #4,d3
or d3,d2
eor #$ff,d2
move d2,scrol+2
asr #4,d0
add d0,d0
ext.l d0
add.l d0,d1
lea cadrs(pc),a0
moveq #3,d7
loadnw: move d1,6(a0)
swap d1
move d1,2(a0)
swap d1
addq.l #8,a0
add.l #56*90,d1
dbf d7,loadnw
rts
colorsupi:
move #312,d5
moveq #14,d6
clii: wrast
move.l #lastcopinthisdemo1,$80(a6)
move.l from(pc),a0
move.l to(pc),a1
move.l to2(pc),a2
mam: cmp.b $6(a6),d5
bne.s mam
move.l #lastcopinthisdemo2,$80(a6)
move #15,d7
redi: move (a0)+,d0
move (a1),d1
move d0,d2
move d1,d3
and #$f00,d2
and #$f00,d3
lsr #8,d2
lsr #8,d3
cmp d2,d3
beq.s greeni
sub #1,d3
greeni: lsl #8,d3
move d3,(a1)
move d3,(a2)
move d0,d2
move d1,d3
and #$f0,d2
and #$f0,d3
lsr #4,d2
lsr #4,d3
cmp d2,d3
beq.s bluei
sub #1,d3
bluei:
lsl #4,d3
add d3,(a1)
add d3,(a2)
move d0,d2
move d1,d3
and #$f,d2
and #$f,d3
cmp d2,d3
beq.s noei
sub #1,d3
noei:
add d3,(a1)+
add d3,(a2)+
addq.l #2,a1
addq.l #2,a2
dbf d7,redi
dbf d6,clii
rts
musix: movem.l d0-d7/a0-a6,-(a7)
bsr mt_music
movem.l (a7)+,d0-d7/a0-a6
move #$4020,$9c(a6)
rte
mt_init:lea mt_data,a0
lea mt_mulu(pc),a1
move.l #mt_data+$c,d0
moveq #$1f,d1
moveq #$1e,d3
mt_lop4:move.l d0,(a1)+
add.l d3,d0
dbf d1,mt_lop4
lea $3b8(a0),a1
moveq #$7f,d0
moveq #0,d1
moveq #0,d2
mt_lop2:move.b (a1)+,d1
cmp.b d2,d1
ble.s mt_lop
move.l d1,d2
mt_lop: dbf d0,mt_lop2
addq #1,d2
asl.l #8,d2
asl.l #2,d2
lea 4(a1,d2.l),a2
lea mt_samplestarts(pc),a1
add #$2a,a0
moveq #$1e,d0
mt_lop3:clr.l (a2)
move.l a2,(a1)+
moveq #0,d1
move.b d1,2(a0)
move.w (a0),d1
asl.l #1,d1
add.l d1,a2
add.l d3,a0
dbf d0,mt_lop3
move.l $78.w,mt_oldirq-mt_samplestarts-$7c(a1)
or.b #2,$bfe001
move.b #6,mt_speed-mt_samplestarts-$7c(a1)
moveq #0,d0
lea $dff000,a0
move.w d0,$a8(a0)
move.w d0,$b8(a0)
move.w d0,$c8(a0)
move.w d0,$d8(a0)
move.b d0,mt_songpos-mt_samplestarts-$7c(a1)
move.b d0,mt_counter-mt_samplestarts-$7c(a1)
move.w d0,mt_pattpos-mt_samplestarts-$7c(a1)
rts
mt_end: moveq #0,d0
lea $dff000,a0
move.w d0,$a8(a0)
move.w d0,$b8(a0)
move.w d0,$c8(a0)
move.w d0,$d8(a0)
move.w #$f,$dff096
rts
mt_music:
lea mt_data,a0
lea mt_voice1(pc),a4
addq.b #1,mt_counter-mt_voice1(a4)
move.b mt_counter(pc),d0
cmp.b mt_speed(pc),d0
blt mt_nonew
moveq #0,d0
move.b d0,mt_counter-mt_voice1(a4)
move.w d0,mt_dmacon-mt_voice1(a4)
lea mt_data,a0
lea $3b8(a0),a2
lea $43c(a0),a0
moveq #0,d1
move.b mt_songpos(pc),d0
move.b (a2,d0.w),d1
lsl.w #8,d1
lsl.w #2,d1
add.w mt_pattpos(pc),d1
lea $dff0a0,a5
lea mt_samplestarts-4(pc),a1
lea mt_playvoice(pc),a6
jsr (a6)
addq.l #4,d1
lea $dff0b0,a5
lea mt_voice2(pc),a4
jsr (a6)
addq.l #4,d1
lea $dff0c0,a5
lea mt_voice3(pc),a4
jsr (a6)
addq.l #4,d1
lea $dff0d0,a5
lea mt_voice4(pc),a4
jsr (a6)
move.w mt_dmacon(pc),d0
beq.s mt_nodma
lea $bfd000,a3
move.b #$7f,$d00(a3)
move.w #$2000,$dff09c
move.w #$a000,$dff09a
move.l #mt_irq1,$78.w
moveq #0,d0
move.b d0,$e00(a3)
move.b #$a8,$400(a3)
move.b d0,$500(a3)
or.w #$8000,mt_dmacon-mt_voice4(a4)
move.b #$11,$e00(a3)
move.b #$81,$d00(a3)
mt_nodma:
add.w #$10,mt_pattpos-mt_voice4(a4)
cmp.w #$400,mt_pattpos-mt_voice4(a4)
bne.s mt_exit
mt_next:clr.w mt_pattpos-mt_voice4(a4)
clr.b mt_break-mt_voice4(a4)
addq.b #1,mt_songpos-mt_voice4(a4)
and.b #$7f,mt_songpos-mt_voice4(a4)
move.b -2(a2),d0
cmp.b mt_songpos(pc),d0
bne.s mt_exit
move.b -1(a2),mt_songpos-mt_voice4(a4)
mt_exit:tst.b mt_break-mt_voice4(a4)
bne.s mt_next
rts
mt_nonew:
lea $dff0a0,a5
lea mt_com(pc),a6
jsr (a6)
lea mt_voice2(pc),a4
lea $dff0b0,a5
jsr (a6)
lea mt_voice3(pc),a4
lea $dff0c0,a5
jsr (a6)
lea mt_voice4(pc),a4
lea $dff0d0,a5
jsr (a6)
tst.b mt_break-mt_voice4(a4)
bne.s mt_next
rts
mt_irq1:tst.b $bfdd00
move.w mt_dmacon(pc),$dff096
move.l #mt_irq2,$78.w
move.w #$2000,$dff09c
rte
mt_irq2:tst.b $bfdd00
movem.l a3/a4,-(a7)
lea mt_voice1(pc),a4
lea $dff000,a3
move.l $a(a4),$a0(a3)
move.w $e(a4),$a4(a3)
move.l $a+$1c(a4),$b0(a3)
move.w $e+$1c(a4),$b4(a3)
move.l $a+$38(a4),$c0(a3)
move.w $e+$38(a4),$c4(a3)
move.l $a+$54(a4),$d0(a3)
move.w $e+$54(a4),$d4(a3)
movem.l (a7)+,a3/a4
move.b #0,$bfde00
move.b #$7f,$bfdd00
move.l mt_oldirq(pc),$78.w
move.w #$2000,$dff09c
move.w #$2000,$dff09a
rte
mt_playvoice:
move.l (a0,d1.l),(a4)
moveq #0,d2
move.b 2(a4),d2
lsr.b #4,d2
move.b (a4),d0
and.b #$f0,d0
or.b d0,d2
beq mt_oldinstr
asl.w #2,d2
move.l (a1,d2.l),4(a4)
move.l mt_mulu(pc,d2.w),a3
move.w (a3)+,8(a4)
move.w (a3)+,$12(a4)
move.l 4(a4),d0
moveq #0,d3
move.w (a3)+,d3
beq mt_noloop
asl.w #1,d3
add.l d3,d0
move.l d0,$a(a4)
move.w -2(a3),d0
add.w (a3),d0
move.w d0,8(a4)
bra mt_hejaSverige
mt_mulu:blk.l $20,0
mt_noloop:
add.l d3,d0
move.l d0,$a(a4)
mt_hejaSverige:
move.w (a3),$e(a4)
move.w $12(a4),8(a5)
mt_oldinstr:
move.w (a4),d3
and.w #$fff,d3
beq mt_com2
tst.w 8(a4)
beq.s mt_stopsound
move.b 2(a4),d0
and.b #$f,d0
cmp.b #5,d0
beq.s mt_setport
cmp.b #3,d0
beq.s mt_setport
move.w d3,$10(a4)
move.w $1a(a4),$dff096
clr.b $19(a4)
move.l 4(a4),(a5)
move.w 8(a4),4(a5)
move.w $10(a4),6(a5)
move.w $1a(a4),d0
or.w d0,mt_dmacon-mt_playvoice(a6)
bra mt_com2
mt_stopsound:
move.w $1a(a4),$dff096
bra mt_com2
mt_setport:
move.w (a4),d2
and.w #$fff,d2
move.w d2,$16(a4)
move.w $10(a4),d0
clr.b $14(a4)
cmp.w d0,d2
beq.s mt_clrport
bge mt_com2
move.b #1,$14(a4)
bra mt_com2
mt_clrport:
clr.w $16(a4)
rts
mt_port:moveq #0,d0
move.b 3(a4),d2
beq.s mt_port2
move.b d2,$15(a4)
move.b d0,3(a4)
mt_port2:
tst.w $16(a4)
beq.s mt_rts
move.b $15(a4),d0
tst.b $14(a4)
bne.s mt_sub
add.w d0,$10(a4)
move.w $16(a4),d0
cmp.w $10(a4),d0
bgt.s mt_portok
move.w $16(a4),$10(a4)
clr.w $16(a4)
mt_portok:
move.w $10(a4),6(a5)
mt_rts: rts
mt_sub: sub.w d0,$10(a4)
move.w $16(a4),d0
cmp.w $10(a4),d0
blt.s mt_portok
move.w $16(a4),$10(a4)
clr.w $16(a4)
move.w $10(a4),6(a5)
rts
mt_sin:
dc.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
mt_vib: move.b $3(a4),d0
beq.s mt_vib2
move.b d0,$18(a4)
mt_vib2:move.b $19(a4),d0
lsr.w #2,d0
and.w #$1f,d0
moveq #0,d2
move.b mt_sin(pc,d0.w),d2
move.b $18(a4),d0
and.w #$f,d0
mulu d0,d2
lsr.w #7,d2
move.w $10(a4),d0
tst.b $19(a4)
bmi.s mt_vibsub
add.w d2,d0
bra.s mt_vib3
mt_vibsub:
sub.w d2,d0
mt_vib3:move.w d0,6(a5)
move.b $18(a4),d0
lsr.w #2,d0
and.w #$3c,d0
add.b d0,$19(a4)
rts
mt_arplist:
dc.b 0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1
mt_arp: moveq #0,d0
move.b mt_counter(pc),d0
move.b mt_arplist(pc,d0.w),d0
beq.s mt_normper
cmp.b #2,d0
beq.s mt_arp2
mt_arp1:move.b 3(a4),d0
lsr.w #4,d0
bra.s mt_arpdo
mt_arp2:move.b 3(a4),d0
and.w #$f,d0
mt_arpdo:
asl.w #1,d0
move.w $10(a4),d1
lea mt_periods(pc),a0
mt_arp3:cmp.w (a0)+,d1
blt.s mt_arp3
move.w -2(a0,d0.w),6(a5)
rts
mt_normper:
move.w $10(a4),6(a5)
rts
mt_com: move.w 2(a4),d0
and.w #$fff,d0
beq.s