org $40000
load $40000
s:
move.l		#$50100,$dff0a0	
move.w		#36000,$dff0a4 
move.w		#300,$dff0a6	
move.w		#65,$dff0a8	
move.w		#$83a1,$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	#20,d2
jsr	-390(a6)
move.l	#$50000,plane1
lea	rastport,a1
jsr	-198(a6)
move.l	#bitmap,r_bitmap
lea	rastport,a1
jsr	-48(a6)
move.l	#text,taller
move.l	$6c,oldirq+2
move.l	#newirq,$6c
wait:
move.l #$45000,a0
l1: 
move.w $dff012,d1
cmpi.b #$ff,$dff006
bne l1
move.l (a0)+,spr4a
move.l 20(a0),spr4b
move.l 40(a0),spr4
move.l 60(a0),spr3
move.l 80(a0),spr2
move.l 100(a0),spr1
cmp.w $dff012,d1
bne end1
cmpi.l #$47000,a0
beq wait 
jmp l1
end1:
jmp slut
newirq:
movem.l	d0-d7/a0-a6,-(sp)
move.l	gfxbase,a6
lea	rastport,a1
move.l	#2,d0
clr.l	d1
clr.l	d2
move.l	#1,d3
move.l	#336,d4
move.l	#20,d5
jsr	-396(a6)
sub.b	#1,rows
bne.s	exit
move.b	#4,rows
lea	rastport,a1
move.l	#320,d0
move.l	#10,d1
jsr	-240(a6)
lea	rastport,a1
move.l	taller,a0
move.l	#1,d0
jsr	-60(a6)
addq.l	#1,taller
cmp.l	#end,taller
blt.s	exit
move.l	#text,taller
exit:
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,$2c91,$0090,$41f0,$0092,$0038,$0094,$00d0
dc.w	$0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
dc.w	$0100,$1200,$0180,$0000
dc.w	$00e0,$0005,$00e2,$0000
dc.w    $2011,$fffe,$0180,$111
dc.w    $2111,$fffe,$0180,$222
dc.w    $2211,$fffe,$0180,$333
dc.w    $2311,$fffe,$0180,$444
dc.w    $2411,$fffe,$0180,$555
dc.w    $2511,$fffe,$0180,$666
dc.w    $2611,$fffe,$0180,$777
dc.w    $2711,$fffe,$0180,$888
dc.w    $2811,$fffe,$0180,$999
dc.w    $2911,$fffe,$0180,$aaa
dc.w    $2a11,$fffe,$0180,$bbb
dc.w	$2b11,$fffe,$0180,$ccc
dc.w    $2c11,$fffe,$0180,$ddd
dc.w    $2d11,$fffe,$0180,$eee
dc.w    $2e11,$fffe,$0180,$fff
dc.w    $3001,$ff00,$0182,$111
dc.w    $3101,$ff00,$0182,$333
dc.w	$3201,$ff00,$0182,$555
dc.w	$3301,$ff00,$0182,$777
dc.w	$3401,$ff00,$0182,$999
dc.w	$3501,$ff00,$0182,$bbb
dc.w	$3601,$fffe,$0182,$ddd
dc.w    $3911,$fffe,$0180,$eee
dc.w    $3a11,$fffe,$0180,$ddd
dc.w	$3b11,$fffe,$0180,$ccc
dc.w	$3c11,$fffe,$0180,$bbb
dc.w	$3d11,$fffe,$0180,$aaa
dc.w    $3e11,$fffe,$0180,$999
dc.w	$3f11,$fffe,$0180,$888
dc.w	$4011,$fffe,$0180,$777
dc.w    $4111,$fffe,$0180,$666
dc.w	$4211,$fffe,$0180,$555
dc.w    $4311,$fffe,$0180,$444
dc.w    $4411,$fffe,$0180,$333
dc.w	$4511,$fffe,$0180,$222
dc.w    $4611,$fffe,$0180,$111
dc.w    $4711,$fffe,$0180,$000
dc.w    $4a11,$fffe,$0180,$fff
dc.w	$4b11,$fffe,$0180,$000
dc.w	$0100,$5200,$0096,$83a1
dc.w    $00e0,$0000,$00e2,$0000
dc.w    $00e4,$0000,$00e6,$0000
dc.w    $00e8,$0000,$00ea,$0000
dc.w    $00ec,$0000,$00ee,$0000
dc.w    $00f0,$0000,$00f2,$0000
dc.w    $00f4,$0000,$00f6,$0000
dc.w    $00f8,$0000,$00fa,$0000
sprp0:	dc.w	$0120,$0004,$0122,$1510
sprp1:	dc.w	$0124,$0004,$0126,$1558
sprp2:	dc.w	$0128,$0004,$012a,$15a0
sprp3:	dc.w	$012c,$0004,$012e,$15e8
sprp4:	dc.w	$0130,$0004,$0132,$1630
sprp5:	dc.w	$0134,$0004,$0136,$1678
col0:	dc.w	$0180,$444,$0182,$555,$0184,$777,$0186,$999
col4:	dc.w	$0188,$444,$018a,$555,$018c,$777,$018e,$999
col8:	dc.w	$0190,$444,$0192,$555,$0194,$777,$0196,$999
col12:	dc.w	$0198,$444,$019a,$555,$019c,$777,$019e,$999
col16:	dc.w	$01a0,$444,$01a2,$555,$01a4,$777,$01a6,$999
col20:	dc.w	$01a8,$444,$01aa,$555,$01ac,$777,$01ae,$999
col24:	dc.w	$01b0,$444,$01b2,$555,$01b4,$777,$01b6,$999
col28:	dc.w	$01b8,$444,$01ba,$555,$01bc,$777,$01be,$999
dc.w	$ffff,$fffe
text:
dc.b	"        HELLO THIS THE DANISH DEMO DUO. WE ARE JUST LANDED"
dc.b	" ON THE AMIGA. NOW I (PET) HAS GAINED ENOUGH KNOWLEGED TO "
dc.b	"START PROGRAMMING MACHINE CODE ON THIS WONDERFUL MACHINE. "
dc.b	" "
dc.b	" "
end:
even
taller:
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	3
even
org $41510
load $41510
Spr4a:
dc.w $70a0,$8100
dc.w $0002FBF8,$0002FBF8
dc.w $0002FBFC,$00028A04,$0002DB06,$0002AAFA
dc.w $0002DBFF,$0002AA01,$0002DBFF,$0002ABFF
dc.w $0002D800,$0002A800,$0002D81F,$0002A81F
dc.w $0002D81F,$0002A811,$0002D81B,$0002A815
dc.w $0002D81F,$0002A81F,$0002D800,$0002A800
dc.w $0002DBFF,$0002ABFF,$0002DBFF,$0002AA01
dc.w $0002DB06,$0002AAFA,$0002FBFC,$00028A04
dc.w $0002FBF8,$0002FBF8
dc.w $0000,$0000
spr4b:
dc.w $7090,$8100
dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
dc.w $0000,$0000
spr4:
dc.w $7080,$8100
dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
dc.w $0000,$0000
Spr3:
dc.w $7060,$8100
dc.w $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
dc.w $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
dc.w $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
dc.w $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
dc.w $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
dc.w $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
dc.w $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
dc.w $0000,$0000
spr2:
dc.w $7050,$8100
dc.w $0002F81F,$0002F81F,$0002F81F,$00028811
dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
dc.w $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
dc.w $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
dc.w $0002DBFB,$0002ABF5,$0002D81B,$0002A815
dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
dc.w $0002F81F,$00028811,$0002F81F,$0002F81F
dc.w $0000,$0000
spr1:
dc.w $7040,$8100
dc.w $0002ffff,$0002ffff,$0002FFFF,$00028001
dc.w $0002C003,$0002BFFD,$0002FFFF,$00028001
dc.w $0002FFFF,$0002FFFF,$00020000,$00020000
dc.w $000207C0,$000207C0,$000207C0,$00020440
dc.w $000206C0,$00020540,$000206C0,$00020540
dc.w $000206C0,$00020540,$000206C0,$00020540
dc.w $000206C0,$00020540,$000206C0,$00020540
dc.w $000207C0,$00020440,$000207C0,$000207C0
dc.w $0000,$0000