ùúùú  \‰                                    	org	$40000-$18
	load	$40000-$18

init:
;	move.w	#$7fff,$00dff09a
;	move.w	#$7fff,$00dff09c
;	move.w	#$01af,$00dff096

progstart:
	lea	$00040000,sp
	bsr	lbc000bf8

	cmp.w	#$1980,d0
	blt.s	lbc000016

	cmp.w	#$19e0,d0
	ble.s	kopierespeicher

lbc000016:
	lea	launcherham(pc),a2
	clr.l	(a2)

;---------------copy speicher nach $0140
kopierespeicher:
	lea	hauptprg(pc),a0	;sourceadresse
	lea	$0140,a1		;destinationadresse
	move.w	#lbc000bf8-hauptprg-1,d0;laenge der zu kopierenden daten
kopierenloop:
	move.b	(a0)+,(a1)+		;copy source- nach destinationadresse
	dbra	d0,kopierenloop		;wiederhole das kopieren bis d0=0

;---------------hole adressen und bleibe in der schleife
	moveq	#$00,d1			;loesche d0
	lea	$00040000,a0		;$40000 nach a0
	lea	$0005c000,a1		;$5c000 nach a1
	lea	launcherham(pc),a2	;launcher message nach a2
	move.l	#$0007c000,a5		;$7c000 nach a5
hauptschleife:
	move.l	#$4578466c,d0		;schaut wie ein sync aus!!!
	jsr	$0140			;jumpe in die umkopierte adresse

	bra.s	hauptschleife		;und wiederhole die schleife immer!

;---------------die adressen aus der unteren tabelle werden ermittelt (bra)
hauptprg:
	move.l	a6,-(sp)		;rette a6 zum stack
	lea	lbl000be8(pc),a6	;offset adresse nach a6 offset=0 long!
	move.l	a5,(a6)			;schreibe a5 da rein! a5=$7c0000
	lea	ladefolge(pc),a6	;kein plan..
	movem.l	d1/d2,-(sp)		;rette d1 und d2 auf stack
	moveq	#-$04,d2		;$fffffffc nach d2!
hauptprgloop:
	addq.w	#$04,d2			;addiere 4 dazu mach d2=0
	move.l	(a6)+,d1		;die daten in a6 nach d1 und a6 weiter
	beq.s	lbc00007e		;equal? dann in der adresse weiter

	cmp.l	d1,d0			;vergleiche d1,d0
	bne.s	hauptprgloop		;nicht equal dann wiederholen

	lea	bratabelle(pc),a6	;bra nach a6 holen
	add.w	d2,a6			;2 bytes dazu um bra wegzumachen
	movem.l	(sp)+,d1/d2		;stack nach d1 und d2 zurueck lifo!
	jsr	(a6)			;springe zu dieser adresse in a6

hauptreturn:
	move.l	(sp)+,a6		;das damals gerettete a6 rausholen
	rts				;zurueck zum anfangs prog

lbc00007e:
	moveq	#-$17,d0		;$ffffffe9 nach d0!
	movem.l	(sp)+,d1/d2		;stack nach d1 und d2 zurueck lifo!
	bra.s	hauptreturn		;zurueck zum ende

;---------------dies ist die bra tabelle
bratabelle:
	bra	ersteroutine		;zu dieser addy wird gesprungen #1

	bra	zweiteroutine		;zu dieser addy wird gesprungen #2

	bra	dritteroutine		;zu dieser addy wird gesprungen #3

	bra	vierteroutine		;zu dieser addy wird gesprungen #4

	bra	fuenfteroutine		;zu dieser addy wird gesprungen #5

	bra	sechsteroutine		;zu dieser addy wird gesprungen #6

;---------------ich vermute das hier die strings drinne sind, die das game
;---------------bestimmen und laden ld sc wr sc ld fl md fl ex fl un cm
ladefolge:
	dc.b	'LdScWrScLdFlMdFlExFlUnCm',0,0
	dc.b	$00
	dc.b	$00

;---------------hier wird als erstes gejumpt und geladen!
ersteroutine:
	movem.l	d1-d5/a0/a2,-(sp)	;alles auf stack retten
	lea	lbw000bde(pc),a2	;word offset mit nullen holen!
	move.w	d1,(a2)+		;d1 nach $bde word	0000
	move.w	d5,(a2)+		;d5 nach $be0 word	0000
	clr.w	(a2)+			;loesche $be2 word	0000
	move.l	a0,(a2)+		;a0 nach $be4 long	00000000
	addq.l	#$04,a2			;add 4 nach $be8 long	00000000
	move.w	d3,(a2)+		;d3 nach $bec word	0000
	move.w	d4,(a2)+		;d4 nach $bee word	0000
	bsr	lbc000396		;mache da weiter

	movem.l	(sp)+,d1-d5/a0/a2	;alles vom stack zurueck
	rts				;return zu main

;---------------hier wird dann als naechstes gejumpt und geladen!
zweiteroutine:
	movem.l	d1-d5/a0/a2,-(sp)	;alles auf stack retten
	lea	lbw000bde(pc),a2	;word offset mit nullen holen
	move.w	d1,(a2)+		;d1 nach $bde word	0000
	move.w	d5,(a2)+		;d5 nach $be0 word	0000
	move.w	#$ffff,(a2)+		;$ffff nach $be2 word	0000
	move.l	a0,(a2)+		;a0 nach $be4 long	00000000
	addq.l	#$04,a2			;add 4 nach $be8 long	00000000
	move.w	d3,(a2)+		;d3 nach $bec word	0000
	move.w	d4,(a2)+		;d4 nach $bee word	0000
	bsr	lbc000396		;mache da weiter

	movem.l	(sp)+,d1-d5/a0/a2	;alles vom stack zurueck
	rts				;return zu main

;---------------das hier ist die 3te positon der jumptabelle...
dritteroutine:
	movem.l	d2-d6/a0-a2,-(sp)	;alles auf den stack
	bsr	lbc000340		;mache da weiter

	tst.l	d0			;teste ob d0=0
	bmi.s	lbc00013a		;wenn minus dann da weiter

	bsr	lbc000368		;springe da hin

	tst.l	d0			;teste ob d0=0
	bmi.s	lbc00013a		;wenn minus dann da weiter

	move.l	d0,a2			;d0 nach a2
	move.w	$0010(a2),d3		;das 16te	wert nach d3
	move.w	$0012(a2),d4		;das 18te	wert nach d4
	move.w	$0014(a2),d5		;das 20igste	wert nach d5
	move.l	$0016(a2),d6		;das 22igste	wert nach d6
	bsr	ersteroutine		;mache da weiter

	tst.l	d0			;teste ob d0=0
	bmi.s	lbc00013a		;wenn minus dann da weiter

	bsr	sechsteroutine		;da weitermachen

	tst.l	d0			;teste ob d0=0
	beq.s	lbc00013a		;equal? dann da weiter

