scene.org File Archive

File download

<root>­/­mirrors­/­amigascne­/­Scrollers­/­C-Groupstext­/­Cult/Cult-AnotherBobdemo.txt

File size:
22 069 bytes (21.55K)
File date:
2013-09-08 23:05:14
Download count:
all-time: 213

Preview

          welcome to cult germany...      this time with another bobdemo...     hundred and eighty bobs...   of course in realtime.          and without lame copper-tricks...               this little intro was coded in five minutes by tex decorated with graphics from herpes 2000          it was made in a hurry so i could not code more animations or something like that...    but this bobdemo will surely not be our last one...           i am sitting here with joey (our new coder... hi joey - i think we will have a gorgeous time in cult germany)      message to tkc: here it is - the product you have been waiting for...               cult germany consists of:          bonzo (spreader) - herpes (graphic-artist) - iceman (spreader - driver) - joey (coder) - oyster (graphic-artist) - tex (coder)                  we send our regards to...             germany: avoid int. - braintrust - fantasy force - inky - apology of red sector - science - storm - tkc - vision factory - nuernberg-hauz          new zealand: nukebusters          france: pakou - soach          spain: powerbrain          sveden: software of sveden          israel: stack eighty-nine          finland: the dark side - unique          austria: wizard          belgium: xtc                                                        ok. finish now. see you later alligator...                                                            



++ Other text

**** init *****

go:	bsr.L	initpl
	bsr.L	makemul
	jsr	$3afbe
	jsr	$3afdc
	move.l	#text,txtmem
	move.l	$4,a6
	lea	gfxname,a1
	jsr	-408(a6)
	move.l	d0,a1
	move.l	d0,gfxbase
	move.l	50(a1),oldlist
	move.l	#newlist,50(a1)
	bset	#1,$bfe001
	move.w	#$85ff,$dff096
	move.b	#%11111000,$bfd100
	move.b	#%10000000,$bfd100
	move.l	$4,a6
	jsr	-132(a6)
	move.l	$6c,oldirq+2
	move.l	#newirq,$6c

***** wait-loop *****

wait:	btst	#6,$bfe001
	bne.S	wait

***** exit *****

	move.l	oldirq+2,$6c
	move.l	$4,a6
	jsr	-138(a6)
	move.l	gfxbase,a1
	move.l	oldlist,50(a1)
	move.l	$4,a6
	jsr	-414(a6)
	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	moveq	#0,d0
	rts

***** new timer-irq *****

newirq:	bsr.S	swing
	bsr.L	scroll
	bsr.S	bobs
	jsr	$3eb6a
oldirq:	jmp	$0

***** subroutine swing logo *****

swing:	lea	sin_tab_2,a0
	addq.b	#4,county
	move.b	county,d0
	move.b	(a0,d0),d0
	add.b	#126,d0
	move.b	d0,aplane_0+1
	move.b	d0,aplane_1+1
	addq.b	#8,d0
	move.b	d0,bplane_0+1
	move.b	d0,bplane_1+1
	addq.b	#8,d0
	move.b	d0,cplane_0+1
	move.b	d0,cplane_1+1
	addq.b	#8,d0
	move.b	d0,dplane_0+1
	move.b	d0,dplane_1+1
	rts

***** subroutine tex bob-routine v2.2 (4-color, turbo) *****

bobs:	cmp.l	#plane_a0,actpl
	bne.S	pltwo
	move.l	#plane_b0,actpl
	move.l	#plane_a0,planes
	move.l	#plane_a1,planes+4
	bra.S	notex
pltwo:	move.l	#plane_a0,actpl
	move.l	#plane_b0,planes
	move.l	#plane_b1,planes+4
notex:	move.l	planes,d0
	sub.w	#13,d0
	move.w	d0,cplanes+6
	swap	d0
	move.w	d0,cplanes+2
	move.l	planes+4,d0
	sub.w	#13,d0
	move.w	d0,cplanes+14
	swap	d0
	move.w	d0,cplanes+10
	move.w	#%0000000100000000,$dff040
	move.w	#26,$dff066
	move.l	actpl,$dff054
	move.w	#182*2*64+7,$dff058
