After a bit more work, the definitions file for mbx_MM52664MBX-N_ROM.bin is improving somewhat:

----------------------------------------------
mbx_MM52664MBX-N_ROM.defs
---------------------------------------------
org=0xe000 
fcb=0xf961,0xfa61 
fcb=0xfed9,0xffef 
fdb=0xfff0,0xffff 
label=0xe000,l_reset 
label=0xe0e7,l_firq 
label=0xe0ec,l_irq
# label=0x38,dp_high
comment=0xe008,"Probably unrelated to DP."
label=0x3800,V_FIRQ
label=0x3800,dp_base
label=0x3802,V_IRQ
label=0x3804,V_UNK
label=0x3834,BU_001
# label=0x79,flag_dp79
label=0x3879,flag_3879
label=0x4800,stkbase
label=0xa600,dev01_0
label=0xa601,dev01_1
label=0xa602,dev01_2
label=0xa603,dev01_3
label=0xc000,dev_02_0
label=0xc001,dev_02_1
label=0xc002,dev_02_2
label=0xc003,dev_02_3
comment=0xe013,"Init RAM to descending sequence."
comment=0xe014,"4K RAM from 3800 to 4800?"
label=0xe014,il_001
comment=0xe020,"Flag79 zeroed after reset."
comment=0xe024,"Force non-zero flags to $02."
label=0xe028,do_cksm
label=0xe02c,ck_lup
comment=0xe02c,"Simple ROM space checksum?"
comment=0xe02e,"End of ROM, address space"
comment=0xe035,"initialize device 01"
comment=0xe037,"Flag something changed."
label=0xe03d,ini_dev01
comment=0xe03d,"dev01 at $a600~a603"
comment=0xe06f,"Enable FIRQ interrupt only."
comment=0xe074,"Enable both FIRQ and IRQ interrupts."
label=0xe079,lu_e079
comment=0xe079,"Mask out both FIRQ and IRQ interrupts."
label=0xe087,s_0003
comment=0xe087,"-- Probably -- Initialize dev01."
comment=0xe0a9,"Initialize V_FIRQ"
comment=0xe0b3,"Initialize V_UNK"
comment=0xe0be,"Clear 8 byte buffer? or 24 byte waveform?"

label=0xe0e1,ini_IRQV
comment=0xe0e4,"Initialize V_IRQ"

label=0xe121,lu_e121

label=0xe669,lu_e669

label=0xe6ea,s_0001
label=0xe6c5,s_0002
label=0xe998,su_e998

label=0xf412,su_f412
label=0xf423,su_f423
label=0xf430,su_f430
label=0xf436,su_f436
label=0xf43b,su_f43b
label=0xf961,zb_001
label=0xfb19,su_fb19
label=0xfb1b,su_fb1b
label=0xfee2,zb_002
label=0xfee0,zzzz
label=0xfff0,int_vect

==========================

Again, invoke the definitions with something like this:
 ----------------------------
 perl '~/xroar/tools/6809dasm.pl' org=0xe000 include=mbx_MM52664MBX-N_ROM.defs mbx_MM52664MBX-N_ROM.bin >mbx_MM52664MBX-N_ROM.asm
 ================
 
 The output is this:
 ---------------------------------------------
mbx_MM52664MBX-N_ROM.asm
---------------------------------------------
		org	$e000
L_02D5			equ	$02d5
L_03DE			equ	$03de
L_0405			equ	$0405
L_0AA4			equ	$0aa4
dp_base			equ	$3800
V_IRQ			equ	$3802
V_UNK			equ	$3804
BU_001			equ	$3834
flag_3879		equ	$3879
L_3E40			equ	$3e40
stkbase			equ	$4800
dev01_0			equ	$a600
dev01_1			equ	$a601
dev01_2			equ	$a602
dev01_3			equ	$a603
dev_02_0		equ	$c000
dev_02_1		equ	$c001
dev_02_2		equ	$c002
dev_02_3		equ	$c003
l_reset		lda	#$38
		tfr	a,dp
		lds	#stkbase
		lda	#$38	; Probably unrelated to DP.
		sta	>dev01_1
		ldx	#dp_base
		clra	
		sta	,x+
		deca		; Init RAM to descending sequence.
il_001		sta	,x+	; 4K RAM from 3800 to 4800?
		cmpx	#stkbase
		bne	il_001
		ldx	#dp_base
		lda	,x
		sta	<$79	; Flag79 zeroed after reset.
		beq	do_cksm
		lda	#$02	; Force non-zero flags to $02.
		sta	<$79
do_cksm		clra	
		ldx	#l_reset
ck_lup		adda	,x+	; Simple ROM space checksum?
		cmpx	#$0000	; End of ROM, address space
		bne	ck_lup
		cmpa	#$00
		beq	ini_dev01	; initialize device 01
		lda	#$01	; Flag something changed.
		ora	<$79
		sta	<$79
ini_dev01	lda	#$3e	; dev01 at $a600~a603
		sta	>dev01_1
		ldb	>dev01_1
		andb	#$7f
		cmpb	#$3e
		bne	L_E059
		sta	>dev01_3
		ldb	>dev01_3
		andb	#$7f
		cmpb	#$3e
		bne	L_E059
		beq	L_E05F
L_E059		lda	#$10
		ora	<$79
		sta	<$79
L_E05F		jsr	>s_0001
		jsr	>s_0002
		jsr	>su_f436
		jsr	>s_0003
		tst	<$79
		bne	L_E074
		andcc	#$bf	; Enable FIRQ interrupt only.
		jsr	>su_fb1b
L_E074		andcc	#$af	; Enable both FIRQ and IRQ interrupts.
		jmp	>lu_e669
lu_e079		orcc	#$50	; Mask out both FIRQ and IRQ interrupts.
		lds	#stkbase
		jsr	>s_0003
		andcc	#$af
		jmp	>lu_e669
s_0003		clra		; -- Probably -- Initialize dev01.
		sta	>dev01_1
		sta	>dev01_3
		sta	>dev01_0
		coma	
		sta	>dev01_2
		lda	#$34
		sta	>dev01_3
		lda	#$3e
		sta	>dev01_1
		lda	#$ff
		sta	>dev01_2
		clr	<$06
		ldx	#su_f430
		stx	<$00	; Initialize V_FIRQ
		ldx	#$380b
		stx	<$09
		ldx	#lu_e079
		stx	<$04	; Initialize V_UNK
		jsr	>ini_IRQV
		jsr	>su_e998
		jsr	>su_f43b
		ldx	#BU_001	; Clear 8 byte buffer? or 24 byte waveform?
		ldb	#$08
		clra	
L_E0C4		sta	,x+
		decb	
		bne	L_E0C4
		ldb	#$10
		coma	
L_E0CC		sta	,x+
		decb	
		bne	L_E0CC
		clra	
		sta	<$33
		sta	<$4d
		sta	<$4e
		sta	<$51
		sta	<$73
		lda	#$04
		sta	<$74
		rts	
ini_IRQV	ldx	#lu_e121
		stx	<$02	; Initialize V_IRQ
		rts	
l_firq		jmp	[$3800]
		rti	
l_irq		jmp	[$3802]
		jmp	[$3804]
		lda	#$36
		sta	>dev01_1
L_E0F9		lda	>dev01_0
		anda	#$c0
		bne	L_E105
		jsr	>$e32b
		bra	L_E0F9
L_E105		cmpa	#$80
		bne	L_E14E
		jsr	>$e374
		ldx	#$e15e
		ldy	#$e16f
		jsr	>$fbcf
		cmpy	#$e1ff
		bne	L_E14E
		jsr	>$e1ff
		bra	L_E139
lu_e121		lda	#$36
		sta	>dev01_1
L_E126		lda	>dev01_0
		anda	#$c0
		bne	L_E132
		jsr	>$e32b
		bra	L_E126
L_E132		cmpa	#$80
		bne	L_E14E
		jsr	>$e374
L_E139		jsr	>$e15e
		jsr	>$fd3e
		jsr	>$e1c8
		tst	<$06
		lbne	lu_e079
		jsr	>$e394
		jsr	>$e4ba
L_E14E		ldb	#$ff
		stb	>dev01_2
		lda	#$3e
		sta	>dev01_1
		jsr	>$f065
		rti	
		sbcb	12,s
L_E15E		ldx	#$e15e
		ldy	#$e16f
		jsr	>$fbcf
		jsr	,y
		bra	L_E15E
		leas	2,s
		rts	
		com	<$e1
		inc	3,x
		ldb	>$148f
		lda	#$00
		eorb	-15,y
		ldb	>$6f03
		ldb	>$5900
		ldb	>$7de7
		ldd	<$03
		fcb	$e8,$00         ; eorb 0,x
		lda	#$00
		fcb	$e7,$a7         ; stb 
		eorb	12,y
		com	<$e8
		fcb	$15             ; hcf 
		lda	#$00
		stb	-1,u
		bitb	>$faa4
		eora	<$8c
		lda	#$00
		stb	-8,y
		stb	>L_E288,pcr
		andcc	#$e7
		adca	#$86
		neg	<$e7
		cmpa	<$e7
		fcb	$a1,$00         ; cmpa 0,x
		stb	,u++
		fcb	$e7,$9a         ; stb []
		lda	#$00
		fcb	$e1,$ec,$e2     ; cmpb <$e196,pcr
		lsrb	
		neg	<$e9
		eora	<$e1
		stu	>$8600
		sbcb	-8,x
		sbcb	-7,y
		com	<$e2
		dec	<$00
		fcb	$e6,$cc,$e0     ; ldb <$e1a7,pcr
		subb	>$8600
		jsr	>$e1df
		ldy	#$380b
L_E1D1		jsr	>$e299
		cmpy	<$09
		blt	L_E1D1
		ldx	#$380b
		stx	<$09
		rts	
		ldx	<$09
		pshs	cc
		orcc	#$10
		sta	,x+
		stx	<$09
		puls	cc
		rts	
		jsr	>$e28b
		tsta	
		bpl	L_E1F8
		ldb	#$01
		stb	<$33
		anda	#$7f
L_E1F8		sta	<$4d
		sta	<$4e
		clr	<$51
		rts	
		lda	#$1e
		sta	<$06
		jsr	>$e1df
		jsr	>ini_IRQV
		rts	
		jsr	>$e28b
		sta	<$76
		jsr	>$e28b
		sta	<$77
		jmp	[$3876]
		jsr	>$e28b
		sta	<$76
		jsr	>$e28b
		sta	<$77
		jsr	>$e27f
		sta	<$78
		ldy	<$76
		lda	#$0d
		jsr	>$e1df
L_E22F		lda	,y+
		jsr	>$e1df
		dec	<$78
		bne	L_E22F
		rts	
		jsr	>$e28b
		sta	<$76
		jsr	>$e28b
		sta	<$77
		ldx	<$76
		jsr	>$e27f
		sta	<$78
L_E24A		jsr	>$e28b
		sta	,x+
		dec	<$78
		bne	L_E24A
		rts	
		jsr	>$e28b
		sta	<$72
		jsr	>$e28b
		tfr	a,b
		andb	#$f0
		stb	<$75
		anda	#$0f
		sta	<$73
		lda	#$04
		sta	<$74
		rts	
		rts	
		clr	<$08
		jsr	>$e33e
		rora	
		rts	
		ldb	#$02
		bra	L_E28D
		ldb	#$03
		bra	L_E28D
		ldb	#$04
		bra	L_E28D
		ldb	#$05
		bra	L_E28D
		ldb	#$06
		bra	L_E28D