lbc000132:
	move.b	(a0)+,(a1)+		;daten in a0 nach a1 byte und weiter
	subq.l	#$01,d6			;subtrahiere 1 von d6
	bne.s	lbc000132		;not equal dann da weiter

	moveq	#$00,d0			;d0=0
lbc00013a:
	movem.l	(sp)+,d2-d6/a0-a2	;alles vom stack zurueck
	rts				;rts

;---------------hier ist die 4te position wo hingejumpt wird
vierteroutine:
	movem.l	d2-d5/a0/a2,-(sp)	;register auf stack retten
	bsr	lbc000340		;springe da hin

	tst.l	d0			;teste ob d0=0
	bmi.s	lbc000168		;wenn d0=minus dann da hin

	bsr	lbc000368		;da hineinspringen

	tst.l	d0			;teste ob d0=0
	bmi.s	lbc000168		;wenn d0=minus dann da hin

	move.l	d0,a2			;move d0 nach a2
	move.w	$0010(a2),d3		;das 16te	wert nach d3
	move.w	$0012(a2),d4		;das 18te	wert nach d4
	move.w	$0014(a2),d5		;das 20igste	wert nach d5
	move.l	a1,a0			;move a1 nach a0
	bsr	zweiteroutine		;springe da hin

lbc000168:
	movem.l	(sp)+,d2-d5/a0/a2	;alles vom stack zurueck
	rts				;rts

;---------------5te position der tabelle
fuenfteroutine:
	bsr	dritteroutine

	tst.l	d0
	bmi.s	lbc0001a2

	cmp.l	#$48414253,(a1)
	bne.s	lbc0001a0

	move.l	$0008(a1),a0
	move.l	$0010(a1),d0
	lea	$0014(a1),a1
lbc00018a:
	move.l	(a1)+,d1
	move.l	(a1)+,a2
	btst	#$1f,d1
	bne.s	lbc00019a

lbc000194:
	move.b	(a1)+,(a2)+
	subq.l	#$01,d1
	bne.s	lbc000194

lbc00019a:
	subq.l	#$01,d0
	bne.s	lbc00018a

	jmp	(a0)

lbc0001a0:
	moveq	#-$15,d0
lbc0001a2:
	rts

;---------------dies ist die 6te und letzte position
sechsteroutine:
	movem.l	d1-d7/a0-a6,-(sp)
	bsr.s	lbc000208

	cmp.l	#$49636521,d0
	bne.s	lbc000200

	bsr.s	lbc000208

	lea	-$08(a0,d0.l),a5
	bsr.s	lbc000208

	move.l	d0,(sp)
	move.l	a1,a4
	move.l	a1,a6
	add.l	d0,a6
	move.l	a6,a3
	bsr.s	lbc000240

	bsr.s	lbc000214

	bsr	lbc00026c

	bcc.s	lbc0001f8

	move.w	#$0f9f,d7
lbc0001d2:
	moveq	#$03,d6
lbc0001d4:
	move.w	-(a3),d4
	moveq	#$03,d5
lbc0001d8:
	add.w	d4,d4
	addx.w	d0,d0
	add.w	d4,d4
	addx.w	d1,d1
	add.w	d4,d4
	addx.w	d2,d2
	add.w	d4,d4
	addx.w	d3,d3
	dbra	d5,lbc0001d8

	dbra	d6,lbc0001d4

	movem.w	d0-d3,(a3)
	dbra	d7,lbc0001d2

lbc0001f8:
	movem.l	(sp)+,d1-d7/a0-a6
	moveq	#$00,d0
	rts

lbc000200:
	movem.l	(sp)+,d1-d7/a0-a6
	moveq	#-$16,d0
	rts

lbc000208:
	moveq	#$03,d1
lbc00020a:
	lsl.l	#$08,d0
	move.b	(a0)+,d0
	dbra	d1,lbc00020a

	rts

lbc000214:
	bsr.s	lbc00026c

	bcc.s	lbc00023a

	moveq	#$00,d1
	bsr.s	lbc00026c

	bcc.s	lbc000234

	lea	lbw000318(pc),a1
	moveq	#$04,d3
lbc000224:
	move.l	-(a1),d0
	bsr.s	lbc000292

	swap	d0
	cmp.w	d0,d1
	dbne	d3,lbc000224

	add.l	$0014(a1),d1
lbc000234:
	move.b	-(a5),-(a6)
	dbra	d1,lbc000234

lbc00023a:
	cmp.l	a4,a6
	bgt.s	lbc0002a0

	rts

lbc000240:
	moveq	#$03,d0
lbc000242:
	move.b	-(a5),d7
	ror.l	#$08,d7
	dbra	d0,lbc000242

	rts

lbc00024c:
	move.w	a5,d7
	btst	#$00,d7
	bne.s	lbc00025a

	move.l	-(a5),d7
	addx.l	d7,d7
	bra.s	lbc000298

lbc00025a:
	move.l	-$0005(a5),d7
	lsl.l	#$08,d7
	move.b	-(a5),d7
	subq.l	#$03,a5
	add.l	d7,d7
	bset	#$00,d7
	bra.s	lbc000298

lbc00026c:
	add.l	d7,d7
	beq.s	lbc000272

	rts

lbc000272:
	move.w	a5,d7
	btst	#$00,d7
	bne.s	lbc000280

	move.l	-(a5),d7
	addx.l	d7,d7
	rts

lbc000280:
	move.l	-$0005(a5),d7
	lsl.l	#$08,d7
	move.b	-(a5),d7
	subq.l	#$03,a5
	add.l	d7,d7
	bset	#$00,d7
	rts

lbc000292:
	moveq	#$00,d1
lbc000294:
	add.l	d7,d7
	beq.s	lbc00024c

lbc000298:
	addx.w	d1,d1
	dbra	d0,lbc000294

	rts

lbc0002a0:
	lea	lbw00032c(pc),a1
	moveq	#$03,d2
lbc0002a6:
	bsr.s	lbc00026c

	dbcc	d2,lbc0002a6

	moveq	#$00,d4
	moveq	#$00,d1
	move.b	$01(a1,d2.w),d0
	ext.w	d0
	bmi.s	lbc0002ba

	bsr.s	lbc000292