ok_0:	btst	#14,$dff002
	bne.S	ok_0
	addq.b	#2,count_1
	addq.b	#5,count_2
	move.b	count_1,d4
	move.b	count_2,d5
	lea	sin_tab_1,a0
	lea	sin_tab_2,a1
	lea	multab,a2
	move.w	#36,$dff060
	clr.w	$dff062
	move.w	#36,$dff066
	move.l	#-1,$dff044
	move.l	#162,d3
drawbob:moveq	#0,d0
	moveq	#0,d1
	move.b	(a0,d4),d0
	move.b	(a1,d5),d1
	ext.w	d0
	ext.w	d1
	add.w	#50,d0
	add.w	#51,d1
	asl.w	#1,d1
	move.w	(a2,d1),d1
	move.w	d0,d2
	asr.w	#3,d2
	add.l	d2,d1
	move.l	d1,a3
	add.l	actpl,a3
	and.w	#$f,d0
	asl.w	#8,d0
	asl.w	#4,d0
	move.w	d0,$dff042
	or.w	#$0fe2,d0
	move.w	d0,$dff040
	move.l	a3,$dff048
	move.l	#bob_0,$dff050
	move.l	#mask,$dff04c
	move.l	a3,$dff054
	move.w	#7*64+2,$dff058
	add.l	#10240,a3
	move.l	a3,$dff048
	move.l	a3,$dff054
	move.w	#7*64+2,$dff058
	addq.b	#3,d4
	addq.b	#4,d5
	dbra	d3,drawbob
	rts

***** subroutine make mulu-table *****

makemul:lea	multab,a0
	move.l	#254,d0
	move.w	#0,d1
do_mul:	move.w	d1,(a0)+
	add.w	#40,d1
	dbra	d0,do_mul
	rts

***** subroutine init planes *****

initpl:	move.l	#bplane,d0
	move.w	d0,plane+6
	swap	d0
	move.w	d0,plane+2
	move.l	#plane_a0,d0
	move.w	d0,cplanes+6
	swap	d0
	move.w	d0,cplanes+2
	move.l	#plane_a1,d0
	move.w	d0,cplanes+14
	swap	d0
	move.w	d0,cplanes+10
	move.l	#plane_b0,actpl
	move.l	#plane_a0,actpl
	move.l	#plane_a0,planes
	move.l	#plane_a1,planes+4
	move.l	#aplane_0,d0
	move.w	d0,sprite0+6
	swap	d0
	move.w	d0,sprite0+2
	move.l	#aplane_1,d0
	move.w	d0,sprite1+6
	swap	d0
	move.w	d0,sprite1+2
	move.l	#bplane_0,d0
	move.w	d0,sprite2+6
	swap	d0
	move.w	d0,sprite2+2
	move.l	#bplane_1,d0
	move.w	d0,sprite3+6
	swap	d0
	move.w	d0,sprite3+2
	move.l	#cplane_0,d0
	move.w	d0,sprite4+6
	swap	d0
	move.w	d0,sprite4+2
	move.l	#cplane_1,d0
	move.w	d0,sprite5+6
	swap	d0
	move.w	d0,sprite5+2
	move.l	#dplane_0,d0
	move.w	d0,sprite6+6
	swap	d0
	move.w	d0,sprite6+2
	move.l	#dplane_1,d0
	move.w	d0,sprite7+6
	swap	d0
	move.w	d0,sprite7+2
	lea	bplane,a0
	move.l	#384*256/8-1,d0
clear:	clr.b	(a0)+
	subq.l	#1,d0
	tst.l	d0
	bne.S	clear
	rts

***** subroutine mini-scroller *****

scroll:	addq.b	#1,len
	cmp.b	#4,len
	bne.S	no
	clr.b	len
	add.l	#1,txtmem
	move.l	txtmem,a0
	tst.b	(a0)
	bne.S	nores1
	move.l	#text,txtmem
nores1:	btst	#14,$dff002
	bne.S	nores1
	move.l	actchar,$dff050
	move.l	#bplane+$2e,$dff054
	move.l	#-1,$dff044
	clr.w	$dff064
	move.w	#44,$dff066
	clr.w	$dff042
	move.w	#%0000100111110000,$dff040
	move.w	#10*64+1,$dff058
no:	btst	#14,$dff002
	bne.S	no
	move.l	#bplane+2,$dff050
	move.l	#bplane,$dff054
	move.l	#-1,$dff044
	clr.l	$dff064
	clr.w	$dff042
	move.w	#%1110100111110000,$dff040
	move.w	#10*64+24,$dff058
	move.l	txtmem,a0
	cmp.b	#"a",(a0)
	bne.S	aoa
	move.l	#a,actchar
