;
;	Disassembled by:
;		DASMx object code disassembler
;		(c) Copyright 1996-1999   Conquest Consultants
;		Version 1.30 (Oct  6 1999)
;
;	File:		tavbug09.bin
;
;	Size:		4096 bytes
;	Checksum:	65C2
;	CRC-32:		77945CAE
;
;	Date:		Thu Dec 20 13:45:27 2012
;
;	CPU:		Motorola 6809 (6809 family)
;
;
;
	org	$F000
;
LF000:
	leax	-65,pc		;($EFC2)
	tfr	x,d
	tfr	a,dp
	staa	X009D
	leau	,x
	leay	53,pc		;(JMPTBL)
	stu	,x++
	ldab	#$15
	pshs	b
LF014:
	tfr	y,d
	addd	,y++
	std	,x++
	dec	,s
	bne	LF014
	ldab	#$0F
LF020:
	ldaa	,y+
	staa	,x+
	decb
	bne	LF020
	leay	-4139,pc	;(WDSTR)
	ldx	#$20FE
	cmpx	,y++
	bne	LF034
	jsr	,y		;INFO: index jump
LF034:
	puls	b, pc
VRESET:
SP008:
	leas	-232,pc		;($EF52)
	bsr	LF000
LF03C:
	clra
	tfr	a,dp
	swi
;
CODE01:
	db	$08
;
	bra	LF03C
;
JMPTBL:
	dw	$01D8
	dw	$033A
	dw	$0338
	dw	$0336
	dw	$0312
	dw	$0332
	dw	$0045
	dw	$02CD
	dw	$FFE3
	dw	$035D
	dw	$032C
	dw	$03C3
	dw	$0357
	dw	$03C0
	dw	$03BD
	dw	$05E8
	dw	$FF99
	dw	$06D1
	dw	$091B
	dw	$095E
	dw	$01AF
JMPTB2:
	db	$EB
	db	$04
	db	$00
	db	$00
	db	$00
	db	$00
	db	$EB
	db	$08
	db	$EB
	db	$00
	db	$00
	db	$00
	db	$00
	db	$00
	db	$39
	db	$02
	db	$2C
	db	$02
	db	$49
	db	$02
	db	$63
	db	$02
	db	$5B
	db	$02
	db	$0D
	db	$02
	db	$0B
	db	$02
	db	$58
	db	$02
	db	$11
	db	$00
	db	$5A
	db	$02
	db	$15
	db	$02
	db	$FE
	db	$02
	db	$69
;
SPSWI:
	dec	-264,pc		;($EF90)
	lbsr	LF366
	ldu	10,s
	leau	-1,u
	tst	X00FB
	bne	LF0B4
	lbsr	LF95C
	negb
LF0A7:
	decb
	bmi	LF0B4
	cmpu	,y++
	bne	LF0A7
	stu	10,s
	lbra	LF37A
LF0B4:
	clr	X00FB
	pulu	b, a
	cmpb	#$0B
	lbhi	LF375
	stu	10,s
	aslb
	leau	-72,pc		;($F07C)
	ldd	b,u
	jmp	d,u		;INFO: index jump
;
PROMPT:
	db	"TAVBUG09 V1.0\x04"
;
	sts	X0097
	tst	1,s
	bne	LF10A
	ldx	X00F6
	ldd	#$3AFF
	staa	3,x
	stab	2,x
	ldd	#$3E3A
	staa	3,x
	stab	1,x
	ldd	#$9F06
	staa	,x
	stab	1,x
	ldy	#$FDBA
	sty	X0070
	ldy	#$077F
	sty	X006E
	ldaa	#$01
	staa	,x
	jsr	[-302,pc]	;(RPTR12)	;INFO: index jump
LF10A:
	ldx	X00F4
	clr	4,x
	clr	5,x
	ldd	#$01A6
	staa	1,x
	ldaa	#$82
	staa	,x
	stab	1,x
	ldab	#$12
	stab	,x
	clr	X007A
	ldaa	PIA1AD
	anda	#$60
	ldy	#$FE07
LF12A:
	cmpa	,y++
	beq	LF132
	cmpa	,y+
	bra	LF12A
;
LF132:
	ldd	-1,y
	bne	LF13A
	dec	X007A
	ldd	-7,y
LF13A:
	std	2,x
	ldaa	3240,pc		;($FDE8)
	staa	-1602,pc	;(PIA1BD)
	ldx	#$EB00
	ldab	450,pc		;($F30D)
	abx
	ldaa	,x
	cmpa	3222,pc		;($FDE8)
	lbne	LF305
	ldx	#$EB00
	ldab	433,pc		;($F30E)
	abx
	ldaa	,x
	cmpa	3204,pc		;($FDE8)
	lbne	LF305
	clr	-1642,pc	;(PIA1BD)
	tst	1,s
	bne	LF176
	leax	-172,pc		;(PROMPT)
	swi
;
CODE02:
	db	$03
;
LF176:
	swi
;
CODE44:
	db	$06
;
LF178:
	lbsr	LF95C
	bpl	LF189
	negb
	stab	X00FA
LF180:
	decb
	bmi	LF189
	ldaa	-16,y
	staa	[,y++]
	bra	LF180
;
LF189:
	ldx	10,s
	stx	X0093
	ldaa	#$3E
	swi
;
CODE03:
	db	$01
;
	leau	,s
	stu	X0095
	clra
	clrb
	std	X009B
	std	X008F
	std	X0091
	ldab	#$02
	pshs	b, a, cc
	lbsr	LF7C6
	leax	1820,pc		;(LF8C4)
	cmpa	#$2E
	beq	LF206
	leax	1719,pc		;($F867)
	cmpa	#$2F
	beq	LF206
LF1B4:
	cmpa	#$20
	bls	LF1CC
	pshs	a
	inc	-1,u
	cmpa	#$2F
	beq	LF20F
	lbsr	LF79C
	beq	LF1C7
	dec	-2,u