lbc0002ba:
	move.b	$06(a1,d2.w),d4
	add.w	d1,d4
	beq.s	lbc0002e0

	lea	lbw000336(pc),a1
	moveq	#$01,d2
lbc0002c8:
	bsr.s	lbc00026c

	dbcc	d2,lbc0002c8

	moveq	#$00,d1
	move.b	$01(a1,d2.w),d0
	ext.w	d0
	bsr.s	lbc000292

	add.w	d2,d2
	add.w	$06(a1,d2.w),d1
	bra.s	lbc0002f2

lbc0002e0:
	moveq	#$00,d1
	moveq	#$05,d0
	moveq	#$00,d2
	bsr.s	lbc00026c

	bcc.s	lbc0002ee

	moveq	#$08,d0
	moveq	#$40,d2
lbc0002ee:
	bsr.s	lbc000292

	add.w	d2,d1
lbc0002f2:
	lea	$02(a6,d4.w),a1
	add.w	d1,a1
	move.b	-(a1),-(a6)
lbc0002fa:
	move.b	-(a1),-(a6)
	dbra	d4,lbc0002fa

	bra	lbc000214

	dc.w	$7fff,$000e,$00ff,$0007,$0007,$0002,$0003,$0001
	dc.w	$0003,$0001
lbw000318:
	dc.w	$0000,$010d,$0000,$000e,$0000,$0007,$0000,$0004
	dc.w	$0000,$0001
lbw00032c:
	dc.w	$0901,$00ff,$ff08,$0402,$0100
lbw000336:
	dc.w	$0b04,$0700,$0120,$0000,$0020

 lbc000340:
	movem.l	d2-d5,-(sp)
	moveq	#$00,d3
	moveq	#$02,d4
	moveq	#$04,d5
	bsr	ersteroutine

	movem.l	(sp)+,d2-d5
	rts

	movem.l	d2-d5,-(sp)
	moveq	#$00,d3
	moveq	#$01,d4
	moveq	#$01,d5
	bsr	zweiteroutine

	movem.l	(sp)+,d2-d5
	rts

lbc000368:
	movem.l	a0/a1/a3,-(sp)
	moveq	#$3f,d0
lbc00036e:
	tst.b	(a0)
	beq.s	lbc000382

	move.l	a0,a1
	move.l	a2,a3
lbc000376:
	cmpm.b	(a1)+,(a3)+
	bne.s	lbc000382

	tst.b	-$0001(a1)
	beq.s	lbc00038e

	bra.s	lbc000376

lbc000382:
	lea	$0020(a0),a0
	dbra	d0,lbc00036e

	moveq	#-$14,d0
	bra.s	lbc000390

lbc00038e:
	move.l	a0,d0
lbc000390:
	movem.l	(sp)+,a0/a1/a3
	rts

;---------------hier hin wird bei den routinen 1 und 2 verzweigt....
lbc000396:
	movem.l	d1-d3/a0-a2,-(sp)	;alles auf stack
	bsr	motorausciab		;laufwerksoptionen im cia-b

	bne.s	zwrtbitsaufeinsciab	;bits im cia-b alle auf 1 setzen

	bsr	lbc00040e

lbc0003a4:
	bsr	lbc000428

	bne.s	zwrtbitsaufeinsciab

	moveq	#$00,d1
	move.w	lbw000bee(pc),d1
	moveq	#$0b,d2
	sub.l	d1,d2
	cmp.w	lbw000be0(pc),d2
	ble.s	lbc0003be

	move.w	lbw000be0(pc),d2
lbc0003be:
	move.w	lbw000be2(pc),d3
	bpl.s	lbc0003cc

	bsr	lbc00045a

	bne.s	zwrtbitsaufeinsciab

	bra.s	lbc0003d0

lbc0003cc:
	bsr	lbc000580

lbc0003d0:
	moveq	#$00,d0
	lea	lbw000be0(pc),a0
	sub.w	d2,(a0)
	beq.s	zwrtbitsaufeinsciab

	lea	lbl000be4(pc),a0
	move.w	d2,d0
	lsl.l	#$08,d0
	lsl.l	#$01,d0
	add.l	d0,(a0)
	lea	lbw000bee(pc),a0
	clr.w	(a0)
	lea	lbw000bec(pc),a0
	addq.w	#$01,(a0)
	cmp.w	#$004f,(a0)
	bne.s	lbc0003a4

	move.w	#$0050,(a0)
	bra.s	lbc0003a4

zwrtbitsaufeinsciab:
	move.l	d0,-(sp)		;d0 auf dem stack schreiben
	bsr	bitsaufeinsciab

	move.l	(sp)+,d0
	tst.l	d0
	movem.l	(sp)+,d1-d3/a0-a2
	rts

lbc00040e:
	move.l	lbl000be8(pc),a0
	move.w	#$01a0,d0
	move.l	#$aaaaaaaa,d1
	cmp.l	(a0),d1
	beq.s	lbc000426

lbc000420:
	move.l	d1,(a0)+
	dbra	d0,lbc000420

lbc000426:
	rts

lbc000428:
	moveq	#$0a,d3
lbc00042a:
	move.w	lbw000bec(pc),d2
	bsr	lbc0009f0

	bne.s	lbc00044e

	bsr	lbc000630

	cmp.b	#$0b,d0
	bcs.s	lbc000456

	lea	lbw000bf0(pc),a0
	move.w	lbw000bde(pc),d1
	lsl.w	#$01,d1
	move.w	#$ffff,$00(a0,d1.w)
lbc00044e:
	dbra	d3,lbc00042a

	moveq	#-$01,d1
	rts

lbc000456:
	moveq	#$00,d1
	rts

lbc00045a:
	movem.l	d2-d4/a2/a3,-(sp)
	move.l	lbl000be4(pc),a3
	move.l	d0,d3
	move.l	d1,d4
lbc000466:
	moveq	#$00,d0
	move.w	d4,d0
	sub.b	d3,d0
	bpl.s	lbc000472

	add.b	#$0b,d0
lbc000472:
	mulu	#$0440,d0
	move.l	lbl000be8(pc),a4
	lea	$0684(a4),a4
	add.l	d0,a4
	move.l	a3,a0
	move.l	#$00000200,d0
	lea	$0040(a4),a1
	bsr	lbc0004c8

	lea	$0040(a4),a0
	move.w	#$0400,d1
	bsr	lbc000878

	lea	$0038(a4),a0
	bsr	lbc0008a2

	lea	$0200(a3),a3
	addq.l	#$01,d4
	subq.l	#$01,d2
	bne.s	lbc000466

	moveq	#$0a,d3
