*********************************************
*  Filename useitem.x
*  Time Stamp Date 89-04-11
*             Time  7:21:44
*
*  Base address 000000
*  Exec address 000000
*  Text size    002b06 bytes
*  Data size    000000 byte(s)
*  Bss  size    000000 byte(s)
*  432 Labels
*  Code Generate date Wed Mar 17 20:12:36 1993
*  Command Line E:\bin\DIS.x -w16 -W -A -F -B -C -M -N -Z1 useitem.x useitem.s -h -i -j -f -u -D -g 
*          DIS.X version 2.01β
*********************************************
	.include	doscall.mac
	.include	iocscall.mac
	.include	fefunc.h
	include	naw.mac
	.text

L0000
	bra	L0950

L0004
	.dc.b	$00,$00
L0006
	.dc.w	0
L0008
	.dc.w	0
L000a
	.dc.b	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
L0016
	.dc.b	$00,$00,$00,$00,$00,$00,$00,$00
L001e
	.dc.l	0
L0022
	.dc.b	$00,$00,$00,$00,$00,$00,$00,$00
L002a
	.dc.w	0
L002c
	.dc.w	0
L002e
	.dc.w	0
L0030
	.dc.b	$00
L0031
	.dc.b	$00
L0032
	.dc.w	0
L0034
	.dc.w	0
L0036
	.dc.w	0
L0038
	.dc.w	0
L003a
	.dc.b	'素粒子砲',$00,$00,$00,$00,$00
L0047
	.dc.b	$01,$01,$20,$97,$ca,$8e,$71,$83,$8c,$81,$5b,$83,$55,$81,$5b,$00
	.dc.b	$01,$01,$21,$8f,$64,$97,$cd,$94,$67,$96,$43,$23,$31,$00,$00,$00
	.dc.b	$01,$01,$22,$8f,$64,$97,$cd,$94,$67,$96,$43,$23,$32,$00,$00,$00
	.dc.b	$01,$01,$23,$8f,$64,$97,$cd,$94,$67,$96,$43,$23,$33,$00,$00,$00
	.dc.b	$01,$01,$24,$94,$4d,$8a,$6a,$94,$bd,$89,$9e,$92,$65,$31,$00,$00
	.dc.b	$50,$01,$25,$94,$4d,$8a,$6a,$94,$bd,$89,$9e,$92,$65,$32,$00,$00
	.dc.b	$50,$01,$26,$94,$4d,$8a,$6a,$94,$bd,$89,$9e,$92,$65,$33,$00,$00
	.dc.b	$50,$01,$27,$8e,$a9,$93,$ae,$92,$c7,$94,$f6,$92,$65,$31,$00,$00
	.dc.b	$50,$01,$28,$8e,$a9,$93,$ae,$92,$c7,$94,$f6,$92,$65,$32,$00,$00
	.dc.b	$50,$01,$29,$8e,$a9,$93,$ae,$92,$c7,$94,$f6,$92,$65,$33,$00,$00
	.dc.b	$50,$01,$2a,$83,$75,$81,$5b,$83,$58,$83,$5e,$81,$5b,$31,$00,$00
	.dc.b	$01,$01,$37,$83,$75,$81,$5b,$83,$58,$83,$5e,$81,$5b,$32,$00,$00
	.dc.b	$01,$01,$38,$83,$75,$81,$5b,$83,$58,$83,$5e,$81,$5b,$33,$00,$00
	.dc.b	$01,$01,$39,$83,$8c,$81,$5b,$83,$5f,$81,$5b,$23,$31,$00,$00,$00
	.dc.b	$01,$01,$30,$83,$8c,$81,$5b,$83,$5f,$81,$5b,$23,$32,$00,$00,$00
	.dc.b	$01,$01,$30,$83,$8c,$81,$5b,$83,$5f,$81,$5b,$23,$33,$00,$00,$00
	.dc.b	$01,$01,$30,$92,$50,$8b,$c9,$8e,$71,$8b,$ec,$93,$ae,$8c,$5e,$00
	.dc.b	$01,$01,$31,$97,$ca,$8e,$71,$83,$89,$83,$80,$8b,$ec,$93,$ae,$00
	.dc.b	$01,$01,$31,$8c,$f5,$8e,$71,$8b,$ec,$93,$ae,$8c,$5e,$00,$00,$00
	.dc.b	$01,$01,$31,$8f,$64,$97,$cd,$8b,$ec,$93,$ae,$8c,$5e,$00,$00,$00
	.dc.b	$01,$01,$31,$8e,$9e,$8b,$f3,$96,$41,$8b,$ec,$93,$ae,$8c,$5e,$00
	.dc.b	$01,$01,$31,$93,$64,$8e,$a5,$83,$56,$81,$5b,$83,$8b,$83,$68,$00
	.dc.b	$01,$01,$34,$8a,$6a,$97,$cd,$83,$56,$81,$5b,$83,$8b,$83,$68,$00
	.dc.b	$01,$01,$35,$8f,$64,$97,$cd,$83,$56,$81,$5b,$83,$8b,$83,$68,$00
	.dc.b	$01,$01,$36,$83,$52,$83,$93,$83,$73,$83,$85,$81,$5b,$83,$5e,$00
	.dc.b	$01,$01,$32,$83,$41,$83,$69,$83,$89,$83,$43,$83,$55,$31,$00,$00
	.dc.b	$01,$01,$33,$83,$41,$83,$69,$83,$89,$83,$43,$83,$55,$32,$00,$00
	.dc.b	$01,$01,$33,$83,$41,$83,$69,$83,$89,$83,$43,$83,$55,$33,$00,$00
	.dc.b	$01,$01,$33,$8d,$7a,$90,$ce,$89,$c1,$8d,$48,$8b,$40,$31,$00,$00
	.dc.b	$01,$01,$3a,$8d,$7a,$90,$ce,$89,$c1,$8d,$48,$8b,$40,$32,$00,$00
	.dc.b	$01,$01,$3a,$8d,$7a,$90,$ce,$89,$c1,$8d,$48,$8b,$40,$33,$00,$00
	.dc.b	$01,$01,$3a,$8f,$ee,$95,$f1,$83,$4a,$81,$5b,$83,$68,$31,$00,$00
	.dc.b	$10,$01,$04,$8f,$ee,$95,$f1,$83,$4a,$81,$5b,$83,$68,$32,$00,$00
	.dc.b	$10,$01,$05,$8f,$ee,$95,$f1,$83,$4a,$81,$5b,$83,$68,$33,$00,$00
	.dc.b	$10,$01,$06,$90,$6c,$95,$a8,$83,$74,$83,$40,$83,$43,$83,$8b,$00
	.dc.b	$01,$01,$07,$88,$d9,$90,$af,$95,$b6,$96,$be,$c9,$94,$e8,$00,$00
	.dc.b	$01,$01,$08,$93,$a7,$89,$df,$95,$c7,$83,$5a,$83,$93,$83,$54,$00
	.dc.b	$01,$01,$09,$93,$6e,$8d,$71,$8b,$96,$89,$c2,$8f,$d8,$00,$00,$00
	.dc.b	$01,$01,$0a,$8c,$c3,$91,$e3,$95,$ba,$8a,$ed,$00,$00,$00,$00,$00
	.dc.b	$01,$01,$14
L02ba
	.dc.b	'修理ユニット',$00
L02c7
	.dc.b	$28,$01,$15,$b6,$b8,$97,$90,$92,$65,$00,$00,$00,$00,$00,$00,$00
	.dc.b	$14,$01,$16
L02da
	.dc.b	'重水素鉱石',$00,$00,$00
L02e7
	.dc.b	$63,$01,$17
L02ea
	.dc.b	'金属鉱石',$00,$00,$00,$00,$00
L02f7
	.dc.b	$63,$01,$18,$8f,$64,$8c,$b3,$91,$66,$8d,$7a,$90,$ce,$00,$00,$00
	.dc.b	$63,$01,$19,$83,$52,$83,$93,$83,$65,$83,$69,$00,$00,$00,$00,$00
	.dc.b	$0a,$01,$1a,$83,$5e,$83,$93,$83,$4e,$00,$00,$00,$00,$00,$00,$00
	.dc.b	$05,$01,$ff