LF1C7:
	lbsr	LF7C6
	bra	LF1B4
;
LF1CC:
	suba	#$0D
	staa	-3,u
	ldx	X00C4
LF1D2:
	ldab	,x+
	bpl	LF1E6
	ldx	X00EC
	incb
	beq	LF1D2
LF1DB:
	lds	X0095
	leax	380,pc		;(ERRMSG)
	swi
;
CODE04:
	db	$02
;
	bra	LF176
;
LF1E6:
	decb
	cmpb	-1,u
	bcc	LF1EE
LF1EB:
	abx
	bra	LF1D2
;
LF1EE:
	leay	-3,u
	ldaa	-1,u
	suba	#$02
	staa	-2,u
LF1F6:
	decb
	ldaa	,x+
	cmpa	,-y
	bne	LF1EB
	dec	-2,u
	bne	LF1F6
	abx
	ldd	-2,x
	leax	d,x
LF206:
	tst	-3,u
	leas	,u
	jsr	-2,x		;INFO: index jump
	lbra	LF189
LF20F:
	tst	-2,u
	bmi	LF1DB
	leax	-82,x
	ldd	X009B
	bra	LF206
;
SP020:
	db	"\xFE\x04B\x06\xE8\x04C\x05\xE5\x04D\x06k\x04G\x05\xA4\x04L\x09\x92\x04M\x05\xDF\x04N\x06\x9C\x04O\x06\xA9\x04P\x08\xB6\x04R\x04V\x04S\x06\x91\x04T\x06u\x04V\x09l\x04W\x06:\x04I\x07\x0E\x04A\x07L\x04Q\x09\xC4\x04U\x09\xCE\x04X\x0A9\x04Y\x0B\x1C\x04Z\x0B\x1E"
	db	$FF
;
LF270:
	ldaa	,x+
	pshs	b, a
	ldab	#$10
	mul
	bsr	LF27D
	puls	a, b
	anda	#$0F
LF27D:
	adda	#$90
	daa
	adca	#$40
	daa
LF283:
	jmp	[-681,pc]	;(RPTR13)	;INFO: index jump
;
	bsr	LF270
	bsr	LF270
	stx	4,s
	ldaa	#$20
	bra	LF2CE
;
	ldaa	1,s
	cmpa	#$34
	bhi	LF2D0
	ldy	X00C2
	ldu	a,y
	stu	4,s
	stx	-2,s
	beq	LF2D0
	stx	a,y
	bra	LF2D0
;
LF2A6:
	bsr	LF30F
LF2A8:
	bsr	LF313
	bcc	LF2A6
	tsta
	beq	LF2A8
	cmpa	#$7F
	beq	LF2A8
	staa	1,s
	tst	X008F
	bne	LF2D0
	cmpa	#$0D
	bne	LF2C1
	ldaa	#$0A
	bsr	LF283
LF2C1:
	tst	X00F2
	bne	LF2D0
	ldaa	1,s
	leax	9,pc		;($F2D3)
	cmpa	#$0A
	beq	LF2DD
LF2CE:
	bsr	LF283
LF2D0:
	inc	X0090
	rti
;
	lsr	X0030
	cmpx	#$FC86
	tst	X008D
	eora	a,x
;
	db	$0A
LF2DD:
	db	$8D
;
	anda	a,y
	suba	#$81
	lsr	X0026
	eorb	X8D28
	bsr	LF2EF
	tfr	cc,b
	stab	,s
	bra	LF2D0
;
LF2EF:
	bsr	LF313
	bcc	LF2F8
	cmpa	#$18
	bne	LF2F9
LF2F7:
	comb
LF2F8:
	rts
;
LF2F9:
	bsr	LF30F
	bsr	LF313
	bcc	LF2F9
	cmpa	#$18
	beq	LF2F7
	clra
	rts
;
LF305:
	leax	2792,pc		;(ESP04)
	swi
;
CODE05:
	db	$03
;
	bra	LF305
;
	db	$02
	db	$02
;
LF30F:
	jmp	[-815,pc]	;(RPTR16)	;INFO: index jump
;
LF313:
	jsr	[-831,pc]	;(RPTR10)	;INFO: index jump
	anda	#$7F
	rts
;
TXTOP:
	db	"OP-\x04"
;
SPNMI:
	bsr	LF366
	tst	X008F
	bne	LF358
	tst	X0090
	bmi	LF351
	leax	12,s
	cmpx	X00F8
	bcs	LF351
	leax	-23,pc		;(TXTOP)
	swi
;
CODE06:
	db	$02
;
	rol	X008E
	leax	-928,pc		;($EF99)
	swi
;
CODE07:
	db	$05
;
	bsr	LF354
	bcs	LF37C
	ror	X008E
	bcs	LF37C
	ldx	X0091
	beq	LF37C
	leax	-1,x
	stx	X0091
	beq	LF37C
	bsr	LF2EF
	bcs	LF37C
LF351:
	lbra	LF8C4
LF354:
	lbsr	LF6BC
	rts
;
LF358:
	clr	X008F
	lbsr	LF7F4
SPFIRQ:
	rti
;
ERRMSG:
	db	"ERREUR \x04"
;
LF366:
	ldab	-973,pc		;($EF9D)
	tfr	b,dp
	cmpa	3,s
	lbeq	SP011
	lds	X0097
LF375:
	leax	-26,pc		;(ERRMSG)
	swi
;
CODE08:
	db	$03
;
LF37A:
	bsr	LF354
LF37C:
	lbra	LF178
SPIRQ:
	bsr	LF366
	bra	LF37A
;
SP010:
	tst	X007A
	beq	LF389
	bra	LF393
;
LF389:
	ldu	X00EE
	ldaa	,u
	lsra
	bcc	LF392
	ldaa	1,u
LF392:
	rts