aoa:	cmp.b	#"b",(a0)
	bne.S	aob
	move.l	#b,actchar
aob:	cmp.b	#"c",(a0)
	bne.S	aoc
	move.l	#c,actchar
aoc:	cmp.b	#"d",(a0)
	bne.S	aod
	move.l	#d,actchar
aod:	cmp.b	#"e",(a0)
	bne.S	aoe
	move.l	#e,actchar
aoe:	cmp.b	#"f",(a0)
	bne.S	aof
	move.l	#f,actchar
aof:	cmp.b	#"g",(a0)
	bne.S	aog
	move.l	#g,actchar
aog:	cmp.b	#"h",(a0)
	bne.S	aoh
	move.l	#h,actchar
aoh:	cmp.b	#"i",(a0)
	bne.S	aoi
	move.l	#i,actchar
aoi:	cmp.b	#"j",(a0)
	bne.S	aoj
	move.l	#j,actchar
aoj:	cmp.b	#"k",(a0)
	bne.S	aok
	move.l	#k,actchar
aok:	cmp.b	#"l",(a0)
	bne.S	aol
	move.l	#l,actchar
aol:	cmp.b	#"m",(a0)
	bne.S	aom
	move.l	#m,actchar
aom:	cmp.b	#"n",(a0)
	bne.S	aon
	move.l	#n,actchar
aon:	cmp.b	#"o",(a0)
	bne.S	aoo
	move.l	#o,actchar
aoo:	cmp.b	#"p",(a0)
	bne.S	aop
	move.l	#p,actchar
aop:	cmp.b	#"q",(a0)
	bne.S	aoq
	move.l	#q,actchar
aoq:	cmp.b	#"r",(a0)
	bne.S	aor
	move.l	#r,actchar
aor:	cmp.b	#"s",(a0)
	bne.S	aos
	move.l	#s,actchar
aos:	cmp.b	#"t",(a0)
	bne.S	aot
	move.l	#t,actchar
aot:	cmp.b	#"u",(a0)
	bne.S	aou
	move.l	#u,actchar
aou:	cmp.b	#"v",(a0)
	bne.S	aov
	move.l	#v,actchar
aov:	cmp.b	#"w",(a0)
	bne.S	aow
	move.l	#w,actchar
aow:	cmp.b	#"x",(a0)
	bne.S	aox
	move.l	#x,actchar
aox:	cmp.b	#"y",(a0)
	bne.S	aoy
	move.l	#y,actchar
aoy:	cmp.b	#"z",(a0)
	bne.S	aoz
	move.l	#z,actchar
aoz:	cmp.b	#".",(a0)
	bne.S	aopoi
	move.l	#poi,actchar
aopoi:	cmp.b	#" ",(a0)
	bne.S	aospc
	move.l	#spc,actchar
aospc:	cmp.b	#"(",(a0)
	bne.S	aoleft
	move.l	#left,actchar
aoleft:	cmp.b	#")",(a0)
	bne.S	aoright
	move.l	#right,actchar
aoright:cmp.b	#":",(a0)
	bne.S	aodoub
	move.l	#double,actchar
aodoub:	cmp.b	#"-",(a0)
	bne.S	aobeam
	move.l	#beam,actchar
aobeam:	rts

***** var-mem *****

gfxname:dc.b	"graphics.library",0
	even
gfxbase:dc.l	0
oldlist:dc.l	0
newlist:dc.l	$008e5881,$0090fec1
	dc.l	$00920038,$009400d0
	dc.l	$01020000,$01040000
	dc.l	$01080000,$010a0000
	dc.l	$01002200
cplanes:dc.l	$00e00000,$00e20000
	dc.l	$00e40000,$00e60000