L_E287		ldb	#$07
L_E288			equ	L_E287+1
		bra	L_E28D
		ldb	#$08
L_E28D		clr	<$08
		stb	<$07
L_E291		jsr	>$e33e
		dec	<$07
		bne	L_E291
		rts	
		leax	>L_E327,pcr
		clra	
		lsr	,y
		rola	
		lsr	,y
		rola	
		lda	a,x
L_E2A6		ldb	>dev01_0
		andb	#$c0
		bne	L_E2B1
		bsr	L_E32B
		bra	L_E2A6
L_E2B1		cmpb	#$40
		bne	L_E2A6
		sta	>dev01_2
		clra	
		lsr	,y
		rola	
		lsr	,y
		rola	
		lda	a,x
		coma	
L_E2C2		ldb	>dev01_0
		andb	#$c0
		bne	L_E2CD
		bsr	L_E32B
		bra	L_E2C2
L_E2CD		cmpb	#$80
		bne	L_E2C2
		sta	>dev01_2
		clra	
		lsr	,y
		rola	
		lsr	,y
		rola	
		lda	a,x
L_E2DD		ldb	>dev01_0
		andb	#$c0
		bne	L_E2E8
		bsr	L_E32B
		bra	L_E2DD
L_E2E8		cmpb	#$40
		bne	L_E2DD
		sta	>dev01_2
		clra	
		lsr	,y
		rola	
		lsr	,y
		rola	
		lda	a,x
		coma	
L_E2F9		ldb	>dev01_0
		andb	#$c0
		bne	L_E304
		bsr	L_E32B
		bra	L_E2F9
L_E304		cmpb	#$80
		bne	L_E2F9
		sta	>dev01_2
L_E30B		ldb	>dev01_0
		andb	#$c0
		bne	L_E316
		bsr	L_E32B
		bra	L_E30B
L_E316		cmpb	#$40
		bne	L_E30B
		ldb	#$ff
		stb	>dev01_2
		lda	#$11
L_E321		deca	
		bpl	L_E321
		leay	1,y
		rts	
L_E327		ldu	>$fbfd
L_E32A		stb	>$3402
L_E32B			equ	L_E32A+1
		lda	#$0f
L_E32F		deca	
		bgt	L_E32F
		lda	>dev01_0
		anda	#$c0
		bne	L_E33C
		jmp	>lu_e079
L_E33C		puls	a,pc
L_E33E		lda	>dev01_0
		anda	#$c0
		bne	L_E349
		bsr	L_E32B
		bra	L_E33E
L_E349		cmpa	#$c0
		beq	L_E33E
		clr	>dev01_2
		lsl	<$08
L_E352		lda	>dev01_0
		anda	#$c0
		bne	L_E35D
		bsr	L_E32B
		bra	L_E352
L_E35D		cmpa	#$40
		beq	L_E367
		lda	#$01
		ora	<$08
		sta	<$08
L_E367		lda	<$08
		ldb	#$ff
		stb	>dev01_2
		ldb	#$0b
L_E370		decb	
		bpl	L_E370
		rts	
		clr	>dev01_2
		ldb	#$04
L_E379		lda	>dev01_0
		anda	#$c0
		cmpa	#$40
		beq	L_E389
		nop	
		decb	
		bpl	L_E379
		jmp	>lu_e079
L_E389		ldb	#$ff
		stb	>dev01_2
		ldb	#$0d
L_E390		decb	
		bpl	L_E390
		rts	
		lda	#$3e
		sta	>dev01_1
		lda	<$4e
		bne	L_E39E
		rts	
L_E39E		dec	<$4e
		bne	L_E3CC
		lda	<$4d
		sta	<$4e
		lda	<$51
		beq	L_E3B9
		clr	<$51
		ldb	#$3c
		stb	>dev01_3
L_E3B1		decb	
		bne	L_E3B1
		ldb	#$34
		stb	>dev01_3
L_E3B9		lda	#$01
		jsr	>$e1df
		lda	<$4f
		jsr	>$e1df
		tst	<$33
		beq	L_E3CC
		lda	<$50
		jsr	>$e1df
L_E3CC		ldx	#BU_001
		lda	#$fe
L_E3D1		ldb	$10,x
		eorb	8,x
		andb	8,x
		stb	<$4c
		ldb	8,x
		stb	$10,x
		sta	>dev01_2
		ldb	>dev01_0
		stb	8,x
		ldb	<$4c
		andb	8,x
		orb	,x
		stb	,x
		leax	1,x
		orcc	#$01
		rola	
		bcs	L_E3D1
		lda	#$40
		sta	<$4c
		tst	<$33
		bne	L_E40A
		bsr	L_E42C
		cmpa	<$4f
		beq	L_E44F
		sta	<$4f
		sta	<$51
		bra	L_E44F
L_E40A		lda	#$20
		sta	<$4c
		bsr	L_E42C
		cmpa	<$4f
		beq	L_E41A
		sta	<$4f
		ora	<$51
		sta	<$51
L_E41A		clrb	
		ldx	#$3838
		bsr	L_E430
		cmpa	<$50
		beq	L_E44F
		sta	<$50
		ora	<$51
		sta	<$51
		bra	L_E44F
L_E42C		clrb	
		ldx	#BU_001
L_E430		lda	$10,x
		cmpa	#$ff
		bne	L_E441
		leax	1,x
		addb	#$08
		cmpb	<$4c
		bne	L_E430
		clra	
		rts	
L_E441		rora	
		bcc	L_E447
		incb	
		bra	L_E441
L_E447		ldx	#$e47a
		lda	b,x
		ora	#$80
		rts	
L_E44F		lda	<$34
		rora	
		bcc	L_E45D
		lda	<$34
		anda	#$fe
		sta	<$34
		jsr	>$e6cc
L_E45D		lda	<$35
		rora	
		bcc	L_E46B
		lda	<$35
		anda	#$fe
		sta	<$35
		jsr	>$fda2
L_E46B		lda	<$36
		rora	
		bcc	L_E479
		lda	<$36
		anda	#$fe
		sta	<$36
		jsr	>$fd93
L_E479		rts	
		com	<$0b
		sync	
		fcb	$1b             ; nop 
		bls	L_E4AB
		leau	-5,y
		fcb	$02,$0a         ; negcom <$0a
		nop	
		orcc	#$22
		bpl	L_E4BB
		abx	
		fcb	$01,$09         ; neg <$09
		fcb	$11,$19
		brn	L_E4B9
		leay	-7,y
		neg	<$08
		fcb	$10,$18
		bra	L_E4C0
		leax	-8,y
		lsr	<$0c
		fcb	$14             ; hcf 
		andcc	#$24
		bge	L_E4D5
		cwai	#$05
		tst	<$15
		sex	
		bcs	L_E4D5
		puls	cc,b,dp,x,y
L_E4AA		ror	<$0e
L_E4AB			equ	L_E4AA+1
		lbra	L_02D5
		bgt	L_E4E7
		fcb	$3e             ; reset 
		asr	<$0f
		lbsr	L_03DE
		ble	L_E4F0
L_E4B9		swi	
L_E4BA		lda	<$73
L_E4BB			equ	L_E4BA+1
		beq	L_E479
		sta	,-s
L_E4C0		lda	<$72
		beq	L_E53B
		bita	#$10
		beq	L_E4D9
		ldx	#$0007
		jsr	>$e561
		ldx	#$386f
		jsr	>$e53e
L_E4D4		sta	>$3859
L_E4D5			equ	L_E4D4+1
		lda	<$72
L_E4D9		bita	#$01
		beq	L_E4EC
		ldx	#$0003
		jsr	>$e561
		ldx	#$3863
L_E4E6		jsr	>$e53e
L_E4E7			equ	L_E4E6+1
		sta	>$3855
L_E4EC		lda	#$02
L_E4EE		jsr	>$e1df
L_E4F0			equ	L_E4EE+2
L_E4F1		clra	
		ldb	<$74
		tfr	d,x
		lda	$e57c,x
		anda	<$72
		bne	L_E507
		ldb	<$74
		incb	
		andb	#$07
		stb	<$74
		bra	L_E4F1
L_E507		anda	#$11
		beq	L_E511
		lda	$3852,x
		bra	L_E52D
L_E511		bsr	L_E561
		tst	<$75
		beq	L_E529
		pshs	a,x
		tfr	x,d
		lda	#$03
		mul	
		ldx	#$385a
		leax	b,x
		puls	a
		bsr	L_E59E
		puls	x
L_E529		sta	$3852,x
L_E52D		jsr	>$e1df
		ldb	<$74
		incb	
		andb	#$07
		stb	<$74
		dec	,s
		bne	L_E4F1
L_E53B		leas	1,s
		rts	
		leay	>L_E584,pcr
L_E542		cmpa	,y++
		bcs	L_E542
		lda	-1,y
		cmpa	,x
		bne	L_E55A
		ldb	1,x
		incb	
		cmpb	#$02
		beq	L_E557
		stb	1,x
		bra	L_E55E
L_E557		sta	2,x
		rts	
L_E55A		sta	,x
		clr	1,x
L_E55E		lda	2,x
		rts	
L_E561		lda	>dev01_0
		sta	$8000,x
		ldb	#$0f
L_E56A		lda	>dev01_1
		bmi	L_E578
		decb	
		bne	L_E56A
		lda	$3852,x
		bra	L_E57B
L_E578		lda	>$6000
L_E57B		rts	
		lsl	<$04
		fcb	$02,$01         ; negcom <$01
		suba	#$40
		bra	L_E594
L_E584		fcb	$eb,$00         ; addb 0,x
		adcb	<$01
		andb	#$04
		sbca	>$05a4
		fcb	$02,$98         ; negcom <$98
		com	<$8d
		ror	<$84
L_E593		asr	<$7c
L_E594			equ	L_E593+1
		lsl	<$75
		rol	<$6f
		inc	<$68
		tst	<$00
L_E59D		neg	<$d6
L_E59E			equ	L_E59D+1
		fcb	$75,$bd,$e5     ; lsr >$bde5
		eorb	#$30
		fcb	$02,$c6         ; negcom <$c6
		fcb	$02,$bd         ; negcom <$bd
		bitb	d,y
		rts	
		pshs	b
		adda	,s
		bcs	L_E5B5
		cmpa	,x
		bcs	L_E5C3
L_E5B5		suba	,s
		suba	,s
		bcs	L_E5BF
		cmpa	,x
		bhi	L_E5C3
L_E5BF		lda	,x
		bra	L_E5C5
L_E5C3		sta	,x
L_E5C5		leas	1,s
		rts	
		suba	,x
		bls	L_E5D1
		jsr	>$e5d6
		bra	L_E5D5
L_E5D1		nega	
		jsr	>$e5dc
L_E5D5		rts	
		mul	
		addd	,x
		std	,x
		rts	
		mul	
		coma	
		comb	
		addd	#$0001
		addd	,x
		std	,x
		rts	
L_E5E7		jsr	>$e64c
		bcs	L_E5F1
		lsla	
		ldx	a,y
		andcc	#$fe
L_E5F1		rts	
		bsr	L_E5E7
		bcs	L_E5FF
		lda	-1,y
		inca	
		anda	-3,y
		sta	-1,y
		andcc	#$fe
L_E5FF		rts	
		lda	-2,y
		tfr	a,b
		inca	
		anda	-3,y
		cmpa	-1,y
		beq	L_E613
		sta	-2,y
		lslb	
		stx	b,y
		andcc	#$fe
		rts	
