start:
move.l		#$30000,$dff0a0	
move.w		#$d4da,$dff0a4 
move.w		#280,$dff0a6	
move.w		#64,$dff0a8	
move.l		#$30000,$dff0b0	
move.w		#$d4da,$dff0b4 
move.w		#280,$dff0b6	
move.w		#64,$dff0b8	
move.w		#$83a3,$dff096	
move.l	$04,a6
lea	gfxname,a1
jsr	-408(a6)
move.l	d0,gfxbase
move.l	d0,a0
move.l	50(a0),oldclist
move.l	#newclist,50(a0)
move.l	gfxbase,a6
lea	bitmap,a0
move.l	#$01,d0
move.l	#336,d1
move.l	#200,d2
jsr	-390(a6)
move.l	#$60000,plane1
lea	rastport,a1
jsr	-198(a6)
move.l	#bitmap,r_bitmap
lea	rastport,a1
jsr	-48(a6)
move.l	#text,taller
move.l	#textx,tallerx
move.l	$6c,oldirq+2
move.l	#newirq,$6c
wait:
cmp.b #0,$dff006
bne wait




btst	#6,$bfe001
bne	wait
jmp	 slut
newirq:
movem.l	d0-d7/a0-a6,-(sp)
move.l	gfxbase,a6
lea	rastport,a1
clr.l	d0
move.l	#1,d1
clr.l	d2
move.l	#1,d3
move.l	#336,d4
move.l	#95,d5
jsr	-396(a6)
sub.b	#1,rows
bne.s	exit
move.b	#20,rows
lea	rastport,a1
move.l	#8,d0
move.l	#95,d1
jsr	-240(a6)
lea	rastport,a1
move.l	taller,a0
move.l	#38,d0
jsr	-60(a6)
add.l #38,taller
cmp.l	#textx,taller
blt.s	exit
move.l	#text,taller
exit:
lea	rastport,a1
move.l	#2,d0
clr.l	d1
clr.l	d2
move.l	#190,d3
move.l	#336,d4
move.l	#204,d5
jsr	-396(a6)
sub.b	#1,rowsx
bne.s	exit1
move.b	#4,rowsx
lea	rastport,a1
move.l	#320,d0
move.l	#198,d1
jsr	-240(a6)
lea	rastport,a1
move.l	tallerx,a0
move.l	#1,d0
jsr	-60(a6)
addq.l #1,tallerx
cmp.l	#endx,tallerx
blt.s	exit1
move.l #textx,tallerx
exit1:
movem.l	(sp)+,d0-d7/a0-a6
oldirq:
jmp	$00000000
slut:
move.w #3,$dff096
move.l oldirq+2,$6c
move.l gfxbase,a0
move.l oldclist,50(a0)
move.l $04,a6
jmp -414(a6)
newclist:
dc.w	$008e,$1c11,$0090,$41f0,$0092,$0038,$0094,$00d0
dc.w	$102,$0,$104,$0,$108,$2,$010a,$0
dc.w	$100,$1200,$180,$0,$182,$fff
dc.w	$00e0,$0006,$00e2,$0000
dc.w    $1511,$fffe,$182,$000
dc.w    $2011,$fffe,$182,$111
dc.w    $2211,$fffe,$182,$222
dc.w    $2411,$fffe,$182,$333
dc.w    $2611,$fffe,$182,$444
dc.w    $2811,$fffe,$182,$555
dc.w    $2a11,$fffe,$182,$666
dc.w    $2c11,$fffe,$182,$777
dc.w    $2e11,$fffe,$182,$888
dc.w    $3011,$fffe,$182,$999
dc.w    $3211,$fffe,$182,$aaa
dc.w    $3411,$fffe,$182,$bbb
dc.w    $3611,$fffe,$182,$ccc
dc.w    $3811,$fffe,$182,$ddd
dc.w    $5611,$fffe,$182,$ddd
dc.w    $5811,$fffe,$182,$ccc
dc.w    $5a11,$fffe,$182,$bbb
dc.w    $5c11,$fffe,$182,$aaa
dc.w    $5e11,$fffe,$182,$999
dc.w    $6011,$fffe,$182,$888
dc.w    $6211,$fffe,$182,$777
dc.w    $6411,$fffe,$182,$666
dc.w    $6611,$fffe,$182,$555
dc.w    $6811,$fffe,$182,$444
dc.w    $6a11,$fffe,$182,$333
dc.w    $6c11,$fffe,$182,$222
dc.w    $6e11,$fffe,$182,$111
dc.w    $7011,$fffe,$180,$111
dc.w    $7111,$fffe,$180,$222,$182,$222
dc.w    $7211,$fffe,$180,$333,$182,$333
dc.w    $7311,$fffe,$180,$444,$182,$444
dc.w    $7411,$fffe,$180,$555,$182,$555
dc.w    $7511,$fffe,$180,$666,$182,$666
dc.w    $7611,$fffe,$180,$777,$182,$777
dc.w    $7711,$fffe,$180,$888,$182,$888
dc.w    $7811,$fffe,$180,$999,$182,$999
dc.w    $7911,$fffe,$180,$aaa,$182,$aaa
dc.w    $7a11,$fffe,$180,$999,$182,$999
dc.w    $7b11,$fffe,$180,$888,$182,$888
dc.w    $7c11,$fffe,$180,$777,$182,$777
dc.w    $7d11,$fffe,$180,$666,$182,$666
dc.w    $7e11,$fffe,$180,$555,$182,$555
dc.w    $7f11,$fffe,$180,$444,$182,$444
dc.w    $8011,$fffe,$180,$333,$182,$333
dc.w    $8111,$fffe,$180,$222,$182,$222
dc.w    $8211,$fffe,$180,$111,$182,$111
dc.w    $8311,$fffe,$180,$000,$182,$fff
dc.w    $180,$0,$182,$fff,$184,$ddd
dc.w    $186,$bbb,$188,$aaa,$18a,$888
dc.w    $18c,$666,$18e,$444,$190,$0f0
dc.w    $192,$0e0,$194,$0c0,$196,$0b0
dc.w    $198,$0a0,$19a,$080,$19c,$070
dc.w    $19e,$050
;
dc.w    $8401,$fffe
dc.w    $100,$4200
dc.w    $00e0,$0004,$00e2,$b000
dc.w    $00e4,$0004,$00e6,$cf40
dc.w    $00e8,$0004,$00ea,$ee80
dc.w    $00ec,$0005,$00ee,$0dc0
dc.w    $00f0,$0004,$00f2,$2d00
dc.w    $108,$0
dc.w    $d311,$fffe,$100,$200
dc.w    $d411,$fffe,$180,$300
dc.w    $d511,$fffe,$180,$400
dc.w    $d611,$fffe,$180,$500
dc.w    $d711,$fffe,$180,$600
dc.w    $d811,$fffe,$180,$700
dc.w    $d911,$fffe,$180,$800
dc.w    $da11,$fffe,$180,$900,$100,$1200
dc.w    $00e0,$6,$00e2,$1f2c,$108,$2,$10a,$0
dc.w    $db11,$fffe,$180,$a00,$182,$7
dc.w    $e411,$fffe,$100,$200,$180,$900
dc.w    $e511,$fffe,$180,$800
dc.w    $e611,$fffe,$180,$700
dc.w    $e711,$fffe,$180,$600
dc.w    $e811,$fffe,$180,$500
dc.w    $e911,$fffe,$180,$400
dc.w    $ea11,$fffe,$180,$300
dc.w    $eb11,$fffe,$180,$000
dc.w    $120,$0000,$122,$0000
dc.w    $124,$0000,$126,$0000
dc.w    $128,$0000,$12a,$0000
dc.w    $12c,$0000,$12e,$0000
dc.w    $130,$0000,$132,$0000
dc.w    $134,$0000,$136,$0000

