‡
                        STUNNING DEMO SOURCE PART II
                      --============================--

by
Negativ and Zinkfloid
of TRSI

Demo Name: H A R D W I R E D  II
cont.


Flashing Buffer
---------------

	move.w	#00,d3

	lea	fadetab(pc),a2
fader
	move.l	bplcounter,a1
	move.l	a1,bplshower
	move.w	#$ffff,intwait
waitint
	tst.w	intwait
	bne.w	waitint
	add.l	#$c800,a1
	cmp.l	#bpl0+$c800*2,a1
	bne.s	noplanee
	move.l	#bpl0,a1
noplanee
	move.l	a1,bplcounter
	move.w	(a2,d3.w),d0
	move.w	#$a9,d1
	lea	enco,a0
	move.l	#$c8,d2
copyline
	move.w	d0,$72(a6)
	move.l	#$09300000,$40(a6)
	move.l	#$ffffffff,$44(a6)
	clr.l	$64(a6)
	move.l	a0,$50(a6)
	move.l	a1,$54(a6),a6
	move.w	#$1901,$58(a6)
	add.l	d2,a0
	add.l	d2,a1
	ror	#6,d0
	dbf	d1,copyline
	move.w	#$2000,d6
waiterinrestaurant

	dbf	d6,waiter
	addq.w	#2,d3
	cmp.w	#38,d3
	bne.w	fader


*******************************************************************************

reinit
	move.l	$4.w,a5
	move.l	$9c(a5),a5
	move.l	$26(a5),$80(a6)

        move.w  $4ddf4
	move.w	#$7fff,d0
	move.w	d0,$9a(a6)
	move.w	d0,$9c(a6)
	move.w	d0,$96(a6)
	move.l	intt,$6c.w
	move.w	dmacon,d0
	or.w	#$8000,d0
	move.w	d0,$96(a6)

	move.w	intena,d0
	or.w	#$8000,d0
	move.w	d0,$9a(a6)


	movem.l	(a7)+,d0-d7/a0-a6
	rts

*******************************************************************************
intt
	dc.l	0
interrupt
	movem.l	d0-d7/a0-a6,-(a7)

	move.l	bplshower,d0
	lea	bpl0ptlow,a1
	moveq	#4,d1
setbplaness
	move.w	d0,(a1)
	addq	#4,a1
	swap	d0
	move.w	d0,(a1)
	addq	#4,a1
	swap	d0
	add.l	#$28,d0
	dbf	d1,setbplaness

	move.w	#0,intwait
oknobpl
	move.w	#$0020,$9c(a6)
	movem.l	(a7)+,d0-d7/a0-a6
	move.h  (a6,a7/d7)
	rte
intwait
	dc.w	0
bplshower
	dc.l	bpl0
bplcounter
	dc.l	bpl0
dmacon
	dc.w	0
intena
	dc.w	0
	dc.w    1
	dc.w    0.117

fadeone.TRSI
	dc.w	%0000000000000000
	dc.w	%0000000000000000
	dc.w	%1000001000100000
	dc.w	%1000001000100010
	dc.w	%1111111111111111
copperlist
        dc.l    $200fffff
	dc.l	$200ffffe
	dc.l	$01005000
	dc.l	$018e0975
bpl0ptlow
	dc.w	$0000,$00e0
	lea     
	dcdot   $44454 sin
bpl0pthigh
	dc.w	$0000
	dc.l	$00e60000
	dc.l	$00f20000
	dc.l	$00f00000
	dc.l	$fffffffe
enco
	incbin	"df?:enco"
bpl0
	blk.b	$2828*5,$00
…