lbc0004b0:
	bsr	lbc000a38

	beq.s	lbc0004c0

	cmp.l	#$0000001c,d0
	dbeq	d3,lbc0004b0

lbc0004c0:
	tst.l	d0
	movem.l	(sp)+,d2-d4/a2/a3
	rts

lbc0004c8:
	movem.l	d0-d3/a0-a2,-(sp)
	lea	$00dff000,a2
	bsr	blimaskeundmodulu

	move.w	d0,d1
	lsl.w	#$02,d1
	or.w	#$0008,d1
	move.l	a0,$0050(a2)
	move.l	a0,$004c(a2)
	move.l	a1,$0054(a2)
	move.w	#$1db1,$0040(a2)
	clr.w	$0042(a2)
	move.w	d1,$0058(a2)
	bsr	bliwait

	move.l	a0,$0050(a2)
	move.l	a1,$004c(a2)
	move.l	a1,$0054(a2)
	move.w	#$2d8c,$0040(a2)
	move.w	d1,$0058(a2)
	bsr	bliwait

	move.l	a0,d2
	add.l	d0,d2
	subq.l	#$02,d2
	move.l	a1,d3
	add.l	d0,d3
	add.l	d0,d3
	subq.l	#$02,d3
	move.l	d2,$0050(a2)
	move.l	d2,$004c(a2)
	move.l	d3,$0054(a2)
	move.w	#$0db1,$0040(a2)
	move.w	#$1002,$0042(a2)
	move.w	d1,$0058(a2)
	bsr	bliwait

	move.l	a1,d3
	add.l	d0,d3
	move.l	a0,$0050(a2)
	move.l	d3,$004c(a2)
	move.l	d3,$0054(a2)
	move.w	#$1d8c,$0040(a2)
	clr.w	$0042(a2)
	move.w	d1,$0058(a2)
	bsr	bliwait

	move.l	d0,d1
	move.l	a1,a0
	bsr	lbc0007ae

	add.l	d1,a0
	bsr	lbc0007ae

	add.l	d1,a0
	bsr	lbc0007ae

	movem.l	(sp)+,d0-d3/a0-a2
	rts

lbc000580:
	movem.l	d2/d3/a2/a3,-(sp)
	move.l	lbl000be8(pc),a2
	lea	$0684(a2),a2
	move.l	lbl000be4(pc),a3
	move.l	d0,d3
	beq.s	lbc00059c

	sub.l	#$0000000b,d3
	neg.l	d3
lbc00059c:
	add.l	d1,d3
	divu	#$000b,d3
	swap	d3
	and.l	#$ffffffff,d3
lbc0005aa:
	move.l	d3,d0
	mulu	#$0440,d0
	lea	$40(a2,d0.w),a0
	move.l	a3,a1
	move.w	#$0200,d0
	bsr	lbc0005d6

	lea	$0200(a3),a3
	addq.b	#$01,d3
	cmp.b	#$0b,d3
	blt.s	lbc0005cc

	moveq	#$00,d3
lbc0005cc:
	subq.l	#$01,d2
	bne.s	lbc0005aa

	movem.l	(sp)+,d2/d3/a2/a3
	rts

lbc0005d6:
	movem.l	d0-d3/a0-a2,-(sp)
	move.l	a1,a2
	move.l	a0,a1
	add.l	#$00000200,a1
	move.w	#$001f,d2
	move.l	#$55555555,d3
lbc0005ee:
	move.l	(a0)+,d0
	move.l	(a1)+,d1
	and.l	d3,d0
	and.l	d3,d1
	lsl.l	#$01,d0
	or.l	d1,d0
	move.l	d0,(a2)+
	move.l	(a0)+,d0
	move.l	(a1)+,d1
	and.l	d3,d0
	and.l	d3,d1
	lsl.l	#$01,d0
	or.l	d1,d0
	move.l	d0,(a2)+
	move.l	(a0)+,d0
	move.l	(a1)+,d1
	and.l	d3,d0
	and.l	d3,d1
	lsl.l	#$01,d0
	or.l	d1,d0
	move.l	d0,(a2)+
	move.l	(a0)+,d0
	move.l	(a1)+,d1
	and.l	d3,d0
	and.l	d3,d1
	lsl.l	#$01,d0
	or.l	d1,d0
	move.l	d0,(a2)+
	dbra	d2,lbc0005ee

	movem.l	(sp)+,d0-d3/a0-a2
	rts

lbc000630:
	movem.l	d2-d6/a2,-(sp)
	move.l	lbl000be8(pc),a0
	lea	$0684(a0),a0
	move.l	a0,a2
	move.l	#$00002748,d0
	bsr	lbc0008ea

	cmp.l	#$ffffffff,a0
	beq	lbc000796

	move.l	a0,d5
	move.l	d0,d2
	addq.l	#$08,a0
	bsr	lbc0007cc

	bne	lbc000790

	moveq	#$00,d0
	move.b	d3,d0
	mulu	#$0440,d0
	move.l	d5,a0
	move.l	a2,a1
	move.l	d2,d1
	move.l	d0,d4
	bsr	lbc000980

	moveq	#$00,d2
	move.b	d3,d2
	sub.l	#$0000000b,d2
	neg.l	d2
	beq.s	lbc0006ac

	add.l	d4,d5
	move.l	#$0000067c,d0
	move.l	d5,a0
	addq.l	#$02,a0
	bsr	lbc0008ea

	cmp.l	#$ffffffff,a0
	beq	lbc00079a

	move.l	d0,d1
	move.l	a2,a1
	add.l	d4,a1
	move.l	d2,d0
	mulu	#$0440,d0
	bsr	lbc000980

lbc0006ac:
	move.l	a2,a0
	add.l	d4,a0
	bsr	lbc0007ae

	lea	$2ec0(a2),a0
	move.w	#$aaa8,d0
	btst	#$00,-$0001(a0)
	beq.s	lbc0006c8

	bclr	#$0f,d0
lbc0006c8:
	move.w	d0,(a0)
	move.w	#$aaaa,(a2)
	moveq	#$00,d4
	moveq	#$0b,d2
	move.w	d3,d5
	lsr.w	#$08,d5
lbc0006d6:
	cmp.l	#$2aaaaaaa,$00(a2,d4.w)
	beq.s	lbc0006ec

	cmp.l	#$aaaaaaaa,$00(a2,d4.w)
	bne	lbc00079e