dc.w	$ffff,$fffe

text:
dc.b "       THE DANISH DEMO DUO 1987       "
dc.b "         ARE PROUD TO PRESENT         "       
dc.b "     THEIR FIRST REAL AMIGA DEMO.     "       
dc.b "--------------------------------------"   
dc.b " < THIS IS PET SPEAKING IN HIS DEMO > "       
dc.b "--------------------------------------"
dc.b "  HELLO FREAK I'M SPEAKING IN SCROLL  "
dc.b "               BELOVE.                "
dc.b "THIS IS THE HELLO SCROLL IN THIS DEMO."
dc.b "--------------------------------------"
dc.b "       THE HELLOS MUST GO TO :        "
dc.b "REFLEX, TBC, SCC, WCC, ACE, ALPHA, FP," 
dc.b "JUGDES, GI-JOE, USA-TEAM, YOMMY, TFG, "
dc.b "1001 CREW, FCG, SYSTEM, DS.C, JAZZCAT,"
dc.b "  TEK, TRIANON, CHOROID, SKUZZ, MIKE, "
dc.b "MIGGES, TSS, WIZAX, NSC, CCT, RDI, WOM"
dc.b "TEAM FLEXIBLE, GOFFY, ELECTRO, TG 1541"
dc.b " STARLIGHT STRIKERS, YETI FACTORIES,  "
dc.b "THE SQUONK SOCITY, NASA, TST, TPC, YIP"
dc.b " THE DAKNESS, CONAN, FBR, NEW BENCOR, "
dc.b "THE ARCADE TEAM, TAT, IMPACT, TSW, TFD"
dc.b "SPD AND TRIANGLE......................"
dc.b "  AND NOW FOR THE SPECIAL GREETINGS.  "
dc.b "      SPECIAL AMIGA GREETINGS TO:     "
dc.b "SODAN (YOU ARE GREAT AND DONIG GREAT) "
dc.b "MAGICIAN 42 (YOU TOO, YOU ARE GREAT)  "
dc.b "TRAZER (YOUR DEMO WAS OK, MAKE A NEW!)"
dc.b "REFLEX (BB YOU ARE GREAT ALSO WITH US)"
dc.b "DEXION (A GOOD FREIND, BUT NO WORK)   "
dc.b "ANTITRAX (I'LL JOIN YOUR ANTI ACF. )  "
dc.b "BAMIGA S. ONE (HEY TO LORD BLITTER.)  "
dc.b "KENT TEAM (YOU AND BSO. AND GREAT)    "
dc.b "THE CHAMPS (YOU INTRO ARE GOOD)       "
dc.b "HQC (YOU ARE GREAT, BUT SEND MY DISKS)"
dc.b "--------------------------------------" 
dc.b " THIS IS ALL FOLKS THE DDD IS SIGNING "
dc.b "               OFFF !                 "
dc.b "           BYE FROM PET !             "
dc.b "                                      "
dc.b "                                      "
dc.b "                                      "
dc.b "                                      "
dc.b "                                      "
dc.b "                                      "
;
textx: 
dc.b "                                      "
dc.b "THE DANISH DEMO DUO 1987 ARE PET & TOX ..........  "
dc.b " THE BEST THING WITH THIS DEMO IS THAT WE ARE AMONG "       
dc.b "FEW IN DENMARK THERE KNOW HOW TO PROGRAM THIS 68000"       
dc.b " M. CODE IN A GOOD WAY .............. "       
dc.b "HEY AMIGA FREAK, DON'T YOU THINK THIS DEMO IS GREAT "       
dc.b "IF YOU WANTS TO SWAP DEMOS & ROUTINES WITH US THEN "
dc.b "CONTACT ME : PETER OLSEN         MØLLEAGER 14       "
dc.b " 2640 HEDEHUSENE           DENMARK               "
dc.b " GREETINGS IN THIS SCROLL MUST GO TO : HQC, TOM(on the ST), "
dc.b "PCT, 2000 AD, DEXION, C64CG, LCC and ANCOR ........"
dc.b " THE SPECIAL GREETS ARE TO REFLEX CRACKING SQUAD (HEY BAD "
dc.b "BOY YOU ARE A VERY GOOD SWAPPER FREIND)     "
dc.b " THE NORMAL HELLOS WILL BE IN THE SCROLL ABOVE !!!!!!!!!!!   "
dc.b "      HEY FREAK I'M PET AND I'M WORKING ON A NEW DEMO ON THIS"
dc.b "MACHINE IT'S CALLED:'TEST DRIVER INTRO' AND THERE WILL BE SOME"
dc.b " NICE ROUTINES IN THE DEMO/INTRO !........... THIS DEMO ARE"
dc.b " A CREATION OF :   GRAPHICS BY PET,        SPRITES BY PET, "
dc.b "       MUZAK RIPP FROM BALL RAIDER BY PET,         "
dc.b "PROGRAMMING BY PET,        TEXT WRITING AND PACKING BY PET, "
dc.b " AND THE IDEA ARE ALSO PETS ! !      WATCH OUT FOR OTHER DEMOS"
dc.b " ALSO ON THE GOOD OLD 64'ER AND YOU BETTER LOOK FORWARD "
dc.b "FOR OUR GAMES ON BOTH THIS MACHIN AND THE 64'ER........"
dc.b " YOU JUST WAIT AND SEE WHEN TOX ALSO GOT AN AMIGA !!!!! "
dc.b " BYE BYE AND SEE YOU AROUND ! >>> PET AND TOX, THE DANISH"
dc.b " DEMO DUO 1987 IN DENMARK <<<                       "
endx:
even
taller:
dc.l	0
tallerx:
dc.l    0
oldclist:
dc.l	0
gfxbase:
dc.l	0
gfxname:
dc.b	"graphics.library",0
even
bitmap:
blk.w	4,0
plane1:
blk.l	20,0
rastport:
dc.l	0
r_bitmap:
blk.l	30,0
rows:
dc.b	2
even
rowsx:
dc.b	2