sprite0:dc.l	$01200000,$01220000
sprite1:dc.l	$01240000,$01260000
sprite2:dc.l	$01280000,$012a0000
sprite3:dc.l	$012c0000,$012e0000
sprite4:dc.l	$01300000,$01320000
sprite5:dc.l	$01340000,$01360000
sprite6:dc.l	$01380000,$013a0000
sprite7:dc.l	$013c0000,$013e0000
	dc.l	$01800000,$01820fff,$01840d00,$01860700
	dc.l	$01a00000,$01a20000,$01a40fd0,$01a60d90
	dc.l	$01a80a60,$01aa0840,$01ac0520,$01ae0310
	dc.l	$fe0ffffe
	dc.l	$008eff71,$009020e1
	dc.l	$00920028,$009400d8
	dc.l	$01020000,$01040000
	dc.l	$01080000,$010a0000
	dc.l	$01001200
	dc.l	$ffd9fffe,$010ffffe,$0182000f
plane:	dc.l	$00e00000,$00e20000
	dc.l	$020ffffe,$0182000e
	dc.l	$030ffffe,$0182000d
	dc.l	$040ffffe,$0182000c
	dc.l	$050ffffe,$0182000b
	dc.l	$060ffffe,$0182000a
	dc.l	$070ffffe,$01820009
	dc.l	$080ffffe,$01820008
	dc.l	$090ffffe,$01820007
	dc.l	$0a0ffffe,$01820005
	dc.l	-2
len:	dc.b	0
	even
actchar:dc.l	0
txtmem:dc.l	0
text:	dc.b	"          welcome to cult germany...      this "
	dc.b	"time with another bobdemo...     hundred and "
	dc.b	"eighty bobs...   of course in realtime.       "
	dc.b	"   and without lame copper-tricks...        "
	dc.b	"       this little intro was coded in five minutes "
	dc.b	"by tex decorated with graphics from herpes 2000   "
	dc.b	"       it was made in a hurry so i "
	dc.b	"could not code more animations or something like "
	dc.b	"that...    but this bobdemo will surely not be our "
	dc.b	"last one...           "
	dc.b	"i am sitting here with joey (our new coder... hi jo"
	dc.b	"ey - i think we will have a gorgeous time in cult "
	dc.b	"germany)      message to tkc: here it is - the "
	dc.b	"product you have been waiting for...          "
	dc.b	"     cult germany consists of:          bonzo "
	dc.b	"(spreader) - herpes (graphic-artist) - "
	dc.b	"iceman (spreader - driver) - joey (coder) - oyster"
	dc.b	" (graphic-artist) - tex (coder)            "
	dc.b	"      we send our regards to...          "
	dc.b	"   germany: avoid int. - braintrust - fantasy force"
	dc.b	" - inky - apology of red sector - science - storm"
	dc.b	" - tkc - vision factory - nuernberg-hauz     "
	dc.b	"     new zealand: nukebusters          "
	dc.b	"france: pakou - soach          spain: powerbrain "
	dc.b	"         sveden: software of sveden          "
	dc.b	"israel: stack eighty-nine          "
	dc.b	"finland: the dark side "
	dc.b	"- unique          austria: wizard          belgium:"
	dc.b	" xtc                               "
	dc.b	"                         ok. finish now. see you "
	dc.b	"later alligator...           "
	dc.b	"                                                 "
	even
multab:	blk.w	255,0
count_1:dc.b	0
count_2:dc.b	0
county:	dc.b	0
	even
actpl:	dc.l	0
planes:	dc.l	0,0
bob_0:	dc.w $3800,0
	dc.w $5C00,0
	dc.w $AE00,0
	dc.w $DE00,0
	dc.w $FC00,0
	dc.w $7800,0
	dc.w $3000,0
bob_1:	dc.w $3800,0
	dc.w $7C00,0
	dc.w $DE00,0
	dc.w $FE00,0
	dc.w $FE00,0
	dc.w $7C00,0
	dc.w $3800,0
mask:	dc.w $3800,0
	dc.w $7C00,0
	dc.w $FE00,0
	dc.w $FE00,0
	dc.w $FE00,0
	dc.w $7C00,0
	dc.w $3800,0
	dc.w $3800,0
	dc.w $7C00,0
	dc.w $FE00,0
	dc.w $FE00,0
	dc.w $FE00,0
	dc.w $7C00,0
	dc.w $3800,0