lbc0006ec:
	cmp.l	#$44894489,$04(a2,d4.w)
	bne	lbc00079e

	lea	$08(a2,d4.w),a0
	moveq	#$28,d1
	bsr	lbc000878

	move.l	d0,d6
	lea	$30(a2,d4.w),a0
	bsr	lbc000862

	cmp.l	d6,d0
	bne	lbc0007a2

	lea	$08(a2,d4.w),a0
	bsr	lbc000862

	move.l	d0,d1
	rol.l	#$08,d1
	cmp.b	#$ff,d1
	bne	lbc0007a6

	rol.l	#$08,d1
	move.w	lbw000bec(pc),d0
	cmp.b	d0,d1
	bne.s	lbc0007a6

	rol.l	#$08,d1
	cmp.b	d5,d1
	bne.s	lbc0007a6

	rol.l	#$08,d1
	move.l	d1,d0
	move.b	d2,d0
	lea	$08(a2,d4.w),a0
	bsr	lbc0008a2

	lea	$08(a2,d4.w),a0
	moveq	#$28,d1
	bsr	lbc000878

	lea	$30(a2,d4.w),a0
	bsr	lbc0008a2

	lea	$40(a2,d4.w),a0
	move.w	#$0400,d1
	bsr	lbc000878

	move.l	d0,d6
	lea	$38(a2,d4.w),a0
	bsr	lbc000862

	cmp.l	d6,d0
	bne.s	lbc0007aa

	subq.l	#$01,d2
	addq.b	#$01,d5
	cmp.b	#$0b,d5
	blt.s	lbc00077c

	moveq	#$00,d5
lbc00077c:
	add.w	#$0440,d4
	cmp.w	#$2ec0,d4
	bne	lbc0006d6

	move.l	d3,d1
	lsr.l	#$08,d1
	moveq	#$00,d0
	move.b	d1,d0
lbc000790:
	movem.l	(sp)+,d2-d6/a2
	rts

lbc000796:
	moveq	#$15,d0
	bra.s	lbc000790

lbc00079a:
	moveq	#$1a,d0
	bra.s	lbc000790

lbc00079e:
	moveq	#$16,d0
	bra.s	lbc000790

lbc0007a2:
	moveq	#$18,d0
	bra.s	lbc000790

lbc0007a6:
	moveq	#$17,d0
	bra.s	lbc000790

lbc0007aa:
	moveq	#$19,d0
	bra.s	lbc000790

lbc0007ae:
	move.b	(a0),d0
	btst	#$00,-$0001(a0)
	bne.s	lbc0007c4

	btst	#$06,d0
	bne.s	lbc0007ca

	bset	#$07,d0
	bra.s	lbc0007c8

lbc0007c4:
	bclr	#$07,d0
lbc0007c8:
	move.b	d0,(a0)
lbc0007ca:
	rts

lbc0007cc:
	link	a4,#-$0010
	moveq	#$09,d4
	moveq	#$00,d6
	tst.l	d2
	bne.s	lbc0007fc

	move.l	(a0),-$0008(a4)
	move.l	$0004(a0),-$0004(a4)
	move.l	#$55555555,d1
lbc0007e8:
	move.l	(a0)+,d0
	and.l	d1,d0
	eor.l	d0,d6
	dbra	d4,lbc0007e8

	move.l	(a0)+,-$0010(a4)
	move.l	(a0),-$000c(a4)
	bra.s	lbc000830

lbc0007fc:
	bsr	lbc000892

	move.l	d0,-$0008(a4)
	bsr	lbc000892

	move.l	d0,-$0004(a4)
	move.l	d5,a0
	addq.l	#$08,a0
lbc000810:
	bsr	lbc000892

	and.l	#$55555555,d0
	eor.l	d0,d6
	dbra	d4,lbc000810

	bsr	lbc000892

	move.l	d0,-$0010(a4)
	bsr	lbc000892

	move.l	d0,-$000c(a4)
lbc000830:
	lea	-$0010(a4),a0
	bsr	lbc000862

	cmp.l	d0,d6
	bne.s	lbc00085e

	lea	-$0008(a4),a0
	bsr	lbc000862

	move.l	d0,d3
	rol.l	#$08,d0
	cmp.b	#$ff,d0
	bne.s	lbc00085e

	rol.l	#$08,d0
	move.w	lbw000bec(pc),d1
	cmp.b	d0,d1
	bne.s	lbc00085e

	moveq	#$00,d0
lbc00085a:
	unlk	a4
	rts

lbc00085e:
	moveq	#$1b,d0
	bra.s	lbc00085a

lbc000862:
	move.l	(a0)+,d0
	move.l	(a0)+,d1
	and.l	#$55555555,d0
	and.l	#$55555555,d1
	lsl.l	#$01,d0
	or.l	d1,d0
	rts

lbc000878:
	move.l	d2,-(sp)
	lsr.w	#$02,d1
	subq.w	#$01,d1
	moveq	#$00,d0
lbc000880:
	move.l	(a0)+,d2
	eor.l	d2,d0
	dbra	d1,lbc000880

	and.l	#$55555555,d0
	move.l	(sp)+,d2
	rts

lbc000892:
	move.l	(a0)+,d0
	move.w	(a0),d1
	moveq	#$10,d3
	sub.l	d2,d3
	lsl.l	d3,d0
	lsr.w	d2,d1
	or.w	d1,d0
	rts

lbc0008a2:
	movem.l	d2/d3,-(sp)
	move.l	d0,d3
	lsr.l	#$01,d0
	bsr	lbc0008be

	move.l	d3,d0
	bsr	lbc0008be

	bsr	lbc0007ae

	movem.l	(sp)+,d2/d3
	rts

lbc0008be:
	and.l	#$55555555,d0
	move.l	d0,d2
	eor.l	#$55555555,d2
	move.l	d2,d1
	lsl.l	#$01,d2
	lsr.l	#$01,d1
	bset	#$1f,d1
	and.l	d2,d1
	or.l	d1,d0
	btst	#$00,-$0001(a0)
	beq.s	lbc0008e6

	bclr	#$1f,d0
lbc0008e6:
	move.l	d0,(a0)+
	rts

lbc0008ea:
	movem.l	d2-d4/a2,-(sp)
	move.w	#$aaaa,d3
	move.w	#$5555,d4
	move.l	a0,a2
	add.l	d0,a2