;
LF393:
	sts	X0067
	lds	#$EF67
	lbsr	LFC70
	pshs	x, b
	ldx	#$2000
	ldaa	3,x
	asla
	bcc	LF3A9
	ldaa	2,x
LF3A9:
	puls	b, x
	lbsr	LFC7F
	lds	X0067
	rts
;
SP009:
	ldaa	#$03
	ldx	X00EE
	staa	,x
	ldaa	#$11
	staa	,x
	clr	X007D
LF3BE:
	sts	X0067
	lds	#$EF67
	lbsr	LFC70
LF3C8:
	pshs	x, b, a, cc
	ldx	#$2000
	ldd	#$00FF
	staa	1,x
	staa	3,x
	staa	2,x
	stab	,x
	ldd	#$0434
	staa	1,x
	stab	3,x
	ldaa	3,x
	ldaa	#$01
	staa	,x
	ldx	X0070
	clrb
LF3E8:
	stab	CRTR01
	ldaa	,x+
	staa	CRTR02
	incb
	cmpb	#$10
	bne	LF3E8
	ldaa	#$20
	ldx	#$1000
LF3FA:
	staa	,x+
	cmpx	#$2000
	bne	LF3FA
	ldx	#$1000
	stx	X0072
	ldd	#$0050
	std	X0076
	clra
	clrb
	std	X0074
	std	X006B
	staa	X006D
	puls	cc, a, b, x
	lbsr	LFC7F
	lds	X0067
	rts
SP011:
	rts
;
SP013:
	pshs	u, b, a, cc
	ldu	X00EE
	bsr	LF444
	tst	X007D
	beq	LF429
	bsr	LF453
LF429:
	cmpa	#$10
	beq	LF43F
	ldab	X00F0
	cmpa	#$0D
	bne	LF435
	ldab	X00F1
LF435:
	clra
	stab	,s
;
	db	$8C
;
LF439:
	bsr	LF444
	dec	,s
	bpl	LF439
LF43F:
	puls	cc, a, b, u, pc
LF441:
	lbsr	LF30F
LF444:
	tst	X007A
	beq	LF44A
	bra	LF477
;
LF44A:
	ldab	,u
	bitb	#$02
	beq	LF441
	staa	1,u
	rts
;
LF453:
	tst	X007C
LF455:
	bmi	LF45C
	tst	PIA1BC
	bmi	LF46F
LF45C:
	bpl	LF453
	clr	X007C
	staa	PIA1BD
	ldab	#$36
	stab	PIA1BC
	ldab	#$3E
	stab	PIA1BC
	bra	LF476
;
LF46F:
	tst	PIA1BD
	com	X007C
	bra	LF455
LF476:
	rts
;
LF477:
	sts	X0067
	lds	#$EF67
	lbsr	LFC70
	pshs	y, x, b, a, cc
	tst	X006D
	lbne	LF5CD
LF489:
	cmpa	#$1F
	lbls	LF51B
	ldx	X0074
	cmpx	X006E
	bmi	LF497
	bsr	LF4B6
LF497:
	pshs	a
	ldd	X0072
	addd	X0074
	anda	#$1F
	oraa	#$10
	tfr	d,y
	puls	a
	staa	,y
	leax	1,x
	stx	X0074
LF4AB:
	bsr	LF4FF
	puls	cc, a, b, x, y
	lbsr	LFC7F
	lds	X0067
	rts
;
LF4B6:
	pshs	a
	ldd	X0076
	addd	X0072
	anda	#$1F
	oraa	#$10
	std	X0072
	tfr	d,y
	ldaa	#$20
	ldab	X0077
LF4C8:
	cmpy	#$1000
	beq	LF4D5
LF4CE:
	staa	,-y
	decb
	bne	LF4C8
	bra	LF4DB
;
LF4D5:
	ldy	#$2000
	bra	LF4CE
;
LF4DB:
	ldd	X0074
	subd	X0076
	std	X0074
	tfr	d,x
	ldd	X0072
	anda	#$0F
	std	X0078
	ldaa	#$0C
	staa	CRTR01
	ldab	X0078
	stab	CRTR02
	inca
	staa	CRTR01
	ldab	X0079
	stab	CRTR02
	puls	a
	rts
;
LF4FF:
	ldd	X0072
	anda	#$0F
	addd	X0074
	std	X0078
	ldaa	#$0E
	staa	CRTR01
	ldab	X0078
	stab	CRTR02
	inca
	staa	CRTR01
	ldab	X0079
	stab	CRTR02
	rts
;
LF51B:
	ldy	#$FDCA
LF51F:
	cmpa	,y++
	beq	LF52E
	leay	1,y
	cmpy	#$FDE8
	bne	LF51F
	lbra	LF4AB
LF52E:
	jmp	[-1,y]		;INFO: index jump
;
	ldd	X0074
	addd	X0076
	std	X0074
	cmpd	X006E
	bmi	LF53F
	lbsr	LF4B6
LF53F:
	lbra	LF4AB
	ldx	X0074
	beq	LF54A
	leax	-1,x
	stx	X0074
LF54A:
	bra	LF53F
;
	clra
	clrb
LF54E:
	addd	X0076
	cmpd	X0074
	bmi	LF54E
	beq	LF559
	subd	X0076
LF559:
	std	X0074
	bra	LF53F
;
	clra
	clrb
LF55F:
	addd	X0076
	cmpd	X0074
	bmi	LF55F
	beq	LF56A
	subd	X0076
LF56A:
	tfr	d,x
	std	X0074
	ldd	X0072
	addd	X0074
	anda	#$1F
	oraa	#$10
	tfr	d,y
	ldaa	#$20
	ldab	X0077
LF57C:
	staa	,y+
	cmpy	#$2000
	bne	LF588
	ldy	#$1000
LF588:
	decb
	bne	LF57C
	bra	LF53F
;
	ldd	X0074
	cmpd	X0076
	bmi	LF596
	subd	X0076