L_E613		orcc	#$01
		rts	
L_E616		bsr	L_E64C
		bcs	L_E624
		ldb	-4,y
		mul	
		leau	d,y
		jsr	>$e65f
		andcc	#$fe
L_E624		rts	
		bsr	L_E616
		bcs	L_E632
		lda	-1,y
		inca	
		anda	-3,y
		sta	-1,y
		andcc	#$fe
L_E632		rts	
		lda	-2,y
		tfr	a,b
		inca	
		anda	-3,y
		cmpa	-1,y
		beq	L_E655
		sta	-2,y
		lda	-4,y
		mul	
		tfr	x,u
		leax	d,y
		jsr	>$e65f
		bra	L_E652
L_E64C		lda	-1,y
		cmpa	-2,y
		beq	L_E655
L_E652		andcc	#$fe
		rts	
L_E655		orcc	#$01
		rts	
		std	-4,y
		clr	-2,y
		clr	-1,y
		rts	
		ldb	-4,y
L_E661		lda	,u+
		sta	,x+
		decb	
		bne	L_E661
		rts	
lu_e669		ldy	#$394c
L_E66D		jsr	>L_E5E7
		bcs	L_E66D
		jsr	,x
		ldy	#$394c
		jsr	>$e5f2
		bra	L_E66D
		ldy	#$394c
		jsr	>$e600
		rts	
		ldy	#$3940
		jsr	>L_E64C
		bcs	L_E693
		jsr	>$e600
		bra	L_E69C
L_E693		jsr	>$e600
		bcs	L_E69C
		jsr	,x
		andcc	#$fe
L_E69C		rts	
L_E69D		ldy	#$3940
		jsr	>$e5f2
		jsr	>L_E5E7
		bcc	L_E6B0
		ldd	#su_f430
		std	<$00
		bra	L_E6B2
L_E6B0		jsr	,x
L_E6B2		rts	
		ldy	#$394c
		ldd	#$0203
		jsr	>$e658
		ldy	#$3940
		jsr	>$e658
		rts	
s_0002		jsr	>$e97b
		jsr	>$e98e
		rts	
		com	>$3938
		lda	#$0c
		tst	>$3938
		bne	L_E6E4
		tst	>$3930
		bne	L_E6E6
		pshs	a
		jsr	>$e815
		puls	a
		bra	L_E6E6
L_E6E4		ora	#$10
L_E6E6		jsr	>$e1df
		rts	
s_0001		jsr	>su_f423
		ldb	#$0a
L_E6EF		jsr	>su_f412
		stb	>dev_02_1
		stb	>dev_02_2
		jsr	>su_f412
		stb	>dev_02_1
		lda	>dev_02_3
		jsr	>su_f412
		lda	>dev_02_2
		pshs	a
		cmpb	,s+
		bne	L_E712
		decb	
		bne	L_E6EF
		bra	L_E718
L_E712		lda	<$79
		ora	#$08
		sta	<$79
L_E718		jsr	>$f418
		rts	
		jsr	>$e86f
		sta	<$7e
		jsr	>$e8c6
		jsr	>$e88d
		pshs	cc
		orcc	#$10
		lda	#$03
		jsr	>$e1df
		jsr	>$ea63
		jsr	>$e1df
		puls	cc,pc
		jsr	>$e86f
		pshs	a
		jsr	>$e8c6
L_E740		jsr	>$ea5b
		cmpa	,s
		bcc	L_E755
		jsr	>$e8b1
		bcs	L_E751
		jsr	>$e8f4
		bra	L_E740
L_E751		lda	#$15
		bra	L_E757
L_E755		lda	#$05
L_E757		jsr	>$e1df
		jsr	>$e88d
		puls	a,pc
		jsr	>$e86f
		sta	<$7c
		ldx	#$e774
		jsr	>$e67d
		bcc	L_E773
		lda	#$04
		ora	#$10
		jsr	>$e1df
L_E773		rts	
		jsr	>$ea6b
		pshs	cc
		orcc	#$10
		pshs	a
		lda	#$04
		jsr	>$e1df
		puls	a
		jsr	>$e1df
		puls	cc,pc
		jsr	>$ea0e
		rts	
		jsr	>$ea16
		rts	
		jsr	>$e86f
		sta	<$7b
		jsr	>$ea1e
		rts	
		jsr	>$e87b
		sta	>$3937
		rts	
		jsr	>$e873
		sta	<$80
		rts	
		jsr	>$e877
		jsr	>$e964
		jsr	>$e87f
		sta	,y+
		tfr	a,b
L_E7B4		pshs	b
		jsr	>$e86f
		puls	b
		sta	,y+
		decb	
		bne	L_E7B4
		rts	
		jsr	>$e86f
		sta	<$7b
		ldx	#$e7cf
		jsr	>$e67d
		bcs	L_E7D2
		rts	
		jsr	>$eba2
L_E7D2		lda	#$08
		bcc	L_E7D8
		ora	#$10
L_E7D8		jsr	>$e1df
		rts	
		pshs	cc
		orcc	#$10
		lda	#$0f
		jsr	>$e1df
		lda	<$8c
		jsr	>$e1df
		lda	<$8f
		jsr	>$e1df
		ldd	<$87
		jsr	>$e883
		ldd	<$89
		jsr	>$e883
		ldd	<$8d
		jsr	>$e883
		puls	cc,pc
		tst	>$3930
		bne	L_E80F
		ldx	#$f3ba
		jsr	>$e685
		bcs	L_E80F
		bra	L_E814
L_E80F		lda	#$16
		jsr	>$e1df
L_E814		rts	
		lda	#$07
		tst	>$3930
		bne	L_E823
		ora	#$10
		jsr	>$e1df
		bra	L_E82B
L_E823		jsr	>$e1df
		lda	#$01
		sta	>$3931
L_E82B		rts	
		clr	>$3936
		bra	L_E836
		lda	#$01
		sta	>$3936
L_E836		jsr	>$e277
		sta	<$81
		ldx	#$e849
		jsr	>$e67d
		bcc	L_E848
L_E843		lda	#$19
		jsr	>$e1df
L_E848		rts	
		lda	<$81
		jsr	>$e964
		tst	,y
		beq	L_E843
		sty	<$94
		jsr	>$e902
		pshs	cc
		orcc	#$10
		lda	#$09
		jsr	>$e1df
		lda	<$8b
		jsr	>$e1df
		ldd	<$89
		subd	<$87
		jsr	>$e883
		puls	cc,pc
		jsr	>$e287
		rts	
		jsr	>$e27b
		rts	
		jsr	>$e277
		rts	
		jsr	>$e273
		rts	
		jsr	>$e27f
		rts	
		lsra	
		rorb	
		lsra	
		rorb	
		tfr	b,a
		jsr	>$e1df
		rts	
		tst	<$7e
		beq	L_E8B0
		ldb	#$03
		ldx	#$3932
		lda	,x+
		pshs	a
		tstb	
		beq	L_E8A4
L_E89D		lda	,x+
		sta	-2,x
		decb	
		bne	L_E89D
L_E8A4		ldb	<$7e
		stb	,-x
		puls	a
		tsta	
		beq	L_E8B0
		jsr	>$e8f4
L_E8B0		rts	
		ldx	#$3932
		ldb	#$04
L_E8B6		lda	,x+
		bne	L_E8C1
		decb	
		bne	L_E8B6
		orcc	#$01
		bra	L_E8C5
L_E8C1		clr	,-x
		andcc	#$fe
L_E8C5		rts	
		ldb	<$7e
		tstb	
		beq	L_E8E6
		ldx	#$3936
		lda	#$04
L_E8D0		cmpb	,-x
		beq	L_E8D9
		deca	
		bne	L_E8D0
		bra	L_E8E6
L_E8D9		ldb	,-x
		stb	1,x
		deca	
		bne	L_E8D9
		clr	1,x
		andcc	#$fe
		bra	L_E8E8
L_E8E6		orcc	#$01
L_E8E8		rts	
		ldx	#$3932
		ldb	#$04
L_E8EE		clr	,x+
		decb	
		bne	L_E8EE
		rts	
		ldb	<$7e
		pshs	b
		sta	<$7e
		jsr	>$ea0e
		puls	b
		stb	<$7e
		rts	
		ldx	#$eccd
		stx	>$3929
		tst	>$3937
		beq	L_E913
		ldx	#$ed40
		stx	>$3929
L_E913		ldy	<$94
		jsr	>$ea85
		lda	>$3937
		cmpa	#$01
		bne	L_E93B
		lda	<$8b
		ldb	<$8c
		pshs	a,b
		lda	<$8f
		pshs	a
		lda	#$03
		pshs	a
		tfr	s,y
		ldx	#$eccd
		stx	>$3929
		jsr	>$ea85
		leas	4,s
L_E93B		rts	
		rti	
		adda	>$3c27
		cwai	#$93
		cwai	#$ff
		mul	
		fcb	$6b,$3d         ; dec -3,y
		stb	<$3e
		coma	
		fcb	$3e             ; reset 
		stx	-1,y
		fcb	$1b             ; nop 
		swi	
		fcb	$87,$3f         ; discarda #$3f
		addd	>$405f
		nega	
		addb	#$41
		pulu	cc,s
		subd	2,u
		clr	<$42
		fcb	$7b,$42,$e7     ; dec >$42e7
		coma	
		comb	
		coma	
		stx	>$1f89
		clra	
		tstb	
		bne	L_E970
		ldy	#$e98c
		bra	L_E97A
L_E970		decb	
		lslb	
		lslb	
		lslb	
		ldy	#$3b7c
		leay	d,y
L_E97A		rts	
		lda	#$07
		pshs	a
L_E97F		lda	,s
		jsr	>$e964
		clr	,y
		dec	,s
		bne	L_E97F
		puls	a,pc
		fcb	$01,$fe         ; neg <$fe
		jsr	>$ea06
		clr	<$7c
		clr	<$7e
		jsr	>$e8e9
su_e998		lda	#$ff
		sta	>$3938
		lda	#$01
		sta	<$80
		clr	>$3930
		clr	>$3931
		clr	>$393a
		clr	>$393b
		ldd	#su_f430
		std	<$00
		jsr	>$e6b3
		ldd	#$0903
		ldy	#$3958
		jsr	>$e658
		jsr	>$f3e8
		rts	
		ldb	<$7e
		pshs	b
		ldb	#$fe
		stb	<$7e
		jsr	>$e9d3
		puls	b
		stb	<$7e
		rts	
		ldb	<$7c
		pshs	b
		ldb	#$fe
		stb	<$7c
		jsr	>$e9f3
		puls	b
		stb	<$7c
		rts	
		ldb	<$7e
		pshs	b
		ldb	#$ff
		stb	<$7e
		jsr	>$e9d3
		puls	b
		stb	<$7e
		rts	
		ldb	<$7b
		pshs	b
		ldb	#$fe
		stb	<$7b
		jsr	>$ea03
		puls	b
		stb	<$7b
		rts	
		jsr	,y
		rts	
		ldy	#$ea1e
		jsr	>$e9c3
		rts	
		ldy	#$ea1e
		jsr	>$e9d3
		rts	
		ldy	#$ea1e
		jsr	>$e9f3
		rts	
		lda	#$ff
		sta	<$7a
L_EA22		jsr	>$eae3
		bcs	L_EA2D
		lda	#$ff
		sta	3,x
		bra	L_EA22