L032a
	.dc.b	$00,$0a,$03,$f2,$04,$9e,$05,$44,$06,$06,$00,$2a,$00,$61,$00,$97
	.dc.b	$00,$cb,$00,$ff,$01,$3f,$01,$78,$01,$9a,$01,$b3,$01,$ce,$01,$fe
	.dc.b	$02,$29,$02,$50,$02,$81,$02,$ab,$02,$de,$03,$03,$03,$31,$03,$5a
	.dc.b	$03,$84,$03,$b4,$ba,$c9,$8a,$ee,$92,$6e,$93,$e0,$ca,$a4,$94,$f1
	.dc.b	$8f,$ed,$c6,$8a,$eb,$8c,$af,$82,$c5,$bd,$a1,$0d,$88,$ea,$8d,$8f
	.dc.b	$d3,$91,$81,$b8,$a4,$ba,$ba,$a6,$97,$a3,$92,$45,$bd,$d9,$ba,$c4
	.dc.b	$a6,$97,$76,$8b,$81,$bc,$cf,$bd,$a1,$0d,$00,$8c,$bb,$8d,$dd,$c9
	.dc.b	$91,$95,$94,$f5,$82,$c5,$ca,$a4,$90,$ed,$97,$cd,$82,$aa,$92,$e1
	.dc.b	$bd,$82,$ac,$cf,$bd,$a1,$0d,$91,$95,$94,$f5,$c9,$8b,$ad,$89,$bb
	.dc.b	$82,$aa,$95,$4b,$97,$76,$b6,$c4,$8e,$76,$dc,$da,$cf,$bd,$a1,$0d
	.dc.b	$00,$8d,$a1,$8c,$e3,$2c,$ba,$c9,$8e,$64,$8e,$96,$a6,$91,$b1,$b9
	.dc.b	$c3,$d5,$b8,$c9,$82,$c5,$b1,$da,$82,$ce,$2c,$1e,$83,$4d,$83,$75
	.dc.b	$bd,$dd,$1e,$8e,$81,$a6,$8b,$7e,$8f,$6f,$bd,$d9,$82,$d7,$b7,$82
	.dc.b	$c5,$bd,$a1,$0d,$00,$91,$95,$94,$f5,$8b,$ad,$89,$bb,$c9,$94,$ef
	.dc.b	$97,$70,$82,$aa,$95,$4b,$97,$76,$82,$c5,$bd,$a1,$0d,$90,$cf,$8b
	.dc.b	$c9,$93,$49,$c6,$8e,$64,$8e,$96,$a6,$b3,$b9,$d9,$d6,$b3,$c6,$bc
	.dc.b	$c3,$b8,$82,$be,$bb,$b2,$a1,$0d,$00,$91,$bd,$8a,$7a,$c9,$95,$f1
	.dc.b	$8f,$56,$82,$aa,$8a,$fa,$91,$d2,$82,$c5,$b7,$d9,$a4,$91,$e5,$b7
	.dc.b	$c5,$8e,$64,$8e,$96,$a6,$bc,$cf,$bc,$ae,$b3,$a1,$0d,$8c,$f8,$97
	.dc.b	$a6,$d6,$b8,$8e,$fb,$93,$fc,$a6,$b1,$82,$b0,$d9,$ba,$c4,$82,$aa
	.dc.b	$8f,$6f,$97,$88,$cf,$bd,$a1,$0d,$00,$1e,$bf,$d9,$1e,$90,$af,$8c
	.dc.b	$6e,$c9,$93,$47,$c9,$8e,$e5,$97,$cd,$a6,$8b,$ec,$92,$80,$bc,$cf
	.dc.b	$bc,$c0,$c9,$82,$c5,$a4,$0d,$1e,$d8,$83,$57,$d9,$b9,$dd,$c4,$1e
	.dc.b	$90,$af,$8c,$6e,$cd,$8c,$fc,$b6,$b3,$82,$d7,$b7,$82,$c5,$bd,$a1
	.dc.b	$0d,$00,$91,$81,$b8,$1e,$c3,$db,$d8,$bd,$c4,$1e,$a6,$88,$ea,$91
	.dc.b	$7c,$bc,$c5,$b2,$c4,$91,$e5,$95,$cf,$c5,$8e,$96,$c6,$c5,$d8,$cf
	.dc.b	$bd,$a1,$0d,$00,$91,$95,$94,$f5,$8b,$ad,$89,$bb,$c9,$88,$d7,$c9
	.dc.b	$89,$fc,$91,$a2,$a6,$bc,$cf,$bc,$ae,$b3,$a1,$0d,$00,$56,$4f,$49
	.dc.b	$44,$c6,$8a,$d6,$bd,$d9,$8f,$ee,$95,$f1,$82,$aa,$95,$73,$91,$ab
	.dc.b	$bc,$c3,$b2,$cf,$bd,$a1,$0d,$00,$96,$82,$94,$92,$98,$54,$a6,$91
	.dc.b	$7c,$93,$a2,$bd,$d9,$ba,$c4,$82,$c5,$a4,$89,$bd,$d7,$b6,$c9,$8f
	.dc.b	$ee,$95,$f1,$a6,$93,$be,$d7,$da,$d9,$89,$c2,$94,$5c,$90,$ab,$82
	.dc.b	$aa,$b1,$d8,$cf,$bd,$a1,$0d,$00,$1e,$98,$66,$90,$af,$d2,$c0,$d9
	.dc.b	$83,$66,$ad,$b0,$dd,$1e,$82,$c5,$c9,$90,$6c,$8e,$bf,$8a,$4a,$95
	.dc.b	$fa,$82,$aa,$8d,$c5,$97,$44,$90,$e6,$89,$db,$91,$e8,$82,$c5,$bd
	.dc.b	$a1,$0d,$00,$96,$82,$94,$92,$98,$54,$b5,$d6,$82,$d1,$56,$4f,$49
	.dc.b	$44,$c6,$8a,$d6,$bd,$d9,$8f,$ee,$95,$f1,$c9,$8e,$fb,$8f,$57,$a6
	.dc.b	$97,$76,$8b,$81,$bc,$cf,$bd,$a1,$0d,$00,$88,$e2,$90,$d5,$c4,$56
	.dc.b	$4f,$49,$44,$c9,$8a,$d6,$8c,$57,$82,$aa,$95,$73,$96,$be,$97,$c4
	.dc.b	$82,$c5,$bd,$a1,$0d,$96,$da,$93,$49,$93,$99,$82,$aa,$90,$84,$8e
	.dc.b	$40,$8f,$6f,$97,$88,$cf,$be,$dd,$a1,$0d,$00,$1e,$cc,$a7,$b2,$d9
	.dc.b	$1e,$c9,$93,$e0,$97,$65,$82,$aa,$56,$4f,$49,$44,$c6,$8a,$d6,$bd
	.dc.b	$d9,$d3,$c9,$82,$c5,$b1,$d9,$8a,$6d,$97,$a6,$82,$aa,$91,$e5,$82
	.dc.b	$c5,$bd,$a1,$0d,$00,$a2,$1e,$83,$66,$a8,$b0,$83,$57,$b0,$1e,$a3
	.dc.b	$a6,$92,$c7,$8b,$81,$bd,$d9,$ba,$c4,$82,$c5,$89,$bd,$d7,$b6,$c9
	.dc.b	$8e,$e8,$8a,$7c,$b6,$d8,$82,$aa,$c2,$b6,$d2,$d9,$d3,$c9,$c4,$8e
	.dc.b	$76,$dc,$da,$cf,$bd,$a1,$0d,$00,$93,$47,$c9,$92,$a7,$94,$ad,$c6
	.dc.b	$8f,$e6,$82,$b6,$c3,$8f,$ee,$95,$f1,$a6,$8e,$fb,$8f,$57,$bd,$d9
	.dc.b	$c9,$82,$aa,$93,$be,$8d,$f4,$82,$c5,$bd,$a1,$0d,$00,$91,$8a,$91
	.dc.b	$ce,$93,$49,$c5,$90,$ed,$93,$ac,$97,$cd,$82,$aa,$92,$e1,$89,$ba
	.dc.b	$bc,$c3,$b2,$cf,$bd,$a1,$0d,$91,$95,$94,$f5,$c9,$8a,$67,$8f,$5b
	.dc.b	$a6,$97,$76,$8b,$81,$bc,$cf,$bd,$a1,$0d,$00,$8f,$ee,$95,$f1,$c9
	.dc.b	$8e,$fb,$8f,$57,$8c,$f8,$97,$a6,$82,$aa,$92,$e1,$89,$ba,$bc,$c3
	.dc.b	$b2,$cf,$bd,$a1,$0d,$89,$fc,$91,$50,$a6,$97,$76,$8b,$81,$bc,$cf
	.dc.b	$bd,$a1,$0d,$00,$1e,$bd,$83,$68,$b3,$1e,$8e,$81,$c9,$8b,$a6,$97
	.dc.b	$cd,$c6,$d6,$d8,$8f,$ee,$95,$f1,$8e,$fb,$8f,$57,$8c,$f8,$97,$a6
	.dc.b	$82,$aa,$8c,$fc,$8f,$e3,$bc,$c3,$b2,$cf,$bd,$a1,$0d,$00,$56,$4f
	.dc.b	$49,$44,$c9,$8b,$90,$91,$e5,$90,$ed,$8a,$cd,$c6,$8a,$d6,$bd,$d9
	.dc.b	$8f,$ee,$95,$f1,$c6,$8f,$5d,$b2,$56,$4f,$49,$44,$c9,$93,$a2,$94
	.dc.b	$b0,$a6,$88,$cb,$97,$8a,$bb,$da,$cf,$bc,$c0,$a1,$0d,$00,$56,$4f
	.dc.b	$49,$44,$c9,$8d,$c5,$8a,$fa,$82,$c5,$bd,$a1,$0d,$88,$ab,$ca,$96
	.dc.b	$c5,$82,$d1,$cf,$bc,$c0,$a1,$0d,$92,$4e,$d3,$82,$aa,$8b,$4d,$95
	.dc.b	$fb,$c9,$8b,$41,$8a,$d2,$a6,$91,$d2,$af,$c3,$b2,$cf,$bd,$a1,$0d
	.dc.b	$00,$00,$00,$1c,$00,$27,$00,$30,$00,$39,$00,$42,$00,$4b,$00,$5a
	.dc.b	$00,$65,$00,$70,$00,$7b,$00,$86,$00,$8f,$00,$98,$00,$a1,$83,$4d
	.dc.b	$83,$75,$83,$58,$83,$93,$00,$01,$5f,$83,$71,$83,$5f,$83,$8a,$00
	.dc.b	$01,$60,$83,$86,$81,$5b,$83,$52,$00,$01,$61,$83,$51,$81,$5b,$83
	.dc.b	$66,$00,$01,$62,$83,$7d,$83,$54,$83,$56,$00,$01,$63,$83,$60,$83
	.dc.b	$46,$83,$8c,$83,$93,$83,$52,$83,$74,$00,$01,$64,$83,$5f,$83,$43
	.dc.b	$83,$41,$83,$69,$00,$01,$65,$83,$88,$83,$56,$83,$85,$83,$41,$00
	.dc.b	$01,$66,$83,$4b,$81,$5b,$83,$72,$81,$5b,$00,$01,$67,$83,$71,$83
	.dc.b	$85,$81,$5b,$83,$43,$00,$01,$68,$83,$50,$83,$6a,$81,$5b,$00,$01
	.dc.b	$69,$83,$50,$83,$93,$83,$67,$00,$01,$6a,$83,$58,$83,$68,$83,$45
	.dc.b	$00,$01,$6b,$83,$4a,$81,$5b,$83,$8a,$83,$93,$00,$01,$6c,$00,$0e
	.dc.b	$00,$24,$00,$37,$00,$4a,$00,$5f,$00,$74,$00,$8b,$1e,$83,$5f,$b2
	.dc.b	$b1,$c5,$1e,$b6,$d7,$96,$e1,$af,$c0,$1e,$b6,$b0,$83,$68,$1e,$00
	.dc.b	$01,$2f,$8b,$e0,$90,$af,$82,$c5,$8f,$45,$af,$c0,$1e,$b6,$b0,$83
	.dc.b	$68,$1e,$00,$01,$30,$92,$6e,$8b,$85,$82,$c5,$8f,$45,$af,$c0,$1e
	.dc.b	$b6,$b0,$83,$68,$1e,$00,$01,$31,$82,$60,$82,$77,$33,$82,$c5,$8f
	.dc.b	$45,$af,$c0,$1e,$b6,$b0,$83,$68,$1e,$31,$00,$01,$32,$82,$60,$82
	.dc.b	$77,$33,$82,$c5,$8f,$45,$af,$c0,$1e,$b6,$b0,$83,$68,$1e,$32,$00
	.dc.b	$01,$33,$82,$60,$82,$77,$32,$c9,$1e,$cf,$b2,$bd,$c4,$1e,$cd,$c9
	.dc.b	$8f,$d0,$89,$ee,$8f,$f3,$00,$01,$34,$1e,$ca,$d8,$b3,$af,$83,$68
	.dc.b	$1e,$c9,$8f,$ee,$95,$f1,$89,$ae,$cd,$c9,$8f,$d0,$89,$ee,$8f,$f3
	.dc.b	$00,$01,$35,$00,$00,$0e,$00,$29,$00,$3e,$00,$53,$00,$70,$00,$8d
	.dc.b	$00,$aa,$90,$b6,$95,$a8,$95,$ba,$8a,$ed,$c9,$8e,$e3,$93,$5f,$c6
	.dc.b	$8a,$d6,$bd,$d9,$1e,$b6,$b0,$83,$68,$1e,$00,$01,$3f,$1e,$83,$4d
	.dc.b	$83,$75,$bd,$dd,$1e,$b6,$d7,$c9,$1e,$b6,$b0,$83,$68,$1e,$31,$00
	.dc.b	$01,$40,$1e,$83,$4d,$83,$75,$bd,$dd,$1e,$b6,$d7,$c9,$1e,$b6,$b0
	.dc.b	$83,$68,$1e,$32,$00,$01,$41,$1e,$83,$4b,$d9,$83,$4b,$dd,$c1,$ad
	.dc.b	$dc,$1e,$82,$c5,$93,$fc,$8e,$e8,$bc,$c0,$1e,$b6,$b0,$83,$68,$1e
	.dc.b	$31,$00,$01,$42,$1e,$83,$4b,$d9,$83,$4b,$dd,$c1,$ad,$dc,$1e,$82
	.dc.b	$c5,$93,$fc,$8e,$e8,$bc,$c0,$1e,$b6,$b0,$83,$68,$1e,$32,$00,$01
	.dc.b	$43,$1e,$83,$4b,$d9,$83,$4b,$dd,$c1,$ad,$dc,$1e,$82,$c5,$93,$fc
	.dc.b	$8e,$e8,$bc,$c0,$1e,$b6,$b0,$83,$68,$1e,$33,$00,$01,$44,$93,$ef
	.dc.b	$94,$6a,$91,$44,$c9,$92,$6a,$b6,$d7,$96,$e1,$af,$c0,$1e,$b6,$b0
	.dc.b	$83,$68,$1e,$00,$01,$45,$00,$02,$1e,$bd,$83,$68,$b3,$1e,$b6,$d7
	.dc.b	$96,$e1,$af,$c0,$1e,$83,$4d,$83,$75,$bd,$dd,$1e,$c9,$1e,$b6,$b0
	.dc.b	$83,$68,$1e,$00,$01,$4f
L0950
	move	(a0),d0
	lsl	#1,d0
	move	L095c(pc,d0.w),d0
L0958
	JMP	L0958+2(pc,d0.w)

L095c
*	.dc.w	L098e+2-L095c,	L098e+2-L095c,	L0f46+2-L095c,	L1492+2-L095c
	dc.w	L098c+2-L095c,	L098c+2-L095c,	L0f44+2-L095c,	L1490+2-L095c
*	.dc.w	L1900-L095c,	L1c24-L095c,	L11cc+2-L095c,	L0bfc+2-L095c
	dc.w	L18fe+2-L095c,	L1c22+2-L095c,	L11ca+2-L095c,	L0bfa+2-L095c
L096c
	move.b	$984(a6),d0
	subi.b	#$15,d0
	ext	d0
	cmpi	#3,d0
	bcs	L0980
	move	#4,d0
L0980
	muls	#$a,d0
	move	d0,L0038
	rts

L098c
	clr	$210(a6)
	bsr.w	L096c
	clr	d1
	move	$98e(a6),d0
	cmp	L0038,d0
	bcc	L09ac
	cmp	#$7d0,$980(a6)
	bcs	L09ac
	addq	#1,d1
L09ac
	move.b	$b47(a6),d0
	moveq	#5,d3
	clr	d2