LF596:
	std	X0074
	bra	LF53F
;
	ldx	X0074
	cmpx	X006E
	bmi	LF5A3
	lbsr	LF4B6
LF5A3:
	leax	1,x
	stx	X0074
	bra	LF53F
;
	puls	cc, a, b, x, y
	lbra	LF3C8
	clra
	clrb
	std	X0074
LF5B2:
	bra	LF53F
;
	ldaa	#$3C
	ldy	#$2000
	staa	3,y
	ldx	#$FFFF
LF5BF:
	leax	-1,x
	bne	LF5BF
	ldaa	#$34
	staa	3,y
	bra	LF5B2
;
	com	X006D
	bra	LF5B2
;
LF5CD:
	tst	X006C
	beq	LF5D3
	bra	LF5F5
;
LF5D3:
	ldx	#$FDF3
LF5D6:
	cmpx	#$FE05
	beq	LF5EC
	cmpa	,x++
	bne	LF5D6
	ldaa	-1,x
	cmpa	#$3D
	beq	LF5F1
	staa	PIA2AD
	clr	X006D
	bra	LF5B2
;
LF5EC:
	clr	X006D
	lbra	LF489
LF5F1:
	com	X006C
	bra	LF5B2
;
LF5F5:
	cmpa	#$1F
	bls	LF623
	suba	#$1F
	tst	X006B
	bne	LF60D
	cmpa	#$18
	bhi	LF623
	staa	X006B
	deca
	ldab	#$50
	mul
	std	X0069
	bra	LF5B2
;
LF60D:
	cmpa	#$50
	bhi	LF623
	deca
	staa	X006C
	clr	X006B
	ldd	X0069
	addd	X006B
	std	X0074
	clr	X006C
	clr	X006D
	lbra	LF4AB
LF623:
	clr	X006C
	clr	X006D
	clr	X006B
	lbra	LF489
	bsr	LF640
	ldab	#$10
	mul
	bsr	LF640
	pshs	b
	adda	,s+
	tfr	a,b
	adda	2,s
	staa	2,s
	dec	3,s
LF63F:
	rts
;
LF640:
	swi
;
CODE09:
	db	$00
;
	lbsr	LF7AF
	beq	LF63F
	puls	a, x, y, u, pc
SP015:
	swi
;
CODE10:
	db	$06
;
	ldab	#$06
LF64D:
	swi
;
CODE11:
	db	$07
;
	decb
	bne	LF64D
	clrb
LF653:
	tfr	b,a
	lbsr	LF27D
	swi
;
CODE12:
	db	$07
;
	swi
	asr	X005C
	cmpb	#$10
	bcs	LF653
LF661:
	swi
;
CODE13:
	db	$06
;
	bcs	LF694
	leax	4,s
	swi
;
	db	$05
;
	ldx	4,s
	ldab	#$10
LF66D:
	swi
;
CODE14:
	db	$04
;
	decb
	bne	LF66D
	swi
;
CODE15:
	db	$07
;
	ldx	4,s
	ldab	#$10
LF678:
	ldaa	,x+
	bmi	LF680
	cmpa	#$20
	bcc	LF682
LF680:
	ldaa	#$2E
LF682:
	swi
;
CODE16:
	db	$01
;
	decb
	bne	LF678
	cmpx	2,s
	bcc	LF694
	stx	4,s
	ldaa	5,s
	asla
	bne	LF661
	bra	SP015
;
LF694:
	swi
;
CODE17:
	db	$06
;
	rts
;
	bsr	LF6BC
	inca
	bsr	LF6BD
	rts
;
REGIST:
	db	"PC\xFF\x13A\x00\x0AB\x00\x0BX\xFF\x0DY\xFF\x0FU\xFF\x11S\xFF\x01CC\x00\x09DP\x00\x0C\x00O"
;
LF6BD:
	leax	16,s
	pshs	y, x, a
	leay	-40,pc		;(REGIST)
LF6C5:
	ldd	,y+
	tsta
	ble	LF6CE
	swi
;
CODE18:
	db	$01
;
	bra	LF6C5
;
LF6CE:
	ldaa	#$2D
	swi
;
CODE19:
	db	$01
;
	leax	b,s
	tst	,s
	bne	LF6EA
	tst	-1,y
	beq	LF6DF
	swi
;
CODE20:
	db	$05
	db	$8C
LF6DF:
	db	$3F
	db	$04
;
LF6E1:
	ldd	,y+
	tstb
	bne	LF6C5
	swi
;
CODE21:
	db	$06
;
LF6E8:
	puls	a, x, y, pc
LF6EA:
	bsr	LF72C
	beq	LF6FE
	cmpa	#$0D
	beq	LF710
	ldab	-1,y
	decb
	negb
	aslb
LF6F7:
	swi
;
CODE22:
	db	$07
;
	decb
	bne	LF6F7
	bra	LF6E1
;
LF6FE:
	staa	,s
	ldd	X009B
	tst	-1,y
	bne	LF708
	ldaa	,-x
LF708:
	std	,x
	ldaa	,s
	cmpa	#$0D
	bne	LF6E1
LF710:
	leax	-1986,pc	;($EF52)
	ldab	#$15
LF716:
	puls	a
	staa	,x+
	decb
	bne	LF716
	lds	-20,x
	ldab	#$15
LF723:
	ldaa	,-x
	pshs	a
	decb
	bne	LF723
	bra	LF6E8
;
LF72C:
	clra
;
	db	$8C
;
LF72E:
	ldaa	#$20
	staa	X008E
	jmp	[-1872,pc]	;(RPTR17)	;INFO: index jump
;
SP017:
	pshs	x, b
LF738:
	bsr	LF796
	beq	LF754
	cmpa	X008E
	beq	LF738
	ldx	X009E
	cmpa	#$4D
	beq	LF75C
	ldx	X0093
	cmpa	#$50
	beq	LF75C
	ldx	X00A0
	cmpa	#$57
	beq	LF75C