L_EA2D		rts	
		lda	#$ff
		sta	<$7a
		bsr	L_EA47
		bcs	L_EA46
		lda	<$7b
		sta	,x
		ldb	<$7c
		stb	1,x
		lda	<$7e
		sta	3,x
		clr	2,x
		andcc	#$fe
L_EA46		rts	
L_EA47		lda	<$7e
		pshs	a
		lda	#$ff
		sta	<$7e
		ldy	#$eae3
		jsr	>$e9d3
		puls	a
		sta	<$7e
		rts	
		ldy	#$ea73
		jsr	>$e9e3
		rts	
		ldy	#$ea73
		jsr	>$e9d3
		rts	
		ldy	#$ea73
		jsr	>$e9f3
		rts	
		lda	#$ff
		sta	<$7a
		clra	
		pshs	a
L_EA7A		jsr	>$eae3
		bcs	L_EA83
		inc	,s
		bra	L_EA7A
L_EA83		puls	a,pc
		lda	#$ff
		sta	<$7f
		lda	,y+
		beq	L_EAC9
		sta	<$82
		sty	<$83
		ldx	#$3b2c
		tst	>$3936
		beq	L_EAAB
		ldd	#$7fff
		std	<$87
		std	<$89
		std	<$8d
		lda	#$ff
		sta	<$8b
		sta	<$8c
		sta	<$8f
L_EAAB		lda	#$ff
		sta	<$7a
L_EAAF		ldy	<$83
		lda	,y
		sta	<$7b
L_EAB6		jsr	>$eae3
		bcs	L_EAC0
		jsr	>$eb15
		bra	L_EAB6
L_EAC0		lda	#$ff
		sta	<$7a
		jsr	>$ead0
		bcc	L_EAAF
L_EAC9		ldd	<$89
		subd	<$87
		std	<$90
		rts	
		ldy	<$83
		leay	1,y
		sty	<$83
		dec	<$82
		bne	L_EAE0
		orcc	#$01
		bra	L_EAE2
L_EAE0		andcc	#$fe
L_EAE2		rts	
L_EAE3		inc	<$7a
		lda	<$7a
		cmpa	#$13
		bhi	L_EB0E
		jsr	>$eb84
		lda	<$7e
		cmpa	#$fe
		beq	L_EAF8
		cmpa	3,x
		bne	L_EB0C
L_EAF8		lda	<$7b
		cmpa	#$fe
		beq	L_EB02
		cmpa	,x
		bne	L_EB0C
L_EB02		lda	<$7c
		cmpa	#$fe
		beq	L_EB12
		cmpa	1,x
		beq	L_EB12
L_EB0C		bra	L_EAE3
L_EB0E		orcc	#$01
		bra	L_EB14
L_EB12		andcc	#$fe
L_EB14		rts	
		lda	<$7f
		jsr	>$eb6f
		pshs	y
		lda	<$7a
		jsr	>$eb6f
		puls	x
		jsr	[$3929]
		lda	<$7a
		jsr	>$eb84
		ldb	,x
		cmpy	<$87
		bcs	L_EB44
		cmpy	<$89
		bcs	L_EB5A
		cmpy	<$8d
		bcc	L_EB62
		stb	<$8f
		sty	<$8d
		bra	L_EB62
L_EB44		cmpb	<$8b
		beq	L_EB53
		jsr	>$eb63
		lda	<$8b
		sta	<$8c
		ldx	<$87
		stx	<$89
L_EB53		stb	<$8b
		sty	<$87
		bra	L_EB62
L_EB5A		jsr	>$eb63
		stb	<$8c
		sty	<$89
L_EB62		rts	
		pshs	a,b,y
		lda	<$8c
		sta	<$8f
		ldx	<$89
		stx	<$8d
		puls	a,b,y,pc
		tsta	
		bmi	L_EB7F
		ldb	#$02
		mul	
		addd	#$e93c
		tfr	d,y
		ldy	,y
		bra	L_EB83
L_EB7F		ldy	#$397c
L_EB83		rts	
		pshs	a,b
		tsta	
		bmi	L_EB93
		ldb	#$04
		mul	
		addd	#$3b2c
		tfr	d,x
		bra	L_EB96
L_EB93		ldx	#flag_3879+2
L_EB96		puls	a,b,pc
		neg	<$80
		adda	,u+
		fcb	$cd             ; hcf 
		bitb	<$db
		subb	,s
		ldb	-16,x
		bcs	L_EBA5
L_EBA5		fcb	$65,$8e         ; lsr 
		fcb	$38,$7b         ; andcc #$7b
		lda	#$01
		sta	2,x
		lda	#$ff
		sta	<$7a
		clra	
		pshs	a
L_EBB4		jsr	>L_EAE3
		bcs	L_EBBD
		inc	,s
		bra	L_EBB4
L_EBBD		puls	a
		cmpa	<$80
		bcc	L_EBD1
		jsr	>$ea2e
		bcs	L_EC0B
		lda	#$ff
		sta	<$7f
		lda	#$01
		clrb	
		bra	L_EBE6
L_EBD1		jsr	>$ec0c
		lda	<$7f
		jsr	>$eb84
		lda	2,x
		pshs	a
		lda	<$7a
		jsr	>$eb84
		ldb	2,x
		puls	a
L_EBE6		pshs	a
		jsr	>$ec53
		jsr	>$ec88
		puls	a
		adda	2,x
		sta	2,x
		lda	<$7f
		sta	<$7a
		lda	#$ff
		sta	<$7f
		clrb	
		jsr	>$ec88
		lda	<$7a
		jsr	>$eb84
		lda	#$01
		sta	2,x
		andcc	#$fe
L_EC0B		rts	
		ldx	#$eccd
		stx	>$3929
		leas	-5,s
		ldd	#$7fff
		std	2,s
		lda	#$ff
		sta	4,s
		sta	,s
		sta	1,s
L_EC21		lda	4,s
		sta	<$7f
		sta	<$7a
		jsr	>L_EAE3
		bcs	L_EC4A
		lda	<$7a
		sta	4,s
L_EC30		jsr	>$eb15
		cmpy	2,s
		bcc	L_EC43
		sty	2,s
		lda	<$7f
		sta	,s
		lda	<$7a
		sta	1,s
L_EC43		jsr	>L_EAE3
		bcc	L_EC30
		bra	L_EC21
L_EC4A		puls	a,b
		sta	<$7f
		stb	<$7a
		leas	3,s
		rts	
		pshs	b,x
		clrb	
		tfr	d,x
		adda	,s+
		jsr	>$ec5f
		puls	x,pc
		pshs	a
		ldd	#$0800
		pshs	a,b
		tfr	x,d
		pshs	b
		tfr	a,b
		clra	
L_EC6D		lsl	,s
		rolb	
		rola	
		cmpd	2,s
		bcs	L_EC7A
		subd	2,s
		inc	,s
L_EC7A		dec	1,s
		bne	L_EC6D
		cmpd	2,s
		tfr	b,a
		puls	b
		leas	3,s
		rts	
		pshs	x
		stb	<$97
		negb	
		stb	<$96
		lda	<$7a
		jsr	>$eb6f
		pshs	y
		lda	<$7f
		jsr	>$eb6f
		puls	x
		ldb	#$6c
		stb	<$98
L_ECA1		lda	,x
		ldb	<$96
		beq	L_ECAC
		jsr	>$ecc2
		sta	,x
L_ECAC		lda	,y+
		ldb	<$97
		beq	L_ECB7
		jsr	>$ecc2
		adda	,x
L_ECB7		sta	,x+
		dec	<$98
		bne	L_ECA1
		puls	x,pc
		sta	,x
		rts	
		tsta	
		bpl	L_ECC8
		nega	
		orcc	#$08
L_ECC8		mul	
		bpl	L_ECCC
		nega	
L_ECCC		rts	
		pshs	u
		stx	<$c8
		sty	<$ca
		jsr	>$ecdc
		jsr	>$ed13
		puls	u,pc
		ldy	#$7fff
		lda	#$26
		ldx	#$389a
L_ECE5		sty	a,x
		suba	#$02
		bge	L_ECE5
		ldx	#$38a8
		ldd	#$0000
		std	,x
		ldx	#$38b8
		stx	<$c2
		lda	#$01
		sta	<$d6
		lda	#$00
		sta	<$d7
		lda	#$01
		sta	<$d1
		deca	
		sta	<$cc
		sta	<$ce
		lda	#$ff
		sta	<$d9
		lda	#$01
		sta	<$d8
		rts	
		lda	#$17
		sta	<$d4
L_ED17		jsr	>$ed66
		lda	<$d4
		cmpa	#$0d
		bge	L_ED24
		lda	#$01
		sta	<$d9
L_ED24		jsr	>$ee4b
		dec	<$d4
		bgt	L_ED17
		ldd	<$c2
		subd	#$38a4
		bpl	L_ED35
		addd	#$0028
L_ED35		addd	#$389a
		tfr	d,x
		leax	4,x
		ldy	,x
		rts	
		pshs	u
		stx	<$c8
		sty	<$ca
		lda	#$0b
		sta	<$cf
		sta	<$d0
		clr	<$9a
		clr	<$9b
L_ED51		jsr	>$ee75
		ldd	<$9a
		leay	d,y
		sty	<$9a
		dec	<$cf
		dec	<$d0
		bpl	L_ED51
		ldy	<$9a
		puls	u,pc
		jsr	>$ede7
		lda	<$cc
		sta	<$cf
		lda	<$ce
		sta	<$d0
		lda	<$d1
		nega	
		adda	#$04
		asra	
		inca	
		lsla	
		sta	<$d2
		sta	<$d3
		ldy	#$7fff
		ldx	<$c2
		bra	L_ED88
L_ED85		sty	a,x
L_ED88		suba	#$02
		bge	L_ED85
		lda	<$d1
		lbeq	L_EDC1
		lsla	
		suba	#$02
		adda	<$d2
		sta	<$d5
L_ED99		lbsr	L_EE75
		ldx	<$c2
		lda	<$d3
		sty	a,x
		jsr	>$ee06
		ldx	<$c2
		leax	a,x
		ldd	,x
		leay	d,y
		sty	,x
		inc	<$cf
		dec	<$d0
		lda	<$d3
		adda	#$02
		sta	<$d3
		lda	<$d5
		suba	<$d3
		bge	L_ED99
L_EDC1		ldy	#$7fff
		lda	<$d3
		ldx	<$c2
		bra	L_EDD0
L_EDCB		sty	a,x
		adda	#$02
L_EDD0		cmpa	#$08
		ble	L_EDCB
		ldd	<$c2
		subd	#$389a
		subb	#$1e
		bpl	L_EDDF
		addb	#$28
L_EDDF		addd	#$389a
		std	<$c2
		neg	<$d8
		rts	
		ldd	<$c2
		subd	#$389a
		subb	#$14
		bpl	L_EDF2
		addb	#$28
L_EDF2		addd	#$389a
		std	<$c4
		subd	#$389a
		subb	#$0a
		bpl	L_EE00
		addb	#$28
L_EE00		addd	#$389a
		std	<$c6
		rts	
		tst	<$d8
		ble	L_EE21
		ldx	<$c6
		ldx	a,x
		ldy	<$c2
		ldd	a,y
		leay	d,x
		lda	<$d3
		adda	#$02
		ldx	<$c6
		leax	a,x
		suba	#$02
		bra	L_EE36