lbc0008fa:
	move.w	(a0)+,d2
	cmp.w	d3,d2
	beq.s	lbc00090a

	cmp.w	d4,d2
	beq.s	lbc000912

	cmp.l	a0,a2
	bhi.s	lbc0008fa

	bra.s	lbc000938

lbc00090a:
	moveq	#$0e,d0
	lea	syncszwei(pc),a1
	bra.s	lbc000918

lbc000912:
	moveq	#$0f,d0
	lea	syncseins(pc),a1
lbc000918:
	cmp.l	a0,a2
	bls.s	lbc000938

	move.w	(a0)+,d1
	cmp.w	d2,d1
	beq.s	lbc000918

	subq.l	#$02,a0
	move.l	(a0),d1
lbc000926:
	cmp.l	(a1)+,d1
	beq.s	lbc000930

	subq.l	#$02,d0
	bge.s	lbc000926

	bra.s	lbc0008fa

lbc000930:
	subq.l	#$04,a0
lbc000932:
	movem.l	(sp)+,d2-d4/a2
	rts

lbc000938:
	moveq	#-$01,d0
	move.l	d0,a0
	bra.s	lbc000932

	rts

syncseins:
	dc.l	$2244a244,$48912891,$52244a24,$54891289,$552244a2
	dc.l	$55489128,$5552244a,$55548912
syncszwei:
	dc.l	$91225122,$a4489448,$a9122512,$aa448944,$aa912251
	dc.l	$aaa44894,$aaa91225,$44894489

lbc000980:
	tst.l	d1
	beq.s	lbc000992

	subq.l	#$02,a1
	addq.l	#$02,d0
	move.w	(a1),-(sp)
	bsr	lbc000992

	move.w	(sp)+,(a1)
	rts

lbc000992:
	move.l	a2,-(sp)
	lea	$00dff000,a2
	bsr	blimaskeundmodulu

	move.l	a0,$004c(a2)
	move.l	a1,$0054(a2)
	move.w	#$05cc,$0040(a2)
	ror.w	#$04,d1
	move.w	d1,$0042(a2)
	add.w	#$003f,d0
	and.w	#$ffc0,d0
	or.w	#$0020,d0
	move.w	d0,$0058(a2)
	bsr	bliwait

	move.l	(sp)+,a2
	rts

bliwait:
	btst	#$06,$0002(a2)
	bne.s	bliwait

	rts

blimaskeundmodulu:
	move.l	#$ffffffff,$0044(a2)
	move.w	#$5555,$0070(a2)
	clr.w	$0064(a2)
	clr.w	$0062(a2)
	clr.w	$0066(a2)
	rts

lbc0009f0:
	bsr	lbc000ae8

	bne.s	lbc000a36

	lea	$00dff000,a0
	move.w	#$4000,$0024(a0)
	move.l	lbl000be8(pc),a1
	lea	$0684(a1),a1
	move.l	a1,$0020(a0)
	move.w	#$7600,$009e(a0)
	move.w	#$8100,$009e(a0)
	move.w	#$8010,$0096(a0)
	move.w	#$0002,$009c(a0)
	move.w	#$9c00,$0024(a0)
	move.w	#$9c00,$0024(a0)
	bsr	lbc000a86

lbc000a36:
	rts

lbc000a38:
	bsr	lbc000b98

	moveq	#$1c,d0
	btst	#$03,$00bfe001
	beq.s	lbc000a82

	lea	$00dff000,a0
	move.w	#$4000,$0024(a0)
	move.l	lbl000be8(pc),$0020(a0)
	move.w	#$6600,$009e(a0)
	move.w	#$8100,$009e(a0)
	move.w	#$8010,$0096(a0)
	move.w	#$0002,$009c(a0)
	move.w	#$daa8,$0024(a0)
	move.w	#$daa8,$0024(a0)
	bsr	lbc000a86

lbc000a82:
	tst.l	d0
	rts

lbc000a86:
	move.l	#$0061a800,d0
lbc000a8c:
	move.w	$001e(a0),d1
	btst	#$01,d1
	bne.s	lbc000aa4

	subq.l	#$01,d0
	bne.s	lbc000a8c

	move.w	#$4000,$0024(a0)
	moveq	#-$01,d0
	rts

lbc000aa4:
	move.w	#$0002,$009c(a0)
	move.w	#$4000,$0024(a0)
	moveq	#$00,d0
	rts

;---------------die bits im cia-b alle setzen lassen
bitsaufeinsciab:
	moveq	#-$01,d1		;$ffffffff nach d1

;---------------selektierte bits ins cia-b schreiben!
writeselectedtociab:
	move.b	d1,$00bfd100		;selektierte bits in cia-b schreiben
	move.w	lbw000bde(pc),d0	;die werte aus der adresse lesen
	addq.l	#$03,d0			;add 3 d0
	bclr	d0,d1			;das erhaltene bit loeschen!
	move.b	d1,$00bfd100		;und ins cia-b schreiben
	rts				;rts

;---------------motor ausschalten
motorausciab:
	moveq	#-$01,d1		;$ffffffff nach d1
	move.b	d1,$00bfd100		;alles im cia-b selektieren
	bclr	#$07,d1			;motor => 0 aus! bit 7 geloescht
	bsr.s	writeselectedtociab		;die selekt bit routine anspringen

	move.l	#$00005000,d0		;setze $5000 als waitschleife
	bsr	lbc000ba8		;springe zur waitabfrage

	moveq	#$00,d0			;setze d0 auf 0
	rts				;zurueck zum hauptprogramm

lbc000ae8:
	movem.l	d2/d3,-(sp)
	move.l	d2,d3
	bsr	lbc000b98

	moveq	#$00,d0
	move.w	lbw000bde(pc),d0
	lsl.w	#$01,d0
	lea	lbw000bf0(pc),a0
	move.w	$00(a0,d0.w),d0
	tst.w	d0
	bpl.s	lbc000b0c

	bsr	lbc000b3e

	bne.s	lbc000b38

lbc000b0c:
	lsr.l	#$01,d0
	lsr.l	#$01,d2
	moveq	#$01,d1
	sub.l	d0,d2
	beq.s	lbc000b24

	bpl.s	lbc000b1c

	moveq	#-$01,d1
	neg.l	d2
lbc000b1c:
	bsr	lbc000b6e

	subq.l	#$01,d2
	bne.s	lbc000b1c

lbc000b24:
	move.w	lbw000bde(pc),d0
	lsl.w	#$01,d0
	lea	lbw000bf0(pc),a0
	move.w	d3,$00(a0,d0.w)
	bsr	lbc000b98

	moveq	#$00,d0