LF752:
	puls	b, x, pc
LF754:
	bsr	LF79A
	beq	LF754
	bra	LF764
;
LF75A:
	ldx	,x
LF75C:
	stx	X009B
	tst	X008E
	beq	LF752
	bsr	LF7C6
LF764:
	ldx	X009B
	cmpa	#$2B
	bne	LF778
	bsr	LF78F
	pshs	a
	ldd	X009B
LF770:
	leax	d,x
	stx	X009B
	puls	a
	bra	LF764
;
LF778:
	cmpa	#$2D
	beq	LF783
	cmpa	#$40
	beq	LF75A
	clrb
	bra	LF752
;
LF783:
	bsr	LF78F
	pshs	a
	ldd	X009B
	nega
	negb
	sbca	#$00
	bra	LF770
;
LF78F:
	bsr	LF72E
	beq	LF7C5
LF793:
	lbra	LF1DB
LF796:
	clr	X009B
	clr	X009C
LF79A:
	bsr	LF7C6
LF79C:
	bsr	LF7AF
	bne	LF7C5
	ldab	#$10
	mul
	ldaa	#$04
LF7A5:
	aslb
	rol	X009C
	rol	X009B
	deca
	bne	LF7A5
	bra	LF7C3
;
LF7AF:
	cmpa	#$30
	bcs	LF7C5
	cmpa	#$39
	ble	LF7C1
	cmpa	#$41
	bcs	LF7C5
	cmpa	#$46
	bhi	LF7C5
	suba	#$07
LF7C1:
	anda	#$0F
LF7C3:
	orcc	#$04
LF7C5:
	rts
;
LF7C6:
	swi
;
CODE23:
	db	$00
;
	cmpa	#$18
	beq	LF793
	rts
;
	bsr	LF7D0
	rti
;
LF7D0:
	puls	x, y
	pshs	x
	bne	LF7EF
	lbsr	LF95C
	ldx	12,s
LF7DB:
	decb
	bmi	LF7F4
	ldaa	-16,y
	cmpx	,y++
	bne	LF7DB
	cmpa	#$3F
	bne	LF7EA
	staa	X00FB
LF7EA:
	inc	X008F
	lbra	LF8C2
LF7EF:
	lbsr	LF8AD
	std	12,s
LF7F4:
	lbsr	LF95C
	neg	X00FA
LF7F9:
	decb
	bmi	LF7C5
	ldaa	[,y]
	staa	-16,y
	ldaa	#$3F
	staa	[,y++]
	bra	LF7F9
;
	bsr	LF7D0
	puls	cc, a, b, dp, x, y, u
	jsr	[,s++]		;INFO: index jump
LF80C:
	swi
;
CODE24:
	db	$0A
;
	bra	LF80C
;
	lbsr	LF8AD
	std	X009E
LF815:
	ldx	X009E
	lbsr	LF270
	ldaa	#$2D
	swi
;
	db	$01
;
LF81E:
	lbsr	LF72C
	beq	LF82D
	cmpa	#$2C
	bne	LF835
	stx	X009E
	leax	1,x
	bra	LF81E
;
LF82D:
	ldab	X009C
	bsr	LF878
	cmpa	#$2C
	beq	LF81E
LF835:
	cmpa	#$27
	bne	LF845
LF839:
	bsr	LF7C6
	cmpa	#$27
	beq	LF84B
	tfr	a,b
	bsr	LF878
	bra	LF839
;
LF845:
	cmpa	#$20
	bne	LF84F
	stx	X009E
LF84B:
	swi
;
CODE25:
	db	$07
;
	bra	LF815
;
LF84F:
	cmpa	#$0A
	bne	LF85B
	ldaa	#$0D
	swi
;
	db	$01
;
	stx	X009E
	bra	LF865
;
LF85B:
	cmpa	#$5E
	bne	LF869
	leax	-2,x
	stx	X009E
LF863:
	swi
;
CODE26:
	db	$06
;
LF865:
	bsr	LF86E
	bra	LF815
;
LF869:
	cmpa	#$2F
	beq	LF863
	rts
;
LF86E:
	ldx	X009E
	pshs	x
	leax	,s
	swi
;
CODE27:
	db	$05
;
	puls	x, pc
LF878:
	ldx	X009E
	stab	,x+
	cmpb	-1,x
	bne	LF883
	stx	X009E
	rts
;
LF883:
	pshs	a
	ldaa	#$3F
	swi
;
CODE28:
	db	$01
;
	puls	a, pc
	bsr	LF8AD
	std	X00A0
	rts
;
	bsr	LF8AD
	andb	#$F0
	tfr	d,y
	leax	15,y
	bcs	LF89E
	bsr	LF8AD
	leax	d,y
LF89E:
	pshs	y, x
	cmpd	2,s
	bls	LF8A7
	std	,s
LF8A7:
	jsr	[-2249,pc]	;(RPTR15)	;INFO: index jump
	puls	y, u, pc
LF8AD:
	lbsr	LF72E
	bne	LF8BB
	cmpa	#$2F
	bhi	LF8BB
	cmpa	#$0E
	ldd	X009B
	rts
;
LF8BB:
	lbra	LF1DB
	bsr	LF8AD
	std	X0091
LF8C2:
	leas	2,s
LF8C4:
	ldu	[10,s]
	stu	X0099
	ldu	X00F4
	ldd	#$000D
	std	4,u
	rti
;
	bsr	LF8AD
	std	X00F0
	rts
;
	beq	LF8DD
	bsr	LF8AD
	std	X00F8
	rts
;
LF8DD:
	leax	14,s
	stx	X00F8
	rts
;
	bsr	LF8AD
	tfr	d,x
	bsr	LF8AD
	leax	1,x
	pshs	y, x
	subd	,s
	std	,s
	leax	1,s
	sex
	cmpa	,s
	bne	LF8F9
	swi