L_EE21		ldx	<$c6
		suba	#$02
		ldx	a,x
		ldy	<$c2
		adda	#$02
		ldd	a,y
		leay	d,x
		lda	<$d3
		ldx	<$c6
		leax	a,x
L_EE36		cmpy	,x
		bcs	L_EE3E
		ldy	,x
L_EE3E		ldx	<$c4
		leax	a,x
		cmpy	,x
		bcs	L_EE4A
		ldy	,x
L_EE4A		rts	
		ldb	<$d9
		lda	<$d6
		bgt	L_EE52
		negb	
L_EE52		ldx	#$38cd
		inc	b,x
		jsr	>$ee6d
		sta	<$d6
		ldb	<$d9
		lda	<$d7
		beq	L_EE63
		negb	
L_EE63		addb	<$d1
		stb	<$d1
		jsr	>$ee6d
		sta	<$d7
		rts	
		inca	
		cmpa	#$02
		bne	L_EE74
		lda	#$ff
L_EE74		rts	
L_EE75		ldx	<$c8
		lda	<$cf
		ldb	#$09
		mul	
		leax	d,x
		ldu	<$ca
		lda	<$d0
		ldb	#$09
		mul	
		leau	d,u
		lda	#$08
		ldy	#$0000
L_EE8D		ldb	a,x
		subb	a,u
		bpl	L_EE94
		negb	
L_EE94		leay	b,y
		deca	
		bpl	L_EE8D
		rts	
		pshs	a,b,x,y,u
		tst	>$3938
		beq	L_EEDF
		leas	-9,s
		tfr	s,x
		lda	#$08
L_EEA7		beq	L_EEC2
		sta	,-s
		ldb	#$08
		subb	,s+
		stb	>dev_02_1
		ldb	>dev_02_3
L_EEB5		ldb	>dev_02_0
		blt	L_EEB5
		ldb	>dev_02_2
		stb	,x+
		deca	
		bra	L_EEA7
L_EEC2		ldb	#$08
		stb	>dev_02_1
		ldb	>dev_02_3
L_EECA		ldb	>dev_02_0
		blt	L_EECA
		ldb	>dev_02_2
		stb	,x+
		tfr	s,x
		ldy	#$3958
		jsr	>$e633
		leas	9,s
L_EEDF		lda	>dev_02_0
		puls	a,b,x,y,u,pc
		stu	>$8055
		nega	
		leau	11,y
		bcs	L_EF0C
		andcc	#$1a
		lbsr	L_0405
		nop	
		fcb	$11,$10
		clr	<$0e
		tst	<$0d
		inc	<$0c
		fcb	$0b,$0b         ; dec <$0b
		dec	<$0a
		rol	<$09
		rol	<$09
		lsl	<$08
		lsl	<$08
		asr	<$07
L_EF08		tfr	s,u
L_EF0A		leas	<$e9,s
L_EF0C			equ	L_EF0A+2
		jsr	>$ef5c
		ldd	6,u
		addd	#$0001
		std	6,u
		ldx	3,u
		leax	1,x
		leay	<$e9,u
		lda	2,u
		sta	-3,u
		lda	5,u
		sta	-2,u
		sta	-1,u
L_EF28		lda	-3,u
		suba	-2,u
		bmi	L_EF3C
		beq	L_EF49
		sta	-3,u
		lda	-2,u
		jsr	>$ef6a
		jsr	>$ef8f
		bra	L_EF54
L_EF3C		nega	
		sta	-2,u
		lda	-3,u
		jsr	>$ef6a
		jsr	>$ef96
		bra	L_EF54
L_EF49		lda	-2,u
		jsr	>$ef6a
		jsr	>$ef8f
		jsr	>$ef96
L_EF54		tst	-1,u
		bne	L_EF28
		leas	$17,s
		rts	
		pshs	y
		lda	#$12
		leay	<$e9,u
L_EF63		clr	,y+
		deca	
		bne	L_EF63
		puls	y,pc
		pshs	a
		ldb	#$09
		stb	-4,u
L_EF70		ldb	,s
		lda	,x+
		bpl	L_EF7F
		nega	
		mul	
		coma	
		comb	
		addd	#$0001
		bra	L_EF80
L_EF7F		mul	
L_EF80		addd	,y
		std	,y++
		dec	-4,u
		bne	L_EF70
		leax	-9,x
		leay	<$ee,y
		puls	a,pc
		lda	5,u
		sta	-2,u
		leax	9,x
		rts	
		lda	2,u
		sta	-3,u
		lda	#$09
		sta	-4,u
		pshs	x
		ldx	#$eee3
		lda	2,u
		lda	a,x
		ldx	6,u
		pshs	y
L_EFAB		jsr	>$efbe
		dec	-4,u
		bne	L_EFAB
		stx	6,u
		puls	y
		puls	x
		jsr	>$ef5c
		dec	-1,u
		rts	
		pshs	a
		clr	-5,u
		ldd	,y
		bpl	L_EFD8
		inc	-5,u
		cmpd	#$8000
		bne	L_EFD1
		addd	#$0001
L_EFD1		coma	
		comb	
		addd	#$0001
		std	,y
L_EFD8		lda	,s
		ldb	,y+
		mul	
		pshs	b
		lda	1,s
		ldb	,y+
		mul	
		adca	#$00
		adda	,s+
		bge	L_EFEC
		lda	#$7f
L_EFEC		tst	-5,u
		beq	L_EFF1
		nega	
L_EFF1		sta	,x+
		puls	a,pc
L_EFF5		pshs	a,b,x,y,u
		leas	-2,s
		tfr	s,u
		ldx	#$0000
		ldy	13,u
		leay	1,y
		lda	12,u
L_F005		beq	L_F00D
		ldb	,y+
		abx	
		deca	
		bra	L_F005
L_F00D		stx	,u
		lda	12,u
		asra	
L_F012		beq	L_F01B
		asr	,u
		ror	1,u
		asra	
		bra	L_F012
L_F01B		ldd	,u
		stb	[<15,u]
		leas	2,s
		puls	a,b,x,y,u,pc
L_F024		pshs	a,b,x,y,u
		leas	-2,s
		tfr	s,u
		ldx	#$39e8
		tfr	x,y
		lda	#$12
		sta	,u
L_F033		beq	L_F047
		lda	#$09
L_F037		ldb	9,y
		addb	,y+
		asrb	
		stb	,x+
		deca	
		bne	L_F037
		leay	9,y
		dec	,u
		bra	L_F033
L_F047		leas	2,s
		puls	a,b,x,y,u,pc
		tst	>$3931
		beq	L_F05F
		pshs	a,b,x,y,u
		clr	>$3930
		clr	>$3931
		jsr	>$e69d
		puls	a,b,x,y,u
		bra	L_F062
L_F05F		jsr	>$ee9a
L_F062		jmp	>$e0eb
		pshs	a,b,x,y,u
L_F067		ldy	#$3958
		tst	>$3930
		bne	L_F075
		jsr	>$f0c0
		bra	L_F0A3
L_F075		jsr	>L_E64C
		bcs	L_F0A3
		lda	>$393a
		anda	#$7f
		bne	L_F0A3
		lda	#$80
		ora	>$393a
		sta	>$393a
		jsr	>$f0ce
		bcc	L_F067
		lda	#$01
		sta	>$3931
		inc	>$3939
		ldx	#$f0a5
		jsr	>$e67d
		bcs	L_F0A3
		lda	#$01
		sta	>$393b
L_F0A3		puls	a,b,x,y,u,pc
		jsr	>$f188
		lda	#$00
		sta	>$393b
		jsr	>$f0c0
		bcs	L_F0B9
		lda	#$06
		jsr	>$e1df
		bra	L_F0BF
L_F0B9		ldx	#$f3ba
		jsr	>$e685
L_F0BF		rts	
		tst	>$393b
		bne	L_F0CD
		lda	>$393a
		anda	#$7f
		sta	>$393a
L_F0CD		rts	
		ldx	#$38f8
		ldy	#$3958
		jsr	>$e625
		lbcs	L_F17B
		tst	>$3939
		lbne	L_F17B
		lda	>$3900
		sta	<$e0
		lda	<$e8
		cmpa	#$01
		ble	L_F143
		inc	<$dc
		lda	<$dc
		cmpa	#$04
		bgt	L_F111
		deca	
		ldb	#$09
		mul	
		ldx	#$3905
		leax	d,x
		ldy	#$38f8
		lda	#$09
		jsr	>$f39d
		ldx	#$3900
		lda	<$dc
		ldb	<$e0
		stb	a,x
L_F111		cmpa	<$e8
		bne	L_F141
		clr	<$dc
		lda	<$e8
		jsr	>$f181
		ldx	#$3904
		ldb	#$01
		ldy	#$38ee
		pshs	b,y
		pshs	a,x
		lbsr	L_EF08
		leas	6,s
		lda	<$e8
		jsr	>$f181
		ldx	#$3900
		ldy	#$38e1
		pshs	a,x,y
		lbsr	L_EFF5
		leas	5,s
L_F141		bra	L_F153
L_F143		ldb	<$e0
		stb	<$e1
		ldy	#$38f8
		ldx	#$38ef
		lda	#$09
		jsr	>$f39d
L_F153		lda	<$dc
		bne	L_F17B
		lda	<$e1
		suba	<$e3
		sta	<$e2
		jsr	>$f28e
		pshs	cc
		tst	<$da
		beq	L_F16B
		jsr	>$f38a
		bra	L_F16E
L_F16B		jsr	>$f36a
L_F16E		puls	cc
		bcc	L_F17B
		lda	<$e7
		cmpa	#$10
		bgt	L_F17E
		jsr	>$f3a5
L_F17B		andcc	#$fe
		rts	
L_F17E		orcc	#$01
		rts	
		cmpa	#$04
		ble	L_F187
		lda	#$04
L_F187		rts	
		jsr	>$f1c5
		lbcs	L_F1C4
		lda	<$de
		ldx	#$39e7
		ldb	#$0c
		ldy	#$397b
		pshs	b,y
		pshs	a,x
		lbsr	L_EF08
		leas	6,s
		lda	#$14
		suba	<$e7
		pshs	a
		ldx	#$3984
		ldb	#$0c
L_F1AE		lda	,x
		adda	,s
		bpl	L_F1B5
		clra	
L_F1B5		suba	#$0a
		lsla	
		lsla	
		sta	,x
		leax	9,x
		decb	
		bne	L_F1AE
		leas	1,s
		andcc	#$fe
L_F1C4		rts	
		ldb	<$de
		jsr	>$f25c
		clr	,x
		lda	<$de
		inca	
		clrb	
		jsr	>$f25c
		pshs	a,b,x
		lda	<$e8
		jsr	>$f3a5
		sta	<$e8
		clr	<$e5
		lda	<$e4
		sta	<$e3
L_F1E2		ldx	2,s
		lda	,x
		sta	<$e1
		suba	<$e3
		bpl	L_F1ED
		clra	
L_F1ED		ldb	1,s
		stb	<$df
		sta	<$e2
		jsr	>$f28e
		ldb	1,s
		subb	<$df
		ble	L_F221
		lda	<$df
		cmpa	<$de
		bne	L_F206
		ldb	1,s
		subb	<$de
L_F206		incb	
		stb	<$e5
		dec	,s
		inc	1,s
		ldb	1,s
		lda	,s
		jsr	>$f268
		subb	<$e5
		jsr	>$f25c
		stx	2,s
		clr	<$e5
		tst	,s
		bra	L_F249
