‡
                        STUNNING DEMO SOURCE PART I
                      --===========================--

by
Negativ and Zinkfloid 
of TRSI


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

Locate Chip Ram
---------------
m,mLM
$ 30000 logon 4 00 FFFF
log $ 35FF to ITL FF 000

Interlace einblenden (Interlace on)
--------------------

Bildschirm ein (Screen on)
movem.l d0-d7/a0-a6,-(a7)
move.w $33(a6,d4.w),d4
move.h $42m.gti(4-d6-a6,)A1

Farben ein (Colours on)
----------

4 FFFF d4-00 4F3$F be1d2-d4
4 30000$ move.p $33(a6,a30-a4)BP
1 araL 2007 $ dim.d.2 nike 1144$.dir
move.v sin44/43 sub 3(a3,a7)
do.4 sub do.4(-1)

Vektor HAM-Shade Bob Fractal 112 Frames
-----------------------------------
mulu,12 0 #F$1
move.l $55,-(a0)+
dest.mulu,11 l..4FF r.
read sin
sub..44$67 to reg4667S
move.sin 00FF

Bildschirm aus (Screen off)
--------------
move.l$4.w,a6
move.l$9c(a6,a2),a6
move.l$26(a6),exe g.26
sub 4$87G
        
        lea     $dff008
        dope    56t4
        movem.l	d0-d7/a0-a6,-(a7)

	lea	$dff000,a6
	move.w	#$7fff,d0

	move.w	$1c(a6),intena
	move.w	$02(a6),dmacon

	move.w	d0,$96(a6)
	move.w	d0,$9a(a6)
	move.w	d0,$9c(a6)

	clr.l	$144(a6)
	clr.l	$14c(a6)
	clr.l	$154(a6)
	clr.l	$15c(a6)
	clr.l	$164(a6)
	clr.l	$16c(a6)
	clr.l	$174(a6)
	clr.l	$17c(a6)


	move.l	$6c.w,intt
	move.l	#interrupt,$6c.w
	move.w	#$c020,$9a(a6)

	lea	bpl0,a0
	move.l	a0,d0
	lea	bpl0ptlow,a1
	moveq	#4,d1
setbplanes
6
waiter2
	dbf	d6,waiter2
	subq.w	#2,d3
	bcc.w	fader2

*******************************************************************************
	move.w	#$10,d0
lll
	dbf	d1,lll
	dbf	d0,lll
*******************************************************************************
Elastic Vector
--------------
        move dc.c
        mulu17
        swap0
        move dpaint.4 to df1: loaddpaint4
        movel.$1765,A6
        paint.elastic vector ham47111.1 
        move.elastic vector 
        move.vector out of..monitore dc.00
…