;
CODE29:
	db	$04
;
LF8F9:
	ldu	,s
	leau	-1,u
	stu	,x
	swi
;
CODE30:
	db	$05
;
	swi
;
CODE31:
	db	$06
;
	puls	a, b, x, pc
	beq	LF92A
	lbsr	LF72E
	beq	LF938
	cmpa	#$2D
	bne	LF94F
;
CODE32:
	db	$17
;
	ldu	X1B27
	com	X000F
;
	db	$FA
;
LF917:
	rts
;
	bsr	LF95A
LF91A:
	decb
	bmi	LF94F
	cmpx	,y++
	bne	LF91A
LF921:
	ldx	,y++
	stx	-4,y
	decb
	bpl	LF921
	dec	X00FA
LF92A:
	bsr	LF95A
	beq	LF917
LF92E:
	leax	,y++
	swi
;
CODE33:
	db	$05
;
	decb
	bne	LF92E
	swi
;
CODE34:
	db	$06
;
	rts
;
LF938:
	bsr	LF95A
	cmpb	#$08
	beq	LF94F
	ldaa	,x
	stab	,x
	cmpb	,x
	bne	LF94F
	staa	,x
LF948:
	decb
	bmi	LF952
	cmpx	,y++
	bne	LF948
LF94F:
	lbra	LF1DB
LF952:
	stx	,y
	clr	-15,y
	inc	X00FA
	bra	LF92A
;
LF95A:
	ldx	X009B
LF95C:
	leay	-2478,pc	;($EFB2)
	ldab	X00FA
	rts
;
	lbsr	LF8AD
	tfr	d,y
	leax	15,y
	bcs	LF971
	lbsr	LF8AD
	leax	d,y
LF971:
	pshs	y, x
	cmpd	2,s
	bls	LF97A
	std	,s
LF97A:
	bsr	LF98F
	jsr	[-2456,pc]	;(RPTR18)	;INFO: index jump
	puls	y, u, pc
SP018:
	swi
;
CODE35:
	db	$06
;
	ldx	4,s
LF986:
	cmpx	2,s
	bhi	LF98E
	staa	,x+
	bra	LF986
LF98E:
	rts
;
LF98F:
	bsr	LF99B
	ldab	#$10
	mul
	bsr	LF99B
	pshs	b
	adda	,s+
LF99A:
	rts
;
LF99B:
	swi
;
CODE36:
	db	$00
;
	lbsr	LF7AF
	beq	LF99A
	lbra	LF1DB
	lbsr	LF8AD
	tfr	d,y
	leax	15,y
	bcs	LF9B3
	lbsr	LF8AD
	leax	d,y
LF9B3:
	pshs	y, x
	cmpd	2,s
	bls	LF9BC
	std	,s
LF9BC:
	lbsr	LF8AD
	pshs	b, a
	jsr	[-2523,pc]	;(RPTR19)	;INFO: index jump
	puls	a, b, y, u, pc
SP019:
	swi
;
CODE37:
	db	$06
;
	ldy	2,s
	ldx	6,s
LF9CE:
	cmpx	4,s
	bhi	LF9D8
	ldaa	,x+
	staa	,y+
	bra	LF9CE
LF9D8:
	rts
;
LF9D9:
	ldaa	#$05
	ldab	PIA1AD
	nop
LF9DF:
	inca
	ldab	PIA1AC
	bpl	LF9DF
	eorb	#$02
	stab	PIA1AC
	rts
;
LF9EB:
	pshs	b
	ldaa	#$FF
	staa	XEF8D
	ldd	#$0000
	std	XEF8A
	clr	XEF89
	brn	LF9FD
LF9FD:
	bsr	LF9D9
	tst	X0000
XFA01:
	tst	XFA01
	staa	XEF88
	bsr	LF9D9
	cmpa	#$1F
	bge	XFA01
LFA0D:
	staa	XEF88
	bsr	LF9D9
	tfr	a,b
	addb	XEF88
	cmpb	#$2F
	ble	LFA0D
	bra	LFA1D
;
LFA1D:
	ldab	PIA1AD
	adda	#$05
	bra	LFA37
;
LFA24:
	ldaa	#$00
	jmp	LFA29
;
LFA29:
	staa	XEF8A
	ldab	#$00
	stab	XEF8B
	stab	XEF89
LFA34:
	ldaa	#$0A
LFA36:
	inca
LFA37:
	ldab	PIA1AC
	bpl	LFA36
	ldab	PIA1AD
	tst	X0000
	nop
	cmpa	#$39
	blt	LFA4B
	inc	XEF8B
	bra	LFA50
;
LFA4B:
	dec	XEF8B
	bra	LFA50
;
LFA50:
	ldab	XEF89
	adda	XEF8A
	staa	XEF8A
	adcb	#$00
	stab	XEF89
	bne	LFA63
	nop
	bra	LFA67
;
LFA63:
	cmpa	#$17
	bge	LFA71
LFA67:
	ldab	#$06
LFA69:
	decb
	bpl	LFA69
	jmp	LFA6F
LFA6F:
	bra	LFA34
;
LFA71:
	asl	XEF8B
	ror	XEF8D
	bcc	LFA82
	cmpa	#$67
	blt	LFA24
	ldaa	#$24
	jmp	LFA29
;
LFA82:
	ldaa	XEF8D
	adda	XEF87
	staa	XEF87
	ldaa	XEF8D
	puls	b
	rts
;
LFA91:
	ldab	#$0F
LFA93:
	jsr	LFAC0
	ldaa	#$1D
LFA98:
	deca
	bpl	LFA98
	jmp	LFA9E
;
LFA9E:
	decb
	bne	LFA93
	jsr	LFAC0
	rts
;
LFAA5:
	ldab	#$07
LFAA7:
	jsr	LFAC0
	ldaa	#$43
LFAAC:
	deca
	bpl	LFAAC
	bra	LFAB1