L_F221		tst	<$da
		bne	L_F229
		inc	<$e5
		bra	L_F23F
L_F229		tst	<$e5
		beq	L_F23F
		lda	,s
		ldb	1,s
		jsr	>$f268
		subb	<$e5
		stb	1,s
		jsr	>$f25c
		stx	2,s
		clr	<$e5
L_F23F		ldx	2,s
		leax	9,x
		stx	2,s
		inc	1,s
		dec	,s
L_F249		lbne	L_F1E2
		puls	a,b,x
		ldb	<$de
		bne	L_F259
		jsr	>$f3a5
		orcc	#$01
		rts	
L_F259		andcc	#$fe
		rts	
		pshs	a,b
		lda	#$09
		mul	
		ldx	#$39f0
		leax	d,x
		puls	a,b,pc
		pshs	b
		sta	,-s
		ble	L_F28C
		ldy	#$39e8
		lda	#$09
		mul	
		leay	d,y
		ldx	#$39e8
		ldb	1,s
		subb	<$e5
		lda	#$09
		mul	
		leax	d,x
L_F283		lda	#$09
		jsr	>$f39d
		dec	,s
		bne	L_F283
L_F28C		puls	a,b,pc
		lda	<$e2
		ldb	<$da
		beq	L_F29C
		decb	
		beq	L_F2A4
		decb	
		beq	L_F2BC
		bra	L_F2C8
L_F29C		cmpa	#$04
		ble	L_F2A2
		inc	<$da
L_F2A2		bra	L_F2ED
L_F2A4		cmpa	#$04
		bge	L_F2B2
		ldb	<$de
		stb	<$df
		clr	<$da
		clr	<$e6
		bra	L_F2BA
L_F2B2		cmpa	#$08
		ble	L_F2BA
		ldb	#$02
		stb	<$da
L_F2BA		bra	L_F2ED
L_F2BC		cmpa	#$08
		bge	L_F2C8
		ldb	#$03
		stb	<$da
		ldb	<$df
		stb	<$e9
L_F2C8		cmpa	#$08
		ble	L_F2D2
		ldb	#$02
		stb	<$da
		bra	L_F2ED
L_F2D2		cmpa	#$06
		bge	L_F2EB
		inc	<$db
		clr	<$da
		ldb	<$df
		subb	<$e9
		lda	<$e8
		mul	
		cmpd	#$0004
		ble	L_F2EB
		ldb	<$e9
		stb	<$df
L_F2EB		bra	L_F2F5
L_F2ED		lda	<$da
		bne	L_F2F5
		inc	<$ea
		bra	L_F301
L_F2F5		clr	<$ea
		inc	<$df
		lda	<$e2
		cmpa	<$e6
		ble	L_F301
		sta	<$e6
L_F301		lda	<$db
		beq	L_F338
		clr	<$db
		lda	<$e6
		cmpa	#$0a
		blt	L_F332
		ldb	<$df
		subb	<$de
		lda	<$e8
		mul	
		cmpd	#$0004
		blt	L_F332
		ldb	<$df
		decb	
		stb	<$de
		lda	<$e6
		adda	<$e3
		cmpa	<$e7
		bls	L_F336
		sta	<$e7
		suba	#$1c
		bpl	L_F32E
		clra	
L_F32E		sta	<$e4
		bra	L_F336
L_F332		ldb	<$de
		stb	<$df
L_F336		clr	<$e6
L_F338		lda	<$df
		cmpa	#$23
		bne	L_F34E
		lbsr	L_F024
		asr	<$de
		asr	<$df
		lda	<$e8
		lsla	
		cmpa	#$10
		bge	L_F361
		sta	<$e8
L_F34E		ldb	<$ea
		lda	<$e8
		mul	
		cmpd	#$000a
		lblt	L_F367
		lda	<$de
		ble	L_F367
		bra	L_F364
L_F361		jsr	>$f3a5
L_F364		orcc	#$01
		rts	
L_F367		andcc	#$fe
		rts	
		lda	<$dd
		ldx	#$38ea
		ldb	<$e1
		stb	a,x
		inca	
		cmpa	#$04
		ble	L_F37A
		lda	#$01
L_F37A		sta	<$dd
		lda	#$04
		ldy	#$38e3
		pshs	a,x,y
		lbsr	L_EFF5
		leas	5,s
		rts	
		ldy	#$38ef
		ldx	#$39e8
		lda	<$df
		deca	
		ldb	#$09
		mul	
		leax	d,x
		lda	#$09
		bra	L_F39D
L_F39D		ldb	,y+
		stb	,x+
		deca	
		bne	L_F39D
		rts	
		clr	<$dc
		clr	<$de
		clr	<$df
		clr	<$ea
		clr	<$e7
		clr	<$da
		clr	<$e6
		clr	<$db
		ldb	#$01
		stb	<$e8
		rts	
		pshs	a,b,dp,x
		jsr	>$f3a5
		clr	>$3939
		ldb	#$7f
		ldx	#$38eb
		lda	#$04
L_F3C9		stb	,x+
		deca	
		bne	L_F3C9
		stb	<$e3
		ldb	#$01
		stb	<$dd
		clr	<$e4
		lda	#$01
		sta	>$3930
		ldd	#$f04b
		std	<$00
		bsr	L_F3E8
		andcc	#$fe
		bra	L_F3E6
L_F3E6		puls	a,b,dp,x,pc
L_F3E8		bsr	L_F418
		ldb	#$09
		stb	>dev_02_1
		ldb	#$7b
		stb	>dev_02_2
		bsr	su_f412
		ldb	#$0a
		stb	>dev_02_1
		ldb	#$3d
		stb	>dev_02_2
		bsr	su_f412
		ldb	#$2b
		stb	>dev_02_1
		ldb	#$ad
		stb	>dev_02_2
		ldb	#$20
		stb	>dev_02_0
		rts	
su_f412		lda	>dev_02_0
		blt	su_f412
		rts	
L_F418		clr	>dev_02_0
L_F41B		lda	>dev_02_0
		anda	#$40
		bne	L_F41B
		rts	
su_f423		lda	#$40
		sta	>dev_02_0
L_F428		lda	>dev_02_0
		anda	#$40
		beq	L_F428
		rts	
su_f430		tst	>dev_02_0
		jmp	>$e0eb
su_f436		clra	
		sta	>$4653
		rts	
su_f43b		pshs	cc
		orcc	#$40
		ldx	#$4438
		stx	>$4656
		ldx	#$fc45
		stx	>$4659
		clra	
		sta	>$4653
		sta	>$4661
		ldx	#$f760
		stx	>$4654
		lda	#$00
		ldb	#$3f
		ldx	#$4438
		jsr	>$f4b0
		lda	#$01
		ldb	#$3f
		ldx	#$4481
		jsr	>$f4b0
		ldx	#$44c1
L_F46F		clr	,x+
		cmpx	#$4561
		bcs	L_F46F
		lbsr	L_F48D
		lda	#$10
		clrb	
		ldx	#$4581
		ldy	#$45a3
L_F483		sty	,x++
		stb	,y+
		deca	
		bge	L_F483
		puls	cc,pc
L_F48D		ldd	#$39e8
		std	>$4662
		std	>$4664
		ldx	#$39e8
L_F499		clr	,x+
		cmpx	#$3b2c
		bcs	L_F499
		ldx	#$44c9
		ldd	>$4662
L_F4A6		std	,x
		leax	10,x
		cmpx	#$4561
		bcs	L_F4A6
		rts	
		pshs	cc,a,b,y
		orcc	#$10
		lsla	
		ldy	#$442b
		stx	a,y
		tstb	
		beq	L_F4DE
		stb	-6,x
		lda	#$a9
		sta	,x
		sta	-5,x
		clra	
		sta	-8,x
		inca	
		sta	-9,x
		lda	#$08
		sta	-7,x
		ldy	#$f535
		sty	-2,x
		ldy	#$f4e0
		sty	-4,x
L_F4DE		puls	cc,a,b,y,pc
		pshs	y,u
		clra	
		cmpb	#$08
		bgt	L_F4FC
		ldu	#$f519
		leau	b,u
L_F4EC		dec	-7,x
		bge	L_F4F4
		bsr	L_F53C
		bra	L_F4F6
L_F4F4		lsl	-5,x
L_F4F6		rola	
		decb	
		bne	L_F4EC
		jmp	,u
L_F4FC		tfr	d,y
		subb	#$08
		lslb	
		ldu	#$f523
		leau	b,u
		clrb	
L_F507		dec	-7,x
		bge	L_F50F
		bsr	L_F53C
		bra	L_F511
L_F50F		lsl	-5,x
L_F511		rolb	
		rola	
		leay	-1,y
		bne	L_F507
		jmp	,u
		nop	
		lsla	
		lsla	
		lsla	
		lsla	
		lsla	
		lsla	
		lsla	
		puls	y,u,pc
		nop	
		nop	
		lslb	
		rola	
		lslb	
		rola	
		lslb	
		rola	
		lslb	
		rola	
		lslb	
		rola	
		lslb	
		rola	
		lslb	
		rola	
		puls	y,u,pc
		dec	-7,x
		blt	L_F53C
		lsl	-5,x
		rts	
L_F53C		pshs	b
		ldb	-8,x
		incb	
		andb	-6,x
L_F543		cmpb	-9,x
		beq	L_F543
		stb	-8,x
		ldb	b,x
		lslb	
		stb	-5,x
		ldb	#$07
		stb	-7,x
		puls	b,pc
		pshs	y,u
		dec	>3,x
		beq	L_F5C2
		dec	>0,x
		bpl	L_F566
		bsr	L_F5DB
		bra	L_F56A
L_F566		lsl	>4,x
L_F56A		bcc	L_F5B7
		clra	
		cmpb	#$08
		bgt	L_F590
		ldu	#$f519
		leau	b,u
L_F576		dec	>3,x
		beq	L_F5C2
		dec	>0,x
		bpl	L_F586
		bsr	L_F5DB
		bra	L_F58A
L_F586		lsl	>4,x
L_F58A		rola	
		decb	
		bne	L_F576
		jmp	,u
L_F590		tfr	d,y
		subb	#$08
		lslb	
		ldu	#$f523
		leau	b,u
		clrb	
L_F59B		dec	>3,x
		beq	L_F5C2
		dec	>0,x
		bpl	L_F5AB
		bsr	L_F5DB
		bra	L_F5AF
L_F5AB		lsl	>4,x
L_F5AF		rolb	
		rola	
		leay	-1,y
		bne	L_F59B
		jmp	,u
L_F5B7		pshs	x
		ldx	>5,x
		jsr	[<-4,x]
		puls	x,y,u,pc
L_F5C2		inc	>3,x
		puls	y,u
		bra	L_F5F6
		dec	>3,x
		beq	L_F5F6
		dec	>0,x
		bmi	L_F5DB
		lsl	>4,x
		rts	
L_F5DB		pshs	b,y
		ldy	>1,x
		ldb	,y+
		sty	>1,x
		lslb	
		stb	>4,x
		ldb	#$07
		stb	>0,x
		puls	b,y,pc
L_F5F6		leas	,u
		puls	x,u,pc
		jsr	>$e28b
		sta	>$4659
		jsr	>$e28b
		sta	>$465a
		ldx	#su_fb1b
		jsr	>$e67d
		bcc	L_F613
		lda	#$6a
		jsr	>$e1df