sin_tab_1:
dc.b 0,1,2,3,4,6,7,8,9,10,12
dc.b 13,14,15,16,17,19,20,21,22,23,24
dc.b 25,26,27,28,29,30,31,32,33,34,35
dc.b 36,37,37,38,39,40,40,41,42,42,43
dc.b 44,44,45,45,46,46,47,47,47,48,48
dc.b 48,49,49,49,49,49,49,49,49,50,49
dc.b 49,49,49,49,49,49,49,48,48,48,47
dc.b 47,47,46,46,45,45,44,44,43,42,42
dc.b 41,40,40,39,38,37,37,36,35,34,33
dc.b 32,31,30,29,28,27,26,25,24,23,22
dc.b 21,20,19,17,16,15,14,13,12,10,9
dc.b 8,7,6,4,3,2,1,0,-2,-3,-4
dc.b -5,-7,-8,-9,-10,-11,-13,-14,-15,-16,-17
dc.b -18,-20,-21,-22,-23,-24,-25,-26,-27,-28,-29
dc.b -30,-31,-32,-33,-34,-35,-36,-37,-38,-38,-39
dc.b -40,-41,-41,-42,-43,-43,-44,-45,-45,-46,-46
dc.b -47,-47,-48,-48,-48,-49,-49,-49,-50,-50,-50
dc.b -50,-50,-50,-50,-50,-51,-50,-50,-50,-50,-50
dc.b -50,-50,-50,-49,-49,-49,-48,-48,-48,-47,-47
dc.b -46,-46,-45,-45,-44,-43,-43,-42,-41,-41,-40
dc.b -39,-38,-38,-37,-36,-35,-34,-33,-32,-31,-30
dc.b -29,-28,-27,-26,-25,-24,-23,-22,-21,-20,-18
dc.b -17,-16,-15,-14,-13,-11,-10,-9,-8,-7,-5
dc.b -4,-3,-2
sin_tab_2:
dc.b 50,49,49,49,49,49,49,49
dc.b 49,48,48,48,47,47,47,46,46,45,45
dc.b 44,44,43,42,42,41,40,40,39,38,37
dc.b 37,36,35,34,33,32,31,30,29,28,27
dc.b 26,25,24,23,22,21,20,19,17,16,15
dc.b 14,13,12,10,9,8,7,6,4,3,2
dc.b 1,0,-2,-3,-4,-5,-7,-8,-9,-10,-11
dc.b -13,-14,-15,-16,-17,-18,-20,-21,-22,-23,-24
dc.b -25,-26,-27,-28,-29,-30,-31,-32,-33,-34,-35
dc.b -36,-37,-38,-38,-39,-40,-41,-41,-42,-43,-43
dc.b -44,-45,-45,-46,-46,-47,-47,-48,-48,-48,-49
dc.b -49,-49,-50,-50,-50,-50,-50,-50,-50,-50,-51
dc.b -50,-50,-50,-50,-50,-50,-50,-50,-49,-49,-49
dc.b -48,-48,-48,-47,-47,-46,-46,-45,-45,-44,-43
dc.b -43,-42,-41,-41,-40,-39,-38,-38,-37,-36,-35
dc.b -34,-33,-32,-31,-30,-29,-28,-27,-26,-25,-24
dc.b -23,-22,-21,-20,-18,-17,-16,-15,-14,-13,-11
dc.b -10,-9,-8,-7,-5,-4,-3,-2,-1,1,2
dc.b 3,4,6,7,8,9,10,12,13,14,15
dc.b 16,17,19,20,21,22,23,24,25,26,27
dc.b 28,29,30,31,32,33,34,35,36,37,37
dc.b 38,39,40,40,41,42,42,43,44,44,45
dc.b 45,46,46,47,47,47,48,48,48,49,49
dc.b 49,49,49,49,49,49
a:	dc.w 0
	dc.w $F800
	dc.w $FC00
	dc.w $0C00
	dc.w $DC00
	dc.w $DC00
	dc.w $DC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
b:	dc.w 0
	dc.w $F800
	dc.w $FC00
	dc.w $0C00
	dc.w $DC00
	dc.w $D800
	dc.w $CC00
	dc.w $CC00
	dc.w $FC00
	dc.w $F800
c:	dc.w 0
	dc.w $FC00
	dc.w $FC00
	dc.w $0000
	dc.w $C000
	dc.w $C000
	dc.w $C000
	dc.w $C000
	dc.w $FC00
	dc.w $FC00
d:	dc.w 0
	dc.w $F800
	dc.w $FC00
	dc.w $0C00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $FC00
	dc.w $FC00