;
LFAB1:
	decb
	bne	LFAA7
	jsr	LFAC0
	ldaa	#$23
LFAB9:
	deca
	bpl	LFAB9
	jmp	LFABF
LFABF:
	rts
;
LFAC0:
	ldaa	#$80
	eora	PIA1AD
	staa	PIA1AD
	rts
;
LFAC9:
	staa	XEF8D
	bsr	LFAA5
	ldaa	#$09
	staa	XEF8C
XFAD3:
	tst	XFAD3
LFAD6:
	ldaa	#$16
LFAD8:
	deca
	bpl	LFAD8
	nop
	orcc	#$01
	ror	XEF8D
	bcs	LFAE8
	jsr	LFAA5
	bra	LFAED
;
LFAE8:
	jsr	LFA91
	bra	LFAED
;
LFAED:
	dec	XEF8C
	bpl	LFAD6
	rts
;
	lbsr	LF8AD
	tfr	d,y
	leax	15,y
	bcs	LFB01
	lbsr	LF8AD
	leax	d,y
LFB01:
	pshs	y, x
	cmpd	2,s
	bls	LFB0A
	std	,s
LFB0A:
	ldx	,s
	stx	-2960,pc	;(XEF80)
	ldx	2,s
	stx	-2968,pc	;(XEF7E)
	puls	x, y
	ldx	#$0348
LFB1B:
	ldaa	#$FF
	ldab	#$13
LFB1F:
	decb
	bpl	LFB1F
	nop
	nop
	jsr	LFAC9
	leax	-1,x
	bne	LFB1B
	pshs	pc, u, y, x, dp, b, a
	leas	11,s
LFB2F:
	ldd	XEF80
	subd	XEF7E
	tsta
	beq	LFB3C
	ldab	#$FF
	bra	LFB3F
;
LFB3C:
	lbra	LFB3F
LFB3F:
	ldaa	#$42
	pshs	b
	ldab	#$09
LFB45:
	decb
	bpl	LFB45
	nop
	nop
	jsr	LFAC9
	tfr	s,x
	ldaa	,x+
	bra	LFB53
;
LFB53:
	ldab	#$13
LFB55:
	decb
	bpl	LFB55
	jsr	LFAC9
	ldab	#$11
LFB5D:
	decb
	bpl	LFB5D
	puls	a
	inca
	staa	XEF83
	ldx	#$EF7E
LFB69:
	ldaa	,x+
	nop
	nop
	jsr	LFAC9
	ldab	#$12
LFB72:
	decb
	bpl	LFB72
	nop
	cmpx	#$EF80
	bne	LFB69
	bra	LFB7D
;
LFB7D:
	ldx	XEF7E
LFB80:
	ldaa	,x+
	bra	LFB84
;
LFB84:
	jsr	LFAC9
	ldab	#$12
LFB89:
	decb
	bpl	LFB89
	nop
	dec	XEF83
	beq	LFB94
	bra	LFB80
;
LFB94:
	ldy	#$0019
LFB98:
	ldaa	#$FF
	nop
	jsr	LFAC9
	ldab	#$13
LFBA0:
	decb
	bpl	LFBA0
	nop
	leay	-1,y
	bne	LFB98
	stx	XEF7E
	leax	-1,x
	cmpx	XEF80
	lbne	LFB2F
	ldaa	#$47
	jmp	LFAC9
;
	clr	X0084
	dec	X0084
	bra	LFBC1
;
	clr	X0084
LFBC1:
	lbsr	LF8AD
	std	X0085
LFBC6:
	jsr	LF9EB
	cmpa	#$42
	beq	LFBD2
	cmpa	#$47
	bne	LFBC6
	rts
;
LFBD2:
	jsr	LF9EB
	tfr	a,b
	incb
	jsr	LF9EB
	staa	X007E
	jsr	LF9EB
	staa	X007F
	pshs	b
	ldd	X0085
	addd	X007E
	std	X007E
	puls	b
	ldx	X007E
LFBEE:
	jsr	LF9EB
	tst	XEF84
	bne	LFBFD
	staa	,x+
LFBF8:
	decb
	bne	LFBEE
	bra	LFBC6
;
LFBFD:
	cmpa	,x+
	beq	LFBF8
	staa	X0082
	leay	-1,x
	leax	522,pc		;(ADRMEM)
	swi
;
CODE38:
	db	$03
;
	sty	X0083
	leax	-3215,pc	;(XEF83)
	swi
;
CODE39:
	db	$05
;
	leax	,y
	swi
;
CODE40:
	db	$04
;
	leax	-3226,pc	;($EF82)
	swi
	lsr	X003F
	ror	X0039
	tst	X007D
	bne	LFC2C
	dec	X007D
	ldaa	#$FF
	staa	X007C
	rts
;
LFC2C:
	clr	X007D
	rts
;
LFC2F:
	swi
;
CODE41:
	db	$00
;
	cmpa	#$2F
	bls	LFC2F
	cmpa	#$33
	bgt	LFC2F
	swi
;
CODE42:
	db	$06
;
	suba	#$30
	anda	#$03
	ldab	PIA1AD
	andb	#$FC
	pshs	b
	adda	,s+
	staa	PIA1AD
	rts
;
	bsr	LFC70
	ldaa	,y
	bra	LFC7F
;
	bsr	LFC70
	staa	,y
	bra	LFC7F
;
	bsr	LFC70
	ldab	,y
	bra	LFC7F
;
	bsr	LFC70
	stab	,y
	bra	LFC7F
;
	bsr	LFC70
	ldd	,y
	bra	LFC7F
;
	bsr	LFC70
	std	,y
	bra	LFC7F
;
LFC70:
	pshs	b, cc
	ldab	PIA1AD
	stab	X007B
	andb	#$FC
	stab	PIA1AD
	puls	cc, b
	rts
;
LFC7F:
	pshs	b, cc
	ldab	X007B
	stab	PIA1AD
	puls	cc, b
	rts
