NO!!!   €€€€€€€€€€€€€€€€€€€€DON'T FUCK WITH THAT BUTTON YET!!! THIS IS GOING TO BE A REALLY COOL PARTY SCROLL, SO READ THE WHOLE TEXT!!!   (15KB OF TEXT TO COME...).     ONLY SOME CREDITS FIRST:   CODING DONE BY CONAN/POWERLORDS SWEDEN AND WITH SOME ADDITIONAL CODING (AND DEBUGGING) BY OCTON.   COOL MUZAK BY ZEB/ABNORMAL.   GFX RIPPED FROM A GAME.   AND I HAD TO MENTION THAT VIP MADE THE PALETTE TO THIS DEMO....          ZYNIX AND WIZAX IS NOW KICKED OUT OF POWERLORDS, SO ALL THEIR CONTACTS SHOULD CONTACT ME, IF THEY STILL WANT TO SWAP WITH POWERLORDS. WRITE TO :   OCTON,    FJOSMESTERVEIEN 22C,   7046 TRONDHEIM    AND THAT'S IN NORWAY, OF COURSE!!!    WE'LL MAYBE HAVE A PARTY HERE IN TRONDHEIM DURING THE WINTER-HOLIDAY, SO STAY COOL FOLKS FOR MORE INFO!!!  MESSAGE TO RAZOR,  ZEB   AND   CONDOR IN THE SCROLLER ABOVE...  OCTON SIGNING OFF....  (REMEMBER TO READ THE WHOLE TEXT!!!!)        FUCK THIS COMPUTER! SOMETHING IS WRONG WITH IT !  FOR EXAMPLE THE SECOND AUDIO CHANNEL DONT WORK. THE TIME IS NOW   09.05   IN THE MORNING AND IT'S SUNDAY! I (VIP/POWERLORDS) HAVE SLEPT FOR ABOUT 3-4 HOURS DURING THIS PARTY, AND I'M RATHER TIRED NOW!         YESTERDAY I MET SOME GUYS LIKE: RAZOR 1911, ARMADA, SQUADRON, ESCAPE AND SO ON.        MY HEAD IS LIKE ACID IN YOUR ASS, MAN ! ! ! ! ! ! !       BANG, BANG ! THEY HAVE BEEN PLAYING MUSIC EVERY MINUTE, AND    90    PER CENT IS HEAVY!! OWH,OWWW! HI THORE! SEND ME A DISK, AND A LETTER ! HI, YOU ! WHY IS THIS SCROLLER A FUCKING BORING ONE, WITH MANY MISSPELLINGS AND ,AND ..? (BLAME YOURSELF VIP!!! -OCTON)    DON'T ASK ME, ASK MY HEAD, BECAUSE MY HEAD IS DOING SOME RATHER FUNNY THINGS WITH MY HANDS AND MY BODY ???      NOW LET'S WRITE SOME BULLSHIT, OR SHALL I SAY SOME MORE BULLSHIT? OH, I FORGOTTEN ! THE PARTY HAVE OF COURSE A MOVIE ROOM TOO !         BULL #1. COKE IS COKE AND I HAVE FUCKED 4 LITRES AT THIS PARTY   +   2   *   0.35  LITRE BOTTLES.   (THEY ONLY COSTED TEN 'QUICK FINGERS,'  OR WHAT VIP?! -OCTON)    BULL #2. IS TO JON OF SQUADRON . NICE MEETING YOU AT THE PARTY.      BULL #3. IS TO ZYNIX OUR EX-MEMBER AND TO ALL HIS CONTACTS:    ZYNIX IS A LAMER, AND ALL HIS CONTACTS SHOULD STOP SWAPING WITH HIM, AND CONTACT OCTON INSTEAD!! (LOOK IN THE OTHER SCROLLER)     BULL #4.  BULL #3 IS NOW BULL.!    BULL #5 READ BULL #6.    BULL #6 READ BULL#5 ?     BULL#7 POWERLORDS ARE BEST, FUCK THE REST ?     BULL #8 NOW I'M GOING TO LET ALL THE OTHERS AT THIS PARTY PLACE WRITE THEIR OWN BULL. SCROLL!!!                  THANX VIP FOR LETTING ME WRITE, I AM HUMANOID OF HOAXERS! REALLY, I AM ONLY ON C64, BUT I WOULD REALLY LOVE TO LEARN SOME CODE ON THE AMIGA, TOO! ZEB OF ABNORMAL TRAINED THE ARCADE VERSION OF GAUNTLET TODAY! HE IS A WEIRD BUT X-TREMELY COOL DUDE! THIS MUSIC IS MADE BY HIM... ENJOY IT! MY HEAD IS ACHING A BIT AFTER 6 BEERS AND ABOUT 3 DECILITRES OF HIMKOK, BUT I AM IN A BETTER SHAPE THAN TRIUMPH, WHO LOOKS LIKE A LAMA WITHOUT LEGS RIGHT NOW! THE SILLY ANIMALIZER IS HERE! WHY? BECOZ HE WANTS TO READ SOME PURE PERFECTION! THE TWO RULING MUSIC COMPOSERS ON THE AMIGA HERE IS CODEX/RAZOR 1911 AND ZEB/ABNORMAL, NO DOUBT! THERE HAS BEEN MUSIC WITH THEM ALL NIGHT! WE HAVE ALSO BEEN PLAYING SOME HEAVY AND DANCE MIXES JUST FOR FUN! OCTON IS WORRYING A BIT ABOUT THIS DEMOPART NOW. HE CAN'T GET IT BUGFREE. TOO BAD FOR HIM! ZEB'S LAUGHTER IS DREADFULLY SINISTER. HE SHOULD HAVE BEEN IMPRISONED IN A SMALL CELL FOR THE REST OF HIS LIFE, CONDEMNED TO MAKE COOL SOUNDS FOR THE LAMIGA! POOR GUY.....  THE IDEAS ARE INVENTED BY THE AMIGA FOLKS, WHO CAN CARRY THEM OUT WITHOUT A LOT OF EFFORT. BUT THE REAL EFFORT COMES WHEN 'DEGRADING' THE ROUTINES DOWN TO A C64! THAT'S THE HARD WORK! WATCH OUT FOR A GREAT GAY PHOTO WITH ME, ZTH/SHADOWS, FIREHAWK AND TRIUMPH/HOAXERS. MOONRAY/SHADOWS TOOK THE PIC, BUT I COULD SEE IN HIS FACE THAT HE REALLY WANTED A SUCK, TOO! THIS PLACE LOOKS FUCKING UNTIDY NOW, AND WE HAVE TO DO SOME SERIOUS CLEANING! SO I'D BETTER RUN, AND CU MAYBE AT THE POWERLORDS COPYPARTY IN THE WINTER HOLIDAY! WOBBA WOBBA!      HAYA!!    THIS IS THE JON SYNDROME OF SQUADRON TYPING SOME CRAP ON THE KEYBOARD!  I HAD TO THROW HOMSENOID (OR WAS IT HUMANOID) AWAY SO YOU WAS NOT BORED COMPLETELY TO DEATH.      THERE ARE A LOT OF THINGS GOING ON HERE NOW, SOME LAMERS (?) ARE PLAYING BILLIARD. THEY HAVE PUT DIFFERENT CLOTHES AND THINGS IN THE HOLES SO THEY DON'T HAVE TO PAY FOR EACH TIME. CONDOR OF ARMADA IS SHOWING ME HIS 20 000 BOB-ROUTINE! YEP, YA SAW RIGHT: 20 000 BOBS!  EACH BOB IS ONE PIXEL BIG AND HAS COLORS FROM BLACK TO WHITE, AND THE MOST FANTASTIC THING IS THAT HE DOESN'T EVEN HAVE TO TURN THE POWER ON TO RUN IT!    IT IS ENOUGH TO TURN ON HIS OLD TV... ANOTHER THING GOING ON HERE,   IS THAT ZEB HAS TRAINED THE ARCADE GAUNTLET! I THINK IT'S THE FIRST ARCADE TRAINER EVER DONE ON A PARTY!  I REALLY HAVE TO SEND MY SPECIAL GREETINGS TO VIP OF POWERLORDS: NICE TO MEET YOU AT THE PARTY...                       YO !! BHF OF HOAXERS (64) IS TRASHING OVER THE KEYS.... THIS IS SUM KIND A DEMO ????? KIDDING....... WHAT A MINIPARTY !!  I HAVE JUST SLEPT SOME HOURS..    BLAHHHHH  THIS AMIGA  500  IS SO LAAAMEE  ..1. TO MUCH VIRUSES.   2. GAMES ARE NOT SO GOOD AS THE 64 GAMES.  3. I DON'T LIKE SEKA.  4. ????  VAAREN E KOMEN..... SNYEN RENNJ BORT.......EG GJENG MEG EIN TUR I LIOM.........OG TRAMPAR I EIN LORT !!!!!!!  POEM BY BUZZ OF ILLUSION...... EVERYBODY IS ALWAY PLAYING STUNT CAR. COOL GAME, BUT BETTER ON 64. (OF COURSE) .. THE AMIGA IS JUST A CHILD NOW, BUT THE OLD AND GOOOOOD 64 HAS MORE EXPERIENCE... SO IN ABOUT 5-6 YEARS, THE AMIGA WOULD BE USED UP TO MAXIMAL CAPABILITY.   ATARI RULES!!!!!  A T A R I  RULES!!!!    (WHO THE HELL WROTE ALL THAT CRAP AND BULLSHIT????? OF COURSE AMIGA RULES!!! -OCTON.)        YES YOU SAW IT   ATARI ATARI ATARI....  FUCK:  ZEB OF ABROMLA FOR ALL THE COMMENTS.(PARTY JOKE)   WHAT A HECK ? AMIGA IS LAME ???? WHAT HAVE HAPPENED HERE??? YES IT'S RIGHT !!!!! BHF SIGNING OFF.........         WHAT HAVE HAPPENED HERE, I(VIP) ASKED AND THEN SOMETHING OF SOMEONE ...OR SOMETHING ...CAME AND WROTE THE LINE YOU READ FOR LESS THAN 20 SEC AGO.  WHAT A LAMER (?) SAYING AMIGA IS LAME!! HE MUST HAVE HEARD TO MUCH C64 - MUSIC !!!! I'M (OR SHOULD I SAY MY BRAIN) FELING MUCH BETTER NOW AFTER PLAYING SOME BILLIARD!   HI, BHF CAME NOW SAYING THAT HE'LL WRITE MORE LATER ON! I DON'T KNOW WHAT HE'VE SAID EXACTLY, BUT I KNOW THAT IT'S GOING TO BE A LITTLE WAR BETWEEN THE COOL AMIGA AND THE BREADBOXES  (5 POINTS TO ME,HE, HE)...... VIP OF POWERLORDS SIGNING OFF...(FOR NOW!)....SEE YOU LATER IN THIS COOL PARTY SCROLL!!!               .  YO ! !      THIS IS THE REBEL LOOSE, AT LAST ! ! ! FIRST A MESSY TO BHF OF HOAXERS : HAVE YOU SEEN YOUR SHRINK LATELY ?? PROBABLY NOT, ACCORDING TO THE CRAP YOU WROTE EARLIER IN THIS COOL SCROLLER! I THINK EVERYONE HERE IS IN SOMEKIND OF SLEEPING TRANCE, SINCE IT HAS BEEN ALMOST IMPOSSIBLE TO GET ANY REAL SLEEP AROUNDE HERE! BESIDE ME I CAN SEE OCTON OF POWERLORDS, HE IS HAVING SOME TROUBLE WITH THIS DEMO.     VIP AND OCTON OF POWERLORDS ARE REALLY COOL DUDES (THEY MADE ME WRITE THIS ! !). (NO WE DIDN'T!!! -OCTON.)  EVEN THOUGH I HAVE HAD ENOUGH OF VIP, SINCE HE IS MY CLASS MATE! NO, TRULY SPOKEN, THEY ARE BOTH OKAY, NICE AND COOL PEOPLE WHICH IS QUITE FUN TO HAVE ALONG WHEN YOU ARE AT A PARTY. RIGHT NOW THEY'RE ''NUTTING'' OUT, AND THROWING DISKS ALL AROUND THE PLACE... ALSO I WOULD LIKE TO SAY THAT SOME 64 GUYS ARE REALLY NUTS, YESTERDAY (?) THEY HAD SOME KIND OF CHEESE WAR... ANYWAY, THERE WERE CHEESE FLYING ALL AROUND THE PLACE... RIGHT NOW VIP IS TRYING TO KILL OCTON BY BEATING HIM TO DEATH... IT'S BEEN QUITE A FUNNY PARTY, EVEN THOUGH I'M GETTING QUITE TIRED (AND JUST GOT HIT BY A FLYING DISK !) I WILL TRY TO USE SOME MORE BYTES OF  THIS DEMO... SPECIAL MESSAGE --- TO ROBOCOP(EX MEMBER OF IVORY, IF HE'S IN OZ NOW, I DUNNO !) : HEY! TIME FOR YOU TO RETURN MY DISKS SOON, IT'S BEEN SEVERAL MONTHS NOW ! ! ! THIS MESSAGE ALSO GOES TO TYPHOON OF FRAXION ! ! ! I'M AT THE MOMENT RUNNING OUT OF BULLSHIT TO CRAP DOWN ON THIS KEYBOARD... MAYBE I'LL RETURN LATER... MAYBE NOT...  THE REBEL SIGNING OFF.......          ... . .. . . . AAAARRRRGGGGHHHH!!!!   ...THIS IS ZEB SPEAKING FROM THE PARADISE OF SONIX AND DELIGHT ..... I AM GETTING SICK OF LISTENING TO MY GOLDEN OLDIE (KVALM ..HEH???) SUMMING IN THE BACKGROUND ...U C  ARMADA GET THEIR KICKS OUT OF SUCKING OLD PANTIES AND LISTENING TO OLD MUSIC .....SORRY ARMADA BUT I AM A TIRED , TIRED , TIRED , TIRZ Z     Z     Z  Z ZZ ZZ Z ZZZZZZZZZZZZ   ......UH !!! SORRY BUT VIP JUST LET ONE GO !!!  NOW I DON'T KNOW WHAT'S GOING ON WITH ME AND AMIGA GROUPS FOR THE MOMENT BEING .... EITHER I CAN CARRY ON WITH ABNORMAL ...JOIN ANOTHER GANG ,OR JUST TURN FREELANCE    . . . . . . . WHO KNOWS WHAT WILL POP UP . . . . (POP) ..... I AM NOW HUNGRY AND WILL SEND THE GREETINGS TO MY FRIENDS BEFORE I EAT THEM ...GRYTS TO : SPACY,RHINOX (TROND), B.H.F,JON,JOSTEIN (LUMP-FISH),OCTAN ..UH OCTON THAT IS OF POWWWEERRR LORDS ,AND TO VIP OF THE SAME GANG,TRS,CONDOM ..EHR CONDOR ,STEINRAR BR0SMAK (THE COOL GUY LIVING IN A FLAT OF HIS OWN) , EMUND THE DRUNK ONE .....AND TO EVERY ELSE I HAVE FORGOTTEN (LIKE TRAXION AND HOAXERS)  ...UH HELLO STIAN,MORTEN ROLFSEN . . . . SPEZIAL GREETINGS GO TO OUR ALL BELOVED ZTH . . . . HAAVAR HOJEM . . BJ0RNI 'MOONRAY' RUST0YET. . . . NOW BE ON THE LOOKOUT FOR MY NEW SONG COMING SOON IN A SQUADRON DEMO CALLED SUN FUN IN THE USA........ NOW IT'S TIME FOR FOOOOOOOOD                I AM HUMANOID! I CAN HEAR SOME ORGASMIC SCREAMS FROM THE ROOM WHERE BJ0RN 'MOONRAY' R0ST0EN AND EMUND IS ASLEEP! GOD WONDER WHAT THEY ARE DOING.... OR WAS IT JUST 'GAUNTLET?' I AM LISTENING TO A TUNE FROM ZEB, AND IT HAS BEEN ON FOR ABOUT 8 HOURS NOW! IT'S VERY COOL,  BUT IT IS NOW GETTING VERY BORING! SOME PARTYGREETS TO THE CHIEFS AT THIS PARTY: HOAXERS (FIREHAWK, CRITE, ME, TRIUMPH, ANXIETY, BHF, TRENT AND CODEX), ILLUSION (FIST, HERO), NETWORK (ZIX), PANORAMIC DESIGNS (BJ0RN R0ST0EN, HAAVAR HOJEM), RAZOR 1911 (DR.NO, SECTOR 9, CODEX, REX) POWER LORDS (VIP, OCTON), SQUADRON (JON, JOSTEIN), TRAXION (THORAXE, TCF, SMILEY), STEINAR BR0SETH, AND TO THE OTHER EXTREME LAMERS HERE! BYE FROM THE NUMBER 1!   ALWAYS HEADING OUT LIKE THE NUMBER 1. BACK TO THE FACT THAT I(BHF) WAS CALLED A LAMER SOME BITS AGO.  LET ME WRAP THIS SCROLLY WITH SOME MAGIC WORDS:   AMIGA IS COOL  ATARI IS LAME... OR...WAS IT  CBM 64 IS THE BEST ...??? YES THATS RIGHT... VIP SAYS THAT OUR 64 IS A BREADBOX  ... THATS RIGHT  BUT ITS COOL. GREETINGS TO: MUND FOR BEING SO F...ING DRUNK   ( ATARI LIVES)    C. BHF OF HOAXERS IN 1989.... PS:  A  T  A  R  I = TRASH        OK VIP, BACK AGAIN ! ANSWER TO BHF, TALKING ABOUT AMIGA VS C64 . THE C64 IS WERY COOL TO BE SO VERY CHEAP, BUT AMIGA IS THE BEST, SO FUCK ATARI, AND LET'S SAY GOOD BYE..... VIP OF POWERLORDS NORWAY -89       YEP, THIS IS OCTON AGAIN! I JUST WANT TO SAY THANX FOR READING ALL THIS CRAP. SORRY 'BOUT THIS FUCKING DEMO, BUT WE HEARD ABOUT THIS PARTY ONLY ONE DAY BEFORE IT WAS GOING TO BE HELD. SO THERE WAS NO TIME TO FIX SOME THING BETTER. LOOK OUT FOR OUR FUTURE PRODUCTS!!!  POWERLORDS, FEELS LIKE ACID IN YOUR ASS!!! AND COOL IS OUR RULE!!!!   BYE ALL YOU FAITHFULL READERS.........                                                        



YEP, THIS IS THE GREET SCROLL. IF SOMEBODY IS STILL MISSING ON OUR LIST, THAN GIVE US A NOTE PLEEZ!     IF YOU WANNE SWAP WITH POWERLORDS, THEN CONTACT:      OCTON,    FJOSMESTERVEIEN 22 C,     7046 TRONDHEIM,     NORWAY.        FIRST OF ALL SPECIAL GREETZ TO POWERLORDS SWEDEN AND POWERLORDS UK!!!      SOME PARTY GREETZ TO RAZOR 1911 (NICE TO MEET YOU REX. CONTACT US IF YOU GUYZ WANT TO ARRANGE A COPY-PARTY TOGETHER WITH US IN THE WINTER-HOLIDAY. CALL (07) 914178, AND ASK FOR ROY. OK?   ALSO PARTY GREETZ TO HOAXERS (C64), SQUADRONABNORMAL  AND ARMADA!   I REALLY LOVE YOUR MUZAK ZEB, SO WE WOULD VERY MUCH LIKE TO HAVE YOU IN OUR GROUP! THE SAME FOR YOU CONDOR! YOU'RE A COOL CODER, SO CONTACT US IF YOU WANT TO JOIN A BETTER GROUP.           GREETS GOES TO (A-Z ORDER):          ABANDON, ABNORMAL, ACID FORCE, ACCUMULATORS, AGENTS, ALIVE, ARMADA, ATTITUDE, B.O.D., BLURP, BROWBEAT, CARTEL, CABE, CHILDREN OF THE SCIENCE, COSA NOSTRA, CRIONICS, CRYPTOBURNERS, COMPLEX, CRYSIS, DEADZONE, DIGITECH, DRAGONECS, ESA, ESCAPE, FAT AGNUS, FLASH PRODUCTIONS, FOBL, FRAXION, FULL FORCE, GATE AND EXEC, GHOSTRIDERS, GO GO INC., HUMANOIDS, IEE, IRON EAGLE CREW (LUXEMBOURG), IT, ITN, IVORY, JOY DIVISION, KERNAL GADAFFI, MAC, MAFFIA, MIRAGE UK, MR. MANIAC, NGD, NIMITZ, NORTHSTAR/SILENTS, NUKE BUSTERS, ORION, PANTHERS, PENT HOUSE, PHENOMENA, PHOENIX, POWER DRIVE, RAT SNAKE, RATS, RIGOR MORTIS, SFC, STRIKE/ARGON (BELGIUM), SQUADRON, STRIPE, SUN CONNECTION, SYSTEM 5, THE BLACK CORSAIR (SPAIN), THE DUDES, THE HIGHWAY MAN, THE NET RUNNERS, THE NICAM, THUNDERHAWK, TLOS, TMIH-GANG, TORQUE, TOTTO, TSD, UNIQUE, VAMP7, ZEDDY, ZOMBIE BOYS.                          



>extern "df0:modules/mod2",data
>extern "df1:xsin",scrollsine
>extern "df1:sinevalues",sinus
>extern "df1:bf2.raw",fontpic
>extern "df1:landskap",picture
>extern "df1:3d9",frame9,frame9+5880
>extern "df1:32x32sh4",fontpic2
>extern "df1:spriteboj",spritesine
>extern "df1:vectors",vectors

main:
	clr.l d7
	bsr drawit
	bclr #1,$bfe001
	bsr fixbpl
	bsr fixcop
	move.l #copper0,d7
	bsr setsystem
	bsr showpic
	lea textstart,a3
	lea text2start,a4
	move.l #frame1,a6
	bsr.l start_muzak
again:	bsr getfont
	move.l #7,d7
mloop: 	bsr waitraster		;vänta tills rasterlinje 255
	move.l a6,d3
	swap d3
	move.w d3,foam1+2
	swap d3
	move.w d3,foam1+6
	addi.w #5880,a6
	cmp.l #frame1+47040,a6
	bne.s noag
	move.l #frame1,a6
noag:	bsr scrolltext
	bsr putscroll
	bsr scrolltbl
	bsr landscape
	bsr scrolltext2
	addq.l #1,txt2ctr
	cmp.l #16,txt2ctr
	bne.s waty
	move.l #0,txt2ctr
	bsr getfont2
waty:	btst #10,$dff016
	beq.s waty
	btst #6,$bfe001
	beq.s slut
	clr.l d6
	clr.l d5
	move.b $dff006,d6
	move.b scan,d5
	cmp.l d5,d6
	ble.s nohi
	move.b d6,scan
nohi:	dbra d7,mloop
	bra.L again
slut:	bsr.l stop_muzak
	moveq #0,d0
	bclr #1,$bfe001		;sätt på filtret igen
	bsr backto		;återställ skärm & copper
	rts
drawit:
	movem.l d0-d7/a0-a6,-(SP)

	lea vectors,a0
	lea frame1,a4
	move.l #7,d6		;8 animations
di2:	moveq #0,d0
	moveq #0,d1
	moveq #0,d2
	moveq #0,d3
	move.l #31,d7		;32 linjer ska dras
di1:	move.b (a0)+,d1
	move.b (a0)+,d3		;y-koord
	move.w (a0)+,d0
	move.w (a0)+,d2		;x-koord
	move.l #42,a5
	move.l #$ffff,a6
	move.w #$ffff,$dff044
	bsr draw
	dbra d7,di1
	add.l #5880,a4
	dbra d6,di2
	movem.l (SP)+,d0-d7/a0-a6
	rts	
fixcop:
	movem.l d0-d7/a0-a6,-(SP)
	move.l #$c901fffe,stop1+4
	lea stop2+4,a0
	move.l #$cb,d0
	move.l #10,d7
fc1:	move.b d0,(a0)+
	move.b #$01,(a0)+
	move.w #$fffe,(a0)+
	addq.w #4,a0
	addq.w #1,d0
	dbra d7,fc1
	lea stop3+4,a0
	move.l #$d7,d0
	move.l #12,d7
fc2:	move.b d0,(a0)+
	move.b #$01,(a0)+
	move.w #$fffe,(a0)+
	addq.w #4,a0
	addq.w #1,d0
	dbra d7,fc2
	lea stop4+4,a0
	move.l #$e5,d0
	move.l #26,d7
fc3:	move.b d0,(a0)+
	move.b #$01,(a0)+
	move.w #$fffe,(a0)+
	addq.w #4,a0
	addq.w #1,d0
	dbra d7,fc3
	lea stop4+228,a0
	move.l #$01,d0
	move.l #18,d7
fc4:	move.b d0,(a0)+
	move.b #$01,(a0)+
	move.w #$fffe,(a0)+
	addq.w #4,a0
	addq.w #1,d0
	dbra d7,fc4
	lea stop5+4,a0
	move.l #$15,d0
	move.l #26,d7
fc5:	move.b d0,(a0)+
	move.b #$01,(a0)+
	move.w #$fffe,(a0)+
	addq.w #4,a0
	addq.w #1,d0
	dbra d7,fc5
	lea colors,a0
	lea spritesine,a1
	lea copdata,a2
	move.l #$24,d6
	move.l #113,d7
fc6:	move.b d6,(a2)+
	addq.w #3,a2
	move.w #$0140,(a2)+
	move.b #$24,(a2)+
	move.b (a1)+,d0
	move.b d0,d1
	asr #1,d0
	add.b #$38,d0
	move.b d0,(a2)+
	move.w #$0142,(a2)+
	move.b #$b4,(a2)+
	andi.b #1,d1
	move.b d1,(a2)+
	move.w #$0148,(a2)+
	move.b #$24,(a2)+
	move.b (a1)+,d0
	move.b d0,d1
	asr #1,d0
	add.b #$3c,d0
	move.b d0,(a2)+
	move.w #$014a,(a2)+
	move.b #$b4,(a2)+
	andi.b #1,d1
	move.b d1,(a2)+
	move.w #$0180,(a2)+
	move.w (a0)+,(a2)+
	addq.w #1,d6
	dbra d7,fc6
	movem.l (SP)+,d0-d7/a0-a6
	rts
fixbpl:
	movem.l d0-d7/a0-a6,-(SP)
	lea ptrs,a0
	move.l #landarea,d0
	move.l #2,d7		;3 bpls
fb1:	swap d0
	move.w d0,2(a0)
	swap d0
	move.w d0,6(a0)
	addi.w #616,d0
	addq.w #8,a0
	dbra d7,fb1
	lea ptrs2,a0
	move.l #landarea+572,d0
	move.l #2,d7		;3 bpls
fb2:	move.w d0,2(a0)
	addi.w #616,d0
	addq.w #4,a0
	dbra d7,fb2
	lea foam1,a0
	move.l #frame1,d0
	move.l #frame9,d1
	swap d0
	swap d1
	move.w d0,2(a0)
	move.w d1,10(a0)
	swap d0
	swap d1
	move.w d0,6(a0)
	move.w d1,14(a0)
	lea foam2,a0
	move.l #frame9+588,d1
	swap d1
	move.w d1,2(a0)
	swap d1
	move.w d1,6(a0)
	lea foam3,a0
	move.l #frame9+1512,d1
	swap d1
	move.w d1,2(a0)
	swap d1
	move.w d1,6(a0)

	lea spriteptrs,a0
	move.l #sprite0,d0
	swap d0
	move.w d0,2(a0)
	swap d0
	move.w d0,6(a0)
	lea spriteptrs+8,a0
	move.l #sprite1,d0
	swap d0
	move.w d0,2(a0)
	swap d0
	move.w d0,6(a0)
	movem.l (SP)+,d0-d7/a0-a6
	rts
showpic:
	movem.l a0-a1/d6,-(SP)
	lea picture,a1
	lea scr+504,a2
	move.l #2,d6			;3 bitplan
sp1:	bsr blitwait
	move.l a1,$dff050
	move.l a2,$dff054
	move.w #0,$dff064
	move.w #0,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #7445,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
	addi.w #8400,a1			;next bitplane in fontpic
	addi.w #10240,a2		;next bitplane in scrollarea
	dbra d6,sp1
	lea picture+4956,a1
	lea landarea,a2
	move.l #2,d6			;3 bitplan
sp2:	bsr blitwait
	move.l a1,$dff050
	move.l a2,$dff054
	move.w #0,$dff064
	move.w #2,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #917,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
	addi.w #8400,a1			;next bitplane in fontpic
	addi.w #616,a2			;next bitplane in scrollarea
	dbra d6,sp2
	movem.l (SP)+,a0-a1/d6
	rts	
landscape:
	bsr blitwait
	move.l #landarea,$dff050
	move.l #landarea-2,$dff054
	move.w #0,$dff064
	move.w #0,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$f9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #2774,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
	addq.b #1,lsctr
	cmp.b #16,lsctr
	bne.L nodown
	move.b #0,lsctr
	bsr blitwait
	move.l #landarea+1802,$dff050
	move.l #landarea+1846,$dff054
	move.w #42,$dff064
	move.w #42,$dff066
	move.w #2,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #2689,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
nodown:	rts
getfont:
	movem.l d0-d7/a0-a2/a4-a6,-(SP)	;ändrar i a3,spara därför ej
	move.b #0,stop
	moveq #0,d7
	move.b (a3)+,d7
	cmp.l #textend,a3
	bne.s notxtend
	lea textstart,a3
notxtend:cmp.l #128,d7
	bne.s nostop
	move.b #1,stop
	move.l #32,d7
nostop:	subi.w #32,d7
	divu #10,d7
	move.l d7,ptr
	moveq #0,d7
	move.w ptr+2,d7
	mulu #1280,d7
	moveq #0,d6
	move.w ptr,d6
	asl #2,d6
	add.l d6,d7
	addi.l #fontpic,d7		;addera fontstart i minnet
	move.l d7,a1			;source i a1
	move.l #scrollarea+88,a2	;dest i a2
	move.l #2,d6			;3 bitplan
gftlop:	bsr blitwait
	move.l a1,$dff050
	move.l a2,$dff054
	move.w #36,$dff064
	move.w #42,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #2050,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
	addi.w #8000,a1			;next bitplane in fontpic
	addi.w #1564,a2			;next bitplane in scrollarea
	dbra d6,gftlop
blcont:	movem.l (SP)+,d0-d7/a0-a2/a4-a6
	rts
getfont2:
	movem.l d0-d7/a0-a3/a5-a6,-(SP)	;ändrar i a4,spara därför ej
	moveq #0,d7
	move.b (a4)+,d7
	cmp.l #text2end,a4
	bne.s notxt2end
	lea text2start,a4
notxt2end:subi.w #32,d7
	divu #10,d7
	move.l d7,ptr
	moveq #0,d7
	move.w ptr+2,d7
	mulu #1280,d7
	moveq #0,d6
	move.w ptr,d6
	asl #2,d6
	add.l d6,d7
	addi.l #fontpic2,d7		;addera fontstart i minnet
	move.l d7,a1			;source i a1
	lea sprite0+580,a2	;dest i a2
	move.l #1,d6			;3 bitplan
gftlop2:bsr blitwait
	move.l a1,$dff050
	move.l a2,$dff054
	move.w #38,$dff064
	move.w #2,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #2049,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
	addi.w #8000,a1			;next bitplane in fontpic
	addi.w #2,a2			;next bitplane in scrollarea
	dbra d6,gftlop2
	subi.w #15998,a1
	lea sprite1+580,a2		;dest i a2
	move.l #1,d6			;3 bitplan
gftlop3:bsr blitwait
	move.l a1,$dff050
	move.l a2,$dff054
	move.w #38,$dff064
	move.w #2,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #2049,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
	addi.w #8000,a1			;next bitplane in fontpic
	addi.w #2,a2			;next bitplane in scrollarea
	dbra d6,gftlop3
	movem.l (SP)+,d0-d7/a0-a3/a5-a6
	rts
putscroll:
	movem.l d0-d7/a0-a6,-(SP)
	lea scrollarea,a1		;source 2
	lea scr+7056,a2			;destination
	lea scr+7056,a3			;destination reserv
	move.w #$8400,$dff096
	move.w #40,$dff062
	move.w #44,$dff064
	move.w #40,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #2,d6			;3 bitplanes
ps2:	lea sinus,a0			;source 1
	move.l #20,d7			;42 columns
ps1:	move.l a3,a2
	add.w (a0)+,a2

	bsr blitwait
	move.l a1,$dff050
	move.l a2,$dff054
	move.l #$ff00ff00,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #2177,$dff058		;set h=40 w=2 (32)+start blit

	move.l a3,a2
	add.w (a0)+,a2
	addi.w #92,a1
	addi.w #84,a2
	bsr blitwait
	move.l a2,$dff04c
	move.l a1,$dff050
	move.l a2,$dff054
	move.l #$00ff00ff,$dff044	;1st-&-last-word mask
	move.w #$dfc,$dff040		;log. op. + scroll
	move.w #1985,$dff058		;set h=40 w=2 (32)+start blit

	subi.w #90,a1
	addq.w #2,a3
	dbra d7,ps1
	addi.w #1522,a1		;1564-2*42
	addi.w #10198,a3	;10240-2*42
	dbra d6,ps2
	move.w #$400,$dff096
	movem.l (SP)+,d0-d7/a0-a6
	rts
scrolltbl:
	move.l d5,-(SP)
	move.w sinus,d5
	bsr blitwait
	move.l #sinus+2,$dff050
	move.l #sinus,$dff054
	move.w #0,$dff064
	move.w #0,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #168,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
	move.w d5,sinus+158
	move.w scrollsine,d5
	bsr blitwait
	move.l #scrollsine+2,$dff050
	move.l #scrollsine,$dff054
	move.w #0,$dff064
	move.w #0,$dff066
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #$8400,$dff096
	move.w #102,$dff058		;set h=40 w=2 (32)+start blit
	move.w #$400,$dff096
	move.w d5,scrollsine+74
	move.l (SP)+,d5
	rts
blitwait:
bw1:	btst #14,$dff002
	bne.s bw1
	rts
scrolltext:
	movem.l d0-d7/a0-a6,-(SP)
	cmp.b #0,stop
	bne.s jumpover
	lea scrollarea+48,a1
	lea scrollarea+46,a2
	move.l #2,d7
blutt:	bsr blitwait
	move.l a1,$dff050
	move.l a2,$dff054
	move.w #0,$dff064		;modulo values
	move.w #0,$dff066
	move.w #$c9f0,$dff040		;log. op. + scroll
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$8400,$dff096
	move.w #2007,$dff058		;set h=3*40 w=44+start blit
	move.w #$400,$dff096
	addi.w #1564,a1
	addi.w #1564,a2
	dbra d7,blutt
jumpover:movem.l (SP)+,d0-d7/a0-a6
	rts
scrolltext2:
	bsr blitwait
	move.l #sprite0+12,$dff050
	move.l #sprite0+4,$dff054
	move.w #0,$dff064		;modulo values
	move.w #0,$dff066
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$8400,$dff096
	move.w #11138,$dff058		;set h=3*40 w=44+start blit
	move.w #$400,$dff096
	bsr blitwait
	move.l #sprite1+12,$dff050
	move.l #sprite1+4,$dff054
	move.w #0,$dff064		;modulo values
	move.w #0,$dff066
	move.w #$9f0,$dff040		;log. op. + scroll
	move.w #0,$dff042		;blitter mode: copy data
	move.l #$ffffffff,$dff044	;1st-&-last-word mask
	move.w #$8400,$dff096
	move.w #11138,$dff058		;set h=3*40 w=44+start blit
	move.w #$400,$dff096
	rts
draw:
	movem.l d0-d7/a0-a6,-(SP)

	move.l a5,d4
	mulu d1,d4
	moveq #-$10,d5
	andi.w d0,d5
	asr.w #3,d5
	addi.w d5,d4
	addi.l a4,d4
	moveq #0,d5
	subi.w d1,d3
	roxl.b #1,d5
	tst.w d3
	bge.s y2gyl
	neg.w d3
y2gyl:	subi.w d0,d2
	roxl.b #1,d5
	tst.w d2
	bge.s x2gxl
	neg.w d2
x2gxl:	move.w d3,d1
	subi.w d2,d1
	bge.s dygdx
	exg d2,d3
dygdx:	roxl.b #1,d5
	move.b octant_table(PC,d5),d5
	addi.w d2,d2
wblit:	btst #14,$dff002
	bne.s wblit
	move.w d2,$dff062
	subi.w d3,d2
	bge.s signnl
	ori.b #$40,d5
signnl:	move.w d2,$dff052
	subi.w d3,d2
	move.w d2,$dff064
	move.w #$8000,$dff074
	move.w a6,$dff072
	andi.w #$000f,d0
	ror.w #4,d0
	ori.w #$0bca,d0
	move.w d0,$dff040
	move.w d5,$dff042
	move.l d4,$dff048
	move.l d4,$dff054
	move.w a5,$dff060
	move.w a5,$dff066
	asl.w #6,d3
	addq.w #2,d3
	move.w d3,$dff058
	movem.l (SP)+,d0-d7/a0-a6
	rts

octant_table:
dc.b 1,17,9,21,5,25,13,29 
backto:
	move.l gfxbase,a6
	move.l oldcop,50(a6)
	move.l 4,a6
	jsr -126(a6)
	rts
waitraster:
wloop:	cmp.b #$ff,$dff006
	bne.s wloop
	rts
copperinit:
	move.l #copper0,newcop
	move.l gfxbase,a0
	move.l newcop,50(a0)
	rts
scr=$70000
struc=$7f000
rastport=struc+100
setsystem:
	clr.l d0
	clr.l d1
	clr.l d2
	clr.l d3
	clr.l d4
	clr.l d5
	clr.l d6
	move.l #0,a0
	move.l #0,a1
	move.l #0,a2
	move.l #0,a3
	move.l #0,a4
	move.l #0,a5
	move.l #0,a6
	bsr getgfx
	bsr cleanitdown
	move.w #15359,d0
	move.l #scr,a0
slet:	move.l #0,(a0)+
	dbra d0,slet
	move.l #scr,a0
	move.l a0,struc+8; var skärmen ligger
	move.l #struc,a0;
	moveq #1,d0;
	move.l #336,d1;  och hur stor den är
	move.l #268,d2;
	move.l gfxbase,a6;
	jsr -390(a6);
	move.l #rastport,a1;
	jsr -198(a6);
	move.l #struc,rastport+4;
	move.l d7,newcop; starta egen copperlista
	bsr changecop;
	rts
gfxbase:dc.l 0
gfxname:dc.b 'graphics.library',0,0
getgfx:
	move.l 4,a6
	move.l #gfxname,a1
	jsr -408(a6)
	move.l d0,gfxbase
	rts
newcop:dc.l 0
oldcop:dc.l 0
changecop:
	move.l gfxbase,a0
	move.l 50(a0),oldcop
	move.l newcop,50(a0)
	rts
oldcopper:dc.l 0

cleanitdown:
	move.l 4,a6
	jsr -132(a6)
	rts
olde0:	dc.w 0
olde2:	dc.w 0
olde4:	dc.w 0
olde6:	dc.w 0
;*****COPPER-LISTA*****
copper0:dc.w $0100,$3200	;3 bitplan,non-dual playfield

dc.w $0180,0
dc.w $0104,36
dc.w $008e,$2441
dc.w $0090,$30d1
dc.w $0092,$30
dc.w $0094,$d0

dc.w $0108,$0000
dc.w $010a,$0000
dc.w $0102,$00

spriteptrs:
dc.w $0120,0
dc.w $0122,0
dc.w $0124,0
dc.w $0126,0

dc.w $00e0,$0007
dc.w $00e2,$0000
dc.w $00e4,$0007
dc.w $00e6,$2800	;playfield1-pointers
dc.w $00e8,$0007
dc.w $00ea,$5000

dc.w $0182,$333
dc.w $0184,$555
dc.w $0186,$777
dc.w $0188,$999
dc.w $018a,$bbb
dc.w $018c,$ddd
dc.w $018e,$fff

dc.w $01a2,$e7e
dc.w $01a4,$c3c		;spritecolors spritescroll
dc.w $01a6,$b09

copdata:
blk.l 6*114,$0001fffe

dc.w $00e4,7
dc.w $00ec,7
dc.w $00f4,7

dc.w $95df,$fffe
dc.w $0100,$6600

ptrs:
dc.w $00e0,0
dc.w $00e2,0
dc.w $00e8,0
dc.w $00ea,0
dc.w $00f0,0
dc.w $00f2,0

dc.w $00e6,$1260
dc.w $00ee,$3a60
dc.w $00f6,$6260

dc.w $0180,$eee
dc.w $0182,$333
dc.w $0184,$fff
dc.w $0186,$ddd
dc.w $0188,$bbb
dc.w $018a,$999
dc.w $018c,$777
dc.w $018e,$555

dc.w $0192,$333
dc.w $0194,$555
dc.w $0196,$777
dc.w $0198,$999
dc.w $019a,$bbb
dc.w $019c,$ddd
dc.w $019e,$fff
dc.w $0108,2

dc.w $9701,$fffe
dc.w $0180,$eec
dc.w $9801,$fffe
dc.w $0180,$eea
dc.w $9901,$fffe
dc.w $0180,$ee8
dc.w $9a01,$fffe
dc.w $0180,$ee6
dc.w $9a01,$fffe
dc.w $0180,$ee4
dc.w $9b01,$fffe
dc.w $0180,$ee2
dc.w $9c01,$fffe
dc.w $0180,$ee0
dc.w $9d01,$fffe
dc.w $0180,$ec0
dc.w $9e01,$fffe
dc.w $0180,$ea0
dc.w $9f01,$fffe
dc.w $0180,$e80
dc.w $a001,$fffe
dc.w $0180,$e60
dc.w $a101,$fffe
dc.w $0180,$e40
dc.w $a201,$fffe
dc.w $0180,$e20
dc.w $a301,$fffe
dc.w $0180,$e00

dc.w $a3df,$fffe
dc.w $0100,$5600
ptrs2:
dc.w $00e2,$1a40
dc.w $00ea,$4240		;plf 1 (att fyllas)
dc.w $00f2,$6a40

foam1:
dc.w $00e4,0
dc.w $00e6,$1500
dc.w $00ec,0
dc.w $00ee,$1500
dc.w $0104,100

dc.w $0180,$402		;Bakgrundsfarg till rutnat
dc.w $0192,$e61		;40
dc.w $0194,$f87		;Forgrundsfarg i rutnat a0
dc.w $0196,$f72		;1f1

dc.w $0182,$111
dc.w $0184,$ccc
dc.w $0186,$aaa
dc.w $0188,$888
dc.w $018a,$666
dc.w $018c,$444
dc.w $018e,$222
dc.w $0108,-86

dc.w $a5d7,$fffe,$0180,$f87

dc.w $a701,$fffe
dc.w $0180,$503
dc.w $0192,$f72		;50
dc.w $0194,$f86		;Forgrundsfarg i rutnat b0
dc.w $0196,$f72		;2f2
dc.w $a87d,$fffe,$0180,$f86
dc.w $aa01,$fffe
dc.w $0180,$705		;Bakgrundsfarg till rutnat
dc.w $0192,$f72		;60
dc.w $0194,$f96		;Forgrundsfarg i rutnat c0
dc.w $0196,$f72		;3f3
dc.w $add7,$fffe,$0180,$f96

dc.w $b001,$fffe
dc.w $0180,$705
dc.w $0192,$f72		;70
dc.w $0194,$fd0		;Forgrundsfarg till rutnat d0
dc.w $0196,$f72		;4f4
dc.w $b201,$fffe
dc.w $0100,$2200
dc.w $0108,0

foam2:
dc.w $00e0,0
dc.w $00e2,0		;att fyllas
dc.w $0182,$f95		;Forgrundsfarg i rutnat d0
dc.w $0184,$f72		;70
dc.w $0186,$f72		;4f4
dc.w $b3d7,$fffe,$0180,$f95

dc.w $b401,$fffe
dc.w $0120,0
dc.w $0122,0
dc.w $0124,0
dc.w $0126,0

dc.w $b701,$fffe
dc.w $0180,$806		;Bakgrundsfarg till rutnat
dc.w $0182,$fa5		;Forgrundsfarg i rutnat
dc.w $0184,$f72		;80
dc.w $0186,$f72		;5f5
dc.w $bbd7,$fffe,$0180,$fa5

dc.w $c001,$fffe
dc.w $0180,$806
dc.w $0182,$fa4		;Forgrundsfarg i rutnat
dc.w $0184,$f72		;90
dc.w $0186,$f72		;6f6
dc.w $c5d7,$fffe,$0180,$fa4

dc.w $c7df,$fffe
dc.w $0100,$5600
dc.w $0104,0
foam3:
dc.w $00ec,0
dc.w $00ee,0		;att fyllas

dc.w $00e0,$0007
dc.w $00e2,$1ae8
dc.w $00e8,$0007
dc.w $00ea,$42e8
dc.w $00f0,$0007
dc.w $00f2,$6ae8

dc.w $0182,$99f
dc.w $0184,$77e
dc.w $0186,$65d
dc.w $0188,$53b
dc.w $018a,$42a
dc.w $018c,$319
dc.w $018e,$308

dc.w $0192,$f72		;90
dc.w $0194,$fb4		;Forgrundsfarg i rutnat f0
dc.w $0196,$f72		;6f6

stop1:
blk.l 2*2-1,$01020000
dc.w $ca01,$fffe
dc.w $0180,$a08		;Bakgrundfarg till rutnat
dc.w $0192,$f72		;a0
dc.w $0194,$fb3		;Forgrundsfarg i rutnat 1f1
dc.w $0196,$f72		;7f7

dc.w $d0d7,$fffe,$0180,$fb3

dc.w $d601,$fffe
dc.w $180,$a08

dc.w $0192,$f72		;b0
dc.w $0194,$fc3		;Forgrundsfarg i rutnat 2f2
dc.w $0196,$f72		;8f8

dc.w $ddd7,$fffe,$0180,$fc3

dc.w $e401,$fffe
dc.w $0180,$b0b		;Bakgrundsfarg till rutnat
dc.w $0192,$f72		;c0
dc.w $0194,$fd2		;Forgrundsfarg i rutnat 3f3
dc.w $0196,$f72		;Vector farg 9f9

dc.w $ebd7,$fffe,$0180,$fd2
dc.w $f401,$fffe,$0180,$b0c
dc.w $fbd7,$fffe,$0180,$fd2

dc.w $ffdf,$fffe
dc.w $0401,$fffe
dc.w $0180,$c0c
dc.w $0dd7,$fffe
dc.w $0180,$fd2
dc.w $1401,$fffe
dc.w $0108,-84
dc.w $0104,64

dc.w $0182,$c05
dc.w $0184,$c0b
dc.w $0186,$c0a
dc.w $0188,$c09
dc.w $018a,$b07
dc.w $018c,$b06
dc.w $018e,$a05

dc.w $1701,$fffe,$0180,$c0d
dc.w $21d7,$fffe,$0180,$fd2
dc.w $2b01,$fffe,$0180,$c0e
dc.w $ffff,$fffe	;end of clist

textstart:
DC "             NO!!!   "
blk.b 20,128
DC "DON'T FUCK WITH THAT BUTTON YET!!! THIS IS GOING TO BE A "
DC "REALLY COOL PARTY SCROLL, SO READ THE WHOLE TEXT!!! "
DC "  (15KB OF TEXT TO COME...).     ONLY SOME CREDITS "
DC "FIRST:   CODING DONE BY CONAN/POWERLORDS SWEDEN AND WITH SOME ADDITIONAL "
DC "CODING (AND DEBUGGING) BY OCTON.   COOL MUZAK BY ZEB/ABNORMAL.   GFX RIPPED "
DC "FROM A GAME.   AND I HAD TO MENTION THAT VIP MADE THE PALETTE TO"
DC " THIS DEMO....          ZYNIX AND WIZAX IS NOW KICKED OUT OF POWERLORDS, SO ALL "
DC "THEIR CONTACTS SHOULD CONTACT ME, IF THEY STILL WANT TO SWAP WITH "
DC "POWERLORDS. WRITE TO :   OCTON,    FJOSMESTERVEIEN 22C,   7046 TRONDHEIM "
DC "   AND THAT'S IN NORWAY, OF COURSE!!!    WE'LL MAYBE HAVE A PARTY HERE IN "
DC "TRONDHEIM DURING THE WINTER-HOLIDAY, SO STAY COOL FOLKS FOR MORE INFO!!! "
DC " MESSAGE TO RAZOR,  ZEB   AND   CONDOR IN THE SCROLLER ABOVE...  "
DC "OCTON SIGNING OFF....  (REMEMBER TO READ THE WHOLE TEXT!!!!)        "
DC "FUCK THIS COMPUTER! SOMETHING IS WRONG WITH IT !  FOR EXAMPLE"
DC " THE SECOND AUDIO CHANNEL DONT WORK. THE TIME IS NOW "
DC "  09.05   IN THE MORNING AND IT'S SUNDAY! I (VIP/POWERLORDS) HAVE "
DC "SLEPT FOR ABOUT 3-4 HOURS DURING THIS PARTY, AND I'M "
DC "RATHER TIRED NOW!         YESTERDAY I MET SOME GUYS LIKE: "
DC "RAZOR 1911, ARMADA, SQUADRON, ESCAPE AND SO ON.        MY HEAD "
DC "IS LIKE ACID IN YOUR ASS, MAN ! ! ! ! ! ! !       "
DC "BANG, BANG ! THEY HAVE BEEN PLAYING MUSIC EVERY MINUTE, AND    "
DC "90    PER CENT IS HEAVY!! OWH,OWWW! HI THORE! SEND ME A "
DC "DISK, AND A LETTER ! HI, YOU ! WHY IS THIS SCROLLER A "
DC "FUCKING BORING ONE, WITH MANY MISSPELLINGS AND ,AND ..? (BLAME YOURSELF "
DC "VIP!!! -OCTON)    "
DC "DON'T ASK ME, ASK MY HEAD, BECAUSE MY HEAD IS DOING SOME "
DC "RATHER FUNNY THINGS WITH MY HANDS AND MY BODY ???      NOW LET'S "
DC "WRITE SOME BULLSHIT, OR SHALL I SAY SOME MORE BULLSHIT? "
DC "OH, I FORGOTTEN ! THE PARTY HAVE OF COURSE A MOVIE ROOM "
DC "TOO !         BULL #1. COKE IS COKE AND I HAVE FUCKED 4 LITRES AT "
DC "THIS PARTY   +   2   *   0.35  LITRE BOTTLES.   (THEY ONLY COSTED TEN "
DC "'QUICK FINGERS,'  OR WHAT VIP?! -OCTON)    "
DC "BULL #2. IS TO JON OF SQUADRON . NICE MEETING YOU AT THE PARTY"
DC ".      BULL #3. IS TO ZYNIX OUR EX-MEMBER AND TO ALL HIS CONTACTS: "
DC "   ZYNIX IS A LAMER, AND ALL HIS CONTACTS SHOULD STOP SWAPING "
DC "WITH HIM, AND CONTACT OCTON INSTEAD!! (LOOK IN THE OTHER SCROLLER) "
DC "    BULL #4.  BULL #3 IS NOW BULL.!    BULL #5 READ BULL #6.    BULL #6 "
DC "READ BULL#5 ?     BULL#7 POWERLORDS ARE "
DC "BEST, FUCK THE REST ?     BULL #8 NOW I'M GOING TO LET ALL THE OTHERS "
DC "AT THIS PARTY PLACE WRITE THEIR OWN BULL. SCROLL!!!                  "
DC "THANX VIP FOR LETTING ME WRITE, I AM HUMANOID OF HOAXERS! REALLY, "
DC "I AM ONLY ON C64, BUT I WOULD REALLY LOVE TO LEARN SOME CODE ON THE "
DC "AMIGA, TOO! ZEB OF ABNORMAL TRAINED THE ARCADE VERSION OF GAUNTLET "
DC "TODAY! HE IS A WEIRD BUT X-TREMELY COOL DUDE! THIS MUSIC IS MADE "
DC "BY HIM... ENJOY IT! MY HEAD IS ACHING A BIT AFTER 6 BEERS AND ABOUT "
DC "3 DECILITRES OF HIMKOK, BUT I AM IN A BETTER SHAPE THAN TRIUMPH, WHO "
DC "LOOKS LIKE A LAMA WITHOUT LEGS RIGHT NOW! THE SILLY ANIMALIZER IS "
DC "HERE! WHY? BECOZ HE WANTS TO READ SOME PURE PERFECTION! THE TWO "
DC "RULING MUSIC COMPOSERS ON THE AMIGA HERE IS CODEX/RAZOR 1911 AND "
DC "ZEB/ABNORMAL, NO DOUBT! THERE HAS BEEN MUSIC WITH THEM ALL NIGHT! WE "
DC "HAVE ALSO BEEN PLAYING SOME HEAVY AND DANCE MIXES JUST FOR FUN! "
DC "OCTON IS WORRYING A BIT ABOUT THIS DEMOPART NOW. HE CAN'T GET IT "
DC "BUGFREE. TOO BAD FOR HIM! ZEB'S LAUGHTER IS DREADFULLY SINISTER. "
DC "HE SHOULD HAVE BEEN IMPRISONED IN A SMALL CELL FOR THE REST OF HIS "
DC "LIFE, CONDEMNED TO MAKE COOL SOUNDS FOR THE LAMIGA! POOR GUY.....  "
DC "THE IDEAS ARE INVENTED BY THE AMIGA FOLKS, WHO CAN CARRY THEM OUT "
DC "WITHOUT A LOT OF EFFORT. BUT THE REAL EFFORT COMES WHEN 'DEGRADING' "
DC "THE ROUTINES DOWN TO A C64! THAT'S THE HARD WORK! WATCH OUT FOR A "
DC "GREAT GAY PHOTO WITH ME, ZTH/SHADOWS, FIREHAWK AND TRIUMPH/HOAXERS. "
DC "MOONRAY/SHADOWS TOOK THE PIC, BUT I COULD SEE IN HIS FACE THAT HE "
DC "REALLY WANTED A SUCK, TOO! THIS PLACE LOOKS FUCKING UNTIDY NOW, AND " 
DC "WE HAVE TO DO SOME SERIOUS CLEANING! SO I'D BETTER RUN, AND CU MAYBE "
DC "AT THE POWERLORDS COPYPARTY IN THE WINTER HOLIDAY! WOBBA WOBBA!      "
DC "HAYA!!    "
DC "THIS IS THE JON SYNDROME OF SQUADRON TYPING SOME CRAP ON "
DC "THE KEYBOARD!  I HAD TO THROW HOMSENOID (OR WAS IT HUMANOID) "
DC "AWAY SO YOU WAS NOT BORED COMPLETELY TO DEATH.      THERE ARE A LOT "
DC "OF THINGS GOING ON HERE NOW, SOME LAMERS (?) ARE PLAYING BILLIARD. "
DC "THEY HAVE PUT DIFFERENT CLOTHES AND THINGS IN THE HOLES "
DC "SO THEY DON'T HAVE TO PAY FOR EACH TIME. CONDOR OF ARMADA IS "
DC "SHOWING ME HIS 20 000 BOB-ROUTINE! YEP, YA SAW RIGHT: 20 000 "
DC "BOBS!  EACH BOB IS ONE PIXEL BIG AND HAS COLORS FROM BLACK TO "
DC "WHITE, AND THE MOST FANTASTIC THING IS THAT HE DOESN'T EVEN "
DC "HAVE TO TURN THE POWER ON TO RUN IT!    IT IS ENOUGH TO TURN "
DC "ON HIS OLD TV... ANOTHER THING GOING ON HERE,   IS THAT "
DC "ZEB HAS TRAINED THE ARCADE GAUNTLET! I THINK IT'S THE FIRST "
DC "ARCADE TRAINER EVER DONE ON A PARTY!  I REALLY HAVE TO SEND "
DC "MY SPECIAL GREETINGS TO VIP OF POWERLORDS: NICE TO MEET YOU "
DC "AT THE PARTY...                       YO !! "
DC "BHF OF HOAXERS (64) IS TRASHING OVER "
DC "THE KEYS.... THIS IS SUM KIND A DEMO ????? KIDDING....... "
DC "WHAT A MINIPARTY !!  I HAVE JUST SLEPT SOME HOURS..    BLAHHHHH "
DC " THIS AMIGA  500  IS SO LAAAMEE  ..1. TO MUCH VIRUSES.   2. GAMES "
DC "ARE NOT SO GOOD AS THE 64 GAMES.  3. I DON'T LIKE SEKA.  4. ???? "
DC " VAAREN E KOMEN..... SNYEN RENNJ BORT.......EG GJENG MEG EIN "
DC "TUR I LIOM.........OG TRAMPAR I EIN LORT !!!!!!!  POEM BY BUZZ "
DC "OF ILLUSION...... EVERYBODY IS ALWAY PLAYING STUNT CAR. COOL "
DC "GAME, BUT BETTER ON 64. (OF COURSE) .. THE AMIGA IS JUST A "
DC "CHILD NOW, BUT THE OLD AND GOOOOOD 64 HAS MORE EXPERIENCE... "
DC "SO IN ABOUT 5-6 YEARS, THE AMIGA WOULD BE USED UP TO "
DC "MAXIMAL CAPABILITY.   ATARI RULES!!!!!  A T A R I  RULES!!!! "
DC "   (WHO THE HELL WROTE ALL THAT CRAP "
DC "AND BULLSHIT????? OF COURSE AMIGA RULES!!! -OCTON.)        "
DC "YES YOU SAW IT   ATARI ATARI ATARI....  FUCK:  ZEB OF ABROMLA "
DC "FOR ALL THE COMMENTS.(PARTY JOKE)   "
DC "WHAT A HECK ? AMIGA IS LAME ???? WHAT HAVE HAPPENED HERE??? "
DC "YES IT'S RIGHT !!!!! BHF SIGNING OFF.........         "
DC "WHAT HAVE HAPPENED HERE, I(VIP) ASKED AND THEN SOMETHING OF SOMEONE "
DC "...OR SOMETHING ...CAME AND WROTE THE LINE YOU READ FOR LESS THAN "
DC "20 SEC AGO.  WHAT A LAMER (?) SAYING AMIGA IS LAME!! HE MUST HAVE HEARD "
DC "TO MUCH C64 - MUSIC !!!! I'M (OR SHOULD I SAY MY BRAIN) FELING MUCH "
DC "BETTER NOW AFTER PLAYING SOME BILLIARD!   HI, BHF CAME NOW SAYING "
DC "THAT HE'LL WRITE MORE LATER ON! I DON'T KNOW WHAT HE'VE SAID "
DC "EXACTLY, BUT I KNOW THAT IT'S GOING TO BE A LITTLE WAR BETWEEN "
DC "THE COOL AMIGA AND THE BREADBOXES  (5 POINTS TO ME,HE, HE)...... "
DC "VIP OF POWERLORDS SIGNING OFF...(FOR NOW!)....SEE YOU LATER IN THIS "
DC "COOL PARTY SCROLL!!!               .  YO ! !      "
DC "THIS IS THE REBEL LOOSE, AT LAST ! ! ! FIRST A MESSY TO BHF OF "
DC "HOAXERS : HAVE YOU SEEN YOUR SHRINK LATELY ?? PROBABLY NOT,"
DC " ACCORDING TO THE CRAP YOU WROTE EARLIER IN THIS COOL SCROLLER! "
DC "I THINK EVERYONE HERE IS IN SOMEKIND OF SLEEPING TRANCE, SINCE "
DC "IT HAS BEEN ALMOST IMPOSSIBLE TO GET ANY REAL SLEEP AROUNDE HERE!"
DC " BESIDE ME I CAN SEE OCTON OF POWERLORDS, HE IS HAVING SOME"
DC " TROUBLE WITH THIS DEMO.     VIP AND OCTON OF POWERLORDS ARE REALLY"
DC " COOL DUDES (THEY MADE ME WRITE THIS ! !). (NO WE DIDN'T!!! -OCTON.) "
DC " EVEN THOUGH I HAVE HAD ENOUGH OF VIP, SINCE HE IS MY CLASS MATE!"
DC " NO, TRULY SPOKEN, THEY ARE BOTH OKAY, NICE AND COOL PEOPLE "
DC "WHICH IS QUITE FUN TO HAVE ALONG WHEN YOU ARE AT A PARTY. "
DC "RIGHT NOW THEY'RE ''NUTTING'' OUT, AND THROWING DISKS ALL "
DC "AROUND THE PLACE... ALSO I WOULD LIKE TO SAY THAT SOME "
DC "64 GUYS ARE REALLY NUTS, YESTERDAY (?) THEY HAD SOME KIND "
DC "OF CHEESE WAR... ANYWAY, THERE WERE CHEESE FLYING ALL "
DC "AROUND THE PLACE... RIGHT NOW VIP IS TRYING TO KILL OCTON "
DC "BY BEATING HIM TO DEATH... IT'S BEEN QUITE A FUNNY PARTY,"
DC " EVEN THOUGH I'M GETTING QUITE TIRED (AND JUST GOT HIT "
DC "BY A FLYING DISK !) I WILL TRY TO USE SOME MORE BYTES OF "
DC " THIS DEMO... SPECIAL MESSAGE --- TO ROBOCOP" 
DC "(EX MEMBER OF IVORY, IF HE'S IN OZ NOW, I DUNNO !) : "
DC "HEY! TIME FOR YOU TO RETURN MY DISKS SOON, IT'S BEEN "
DC "SEVERAL MONTHS NOW ! ! ! THIS MESSAGE ALSO GOES TO "
DC "TYPHOON OF FRAXION ! ! ! I'M AT THE MOMENT RUNNING "
DC "OUT OF BULLSHIT TO CRAP DOWN ON THIS KEYBOARD... "
DC "MAYBE I'LL RETURN LATER... MAYBE NOT... "
DC " THE REBEL SIGNING OFF.......        "           
DC "  ... . .. . . . AAAARRRRGGGGHHHH!!!! "
DC "  ...THIS IS ZEB SPEAKING FROM THE PARADISE OF"
DC " SONIX AND DELIGHT ..... I AM GETTING SICK OF LISTENING TO "
DC "MY GOLDEN OLDIE (KVALM ..HEH???) SUMMING IN THE "
DC "BACKGROUND ...U C  ARMADA GET THEIR KICKS OUT OF "
DC "SUCKING OLD PANTIES AND LISTENING TO OLD MUSIC "
DC ".....SORRY ARMADA BUT I AM A TIRED , TIRED , "
DC "TIRED , TIRZ Z     Z     Z  Z ZZ ZZ Z ZZZZZZZZZZZZ"
DC "   ......UH !!! SORRY BUT VIP JUST LET ONE GO !!! "
DC " NOW I DON'T KNOW WHAT'S GOING ON WITH ME AND "
DC "AMIGA GROUPS FOR THE MOMENT BEING .... "
DC "EITHER I CAN CARRY ON WITH ABNORMAL ...JOIN ANOTHER "
DC "GANG ,OR JUST TURN FREELANCE    . . . . . . . "
DC "WHO KNOWS WHAT WILL POP UP . . . . (POP) ..... "
DC "I AM NOW HUNGRY AND WILL SEND THE GREETINGS TO "
DC "MY FRIENDS BEFORE I EAT THEM ...GRYTS TO : SPACY,RHINOX (TROND), "
DC "B.H.F,JON,JOSTEIN (LUMP-FISH),OCTAN ..UH OCTON THAT IS OF "
DC "POWWWEERRR LORDS ,AND TO VIP OF THE SAME GANG,TRS,CONDOM ..EHR "
DC "CONDOR ,STEINRAR BR0SMAK (THE COOL GUY LIVING IN A FLAT OF "
DC "HIS OWN) , EMUND THE DRUNK ONE .....AND TO EVERY "
DC "ELSE I HAVE FORGOTTEN (LIKE TRAXION AND HOAXERS) "
DC " ...UH HELLO STIAN,MORTEN ROLFSEN . . . . "
DC "SPEZIAL GREETINGS GO TO OUR ALL BELOVED ZTH . . . . "
DC "HAAVAR HOJEM . . BJ0RNI 'MOONRAY' RUST0YET. . . . "
DC "NOW BE ON THE LOOKOUT FOR MY NEW SONG COMING SOON "
DC "IN A SQUADRON DEMO CALLED SUN FUN IN THE USA........ "
DC "NOW IT'S TIME FOR FOOOOOOOOD                "
DC "I AM HUMANOID! I CAN HEAR SOME ORGASMIC SCREAMS FROM THE ROOM "
DC "WHERE BJ0RN 'MOONRAY' R0ST0EN AND EMUND IS ASLEEP! GOD WONDER "
DC "WHAT THEY ARE DOING.... OR WAS IT JUST 'GAUNTLET?' I AM LISTENING "
DC "TO A TUNE FROM ZEB, AND IT HAS BEEN ON FOR ABOUT 8 HOURS NOW! "
DC "IT'S VERY COOL,  BUT IT IS NOW GETTING VERY BORING! SOME PARTYGREETS "
DC "TO THE CHIEFS AT THIS PARTY: HOAXERS (FIREHAWK, CRITE, ME, TRIUMPH, "
DC "ANXIETY, BHF, TRENT AND CODEX), ILLUSION (FIST, HERO), NETWORK (ZIX), "
DC "PANORAMIC DESIGNS (BJ0RN R0ST0EN, HAAVAR HOJEM), RAZOR 1911 (DR.NO, "
DC "SECTOR 9, CODEX, REX) POWER LORDS (VIP, OCTON), SQUADRON (JON, "
DC "JOSTEIN), TRAXION (THORAXE, TCF, SMILEY), STEINAR BR0SETH, AND TO "
DC "THE OTHER EXTREME LAMERS HERE! BYE FROM THE NUMBER 1!   ALWAYS "
DC "HEADING OUT LIKE THE NUMBER 1. BACK TO THE FACT THAT I(BHF) WAS "
DC "CALLED A LAMER SOME BITS AGO.  LET ME WRAP THIS SCROLLY WITH "
DC "SOME MAGIC WORDS:   AMIGA IS COOL  ATARI IS LAME... OR...WAS "
DC "IT  CBM 64 IS THE BEST ...??? YES THATS RIGHT... VIP SAYS "
DC "THAT OUR 64 IS A BREADBOX  ... THATS RIGHT  BUT ITS COOL. "
DC "GREETINGS TO: MUND FOR BEING SO F...ING DRUNK   ( ATARI LIVES) "
DC "   C. BHF OF HOAXERS IN 1989.... PS:  A  T  A  R  I = TRASH        "
DC "OK VIP, BACK AGAIN ! ANSWER TO BHF, TALKING ABOUT AMIGA VS "
DC "C64 . THE C64 IS WERY COOL TO BE SO VERY CHEAP, BUT AMIGA IS THE "
DC "BEST, SO FUCK ATARI, AND LET'S SAY GOOD BYE..... "
DC "VIP OF POWERLORDS NORWAY -89       "
DC "YEP, THIS IS OCTON AGAIN! I JUST WANT TO SAY THANX FOR READING ALL THIS "
DC "CRAP. SORRY 'BOUT THIS FUCKING DEMO, BUT WE HEARD ABOUT THIS PARTY ONLY "
DC "ONE DAY BEFORE IT WAS GOING TO BE HELD. SO THERE WAS NO TIME TO FIX SOME "
DC "THING BETTER. LOOK OUT FOR OUR FUTURE PRODUCTS!!!  "
DC "POWERLORDS, FEELS LIKE ACID IN YOUR ASS!!! AND COOL IS OUR RULE!!!!   "
DC "BYE ALL YOU FAITHFULL READERS.........                                "
textend:
;blk.b 20,128

text2start:
DC "                        "
DC "YEP, THIS IS THE GREET SCROLL. IF SOMEBODY IS STILL MISSING ON "
DC "OUR LIST, THAN GIVE US A NOTE PLEEZ!     IF YOU WANNE SWAP WITH "
DC "POWERLORDS, THEN CONTACT:      OCTON,    FJOSMESTERVEIEN 22 C,   "
DC "  7046 TRONDHEIM,     NORWAY.       "
DC " FIRST OF ALL SPECIAL GREETZ TO POWERLORDS SWEDEN AND POWER"
DC "LORDS UK!!!      SOME PARTY GREETZ TO RAZOR 1911 (NICE TO MEET "
DC "YOU REX. CONTACT US IF YOU GUYZ WANT TO ARRANGE A COPY-PARTY "
DC "TOGETHER WITH US IN THE WINTER-HOLIDAY. CALL (07) 914178, AND "
DC "ASK FOR ROY. OK?   ALSO PARTY GREETZ TO HOAXERS (C64), SQUADRON"
DC "ABNORMAL  AND ARMADA!   I REALLY LOVE YOUR MUZAK ZEB, SO WE "
DC "WOULD VERY MUCH LIKE TO HAVE YOU IN OUR GROUP! THE SAME FOR "
DC "YOU CONDOR! YOU'RE A COOL CODER, SO CONTACT US IF YOU WANT TO "
DC "JOIN A BETTER GROUP.           "
DC "GREETS GOES TO (A-Z ORDER):          "
dc "ABANDON, ABNORMAL, ACID FORCE, ACCUMULATORS, AGENTS, "
dc "ALIVE, ARMADA, ATTITUDE, B.O.D., BLURP, BROWBEAT, CARTEL, CABE,"
dc " CHILDREN OF THE SCIENCE, COSA NOSTRA, CRIONICS, CRYPTOBURNERS,"
dc " COMPLEX, CRYSIS, DEADZONE, DIGITECH, DRAGONECS, ESA, "
dc "ESCAPE, FAT AGNUS, FLASH PRODUCTIONS, FOBL, FRAXION"
dc ", FULL FORCE, GATE AND EXEC, GHOSTRIDERS, GO GO INC., HUMANOIDS, IEE, "
dc "IRON EAGLE CREW (LUXEMBOURG), IT, ITN, IVORY, JOY DIVISION,"
dc " KERNAL GADAFFI, MAC, MAFFIA, MIRAGE UK, MR. "
dc "MANIAC, NGD, NIMITZ, NORTHSTAR/SILENTS, NUKE BUSTERS, ORION, "
DC "PANTHERS, PENT HOUSE, PHENOMENA, PHOENIX, POWER DRIVE, RAT SNAKE, RATS, "
dc "RIGOR MORTIS, SFC, STRIKE/ARGON (BELGIUM), SQUADRON, STRIPE,"
dc " SUN CONNECTION, SYSTEM 5, THE BLACK CORSAIR (SPAIN), THE "
dc "DUDES, THE HIGHWAY MAN, THE NET RUNNERS, THE NICAM, "
dc "THUNDERHAWK, TLOS, TMIH-GANG, TORQUE, TOTTO, TSD, UNIQUE, "
dc "VAMP7, ZEDDY, ZOMBIE BOYS.                          "
TEXT2END:


speedy:dc.b 4
lsctr:dc.b 0
scan:dc.b 130
stop:dc.b 0
even
ptr:dc.l 0
txt2ctr:dc.l 5

************************ DATA **************************

scrollsine:
blk.b 76,0

spritesine:
blk.w 114,$efff

colors:
blk.w 3,$8
blk.w 3,$7
blk.w 3,$6
blk.w 3,$5
blk.w 3,$4
blk.w 3,$3
blk.w 3,$2
blk.w 3,$1
blk.w 3,$0
blk.w 71,0
dc.w 1,2,3,4,6,8,10,12,14,$22e,$44e,$66e,$88e,$aae,$cce,$eee

sinus:
blk.b 160,0

vectors:
blk.w 768*2,$0001

******************************************
* Master Soundtracker V1.0 replayroutine *
* based on V9.0 of DOC *******************
******************************************

* Improved by TIP of The New Masters in JULY 1988 *

start_muzak:
	move.l	#data,muzakoffset	;** get offset

init0:	move.l	muzakoffset,a0		;** get highest used pattern
	add.l	#472,a0
	move.l	#$80,d0
	clr.l	d1
init1:	move.l	d1,d2
	subq.w	#1,d0
init2:	move.b	(a0)+,d1
	cmp.b	d2,d1
	bgt.s	init1
	dbf	d0,init2
	addq.b	#1,d2

init3:	move.l	muzakoffset,a0		;** calc samplepointers
	lea	pointers(pc),a1
	lsl.l	#8,d2
	lsl.l	#2,d2
	add.l	#600,d2
	add.l	a0,d2
	moveq	#14,d0
init4:	move.l	d2,(a1)+
	clr.l	d1
	move.w	42(a0),d1
	lsl.l	#1,d1
	add.l	d1,d2
	add.l	#30,a0
	dbf	d0,init4

init5:	clr.w	$dff0a8			;** clear used values
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	clr.w	timpos
	clr.l	trkpos
	clr.l	patpos

init6:	move.l	muzakoffset,a0		;** initialize timer irq
	move.b	470(a0),numpat+1	;number of patterns
	move.l	$6c.w,lev3save+2
	move.l	#lev3interrupt,$6c.w
	rts

stop_muzak:
	move.l	lev3save+2,$6c.w
	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	move.w	#$f,$dff096
	rts

lev3interrupt:
	bsr.s	replay_muzak
lev3save:
	jmp	$0

replay_muzak:
	movem.l	d0-d7/a0-a6,-(a7)
	addq.w	#1,timpos
speed:	cmp.w	#5,timpos
	beq.L	replaystep

chaneleffects:				;** seek effects
	lea	datach0(pc),a6
	tst.b	3(a6)
	beq.s	ceff1
	lea	$dff0a0,a5
	bsr.s	ceff5
ceff1:	lea	datach1(pc),a6
	tst.b	3(a6)
	beq.s	ceff2
	lea	$dff0b0,a5
	bsr.s	ceff5
ceff2:	lea	datach2(pc),a6
	tst.b	3(a6)
	beq.s	ceff3
	lea	$dff0c0,a5
	bsr.s	ceff5
ceff3:	lea	datach3(pc),a6
	tst.b	3(a6)
	beq.s	ceff4
	lea	$dff0d0,a5
	bsr.s	ceff5
ceff4:	movem.l	(a7)+,d0-d7/a0-a6
	rts

ceff5:	move.b	2(a6),d0		;room for some more
	and.b	#$f,d0			;implementations below
	tst.b	d0
	beq.s	arpreggiato
	cmp.b	#1,d0
	beq.L	pitchup
	cmp.b	#2,d0
	beq.L	pitchdown
	cmp.b	#12,d0
	beq.L	setvol
	cmp.b	#14,d0
	beq.L	setfilt
	cmp.b	#15,d0
	beq.L	setspeed
	rts

arpreggiato:				;** spread by time
	cmp.w	#1,timpos
	beq.s	arp1
	cmp.w	#2,timpos
	beq.s	arp2
	cmp.w	#3,timpos
	beq.s	arp3
	cmp.w	#4,timpos
	beq.s	arp1
	cmp.w	#5,timpos
	beq.s	arp2
	rts

arp1:	clr.l	d0			;** get higher note-values
	move.b	3(a6),d0		;   or play original
	lsr.b	#4,d0
	bra.s	arp4
arp2:	clr.l	d0
	move.b	3(a6),d0
	and.b	#$f,d0
	bra.s	arp4
arp3:	move.w	16(a6),d2
	bra.s	arp6
arp4:	lsl.w	#1,d0
	clr.l	d1
	move.w	16(a6),d1
	lea	notetable,a0
arp5:	move.w	(a0,d0.w),d2
	cmp.w	(a0),d1
	beq.s	arp6
	addq.l	#2,a0
	bra.s	arp5
arp6:	move.w	d2,6(a5)
	rts

pitchdown:
	bsr.s	newrou
	clr.l	d0
	move.b	3(a6),d0
	and.b	#$f,d0
	add.w	d0,(a4)
	cmp.w	#$358,(a4)
	bmi.s	ok1
	move.w	#$358,(a4)
ok1:	move.w	(a4),6(a5)
	rts

pitchup:bsr.s	newrou
	clr.l	d0
	move.b	3(a6),d0
	and.b	#$f,d0
	sub.w	d0,(a4)
	cmp.w	#$71,(a4)
	bpl.s	ok2
	move.w	#$71,(a4)
ok2:	move.w	(a4),6(a5)
	rts

setvol:	move.b	3(a6),8(a5)
	rts

setfilt:move.b	3(a6),d0
	and.b	#1,d0
	lsl.b	#1,d0
	and.b	#$fd,$bfe001
	or.b	d0,$bfe001
	rts

setspeed:
	clr.l	d0
	move.b	3(a6),d0
	and.b	#$f,d0
	move.w	d0,speed+2
	rts

newrou:	cmp.l	#datach0,a6
	bne.s	next1
	lea	voi1(pc),a4
	rts
next1:	cmp.l	#datach1,a6
	bne.s	next2
	lea	voi2(pc),a4
	rts
next2:	cmp.l	#datach2,a6
	bne.s	next3
	lea	voi3(pc),a4
	rts
next3:	lea	voi4(pc),a4
	rts

replaystep:				;** work next pattern-step
	clr.w	timpos
	move.l	muzakoffset,a0
	move.l	a0,a3
	add.l	#12,a3			;ptr to soundprefs
	move.l	a0,a2
	add.l	#472,a2			;ptr to pattern-table
	add.l	#600,a0			;ptr to first pattern
	clr.l	d1
	move.l	trkpos,d0		;get ptr to current pattern
	move.b	(a2,d0),d1
	lsl.l	#8,d1
	lsl.l	#2,d1
	add.l	patpos,d1		;get ptr to current step
	clr.w	enbits
	lea	$dff0a0,a5		;chanel 0
	lea	datach0(pc),a6
	bsr.L	chanelhandler
	lea	$dff0b0,a5		;chanel 1
	lea	datach1(pc),a6
	bsr.L	chanelhandler
	lea	$dff0c0,a5		;chanel 2
	lea	datach2(pc),a6
	bsr.L	chanelhandler
	lea	$dff0d0,a5		;chanel 3
	lea	datach3(pc),a6
	bsr.L	chanelhandler
	move.w	#400,d0			;** wait a while and set len
rep1:	dbf	d0,rep1			;   of oneshot to 1 word
	move.w	#$8000,d0
	or.w	enbits,d0
	move.w	d0,$dff096
	cmp.w	#1,datach0+14
	bne.s	rep2
	clr.w	datach0+14
	move.w	#1,$dff0a4
rep2:	cmp.w	#1,datach1+14
	bne.s	rep3
	clr.w	datach1+14
	move.w	#1,$dff0b4
rep3:	cmp.w	#1,datach2+14
	bne.s	rep4
	clr.w	datach2+14
	move.w	#1,$dff0c4
rep4:	cmp.w	#1,datach3+14
	bne.s	rep5
	clr.w	datach3+14
	move.w	#1,$dff0d4

rep5:	add.l	#16,patpos		;next step
	cmp.l	#64*16,patpos		;pattern finished ?
	bne.s	rep6
	clr.l	patpos
	addq.l	#1,trkpos		;next pattern in table
	clr.l	d0
	move.w	numpat,d0
	cmp.l	trkpos,d0		;song finished ?
	bne.s	rep6
	clr.l	trkpos
rep6:	movem.l	(a7)+,d0-d7/a0-a6
	rts

chanelhandler:
	move.l	(a0,d1.l),(a6)		;get period & action-word
	addq.l	#4,d1			;point to next chanel
	clr.l	d2
	move.b	2(a6),d2		;get nibble for soundnumber
	lsr.b	#4,d2
	beq.s	chan2			;no soundchange !
	move.l	d2,d4			;** calc ptr to sample
	lsl.l	#2,d2
	mulu	#30,d4
	lea	pointers-4(pc),a1
	move.l	(a1,d2.l),4(a6)		;store sample-address
	move.w	(a3,d4.l),8(a6)		;store sample-len in words
	move.w	2(a3,d4.l),18(a6)	;store sample-volume

	move.l	d0,-(a7)
	move.b	2(a6),d0
	and.b	#$f,d0
	cmp.b	#$c,d0
	bne.s	ok3
	move.b	3(a6),8(a5)
	bra.s	ok4
ok3:	move.w	2(a3,d4.l),8(a5)	;change chanel-volume
ok4:	move.l	(a7)+,d0

	clr.l	d3
	move.w	4(a3,d4),d3		;** calc repeatstart
	add.l	4(a6),d3
	move.l	d3,10(a6)		;store repeatstart
	move.w	6(a3,d4),14(a6)		;store repeatlength
	cmp.w	#1,14(a6)
	beq.s	chan2			;no sustainsound !
	move.l	10(a6),4(a6)		;repstart  = sndstart
	move.w	6(a3,d4),8(a6)		;replength = sndlength
chan2:	tst.w	(a6)
	beq.s	chan4			;no new note set !
	move.w	22(a6),$dff096		;clear dma
	tst.w	14(a6)
	bne.s	chan3			;no oneshot-sample
	move.w	#1,14(a6)		;allow resume (later)
chan3:	bsr.L	newrou
	move.w	(a6),(a4)
	move.w	(a6),16(a6)		;save note for effect
	move.l	4(a6),0(a5)		;set samplestart
	move.w	8(a6),4(a5)		;set samplelength
	move.w	(a6),6(a5)		;set period
	move.w	22(a6),d0
	or.w	d0,enbits		;store dma-bit
	move.w	18(a6),20(a6)		;volume trigger
chan4:	rts

datach0:	blk.w	11,0
		dc.w	1
datach1:	blk.w	11,0
		dc.w	2
datach2:	blk.w	11,0
		dc.w	4
datach3:	blk.w	11,0
		dc.w	8
voi1:		dc.w	0
voi2:		dc.w	0
voi3:		dc.w	0
voi4:		dc.w	0
pointers:	blk.l	15,0
notetable:	dc.w	856,808,762,720,678,640,604,570
		dc.w	538,508,480,453,428,404,381,360
		dc.w	339,320,302,285,269,254,240,226  
		dc.w	214,202,190,180,170,160,151,143
		dc.w	135,127,120,113,000
muzakoffset:	dc.l	0
trkpos:		dc.l	0
patpos:		dc.l	0
numpat:		dc.w	0
enbits:		dc.w	0
timpos:		dc.w	0
data:		blk.b	141792,0
picture:
blk.b 25216,0
fontpic:
blk.b 24000,0
scrollarea:
blk.b 1564*3,0

blk.b 44,0
landarea:blk.b 616*3,0
blk.b 44,0
bitplane:
blk.b 5880,0
frame1:
blk.b 47040,0
fontpic2:
blk.b 16008,0
sprite0:
dc.w $2488,$b400
blk.l 177,0
sprite1:
dc.w $2490,$b400
blk.l 177,0
frame9:
blk.b 5880,0

stop2:
blk.l 12*2-1,$01020000

stop3:
blk.l 14*2-1,$01020000

stop4:
blk.l 28*2-1,$01020000
blk.l 20*2-1,$01020000

stop5:
blk.l 28*2-1,$0102000
0
blk.l 177,0
sprite1:
dc.w $2490,$b400
blk.l 177,0
frame9:
blk.b 5880,0

stop2:
blk.l 12*2-1,$01020000

stop3:
blk.l 14*2-1,$01020000

stop4:
blk.l 28*2-1,$01020000
blk.l 20*2-1,$01020000

stop5:
blk.l 28*2-1,$0102000