e:	dc.w 0
	dc.w $FC00
	dc.w $FC00
	dc.w $0000
	dc.w $F000
	dc.w $F000
	dc.w $C000
	dc.w $C000
	dc.w $FC00
	dc.w $FC00
f:	dc.w 0
	dc.w $FC00
	dc.w $FC00
	dc.w $0000
	dc.w $F000
	dc.w $F000
	dc.w $C000
	dc.w $C000
	dc.w $C000
	dc.w $C000
g:	dc.w 0
	dc.w $FC00
	dc.w $FC00
	dc.w $0000
	dc.w $DC00
	dc.w $DC00
	dc.w $CC00
	dc.w $CC00
	dc.w $FC00
	dc.w $FC00
h:	dc.w 0
	dc.w $CC00
	dc.w $CC00
	dc.w $0C00
	dc.w $DC00
	dc.w $DC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
i:	dc.w 0
	dc.w $3000
	dc.w $3000
	dc.w $0000
	dc.w $3000
	dc.w $3000
	dc.w $3000
	dc.w $3000
	dc.w $3000
	dc.w $3000
j:	dc.w 0
	dc.w $1800
	dc.w $1800
	dc.w $0000
	dc.w $1800
	dc.w $1800
	dc.w $1800
	dc.w $1800
	dc.w $7800
	dc.w $7800
k:	dc.w 0
	dc.w $C400
	dc.w $CC00
	dc.w $1C00
	dc.w $F800
	dc.w $F000
	dc.w $F000
	dc.w $F800
	dc.w $DC00
	dc.w $CC00
l:	dc.w 0
	dc.w $C000
	dc.w $C000
	dc.w $0000
	dc.w $C000
	dc.w $C000
	dc.w $C000
	dc.w $C000
	dc.w $FC00
	dc.w $FC00
m:	dc.w 0
	dc.w $F800
	dc.w $FC00
	dc.w $EC00
	dc.w $EC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
n:	dc.w 0
	dc.w $F800
	dc.w $FC00
	dc.w $0C00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
o:	dc.w 0
	dc.w $7800
	dc.w $FC00
	dc.w $0C00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $FC00
	dc.w $7800
p:	dc.w 0
	dc.w $F800
	dc.w $FC00
	dc.w $0C00
	dc.w $DC00
	dc.w $D800
	dc.w $C000
	dc.w $C000
	dc.w $C000	
	dc.w $C000
q:	dc.w 0
	dc.w $7800
	dc.w $FC00
	dc.w $0C00
	dc.w $CC00
	dc.w $CC00
	dc.w $DC00
	dc.w $DC00
	dc.w $FC00
	dc.w $7800
r:	dc.w 0
	dc.w $F800
	dc.w $FC00
	dc.w $0C00
	dc.w $DC00
	dc.w $D800
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
s:	dc.w 0
	dc.w $7800
	dc.w $FC00
	dc.w $0000
	dc.w $F800
	dc.w $7C00
	dc.w $0C00
	dc.w $0C00
	dc.w $FC00
	dc.w $7800
t:	dc.w 0
	dc.w $FC00
	dc.w $FC00
	dc.w $0000
	dc.w $0C00
	dc.w $0C00
	dc.w $0C00
	dc.w $0C00
	dc.w $0C00
	dc.w $0C00
u:	dc.w 0
	dc.w $CC00
	dc.w $CC00
	dc.w $0C00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $FC00
	dc.w $7800
v:	dc.w 0
	dc.w $CC00
	dc.w $CC00
	dc.w $0C00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
	dc.w $7800
	dc.w $7800
	dc.w $3000
w:	dc.w 0
	dc.w $CC00
	dc.w $CC00
	dc.w $0C00
	dc.w $CC00
	dc.w $CC00
	dc.w $EC00
	dc.w $EC00
	dc.w $FC00
	dc.w $7800
x:	dc.w 0
	dc.w $CC00
	dc.w $CC00
	dc.w $0C00
	dc.w $CC00
	dc.w $3000
	dc.w $FC00
	dc.w $CC00
	dc.w $CC00
	dc.w $CC00
y:	dc.w 0
	dc.w $CC00
	dc.w $CC00
	dc.w $0C00
	dc.w $FC00
	dc.w $7800
	dc.w $3000
	dc.w $3000
	dc.w $3000
	dc.w $3000