lbc000b38:
	movem.l	(sp)+,d2/d3
	rts

lbc000b3e:
	move.l	d2,-(sp)
	moveq	#$55,d2
lbc000b42:
	btst	#$04,$00bfe001
	beq.s	lbc000b5a

	moveq	#-$01,d1
	bsr	lbc000b6e

	dbra	d2,lbc000b42

	moveq	#$1e,d0
	bra.s	lbc000b6a

lbc000b5a:
	move.w	lbw000bde(pc),d0
	lsl.w	#$01,d0
	lea	lbw000bf0(pc),a0
	clr.w	$00(a0,d0.w)
	moveq	#$00,d0
lbc000b6a:
	move.l	(sp)+,d2
	rts

lbc000b6e:
	bsr	lbc000bae

	tst.b	d1
	bmi.s	lbc000b7a

	bclr	#$01,d0
lbc000b7a:
	bclr	#$00,d0
	move.b	d0,$00bfd100
	bset	#$00,d0
	move.b	d0,$00bfd100
	move.l	#$00000f00,d0
	bsr.s	lbc000ba8

	rts

lbc000b98:
	bsr	lbc000bae

	move.b	d0,$00bfd100
	move.l	#$00003a98,d0

;---------------decrementiere
lbc000ba8:
	subq.l	#$01,d0			;subtrahiere den wert in d0 um 1
	bne.s	lbc000ba8		;frage ob null schon erreicht

	rts				;zurueck zur hauptroutine

lbc000bae:
	movem.w	d1/d2,-(sp)
	move.w	lbw000bde(pc),d0
	move.b	$00bfd100,d2
	or.b	#$7f,d2
	addq.b	#$03,d0
	bclr	d0,d2
	subq.b	#$03,d0
	lsl.w	#$01,d0
	move.w	lbw000bf0(pc,d0.w),d1
	btst	#$00,d1
	beq.s	lbc000bd6

	bclr	#$02,d2
lbc000bd6:
	move.b	d2,d0
	movem.w	(sp)+,d1/d2
	rts

lbw000bde:
	dc.w	$0000
lbw000be0:
	dc.w	$0000
lbw000be2:
	dc.w	$0000
lbl000be4:
	dc.l	$00000000
lbl000be8:
	dc.l	$00000000
lbw000bec:
	dc.w	$0000
lbw000bee:
	dc.w	$0000
lbw000bf0:
	dc.w	$ffff,$ffff,$ffff,$ffff

lbc000bf8:
	movem.l	d1-d7/a0-a6,-(sp)
	move.l	achtundsiebzigtausend(pc),a0
	move.w	#$0018,d0
lbc000c04:
	move.w	#$ffff,(a0)+
	dbra	d0,lbc000c04

;------------- erste routine
	move.l	siebzigtausend(pc),a0
	move.l	a0,a5
	move.l	#$005fe000,a1		;trick 17
	bsr	lbc000c32		;das ist oder wird $bfc000

	move.l	siebzigtausend(pc),a0
	move.l	a0,a5
	move.l	#$005fe000,a1
	bsr	lbc000c32

	movem.l	(sp)+,d1-d7/a0-a6
	rts

lbc000c32:
	add.l	a1,a1			;hier steht dann $bfc000 drinnen
	move.l	a0,$0012a22a		;die adresse hier rein 
	bsr.s	lbc000c52		;die dma usw beschreiben

	bsr.s	lbc000cb2		;laufwerk anschmeissen, speedtest usw.

	bsr	lbc000cde		;steppen und wait mit delay

	bsr	lbc000d4c	;hier stehen alle noetigen adressen

	bsr	lbc000db0	;laufwerke aus und irqs und dmas reseten ????

	bsr	lbc000df4	;hier wird prg decoded ???

	move.w	d6,d0
	rts

lbc000c52:
	move.l	#$006ff800,a6		;trick 17
	add.l	a6,a6			;das ist $dff000
	move.w	$001c(a6),$0012a22e
	move.w	$001e(a6),$0012a230
	move.w	$0002(a6),$0012a232
	move.w	$0010(a6),$0012a234
	move.w	#$0010,$0096(a6)
	move.w	#$4000,$009a(a6)
	move.w	#$0002,$009c(a6)
	move.w	#$7fff,$009e(a6)
	move.w	#$8100,$009e(a6)
	move.b	#$ff,$1100(a1)
	move.b	#$87,$1100(a1)
	move.b	#$ff,$1100(a1)
	or.b	#$78,$1100(a1)
	rts

lbc000cb2:
	bclr	#$07,$1100(a1)
	moveq	#$64,d0
lbc000cba:
	bclr	#$03,$1100(a1)
	dbra	d0,lbc000cba

	bsr.s	lbc000cca

	bsr.s	lbc000cd4

	rts

lbc000cca:
	move.w	#$0bb8,d6
lbc000cce:
	dbra	d6,lbc000cce

	rts

lbc000cd4:
	btst	#$05,$2001(a1)
	bne.s	lbc000cd4

	rts

lbc000cde:
	btst	#$04,$2001(a1)
	beq	lbc000d06

	bset	#$01,$1100(a1)
	bclr	#$00,$1100(a1)
	nop
	nop
	nop
	nop
	bset	#$00,$1100(a1)
	bsr.s	lbc000cca

	bra.s	lbc000cde

lbc000d06:
	rts

lbc000d08:
	btst	#$04,$2001(a1)
	beq	lbc000d16

	bsr.s	lbc000cde

	bra.s	lbc000d08

lbc000d16:
	move.w	#$004f,d2
lbc000d1a:
	cmp.w	#$0000,d2
	beq	lbc000d42

	bclr	#$01,$1100(a1)
	bclr	#$00,$1100(a1)
	nop
	nop
	nop
	nop
	bset	#$00,$1100(a1)
	bsr.s	lbc000cca

	subq.w	#$01,d2
	bra.s	lbc000d1a

lbc000d42:
	move.w	#$3a98,d0
lbc000d46:
	dbra	d0,lbc000d46

	rts

lbc000d4c:
	bsr.s	lbc000d08

lbc000d4e:
	bclr	#$02,$1100(a1)
	move.w	#$8210,$0096(a6)
	move.l	adressofprg(pc),$0020(a6)
	clr.w	$0024(a6)
	bsr.s	lbc000da0

	move.w	#$4000,$0024(a6)
	move.w	#$9a80,$0024(a6)
	move.w	#$9a80,$0024(a6)
	move.l	#$00030d40,d1
