*this is some silly code to fade the diskdrive light, NOT aga!
*		Coded By Nzų/DCS
	
		Section	'Daft shit',code

		opt	c-,o+,p+

fadedriveup	move	#$200,d3
fadeup		bsr.s	theshit
		dbf     d3,fadeup
		moveq	#0,d3
		rts

fadedriveout	bsr.s	theshit
		addq	#1,d3
		cmp	#$200,d3
		bne.s   fadedriveout
		move.b	#$fd,(a2)
		move.b	#$87,(a2)
		move.b	#$fd,(a2)
		rts

theshit		lea     $bfd100,a2
		or.b	#$c0,(a2)
		or.b	#$18,(a2)
		and.b	#$e7,(a2)
		move	d3,d4
wait1		dbf	d4,wait1
		and.b	#$3f,(a2)
		or.b	#$18,(a2)
		and.b	#$e7,(a2)
		move	#$200,d4
		sub	d3,d4
wait2		dbf     d4,wait2
		rts