z:	dc.w 0
	dc.w $FC00
	dc.w $FC00
	dc.w $0000
	dc.w $1C00
	dc.w $3800
	dc.w $7000
	dc.w $0000
	dc.w $FC00
	dc.w $FC00
poi:	dc.w 0
	dc.w $0000
	dc.w $0000
	dc.w $0000
	dc.w $0000
	dc.w $0000
	dc.w $0000
	dc.w $0000
	dc.w $C000
	dc.w $C000
spc:	blk.w	10,0
left:	dc.w 0
	dc.w $3800
	dc.w $3800
	dc.w $3000
	dc.w $3000
	dc.w $3000
	dc.w $3000
	dc.w $3000
	dc.w $3800
	dc.w $3800
right:	dc.w 0
	dc.w $3800
	dc.w $3800
	dc.w $1800
	dc.w $1800
	dc.w $1800
	dc.w $1800
	dc.w $1800
	dc.w $3800
	dc.w $3800
double:	dc.w 0
	dc.w $0000
	dc.w $0000
	dc.w $1800
	dc.w $1800
	dc.w $0000
	dc.w $1800
	dc.w $1800
	dc.w $0000
	dc.w $0000
beam:	dc.w 0
	dc.w $0000
	dc.w $0000
	dc.w $0000
	dc.w $fc00
	dc.w $fc00
	dc.w $0000
	dc.w $0000
	dc.w $0000
	dc.w $0000