lbc000d7e:
	move.w	$001e(a6),d0
	subq.l	#$01,d1
	beq.s	lbc000d4e

	btst	#$01,d0
	beq.s	lbc000d7e

	move.w	#$0002,$009c(a6)
	rts

	clr.w	$0024(a6)
	move.w	#$0010,$0096(a6)
	rts

lbc000da0:
	move.b	$1d00(a1),d6
lbc000da4:
	move.b	$1d00(a1),d6
	btst	#$04,d6
	beq.s	lbc000da4

	rts

lbc000db0:
	bset	#$07,$1100(a1)
	bset	#$03,$1100(a1)
	bclr	#$03,$1100(a1)
	move.w	lbw000e80(pc),d0
	bset	#$0f,d0
	move.w	d0,$009a(a6)
	move.w	lbw000e82(pc),d0
	bset	#$0f,d0
	move.w	d0,$009c(a6)
	move.w	lbw000e84(pc),d0
	bset	#$0f,d0
	move.w	d0,$0096(a6)
	move.w	lbw000e86(pc),d0
	bset	#$0f,d0
	move.w	d0,$009e(a6)
	rts

lbc000df4:
	move.l	adressofprg(pc),a0
	move.l	#$00009a80,d3
	and.l	#$00007fff,d3
lbc000e04:
	move.l	(a0),d0
	addq.l	#$02,a0
	moveq	#$0f,d2
lbc000e0a:
	move.l	d0,d1
	swap	d1
	cmp.w	#$4489,d1
	beq	lbc000e2a

	lsl.l	#$01,d0
	dbra	d2,lbc000e0a

	dbra	d3,lbc000e04

	move.b	#$01,$0012a236
	rts

lbc000e2a:
	moveq	#$00,d6
	move.l	achtundsiebzigtausend(pc),a4
lbc000e30:
	bsr.s	lbc000e42

	addq.w	#$02,a0
	add.w	d5,d6
	tst.b	$0012a236
	bne.s	lbc000e30

	sub.w	d5,d6
	rts

lbc000e42:
	moveq	#$00,d5
lbc000e44:
	move.l	(a0),d0
	addq.l	#$02,a0
	moveq	#$0f,d2
lbc000e4a:
	move.l	d0,d1
	swap	d1
	cmp.w	#$4489,d1
	beq	lbc000e6a

	lsl.l	#$01,d0
	dbra	d2,lbc000e4a

	addq.l	#$01,d5
	dbra	d3,lbc000e44

lbc000e62:
	clr.b	$0012a236
	rts

lbc000e6a:
	cmp.l	$0032(a5),a4
	beq.s	lbc000e62

	move.w	d5,(a4)+
	move.b	#$01,$0012a236
	rts

adressofprg:
	dc.l	$00000000
lbw000e80:
	dc.w	$0000
lbw000e82:
	dc.w	$0000
lbw000e84:
	dc.w	$0000
lbw000e86:
	dc.w	$0000,$0000
siebzigtausend:
	dc.l	$00070000
achtundsiebzigtausend:
	dc.l	$00078000
launcherham:
	dc.b	'LAUNCHER.HA',0,0
	dc.b	$00,$51,$c8,$ff,$fa,$4c,$df,$03,$01,$08,$38,$00
	dc.b	$07,$6e,$64,$66,$08,$08,$38,$00,$07,$6e,$65,$67
	dc.b	$f0,$48,$e7,$80,$80,$41,$f9,$00,$00,$17,$9c,$30
	dc.b	$3c,$00,$0f,$42,$58,$54,$88,$51,$c8,$ff,$fa,$4c
	dc.b	$df,$01,$01,$4e,$75,$00,$00,$62,$62,$00,$00,$62
	dc.b	$6c,$00,$00,$62,$76,$00,$00,$62,$80,$20,$78,$6c
	dc.b	$c0,$22,$78,$6c,$c4,$30,$3c,$1f,$3f,$42,$98,$42
	dc.b	$99,$51,$c8,$ff,$fa,$48,$e7,$80,$80,$41,$f9,$00
	dc.b	$00,$17,$9c,$30,$3c,$00,$0f,$42,$58,$54,$88,$51
	dc.b	$c8,$ff,$fa,$4c,$df,$01,$01,$20,$38,$6c,$c0,$b0
	dc.b	$b8,$6c,$c4,$6d,$52,$20,$38,$6c,$c0,$21,$f8,$6c
	dc.b	$c4,$6c,$c0,$21,$c0,$6c,$c4,$20,$78,$6e,$5e,$48
	dc.b	$40,$30,$80,$48,$40,$31,$40,$00,$04,$06,$80,$00
	dc.b	$00,$1f,$40,$48,$40,$31,$40,$00,$08,$48,$40,$31
	dc.b	$40,$00,$0c,$06,$80,$00,$00,$1f,$40,$48,$40,$31
	dc.b	$40,$00,$10,$48,$40,$31,$40,$00,$14,$06,$80,$00
	dc.b	$00,$1f,$40,$48,$40,$31,$40,$00,$18,$48,$40,$31
	dc.b	$40,$00,$1c,$3f,$38,$6e,$70,$42,$78,$6e,$70,$4e
	dc.b	$b9,$00,$01,$62,$d0,$31,$df,$6e,$70,$41,$f9,$00
	dc.b	$07,$44,$80,$47,$f8,$6a,$48,$4e,$b9,$00,$01,$62
	dc.b	$86,$41,$f9,$00,$01,$64,$ac,$22,$78,$6c,$c4,$33
	dc.b	$fc,$09,$f0,$00,$df,$f0,$40,$42,$79,$00,$df,$f0
	dc.b	$42,$23,$fc,$ff,$ff,$ff,$ff,$00,$df,$f0,$44,$42
	dc.b	$79,$00,$df,$f0,$64,$42,$79,$00,$df,$f0,$66,$23
	dc.b	$c8,$00,$df,$f0,$50,$23,$c9,$00,$df,$f0,$54,$33
	dc.b	$fc,$c8,$14,$00,$df,$f0,$58,$2a,$78,$6f,$28,$4a
	dc.b	$38,$6e,$bd,$66,$04,$2a,$78,$6f,$a6,$20,$3c,$00
	dc.b	$00,$00,$90,$72,$29,$4e,$b9,$00,$01,$21,$da,$20
	dc.b	$3c,$00,$00,$00,$90,$72,$52,$4e,$b9,$00,$01,$22
	dc.b	$10,$20,$3c,$00,$00