L_F613		rts	
		pshs	y
		ldy	>$4656
		lda	>$4658
		pshs	a
		ldb	-8,y
		subb	-9,y
		decb	
		andb	-6,y
		cmpb	>$4658
		bcs	L_F643
L_F62B		jsr	>$e28b
		pshs	a,b
		ldb	-9,y
		sta	b,y
		lda	-9,y
		inca	
		anda	-6,y
		sta	-9,y
		puls	a,b
		dec	,s
		bgt	L_F62B
		puls	a,y,pc
L_F643		lda	#$80
		ora	>$4653
		sta	>$4653
		lda	#$1b
		jsr	>$e1df
L_F650		jsr	>$e28b
		dec	,s
		bgt	L_F650
		puls	a,y,pc
		jsr	>$e28b
		clrb	
		lsla	
		lsla	
		rolb	
		lslb	
		ldx	#$442b
		ldx	b,x
		stx	>$4656
		lsra	
		lsra	
		sta	>$4658
		rts	
		ldx	#$fb62
		jsr	>$e67d
		bcc	L_F67C
		lda	#$6a
		jsr	>$e1df
L_F67C		rts	
		ldx	#$fdb1
		jsr	>$e685
		bcc	L_F68A
		lda	#$5a
		jsr	>$e1df
L_F68A		rts	
L_F68B		jsr	[<-2,x]
		bcc	L_F68B
		rts	
		pshs	x
		ldb	#$04
		jsr	[<-4,x]
		lsra	
		lsra	
		lsra	
		ldx	#$4581
		leax	a,x
		ldy	,x
		lda	,y
		clrb	
		lsra	
		rorb	
		lsra	
		rorb	
		lsra	
		rorb	
		beq	L_F6AF
		inca	
L_F6AF		inca	
		leay	a,y
		nega	
		deca	
L_F6B4		ldb	,y+
		stb	a,y
		cmpy	>$45a1
		bcs	L_F6B4
		inca	
		leay	a,y
		pshs	x,y
		ldy	,x
		pshs	y
		ldx	#$4581
		ldb	#$10
L_F6CD		ldy	,x
		cmpy	,s
		bls	L_F6DA
		leay	a,y
		sty	,x
L_F6DA		leax	2,x
		decb	
		bne	L_F6CD
		puls	y
		puls	x,y
		sty	,x
		puls	x
		ldb	#$08
		jsr	[<-4,x]
		sta	,y+
		beq	L_F706
		tfr	a,b
L_F6F3		pshs	b
		cmpb	#$08
		bls	L_F6FB
		ldb	#$08
L_F6FB		jsr	[<-4,x]
		sta	,y+
		puls	b
		subb	#$08
		bhi	L_F6F3
L_F706		sty	>$45a1
		rts	
		ldb	#$04
		jsr	[<-4,x]
		lsra	
		lsra	
		lsra	
		ldy	#$4581
		ldy	a,y
		lda	,y+
		inca	
		ldb	,y+
		pshs	a,b,x
		ldb	#$08
		pshs	b,y
		ldy	#$f5ca
		ldx	#$f554
		pshs	x,y
		leax	4,s
		jsr	>$fbbf
		leas	11,s
		rts	
		ldb	#$04
		jsr	[<-4,x]
		lsra	
		lsra	
		lsra	
		ldy	#$4561
		leay	a,y
		ldb	#$10
		jsr	[<-4,x]
		std	,y
		rts	
		ldx	#$44c1
L_F74F		ldd	,x
		std	2,x
		ldd	#$0000
		std	5,x
		leax	10,x
		cmpx	#$4561
		bcs	L_F74F
		rts	
		leas	,u
		puls	x,u,pc
		ldx	>$4662
		ldy	#$f792
		ldb	#$12
L_F76D		lda	,y+
		sta	,x+
		decb	
		bne	L_F76D
		cmpx	#$3b2c
		bcs	L_F77C
		ldx	#$39e8
L_F77C		ldy	#$44c9
		ldb	#$10
L_F782		stx	,y
		leay	10,y
		decb	
		bne	L_F782
L_F789		cmpx	>$4664
		beq	L_F789
		stx	>$4662
		rts	
		andb	#$00
		neg	<$00
		neg	<$00
		neg	<$00
		neg	<$00
		neg	<$00
		neg	<$ff
		neg	<$00
		neg	<$00
		ldb	#$04
		jsr	[<-4,x]
		lsra	
		lsra	
		lsra	
		lsra	
		inca	
		ldy	>$465b
		pshs	y
		ldy	#$44c1
L_F7B8		lsl	1,s
		rol	,s
		bcc	L_F7C0
		bsr	L_F7CE
L_F7C0		leay	10,y
		cmpy	#$4561
		bcs	L_F7B8
		jsr	>$f8e5
		leas	2,s
		rts	
L_F7CE		pshs	a,b,x
		clra	
		pshs	a
		ldd	5,y
		subd	2,y
		bpl	L_F7E0
		com	,s
		comb	
		coma	
		addd	#$0001
L_F7E0		std	5,y
		lda	1,s
		deca	
		beq	L_F809
		deca	
		lsla	
		leax	>L_F816,pcr
		leax	a,x
		lda	5,y
		ldb	,x
		mul	
		pshs	a,b
		lda	5,y
		ldb	1,x
		mul	
		pshs	a,b
		lda	6,y
		ldb	,x
		mul	
		addd	,s++
		tfr	a,b
		clra	
		addd	,s++
L_F809		tst	,s+
		bpl	L_F812
		coma	
		comb	
		addd	#$0001
L_F812		std	5,y
		puls	a,b,x,pc
L_F816		suba	#$00
		fcb	$55             ; lsrb 
		fcb	$55             ; lsrb 
		nega	
		neg	<$33
		leau	10,y
		adda	4,y
		sbca	<$20
		neg	<$1c
		fcb	$72,$19,$9a     ; negcom >$199a
		lbsr	L_3E40
		fcb	$55             ; lsrb 
		sync	
		cmpa	>$1249
		fcb	$11,$11
		fcb	$10,$00
		rts	
		ldb	#$02
		jsr	[<-4,x]
		lsla	
		rola	
		rola	
		cmpa	#$02
		bcc	L_F84B
		lsla	
		ldx	#$442b
		ldx	a,x
		stx	>0,u
L_F84B		rts	
		ldb	#$04
		jsr	[<-4,x]
		lsra	
		lsra	
		lsra	
		ldx	#$4561
		ldx	a,x
		stx	>$465d
		rts	
		ldb	#$04
		jsr	[<-4,x]
		lsra	
		lsra	
		lsra	
		ldx	#$4561
		ldx	a,x
		stx	>$465b
		rts	
		pshs	u
		lda	#$04
		ldb	#$00
		bra	L_F884
		pshs	u
		lda	#$04
		ldb	#$02
		bra	L_F884
		pshs	u
		lda	#$07
		ldb	#$05
L_F884		ldy	#$0000
		bra	L_F899
		pshs	u
		lda	#$04
		bra	L_F894
		pshs	u
		lda	#$07
L_F894		ldy	#$ffff
		clrb	
L_F899		pshs	y
		pshs	a,b
		lda	#$10
		pshs	a
		ldd	>$465b
		pshs	a,b
		ldy	#$44c1
L_F8AA		lsl	1,s
		rol	,s
		bcc	L_F8D0
		tst	5,s
		bne	L_F8C3
		ldb	3,s
		ldb	b,y
		jsr	[<-4,x]
		tfr	d,u
		ldb	4,s
		stu	b,y
		bra	L_F8D0
L_F8C3		ldb	#$04
		jsr	[<-4,x]
		lsra	
		lsra	
		lsra	
		lsra	
		ldb	3,s
		sta	b,y
L_F8D0		leay	10,y
		dec	2,s
		bne	L_F8AA
		leas	7,s
		puls	u
		rts	
		ldb	#$04
		jsr	[<-4,x]
		lsra	
		lsra	
		lsra	
		lsra	
		inca	
		pshs	a,u
L_F8E7		ldu	>$465b
		ldb	#$02
		lbsr	L_FA61
		deca	
		bne	L_F8E7
		ldx	>$4662
L_F8F5		ldd	$10,x
		anda	>$465d
		andb	>$465e
		cmpd	>$465d
		bne	L_F95F
		ldd	$10,x
		coma	
		comb	
		tfr	d,u
		ldb	#$00
		lbsr	L_FA61
		lda	11,x
		tfr	a,b
		anda	#$70
		andb	#$07
		addb	>$4661
		bge	L_F920
		clrb	
		bra	L_F926
L_F920		cmpb	#$05
		ble	L_F926
		ldb	#$05
L_F926		pshs	b
		ora	,s+
		sta	11,x
		leay	>zb_001,pcr
		clra	
		ldb	13,x
		lda	d,y
		adda	12,x
		bge	L_F93C
		clra	
		bra	L_F940
L_F93C		bvc	L_F940
		lda	#$7f
L_F940		sta	12,x
		ldd	#$0000
		std	$10,x
		leax	$12,x
		cmpx	#$3b2c
		bcs	L_F953
		ldx	#$39e8
L_F953		cmpx	>$4664
		beq	L_F953
		stx	>$4662
		dec	,s
		bne	L_F8F5
L_F95F		puls	a,u,pc
zb_001		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
L_FA61		fcb	$34
		ror	>$4f8e
		suba	#$00
		pshs	a,x
		ldy	#$44c1
L_FA6D		lsl	10,s
		rol	9,s
		bcc	L_FABE
		ldx	8,y
		ldb	4,s
		ldb	b,y
		lda	,s
		bne	L_FA83
		lsrb	
		lsr	a,x
		rolb	
		bra	L_FA94
L_FA83		cmpa	#$0a
		bne	L_FA94
		ldb	4,s
		ldd	b,y
		lsr	,x
		lslb	
		rol	,x
		tfr	a,b
		lda	,s
L_FA94		stb	a,x
		ldb	4,s
		cmpb	#$00
		beq	L_FAAC
		ldd	2,y
		addd	5,y
		std	2,y
		ldd	$10,x
		ora	1,s
		orb	2,s
		std	$10,x
L_FAAC		leax	$12,x
		cmpx	#$3b2c
		bcs	L_FAB7
		ldx	#$39e8
L_FAB7		cmpx	>$4664
		beq	L_FAB7
		stx	8,y
L_FABE		leay	10,y
		inc	,s
		lsr	1,s
		ror	2,s
		lbcc	L_FA6D
		leas	3,s
		puls	a,b,x,y,u,pc
L_FACE		ldx	#$fdb1
		jsr	>$e685
		bcc	L_FAD8
		bra	L_FACE
L_FAD8		rts	
		lda	>$03f7
		anda	,y
		cmpx	#$03f8
		inca	
		com	<$f7
		fcb	$60,$00         ; neg 0,x
		eorb	>$35fb
		lbsr	zb_002
		adda	#$03
		eorb	>$9003
		orb	>$ce03
		eorb	>$3403
		ldb	>$9103
		stb	>$3600
		addb	>$17f8
		jmp	3,x
		eorb	>$5d03
		eorb	>$7603
		eorb	>$8a00
		stb	>$64f7
		inca	
		com	<$f7
		fcb	$0b,$00         ; dec <$00
		eorb	>$dbf8
		jmp	>$6e9f
su_fb19		rora	
		lsrb	