L09b4
	lsr.b	#1,d0
	bcc	L09ba
	addq	#1,d2
L09ba
	dbf	d3,L09b4
	move	d1,d0
	add	d2,d0
	bne	L09fa
	move.b	$b47(a6),d0
	andi	#$3f,d0
	bne	L0bc2
	move	L0038,d0
	cmp	$98e(a6),d0
	beq	L09ea
	bsr	L1324
	pea	L2622(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L09f6

L09ea
	bsr	L1324
	pea	L2650(pc)
	.dc	$a027
	addq.l	#4,a7
L09f6
	bra	L1372

L09fa
	cmpi	#1,d0
	bcs	L0a0c
	addq	#1,d0
	move.b	#$53,L0be7
	bra	L0a12

L0a0c
	clr.b	L0be7
L0a12
	addi	#2,d0
	muls	#8,d0
	subq	#1,d0
	move	d0,L0bd8
	addi	#$20,d0
	move	d0,L0bf0
	pea	L0bd2(pc)
	.dc	$a00e
	addq.l	#4,a7
	move	#1,$210(a6)
	tst	d1
	beq	L0a46
	pea	L2663(pc)
	.dc	$a027
	addq.l	#4,a7
L0a46
	tst	d2
	beq	L0ac4
	lea	L0016(pc),a0
	btst	#0,$b47(a6)
	beq	L0a60
	clr.b	(a0)+
	pea	L266b(pc)
	.dc	$a027
	addq.l	#4,a7
L0a60
	btst	#1,$b47(a6)
	beq	L0a74
	move.b	#1,(a0)+
	pea	L2672(pc)
	.dc	$a027
	addq.l	#4,a7
L0a74
	btst	#2,$b47(a6)
	beq	L0a88
	move.b	#2,(a0)+
	pea	L267a(pc)
	.dc	$a027
	addq.l	#4,a7
L0a88
	btst	#3,$b47(a6)
	beq	L0a9c
	move.b	#3,(a0)+
	pea	L2685(pc)
	.dc	$a027
	addq.l	#4,a7
L0a9c
	btst	#4,$b47(a6)
	beq	L0ab0
	move.b	#4,(a0)+
	pea	L268d(pc)
	.dc	$a027
	addq.l	#4,a7
L0ab0
	btst	#5,$b47(a6)
	beq	L0ac4
	move.b	#5,(a0)+
	pea	L2698(pc)
	.dc	$a027
	addq.l	#4,a7
L0ac4
	move	#$3e,-(a7)
	.dc	$a028
	addq.l	#2,a7
	move	d1,d0
	add	d2,d0
	subq	#1,d0
	beq	L0adc
	pea	L26a3(pc)
	.dc	$a027
	addq.l	#4,a7
L0adc
	pea	L0bea(pc)
	.dc	$a00e
	addq.l	#4,a7
	move	L0bd8,d0
	addq	#1,d0
	move	#$4e,-(a7)
	move	d0,-(a7)
	move	#$300,-(a7)
	clr	-(a7)
	move	#$180,-(a7)
	move	#$20,-(a7)
	.dc	$a03b
	lea	$c(a7),a7
	move	d1,d0
	add	d2,d0
	cmpi	#1,d0
	beq	L0b12
	addq	#1,d0
L0b12
	move	d0,d3
	lea	L000a(pc),a0
	clr.l	(a0)
	clr.l	4(a0)
	clr	$204(a6)
L0b22
	move	#4,-(a7)
	move	#6,-(a7)
	move	d3,-(a7)
	move	#6,-(a7)
	move	#8,-(a7)
	.dc	$a01f
	lea	$a(a7),a7
	tst	d0
	bmi.w	L0bba
	subq	#1,d3
	beq	L0b4a
	cmp	d3,d0
	beq.w	L0bba
L0b4a
	addq	#1,d3
	tst.b	0(a0,d0.w)
	bne	L0b22
	move.b	#1,0(a0,d0.w)
	tst	d1
	beq	L0b72
	subq	#1,d0
	bpl	L0b72
	sub	#$7d0,$980(a6)
	move	L0038,$98e(a6)
	bra.w	L0b94

L0b72
	tst.b	$a0a(a6)
	bne	L0b84
	.dc	$a00d
	.dc	$a03e
	.dc	$a041
	bra.w	L0bc2

L0b82
	bra	L0b94

L0b84
	lea	L0016(pc),a1
	move.b	0(a1,d0.w),d0
	bclr	d0,$b47(a6)
	subq.b	#1,$a0a(a6)
L0b94
	.dc	$a03e
	.dc	$a041
	cmpi	#1,d3
	beq	L0bba
	move	d3,d4
	subq	#1,d4
	move	d3,d0
L0ba4
	tst.b	0(a0,d4.w)
	beq	L0bac
	subq	#1,d0
L0bac
	dbf	d4,L0ba4
	cmpi	#1,d0
	bls	L0bba
	bra	L0b22

L0bba
	.dc	$a00d
	.dc	$a03e
	.dc	$a041
	rts

L0bc2
	bsr	L1324
	pea	L26a9(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L0bd2
	.dc.b	$03,$00,$00,$00,$03,$4d
L0bd8
	.dc.b	$00,$6f,$10,$0c,$08,$06,$07,$0a,$27,$52,$45,$50,$41,$49,$52
L0be7
	.dc.b	$00,$00,$00
L0bea
	dc	$0180,$0020,$01CD
*	bclr	d0,d0	*or.b	#$cd,-(a0)
L0bf0
	or	#$100c,$806(a7)
	movep	$f00(a1),d3
L0bfa
	lea	L0016(pc),a0
	clr	d1
	tst.b	$a09(a6)
	beq	L0c0a
	clr.b	(a0)+
	addq	#1,d1
L0c0a
	tst.b	$a0b(a6)
	beq	L0c16
	move.b	#1,(a0)+
	addq	#1,d1
L0c16
	tst.b	$a0c(a6)
	beq	L0c22
	move.b	#2,(a0)+
	addq	#1,d1
L0c22
	tst.b	$a0d(a6)
	beq	L0c2e
	move.b	#3,(a0)+
	addq	#1,d1
L0c2e
	tst.b	$a0e(a6)
	beq	L0c3a
	move.b	#4,(a0)+
	addq	#1,d1
L0c3a
	tst.b	$a07(a6)
	beq	L0c46
	move.b	#5,(a0)+
	addq	#1,d1
L0c46
	tst	d1
	bne	L0c5a
	bsr	L1324
	pea	L26c5(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L0c5a
	move	d1,-(a7)
	pea	L0d2e(pc)
	.dc	$a00e
	addq.l	#4,a7
	bsr	改行
	clr	$210(a6)
	lea	L0016(pc),a0
	move	d1,d2
	tst.b	(a0)
	bne	L0c82
	moveq	#$27,d0
	bsr	L1376
	addq.l	#1,a0
	subq	#1,d2
	beq	L0cd6
L0c82
	cmp.b	#1,(a0)
	bne	L0c94
	moveq	#$29,d0
	bsr	L1376
	addq.l	#1,a0
	subq	#1,d2
	beq	L0cd6
L0c94
	cmp.b	#2,(a0)
	bne	L0ca6
	moveq	#$2a,d0
	bsr	L1376
	addq.l	#1,a0
	subq	#1,d2
	beq	L0cd6
L0ca6
	cmp.b	#3,(a0)
	bne	L0cb8
	moveq	#$2b,d0
	bsr	L1376
	addq.l	#1,a0
	subq	#1,d2
	beq	L0cd6
L0cb8
	cmp.b	#4,(a0)
	bne	L0cca
	moveq	#$2c,d0
	bsr	L1376
	addq.l	#1,a0
	subq	#1,d2
	beq	L0cd6
L0cca
	cmp.b	#5,(a0)
	bne	L0cd6
	moveq	#$25,d0
	bsr	L1376
L0cd6
	move	#$40,-(a7)
	clr	-(a7)
	.dc	$a03d
	addq.l	#4,a7
	move	(a7)+,d1
	pea	L0d2a(pc)
	clr	$204(a6)
	move	#2,-(a7)
	move	#6,-(a7)
	move	d1,-(a7)
	move	#3,-(a7)
	move	#$17,-(a7)
	.dc	$a01f
	lea	$a(a7),a7
	tst	d0
	bpl	L0d08
	rts

L0d08
	lea	L0016(pc),a0
	move.b	0(a0,d0.w),d0
	andi	#7,d0
	lsl	#1,d0
	move	L0d1e(pc,d0.w),d0
L0d1a
	JMP	L0d1a+2(pc,d0.w)

L0d1e
*	.dc.w	L0d40+2-L0d1e,	L0d8a+2-L0d1e,	L0dfc+2-L0d1e,	L0e60+2-L0d1e
	.dc.w	L0d3e+2-L0d1e,	L0d88+2-L0d1e,	L0dfa+2-L0d1e,	L0e5e+2-L0d1e
*	.dc.w	L0ea8+2-L0d1e,	L0d9e+2-L0d1e
	.dc.w	L0ea6+2-L0d1e,	L0d9c+2-L0d1e
L0d2a
	.dc	$a00d
	rts

L0d2e
	.dc.b	$00,$54,$00,$08,$00,$ee,$00,$df,$10,$0c,$08,$06,$07,$09,$07,$00
L0d3e
	cmp	#$7530,$980(a6)
	bcc	L0d56
	bsr	L1324
	pea	L26e3(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L0d56
	sub	#$7530,$980(a6)
	bsr	L1324
	lea	L003a(pc),a0
	pea	$270(a0)
	.dc	$a027
	addq.l	#4,a7
	pea	L2716(pc)
	.dc	$a027
	addq.l	#4,a7
	bsr	L1364
	move	#$c8,$9ca(a6)
	move	#$48,-(a7)
	.dc	$a007
	addq.l	#2,a7
	rts

L0d88
	move	#$4d,-(a7)
	.dc	$a007
	addq.l	#2,a7
	subq.b	#1,$a0b(a6)
	move	#$96,$9cc(a6)
	rts

L0d9c
	cmp	#$1f4,$980(a6)
	bcc	L0db4
	bsr	L1324
	pea	L2721(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L0db4
	sub	#$1f4,$980(a6)
	bsr	L1324
	pea	L2758(pc)
	.dc	$a027
	addq.l	#4,a7
	bsr	L1364
	move	#$96,$bca(a6)
	rts

L0dd2
	bsr	L1324
	clr	d0
	move.b	$987(a6),d0
	beq	L0de0
	rts

L0de0
	addq.l	#4,a7
	pea	L2778(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L0dee
	pea	L2791(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1478

L0dfa
	bsr.w	L0dd2
	move	$9c8(a6),d1
	move.b	$a0c(a6),d0
	subq	#1,d0
	clr	d3
L0e0a
	addq	#1,d3
	add	#$1f4,$980(a6)
	cmp	$980(a6),d1
	bcc	L0e1e
	move	d1,$980(a6)
	bra	L0e24

L0e1e
	dbf	d0,L0e0a
	addq	#1,d0
L0e24
	move.b	d0,$a0c(a6)
	move	d3,$222(a6)
	pea	L02da(pc)
	.dc	$a027
	addq.l	#4,a7
	pea	L0e40(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L0e40
	.dc.b	$0e,$02,$02,$22,$8c,$c2,$a6,$83,$47,$83,$6c,$83,$8b,$83,$4d,$81
	.dc.b	$5b,$c6,$93,$5d,$8a,$b7,$bc,$cf,$bc,$c0,$a1,$0d,$00,$00
L0e5e
	bsr	L0dd2
	cmpi	#$1f,d0
	bcs.w	L0dee
	cmp.b	#2,$a0d(a6)
	bcc	L0e7e
	pea	L02ea(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1484

L0e7e
	cmp.b	#$28,$a0a(a6)	* '('
	bcs	L0e92
	pea	L02ba(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L0f38

L0e92
	addq.b	#1,$a0a(a6)
	subq.b	#2,$a0d(a6)
	pea	L02ba(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L0f2c

L0ea6
	bsr	L0dd2
	cmpi	#$1d,d0
	beq	L0dee
	move	d0,d1
	subi	#$18,d0
	move	d0,L0008
	subi	#$1c,d1
	cmpi	#3,d1
	bne	L0eca
	addq	#1,d1
L0eca
	cmp.b	$a0e(a6),d1
	bls	L0eec
	bsr.w	L0f16
	pea	L27a0(pc)
	.dc	$a027
	addq.l	#4,a7
	lea	L003a(pc),a0
	pea	$2c0(a0)
	.dc	$a027
	addq.l	#4,a7
	bra	L1484

L0eec
	move	L0008,d0
	lea	$9e2(a6),a0
	cmp.b	#$50,0(a0,d0.w)	* 'P'
	bcs	L0f06
	bsr.w	L0f16
	bra.w	L0f38

L0f06
	addq.b	#1,0(a0,d0.w)
	sub.b	d1,$a0e(a6)
	bsr.w	L0f16
	bra.w	L0f2c

L0f16
	lea	L003a(pc),a0
	move	L0008,d0
L0f20
	lsl	#4,d0
	pea	0(a0,d0.w)
L0f26
	.dc	$a027
	addq.l	#4,a7
	rts

L0f2c
	pea	L27a8(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L0f38
	pea	L27b7(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L0f44
	move	#$100,-(a7)
	clr	-(a7)
	.dc	$a03d
	addq.l	#4,a7
	pea	L11ac(pc)
	.dc	$a00e
	addq.l	#4,a7
	move	#$1c,-(a7)
	.dc	$a007
	addq.l	#2,a7
	clr	d0
	move.b	$984(a6),d0
	addi	#$1b,d0
	cmpi	#$33,d0
	bne	L0f70
	addq	#1,d0
L0f70
	move.b	d0,L1110
	move.b	$a10(a6),d0
	addi.b	#$31,d0
	move.b	d0,L1128
	clr	$222(a6)
	move	$980(a6),$224(a6)
	pea	L10f8(pc)
	.dc	$a027
	addq.l	#4,a7
	lea	L003a,a0
	move.l	#$48003a,$200(a6)
	clr	d0
	move.b	$982(a6),d0
	lsl	#4,d0
	lea	0(a0,d0.w),a1
	btst	#0,$b47(a6)
	beq	L0fbc
	lea	L11a4(pc),a1
L0fbc
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
	move.l	#$48004c,$200(a6)
	clr	d0
	move.b	$983(a6),d0
	lsl	#4,d0
	lea	0(a0,d0.w),a1
	btst	#1,$b47(a6)
	beq	L0fe2
	lea	L11a4(pc),a1
L0fe2
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
	move.l	#$48005e,$200(a6)
	lea	L119e(pc),a1
	btst	#2,$b47(a6)
	beq	L1000
	lea	L11a4(pc),a1
L1000
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
	move.l	#$480070,$200(a6)
	clr	d0
	move.b	$985(a6),d0
	lsl	#4,d0
	lea	0(a0,d0.w),a1
	btst	#3,$b47(a6)
	beq	L1026
	lea	L11a4(pc),a1
L1026
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
	move.l	#$480082,$200(a6)
	lea	L119e(pc),a1
	btst	#4,$b47(a6)
	beq	L1044
	lea	L11a4(pc),a1
L1044
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
	move.l	#$480094,$200(a6)
	lea	L119e(pc),a1
	btst	#5,$b47(a6)
	beq	L1062
	lea	L11a4(pc),a1
L1062
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
	move	#$e6,$200(a6)
	pea	L27c7(pc)
	.dc	$a027
	addq.l	#4,a7
	clr	$210(a6)
	move.b	$b47(a6),d0
	andi	#$3f,d0
	beq	L108c
	pea	L27ca(pc)
	.dc	$a027
	addq.l	#4,a7
L108c
	cmp	#$7d0,$980(a6)
	bcc	L109c
	pea	L27e0(pc)
	.dc	$a027
	addq.l	#4,a7
L109c
	clr	d0
	move	#$278,d1
	move	#$20,d2
	move	#$19,d3
	bsr	L1ab6
L10ae
	bsr	L1c02
	beq	L10c8
	addq	#1,L002a
	cmp	#$20,L002a
	bcs	L10ae
	bra	L1372

L10c8
	lea	L032a,a1
	move	(a1),d0
	lea	0(a1,d0.w),a1
	move	L002a,d0
	lsl	#1,d0
	move	0(a1,d0.w),d0
	lea	0(a1,d0.w),a1
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
	pea	L27f8(pc)
	.dc	$a027
	addq.l	#4,a7
	.dc	$a026
	.dc	$a00d
	rts

L10f8
	.dc.b	$0a,$83,$56,$81,$5b,$83,$8b,$83,$68,$81,$40,$3a,$0e,$21,$09,$8e
	.dc.b	$20,$20,$20,$28,$8d,$c5,$91,$e5
L1110
	.dc.b	$31,$30,$29,$0d,$83,$47,$83,$6c,$83,$8b,$83,$4d,$81,$5b,$3a,$0f
	.dc.b	$24,$02,$22,$28,$8d,$c5,$91,$e5
L1128
	.dc.b	$31,$30,$30,$30,$30,$29,$0d,$8f,$8a,$8e,$9d,$8b,$e0,$8a,$7a,$81
	.dc.b	$40,$3a,$24,$0f,$07,$09,$aa,$07,$0d,$0b,$20,$0d,$20,$20,$20,$20
	.dc.b	$20,$20,$52,$41,$44,$41,$52,$3a,$0d,$20,$0d,$20,$20,$20,$20,$20
	.dc.b	$45,$4e,$47,$49,$4e,$45,$3a,$0d,$20,$0d,$20,$20,$4e,$41,$56,$49
	.dc.b	$47,$41,$54,$4f,$52,$3a,$0d,$20,$0d,$20,$20,$20,$20,$20,$57,$45
	.dc.b	$41,$50,$4f,$4e,$3a,$0d,$20,$0d,$20,$20,$46,$55,$45,$4c,$20,$54
	.dc.b	$41,$4e,$4b,$3a,$0d,$20,$0d,$20,$43,$41,$52,$47,$4f,$20,$52,$4f
	.dc.b	$4f,$4d,$3a,$0a,$00,$00
L119e
	.dc.b	'正常',$00,$00
L11a4
	.dc.b	$02,$91,$b9,$8f,$9d,$07,$00,$00
L11ac
	.dc.b	$01,$00,$00,$08,$01,$fb,$00,$c7,$12,$0c,$04,$04,$07,$09,$2f,$53
	.dc.b	$54,$41,$54,$55,$53,$20,$52,$45,$50,$4f,$52,$54,$00,$00
L11ca
	move	#$40,-(a7)
	clr	-(a7)
	.dc	$a03d
	addq.l	#4,a7
	pea	L12f6(pc)
	.dc	$a00e
	addq.l	#4,a7
	move	#1,$210(a6)
	lea	L1282,a1
	clr	d1
L11ea
	move	d1,d0
	lsl	#2,d0
	move	2(a1,d0.w),d0
	pea	0(a1,d0.w)
	.dc	$a027
	addq.l	#4,a7
	pea	L27fa(pc)
	.dc	$a027
	addq.l	#4,a7
	addq	#1,d1
	cmpi	#6,d1
	bne	L11ea
	move	L0036,$204(a6)
	move	#4,-(a7)
	move	#4,-(a7)
	move	#6,-(a7)
	move	#5,-(a7)
	move	#8,-(a7)
	.dc	$a01f
	lea	$a(a7),a7
	move	d0,-(a7)
	.dc	$a00d
	move	(a7)+,d0
	bpl	L1236
	rts

L1236
	move	d0,L0036
	lea	L1282,a1
	lsl	#2,d0
	movem	0(a1,d0.w),d0-d1
	lea	0(a1,d0.w),a2
	lea	0(a1,d1.w),a1
	bsr	L1764
	pea	L1314(pc)
	.dc	$a00e
	addq.l	#4,a7
	bsr	改行
L1262
	clr	d0
	move.b	(a2)+,d0
	cmpi	#$ff,d0
	bne	L1272
	.dc	$a003
	.dc	$a00d
	rts

L1272
	lea	$9e2(a6),a0
	tst.b	0(a0,d0.w)
	beq	L1280
	bsr	L1376
L1280
	bra	L1262

L1282
	.dc.b	$00,$1e,$00,$18,$00,$30,$00,$27,$00,$3d,$00,$37,$00,$4f,$00,$47
	.dc.b	$00,$5b,$00,$55,$00,$6b,$00,$65,$42,$45,$41,$4d,$53,$00,$00,$01
	.dc.b	$0b,$0c,$0d,$02,$03,$04,$ff,$4d,$49,$53,$53,$49,$4c,$45,$53,$00
	.dc.b	$05,$06,$07,$08,$09,$0a,$ff,$50,$41,$52,$54,$53,$00,$0e,$0f,$10
	.dc.b	$16,$17,$18,$1d,$1e,$1f,$ff,$45,$4e,$47,$49,$4e,$45,$53,$00,$11
	.dc.b	$12,$13,$14,$15,$ff,$49,$54,$45,$4d,$53,$00,$25,$26,$27,$28,$29
	.dc.b	$2a,$2b,$2c,$2d,$ff,$44,$41,$54,$41,$53,$00,$20,$21,$22,$23,$1a
	.dc.b	$1b,$1c,$24,$ff
L12f6
	.dc.b	$00,$54,$00,$08,$00,$b4,$00,$50,$10,$0c,$04,$04,$07,$09,$2f,$49
	.dc.b	$4e,$56,$45,$4e,$54,$4f,$52,$59,$20,$4d,$45,$4e,$55,$00
L1314
	.dc.b	$00,$54,$00,$08,$00,$ee,$00,$df,$10,$0c,$04,$04,$07,$09,$07,$00
L1324
	move	#$100,-(a7)
	clr	-(a7)
	.dc	$a03d
	addq.l	#4,a7
	pea	L1354(pc)
	.dc	$a00e
	addq.l	#4,a7
	bsr	改行
	move	#$1c,-(a7)
	.dc	$a007
	addq.l	#2,a7
	move	#$100,-(a7)
	move	#$54,-(a7)
	.dc	$a03d
	addq.l	#4,a7
	clr	$210(a6)
	rts

L1354
	.dc.b	$01,$08,$01,$04,$01,$f7,$01,$4b,$10,$0c,$04,$04,$07,$09,$07,$00
L1364
	pea	L27fc(pc)
	.dc	$a027
	addq.l	#4,a7
	bra.w	L1372

L1370
	rts

L1372
	.dc	$a026
	rts

L1376
	link	a5,#-2
	movem.l	d0-d7/a0-a4,-(a7)
	move	$210(a6),-(a7)
	move	d0,-2(a5)
	clr	$210(a6)
	move	-2(a5),d0
	andi	#$ff,d0
	muls	#$180,d0
	move.l	$4c(a6),a0
	add.l	#$8a00,a0
	move	$200(a6),d2
	add	$1f2(a6),d2
	move	$202(a6),d3
	add	$1f4(a6),d3
	move	d2,-(a7)
	move	d3,-(a7)
	move	#$20,-(a7)
	move	#$18,-(a7)
	pea	0(a0,d0.l)
	.dc	$a00b
	lea	$c(a7),a7
	move	#$37,d1
	move	-2(a5),d0
	bne	L13d8
	cmp.b	$985(a6),d0
	beq	L1404
	bra	L1402

L13d8
	cmp.b	$982(a6),d0
	beq	L1404
	cmp.b	$983(a6),d0
	beq	L1404
	cmp.b	$984(a6),d0
	beq	L1404
	cmp.b	$985(a6),d0
	beq	L1404
	cmp.b	$986(a6),d0
	beq	L1404
	cmp.b	$987(a6),d0
	beq	L1404
	cmp.b	$988(a6),d0
	beq	L1404
L1402
	bra	L1406

L1404
	subq	#1,d1
L1406
	move	d1,-(a7)
	.dc	$a028
	addq.l	#2,a7
	move.l	$200(a6),-(a7)
	add	#$22,$200(a6)
	move	$200(a6),-(a7)
	lea	L003a(pc),a0
	move	-2(a5),d0
	lsl	#4,d0
	lea	0(a0,d0.w),a0
	move.l	a0,-(a7)
	.dc	$a027
	addq.l	#4,a7
	move	(a7)+,$200(a6)
	add	#$4a,$200(a6)
	move	-2(a5),d0
	lea	$9e2(a6),a1
	move.b	0(a1,d0.w),$222(a6)
	clr	d0
	move.b	$d(a0),d0
	cmpi	#1,d0
	beq	L145a
	pea	L2816(pc)
	.dc	$a027
	addq.l	#4,a7
L145a
	move.l	(a7)+,$200(a6)
	add	#$17,$202(a6)
	move	#$37,-(a7)
	.dc	$a028
	addq.l	#2,a7
	move	(a7)+,$210(a6)
	movem.l	(a7)+,d0-d7/a0-a4
	unlk	a5
	rts

L1478
	pea	L281c(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L1484
	pea	L2826(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L1490
	move	#$48,d3
	move.b	$9ed(a6),d1
	or.b	$9ee(a6),d1
	or.b	$9ef(a6),d1
	beq	L14a4
	addq	#8,d3
L14a4
	move.b	$9ff(a6),d2
	or.b	$a00(a6),d2
	or.b	$a01(a6),d2
	beq	L14b4
	addq	#8,d3
L14b4
	move	d3,L1548
	move	#$40,-(a7)
	clr	-(a7)
	.dc	$a03d
	addq.l	#4,a7
	pea	L1542(pc)
	.dc	$a00e
	addq.l	#4,a7
	pea	L2834(pc)
	.dc	$a027
	addq.l	#4,a7
	move	#5,d3
	tst.b	d1
	beq	L14e6
	addq	#1,d3
	pea	L2867(pc)
	.dc	$a027
	addq.l	#4,a7
L14e6
	tst.b	d2
	beq	L14f4
	addq	#1,d3
	pea	L2875(pc)
	.dc	$a027
	addq.l	#4,a7
L14f4
	clr	$204(a6)
	move	#4,-(a7)
	move	#6,-(a7)
	move	d3,-(a7)
	move	#$a,-(a7)
	move	#8,-(a7)
	.dc	$a01f
	lea	$a(a7),a7
	move	d0,-(a7)
	.dc	$a00d
	move	(a7)+,d0
	tst	d0
	bpl	L151c
	rts

L151c
	cmpi	#5,d0
	bne	L152a
	tst.b	$988(a6)
	bne	L152a
	addq	#1,d0
L152a
	lsl	#1,d0
	move	L1534(pc,d0.w),d0
L1530
	JMP	L1530+2(pc,d0.w)

L1534
*	.dc.w	L155e+2-L1534,	L158e+2-L1534,	L15c0+2-L1534,	L15ee+2-L1534
	dc.w	L155c+2-L1534,	L158c+2-L1534,	L15be+2-L1534,	L15ec+2-L1534
*	.dc.w	L163e+2-L1534,	L166a+2-L1534,	L1696+2-L1534
	dc.w	L163c+2-L1534,	L1668+2-L1534,	L1694+2-L1534
L1542
	.dc.b	$00,$54,$00,$08,$00,$bf
L1548
	.dc.b	$00,$6f,$10,$0c,$08,$06,$07,$09,$2f,$45,$51,$55,$49,$50,$20,$4d
	.dc.b	$45,$4e,$55,$00
L155c
	pea	L2880(pc)
	pea	L1586(pc)
	pea	L2886(pc)
	bsr	L16c0
	lea	$c(a7),a7
	tst	d0
	bmi	L1584
	pea	$985(a6)
	pea	L1586
	bsr	L17ae
	addq.l	#8,a7
L1584
	rts

L1586
	.dc.b	$00,$01,$02,$03,$04,$ff
L158c
	pea	L288c(pc)
	pea	L15b6(pc)
	pea	L2895(pc)
	bsr	L16c0
	lea	$c(a7),a7
	tst	d0
	bmi	L15b4
	pea	$985(a6)
	pea	L15b6
	bsr	L17ae
	addq.l	#8,a7
L15b4
	rts

L15b6
	btst	d2,d6
	movep	$90a(a0),d3
	DOS	_EXIT

L15be
	pea	L289e(pc)
	pea	L15e6(pc)
	pea	L28a7(pc)
	bsr	L16c0
	lea	$c(a7),a7
	tst	d0
	bmi	L15e4
	pea	$983(a6)
	pea	L15e6(pc)
	bsr	L17ae
	addq.l	#8,a7
L15e4
	rts

L15e6
	.dc.b	$11,$12,$13,$14,$15,$ff
L15ec
	pea	L28af(pc)
	pea	L1638(pc)
	pea	L28b7(pc)
	bsr	L16c0
	lea	$c(a7),a7
	tst	d0
	bmi	L1636
	move	d0,-(a7)
	pea	$984(a6)
	pea	L1638(pc)
	bsr	L17ae
	addq.l	#8,a7
	move	(a7)+,d0
	addq	#1,d0
	move	d0,$698(a6)
	muls	#$a,d0
	cmpi	#$1e,d0
	bne	L162a
	move	#$28,d0
L162a
	cmp	$98e(a6),d0
	bcc	L1634
	move	d0,$98e(a6)
L1634
	.dc	$a03e
L1636
	rts

L1638
	.dc.b	$16,$17,$18,$ff
L163c
	pea	L28bf(pc)
	pea	L1664(pc)
	pea	L28c6(pc)
	bsr.w	L16c0
	lea	$c(a7),a7
	tst	d0
	bmi	L1662
	pea	$982(a6)
	pea	L1664(pc)
	bsr	L17ae
	addq.l	#8,a7
L1662
	rts

L1664
	.dc.b	$0e,$0f,$10,$ff
L1668
	pea	L28cd(pc)
	pea	L1690(pc)
	pea	L28db(pc)
	bsr.w	L16c0
	lea	$c(a7),a7
	tst	d0
	bmi	L168e
	pea	$988(a6)
	pea	L1690(pc)
	bsr	L17ae
	addq.l	#8,a7
L168e
	rts

L1690
	movep	$dff(a4),d5
L1694
	pea	L28e6(pc)
	pea	L16bc(pc)
	pea	L28f1(pc)
	bsr.w	L16c0
	lea	$c(a7),a7
	tst	d0
	bmi	L16ba
	pea	$987(a6)
	pea	L16bc(pc)
	bsr	L17ae
	addq.l	#8,a7
L16ba
	rts

L16bc
	.dc.b	$1d,$1e,$1f,$ff
L16c0
	clr	$204(a6)
	clr	d1
	clr	d0
	lea	$9e2(a6),a1
	move.l	8(a7),a0
L16d0
	move.b	(a0)+,d0
	cmpi.b	#$ff,d0
	beq	L16e2
	tst.b	0(a1,d0.w)
	beq	L16e0
	addq	#1,d1
L16e0
	bra	L16d0

L16e2
	tst	d1
	bne	L1704
	bsr	L1324
	move.l	$c(a7),-(a7)
	.dc	$a027
	addq.l	#4,a7
	pea	L28fc(pc)
	.dc	$a027
	addq.l	#4,a7
	bsr	L1372
	move	#$ffff,d0
	rts

L1704
	move.l	4(a7),a1
	move	d1,-(a7)
	bsr.w	L1764
	pea	L1754(pc)
	.dc	$a00e
	addq.l	#4,a7
	bsr	改行
	move.l	$a(a7),a1
L171e
	clr	d0
	move.b	(a1)+,d0
	cmpi	#$ff,d0
	beq	L1738
	lea	$9e2(a6),a0
	tst.b	0(a0,d0.w)
	beq	L1736
	bsr	L1376
L1736
	bra	L171e

L1738
	move	(a7)+,d1
	move	#2,-(a7)
	move	#4,-(a7)
	move	d1,-(a7)
	move	#3,-(a7)
	move	#$17,-(a7)
	.dc	$a01f
	lea	$a(a7),a7
	rts

L1754
	.dc.b	$00,$54,$00,$08,$00,$ee,$00,$df,$10,$0c,$04,$04,$07,$09,$07,$00
L1764
	movem.l	d0-d1/a0-a1,-(a7)
	pea	L179c(pc)
	.dc	$a00e
	addq.l	#4,a7
	bsr	改行
	clr	d1
	move.l	a1,a0
L1778
	clr	d0
	move.b	(a0)+,d0
	beq	L1782
	addq	#1,d1
	bra	L1778

L1782
	muls	#3,d1
	neg	d1
	addi	#$30,d1
	move	d1,$200(a6)
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
	movem.l	(a7)+,d0-d1/a0-a1
	rts

L179c
	.dc.b	$00,$70,$00,$ec,$00,$cf,$00,$f7,$10,$0c,$00,$02,$07,$09,$07,$00
	.dc.b	$4e,$75
L17ae
	move	d0,d1
	addq	#1,d1
	move	#$100,-(a7)
	clr	-(a7)
	.dc	$a03d
	addq.l	#4,a7
	lea	$9e2(a6),a1
	move.l	4(a7),a0
L17c4
	move.b	(a0)+,d0
	tst.b	0(a1,d0.w)
	beq	L17d0
	subq	#1,d1
	beq	L17d2
L17d0
	bra	L17c4

L17d2
	move.l	8(a7),a1
	lea	$985(a6),a2
	cmpa.l	a2,a1
	bne	L17ee
	addq	#1,d0
	bne	L17e4
	rts

L17e4
	subq	#1,d0
	clr	L0006
	bra	L17f6

L17ee
	move	#1,L0006
L17f6
	movem.l	d0/a1,-(a7)
	bsr	L1324
	movem.l	(a7)+,d0/a1
	lea	$b41(a6),a0
	move	d0,d1
	lsr	#3,d1
	move	d0,d2
	andi	#7,d2
	btst	d2,0(a0,d1.w)
	bne	L1822
	pea	L2908(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1478

L1822
	cmp.b	(a1),d0
	bne	L1832
	pea	L291c(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L1832
	tst.b	(a1)
	bne	L185e
	tst	L0006
	beq	L185e
L183e
	move.b	d0,(a1)
	clr	d1
	move.b	d0,d1
	lsl	#4,d1
	lea	L003a(pc),a0
	pea	0(a0,d1.w)
	.dc	$a027
	addq.l	#4,a7
	pea	L292b(pc)
	.dc	$a027
	addq.l	#4,a7
	bra.w	L189c

L185e
	move	d0,d2
	clr	d1
	move.b	(a1),d1
	lea	$9e2(a6),a0
	tst.b	0(a0,d1.w)
	beq	L183e
	lea	L003a(pc),a0
	lsl	#4,d1
	pea	0(a0,d1.w)
	.dc	$a027
	addq.l	#4,a7
	pea	L2937(pc)
	.dc	$a027
	addq.l	#4,a7
	clr	d0
	move.b	d2,d0
	lsl	#4,d0
	pea	0(a0,d0.w)
	.dc	$a027
	addq.l	#4,a7
	pea	L2939(pc)
	.dc	$a027
	addq.l	#4,a7
	move.b	d2,(a1)
L189c
	lea	$985(a6),a2
	cmpa.l	a2,a1
	bne	L18fa
	move	#$3b,-(a7)
	.dc	$a028
	addq.l	#2,a7
	move	#$100,-(a7)
	move	#$d0,-(a7)
	move	#$12f,-(a7)
	move	#$ef,-(a7)
	.dc	$a01a
	addq.l	#8,a7
	andi	#$ff,d2
	muls	#$300,d2
	move.l	$4c(a6),a0
	move	#$100,-(a7)
	move	#$d0,-(a7)
	move	#$30,-(a7)
	move	#$20,-(a7)
	pea	0(a0,d2.l)
	.dc	$a00b
	lea	$c(a7),a7
	move	#$108,-(a7)
	move	#$f4,-(a7)
	.dc	$a050
	addq.l	#4,a7
	move	#$37,-(a7)
	.dc	$a028
	addq.l	#2,a7
L18fa
	bra	L1372
*------------------------
L18fe
	clr	d1
	tst.b	$a02(a6)
	beq	L1908
	addq	#1,d1
L1908
	tst.b	$a03(a6)
	beq	L1910
	addq	#1,d1
L1910
	tst.b	$a04(a6)
	beq	L1918
	addq	#1,d1
L1918
	tst.b	$a05(a6)
	beq	L1920
	addq	#1,d1
L1920
	tst	d1
	bne	L1936
	bsr	L1324
	move.l	#$101a,-(a7)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L1936
	muls	#$18,d1
	addi	#$c,d1
	move	d1,L19ec
	pea	L19e6(pc)
	.dc	$a00e
	addq.l	#4,a7
	clr	d1
	lea	L0016(pc),a0
	tst.b	$a02(a6)
	beq	L1962
	clr.b	(a0)+
	moveq	#$20,d0
	bsr	L1376
	addq	#1,d1
L1962
	tst.b	$a03(a6)
	beq	L1974
	move.b	#1,(a0)+
	moveq	#$21,d0
	bsr	L1376
	addq	#1,d1
L1974
	tst.b	$a04(a6)
	beq	L1986
	move.b	#2,(a0)+
	moveq	#$22,d0
	bsr	L1376
	addq	#1,d1
L1986
	tst.b	$a05(a6)
	beq	L1998
	move.b	#3,(a0)+
	moveq	#$23,d0
	bsr	L1376
	addq	#1,d1
L1998
	move	L0034,$204(a6)
	move	#4,-(a7)
	move	#6,-(a7)
	move	d1,-(a7)
	move	#3,-(a7)
	move	#$17,-(a7)
	.dc	$a01f
	lea	$a(a7),a7
	move	d0,-(a7)
	.dc	$a00d
	move	(a7)+,d0
	bpl	L19c2
	rts

L19c2
	move	d0,L0034
	lea	L0016(pc),a0
	move.b	0(a0,d0.w),d0
	andi	#3,d0
	lsl	#1,d0
	move	L19de(pc,d0.w),d0
L19da
	JMP	L19da+2(pc,d0.w)

L19de
*	.dc.w	L1a16+2-L19de,	L1a32+2-L19de,	L1a50+2-L19de,	L1a02+2-L19de
	dc.w	L1a14+2-L19de,	L1a30+2-L19de,	L1a4e+2-L19de,	L1a00+2-L19de
L19e6
	.dc.b	$01,$00,$00,$00,$01,$a1
L19ec
	.dc.b	$00,$6f,$10,$0c,$08,$06,$07,$09,$2f,$44,$41,$54,$41,$53,$20,$4d
	.dc.b	$45,$4e,$55,$00
L1a00
	move	#1,d0
	move	#$230,d1
	move	#$1f,d2
	move	#$23,d3
	bra	L1ad0

L1a14
	move.b	$9fc(a6),d0
	add.b	$9fd(a6),d0
	add.b	$9fe(a6),d0
	beq	L1a74
	move	#$f,d2
	move	#$20,d3
	move	#$200,d1
	bra	L1a66

L1a30
	move.b	$9fd(a6),d0
	add.b	$9fe(a6),d0
	bne	L1a40
	move	#1,d0
	bra	L1a74

L1a40
	move	#$f,d2
	move	#$21,d3
	move	#$210,d1
	bra	L1a66

L1a4e
	tst.b	$9fe(a6)
	bne	L1a5a
	move	#2,d0
	bra	L1a74

L1a5a
	move	#$f,d2
	move	#$22,d3
	move	#$220,d1
L1a66
	move	#$f,d2
	move	d3,d0
	subi	#$1e,d0
	bra.w	L1ad0

L1a74
	addi.b	#$31,d0
	move.b	d0,L1a9c
	bsr	L1324
	pea	L1a96(pc)
	.dc	$a027
	addq.l	#4,a7
	pea	L2954(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L1a96
	.dc.b	'レベル'
L1a9c
	.dc.b	$31,$88,$c8,$8f,$e3,$c9,$1e,$b1,$c5,$d7,$b2,$1e,$83,$55,$82,$aa
	.dc.b	$96,$b3,$b2,$c4,$94,$bb,$93,$c7,$00,$00
L1ab6
	move	d0,L0032
	move	d1,L002c
	move	d2,L002e
	clr	L002a
	rts

L1ad0
	bsr.w	L1ab6
L1ad4
	bsr	L1c02
	bne	L1afe
	addq	#1,L002a
	move	L002e,d0
	cmp	L002a,d0
	bcc	L1ad4
	bsr	L1324
	pea	L295e(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1372

L1afe
	bsr	L1324
L1b02
	lea	L032a,a1
	move	L0032,d0
	lsl	#1,d0
	move	0(a1,d0.w),d0
	lea	0(a1,d0.w),a1
	move	L002a,d0
	lsl	#1,d0
	move	0(a1,d0.w),d0
	lea	0(a1,d0.w),a1
	bsr	改行
	pea	L296f(pc)
	.dc	$a027
	addq.l	#4,a7
	move.l	a1,-(a7)
	.dc	$a027
	addq.l	#4,a7
L1b3a
	tst.b	(a1)+
	bne	L1b3a
	move.b	(a1)+,L0030
	move.b	(a1),L0031
	move	#$37,-(a7)
	.dc	$a028
	addq.l	#2,a7
L1b52
	.dc	$a002
	and	#$6f6f,$3f2(a6)
	bne	L1b52
L1b5c
	.dc	$a002
	and	#$6f6f,$3f2(a6)
	beq	L1b5c
	move.b	$3f2(a6),d0
	or.b	$3f3(a6),d0
	btst	#5,d0
	beq	L1b94
	move	#$100,-(a7)
	clr	-(a7)
	.dc	$a03d
	addq.l	#4,a7
	tst	$8dc(a6)
	bne	L1b92
	move	#$f,-(a7)
	move	L0030,-(a7)
	.dc	$a02c
	addq.l	#4,a7
L1b92
	rts

L1b94
	andi	#$3f,d0
	bne	L1b9e
	.dc	$a00d
	rts

L1b9e
	btst	#0,d0
	beq	L1baa
	move	#$ffff,d0
	bra	L1bbc

L1baa
	btst	#1,d0
	beq	L1bb6
	move	#1,d0
	bra	L1bbc

L1bb6
	clr	d0
	bra.w	L1b52

L1bbc
	add	d0,L002a
	tst	d0
	beq	L1bf6
	bmi	L1bde
	move	L002e,d1
	cmp	L002a,d1
	bne	L1bdc
	clr	L002a
L1bdc
	bra	L1bf6

L1bde
	tst	L002a
	bpl	L1bf6
	move	L002e,L002a
	subq	#1,L002a
L1bf6
	bsr.w	L1c02
	beq.w	L1bbc
	bra	L1b02

L1c02
	move	L002c,d1
	add	L002a,d1
	move	d1,d2
	andi	#7,d2
	lsr	#3,d1
	lea	$ae2(a6),a0
	btst	d2,0(a0,d1.w)
	rts

L1c20

*	ori.b	#$3c,d0
*L1c24
*	ori.b	#0,d0

	dc	0
*-----------------
L1c22
	move.l	#$800,-(sp)
	.dc	$a049
	addq.l	#4,a7
	move.l	d0,L001e
L1c32
	bsr	L20e6
	bsr	L20b4
	pea	L299f(pc)
	.dc	$a027
	addq.l	#4,a7
	clr	$204(a6)
	move	#$e,-(a7)
	move	#$2b,-(a7)
	move	#2,-(a7)
	move	#$c,-(a7)
	move	#$12,-(a7)
	.dc	$a01f
	lea	$a(a7),a7
	move	d0,-(a7)
	bsr	改行
	move	(a7)+,d0
	bmi	L1ed4
	bne	L1d4a
	move.b	$bc8(a6),d0
	move	d0,L1c20
L1c7a
	pea	L29e6(pc)
	.dc	$a027
	addq.l	#4,a7
	bsr	L1dd8
	tst	d0
	bmi	L1d14
	bsr	L20da
	clr	d0
	bsr	L1ffa
	tst	d0
	bpl	L1cae
	cmpi	#$ffff,d0
	beq.w	L1c32
	move	d0,-(a7)
	bsr	L20b4
	move	(a7)+,d0
	bra.w	L1d14

L1cae
	bsr	L22a0
	move	d0,-(a7)
	move	L1c20,d0
	move.b	d0,$bc8(a6)
	move.b	#8,$e9a007
	move	(a7)+,d0
	bmi.w	L1d2a
	bsr	L20b4
	pea	L29fa(pc)
	.dc	$a027
	addq.l	#4,a7
	move	#1,$914(a6)
	.dc	$a026
	bsr	改行
	lea	$8f4(a6),a0
	move	#$23,d0
L1cec
	clr	(a0)+
	dbf	d0,L1cec
	move	$994(a6),d0
	andi	#7,d0
	move	d0,-(a7)
	.dc	$a036
	addq.l	#2,a7
	move	#1,$940(a6)
	move	#1,$226(a6)
	clr	$8b4(a6)
	bra	L1ed4

L1d14
	cmpi	#$fffe,d0
	bne	L1d26
	bsr	改行
	pea	L2a0d(pc)
	.dc	$a027
	addq.l	#4,a7
L1d26
	bra	L1ed4

L1d2a
	move.l	L0022(pc),-(a7)
	DOS	_MFREE
	addq.l	#4,a7
	bsr	L20b4
	pea	L2a29(pc)
	.dc	$a027
	addq.l	#4,a7
	.dc	$a026
	bsr	改行
	clr	d0
	bra	L1c7a
*------------------------
L1d4a
	pea	L2a3b(pc)
	.dc	$a027
	addq.l	#4,a7
	bsr	L1dd8
	cmpi	#$ffff,d0
	beq.w	L1dd2
	cmpi	#$fffe,d0
	beq	L1d7e
	bsr	L20da
L1d68
	move	#1,d0
	bsr	L1ffa
	cmpi	#$ffff,d0
	beq	L1c32
	cmpi	#$fffe,d0
	bne	L1da4
L1d7e
	bsr	改行
	pea	L2a4f(pc)
	.dc	$a027
	addq.l	#4,a7
	.dc	$a026
	bsr	L20da
	move.b	$3f2(a6),d0
	or.b	$3f3(a6),d0
	btst	#6,d0
	bne	L1d68
	bsr	L217a
	clr	d0
L1da4
	bsr	L223c
	move	#$9170,d1
	move.l	#$3000001,d2
	move.l	#$800,d3
	move.l	L001e,a1
	BSR	B_WRITE
	bsr	L20b4
	pea	L2a6b(pc)
	.dc	$a027
	addq.l	#4,a7
	bra	L1ed4

L1dd2
	bra	L1ed4

L1dd6
	.dc.b	$00,$00
*------------------------
L1dd8
	move	#2,L1dd6
L1de0
	move.l	L001e,a1
	moveq	#$a,d0
L1de8
	clr	(a1)+
	dbf	d0,L1de8
	move	#$9150,d1
	move.l	#$3000001,d2
	move.l	#$800,d3
	move.l	L001e,a1
	BSR	B_READ
	lea	L25e6,a0
	move.l	L001e,a1
	clr	d1
	moveq	#$a,d0
L1e18
	move	(a1)+,d2
	sub	(a0)+,d2
	or	d2,d1
	dbf	d0,L1e18
	tst	d1
	bne	L1e2a
	clr	d0
	rts

L1e2a
	move	#1,$1ca(a6)
	clr	$1c8(a6)
	clr	-(a7)
	pea	L25dc(pc)
	DOS	_OPEN
	addq.l	#6,a7
	clr	$1ca(a6)
	tst	$1c8(a6)
	beq	L1e4e
	move	#$fffe,d0
	rts

L1e4e
	tst.l	d0
	bpl	L1e60
	clr	-(a7)
	pea	L25d2(pc)
	DOS	_OPEN
	addq.l	#6,a7
	tst.l	d0
	bmi	L1eb0
L1e60
	move	d0,-(a7)
	DOS	_CLOSE
	addq.l	#2,a7
*L1e66
*	move	#$9100,d1
*	moveq	#4,d2
*	IOCS	_B_DRVCHK
*	move	#$9100,d1
*	IOCS	_B_EJECT
*	pea	L2a7f(pc)
*	.dc	$a027
*	addq.l	#4,a7
*	.dc	$a026
*	bsr	改行
*	move	#$9100,d1
*	moveq	#5,d2
*	IOCS	_B_DRVCHK
*	andi	#$f,d0
*	cmpi	#2,d0
*	bne	L1e66

*	move.b	$3f2(a6),d0
*	or.b	$3f3(a6),d0
*	btst	#6,d0
*	beq	L1eac
*	moveq	#$ff,d0
*	rts

L1eac
	bra	L1de0

L1eb0
	cmpi	#$fffe,d0
	beq	L1ec4
	cmpi	#$fffd,d0
	beq	L1ec4
	cmpi	#$fff3,d0
	bne	L1de0
L1ec4
	subq	#1,L1dd6
	bne	L1de0
	move	#$fffe,d0
	rts
*----------------------
L1ed4
	move.l	L001e,a1
	moveq	#$a,d0
L1edc
	clr	(a1)+
	dbf	d0,L1edc
	move	#$9150,d1
	move.l	#$3000001,d2
	move.l	#$800,d3
	move.l	L001e,a1
	BSR	B_READ
	lea	L25e6,a0
	move.l	L001e,a1
	clr	d1
	moveq	#$a,d0
L1f0c
	move	(a1)+,d2
	sub	(a0)+,d2
	or	d2,d1
	dbf	d0,L1f0c
	tst	d1
*	beq	L1f3c
*	move	#1,$1ca(a6)
	clr	$1c8(a6)
*	clr	-(a7)
*	pea	L25dc(pc)
*	DOS	_OPEN
*	addq.l	#6,a7
	clr	$1ca(a6)
*	tst	$1c8(a6)
*	bne	L1f3c
*	tst.l	d0
*	bpl	L1f74
*L1f3c
*	move	#$9100,d1
*	moveq	#4,d2
*	IOCS	_B_DRVCHK
*	move	#$9100,d1
*	IOCS	_B_EJECT
*	pea	L2a9f(pc)
*	.dc	$a027
*	addq.l	#4,a7
*	.dc	$a026
*	bsr	改行
*	move	#$9100,d1
*	moveq	#5,d2
*	IOCS	_B_DRVCHK
*	andi	#7,d0
*	cmpi	#2,d0
*	bne	L1f3c
*	bra	L1ed4

L1f74
*	move	d0,-(a7)
*	DOS	_CLOSE
*	addq.l	#2,a7
	.dc	$a00d
	move.l	L001e,-(a7)
	DOS	_MFREE
	addq.l	#4,a7
	tst	$696(a6)
	beq	L1ff8

	.dc	$a037
	move	#$10e,d1
	IOCS	_CRTMOD
	clr	$696(a6)
	tst	$9be(a6)
	beq	L1ff8

	move	$8b6(a6),d1
	tst	$9de(a6)
	beq	L1fe6

	move	$9bc(a6),d0
	lsl	#3,d0
	move.l	$70(a6),a0
	btst	#4,6(a0,d0.w)
	beq	L1fe6

	cmp	#$b,$916(a6)
	bne	L1fd6

	move	#$d0,d1
	move.l	$ac(a6),a1
	lea	$1e00(a1),a1
	move.l	a1,$a0(a6)
	bra	L1fe6

L1fd6
	move	#$c0,d1
	move.l	$ac(a6),a1
	lea	$1c00(a1),a1
	move.l	a1,$a0(a6)
L1fe6
	move	$9a4(a6),d0
	lsl	#2,d0
	andi	#$3fc,d0
	move	d1,-(a7)
	move	d0,-(a7)
	.dc	$a046
	addq.l	#4,a7
L1ff8
	rts
*-----------------------
L1ffa
	link	a5,#-4
	move	d0,-2(a5)
	move.l	L001e,a0
	lea	$16(a0),a0
	move	(a0),d1
	move	d1,-4(a5)
	addq.l	#4,a0
	move	#$18,d2
	subq	#1,d1
L201a
	move	#$10,$200(a6)
	move	d2,$202(a6)
	move.l	a0,-(a7)
	.dc	$a027
	addq.l	#4,a7
	lea	$4c(a0),a0
	addi	#$12,d2
	dbf	d1,L201a
	move.l	L001e,a0
	move	$18(a0),$204(a6)
	move	-4(a5),d1
	tst	-2(a5)
	beq	L206a
	cmpi	#$14,d1
	beq	L206a
	move	d1,$204(a6)
	addq	#1,d1
	move	#$10,$200(a6)
	move	d2,$202(a6)
	pea	L2ab9(pc)
	.dc	$a027
	addq.l	#4,a7
L206a
	move	#$10,-(a7)
	move	#$1f,-(a7)
	move	d1,-(a7)
	move	#$29,-(a7)
	move	#$12,-(a7)
	.dc	$a01f
	lea	$a(a7),a7
	tst	d0
	bmi	L20b0
	tst	-2(a5)
	beq	L20b0
	move	d0,$18(a0)
	cmp	-4(a5),d0
	bcs	L209a
	addq	#1,$16(a0)
L209a
	move	d0,-(a7)
	bsr	L2300
	bpl	L20a8
	addq.l	#2,a7
	unlk	a5
	rts

L20a8
	move	(a7),d0
	bsr	L2550
	move	(a7)+,d0
L20b0
	unlk	a5
	rts

L20b4
	move	#$1c,-(a7)
	.dc	$a007
	addq.l	#2,a7
	pea	L20ca(pc)
	.dc	$a00e
	addq.l	#4,a7
	clr	$210(a6)
	rts

L20ca
	.dc.b	$00,$66,$00,$d4,$01,$99,$01,$2b,$12,$0c,$0a,$08,$07,$01,$1f,$00
L20da
	move	d0,-(a7)
	.dc	$a00d
	bsr.w	L20e6
	move	(a7)+,d0
	rts

L20e6
	clr	-(a7)
	move	#$ffff,-(a7)
	.dc	$a046
	addq.l	#4,a7
	tst	$696(a6)
	bne	L2132
	.dc	$a037
	.dc	$a031
	clr	d1
	IOCS	_CONTRAST
	move	d0,-(a7)
	move	#$10c,d1
	IOCS	_CRTMOD
	move	(a7)+,d0
	move	#1,$696(a6)
	clr.l	$666(a6)
	move	#1,$664(a6)
	move	#1,$65c(a6)
	pea	L2154(pc)
	.dc	$a00e
	addq.l	#4,a7
L212a
	tst	$65c(a6)
	bne	L212a
	.dc	$a038
L2132
	move	#$1c,-(a7)
	.dc	$a007
	addq.l	#2,a7
	clr	$3b0(a6)
	.dc	$a00a
	move	#$f,$8b4(a6)
	pea	L2154(pc)
	.dc	$a00e
	addq.l	#4,a7
	clr	$210(a6)
	rts

L2154
	.dc.b	$00,$00,$00,$00,$01,$ff,$01,$bf,$12,$0c,$08,$08,$07,$09,$27,$47
	.dc.b	$41,$4d,$45,$20,$44,$41,$54,$41,$53,$20,$4c,$4f,$41,$44,$20,$26
	.dc.b	$20,$53,$41,$56,$45,$00
L217a
	movem.l	d0-d5/a0-a1,-(a7)
	move.l	L001e,a0
	move	#$3ff,d0
L2188
	clr	(a0)+
	dbf	d0,L2188
	move.l	L001e,a0
	lea	L25e6,a1
	moveq	#$a,d0
L219c
	move	(a1)+,(a0)+
	dbf	d0,L219c
	move	#1,(a0)+
	clr	(a0)+
	clr	d1
	bsr.w	L21c4
	bsr	改行
	clr	d0
	bsr	L2300
	clr	d0
	bsr	L2550
	movem.l	(a7)+,d0-d5/a0-a1
	rts

L21c4
	link	a5,#-36
	move.l	#$3000000,-$24(a5)
	move.b	d1,-$23(a5)
	move.l	-$24(a5),d1
	lsl.l	#8,d1
	move	#$103,d1
	lea	-$20(a5),a1
	moveq	#7,d0
L21e4
	move.l	d1,(a1)+
	addi	#$100,d1
	dbf	d0,L21e4
	move	#$9170,d1
	move.l	-$24(a5),d2
	move	#$20,d3
	lea	-$20(a5),a1
	IOCS	_B_FORMAT
	unlk	a5
	rts
*----------------------
L2206
	addq	#1,d2
	swap	d2
	clr	d2
	ori.l	#$3000001,d2
	move	#$9170,d1
	move.l	#$1400,d3
	move.l	L0022,a1
	rts
*--------------------
L2224
	move.l	L0022,a1
	move.l	#$4bd,d1
	move	#$8ff,d0
L2234
	add	(a1)+,d1
	dbf	d0,L2234
	rts
*---------------------
L223c
	move	d0,-(a7)
	move	d0,d1
	addq	#1,d1
	bsr.w	L21c4
	move.l	#$1400,-(a7)
	.dc	$a049
	addq.l	#4,a7
	move.l	d0,L0022
	lea	$94a(a6),a2
	move.l	L0022,a1
	move	#$ff,d1
	clr	d2
L2266
	cmpi	#$cf,d1
	bne	L2270
	move.l	$78(a6),a2
L2270
	.dc	$a025
	move	d0,(a1)+
	eor	d0,d2
	moveq	#7,d0
L2278
	move	(a2)+,(a1)
	eor	d2,(a1)+
	dbf	d0,L2278
	dbf	d1,L2266
	bsr.w	L2224
	move	d1,(a1)
	move	(a7)+,d2
	bsr	L2206
	BSR	B_WRITE
	move.l	L0022,-(a7)
	DOS	_MFREE
	addq.l	#4,a7
	rts
*-----------------------
L22a0
	move	d0,-(a7)
	move.l	#$1400,-(a7)
	.dc	$a049
	addq.l	#4,a7
	move.l	d0,L0022
	move	(a7)+,d2
	bsr	L2206
	BSR	B_READ
	bsr	L2224
	cmp	(a1),d1
	beq	L22c8
	moveq	#$ff,d0
	rts

L22c8
	lea	$94a(a6),a2
	move.l	L0022,a1
	move	#$ff,d1
	clr	d2
L22d8
	cmpi	#$cf,d1
	bne	L22e2
	move.l	$78(a6),a2
L22e2
	move	(a1)+,d0
	eor	d0,d2
	moveq	#7,d0
L22e8
	move	(a1)+,(a2)
	eor	d2,(a2)+
	dbf	d0,L22e8
	dbf	d1,L22d8
	move.l	L0022(pc),-(a7)
	DOS	_MFREE
	addq.l	#4,a7
	clr	d0
	rts

L2300
	link	a5,#-78
	movem.l	d0-d7/a0/a2-a4,-(a7)
	move	d0,-$12(a5)
	bsr	L20b4
	pea	L2ae4(pc)
	.dc	$a027
	addq.l	#4,a7
	lea	-$44(a5),a4
	clr	-$46(a5)
	move.l	$200(a6),-$4e(a5)
	IOCS	_B_SFTSNS
	move	d0,-$4a(a5)
	clr.b	-8(a5)
	lea	-8(a5),a1
	lea	-$10(a5),a2
L233a
	IOCS	_B_KEYSNS
	tst.l	d0
	beq	L2348
	IOCS	_B_KEYINP
	bra	L233a

L2348
	.dc	$a02f
L234a
	.dc	$a00f
L234c
	.dc	$a011
	.dc	$a002
	IOCS	_B_SFTSNS
	move	-$4a(a5),-$48(a5)
	move	d0,-$4a(a5)
	IOCS	_B_KEYSNS
	tst.l	d0
	beq	L236e
	IOCS	_B_KEYINP
	andi	#$ff,d0
L236e
	btst	#5,$3f2(a6)
	beq	L237a
	move	#$d,d0
L237a
	tst	d0
	beq.w	L234c
	move	d0,-(a7)
	.dc	$a010
	move	(a7)+,d0
	cmpi	#8,d0
	beq.w	L2404
	cmpi	#$d,d0
	beq	L242a
	cmpi	#$1b,d0
	beq	L24b2
	cmpi	#$20,d0
	bcs.w	L234a
	move	-$4a(a5),d1
	move	-$48(a5),d2
	eor	d2,d1
	andi	#$a0,d1
	beq	L23d0
	btst	#1,-$4a(a5)
	bne	L23c8
	lea	-8(a5),a3
	bsr	L24c2
	bra	L23cc

L23c8
	clr.b	-8(a5)
L23cc
	bra	L234a

L23d0
	btst	#1,-$4a(a5)
	beq	L23ec
	move	d0,d1
	IOCS	_RMACNV
	subq	#1,d0
	bmi	L23ea
	lea	-$10(a5),a3
	bsr	L24c2
L23ea
	bra	L2400

L23ec
	clr	d1
	btst	#5,-$4a(a5)
	bne	L23f8
	addq	#1,d1
L23f8
	swap	d1
	move	d0,d1
	bsr	L24de
L2400
	bra	L234a

L2404
	tst	-$46(a5)
	beq	L234a
	subq	#1,-$46(a5)
	subq.l	#2,a4
	sub	#$c,$200(a6)
	move	#$20,-(a7)
	.dc	$a001
	addq.l	#2,a7
	sub	#$c,$200(a6)
	bra	L234a

L242a
	bsr	L20da
	btst	#1,-$4a(a5)
	bne	L243e
	lea	-8(a5),a3
	bsr	L24c2
L243e
	moveq	#$20,d1
	move	-$12(a5),d0
	addq	#1,d0
	cmpi	#$14,d0
	bne	L2452
	moveq	#$32,d1
	moveq	#$30,d0
	bra	L2464

L2452
	cmpi	#$a,d0
	bcs	L2460
	moveq	#$31,d1
	addi	#$26,d0
	bra	L2464

L2460
	addi	#$30,d0
L2464
	move.b	d1,L25fd
	move.b	d0,L25fe
	move	-$12(a5),d0
	muls	#$4c,d0
	move.l	L001e,a0
	lea	$1a(a0,d0.w),a0
	lea	L25fc(pc),a1
	moveq	#$1a,d0
L2488
	move.b	(a1)+,(a0)+
	dbf	d0,L2488
	lea	-$44(a5),a1
	tst.b	(a1)
	beq	L24a8
	move	-$46(a5),d0
	beq	L24a6
	subq	#1,d0
L249e
	move.b	(a1)+,(a0)+
	move.b	(a1)+,(a0)+
	dbf	d0,L249e
L24a6
	clr.b	(a0)
L24a8
	movem.l	(a7)+,d0-d7/a0/a2-a4
	clr	d0
	unlk	a5
	rts

L24b2
	bsr	L20da
	movem.l	(a7)+,d0-d7/a0/a2-a4
	move	#$ffff,d0
	unlk	a5
	rts

L24c2
	clr	d1
	btst	#5,-$4a(a5)
	bne	L24ce
	addq	#1,d1
L24ce
	swap	d1
	clr	d1
	move.b	(a3)+,d1
	beq	L24dc
	bsr.w	L24de
	bra	L24c2

L24dc
	rts

L24de
	move.l	a1,-(a7)
	clr.b	(a4)
	cmpi.b	#$de,d1
	bne	L24f0
	move.l	a4,a1
	IOCS	_DAKJOB
	bra	L24fc

L24f0
	cmpi.b	#$df,d1
	bne	L251e
	move.l	a4,a1
	IOCS	_HANJOB
L24fc
	tst	d0
	beq	L2512
	cmp	#$14,-$46(a5)
	bcc	L253c
	addq	#1,-$46(a5)
	addq.l	#2,a4
	move	d1,d0
	bra	L2536

L2512
	sub	#$c,$200(a6)
	move	-2(a4),d0
	bra	L2536

L251e
	cmp	#$14,-$46(a5)
	bge	L253c
	IOCS	_AKCONV
	cmpi	#$ffff,d0
	beq	L253c
	addq	#1,-$46(a5)
	move	d0,(a4)+
L2536
	move	d0,-(a7)
	.dc	$a001
	addq.l	#2,a7
L253c
	move.l	(a7)+,a1
	rts

L2540
	.dc.b	$00,$60,$00,$d8,$01,$9f,$01,$27,$10,$0c,$0a,$08,$07,$0a,$1f,$00
L2550
	muls	#$4c,d0
	move.l	L001e,a0
	lea	$1f(a0,d0.w),a0
	IOCS	_DATEGET
	move.l	d0,d1
	IOCS	_DATEBIN
	move.l	d0,d1
	andi.l	#$fffffff,d1
	ori.l	#$20000000,d1
	lea	L2617(pc),a1
	IOCS	_DATEASC
	lea	L2617(pc),a1
	move.b	(a1),(a0)+
	move.b	1(a1),(a0)+
	addq.l	#2,a0
	move.b	3(a1),(a0)+
	move.b	4(a1),(a0)+
	addq.l	#2,a0
	move.b	6(a1),(a0)+
	move.b	7(a1),(a0)+
	addq.l	#3,a0
	IOCS	_TIMEGET
	move.l	d0,d1
	IOCS	_TIMEBIN
	move.l	d0,d1
	lea	L2617(pc),a1
	IOCS	_TIMEASC
	lea	L2617(pc),a1
	move.b	(a1),(a0)+
	move.b	1(a1),(a0)+
	addq.l	#2,a0
	move.b	3(a1),(a0)+
	move.b	4(a1),(a0)+
	rts

改行	*L25c8
	pea	L2b03(pc)
	.dc	$a027
	addq.l	#4,a7
	rts

L25d2
	.dc.b	'B:adisksc',$00
L25dc
	.dc.b	'B:bdisksc',$00
L25e6
	.dc.b	'STAR CRUISER USER DISK'
L25fc
	.dc.b	$05
L25fd
	.dc.b	$30
L25fe
	.dc.b	$30,$3a,$07,$30,$30,$94,$4e,$30,$30,$8c,$8e,$30,$30,$93,$fa,$20
	.dc.b	$30,$30,$8e,$9e,$30,$30,$95,$aa,$2f
L2617
	.dc.b	'00000000000'
L2622
	.dc.b	'シールドｦ補強するには',$0d,'エネルギーが不足ｼﾃｲﾏｽ｡',$0d,$00
L2650
	.dc.b	'故障ｼﾃｲﾙ所ﾊｱﾘﾏｾﾝ｡',$0d,$00
L2663
	.dc.b	'SHIELD',$0d,$00
L266b
	.dc.b	'RADAR',$0d,$00
L2672
	.dc.b	'ENGINE',$0d,$00
L267a
	.dc.b	'NAVIGATOR',$0d,$00
L2685
	.dc.b	'WEAPON',$0d,$00
L268d
	.dc.b	'FUEL TANK',$0d,$00
L2698
	.dc.b	'CARGO ROOM',$00
L26a3
	.dc.b	$0d,'EXIT',$00
L26a9
	.dc.b	'修理ユニットがありません。',$0d,$00
L26c5
	.dc.b	'使用出来るアイテムｦ持ｯﾃｲﾏｾﾝ｡',$0d,$00
L26e3
	.dc.b	'古代兵器を作動させるには、',$0d,'エネルギーが不足ｼﾃｲﾏｽ｡',$0d
	.dc.b	$00
L2716
	.dc.b	'ｦ使ｲ､30000',$00
L2721
	.dc.b	'透過壁センサを作動させるには、',$0d,'エネルギーが不足ｼﾃｲﾏｽ｡'
	.dc.b	$0d,$00
L2758
	.dc.b	'透過壁のスキャニングを開始、500',$00
L2778
	.dc.b	'鉱石加工機ｦ､装備ｼﾃｲﾏｾﾝ｡',$0d,$00
L2791
	.dc.b	'今ﾉ装備でﾊ加工',$00
L27a0
	.dc.b	'ｦ作ﾙﾆﾊ､',$00
L27a8
	.dc.b	'ｦ1個製造ｼﾏｼﾀ｡',$0d,$00
L27b7
	.dc.b	'ﾊ､ｺﾚ以上持ﾃﾏｾﾝ｡',$00
L27c7
	.dc.b	$1f,$0c,$00
L27ca
	.dc.b	'損傷箇所ｦ修理ｼﾃ下ｻｲ｡',$0d,$00
L27e0
	.dc.b	'エネルギーが不足ｼﾃｲﾏｽ｡',$0d,$00
L27f8
	.dc.b	$0d,$00
L27fa
	.dc.b	$0d,$00
L27fc
	.dc.b	$1e,$d5,$c6,$af,$c4,$82,$cc,$b4,$c8,$d9,$83,$4d,$b0,$1e,$a6,$8f
	.dc.b	$c1,$94,$ef,$bc,$cf,$bc,$c0,$a1,$0d,$00
L2816
	.dc.b	$81,$7e,$10,$02,$22,$00
L281c
	.dc.b	'出来ﾏｾﾝ｡',$0d,$00
L2826
	.dc.b	'が不足ｼﾃｲﾏｽ｡',$0d,$00
L2834
	.dc.b	$0b,$57,$45,$41,$50,$4f,$4e,$28,$42,$45,$41,$4d,$29,$0d,$57,$45
	.dc.b	$41,$50,$4f,$4e,$28,$4d,$49,$53,$53,$49,$4c,$45,$29,$0d,$45,$4e
	.dc.b	$47,$49,$4e,$45,$0d,$53,$48,$49,$45,$4c,$44,$0d,$52,$41,$44,$41
	.dc.b	$52,$0d,$00
L2867
	.dc.b	'BEAM BOOSTER',$0d,$00
L2875
	.dc.b	'CONVERTER',$0d,$00
L2880
	.dc.b	'ビｰム',$00
L2886
	.dc.b	'BEAMS',$00
L288c
	.dc.b	'ミサイル',$00
L2895
	.dc.b	'MISSILES',$00
L289e
	.dc.b	'エンジン',$00
L28a7
	.dc.b	'ENGINES',$00
L28af
	.dc.b	'シｰルド',$00
L28b7
	.dc.b	'SHIELDS',$00
L28bf
	.dc.b	'レｰダｰ',$00
L28c6
	.dc.b	'RADARS',$00
L28cd
	.dc.b	'ビｰムブｰスタｰ',$00
L28db
	.dc.b	'B.BOOSTERS',$00
L28e6
	.dc.b	'鉱石加工機',$00
L28f1
	.dc.b	'CONVERTERS',$00
L28fc
	.dc.b	'ｦ持ｯﾃｲﾏｾﾝ｡',$0d,$00
L2908
	.dc.b	'船体ｦ改造ｼﾅｹﾚば装備',$00
L291c
	.dc.b	'既ﾆ装備ｼﾃｲﾏｽ｡',$0d,$00
L292b
	.dc.b	'ｦ装備ｼﾏｼﾀ｡',$0d,$00
L2937
	.dc.b	$a6,$00
L2939
	.dc.b	'ﾆ変更ｼﾏｽ｡',$0d,$00
L2944
	.dc.b	'情報ｦ持ｯﾃｲﾏｾﾝ｡',$0d,$00
L2954
	.dc.b	'出来ﾏｾﾝ｡',$0d,$00
L295e
	.dc.b	'何ﾓ記録ｻﾚﾃｲﾏｾﾝ｡',$0d,$00
L296f
	.dc.b	$09,$00,$04,$81,$ab,$81,$aa,$82,$c5,$91,$bc,$82,$f0,$91,$49,$91
	.dc.b	$f0,$bc,$a4,$0d,$52,$45,$54,$82,$c5,$95,$5c,$8e,$a6,$a4,$45,$53
	.dc.b	$43,$82,$c5,$8f,$49,$97,$b9,$bc,$cf,$bd,$a1,$09,$00,$00,$05,$00
L299f
	.dc.b	$05,$81,$9a,$81,$9a,$20,$83,$66,$b0,$83,$5e,$c9,$83,$8d,$b0,$83
	.dc.b	$68,$a5,$83,$5a,$b0,$83,$75,$20,$81,$9a,$81,$9a,$0d,$20,$0d,$04
	.dc.b	$20,$81,$9a,$07,$83,$66,$b0,$83,$5e,$a6,$83,$8d,$b0,$83,$68,$bd
	.dc.b	$d9,$a1,$0d,$06,$20,$81,$9a,$07,$83,$66,$b0,$83,$5e,$a6,$83,$5a
	.dc.b	$b0,$83,$75,$bd,$d9,$a1,$00
L29e6
	.dc.b	$0a
	.dc.b	'デｰタｦロｰドｼﾏｽ｡',$0d,' ',$0d,$00
L29fa
	.dc.b	$0a
	.dc.b	'ロｰドがｵﾜﾘﾏｼﾀ｡',$0d,' ',$0d,$00
L2a0d
	.dc.b	$0a
	.dc.b	'ｺﾉディスクﾊ､ロｰド出来ﾏｾﾝ｡',$0d,$00
L2a29
	.dc.b	$0a
	.dc.b	'ｺﾉデｰタﾊ異常でｽ｡',$00
L2a3b
	.dc.b	$0a
	.dc.b	'デｰタｦセｰブｼﾏｽ｡',$0d,' ',$0d,$00
L2a4f
	.dc.b	$07,$0a
	.dc.b	'新ｼｲディスクﾆ登録ｦ始ﾒﾏｽ｡',$0d,$00
L2a6b
	.dc.b	$07,$0a
	.dc.b	'セｰブがｵﾜﾘﾏｼﾀ｡',$0d,' ',$0d,$00
L2a7f	.dc.b	'ユーザーディスクをセットして、',$0d,$00
L2a9f	.dc.b	'Ｂディスクをセットして、',$0d,$00
L2ab9
	.dc.b	$06,$2a,$2a,$2a,$2a,$2a,$2a,$2a,$2a,$2a,$2a,$2a,$2a,$20,$4d,$41
	.dc.b	$4b,$45,$20,$4e,$45,$57,$20,$46,$49,$4c,$45,$20,$2a,$2a,$2a,$2a
	.dc.b	$2a,$2a,$2a,$2a,$2a,$2a,$2a,$2a,$2a,$07,$00
L2ae4	.dc.b	'ファイル名を入力して下さい。',$0d,'>',$00
L2b03
	.dc.b	$0c,$00,$00

	include	B_RW.has

*	.data


*	.bss

L2b06

	.end	L0000