;
	bsr	LFC70
	jsr	,y		;INFO: index jump
	bra	LFC7F
;
	bsr	LFC70
LFC91:
	ldaa	X8008
	asra
	bcc	LFC91
	ldaa	X8009
	anda	#$7F
	bra	LFC7F
;
	nop
	nop
*****************************************
* Chargement Boot sect
*****************************************
	ldab	#$FE
	stab	FLOSEL
	ldx	#$0000
LFCA8:
	leax	-1,x
	bne	LFCA8
	ldab	#$0C
	stab	WDSTR
	bsr	LFD01
	ldx	#$FFFF
LFCB6:
	leax	-1,x
	lbeq	LFD64
	bsr	LFD01
	ldab	WDSTR
	bitb	#$01
	bne	LFCB6
	ldaa	#$01
	staa	WDSCR
	bsr	LFD01
	ldab	#$8C
	stab	WDSTR
	bsr	LFD01
	ldx	#$C100
LFCD6:
	bitb	#$02
	beq	LFCDF
	ldaa	WDDR
	staa	,x+
LFCDF:
	ldab	WDSTR
	bitb	#$01
	bne	LFCD6
	andb	#$1C
	bne	LFD64
	clra
	tfr	a,dp
	ldd	XC1F5
	cmpd	XFDEF
	beq	LFCFE
	ldx	#$0000
	clra
LFCFA:
	staa	,x+
	bra	LFCFA
LFCFE:
	jmp	LC100
;
LFD01:
	bsr	LFD03
LFD03:
	rts
;
	nop
	nop
	nop
	pshs	u, dp
	ldaa	#$EF
	tfr	a,dp
LFD0D:
	lbsr	SP010
	bcc	LFD0D
	anda	#$7F
	tst	X00F2
	puls	dp, u
	beq	LFD1B
	rts
;
LFD1B:
	pshs	dp, b
	ldab	#$EF
	tfr	b,dp
	lbsr	SP013
	puls	b, dp
	rts
;
	pshs	u, dp, a
	ldaa	#$EF
	tfr	a,dp
	lbsr	SP010
	tfr	cc,a
	anda	#$01
	puls	a, dp, u
	rts
;
	pshs	x, b
	ldx	#$0040
LFD3C:
	leax	-1,x
	bne	LFD3C
	lbsr	LFAC9
	puls	b, x
	rts
;
	lbsr	LF9EB
	anda	#$7F
	rts
;
	pshs	x, b, a
	ldx	#$03FF
LFD51:
	ldaa	#$00
	ldab	#$13
LFD55:
	decb
	bpl	LFD55
	nop
	nop
	jsr	LFAC9
	leax	-1,x
	bne	LFD51
	puls	a, b, x
	rts
;
LFD64:
	ldx	#$FD6A
	swi
;
CODE43:
	db	$03
;
	rts
;
ERRDOS:
	db	"ERREUR DE CHARGEMENT DOS\x0A\x0D\x04"
;
	clra
	tfr	a,dp
	jmp	LCD03
;
	pshs	x
	ldx	#$FDBA
	cmpx	X0070
	beq	LFD9B
	stx	X0070
	ldx	#$077F
	bra	LFDA3
;
LFD9B:
	ldx	#$FDAA
	stx	X0070
	ldx	#$063F
LFDA3:
	stx	X006E
	lbsr	LF3BE
	puls	x, pc
	clr	X5064
	asl	X0017
	bra	LFDC5
;
	db	$15
;
	neg	X000C
	nega
	inc	X0000
	neg	X0000
	neg	X007F
	negb
	lsr	8,x
;
	db	$1B
	db	$05
	db	$18
;
	daa
	neg	X000A
;
	db	$60
LFDC5:
	db	$08
;
	neg	X0000
	neg	X0000
	tst	X00F5
	inca
	dec	X00F5
	leay	8,x
	bitb	X4218
	bitb	X5D09
	bitb	X9A0B
	bitb	X8D0C
	bitb	XA91C
	bitb	XAE07
	bitb	XB41B
	bitb	XC955
	lbhs	L6545
	bls	LFE67
XFDEF:
	negb
	rorb
;
ESP04:
	db	" \x04"
NOMBRE:
	db	"0\x011\x032\x053\x074\x095\x0B6\x0D7\x0F==\x05e\x00\x01\x1B \x00"
;
	asr	0,u
	neg	X0019
	neg	0,x
;
	db	$00
ADRMEM:
	db	"ADR  ME K7\x0A\x0D\x04"
;
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
;
	db	$FF
	db	$FF
LFE67:
	db	$FF
;
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	ldx	#$3000
	ldaa	PIA1AD
	nop
	staa	PIA1AD
	bita	#$01
	beq	LFE94
	stx	XEB0E
	jmp	LC700
;
LFE94:
	ldx	#$1000
	stx	XEB0E
	rti
XFE9B:
	jmp	[-3801,pc]	;(RPTR1)	;INFO: index jump
	jmp	[-3803,pc]	;(RPTSW3)	;INFO: index jump
VSWI3:
	jmp	[-3805,pc]	;(RPTSW2)	;INFO: index jump
VSWI2:
	jmp	[-3807,pc]	;(RPTFIR)	;INFO: index jump
VIRQ:
	jmp	[-3809,pc]	;(RPTIRQ)	;INFO: index jump
VSWI:
	jmp	[-3811,pc]	;(RPTSWI)	;INFO: index jump
VNMI:
	jmp	[-3813,pc]	;(RPTNMI)	;INFO: index jump
;
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFFFF
	stu	XFE9B
;
swi3:
	dw	$FE9F
SWI2:
	dw	VSWI3
FIRQ:
	dw	VSWI2
IRQ:
	dw	VIRQ
SWI:
	dw	VSWI
NMI:
	dw	VNMI
RESET:
	dw	VRESET