;	A.Nonymous	24-03-1988
;
;	presents

;	sound V1.1	Beeld wordt ook groen als insert 
;			WorkBench al in beeld is geweest.	
;	sound V1.15	Geluid is iets zachter
;	Sound V1.20	ASS -> System Z
;	Sound V2.00	Geen System-Z

start:
	movem.l	d0-d7/a0-a6,-(sp)	; save registers
	bsr.l	bootprog		; bootprogramma uitvoeren
	movem.l	(a7)+,d0-d7/a0-a6	; registers terughalen
	move.l	4,a6			; nog wat rommel
	lea	DosName(pc),a1
	jsr	-$60(a6)
	move.l	d0,a0
	move.l	$16(a0),a0
	moveq	#0,d0
	rts
even
DosName:
	dc.b  'dos.library',0
even
bootprog:
	lea	Copper(pc),a1
	move.l	a1,$dff080	;Copper list goed zetten
	move.w	d0,$dff088	;Copper list inschakelen
 	move.w	#2,$dff0a4
	lea	wave(pc),a1	
	move.l	a1,$dff0a0
	move.w	#$440,$dff0a6
	move.w	#$24,$dff0a8	;Volume
	move.w	#$8281,$dff096	;DMA, Copper en Audio 1 inschakelen
	lea	ton(pc),a0
tonp:	move.w	#$8000,d1
pause:	nop
	dbf	d1,pause
	move.w	(a0)+,$dff0a6
	beq	end
	bra	tonp

end:	move.w	#$0001,$dff096
	lea	GraphicsName(pc),a1	;a1->Graphics.library
	clr.l	d0			;Versie nummer = 0
	jsr	-$228(a6)		;OpenLibrary
	move.l	d0,a6			;GfxBase->a6
	move.l	$26(a6),$dff080		;Zet copperlist goed 
	rts

einde:

GraphicsName:
	dc.b	'graphics.library',0
	even

ton:	dc.w	440,1200,850,1088,0
	even
wave:	dc.b	127,-127
	even
Copper:
	dc.w	$0180,$02c0	;Color 0 is groen
	dc.w	$0182,$02c0	;Color 1 is groen
	dc.w	$ffff,$fffe	;Einde copper list
	dc.b	'  '
;	dc.l	'PVL.'
	dc.l	$e211350c
dc.b	'                                '
dc.b	'This disk is installed with the Viruskiller of P'
dc.b	'VL.             '
dc.b	'Send new viruses to :                           '
dc.b	'                '
dc.b	'Pieter van Leuven                               '
dc.b	'                '
dc.b	'Koestraat 47                                    '
dc.b	'                '
dc.b	'5688 AG  Oirschot                               '
dc.b	'                '
dc.b	'Holland                                         '
	blk.b	400,' ' 
e:
l = e -start