su_fb1b		pshs	cc
		orcc	#$10
		lda	#$02
		ora	>$393a
		sta	>$393a
		lda	#$80
		anda	>$393a
		beq	L_FB3C
		lda	#$fd
		anda	>$393a
		sta	>$393a
		puls	cc
		jsr	>$f606
		rts	
L_FB3C		puls	cc
		lda	#$04
		anda	>$393a
		beq	L_FB47
		bra	L_FB5A
L_FB47		lda	#$04
		ora	>$393a
		sta	>$393a
		ldx	>$4662
		cmpx	>$4664
		bne	L_FB5A
		jsr	>$f496
L_FB5A		ldx	>$4659
		jsr	>$fbf0
		bra	L_FBA6
		pshs	cc
		orcc	#$10
		lda	#$02
		ora	>$393a
		sta	>$393a
		lda	#$80
		anda	>$393a
		beq	L_FB83
		lda	#$fd
		anda	>$393a
		sta	>$393a
		puls	cc
		jsr	>$f66f
		rts	
L_FB83		puls	cc
		lda	#$04
		anda	>$393a
		beq	L_FB8E
		bra	L_FBA1
L_FB8E		lda	#$04
		ora	>$393a
		sta	>$393a
		ldx	>$4662
		cmpx	>$4664
		bne	L_FBA1
		jsr	>$f496
L_FBA1		ldx	#$4438
		bsr	L_FBBF
L_FBA6		lda	#$fd
		anda	>$393a
		sta	>$393a
		ldx	>$4662
		cmpx	>$4664
		bne	L_FBBE
		lda	#$fb
		anda	>$393a
		sta	>$393a
L_FBBE		rts	
L_FBBF		pshs	x,u
		leau	,s
L_FBC3		ldx	,u
		ldy	#$fad9
		bsr	L_FBCF
		jsr	,y
		bra	L_FBC3
L_FBCF		pshs	a,b
L_FBD1		jsr	[<-2,x]
		ldb	,y
		bcc	L_FBE3
		bpl	L_FBDE
		leay	1,y
		bra	L_FBD1
L_FBDE		ldy	1,y
		puls	a,b,pc
L_FBE3		andb	#$7f
		beq	L_FBEB
		leay	b,y
		bra	L_FBD1
L_FBEB		ldy	3,y
		puls	a,b,pc
		clra	
		ldb	,x+
		pshs	a,b
		ldb	#$08
		pshs	b,x
		ldy	#$f5d0
		ldx	#$fc0a
		pshs	x,y
		leax	4,s
		jsr	>L_FBBF
		leas	9,s
		rts	
		pshs	y,u
		clra	
		cmpb	#$08
		bgt	L_FC27
		ldu	#$f519
		leau	b,u
L_FC16		dec	,x
		bge	L_FC1F
		jsr	>L_F5DB
		bra	L_FC21
L_FC1F		lsl	4,x
L_FC21		rola	
		decb	
		bne	L_FC16
		jmp	,u
L_FC27		tfr	d,y
		subb	#$08
		lslb	
		ldu	#$f523
		leau	b,u
		clrb	
L_FC32		dec	,x
		bge	L_FC3B
		jsr	>L_F5DB
		bra	L_FC3D
L_FC3B		lsl	4,x
L_FC3D		rolb	
		rola	
		leay	-1,y
		bne	L_FC32
		jmp	,u
		suba	,x++
		anda	#$ce
		suba	#$4d
		bne	L_FCA4
		bita	<$04
		inca	
		bne	L_FCC6
		fcb	$02,$49         ; negcom <$49
		fcb	$31,$bc,$68     ; leay [<$fcbf,pcr]
		bcc	L_FC89
		sbcb	#$20
		fcb	$01,$41         ; neg <$41
		leay	-10,x
		leay	5,x
		fcb	$05,$04         ; lsr <$04
		suba	#$00
		dec	10,x
		bita	#$80
		dec	11,x
		jmp	<$34
		neg	<$01
		bita	#$05
		bitb	#$5a
		suba	#$61
		fcb	$41             ; nega 
		cmpa	#$79
		fcb	$ad,$ea         ; jsr 
		lsrb	
		lsl	<$7f
		stu	>$d022
		com	<$d1
		nega	
		subd	<$ff
		fcb	$65,$02         ; lsr 2,x
		neg	2,x
L_FC89		fcb	$14             ; hcf 
		dec	<$80
		neg	<$48
L_FC8E		coma	
		fcb	$02,$22         ; negcom <$22
		bhi	L_FCB5
		bhi	L_FCC5
		leax	-15,y
		nega	
		daa	
		neg	<$02
		fcb	$41             ; nega 
		eorb	>$224a
		fcb	$14             ; hcf 
		fcb	$45             ; lsra 
		ror	6,s
L_FCA3		lsl	>$988a
L_FCA4			equ	L_FCA3+1
		fcb	$51             ; negb 
		fcb	$15             ; hcf 
		adca	<$99
		sbcb	2,s
		bmi	L_FCF6
		lsra	
		coma	
		asr	<$e1
		fcb	$5b             ; decb 
		sta	<$a1
L_FCB5		adcb	6,s
		ora	#$7a
		anda	#$50
		bita	#$2a
		sbca	#$e4
		std	<$68
		fcb	$cd             ; hcf 
L_FCC2		lsrb	
		fcb	$02,$29         ; negcom <$29
L_FCC5		fcb	$87,$93         ; discarda #$93
L_FCC6			equ	L_FCC5+1
		ldb	>$445a
		addd	>$a193
		fcb	$51             ; negb 
		comb	
		eorb	#$a6
		ora	#$3e
		clr	>$cbb2
		jmp	a,y
		lsra	
		suba	9,x
		bsr	L_FCED
		bgt	L_FD19
		stx	<$68
		jsr	<$8c
		adcb	#$4f
		bhi	L_FC8E
		eorb	>$3c73
		pshu	b,x,s,pc
		abx	
L_FCED		ora	<$1a
		ldx	<$27
		bmi	L_FCC2
		cmpx	>$d037
L_FCF6		cmpx	#$5e37
L_FCF7			equ	L_FCF6+1
		fcb	$45             ; lsra 
		cwai	#$54
		lsl	,-x
		fcb	$e9,$cc,$23     ; adcb <$fd24,pcr
		ora	<$dc
		lsr	>$4a78
		bvs	L_FD0A
L_FD08		addd	#$bf6f
L_FD0A			equ	L_FD08+2
		eorb	-11,u
		bita	1,x
		anda	<$fd
		orcc	#$08
		lbra	L_0AA4
		jsr	>$0ae2
L_FD19		leay	$f834,y
		nop	
		bvc	L_FD5A
		clr	>$7955
		lsra	
		anda	#$53
		andb	>$a79e
		asr	[,y]
		lsr	<$7b
		dec	8,u
		lda	[a,y]
		eorb	12,u
		mul	
		neg	<$27
		ldd	>$6211
		cmpb	<$06
		tst	<$40
		tst	-12,y
		bne	L_FCF7
		rora	
		comb	
		beq	L_FD91
		lda	#$80
		anda	>$4653
		beq	L_FD69
		ldy	>$4656
		ldb	-8,y
		subb	-9,y
		decb	
		andb	-6,y
		cmpb	>$4658
L_FD5A		bls	L_FD69
		lda	#$0b
		jsr	>$e1df
		lda	#$7f
		anda	>$4653
		sta	>$4653
L_FD69		lda	#$40
		anda	>$4653
		beq	L_FD7D
		lda	#$bf
		anda	>$4653
		sta	>$4653
		lda	#$1a
		jsr	>$e1df
L_FD7D		lda	#$20
		anda	>$4653
		beq	L_FD91
		lda	#$df
		anda	>$4653
		sta	>$4653
		lda	#$0a
		jsr	>$e1df
L_FD91		puls	a,b,y,pc
		pshs	a
		lda	>$4661
		cmpa	#$07
		bge	L_FDA0
		inca	
		sta	>$4661
L_FDA0		puls	a,pc
		pshs	a
		lda	>$4661
		cmpa	#$f9
		ble	L_FDAF
		deca	
		sta	>$4661
L_FDAF		puls	a,pc
		pshs	a,y
		lda	#$40
		ora	>$4653
		sta	>$4653
		ldy	#dev_02_0
		lda	,y
		bita	#$40
		bne	L_FDDA
		lda	#$25
		sta	1,y
		clra	
		sta	2,y
L_FDCC		lda	,y
		bmi	L_FDCC
		lda	#$40
		sta	,y
L_FDD4		lda	,y
		bita	#$40
		beq	L_FDD4
L_FDDA		lda	#$00
		sta	,y
L_FDDE		lda	,y
		bita	#$40
		bne	L_FDDE
		lda	#$64
		sta	,y
L_FDE8		lda	,y
		bita	#$40
		beq	L_FDE8
		clra	
		sta	>$465f
		sta	>$4660
		ldy	#$fe01
		sty	>dp_base
		andcc	#$bf
		puls	a,y,pc
		pshs	a,b,x,y,u
		ldu	#dev_02_0
		lda	,u
		bita	#$20
		lbeq	L_FED4
		ldy	>$4664
		cmpy	>$4662
		lbeq	L_FED4
		lda	,y
		leax	2,u
		bita	#$01
		beq	L_FE24
		leax	1,x
L_FE24		ldb	#$0d
		stb	1,u
		stb	,x
L_FE2A		ldb	,u
		bmi	L_FE2A
		ldb	#$00
		stb	1,u
		ldy	>$4664
		leay	1,y
		lda	>$4660
		lsra	
		beq	L_FE41
L_FE3E		deca	
		bpl	L_FE3E
L_FE41		lda	,y+
		sta	2,u
		lda	,y+
		sta	2,u
		lda	,y+
		sta	2,u
		lda	,y+
		sta	2,u
		lda	,y+
		sta	2,u
		lda	,y+
		sta	2,u
		lda	,y+
		sta	2,u
		lda	,y+
		sta	2,u
		lda	,y+
		sta	2,u
		lda	,y+
		sta	,x
		ldd	,y++
		sta	,x
L_FE6D		lda	,u
		bmi	L_FE6D
		stb	,x
		ldb	,y+
L_FE75		lda	,u
		bmi	L_FE75
		stb	,x
		ldb	,y+
L_FE7D		lda	,u
		bmi	L_FE7D
		stb	,x
		ldb	,y+
L_FE85		lda	,u
		bmi	L_FE85
		stb	,x
L_FE8B		lda	,u
		bmi	L_FE8B
		lda	>$465f
		sta	>$4660
		stb	>$465f
		ldy	>$4664
		lda	,y
		anda	#$fc
		sta	,u
		leay	$12,y
		cmpy	#$3b2c
		bcs	L_FEAF
		ldy	#$39e8
L_FEAF		sty	>$4664
		bita	#$80
		beq	L_FED4
		lda	#$20
		ora	>$4653
		sta	>$4653
		lda	#$02
		anda	>$393a
		beq	L_FEC8
		bra	L_FED1
L_FEC8		cmpy	>$4662
		bne	L_FED1
		clr	>$393a
L_FED1		lbsr	L_E69D
L_FED4		puls	a,b,x,y,u
		jmp	>$e0eb
		fcb	$00,$00,$00,$00,$00,$00,$00
zzzz		fcb	$00,$00
zb_002		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		fcb	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$8b
int_vect	fdb	$0000,$0000,$0000,l_firq,l_irq,$0000,$0000,l_reset
==========================

Remember to correct the byte offsets, <$e9 to <-$17, and <$ee to <-$12, in 4 places, before assembling.