aplane_0:
dc.w $8083,$9d00
dc.w $E07F,$1FC0
dc.w $CE3F,$3020
dc.w $F80F,$4000
dc.w $7067,$0060
dc.w $83F3,$0030
dc.w $C79F,$0070
dc.w $FF8F,$1070
dc.w $FFDF,$1020
dc.w $C7FF,$3800
dc.w $C7FF,$3800
dc.w $EFFF,$3800
dc.w $D7FF,$3810
dc.w $FFC7,$1028
dc.w $EFB3,$2844
dc.w $8BFD,$4422
dc.w $BBCF,$07B4
dc.w $F1E7,$0FF8
dc.w $E61F,$1FF0
dc.w $E39F,$1FE0
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FF04,$00FB
dc.w $FFFF,$0082
dc.w $FF24,$0000
dc.w $FFFF,$0000
dc.w $FF04,$00FB
dc.w $0000,$0000
aplane_1:
dc.w $8083,$9d80
dc.w $0000,$0000
dc.w $1FC0,$0000
dc.w $3FF0,$0000
dc.w $FF98,$0000
dc.w $7C4C,$0000
dc.w $3888,$0000
dc.w $2850,$0000
dc.w $2820,$0000
dc.w $2800,$0000
dc.w $2800,$0000
dc.w $2800,$0000
dc.w $2800,$0000
dc.w $2810,$0000
dc.w $1038,$0000
dc.w $381C,$0000
dc.w $FC78,$0000
dc.w $7FF8,$0000
dc.w $3FF0,$0000
dc.w $1FE0,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $00DB,$0000
dc.w $00CB,$0000
dc.w $00FB,$0000
dc.w $0000,$0000
bplane_0:
dc.w $808b,$9d00
dc.w $EFEF,$1000
dc.w $FFE7,$3808
dc.w $EBDF,$6464
dc.w $1767,$8CF8
dc.w $EFDF,$1C38
dc.w $D7EF,$3818
dc.w $EFE7,$3838
dc.w $EFDF,$1028
dc.w $D7EF,$2820
dc.w $EFE7,$2808
dc.w $C7DF,$2838
dc.w $FFF7,$1038
dc.w $D7CF,$1030
dc.w $EFE7,$3810
dc.w $CBFF,$7C7C
dc.w $1A1F,$FB9E
dc.w $F007,$7004
dc.w $E7E7,$0000
dc.w $E1CF,$1E00
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $1041,$EFBE
dc.w $FFFF,$08BA
dc.w $1045,$0000
dc.w $FFFF,$0000
dc.w $135D,$ECA2
dc.w $0000,$0000
bplane_1:
dc.w $808b,$9d80
dc.w $1010,$0000
dc.w $2838,$0000
dc.w $5C7C,$0000
dc.w $FEFE,$0000
dc.w $787C,$0000
dc.w $1030,$0000
dc.w $1010,$0000
dc.w $3810,$0000
dc.w $3818,$0000
dc.w $3838,$0000
dc.w $3828,$0000
dc.w $2828,$0000
dc.w $2828,$0000
dc.w $0028,$0000
dc.w $0000,$0000
dc.w $0460,$0000
dc.w $0FF8,$0000
dc.w $3FF8,$0000
dc.w $1FF0,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $EFBA,$0000
dc.w $0D2A,$0000
dc.w $ECA2,$0000
dc.w $0000,$0000
cplane_0:
dc.w $8093,$9d00
dc.w $EFFF,$1001
dc.w $FFFC,$3803
dc.w $C7FD,$7C03
dc.w $01FE,$7C06
dc.w $BBF9,$0004
dc.w $FFFE,$0003
dc.w $EFFF,$0000
dc.w $C7FF,$2800
dc.w $D7FF,$3800
dc.w $FFFF,$3800
dc.w $C7FF,$3800
dc.w $EFFF,$1000
dc.w $EFFF,$3800
dc.w $D7CF,$3838
dc.w $BBC7,$7C7C
dc.w $83C1,$007E
dc.w $C07B,$007C
dc.w $DE3F,$2030
dc.w $FC2F,$1FF0
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $FFFF,$0000
dc.w $0412,$FBED
dc.w $FFFF,$8A27
dc.w $04DD,$0000
dc.w $FFFF,$0000
dc.w $34DC,$CB23
dc.w $0000,$0000
cplane_1:
dc.w $8093,$9d80
dc.w $0001,$0000
dc.w $1002,$0000
dc.w $3804,$0000
dc.w $FE09,$0000
dc.w $7C03,$0000
dc.w $3801,$0000
dc.w $3801,$0000
dc.w $3800,$0000
dc.w $2800,$0000
dc.w $2800,$0000
dc.w $2800,$0000
dc.w $2800,$0000
dc.w $0010,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $FF80,$0000
dc.w $7F80,$0000
dc.w $3FC8,$0000
dc.w $1FF0,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $FB22,$0000
dc.w $CB23,$0000
dc.w $CB23,$0000
dc.w $0000,$0000
dplane_0:
dc.w $809b,$9d00
dc.w $DCE0,$E000
dc.w $4FE0,$C000
dc.w $B0A0,$8F40
dc.w $4F60,$3FA0
dc.w $BCA0,$73C0
dc.w $CEE0,$B900
dc.w $E7E0,$3900
dc.w $FFE0,$0800
dc.w $CFE0,$2000
dc.w $E7E0,$2800
dc.w $DFE0,$3800
dc.w $F7E0,$1800
dc.w $CFE0,$1000
dc.w $E7E0,$3000
dc.w $FFE0,$7C00
dc.w $73E0,$7200
dc.w $C7E0,$0400
dc.w $E7E0,$0000
dc.w $FFE0,$0000
dc.w $FFE0,$0000
dc.w $FFE0,$0000
dc.w $FFE0,$0000
dc.w $FFE0,$0000
dc.w $FFE0,$0000
dc.w $7FE0,$8000
dc.w $FFE0,$0000
dc.w $FFE0,$0000
dc.w $FFE0,$0000
dc.w $FFE0,$0000
dc.w $0000,$0000
dplane_1:
dc.w $809b,$9d80
dc.w $FF00,$0000
dc.w $3F80,$0000
dc.w $7FC0,$0000
dc.w $FFE0,$0000
dc.w $9FC0,$0000
dc.w $1380,$0000
dc.w $1000,$0000
dc.w $3000,$0000
dc.w $3800,$0000
dc.w $3800,$0000
dc.w $2800,$0000
dc.w $2800,$0000
dc.w $2800,$0000
dc.w $0800,$0000
dc.w $0000,$0000
dc.w $8C00,$0000
dc.w $7800,$0000
dc.w $3800,$0000
dc.w $1000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
dc.w $0000,$0000
bplane:	blk.b	12288,0
plane_a0:blk.b	10240,0
plane_a1:blk.b	10240,0
plane_b0:blk.b	10240,0
plane_b1:blk.b	10240,0
	>extern "df0:hybris",$3afb8,20551
blk.b	10240,0
plane_b0:blk.b	10240,0
plane_b1:blk.b	10240,0
	>extern "df0:hybris",$3afb8,20551