ROM.asm

	.org	00000H
;
X0004:	.equ	00004H
X0039:	.equ	00039H
X8100:	.equ	08100H
X8104:	.equ	08104H
X810B:	.equ	0810BH
X810C:	.equ	0810CH
X810E:	.equ	0810EH
X8180:	.equ	08180H
XDED0:	.equ	0DED0H
XDED2:	.equ	0DED2H
XDEF1:	.equ	0DEF1H
XFE06:	.equ	0FE06H
;
X0001:	.equ	00001H
X3C3C:	.equ	03C3CH
X3C3D:	.equ	03C3DH
X3C3E:	.equ	03C3EH
X3C41:	.equ	03C41h
X3DC1:	.equ	03DC1H
X3DC2:	.equ	03DC2H
X3DC3:	.equ	03DC3H
X3DC4:	.equ	03DC4H
X3DC6:	.equ	03DC6H
X3DC7:	.equ	03DC7H
X3DC8:	.equ	03DC8H
X3DC9:	.equ	03DC9H
X3DCA:	.equ	03DCAH
X3DCB:	.equ	03DCBH
X3DCC:	.equ	03DCCH
X3DCD:	.equ	03DCDH
X3DCE:	.equ	03DCEH
X3DCF:	.equ	03DCFH
X3DD1:	.equ	03DD1H
X3DD2:	.equ	03DD2H
X3DD3:	.equ	03DD3H
X3DD4:	.equ	03DD4H
X3DE8:	.equ	03DE8H
X3DE9:	.equ	03DE9H
X3DEA:	.equ	03DEAH
X3DEB:	.equ	03DEBH
X3DEC:	.equ	03DECH
X3DED:	.equ	03DEDH
X3DEF:	.equ	03DEFH
X3DF1:	.equ	03DF1H
X3DF2:	.equ	03DF2H
X3DF4:	.equ	03DF4H
X3DF5:	.equ	03DF5H
X3DF6:	.equ	03DF6H
X3DF7:	.equ	03DF7H
X3DF8:	.equ	03DF8H
X3DF9:	.equ	03DF9H
X3DFB:	.equ	03DFBH
X3DFD:	.equ	03DFDH
X3DFF:	.equ	03DFFH
X3E00:	.equ	03E00H
X3E02:	.equ	03E02H
X3E04:	.equ	03E04H
X3E06:	.equ	03E06H
X3E08:	.equ	03E08H
X3E0A:	.equ	03E0AH
X3E0B:	.equ	03E0BH
X3E0C:	.equ	03E0CH
X3E0D:	.equ	03E0DH
X3E0E:	.equ	03E0EH
X3E0F:	.equ	03E0FH
X3E10:	.equ	03E10H
X3E11:	.equ	03E11H
X3E12:	.equ	03E12H
X3E13:	.equ	03E13H
X3E14:	.equ	03E14H
X3E15:	.equ	03E15H
X3E16:	.equ	03E16H
X3E17:	.equ	03E17H
X3E19:	.equ	03E19H
X3E1A:	.equ	03E1AH
X3E5C:	.equ	03E5CH
X3E5D:	.equ	03E5DH
X3E5E:	.equ	03E5EH
X3E60:	.equ	03E60H
X3E61:	.equ	03E61H
X3E6C:	.equ	03E6CH
X3E6D:	.equ	03E6DH
L3E6F:	.equ	03E6FH
X3E70:	.equ	03E70H
X3E71:	.equ	03E71H
X3E76:	.equ	03E76H
X3E77:	.equ	03E77H
X3E80:	.equ	03E80H
X3E82:	.equ	03E82H
X3E8B:	.equ	03E8BH
X3E8D:	.equ	03E8DH
X3E8E:	.equ	03E8EH
X3EA0:	.equ	03EA0H
X3EA2:	.equ	03EA2H
X3EA3:	.equ	03EA3H
X3F28:	.equ	03F28H
X3F2A:	.equ	03F2AH
X3F2B:	.equ	03F2BH
X3F2C:	.equ	03F2CH
X3F2D:	.equ	03F2DH
X3F2E:	.equ	03F2EH
X3F30:	.equ	03F30H
X3F32:	.equ	03F32H
X3F40:	.equ	03F40H
X3F42:	.equ	03F42H
X3F44:	.equ	03F44H
X3F46:	.equ	03F46H
X3F48:	.equ	03F48H
X3F49:	.equ	03F49H
X3F4A:	.equ	03F4AH
X3F4C:	.equ	03F4CH
X3F4E:	.equ	03F4EH
X3F50:	.equ	03F50H
X3F52:	.equ	03F52H
X3F54:	.equ	03F54H
X3F56:	.equ	03F56H
X3F58:	.equ	03F58H
X3F5A:	.equ	03F5AH
X3F5C:	.equ	03F5CH
X3F5E:	.equ	03F5EH
X3F60:	.equ	03F60H
X3F62:	.equ	03F62H
X3F63:	.equ	03F63H
X3F64:	.equ	03F64H
X3F65:	.equ	03F65H
L490F:	.equ	0490FH
L4CBB:	.equ	04CBBH
X507C:	.equ	0507CH
X8076:	.equ	08076H
L8080:	.equ	08080H
LEEF7:	.equ	0EEF7H
XFEC5:	.equ	0FEC5H
;
L0000:	lxi	sp,07FFFH	;<< RST0
	jmp	L3C60
;
X0006:	.db	06Bh
X0007:	.db	047h
;
L0008:	mov	a,m		;<< RST1
	xthl
	cmp	m
	inx	h
	xthl
	jnz	L009B
L0010:	inx	h		;<< RST2
	mov	a,m
	cpi	03AH
	rnc
	jmp	L04F5
;
L0018:	push	psw		;<< RST3
	push	b
	mov	c,a
	push	h
	nop
z001D:	jmp	L03D0
;
L0020:	mov	a,h		;<< RST4
	sub	d
	rnz
	mov	a,l
	sub	e		;<< TRAP
	ret
;
X0026:	.dw	04301H
;
L0028:	lda	X3F63		;<< RST5
	ora	a
	jnz	L11EB		;<< RST5.5
	ret
;
L0030:	mov	c,m		;<< RST6
	inx	h
	mov	b,m
	inx	h
	jmp	L003B		;<< RST6.5
;
	.db	00h
;
L0038:	jmp	L2BB7		;<< RST7
;
L003B:	shld	X3E77
	pop	h
	push	b
	push	h
	lhld	X3E77
	ret
;
L0045:	lxi	h,00004h
	dad	sp
L0049:	mov	a,m
	inx	h
	cpi	081H
	rnz
	mov	c,m
	inx	h
	mov	b,m
	inx	h
	push	h
	mov	l,c
	mov	h,b
	mov	a,d
	ora	e
	xchg
	jz	L005D
	xchg
	rst	4
L005D:	lxi	b,0000DH
	pop	h
	rz
	dad	b
	jmp	L0049
;
L0066:	call	L0086
L0069:	push	b
	xthl
	pop	b
L006C:	rst	4
	mov	a,m
	stax	b
	rz
	dcx	b
	dcx	h
	jmp	L006C
;
L0075:	xthl
	mov	c,m
	inx	h
	xthl
L0079:	push	h
	lhld	X3F5C
	mvi	b,000H
	dad	b
	dad	b
	call	L0086
L0084:	pop	h
	ret
;
L0086:	push	d
	xchg
	lxi	h,0FFDBH
	dad	sp
	rst	4
	xchg
	pop	d
	rnc
L0090:	mvi	e,00CH
	jmp	L00A7
;
L0095:	lhld	X3F46
	shld	X3F4E
L009B:	mvi	e,002H
	xra	a
	sta	X3E8B
	lxi	b,z141C+2	;141Eh
	lxi	b,z001D+1	;001Eh
L00A7:	call	L01D6
	xra	a
	sta	X3F2A
	call	L0741
	mov	a,e
	rrc
	mov	e,a
	inr	e
	lxi	h,S21A2
L00B8:	dcr	e
	jz	L00C5
L00BC:	mov	a,m
	inx	h
	ora	a
	jz	L00B8
	jmp	L00BC
;
L00C5:	call	L1E03
	lxi	h,S2294
;
L00CB:	call	L1E06
	lhld	X3F4E
	mov	a,h
	ana	l
	inr	a
	jz	L00F1
	push	h
	call	L1390
	mvi	a,03AH
	rst	3
	lda	X3EA0
	inr	a
	mov	e,a
	mvi	d,000H
	call	L1399
	pop	h
	xchg
	lda	X3E8B
	ora	a
	jz	L17C5
L00F1:	lxi	h,S229C
	call	L1E03
	lxi	h,0FFFFH
	shld	X3F4E
	shld	X3E8B
L0100:	xra	a
	sta	X3F2A
	sta	X3EA3
	sta	X3E76
	call	L0279
L010D:	call	L073C
L0110:	rst	2
	inr	a
	dcr	a
	jz	L0100
	push	psw
	call	L0583
	push	d
	call	L01F1
	mov	b,a
	pop	d
	pop	psw
	jnc	L04C6
	push	d
	push	b
	rst	2
	push	psw
	call	L0197
	push	b
	jnc	L0141
	xchg
	lhld	X3F58
L0133:	ldax	d
	stax	b
	inx	b
	inx	d
	rst	4
	jnc	L0133
	mov	h,b
	mov	l,c
	inx	h
	shld	X3F58
L0141:	pop	d
	pop	psw
	jz	L0168
	lhld	X3F58
	xthl
	pop	b
	dad	b
	push	h
	call	L0066
	pop	h
	shld	X3F58
	xchg
	mov	m,h
	inx	h
	inx	h
	pop	d
	mov	m,e
	inx	h
	mov	m,d
	inx	h
	lxi	d,X3EA3
L0160:	ldax	d
	mov	m,a
	inx	h
	inx	d
	ora	a
	jnz	L0160
L0168:	call	L01BB
	inx	h
L016C:	mov	d,h
	mov	e,l
	mov	a,m
	inx	h
	ora	m
	jz	L0185
	inx	h
	inx	h
	inx	h
	xra	a
L0178:	cmp	m
	inx	h
	jnz	L0178
	xchg
	mov	m,e
	inx	h
	mov	m,d
	xchg
	jmp	L016C
;
L0185:	lda	X3F2A
	ora	a
	jz	L0100
	dcr	a
	jz	L00F1
	xra	a
	sta	X3F2A
	jmp	L1991
;
L0197:	lhld	X3F56
L019A:	mov	b,h
	mov	c,l
	mov	a,m
	inx	h
	ora	m
	dcx	h
	rz
	push	b
	rst	6
	rst	6
	pop	h
	rst	4
	pop	h
	pop	b
	cmc
	rz
	cmc
	rnc
	jmp	L019A
;
L01AF:	rnz
	lhld	X3F56
	xra	a
	mov	m,a
	inx	h
	mov	m,a
	inx	h
	shld	X3F58
L01BB:	lhld	X3F56
	dcx	h
	mvi	m,000H
L01C1:	shld	X3F4A
	lhld	X3F2E
	shld	X3F42
	call	L050F
L01CD:	lhld	X3F58
	shld	X3F5A
	shld	X3F5C
L01D6:	pop	b
	lhld	X3F54
	sphl
	lxi	h,X3F32
	shld	X3F30
	lxi	h,L0000
	push	h
	shld	X3F52
	lhld	X3F4A
	xra	a
	sta	X3F48
	push	b
	ret
;
L01F1:	xra	a
	sta	X3F2D
	mvi	c,005H
	lxi	d,X3EA3
L01FA:	mov	a,m
	cpi	020H
	jz	L023C
	mov	b,a
	cpi	022H
	jz	L025C
	ora	a
	jz	L0270
	lda	X3F2D
	ora	a
	mov	b,a
	mov	a,m
	jnz	L023C
	cpi	030H
	jc	L021D
	cpi	03CH
	jc	L023C
L021D:	push	d
	lxi	d,S22C2
	push	h
	mvi	a,023h
	inx	d
L0225:	ldax	d
	ani	07FH
	jz	00239h	;!!!!!!!!!!!!!!!!!!!!!!!!
	cmp	m
	jnz	L0263
	ldax	d
	ora	a
	jp	00223h	;!!!!!!!!!!!!!!!!!!!!!!!!
	pop	psw
	mov	a,b
	ori	080H
	jp	07EE1h	;???????????????????
	pop	d
L023C:	inx	h
	stax	d
	inx	d
	inr	c
	sui	03AH
	jz	L024A
	cpi	049H
	jnz	L024D
L024A:	sta	X3F2D
L024D:	sui	054H
	jnz	L01FA
	mov	b,a
L0253:	mov	a,m
	ora	a
	jz	L0270
	cmp	b
	jz	L023C
L025C:	inx	h
	stax	d
	inr	c
	inx	d
	jmp	L0253
;
L0263:	pop	h
	push	h
	inr	b
	xchg
L0267:	ora	m
	inx	h
	jp	L0267
	xchg
	jmp	L0225
;
L0270:	lxi	h,X3EA2
	stax	d
	inx	d
	stax	d
	inx	d
	stax	d
	ret
;
L0279:	lxi	d,X3EA3
L027C:	mov	h,d
	mov	l,e
L027E:	lxi	b,L027E
	push	b
	call	L03BF
	cpi	00DH
	jz	L028F
	cpi	00AH
	jnz	L0297
L028F:	pop	h
	xchg
	ret
;
L0292:	mvi	c,007H
	jmp	L285B
;
L0297:	mov	c,a
	cpi	019H
	jz	L031F
	cpi	01AH
	jz	L0315
	cpi	01FH
	jz	L02F7
	cpi	00CH
	jz	L0305
	cpi	000H
	jz	L0292
	cpi	008H
	jz	L033B
	cpi	018H
	jz	L0343
	cpi	001H
	jz	L0353
	cpi	07FH
	jz	L0349
	dcr	b
	jp	L0374
L02C9:	lda	X3E76
	inr	a
	rm
	sta	X3E76
	mvi	b,000H
	inx	d
	push	d
	push	h
	mov	h,d
	mov	l,e
L02D8:	dcx	d
	ldax	d
	mov	m,a
	inr	b
	xthl
	rst	4
	xthl
	dcx	h
	jnz	L02D8
	mov	m,c
L02E4:	call	L1E06
	mvi	c,020H
	call	L285B
	mvi	a,008H
L02EE:	rst	3
	dcr	b
	jnz	L02EE
	pop	h
	inx	h
	pop	d
	ret
;
L02F7:	mvi	c,018H
	call	L0343
	call	L032B
	rz
	rst	4
	rz
	jmp	L02F7
;
L0305:	mvi	c,008H
	call	L033B
	call	L032B
	rz
	mov	a,l
	cpi	0A3H
	rz
	jmp	L0305
;
L0315:	mvi	c,018H
	call	L0343
	rst	4
	rz
	jmp	L0315
;
L031F:	mvi	c,008H
	call	L033B
	mov	a,l
	cpi	0A3H
	rz
	jmp	L031F
;
L032B:	mov	a,m
	cpi	020H
	rz
	cpi	03AH
	rz
	cpi	02CH
	rz
	cpi	03BH
	rz
	cpi	022H
	ret
;
L033B:	mov	a,l
	cpi	0A3H
	rz
	dcx	h
	jmp	L285B
;
L0343:	rst	4
	rz
	inx	h
	jmp	L285B
;
L0349:	mov	a,l
	cpi	0A3H
	rz
	dcx	h
	mvi	c,008H
	call	L285B
L0353:	rst	4
	rz
	lda	X3E76
	dcr	a
	rm
	sta	X3E76
	mvi	b,000H
	dcx	d
	push	d
	dcx	h
	push	h
	inx	h
	push	h
	mov	d,h
	mov	e,l
L0367:	inx	d
	ldax	d
	mov	m,a
	inx	h
	inr	b
	ora	a
	jnz	L0367
	pop	h
	jmp	L02E4
;
L0374:	push	h
	lxi	h,023AFH
	sui	02AH
	cpi	017H
	jc	L0398
	lxi	h,X22C3
	sui	017H
	cpi	024H
	jc	L0398
	lxi	h,02351H
	sui	024H
	cpi	002H
	jc	L0398
	lxi	h,02359H
	sui	002H
L0398:	mov	b,a
L0399:	dcr	b
	jm	L03A9
L039D:	mov	a,m
	inx	h
	ora	a
	jz	L0084
	jp	L039D
	jmp	L0399
;
L03A9:	mov	a,m
	ora	a
	jm	L03B8
	mov	c,a
	xthl
	call	L02C9
	xthl
	inx	h
	jmp	L03A9
;
L03B8:	ani	07FH
	mov	c,a
	pop	h
	jmp	L02C9
;
L03BF:	mvi	b,000H
L03C1:	call	L2BEC
	cpi	003H
	jz	L16D6
	cpi	01BH
	rnz
	mov	b,a
	jmp	L03C1
;
L03D0:	lxi	h,x03EF
L03D3:	mov	a,m
	inx	h
	cmp	c
	jz	L03E8
	ora	a
	jnz	L03D3
	lda	X3E76
	ora	a
	cm	L0741
	inr	a
	sta	X3E76
L03E8:	call	L2853
	pop	h
	pop	b
	pop	psw
	ret
;
x03EF:	.db	008H
	.db	00Ah
	.db	00Dh
	.db	00Ch
	.db	01Fh
	.db	018H
	.db	019h
	.db	01Ah
	.db	000h
;
L03F8:	call	L0417
	rnz
	pop	b
	call	L0197
	mov	h,b
	mov	l,c
L0402:	rst	6
	pop	d
	mov	a,d
	ora	e
	jz	L00F1
	call	L0519
	push	d
	call	L0432
	pop	h
	jc	L00F1
	jz	L0402
L0417:	call	L0583
	rz
	rst	1
	.db	02Ch
;
	push	d
	call	L0583
	pop	h
	rnz
	xchg
	mov	a,h
	ora	l
	stc
	rz
	rst	4
	jc	L009B
	xra	a
	stc
	shld	X3E8B
	ret
;
L0432:	rst	6
	dcx	h
	xthl
	xchg
	lhld	X3E8B
	rst	4
	pop	b
	rc
	push	b
	call	L0741
	jmp	L16DC
;
P0443:	mvi	a,064H
	sta	X3F48
	call	L0632
	xthl
	call	L0045
	pop	d
	jnz	L0455
	dad	b
	sphl
L0455:	xchg
	call	L0075
;
	.db	008H	; ??????????????????????
;
	push	h
	call	L061B
	xthl
	push	h
	lhld	X3F4E
	xthl
	call	L08C7
	rst	1
	.db	09Eh
;
	call	L08C4
	push	h
	call	L122E
	pop	h
	push	b
	push	d
	lxi	b,X8100
	mov	d,c
	mov	e,d
	mov	a,m
	cpi	0A3H
	mvi	a,001H
	jnz	L048A
	rst	2
	call	L08C4
	push	h
	call	L122E
	pop	h
	rst	5
L048A:	push	b
	push	d
	push	psw
	inx	sp
	push	h
	lhld	X3F4A
	xthl
L0493:	mvi	b,081H
	push	b
	inx	sp
L0497:	in	001H
	ani	040H
	cz	L0519
	shld	X3F4A
	mov	a,m
	xchg
	lxi	h,X3EA0
	inr	m
	ora	a
	jz	L04B4
	cpi	03AH
	jnz	L009B
	xchg
	jmp	L04C6
;
L04B4:	mov	m,a
	xchg
	inx	h
	mov	a,m
	inx	h
	ora	m
	inx	h
	jz	L052A
	mov	e,m
	inx	h
	mov	d,m
	xchg
	shld	X3F4E
	xchg
L04C6:	rst	2
	lxi	d,L0497
	push	d
L04CB:	rz
L04CC:	sui	080H
	jc	L0632
	cpi	01DH
	jc	L04E2
	cpi	04AH
	jc	L009B
	cpi	065H
	jz	L009B
	sui	02DH
L04E2:	rlc
	mov	c,a
	mvi	b,000H
	xchg
	lxi	h,T2437
	dad	b
	mov	c,m
	inx	h
	mov	b,m
	push	b
	xchg
L04F0:	inx	h
	mov	a,m
	cpi	03AH
	rnc
L04F5:	cpi	020H
	jz	L04F0
	cpi	030H
	cmc
	inr	a
	dcr	a
	ret
;
P0500:	jz	L050F
	call	L0583
	rnz
	push	h
	call	L05EC
	pop	d
	jmp	L0514
;
L050F:	xchg
	lhld	X3F56
	dcx	h
L0514:	shld	X3F5E
	xchg
	ret
;
L0519:	call	L2DAB
	ora	a
	rz
	call	L03BF
	cpi	005H
P0523:	rnz
	ori	0C0H
	shld	X3F4A
	pop	b
L052A:	push	psw
	lhld	X3F4E
	mov	a,l
	ana	h
	inr	a
	jz	L053D
	shld	X3F50
	lhld	X3F4A
	shld	X3F52
L053D:	pop	psw
	lxi	h,S22A3
	jnz	L00CB
	jmp	L00F1
;
P0547:	rnz
	mvi	e,020H
	lhld	X3F52
	mov	a,h
	ora	l
	jz	L00A7
	xchg
	lhld	X3F50
	shld	X3F4E
	xchg
	ret
;
L055B:	mov	a,m
	cpi	041H
	rc
	cpi	05BH
	cmc
	ret
;
L0563:	rst	2
L0564:	call	L08C4
L0567:	rst	5
	jm	L057E
L056B:	lda	X3F63
	cpi	091H
	jc	L1288
	lxi	b,08001H
	lxi	d,L0000
	call	L125D
	mov	d,c
	rz
L057E:	mvi	e,008H
	jmp	L00A7
;
L0583:	dcx	h
L0584:	lxi	d,L0000
L0587:	rst	2
	rnc
	push	h
	push	psw
	lxi	h,L19BC
	rst	4
	jc	L009B
	mov	h,d
	mov	l,e
	dad	d
	dad	h
	dad	d
	dad	h
	pop	psw
	sui	030H
	mov	e,a
	mvi	d,000H
	dad	d
	xchg
	pop	h
	jmp	L0587
;
P05A4:	jz	L01C1
	call	L0564
	dcx	h
	rst	2
	rnz
	push	h
	lhld	X3F2E
	mov	a,l
	sub	e
	mov	e,a
	mov	a,h
	sbb	d
	mov	d,a
	jc	L009B
	lhld	X3F58
	lxi	b,L0028
	dad	b
	rst	4
	jnc	L0090
	xchg
	shld	X3F54
	pop	h
	jmp	L01C1
;
P05CD:	jz	L01BB
	call	L01C1
	lxi	b,L0497
	jmp	L05E8
;
P05D9:	call	L0075
	inx	b
	pop	b
	push	h
	push	h
	lhld	X3F4E
	xthl
	mvi	d,08CH
	push	d
	inx	sp
L05E8:	push	b
L05E9:	call	L0583
L05EC:	call	0061Dh	;!!!!!!!!!!!!!!!!!!!!!!!!
	push	h
	lhld	X3F4E
	rst	4
	pop	h
	inx	h
	cc	L019A
	cnc	L0197
	mov	h,b
	mov	l,c
	dcx	h
	rc
	mvi	e,00EH
	jmp	L00A7
;
P0605:	rnz
	mvi	d,0FFH
	call	L0045
	sphl
	cpi	08CH
	mvi	e,004H
	jnz	L00A7
	pop	h
	shld	X3F4E
	lxi	h,L0497
	xthl
L061B:	lxi	b,00E3Ah	;???
	nop			;???
	mvi	b,000H
L0621:	mov	a,c
	mov	c,b
	mov	b,a
L0624:	mov	a,m
	ora	a
	rz
	cmp	b
	rz
	inx	h
	cpi	022H
	jz	L0621
	jmp	L0624
;
L0632:	call	L0ABB
	rst	1
	.db	0ACh
;
	lda	X3F2C
	push	psw
	push	d
	call	L08D3
	xthl
	shld	X3F4A
	pop	d
	pop	psw
	push	d
	rar
	call	L08C9
	jz	L0677
L064D:	push	h
	lhld	X3F60
	push	h
	inx	h
	inx	h
	rst	6
	pop	d
	lhld	X3F54
	rst	4
	pop	d
	jnc	L0667
	lhld	X3F58
	rst	4
	mov	l,e
	mov	h,d
	cc	L0CD0
L0667:	ldax	d
	push	psw
	xra	a
	stax	d
	call	L0E66
	pop	psw
	mov	m,a
	xchg
	pop	h
	call	L123D
	pop	h
	ret
;
L0677:	push	h
	call	L123A
	pop	d
	pop	h
	ret
;
P067E:	call	L0F59
	mov	a,m
	mov	b,a
	cpi	08CH
	jz	L068B
	rst	1
	.db	088h
;
	dcx	h
L068B:	mov	c,e
L068C:	dcr	c
	mov	a,b
	jz	L04CC
	call	L0584
	cpi	02CH
	rnz
	jmp	L068C
;
P069A:	call	L08D3
	mov	a,m
	cpi	088H
	jz	L06A6
	rst	1
	.db	0A1h
;
	dcx	h
L06A6:	rst	5
	jz	0061Dh	;!!!!!!!!!!!!!!!!!!!!!!!!
	rst	2
	jc	L05E9
	jmp	L04CB
;
L06B1:	rst	2
L06B2:	jz	L0741
L06B5:	rz
	cpi	09DH
	jz	L076E
	cpi	09FH
	jz	L076E
	cpi	0C8H
	jnz	L06CD
	rst	2
	call	L19A1
	dcx	h
	jmp	L076A
;
L06CD:	push	h
	cpi	02CH
	jz	L074C
	cpi	03BH
	jz	L0769
	pop	b
	cpi	0D3H
	jz	L070A
	call	L08D3
	dcx	h
	push	h
	lda	X3F2C
	ora	a
	jnz	L0703
	call	L13A3
	call	L0CF0
	lhld	X3F60
	lda	X3E76
	add	m
	cpi	040H
	cnc	L0741
	call	L0D37
	mvi	a,020H
	rst	3
	xra	a
L0703:	cnz	L0D37
L0706:	pop	h
	jmp	L06B1
;
L070A:	inx	h
	call	L08C4
	dcx	h
	push	h
	call	L056B
	mvi	a,020H
	rst	3
	mov	a,d
	ora	a
	jz	L071F
	mov	b,a
	call	L0727
L071F:	mov	a,e
	mov	b,a
	call	L0727
	jmp	L0706
;
L0727:	rrc
	rrc
	rrc
	rrc
	call	L072F
	mov	a,b
L072F:	ani	00FH
	cpi	00AH
	jc	L0738
	adi	007H
L0738:	adi	030H
	rst	3
	ret
;
L073C:	mvi	m,000H
	lxi	h,X3EA2
L0741:	mvi	a,00DH
	rst	3
L0744:	mvi	a,00AH
	rst	3
	xra	a
	sta	X3E76
	ret
;
L074C:	lda	X3E76
	cpi	030H
	cnc	L0741
	jnc	L0769
L0757:	sui	00EH
	jnc	L0757
	cma
	inr	a
L075E:	mov	b,a
	mvi	a,020H
L0761:	dcr	b
	jm	L0769
	rst	3
	jmp	L0761
;
L0769:	pop	h
L076A:	rst	2
	jmp	L06B5
;
L076E:	push	psw
	call	00F58h	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	rst	1
	.db	029h
;
	dcx	h
	pop	psw
	cpi	09FH
	push	h
	mov	a,e
	jz	L075E
	cpi	040H
	jp	L057E
	lxi	h,X3E76
	sub	m
	mov	m,e
	jp	L0792
	cma
	inr	a
	mov	b,a
	mvi	a,008H
	jmp	L0761
;
L0792:	mov	b,a
	mvi	a,018H
	jmp	L0761
;
L0798:	lda	X3F49
	ora	a
	jnz	L0095
	jmp	008CFh	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;
P07A2:	cpi	022H
	lxi	b,00120H
	jnz	L07C3
	push	b
	call	L0CF1
	pop	b
	mov	a,m
	cpi	03BH
	jz	L07BB
	mov	b,a
	cpi	02CH
	jnz	L009B
;
L07BB:	rst	2
	push	h
	push	b
	call	L0D37
	pop	b
	pop	h
L07C3:	push	h
	call	L0CA3
	dcr	b
	call	L07CE
	jmp	L07F4
;
L07CE:	mvi	a,03FH
	jz	L07D4
	mov	a,c
L07D4:	rst	3
	lxi	d,X3EA3
	xra	a
	stax	d
	call	L027C
	mvi	m,000H
	lxi	h,X3EA3
	mov	a,m
	ora	a
	jnz	L01F1
L07E7:	mvi	a,03FH
	rst	3
	mvi	a,008H
	jmp	L07D4
;
P07EF:	push	h
	lhld	X3F5E
;
	.db	0F6H	;????????????????
;
L07F4:	xra	a
	sta	X3F49
	xthl
	lxi	b,02CCFh
	call	L0ABB
	xthl
	push	d
	mov	a,m
	cpi	02CH
	jz	L0814
	lda	X3F49
	ora	a
	jnz	L0859
	mvi	a,02CH
	rst	3
	call	L07E7
L0814:	lda	X3F2C
	ora	a
	jz	L0834
	rst	2
	mov	d,a
	mov	b,a
	cpi	022H
	jz	L0828
	mvi	d,03AH
	mvi	b,02CH
	dcx	h
L0828:	call	L0CF4
	xchg
	lxi	h,0083DH
	xthl
	push	d
	jmp	L064D
;
L0834:	rst	2
	call	L12E7
	xthl
	call	L123A
	pop	h
	dcx	h
	rst	2
	jz	L0847
	cpi	02CH
	jnz	L0798
L0847:	xthl
	dcx	h
	rst	2
	jnz	007FAh	;!!!!!!!!!!!!!!!!!!!!!!!!!!!
	pop	d
	lda	X3F49
	ora	a
	jz	L0741
	xchg
	jmp	L0514
;
L0859:	call	L061B
	ora	a
	jnz	L0872
	inx	h
	rst	6
	mov	a,c
	ora	b
	mvi	e,006H
	jz	L00A7
	pop	b
	mov	e,m
	inx	h
	mov	d,m
	xchg
	shld	X3F46
	xchg
L0872:	rst	2
	cpi	083H
	jnz	L0859
	jmp	L0814
;
P087B:	lxi	d,L0000
L087E:	cnz	L0ABB
	shld	X3F4A
	call	L0045
	jnz	000A5h	; !!!!!!!!!!!!!!!!!!!!!!!!!
	sphl
	push	d
	mov	a,m
	inx	h
	push	psw
	push	d
	call	L1220
	xthl
	push	h
	call	L0F84
	pop	h
	call	L123A
	pop	h
	call	L1231
	push	h
	call	L125D
	pop	h
	pop	b
	sub	b
	call	L1231
	jz	L08B6
	xchg
	shld	X3F4E
	mov	l,c
	mov	h,b
	jmp	L0493
;
L08B6:	sphl
	lhld	X3F4A
	mov	a,m
	cpi	02CH
	jnz	L0497
	rst	2
	call	L087E
L08C4:	call	L08D3
;
L08C7:	ori	037h
L08C9:	lda	X3F2C
	adc	a
	rpe
	mvi	e,018H
	jmp	L00A7
;
L08D3:	dcx	h
	mvi	d,000H
L08D6:	push	d
	call	L0075
	lxi	b,043CDH
	dad	b
	shld	X3F4C
L08E1:	lhld	X3F4C
	pop	b
	mov	a,b
	cpi	078H
	cnc	L08C7
	mov	a,m
	mvi	d,000H
L08EE:	sui	0ABH
	jc	L0908
	cpi	003H
	jnc	L0908
	cpi	001H
	ral
	xra	d
	cmp	d
	mov	d,a
	jc	L009B
	shld	X3F44
	rst	2
	jmp	L08EE
;
L0908:	mov	a,d
	ora	a
	jnz	L0A3F
	mov	a,m
	shld	X3F44
	sui	0A4H
	rc
	cpi	007H
	rnc
	mov	e,a
	lda	X3F2C
	dcr	a
	ora	e
	mov	a,e
	jz	L0E18
	rlc
	add	e
	mov	e,a
	lxi	h,u24E3
	dad	d
	mov	a,b
	mov	d,m
	cmp	d
	rnc
	inx	h
	call	L08C7
L0930:	push	b
	lxi	b,L08E1
	push	b
	mov	b,e
	mov	c,d
	call	L1213
	mov	e,b
	mov	d,c
	rst	6
	lhld	X3F44
	jmp	L08D6
;
L0943:	xra	a
	sta	X3F2C
	rst	2
	jc	L12EF
	call	L055B
	jnc	L09AB
	cpi	0A4H
	jz	L0943
	cpi	02EH
	jz	L12EF
	cpi	0A5H
	jz	L099A
	cpi	022H
	jz	L0CF1
	cpi	0A2H
	jz	L0A9A
	cpi	0A0H
	jz	L0C6E
	cpi	0D5H
	jz	L19DC
	cpi	0D6H
	jz	L19EB
	cpi	0D4H
	jz	L1D3E
	cpi	0D8H
	jz	L1D6D
	cpi	0D3H
	jz	L009B
	cpi	0D9H
	jz	L1D77
	sui	0AEH
	jnc	L09BC
L0992:	rst	1
	.db	028H
;
	call	L08D3
	rst	1
	.db	029h
;
	ret
;
L099A:	mvi	d,07DH
	call	L08D6
	lhld	X3F4C
	push	h
	call	L120B
	call	L08C7
	pop	h
	ret
;
L09AB:	call	L0ABB
	push	h
	xchg
	shld	X3F60
	lda	X3F2C
	ora	a
	cz	L1220
	pop	h
	ret
;
L09BC:	mvi	b,000H
	rlc
	mov	c,a
	cpi	06EH
	jc	L09CF
	jz	L09CD
	mvi	c,03AH
	jmp	L09CF
;
L09CD:	mvi	c,038H
L09CF:	push	b
	rst	2
	mov	a,c
	cpi	029H
	jc	L0A06
	cpi	03AH
	jz	L0A06
	cpi	038H
	jz	L0A06
	cpi	030H
	jz	L0A06
	jc	L09ED
	xthl
	jmp	L0A0E
;
L09ED:	rst	1
	.db	028H
;
	call	L08D3
	rst	1
	.db	02Ch
;
	call	008C8h	;!!!!!!!!!!!!!!!!!!!!!
	xchg
	lhld	X3F60
	xthl
	push	h
	xchg
	call	L0F59
	xchg
	xthl
	jmp	L0A0E
;
L0A06:	call	L0992
	xthl
	lxi	d,009A6H
	push	d
L0A0E:	lxi	b,T24A7		; адреса для pchl
	dad	b
	mov	c,m
	inx	h
	mov	h,m
	mov	l,c
	pchl			;INFO: index jump (1)
;
x0A17:	ori	0AFH	;????
	push	psw
	call	L08C7
	call	L056B
	pop	psw
	xchg
	pop	b
	xthl
	xchg
	call	L1223
	push	psw
	call	L056B
	pop	psw
	pop	b
	mov	a,c
	lxi	h,L0C3C
	jnz	L0A3A
	ana	e
	mov	c,a
	mov	a,b
	ana	d
	pchl			;INFO: index jump L0C3C
;
L0A3A:	ora	e
	mov	c,a
	mov	a,b
	ora	d
	pchl			;INFO: index jump L0C3C
;
L0A3F:	lxi	h,X0A51
	lda	X3F2C
	rar
	mov	a,d
	ral
	mov	e,a
	mvi	d,064H
	mov	a,b
	cmp	d
	rnc
	jmp	L0930
;
X0A51:	.dw	L0A53
;
L0A53:	mov	a,c
	ora	a
	rar
	pop	b
	pop	d
	push	psw
	call	L08C9
	lxi	h,X0A90
	push	h
	jz	L125D
	xra	a
	sta	X3F2C
	push	d
	call	L0E62
	pop	d
	rst	6
	rst	6
	call	L0E66
	call	L1231
	pop	h
	xthl
	mov	d,l
	pop	h
L0A78:	mov	a,e
	ora	d
	rz
	mov	a,d
	ora	a
	cma
	rz
	xra	a
	cmp	e
	inr	a
	rnc
	dcr	d
	dcr	e
	ldax	b
	cmp	m
	inx	h
	inx	b
	jz	L0A78
	cmc
	jmp	L11F1
;
X0A90:	inr	a
	adc	a
	pop	b
	ana	b
	adi	0FFH
	sbb	a
	jmp	L11F6
;
L0A9A:	mvi	d,05AH
	call	L08D6
	call	L08C7
	call	L056B
	mov	a,e
	cma
	mov	c,a
	mov	a,d
	cma
	call	L0C3C
	pop	b
	jmp	L08E1
;
z0AB1:	dcx	h
	rst	2
	rz
	rst	1
	.db	02Ch
;
P0AB6:	lxi	b,z0AB1
	push	b
;
	.db	0F6H	;???????????????????????
;
L0ABB:	xra	a
	sta	X3F2B
	mov	b,m
L0AC0:	call	L055B
	jc	L009B
	xra	a
	mov	c,a
	sta	X3F2C
	rst	2
	jc	L0AD5
	call	L055B
	jc	L0AE0
L0AD5:	mov	c,a
L0AD6:	rst	2
	jc	L0AD6
	call	L055B
	jnc	L0AD6
L0AE0:	sui	024H
	jnz	L0AED
	inr	a
	sta	X3F2C
	rrc
	add	c
	mov	c,a
	rst	2
L0AED:	lda	X3F48
	add	m
	cpi	028H
	jz	L0B3F
	xra	a
	sta	X3F48
	push	h
	lhld	X3F5A
	xchg
	lhld	X3F58
L0B02:	rst	4
	jz	L0B19
	mov	a,c
	sub	m
	inx	h
	jnz	L0B0E
	mov	a,b
	sub	m
L0B0E:	inx	h
	jz	L0B3C
	inx	h
	inx	h
	inx	h
	inx	h
	jmp	L0B02
;
L0B19:	push	b
	lxi	b,00006H
	lhld	X3F5C
	push	h
	dad	b
	pop	b
	push	h
	call	L0066
	pop	h
	shld	X3F5C
	mov	h,b
	mov	l,c
	shld	X3F5A
L0B30:	dcx	h
	mvi	m,000H
	rst	4
	jnz	L0B30
	pop	d
	mov	m,e
	inx	h
	mov	m,d
	inx	h
L0B3C:	xchg
	pop	h
	ret
;
L0B3F:	push	h
	lhld	X3F2B
	xthl
	mvi	d,000H
L0B46:	push	d
	push	b
	call	L0563
	pop	b
	pop	psw
	xchg
	xthl
	push	h
	xchg
	inr	a
	mov	d,a
	mov	a,m
	cpi	02CH
	jz	L0B46
	rst	1
	.db	029h
;
	shld	X3F4C
	pop	h
	shld	X3F2B
	push	d
	lhld	X3F5A
	mvi	a,019h
	xchg
	lhld	X3F5C
	xchg
	rst	4
	jz	L0B94
	mov	a,m
	cmp	c
	inx	h
	jnz	L0B79
	mov	a,m
	cmp	b
L0B79:	inx	h
	mov	e,m
	inx	h
	mov	d,m
	inx	h
	jnz	00B67h	;!!!!!!!!!!!!!!!!!!!!!!!!
	lda	X3F2B
	ora	a
	mvi	e,012H
	jnz	L00A7
	pop	psw
	cmp	m
	jz	L0BF3
L0B8F:	mvi	e,010H
	jmp	L00A7
;
L0B94:	lxi	d,X0004
	mov	m,c
	inx	h
	mov	m,b
	inx	h
	pop	psw
	sta	X3E5C
	mov	c,a
	call	L0079
	shld	X3F44
	inx	h
	inx	h
	mov	b,c
	mov	m,b
	inx	h
L0BAB:	lda	X3F2B
	ora	a
	mov	a,b
	lxi	b,0000BH
	jz	L0BB8
	pop	b
	inx	b
L0BB8:	mov	m,c
	inx	h
	mov	m,b
	inx	h
	push	psw
	push	h
	call	L12CC
	xchg
	pop	h
	pop	b
	dcr	b
	jnz	L0BAB
	mov	b,d
	mov	c,e
	xchg
	dad	d
	jc	L0B8F
	call	L0086
	shld	X3F5C
L0BD5:	dcx	h
	mvi	m,000H
	rst	4
	jnz	L0BD5
	inx	b
	mov	h,a
	lda	X3F2B
	ora	a
	lda	X3E5C
	mov	l,a
	dad	h
	dad	b
	xchg
	lhld	X3F44
	mov	m,e
	inx	h
	mov	m,d
	inx	h
	jnz	L0C15
L0BF3:	inx	h
	lxi	b,L0000
	mvi	d,0E1h
	mov	e,m
	inx	h
	mov	d,m
	inx	h
	xthl
	push	psw
	rst	4
	jnc	L0B8F
	push	h
	call	L12CC
	pop	d
	dad	d
	pop	psw
	dcr	a
	mov	b,h
	mov	c,l
	jnz	00BF8h	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	dad	h
	dad	h
	pop	b
	dad	b
	xchg
L0C15:	lhld	X3F4C
	dcx	h
	rst	2
	ret
;
P0C1B:	lhld	X3F5C
	xchg
	lxi	h,L0000
	dad	sp
	lda	X3F2C
	ora	a
	jz	L0C37
	call	L0E62
	call	L0D73
	lhld	X3F54
	xchg
	lhld	X3F42
L0C37:	mov	a,l
	sub	e
	mov	c,a
	mov	a,h
	sbb	d
L0C3C:	mov	b,c
L0C3D:	mov	d,b
	mvi	e,000H
	lxi	h,X3F2C
	mov	m,e
	mvi	b,090H
	jmp	L11FB
;
P0C49:	lda	X3E76
L0C4C:	mov	b,a
	xra	a
	jmp	L0C3D
;
P0C51:	call	L0CB1
	lxi	b,L061B
	push	b
	push	d
	call	L0CA3
	rst	1
	.db	028H
;
	call	L0ABB
	call	L08C7
	rst	1
	.db	029h
;
	rst	1
	.db	0ACh
;
	mov	b,h
	mov	c,l
	xthl
	jmp	L0C9A
;
L0C6E:	call	L0CB1
	push	d
	call	L0992
	call	L08C7
	xthl
	rst	6
	pop	d
	rst	6
	pop	h
	rst	6
	rst	6
	dcx	h
	dcx	h
	dcx	h
	dcx	h
	push	h
	rst	4
	push	d
	mvi	e,022H
	jz	L00A7
	call	L123A
	pop	h
	call	L08C4
	dcx	h
	rst	2
	jnz	L009B
	pop	h
	pop	d
	pop	b
L0C9A:	mov	m,c
	inx	h
	mov	m,b
L0C9D:	inx	h
	mov	m,e
	inx	h
	mov	m,d
	pop	h
	ret
;
L0CA3:	push	h
	lhld	X3F4E
	inx	h
	mov	a,h
	ora	l
	pop	h
	rnz
	mvi	e,016H
	jmp	L00A7
;
L0CB1:	rst	1
	.db	0A0h
;
	mvi	a,080H
	sta	X3F48
	ora	m
	mov	b,a
	call	L0AC0
	jmp	L08C7
;
P0CC0:	call	L08C7
	call	L13A3
	call	L0CF0
	call	L0E62
	lxi	b,00EBAH
	push	b
L0CD0:	mov	a,m
	inx	h
	inx	h
	push	h
	call	L0D4B
	pop	h
	rst	6
	pop	b
	call	L0CE7
	push	h
	mov	l,a
	call	L0E55
	pop	d
	ret
;
L0CE4:	call	L0D4B
L0CE7:	lxi	h,03F3EH
	push	h
	mov	m,a
	inx	h
	jmp	L0C9D
;
L0CF0:	dcx	h
L0CF1:	mvi	b,022H
	mov	d,b
L0CF4:	push	h
	mvi	c,0FFH
L0CF7:	inx	h
	mov	a,m
	inr	c
	ora	a
	jz	L0D06
	cmp	d
	jz	L0D06
	cmp	b
	jnz	L0CF7
L0D06:	cpi	022H
	cz	L04F0
	xthl
	inx	h
	xchg
	mov	a,c
	call	L0CE7
	rst	4
	cnc	L0CD0
L0D16:	lxi	d,03F3EH
	lhld	X3F30
	shld	X3F60
	mvi	a,001H
	sta	X3F2C
	call	L123D
	rst	4
	mvi	e,01EH
	jz	L00A7
	shld	X3F30
	pop	h
	mov	a,m
	ret
;
X0D33:	inx	h
	call	L0CF0
L0D37:	call	L0E62
	call	L1231
	inr	e
L0D3E:	dcr	e
	rz
	ldax	b
	rst	3
	cpi	00DH
	cz	L0744
	inx	b
	jmp	L0D3E
;
L0D4B:	ora	a
	mvi	c,0F1H
	push	psw
	lhld	X3F54
	xchg
	lhld	X3F42
	cma
	mov	c,a
	mvi	b,0FFH
	dad	b
	inx	h
	rst	4
	jc	L0D67
	shld	X3F42
	inx	h
	xchg
	pop	psw
	ret
;
L0D67:	pop	psw
	mvi	e,01AH
	jz	L00A7
	cmp	a
	push	psw
	lxi	b,00D4DH
	push	b
L0D73:	lhld	X3F2E
L0D76:	shld	X3F42
	lxi	h,L0000
	push	h
	lhld	X3F54
	push	h
	lxi	h,X3F32
	xchg
	lhld	X3F30
	xchg
	rst	4
	lxi	b,00D84H
	jnz	L0DD0
	lhld	X3F58
L0D93:	xchg
	lhld	X3F5A
	xchg
	rst	4
	jz	L0DA7
	mov	a,m
	inx	h
	inx	h
	ora	a
	call	L0DD3
	jmp	L0D93
;
L0DA6:	pop	b
L0DA7:	xchg
	lhld	X3F5C
	xchg
	rst	4
	jz	L0DF3
	call	L1231
	mov	a,e
	push	h
	dad	b
	ora	a
	jp	L0DA6
	shld	X3F44
	pop	h
	mov	c,m
	mvi	b,000H
	dad	b
	dad	b
	inx	h
	xchg
	lhld	X3F44
	xchg
	rst	4
	jz	L0DA7
	lxi	b,00DC4H
L0DD0:	push	b
	ori	080H
L0DD3:	rst	6
	rst	6
	pop	d
	pop	b
	rp
	mov	a,c
	ora	a
	rz
	mov	b,h
	mov	c,l
	lhld	X3F42
	rst	4
	mov	h,b
	mov	l,c
	rc
	pop	h
	xthl
	rst	4
	xthl
	push	h
	mov	h,b
	mov	l,c
	rnc
	pop	b
	pop	psw
	pop	psw
	push	h
	push	d
	push	b
	ret
;
L0DF3:	pop	d
	pop	h
	mov	a,l
	ora	h
	rz
	dcx	h
	mov	b,m
	dcx	h
	mov	c,m
	push	h
	dcx	h
	dcx	h
	mov	l,m
	mvi	h,000H
	dad	b
	mov	d,b
	mov	e,c
	dcx	h
	mov	b,h
	mov	c,l
	lhld	X3F42
	call	L0069
	pop	h
	mov	m,c
	inx	h
	mov	m,b
	mov	l,c
	mov	h,b
	dcx	h
	jmp	L0D76
;
L0E18:	push	b
	push	h
	lhld	X3F60
	xthl
	call	L0943
	xthl
	call	008C8h	;!!!!!!!!!!!!!!!!!!!!!!!
	mov	a,m
	push	h
	lhld	X3F60
	push	h
	add	m
	mvi	e,01CH
	jc	L00A7
	call	L0CE4
	pop	d
	call	L0E66
	xthl
	call	L0E65
	push	h
	lhld	X3F40
	xchg
	call	L0E4F
	call	L0E4F
	lxi	h,008E4H
	xthl
	push	h
	jmp	L0D16
;
L0E4F:	pop	h
	xthl
	rst	6
	rst	6
	pop	b
	pop	h
L0E55:	inr	l
L0E56:	dcr	l
	rz
	ldax	b
	stax	d
	inx	b
	inx	d
	jmp	L0E56
;
L0E5F:	call	008C8h	;!!!!!!!!!!!!!!!!!!!!!!
L0E62:	lhld	X3F60
L0E65:	xchg
L0E66:	lhld	X3F30
	dcx	h
	mov	b,m
	dcx	h
	mov	c,m
	dcx	h
	dcx	h
	rst	4
	xchg
	rnz
	shld	X3F30
	push	d
	mov	d,b
	mov	e,c
	dcx	d
	mov	c,m
	lhld	X3F42
	rst	4
	jnz	L0E86
	mov	b,a
	dad	b
	shld	X3F42
L0E86:	pop	h
	ret
;
P0E88:	lxi	b,L0C4C
	push	b
L0E8C:	call	L0E5F
	xra	a
	mov	d,a
	sta	X3F2C
	mov	a,m
	ora	a
	ret
;
P0E97:	call	L0E8C
	jz	L0EA5
	inx	h
	inx	h
	rst	6
	pop	h
	mov	a,m
	jmp	L0C4C
;
L0EA5:	inx	h
	inx	h
	rst	6
	pop	h
	mvi	a,0FFH
	jmp	L0C4C
;
P0EAE:	mvi	a,001H
	call	L0CE4
	call	L0F5C
	lhld	X3F40
	mov	m,e
	pop	b
	jmp	L0D16
;
P0EBE:	call	L0F48
	xra	a
L0EC2:	xthl
	mov	c,a
	push	h
	mov	a,m
	cmp	b
	jc	00ECCh	;!!!!!!!!!!!!!!!!!!!
	mov	a,b
	lxi	d,0000EH
	push	b
	call	L0D4B
	pop	b
	pop	h
	push	h
	inx	h
	inx	h
	mov	b,m
	inx	h
	mov	h,m
	mov	l,b
	mvi	b,000H
	dad	b
	mov	b,h
	mov	c,l
	call	L0CE7
	mov	l,a
	call	L0E55
	pop	d
	call	L0E66
	jmp	L0D16
;
P0EEE:	call	L0F48
	pop	d
	push	d
	ldax	d
	sub	b
	jmp	L0EC2
;
P0EF8:	xchg
	mov	a,m
	call	L0F4B
	push	b
	mvi	e,0FFH
	cpi	029H
	jz	L0F0A
	rst	1
	.db	02Ch
;
	call	L0F59
L0F0A:	rst	1
	.db	029h
;
	pop	psw
	xthl
	lxi	b,00EC4H
	push	b
	dcr	a
	cmp	m
	mvi	b,000h
	rnc
	mov	c,a
	mov	a,m
	sub	c
	cmp	e
	mov	b,a
	rc
	mov	b,e
	ret
;
P0F1F:	lxi	b,L0C4C
	push	b
	mvi	a,0DBH
	call	L0F2B
	jmp	L3E6F
;
L0F2B:	sta	L3E6F
	mvi	a,0C9H
	sta	X3E71
	call	L0F5C
	sta	X3E70
	ret
;
P0F3A:	call	L08C4
	mvi	a,0D3H
	call	L0F2B
	call	L0F55
	jmp	L3E6F
;
L0F48:	xchg
	rst	1
	.db	029h
;
L0F4B:	pop	b
	pop	d
	push	b
	mov	b,e
	inr	b
	dcr	b
	jz	L057E
	ret
;
L0F55:	rst	1
	.db	02Ch
;
	mvi	b,0D7H
L0F59:	call	L08C4
L0F5C:	call	L0567
	mov	a,d
	ora	a
	jnz	L057E
	dcx	h
	rst	2
	mov	a,e
	ret
;
P0F68:	call	L0E8C
	jz	L0FF9
	mov	e,a
	inx	h
	inx	h
	rst	6
	mov	h,b
	mov	l,c
	dad	d
	mov	b,m
	mov	m,d
	xthl
	push	b
	mov	a,m
	call	L12EF
	pop	b
	pop	h
	mov	m,b
	ret
;
L0F81:	lxi	h,X146C
L0F84:	call	L1231
	jmp	L0F93
;
L0F8A:	call	L1231
	lxi	h,0D1C1H
L0F90:	call	L120B
L0F93:	mov	a,b
	ora	a
	rz
	lda	X3F63
	ora	a
	jz	L1223
	sub	b
	jnc	L0FAD
	cma
	inr	a
	xchg
	call	L1213
	xchg
	call	L1223
	pop	b
	pop	d
L0FAD:	cpi	019H
	rnc
	push	psw
	call	L1248
	mov	h,a
	pop	psw
	call	L105A
	ora	h
	lxi	h,X3F60
	jp	L0FD3
	call	L103A
	jnc	L1019
	inx	h
	inr	m
	jz	L1035
	mvi	l,001H
	call	L1070
	jmp	L1019
;
L0FD3:	xra	a
	sub	b
	mov	b,a
	mov	a,m
	sbb	e
	mov	e,a
	inx	h
	mov	a,m
	sbb	d
	mov	d,a
	inx	h
	mov	a,m
	sbb	c
	mov	c,a
L0FE1:	cc	L1046
L0FE4:	mov	l,b
	mov	h,e
	xra	a
L0FE7:	mov	b,a
	mov	a,c
	ora	a
	jnz	L1006
	mov	c,d
	mov	d,h
	mov	h,l
	mov	l,a
	mov	a,b
	sui	008H
	cpi	0E0H
	jnz	L0FE7
L0FF9:	xra	a
L0FFA:	sta	X3F63
	ret
;
L0FFE:	dcr	b
	dad	h
	mov	a,d
	ral
	mov	d,a
	mov	a,c
	adc	a
	mov	c,a
L1006:	jp	L0FFE
	mov	a,b
	mov	e,h
	mov	b,l
	ora	a
	jz	L1019
	lxi	h,X3F63
	add	m
	mov	m,a
	jnc	L0FF9
	rz
L1019:	mov	a,b
L101A:	lxi	h,X3F63
	ora	a
	cm	L102B
	mov	b,m
	inx	h
	mov	a,m
	ani	080H
	xra	c
	mov	c,a
	jmp	L1223
;
L102B:	inr	e
	rnz
	inr	d
	rnz
	inr	c
	rnz
	mvi	c,080H
	inr	m
	rnz
L1035:	mvi	e,00AH
	jmp	L00A7
;
L103A:	mov	a,m
	add	e
	mov	e,a
	inx	h
	mov	a,m
	adc	d
	mov	d,a
	inx	h
	mov	a,m
	adc	c
	mov	c,a
	ret
;
L1046:	lxi	h,X3F64
	mov	a,m
	cma
	mov	m,a
	xra	a
	mov	l,a
	sub	b
	mov	b,a
	mov	a,l
	sbb	e
	mov	e,a
	mov	a,l
	sbb	d
	mov	d,a
	mov	a,l
	sbb	c
	mov	c,a
	ret
;
L105A:	mvi	b,000H
L105C:	sui	008H
	jc	L1069
	mov	b,e
	mov	e,d
	mov	d,c
	mvi	c,000H
	jmp	L105C
;
L1069:	adi	009H
	mov	l,a
L106C:	xra	a
	dcr	l
	rz
	mov	a,c
L1070:	rar
	mov	c,a
	mov	a,d
	rar
	mov	d,a
	mov	a,e
	rar
	mov	e,a
	mov	a,b
	rar
	mov	b,a
	jmp	L106C
;
X107E:	nop
	nop
	nop
	add	c
X1082:	inx	b
	xra	d
	mov	d,m
	dad	d
	add	b
	pop	psw
	shld	X8076
	mov	b,l
	xra	d
;
	.db	038H	;????????????????????????
;
	add	d
L108F:	rst	5
	jpe	L057E
	lxi	h,X3F63
	mov	a,m
	lxi	b,08035H
	lxi	d,004F3H
	sub	b
	push	psw
	mov	m,b
	push	d
	push	b
	call	L0F93
	pop	b
	pop	d
	inr	b
	call	L112F
	lxi	h,X107E
	call	L0F8A
	lxi	h,X1082
	call	L152D
	lxi	b,L8080
	lxi	d,L0000
	call	L0F93
	pop	psw
	call	L1379
L10C4:	lxi	b,08031H
	lxi	d,07218H
	lxi	h,0D1C1H
L10CD:	rst	5
	rz
	mvi	l,000H
	call	L11AB
	mov	a,c
	sta	X3E5D
	xchg
	shld	X3E5E
	lxi	b,L0000
	mov	d,b
	mov	e,b
	lxi	h,L0FE4
	push	h
	lxi	h,010EDH
	push	h
	push	h
	lxi	h,X3F60
	mov	a,m
	inx	h
	ora	a
	jz	L111C
	push	h
	xchg
	mvi	e,008H
L10F7:	rar
	mov	d,a
	mov	a,c
	jnc	L1109
	push	d
	xchg
	lhld	X3E5E
	dad	d
	mov	e,a
	lda	X3E5D
	adc	e
	pop	d
L1109:	rar
	mov	c,a
	mov	a,h
	rar
	mov	h,a
	mov	a,l
	rar
	mov	l,a
	mov	a,b
	rar
	mov	b,a
	dcr	e
	mov	a,d
	jnz	L10F7
	xchg
L111A:	pop	h
	ret
;
L111C:	mov	b,e
	mov	e,d
	mov	d,c
	mov	c,a
	ret
;
L1121:	call	L1213
	lxi	b,08420H
	lxi	d,L0000
	call	L1223
L112D:	pop	b
	pop	d
L112F:	rst	5
	jz	000A2h	; !!!!!!!!!!!!!!!!!!
	mvi	l,0FFH
	call	L11AB
	inr	m
	inr	m
	dcx	h
	mov	a,m
	sta	X3E60
	dcx	h
	mov	a,m
	sta	X3E61
	dcx	h
	mov	a,m
	sta	X3E6C
	mov	b,c
	xchg
	xra	a
	mov	c,a
	mov	d,a
	mov	e,a
	sta	X3E6D
L1152:	push	h
	push	b
	push	d
	lda	X3E6C
	mov	e,a
	mov	a,l
	sub	e
	mov	l,a
	lda	X3E61
	mov	e,a
	mov	a,h
	sbb	e
	mov	h,a
	lda	X3E60
	mov	e,a
	mov	a,b
	sbb	e
	mov	b,a
	lda	X3E6D
	sbi	000H
	pop	d
	cmc
	jnc	0117Bh	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	sta	X3E6D
	pop	psw
	pop	psw
	stc
	jnc	0E1C1h	;????????????????????
	mov	a,c
	inr	a
	dcr	a
	rar
	jm	L101A
	ral
	mov	a,e
	ral
	mov	e,a
	mov	a,d
	ral
	mov	d,a
	mov	a,c
	ral
	mov	c,a
	dad	h
	mov	a,b
	ral
	mov	b,a
	lda	X3E6D
	ral
	sta	X3E6D
	mov	a,c
	ora	d
	ora	e
	jnz	L1152
	push	h
	lxi	h,X3F63
	dcr	m
	pop	h
	jnz	L1152
	jmp	L1035
;
L11AB:	mov	a,b
	ora	a
	jz	L11CD
	mov	a,l
	lxi	h,X3F63
	xra	m
	add	b
	mov	b,a
	rar
	xra	b
	mov	a,b
	jp	L11CC
	adi	080H
	mov	m,a
	jz	L111A
	call	L1248
	mov	m,a
	dcx	h
	ret
;
L11C9:	rst	5
	cma
	pop	h
L11CC:	ora	a
L11CD:	pop	h
	jp	L0FF9
	jmp	L1035
;
L11D4:	call	L122E
	mov	a,b
	ora	a
	rz
	adi	002H
	jc	L1035
	mov	b,a
	call	L0F93
	lxi	h,X3F63
	inr	m
	rnz
	jmp	L1035
;
L11EB:	lda	X3F62
	cpi	02FH
	ral
L11F1:	sbb	a
	rnz
	inr	a
	ret
;
X11F5:	rst	5
L11F6:	mvi	b,088H
	lxi	d,L0000
L11FB:	lxi	h,X3F63
	mov	c,a
	mov	m,b
	mvi	b,000H
	inx	h
	mvi	m,080H
	ral
	jmp	L0FE1
;
P1209:	rst	5
	rp
L120B:	lxi	h,X3F62
	mov	a,m
	xri	080H
	mov	m,a
	ret
;
L1213:	xchg
	lhld	X3F60
	xthl
	push	h
	lhld	X3F62
	xthl
	push	h
	xchg
	ret
;
L1220:	call	L1231
L1223:	xchg
	shld	X3F60
	mov	h,b
	mov	l,c
	shld	X3F62
	xchg
	ret
;
L122E:	lxi	h,X3F60
L1231:	mov	e,m
	inx	h
	mov	d,m
	inx	h
	mov	c,m
	inx	h
	mov	b,m
L1238:	inx	h
	ret
;
L123A:	lxi	d,X3F60
L123D:	mvi	b,004H
L123F:	ldax	d
	mov	m,a
	inx	d
	inx	h
	dcr	b
	jnz	L123F
	ret
;
L1248:	lxi	h,X3F62
	mov	a,m
X124C:	rlc
	stc
	rar
	mov	m,a
	cmc
	rar
	inx	h
	inx	h
	mov	m,a
	mov	a,c
	rlc
	stc
	rar
	mov	c,a
	rar
	xra	m
	ret
;
L125D:	mov	a,b
	ora	a
	jz	L0028
	lxi	h,011EFH
	push	h
	rst	5
	mov	a,c
	rz
	lxi	h,X3F62
	xra	m
	mov	a,c
	rm
	call	L1275
	rar
	xra	c
	ret
;
L1275:	inx	h
	mov	a,b
	cmp	m
	rnz
	dcx	h
	mov	a,c
	cmp	m
	rnz
	dcx	h
	mov	a,d
	cmp	m
	rnz
	dcx	h
	mov	a,e
	sub	m
	rnz
	pop	h
	pop	h
	ret
;
L1288:	mov	b,a
	mov	c,a
	mov	d,a
	mov	e,a
	ora	a
	rz
	push	h
	call	L122E
	call	L1248
	xra	m
	mov	h,a
	cm	L12AC
	mvi	a,098H
	sub	b
	call	L105A
	mov	a,h
	ral
	cc	L102B
	mvi	b,000H
	cc	L1046
	pop	h
	ret
;
L12AC:	dcx	d
	mov	a,d
	ana	e
	inr	a
	rnz
	dcr	c
	ret
;
L12B3:	lxi	h,X3F63
	mov	a,m
	cpi	098H
	lda	X3F60
	rnc
	mov	a,m
	call	L1288
	mvi	m,098H
	mov	a,e
	push	psw
	mov	a,c
	ral
	call	L0FE1
	pop	psw
	ret
;
L12CC:	lxi	h,L0000
	mov	a,b
	ora	c
	rz
	mvi	a,010H
L12D4:	dad	h
	jc	L0B8F
	xchg
	dad	h
	xchg
	jnc	L12E2
	dad	b
	jc	L0B8F
L12E2:	dcr	a
	jnz	L12D4
	ret
;
L12E7:	lda	X3F49
	ora	a
	jz	L08C4
	mov	a,m
L12EF:	cpi	02DH
	push	psw
	jz	L12FB
	cpi	02BH
	jz	L12FB
	dcx	h
L12FB:	call	L0FF9
	mov	b,a
	mov	d,a
	mov	e,a
	cma
	mov	c,a
L1303:	rst	2
	jc	L1362
	cpi	026H
	jnz	L1311
	call	L175E
	pop	psw
	ret
;
L1311:	cpi	02EH
	jz	L133D
	cpi	045H
	jnz	L1341
	rst	2
	push	h
	lxi	h,L1331
	xthl
	dcr	d
	cpi	0A5H
	rz
	cpi	02DH
	rz
	inr	d
	cpi	02BH
	rz
	cpi	0A4H
	rz
	pop	psw
	dcx	h
L1331:	rst	2
	jc	L1384
	inr	d
	jnz	L1341
	xra	a
	sub	e
	mov	e,a
	inr	c
L133D:	inr	c
	jz	L1303
L1341:	push	h
	mov	a,e
	sub	b
L1344:	cp	L135A
	jp	L1350
	push	psw
	call	L1121
	pop	psw
	inr	a
L1350:	jnz	L1344
	pop	d
	pop	psw
	cz	L120B
	xchg
	ret
;
L135A:	rz
L135B:	push	psw
	call	L11D4
	pop	psw
	dcr	a
	ret
;
L1362:	push	d
	mov	d,a
	mov	a,b
	adc	c
	mov	b,a
	push	b
	push	h
	push	d
	call	L11D4
	pop	psw
	sui	030H
	call	L1379
	pop	h
	pop	b
	pop	d
	jmp	L1303
;
L1379:	call	L1213
	call	L11F6
	pop	b
	pop	d
	jmp	L0F93
;
L1384:	mov	a,e
	rlc
	rlc
	add	e
	rlc
	add	m
	sui	030H
	mov	e,a
	jmp	L1331
;
L1390:	push	h
	lxi	h,S22AA
	call	L1E06
	pop	h
L1398:	xchg
L1399:	xra	a
	mvi	b,098H
	call	L11FB
	lxi	h,X0D33
	push	h
L13A3:	lxi	h,X3F65
	push	h
	rst	5
	mvi	m,020H
	jp	L13AF
	mvi	m,02DH
L13AF:	inx	h
	mvi	m,030H
	jz	L1458
	push	h
	cm	L120B
	xra	a
	push	psw
	call	L145E
L13BE:	lxi	b,09143H
	lxi	d,04FF8H
	call	L125D
	jpo	L13DB
	pop	psw
	call	L135B
	push	psw
	jmp	L13BE
;
L13D2:	call	L1121
	pop	psw
	inr	a
	push	psw
	call	L145E
L13DB:	call	L0F81
	inr	a
	call	L1288
	call	L1223
	lxi	b,00206H
	pop	psw
	add	c
	jm	L13F6
	cpi	007H
	jnc	L13F6
	inr	a
	mov	b,a
	mvi	a,001H
L13F6:	dcr	a
	pop	h
	push	psw
	lxi	d,01470H
L13FC:	dcr	b
	mvi	m,02EH
	cz	L1238
	push	b
	push	h
	push	d
	call	L122E
	pop	h
	mvi	b,02FH
L140B:	inr	b
	mov	a,e
	sub	m
	mov	e,a
	inx	h
	mov	a,d
	sbb	m
	mov	d,a
	inx	h
	mov	a,c
	sbb	m
	mov	c,a
	dcx	h
	dcx	h
	jnc	L140B
z141C:	call	L103A
	inx	h
	call	L1223
	xchg
	pop	h
	mov	m,b
	inx	h
	pop	b
	dcr	c
	jnz	L13FC
	dcr	b
	jz	L143C
L1430:	dcx	h
	mov	a,m
	cpi	030H
	jz	L1430
	cpi	02EH
	cnz	L1238
L143C:	pop	psw
	jz	L145B
	mvi	m,045H
	inx	h
	mvi	m,02BH
	jp	L144C
	mvi	m,02DH
	cma
	inr	a
L144C:	mvi	b,02FH
L144E:	inr	b
	sui	00AH
	jnc	L144E
	adi	03AH
	inx	h
	mov	m,b
L1458:	inx	h
	mov	m,a
	inx	h
L145B:	mov	m,c
	pop	h
	ret
;
L145E:	lxi	b,09474H
	lxi	d,023F7H
	call	L125D
	pop	h
	jpo	L13D2
	pchl			;INFO: index jump (=RET)
;
X146C:	.db 000h  ; <_> - |        | (offset 146Ch)
	.db 000h  ; <_> - |        | (offset 146Dh)
	.db 000h  ; <_> - |        | (offset 146Eh)
	.db 080h  ; <А> - |■       | (offset 146Fh)
	.db 0A0h  ; <а> - |■ ■     | (offset 1470h)
	.db 086h  ; <Ж> - |■    ■■ | (offset 1471h)
	.db 001h  ; <_> - |       ■| (offset 1472h)
	.db 010h  ; <_> - |   ■    | (offset 1473h)
	.db 027h  ; <'> - |  ■  ■■■| (offset 1474h)
	.db 000h  ; <_> - |        | (offset 1475h)
	.db 0E8h  ; <ш> - |■■■ ■   | (offset 1476h)
	.db 003h  ; <_> - |      ■■| (offset 1477h)
	.db 000h  ; <_> - |        | (offset 1478h)
	.db 064h  ; <d> - | ■■  ■  | (offset 1479h)
	.db 000h  ; <_> - |        | (offset 147Ah)
	.db 000h  ; <_> - |        | (offset 147Bh)
	.db 00Ah  ; <_> - |    ■ ■ | (offset 147Ch)
	.db 000h  ; <_> - |        | (offset 147Dh)
	.db 000h  ; <_> - |        | (offset 147Eh)
	.db 001h  ; <_> - |       ■| (offset 147Fh)
	.db 000h  ; <_> - |        | (offset 1480h)
	.db 000h  ; <_> - |        | (offset 1481h)
;
L1482:	lxi	h,L120B
	xthl
	pchl			;INFO: index jump (=RET)
;
L1487:	call	L1213
	lxi	h,X146C
	call	L1220
	pop	b
	pop	d
L1492:	rst	5
	jz	L14CC
	mov	a,b
	ora	a
	jz	L0FFA
	push	d
	push	b
	mov	a,c
	ori	07FH
	call	L122E
	jp	L14B4
	push	d
	push	b
	call	L12B3
	pop	b
	pop	d
	push	psw
	call	L125D
	pop	h
	mov	a,h
	rar
L14B4:	pop	h
	shld	X3F62
	pop	h
	shld	X3F60
	cc	L1482
	cz	L120B
	push	d
	push	b
	call	L108F
	pop	b
	pop	d
	call	L10CD
L14CC:	call	L1213
	lxi	b,08138H
	lxi	d,0AA38H
	call	L10CD
	lda	X3F63
	cpi	088H
	jnc	L11C9
	call	L12B3
	adi	080H
	adi	002H
	jc	L11C9
	push	psw
	lxi	h,0107EH
	call	L0F84
	call	L10C4
	pop	psw
	pop	b
	pop	d
	push	psw
	call	L0F90
	call	L120B
	lxi	h,X150C
	call	L153C
	lxi	d,L0000
	pop	b
	mov	c,d
	jmp	L10CD
;
X150C:	.db 008h  ; <_> - |    ■   | (offset 150Ch)
	.db 040h  ; <@> - | ■      | (offset 150Dh)
	.db 02Eh  ; <.> - |  ■ ■■■ | (offset 150Eh)
	.db 094h  ; <Ф> - |■  ■ ■  | (offset 150Fh)
	.db 074h  ; <t> - | ■■■ ■  | (offset 1510h)
	.db 070h  ; <p> - | ■■■    | (offset 1511h)
	.db 04Fh  ; <O> - | ■  ■■■■| (offset 1512h)
	.db 02Eh  ; <.> - |  ■ ■■■ | (offset 1513h)
	.db 077h  ; <w> - | ■■■ ■■■| (offset 1514h)
	.db 06Eh  ; <n> - | ■■ ■■■ | (offset 1515h)
	.db 002h  ; <_> - |      ■ | (offset 1516h)
;
L1517:	adc	b
	mov	a,d
	ani	0A0H
	lhld	X507C
	xra	d
	xra	d
	mov	a,m
	rst	7
	rst	7
	mov	a,a
	mov	a,a
	nop
	nop
	add	b
	add	c
	nop
	nop
	nop
	add	c
L152D:	call	L1213
	lxi	d,010CBH
	push	d
	push	h
	call	L122E
	call	L10CD
	pop	h
L153C:	call	L1213
	mov	a,m
	inx	h
	call	L1220
;
	.db	006H	;?????????????????????
;
L1545:	pop	psw
	pop	b
	pop	d
	dcr	a
	rz
	push	d
	push	b
	push	psw
	push	h
	call	L10CD
	pop	h
	call	L1231
	push	h
	call	L0F93
	pop	h
	jmp	L1545
;
P155D:	rst	5
	jm	L157A
	lxi	h,X3E80
	call	L1220
	rz
	lxi	b,09835H
	lxi	d,0447AH
	call	L10CD
	lxi	b,06828H
	lxi	d,0B146H
	call	L0F93
L157A:	call	L122E
	mov	a,e
	mov	e,c
	mov	c,a
	mvi	m,080H
	dcx	h
	mov	b,m
	mvi	m,080H
	call	L0FE4
	lxi	h,X3E80
	jmp	L123A
;
L158F:	lxi	h,X15D5
	call	L0F84
L1595:	call	L1213
	lxi	b,08349H
	lxi	d,00FDBH
	call	L1223
	pop	b
	pop	d
	call	L112F
	call	L1213
	call	L12B3
	pop	b
	pop	d
	call	L0F90
	lxi	h,015D9H
	call	L0F8A
	rst	5
	stc
	jp	L15C1
	call	L0F81
	rst	5
	ora	a
L15C1:	push	psw
	cp	L120B
	lxi	h,015D9H
	call	L0F84
	pop	psw
	cnc	L120B
	lxi	h,015DDH
	jmp	L152D
;
X15D5:	in	00FH
	mov	c,c
	add	c
	nop
	nop
	nop
	mov	a,a
	dcr	b
	cmp	d
	rst	2
	mvi	e,086H
	mov	h,h
	mvi	h,099H
	add	a
	mov	e,b
	inr	m
	inx	h
	add	a
	rpo
	mov	e,l
	ana	l
	add	m
	jc	L490F
	add	e
	xra	d
	jpo	LEEF7
	ana	b
	cmp	b
	ora	a
	xra	d
P15FA:	call	L1213
	call	L1595
	pop	b
	pop	h
	call	L1213
	xchg
	call	L1223
	call	L158F
	jmp	L112D
;
L160F:	rst	5
	cm	L1482
	cm	L120B
	lda	X3F63
	cpi	081H
	jc	L162A
	lxi	b,X8100
	mov	d,c
	mov	e,c
	call	L112F
	lxi	h,L0F8A
	push	h
L162A:	lxi	h,X1634
	call	L152D
	lxi	h,X15D5
	ret
;
X1634:	dad	b
	mov	c,d
	rst	2
	dcx	sp
	mov	a,b
	stax	b
	mov	l,m
	add	h
	mov	a,e
	cpi	0C1H
	cma
	mov	a,h
	mov	m,h
	lxi	sp,07D9AH
	add	h
	dcr	a
	mov	e,d
	mov	a,l
	rz
	mov	a,a
	sub	c
	mov	a,m
	cpo	L4CBB
	mov	a,m
	mov	l,h
	xra	d
	xra	d
	mov	a,a
	nop
	nop
	nop
	add	c
	nop
	nop
;
P165B:	rst	5
	call	L056B
	call	L1666
	ldax	d
	jmp	L0C4C
;
L1666:	push	h
	mov	a,d
	cpi	004H
	jnc	L1674
	lxi	h,z3939
	dad	d
	xchg
	pop	h
	ret
;
L1674:	cpi	041H
	jc	L057E
	pop	h
	ret
;
P167B:	call	L08C4
	rst	5
	call	L056B
	call	L1666
	push	d
	call	L0F55
	pop	d
	mvi	b,064H
L168C:	stax	d
L168D:	dcx	h
	rst	2
	cpi	02CH
	rnz
	push	b
	push	d
	call	L0F55
	pop	d
	pop	b
	dcr	b
	jz	L009B
	inx	d
	stax	d
	jmp	L168D
;
L16A2:	lhld	X0026
	shld	X3F56
	lhld	X0001
	dcx	h
	shld	X3F2E
	lxi	d,0FFCEH
	dad	d
	shld	X3F54
	xra	a
	sta	X3E76
	lxi	h,0804FH
	shld	X3E80
	shld	X3E82
	mvi	a,02CH
	sta	X3EA2
	xra	a
X16C9:	call	L01AF
	xra	a
	sta	X16C9
	sta	X16C9+1
	sta	X16C9+2
L16D6:	call	L01D6
	jmp	L00F1
;
L16DC:	xchg
	call	L1398
	lxi	d,X3EA3
	lxi	h,L3F66
L16E6:	mov	a,m
	stax	d
	inx	d
	inx	h
	ora	a
	jnz	L16E6
	dcx	d
	mvi	a,020H
L16F1:	pop	h
L16F2:	ani	07FH
	stax	d
	rz
	rst	3
	inx	h
	inx	d
	mov	a,d
	cpi	03FH
	jm	L1706
	mov	a,e
	dcr	a
	cpi	022H
	jp	L1035
L1706:	mov	a,m
	ora	a
	jp	L16F2
	sui	07FH
	mov	c,a
	push	h
	push	d
	lxi	d,X22C3
L1713:	push	d
L1714:	ldax	d
	inx	d
	ora	a
	jp	L1714
	dcr	c
	pop	h
	jnz	L1713
	pop	d
L1720:	mov	a,m
	ora	a
	jm	L16F1
	stax	d
	rst	3
	inx	h
	inx	d
	jmp	L1720
;
P172C:	call	L2D5D
	ora	a
	mov	e,a
	jp	L173E
	xra	a
	mov	e,a
	push	d
	call	L0CE4
	pop	d
	jmp	L0D16
;
L173E:	mvi	a,001H
	push	d
	call	L0CE4
	pop	d
	lhld	X3F40
	mov	m,e
	jmp	L0D16
;
P174C:	call	L19F5
L174F:	mvi	c,08AH
L1751:	dcr	c
	jnz	L1751
	dcx	d
	mov	a,d
	ora	e
	jnz	L174F
	ret
;
P175C:	pop	h
	dcx	h
L175E:	lxi	d,L0000
L1761:	rst	2
	jm	L178A
	sui	030H
	jm	L178A
	cpi	00AH
	jm	L177B
	cpi	011H
	jm	L009B
	cpi	017H
	jp	L009B
	sui	007H
L177B:	push	h
	mvi	h,000H
	mov	l,a
	xchg
	dad	h
	dad	h
	dad	h
	dad	h
	dad	d
	xchg
	pop	h
	jmp	L1761
;
L178A:	push	h
	mov	a,d
	rlc
	mvi	a,000H
	jnc	L1793
	dcr	a
L1793:	mvi	b,098H
	call	L11FB
	pop	h
	ret
;
P179A:	call	L08C4
	call	L056B
	dcx	h
	rst	2
	rnz
	push	h
	lhld	X3F5C
	lxi	b,00400H
	dad	b
	xchg
	rst	4
	mvi	e,020H
	jc	L00A7
	shld	X3F2E
	lxi	b,0FFCEH
	dad	b
	shld	X3F54
	pop	h
	jmp	L01C1
;
P17C0:	call	L0583
	rnz
	pop	b
L17C5:	call	L0197
	mov	h,b
	mov	l,c
	rst	6
	pop	b
	mov	a,b
	ora	c
	jz	L00F1
	call	L0432
	call	L027C
	jmp	L010D
;
P17DA:	call	L0417
	jnc	L009B
	pop	b
	call	L0197
	push	b
	push	b
L17E6:	pop	h
	rst	6
	pop	d
	mov	a,d
	ora	e
	jz	L17FC
	push	d
	rst	6
	pop	d
	push	h
	lhld	X3E8B
	rst	4
	pop	h
	jnc	L17E6
	pop	d
	dcx	h
L17FC:	dcx	h
	dcx	h
	dcx	h
	xchg
	pop	h
L1801:	mvi	c,003H
L1803:	ldax	d
	mov	m,a
	inx	h
	inx	d
	ora	a
	jnz	L1801
	dcr	c
	jnz	L1803
	jmp	L1C8A
;
P1812:	xchg
	call	L01CD
	xchg
	call	L1944
	push	d
	lda	X3E8D
	mov	c,a
	mvi	b,000H
	lhld	X3F5C
	xchg
	lhld	X3F56
L1828:	push	b
	call	L0075
	inr	b
	pop	b
	mov	a,m
	inx	h
	ora	m
	jz	L1861
	inx	h
	mov	a,m
	inx	h
	stax	d
	inx	d
	mov	a,m
	stax	d
	inx	d
	xchg
	xthl
	mov	a,h
	stax	d
	dcx	d
	mov	a,l
	stax	d
	xthl
	xchg
	xthl
	mov	a,l
	stax	d
	inx	d
	mov	a,h
	stax	d
	dad	b
	xthl
	xchg
	inx	h
	shld	X3F5A
	shld	X3F5C
	push	h
	xchg
	dcx	h
	dcx	h
	mov	e,m
	inx	h
	mov	d,m
	xchg
	pop	d
	jmp	L1828
;
L1861:	pop	h
	lhld	X3F56
L1865:	mov	a,m
	inx	h
	ora	m
	jz	L1C8F
	inx	h
	inx	h
L186D:	rst	2
	ora	a
	inx	h
	jz	L1865
	dcx	h
	jp	L186D
	cpi	089H
	jz	L1890
	cpi	0A1H
	jz	L1890
	cpi	088H
	jz	L1890
	cpi	08BH
	jz	L1890
	cpi	08CH
	jnz	L186D
L1890:	push	h
	rst	2
	pop	h
	jnc	L186D
	inx	h
	push	h
	call	L0583
	push	h
	push	d
	lhld	X3F58
	xchg
L18A1:	lhld	X3F5C
	xchg
	rst	4
	pop	d
	jz	L18BD
	mov	a,m
	inx	h
	mov	b,m
	inx	h
	push	h
	mov	l,a
	mov	h,b
	rst	4
	pop	h
	jz	L18C9
	inx	h
	inx	h
	push	d
	xchg
	jmp	L18A1
;
L18BD:	pop	h
	pop	psw
L18BF:	mov	a,m
	cpi	02CH
	jz	L1890
	dcx	h
	jmp	L186D
;
L18C9:	mov	e,m
	inx	h
	mov	d,m
	xra	a
	mvi	b,098H
	call	L11FB
	call	L13A3
	lxi	h,L3F66
	lxi	b,00000h
	mov	a,m
	ora	a
	jz	L18E5
	inx	b
	inx	h
	jmp	018DAh	;!!!!!!!!!!!!!!!!!!!!!!!!!!
;
L18E5:	pop	h
	pop	d
	push	d
	mov	a,l
	sub	e
	inx	b
	sub	c
	cma
	inr	a
	mov	c,a
	jz	L1903
	jp	L1930
	mov	a,b
	cma
	mov	b,a
	call	L191A
L18FB:	rst	4
	mov	a,m
	stax	b
	inx	h
	inx	b
	jnz	L18FB
L1903:	lhld	X3F5A
	shld	X3F5C
	pop	h
	mvi	m,020H
	lxi	d,L3F66
L190F:	inx	h
	ldax	d
	ora	a
	jz	L18BF
	mov	m,a
	inx	d
	jmp	L190F
;
L191A:	push	h
	dad	b
	xchg
	lhld	X3F58
	dad	b
	shld	X3F58
	lhld	X3F5C
	dad	b
	shld	X3F5A
	xchg
	mov	b,h
	mov	c,l
	pop	h
	ret
;
L1930:	call	L191A
	mov	b,d
	mov	c,e
	xchg
	lhld	X3F5C
L1939:	rst	4
	jc	L1903
	mov	a,m
	stax	b
	dcx	h
	dcx	b
	jmp	L1939
;
L1944:	lxi	d,0000AH
	mov	a,e
	sta	X3E8D
	call	L196C
	mov	a,m
	ora	a
	rz
	cpi	02CH
	jz	L195D
	call	L0583
	call	L196C
	rz
L195D:	call	L0F55
	ora	a
	jz	L1967
	sta	X3E8D
L1967:	lhld	X3E8E
	xchg
	ret
;
L196C:	xchg
L196D:	shld	X3E8E
	xchg
	ret
;
P1972:	xchg
	call	L01CD
	xchg
	call	L1944
L197A:	lxi	h,X1981
	push	h
	call	L16DC
X1981:	nop
	nop
	call	L027C
	call	L073C
	mvi	a,002H
	sta	X3F2A
	jmp	L0110
;
L1991:	mvi	d,000H
	lda	X3E8D
	mov	e,a
	lhld	X3E8E
	dad	d
	call	L196D
	jmp	L197A
;
L19A1:	call	L1E10
	mov	a,c
	mvi	a,01BH
	call	L19BC
	mvi	a,059H
	call	L19BC
	mov	a,b
	cma
	adi	039H
	call	L19BC
	mov	a,c
	adi	020H
	jmp	L19BC
;
L19BC:	push	b
	mov	c,a
	call	L285B
	pop	b
	ret
;
P19C3:	call	L0F5C
	call	L19CC
	jmp	L0C4C
;
L19CC:	push	h
	push	b
	lda	X3DF2
	mov	l,a
	lda	X3DF4
	mov	h,a
	call	L1F11
	pop	b
	pop	h
	ret
;
L19DC:	rst	2
	rst	1
	.db	028H
;
	call	L0ABB
	rst	1
	.db	029h
;
	xra	a
	sta	X3F2C
	jmp	L178A
;
L19EB:	rst	2
	lxi	b,08249H
	lxi	d,00FDBH
	jmp	L1223
;
L19F5:	call	L08C4
	push	h
	lxi	b,08A7AH
	lxi	d,L0000
	call	L10CD
	rst	5
	jz	L057E
	call	L0567
	pop	h
	ret
;
P1A0B:	call	L19F5
	push	d
	rst	1
	.db	02Ch
;
	call	L08C4
	xthl
	push	h
	lxi	b,08107H
	lxi	d,09C7DH
	call	L1492
	lxi	b,08664H
	lxi	d,L0000
	call	L112F
	call	L0567
	xchg
	pop	d
	mvi	b,021H
L1A2F:	push	h
	mov	a,c
	xri	001H
	mov	c,a
	ani	001H
	out	000H
L1A38:	dcr	b
	jnz	L1A44
	dcx	d
	mov	a,d
	ora	e
	jz	L1A4E
	mvi	b,021H
L1A44:	dcx	h
	mov	a,h
	ora	l
	jnz	L1A38
	pop	h
	jmp	L1A2F
;
L1A4E:	pop	h
	pop	h
	ret
;
L1A51:	push	h
	mov	a,m
	cpi	022H
	jnz	L009B
L1A58:	inx	h
	mov	a,m
	ora	a
	jz	L009B
	cpi	022H
	jnz	L1A58
	pop	h
	ret
;
L1A65:	push	h
	lhld	X3F56
	lxi	d,L0000
L1A6C:	mvi	b,003H
L1A6E:	mov	a,m
	add	e
	mov	e,a
	mvi	a,000H
	adc	d
	mov	d,a
	mov	a,m
	inx	h
	ora	a
	jnz	L1A6C
	dcr	b
	jnz	L1A6E
	xchg
	shld	X3F28
	pop	h
	ret
;
L1A85:	mvi	b,000H
L1A87:	call	L2BBF
	dcr	b
	jnz	L1A87
	dcr	e
	jnz	L1A85
	ret
;
L1A93:	call	L2BBF
	dcr	e
	jnz	L1A93
	ret
;
L1A9B:	call	L1B6C
	push	d
	lxi	d,005DCH
	call	L174F
	pop	d
	xra	a
	mvi	e,001H
	call	L1A85
	mvi	a,0E6H
	call	L2BBF
X1AB1:	mvi	a,0D3H
	mvi	e,004H
	call	L1A93
L1AB8:	inx	h
	mov	a,m
	cpi	022H
	jz	L1AC5
	call	L2BBF
	jmp	L1AB8
;
L1AC5:	inx	h
	xra	a
	mvi	e,003H
	call	L1A93
	ret
;
P1ACD:	mvi	a,0D3H
	sta	X1AB1+1
	call	L1A51
	call	L1A65
	call	L1A9B
	push	h
	mvi	a,055H
	mvi	e,003H
	call	L1A85
	mvi	a,0E6H
	call	L2BBF
	mvi	a,0D3H
	mvi	e,003H
	call	L1A93
	lhld	X3F56
	dcx	h
L1AF3:	mvi	b,003H
L1AF5:	mov	a,m
	call	L2BBF
	ora	a
	inx	h
	jnz	L1AF3
	dcr	b
	jnz	L1AF5
	lhld	X3F28
	mov	a,l
	call	L2BBF
	mov	a,h
	call	L2BBF
L1B0D:	call	L1B73
	pop	h
	ret
;
P1B12:	call	L1F57
	mvi	a,0D2H
	sta	X1AB1+1
	call	L1A51
	call	L1A9B
	dcx	h
	rst	2
	rst	1
	.db	02Ch
;
	call	L08C4
	rst	5
	call	L056B
	push	d
	rst	1
	.db	02Ch
;
	call	L08C4
	rst	5
	call	L056B
	pop	b
	push	h
	push	b
	pop	h
	call	L1D08
	xchg
	call	L1D08
	xchg
	mvi	b,000H
L1B43:	xra	a
	call	L2BBF
	dcr	b
	xthl
	xthl
	jnz	L1B43
	mvi	a,0E6H
	call	L2BBF
	call	L1D36
	xchg
	call	L1D36
	xchg
L1B5A:	mov	a,m
	call	L2BC1
	add	b
	mov	b,a
	rst	4
	inx	h
	jnz	L1B5A
	mov	a,b
	call	L2BC1
	jmp	L1B0D
;
L1B6C:	xra	a
L1B6D:	sta	X2F49+2
	ei
	hlt
	ret
;
L1B73:	mvi	a,002H
	jmp	L1B6D
;
P1B78:	call	L1F57
	mvi	a,0D2H
	sta	X1CE1+1
	mov	a,m
	cpi	02CH
	jz	L1B93
	call	L1C97
	xchg
	rst	2
	cpi	02CH
	lxi	d,L0000
	jnz	L1B9C
L1B93:	rst	1
	.db	02Ch
;
	call	L08C4
	rst	5
	call	L056B
L1B9C:	push	d
	pop	b
	push	h
	mvi	h,000H
L1BA1:	call	L218F
	cpi	000H
	jz	L1BB7
	cpi	0FFH
	jz	L1BB7
	dcr	h
	jnz	L1BA1
L1BB2:	mvi	e,018H
	jmp	L00A7
;
L1BB7:	mvi	h,014H
	mov	l,a
L1BBA:	call	L218F
	cmp	l
	jnz	L1BB2
	dcr	h
	jnz	L1BBA
	push	b
	pop	h
	mvi	a,020H
	push	b
	call	L1D32
	pop	b
	mvi	a,0FFH
	call	L1CFF
	push	h
	dad	b
	xchg
	call	L1CFD
	pop	h
	dad	b
	xchg
	mvi	a,042H
	cmp	h
	jnc	L1C0A
	push	h
	mvi	b,000H
L1BE5:	call	L218F
	mov	m,a
	add	b
	mov	b,a
	rst	4
	inx	h
	jnz	L1BE5
	call	L1D03
	pop	h
	push	b
	call	L1D08
	xchg
	call	L1D08
	xchg
	pop	b
	call	L1B73
	mov	a,c
	cmp	b
	pop	h
	rz
	mvi	e,018H
	jmp	L00A7
;
L1C0A:	mvi	e,020H
	jmp	L00A7
;
P1C0F:	lxi	b,L0100
L1C12:	jmp	L1C34
;
P1C15:	lxi	b,X0001
	cnz	L1A51
	push	h
	lhld	X3F58
	dcx	h
	dcx	h
	shld	X3F56
	pop	h
	call	L1C3B
	lhld	X0026
	shld	X3F56
	jmp	L1C8F
;
P1C31:	lxi	b,L0000
L1C34:	push	psw
	mvi	a,0D3H
	sta	X1CE1+1
	pop	psw
L1C3B:	ora	a
	push	psw
	push	b
	cnz	L1C97
	pop	b
	mvi	e,003H
	call	L1CD7
	lhld	X3F56
	call	L218F
L1C4D:	mvi	e,003H
L1C4F:	call	L218F
	inr	b
	dcr	b
	jnz	L1C5F
	mov	m,a
	call	L0086
	mov	a,m
	jmp	L1C63
;
L1C5F:	cmp	m
	jnz	L1C84
L1C63:	ora	a
	inx	h
	jnz	L1C4D
	dcr	e
	jnz	L1C4F
	pop	psw
	push	h
	jz	L1C84
	call	L218F
	mov	l,a
	call	L218F
	mov	h,a
	call	L1B73
	call	L1A65
	xchg
	lhld	X3F28
	rst	4
L1C84:	mvi	e,018H
	jnz	L00A7
	pop	h
L1C8A:	shld	X3F58
	dcr	c
	rz
L1C8F:	mvi	a,001H
	sta	X3F2A
	jmp	L0168
;
L1C97:	mov	a,m
	cpi	022H
	jnz	L009B
	call	L1A51
	inx	h
	push	h
	lxi	h,L2B66
	shld	X2192+1
L1CA8:	lxi	h,03E1BH
	push	h
	mvi	e,004H
	call	L1CD7
	call	L1CED
	lxi	h,S22B5
	call	L1E06
	pop	h
	push	h
	ei
	call	L1E06
	call	L1B6C
	pop	h
	pop	d
	push	d
L1CC6:	ldax	d
	cpi	022H
	jz	L1CD5
	cmp	m
	jnz	L1CA8
	inx	h
	inx	d
	jmp	L1CC6
;
L1CD5:	pop	h
	ret
;
L1CD7:	mov	d,e
L1CD8:	mov	e,d
	call	L1B6C
	mvi	a,0FFH
L1CDE:	call	L2191
X1CE1:	cpi	0D3H
	jnz	L1CD8
	dcr	e
	rz
	mvi	a,008H
	jmp	L1CDE
;
L1CED:	mvi	e,003H
L1CEF:	call	L218F
	mov	m,a
	inx	h
	ora	a
	jnz	L1CED
	dcr	e
	jnz	L1CEF
	ret
;
L1CFD:	mvi	a,008H
L1CFF:	call	L2191
	mov	b,a
L1D03:	call	L218F
	mov	c,a
	ret
;
L1D08:	push	b
	mov	a,h
	call	L1D1E
	mov	a,l
	call	L1D13
	pop	b
	ret
;
L1D13:	push	b
	call	L1D1E
	mvi	a,020H
	call	L1D32
	pop	b
	ret
;
L1D1E:	push	psw
	rrc
	rrc
	rrc
	rrc
	call	L1D27
	pop	psw
L1D27:	ani	00FH
	cpi	00AH
	jm	L1D30
	adi	007H
L1D30:	adi	030H
L1D32:	mov	c,a
	jmp	L285B
;
L1D36:	mov	a,h
	call	L2BBF
	mov	a,l
	jmp	L2BBF
;
L1D3E:	rst	2
	call	L0992
	push	h
	call	L1213
	call	L122E
	call	L10CD
	lxi	b,X8100
	mov	d,c
	mov	e,c
	call	L0F90
	call	L1487
	pop	b
	pop	d
	rst	5
	jz	L1D65
	call	L112F
	call	L160F
	pop	h
	ret
;
L1D65:	lxi	h,X15D5
	call	L0F84
	pop	h
	ret
;
L1D6D:	call	L1D3E
	push	h
	call	L120B
	jmp	L1D65
;
L1D77:	rst	2
	call	L0992
	push	h
	call	L108F
	call	L1213
	lxi	b,08213H
	lxi	d,05D8EH
	call	L1223
	pop	b
	pop	d
	call	L112F
	pop	h
	ret
;
P1D92:	push	psw
	mvi	a,001H
	sta	X3F2A
	pop	psw
	call	L06B2
	xra	a
	sta	X3F2A
	ret
;
P1DA1:	mvi	a,001H
	sta	X3F2A
	jmp	L03F8
;
L1DA9:	mov	a,c
	push	psw
	pop	psw
	ani	07FH
L1DAE:	push	psw
	push	b
	mov	c,a
L1DB1:	in	005H
	ani	001H
	jz	L1DB1
	mov	a,c
	cpi	060H
	jc	L1DD6
	mov	c,a
	lda	X3DCE
	cpi	001H
	mov	a,c
	jnz	L1DD6
	push	d
	push	h
	lxi	h,X1DE3
	mvi	d,000H
	sui	060H
	mov	e,a
	dad	d
	mov	a,m
	pop	h
	pop	d
L1DD6:	out	007H
	mvi	a,010H
	out	005H
	mvi	a,000H
	out	005H
	pop	b
	pop	psw
	ret
;
X1DE3:	rnz
	ana	c
	ana	d
	cmp	b
	ana	l
	ana	m
	ora	m
	ana	h
	ora	a
	xra	d
	xra	e
	xra	h
	xra	l
	xra	m
	xra	a
	ora	b
	ora	c
	pop	b
	ora	d
	ora	e
	ora	h
	ora	l
	xra	b
	ana	e
	cmp	m
	cmp	l
	xra	c
	cmp	d
	cmp	a
	cmp	e
	cmp	c
	mov	e,a
L1E03:	call	L30B0
L1E06:	mov	a,m
	ana	a
	rz
	call	L19BC
	inx	h
	jmp	L1E06
;
L1E10:	call	L1F57
	call	L0F59
	mov	c,a
	push	b
	call	L0F55
	pop	b
	mov	b,a
	ret
;
_1E1E:	rst	1	;?????????
	.db	02Ch
;
	call	L08C4
	rst	5
	call	L056B
	ret
;
P1E28:	lda	X3DC6
	sta	X3DC7
	call	L2585
	dcx	h
	rst	2
	cpi	02CH
	jnz	L1E5D
	push	b
	call	L0F55
	pop	b
	cpi	010H
	jnc	L057E
	sta	X3DC3
	mov	e,a
	call	L2540
	dcx	h
	rst	2
	cpi	02CH
	jnz	L1E5D
	push	b
	call	L0F55
	pop	b
	cpi	010H
	jnc	L057E
	sta	X3DC4
L1E5D:	lda	X1FA3
	mov	d,a
	lda	X3DC3
	ana	d
	sta	X3DC3
	lda	X3DC4
	ana	d
	sta	X3DC4
	lxi	d,X1E7A
	push	h
	push	d
	lxi	d,X1E83
	push	b
	push	d
	ret
;
X1E7A:	lda	X3DC7
	mov	e,a
	call	L2540
	pop	h
	ret
;
X1E83:	pop	h
	call	L1F11
	rz
	push	h
	call	L1F4D
L1E8C:	dcr	l
	call	L1F11
	cnz	L1F4D
	jnz	L1E8C
	inr	l
	shld	X3DF5
	pop	h
L1E9B:	inr	l
	call	L1F11
	cnz	L1F4D
	jnz	L1E9B
	dcr	l
	shld	X3DF7
	lda	X3DF5
	mov	d,a
	inr	h
	mvi	e,000H
L1EB0:	call	L1F11
	jz	L1ECE
	xra	a
	cmp	e
	jnz	L1EC5
	lxi	b,X1E83
	push	h
	push	b
	call	L1EFD
	mvi	e,001H
L1EC5:	mov	a,l
	cmp	d
	jz	L1ED3
	dcr	l
	jmp	L1EB0
;
L1ECE:	mvi	e,000H
	jmp	L1EC5
;
L1ED3:	lhld	X3DF7
	dcr	h
	mvi	e,000H
L1ED9:	call	L1F11
	jz	L1EF7
	xra	a
	cmp	e
	jnz	L1EEE
	lxi	b,X1E83
	push	h
	push	b
	call	L1EFD
	mvi	e,001H
L1EEE:	mov	a,l
	cmp	d
	jz	L1EFC
	dcr	l
	jmp	L1ED9
;
L1EF7:	mvi	e,000H
	jmp	L1EEE
L1EFC:	ret
;
L1EFD:	push	h
	push	d
	lhld	X3F5C
	xchg
	lxi	h,L0000
	dad	sp
	mov	a,d
	sub	h
	mvi	e,00AH
	jnc	L00A7
	pop	d
	pop	h
	ret
;
L1F11:	push	d
	push	h
	mov	c,l
	mov	l,h
	mvi	b,041H
	ldax	b
	mov	h,a
	inr	b
	ldax	b
	mov	b,a
	lxi	d,02000H
	mvi	c,000H
	ana	m
	jz	L1F27
X1F25:	mvi	c,008H
L1F27:	dad	d
	mov	a,b
	ana	m
	jz	L1F31
X1F2D:	inr	c
X1F2E:	inr	c
X1F2F:	inr	c
X1F30:	inr	c
L1F31:	dad	d
	mov	a,b
	ana	m
	jz	L1F39
X1F37:	inr	c
X1F38:	inr	c
L1F39:	dad	d
	mov	a,b
	ana	m
	jz	L1F40
X1F3F:	inr	c
L1F40:	mov	a,c
	lxi	h,X3DC3
	cmp	m
	jz	L1F4A
	inx	h
	cmp	m
L1F4A:	pop	h
	pop	d
	ret
;
L1F4D:	push	psw
	push	h
	mov	c,l
	mov	l,h
	call	L281B
	pop	h
	pop	psw
	ret
;
L1F57:	cpi	0CAH
	jnc	L009B
	ret
;
P1F5D:	call	L1E10
	mov	a,b
	inr	c
	dcr	c
	jz	L1F8D
	dcr	c
	jz	L20C4
	dcr	c
	jz	L1FA4
	dcr	c
	jz	L1F85
	dcr	c
	jz	L36FD
	dcr	c
	jz	L201C
	dcr	c
	jz	L2013
	dcr	c
	jz	L2026
	jmp	L057E
;
L1F85:	lxi	d,F3931
	mvi	b,008H
	jmp	L168C
;
L1F8D:	cpi	010H
	jnc	L057E
	push	h
	lxi	h,02DB5H
	mvi	a,011H
	sub	b
	mov	e,b
	mvi	d,000H
	mov	b,a
	dad	d
	xchg
	pop	h
	jmp	L168D
;
X1FA3:	rrc
L1FA4:	cpi	010H
	jnc	L057E
	sta	X1FA3
	call	L2009
	sta	X2851
	sta	X2836
	sta	X29C6
	jnc	L1FBD
	mvi	a,00CH
L1FBD:	sta	X1F3F
	call	L2009
	sta	X284D
	sta	X2831
	sta	X29C1
	jnc	L1FD1
	mvi	a,00CH
L1FD1:	sta	X1F37
	sta	X1F38
	call	L2009
	sta	X2849
	sta	X282C
	sta	X29BC
	jnc	L1FE8
	mvi	a,00CH
L1FE8:	sta	X1F2D
	sta	X1F2E
	sta	X1F2F
	sta	X1F30
	call	L2009
	sta	X2845
	sta	X2827
	sta	X29B7
	jnc	L2005
	mvi	a,008H
L2005:	sta	X1F25+1
	ret
;
L2009:	mov	a,b
	rrc
	mov	b,a
	mvi	a,077H
	jc	L2012
	xra	a
L2012:	ret
;
L2013:	cpi	002H
	jnc	L057E
	sta	X3DCE
	ret
;
L201C:	cpi	002H
	jnc	L057E
	sta	X2025
	ret
;
X2025:	nop
L2026:	cpi	007H
	jnc	L057E
	push	h
	sta	X207A
	lda	X3DCE
	push	psw
	xra	a
	sta	X3DCE
	mvi	d,020H
	mvi	e,000H
L203B:	lda	X3C3C
	sub	e
	sta	X3DF4
	call	L207E
	xra	a
L2046:	sta	X3DF2
	push	psw
	call	L208C
	mov	a,h
	call	L1DAE
	mov	a,l
	call	L1DAE
	pop	psw
	inr	a
	jnz	L2046
	mov	a,e
	adi	008H
	mov	e,a
	dcr	d
	jnz	L203B
	mvi	a,01BH
	call	L1DAE
	mvi	a,032H
	call	L1DAE
	pop	psw
	sta	X3DCE
	pop	h
	ret
;
_2072:	.db 000h  ; <_> - |        | (offset 2072h)
X2073:	.db 00Dh  ; <_> - |    ■■ ■| (offset 2073h)
	.db 00Ah  ; <_> - |    ■ ■ | (offset 2074h)
	.db 01Bh  ; <_> - |   ■■ ■■| (offset 2075h)
	.db 041h  ; <A> - | ■     ■| (offset 2076h)
	.db 008h  ; <_> - |    ■   | (offset 2077h)
	.db 01Bh  ; <_> - |   ■■ ■■| (offset 2078h)
	.db 02Ah  ; <*> - |  ■ ■ ■ | (offset 2079h)
X207A:	.db 001h  ; <_> - |       ■| (offset 207Ah)
	.db 000h  ; <_> - |        | (offset 207Bh)
	.db 002h  ; <_> - |      ■ | (offset 207Ch)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 207Dh)
;
L207E:	lxi	h,X2073
L2081:	mov	a,m
	cpi	0FFH
	rz
	call	L1DAE
	inx	h
	jmp	L2081
;
L208C:	push	d
	lda	X3DF4
	push	psw
	lxi	d,00880H
	lxi	h,L0000
L2097:	push	d
	call	L19CC
	pop	d
	cpi	000H
	jz	L20AE
	push	psw
	mov	a,h
	ora	e
	mov	h,a
	pop	psw
	cpi	007H
	jc	L20AE
	mov	a,l
	ora	e
	mov	l,a
L20AE:	mov	a,e
	stc
	cmc
	rar
	mov	e,a
	lda	X3DF4
	dcr	a
	sta	X3DF4
	dcr	d
	jnz	L2097
	pop	psw
	sta	X3DF4
	pop	d
	ret
;
L20C4:	call	L20DC
	ei
	hlt
	out	00EH
	dcx	h
	rst	2
	cpi	02CH
	rnz
	call	L0F55
	mov	b,a
	call	L20DC
	ei
	hlt
	out	00DH
	ret
;
L20DC:	cpi	003H
	jnc	L057E
	ora	a
	rz
	mvi	a,033H
	dcr	b
	rz
	mvi	a,022H
	ret
;
P20EA:	call	L1F57
	push	psw
	xra	a
	sta	X3DC1
	sta	X3DC2
	di
	pop	psw
L20F7:	push	h
	cpi	02CH
	jnz	L2113
	push	psw
	lda	X3DC1
	inr	a
	cpi	003H
	jc	L210A
	jmp	L009B
;
L210A:	sta	X3DC1
	pop	psw
	pop	h
	rst	2
	jmp	L20F7
;
L2113:	pop	b
	call	L08D3
	dcx	h
	push	h
	lda	X3F2C
	ora	a
	jz	L009B
	call	L2135
	pop	h
	rst	2
	jnz	L20F7
	lda	X3DC2
	mov	d,a
	lda	X3C3D
	ora	d
	sta	X3C3D
	ei
	ret
;
L2135:	call	L0E62
	call	L1231
	push	d
	lxi	h,X3C3E
	mvi	d,000H
	lda	X3DC1
	mov	e,a
	dad	d
	mvi	m,000H
	mvi	d,001H
	cpi	000H
	jz	L2158
	mvi	d,002H
	cpi	001H
	jz	L2158
	mvi	d,004H
L2158:	lxi	h,X3DC2
	mov	a,m
	ora	d
	mov	m,a
	lxi	h,X3C41
	lda	X3DC1
	inr	a
	lxi	d,00080H
L2168:	dcr	a
	jz	L2170
	dad	d
	jmp	L2168
;
L2170:	pop	d
	mvi	d,080H
	inr	e
L2174:	dcr	e
	rz
	ldax	b
	cpi	020H
	jz	L218B
	cpi	00DH
	mov	m,a
	inx	h
	mvi	m,000H
	dcr	d
	jnz	L218B
	mvi	e,01AH
	jmp	L00A7
;
L218B:	inx	b
	jmp	L2174
;
L218F:	mvi	a,008H
L2191:	di
X2192:	jmp	L2195
;
L2195:	push	h
	lhld	X21A0
	mov	a,m
	inx	h
	shld	X21A0
	pop	h
	ret
;
X21A0:	.db	000h,060h
S21A2:	.db	"NEXT bez FOR",000h
S21AF:	.db	"sintaksi~eskaq",000h
S21BE:	.db	"RETURN bez GOSUB",000h
S21CF:	.db	"malo dannyh w DATA",000h
S21E2:	.db	"newernyj argument",000h
S21F4:	.db	"perepolnenie ",000h
S2202:	.db	"net pamqti",000h
S220D:	.db	"net stroki",000h
S2218:	.db	"newernyj indeks",000h
S2228:	.db	"powtornoe opisanie",000h
S223B:	.db	"delenie na nolx",000h
S224B:	.db	"tolxko w programme",000h
S225E:	.db	"nesootw.dannyh",000h
S226D:	.db	"mal bufer",000h
S2277:	.db	"X$>255",000h
S227E:	.db	"slovno",000h
S2285:	.db	"nelxzq",000h
S228C:	.db	"net DEF",000h
S2294:	.db	" "
X2295:	.db	"o{ibka",000h
S229C:	.db	00Dh,00Ah,"=>",00Dh,00Ah,000h
S22A3:	.db	00Dh,00Ah,"stop",000h
S22AA:	.db	" w stroke ",000h
S22B5:	.db	00Dh,00Ah,"programma: "
S22C2:	.db	000h
;
X22C3:	.db	"CL",0D3h
	.db	"FO",0D2h
	.db	"NEX",0D4h
	.db	"DAT",0C1h
	.db	"INPU",0D4h
	.db	"DI",0CDh
	.db	"REA",0C4h
	.db	"CU",0D2h
	.db	"GOT",0CFh
	.db	"RU",0CEh
	.db	"I",0C6h
	.db	"RESTOR",0C5h
	.db	"GOSU",0C2h
	.db	"RETUR",0CEh
	.db	"RE",0CDh
	.db	"STO",0D0h
	.db	"OU",0D4h
	.db	"O",0CEh
	.db	"PLO",0D4h
	.db	"LIN",0C5h
	.db	"POK",0C5h
	.db	"PRIN",0D4h
	.db	"DE",0C6h
	.db	"CON",0D4h
	.db	"LIS",0D4h
	.db	"CLEA",0D2h
	.db	"CLOA",0C4h
	.db	"CSAV",0C5h
	.db	"NE",0D7h
	.db	"TAB",0A8h
	.db	"T",0CFh
	.db	"SPC",0A8h
	.db	"F",0CEh
	.db	"THE",0CEh
	.db	"NO",0D4h
	.db	"STE",0D0h
	.db	0ABh
	.db	0ADh
	.db	0AAh
	.db	0AFh
	.db	0DEh
	.db	"AN",0C4h
	.db	"O",0D2h
	.db	0BEh
	.db	0BDh
	.db	0BCh
	.db	"SG",0CEh
	.db	"IN",0D4h
	.db	"AB",0D3h
	.db	"US",0D2h
	.db	"FR",0C5h
	.db	"IN",0D0h
	.db	"PO",0D3h
	.db	"SQ",0D2h
	.db	"RN",0C4h
	.db	"LO",0C7h
	.db	"EX",0D0h
	.db	"CO",0D3h
	.db	"SI",0CEh
	.db	"TA",0CEh
	.db	"AT",0CEh
	.db	"PEE",0CBh
	.db	"LE",0CEh
	.db	"STR",0A4h
	.db	"VA",0CCh
	.db	"AS",0C3h
	.db	"CHR",0A4h
	.db	"LEFT",0A4h
	.db	"RIGHT",0A4h
	.db	"MID",0A4h
	.db	"POIN",0D4h
	.db	"INKEY",0A4h
	.db	"A",0D4h
	.db	0A6h
	.db	"BEE",0D0h
	.db	"PAUS",0C5h
	.db	"VERIF",0D9h
	.db	"HOM",0C5h
	.db	"EDI",0D4h
	.db	"DELET",0C5h
	.db	"MERG",0C5h
	.db	"AUT",0CFh
	.db	"HIME",0CDh
	.db	0C0h
	.db	"AS",0CEh
	.db	"ADD",0D2h
	.db	"P",0C9h
	.db	"RENU",0CDh
	.db	"AC",0D3h
	.db	"L",0C7h
	.db	"LPRIN",0D4h
	.db	"LLIS",0D4h
	.db	"SCREE",0CEh
	.db	"COLO",0D2h
	.db	"GE",0D4h
	.db	"PU",0D4h
	.db	"BSAV",0C5h
	.db	"BLOA",0C4h
	.db	"PLA",0D9h
	.db	"PAIN",0D4h
	.db	"CIRCL",0C5h
	.db	"STRI",0C7h
	.db	"STIC",0CBh
	.db	000h
;
T2437:	.dw	P257F
	.dw	P0443
	.dw	P087B
	.dw	L061B
	.dw	P07A2
	.dw	P0AB6
	.dw	P07EF
	.dw	L19A1
	.dw	L05E9
	.dw	P05CD
	.dw	P069A
	.dw	P0500
	.dw	P05D9
	.dw	P0605
	.dw	0061Dh	;!!!!!!!!!!!!!!!!
	.dw	P0523
	.dw	P0F3A
	.dw	P067E
	.dw	P25B8
	.dw	P25E1
	.dw	P167B
	.dw	L06B2
	.dw	P0C51
	.dw	P0547
	.dw	L03F8
	.dw	P05A4
	.dw	P1C31
	.dw	P1ACD
	.dw	L01AF
	.dw	P1A0B
	.dw	P174C
	.dw	P1C0F
	.dw	P257F
	.dw	P17C0
	.dw	P17DA
	.dw	P1C15
	.dw	P1972
	.dw	P179A
	.dw	L009B
	.dw	L009B
	.dw	L009B
	.dw	L009B
	.dw	P1812
	.dw	L009B
	.dw	L009B
	.dw	P1D92
	.dw	P1DA1
	.dw	P1F5D
	.dw	P250A
	.dw	P37E6
	.dw	P388C
	.dw	P1B12
	.dw	P1B78
	.dw	P20EA
	.dw	P1E28
	.dw	P3258
;
T24A7:	.dw	X11F5	; адреса для pchl (1)
	.dw	L12B3
	.dw	P1209
	.dw	P24F8
	.dw	P0C1B
	.dw	P0F1F
	.dw	P0C49
	.dw	L1487
	.dw	P155D
	.dw	L108F
	.dw	L14CC
	.dw	L158F
	.dw	L1595
	.dw	P15FA
	.dw	L160F
	.dw	P165B
	.dw	P0E88
	.dw	P0CC0
	.dw	P0F68
	.dw	P0E97
	.dw	P0EAE
	.dw	P0EBE
	.dw	P0EEE
	.dw	P0EF8
	.dw	P19C3
	.dw	P172C
	.dw	L009B
	.dw	P175C
	.dw	P2F92
	.dw	P2F4C
;
u24E3:	.dw	07F79h	;???
	.dw	07913h	;???
	.dw	00F8Eh
	.dw	0CB7Bh	;???
	.dw	07B10h	;???
	.dw	0112Dh
	.dw	0907Fh	;???
	.dw	05014h	;???
	.db	018h	;???
	.dw	0460Ah	;???
	.dw	00A17h
;
P24F8:	rst	5
	call	L056B
	mov	a,d
	cpi	043H
	jc	L057E
	xchg
	call	L2509
	jmp	L0C4C
;
L2509:	pchl			;INFO: index jump
;
P250A:	call	L1F57
	call	L0F59
	push	psw
	ani	0F0H
	sta	X3DC9
	pop	psw
	ani	00FH
	sta	X2F49+1
	mov	e,a
	dcx	h
	rst	2
	cpi	02CH
	jnz	L2540
	push	d
	call	L0F55
	sta	X2DB6
	pop	d
	dcx	h
	rst	2
	cpi	02CH
	jnz	L2540
	push	d
	call	L0F55
	cpi	010H
	jnc	L057E
	sta	X2F49
	pop	d
L2540:	push	psw
	push	h
	push	d
	lxi	h,X2552
	push	h
	push	psw
	push	h
	lda	X3DC9
	lxi	h,029B5H
	jmp	L255E
;
X2552:	pop	d
	mov	a,e
	sta	X3DC6
	rlc
	rlc
	rlc
	rlc
	lxi	h,L2825
;
L255E:	push	d
	mvi	d,004H
L2561:	rlc
	jc	L256E
	mvi	m,02FH
	inx	h
	mvi	m,0A6H
	inx	h
	jmp	L2574
;
L256E:	mvi	m,0B6H
	inx	h
	mvi	m,000H
	inx	h
L2574:	inx	h
	inx	h
	inx	h
	dcr	d
	jnz	L2561
	pop	d
	pop	h
	pop	psw
	ret
;
P257F:	mvi	a,01FH
	call	L19BC
	ret
;
L2585:	call	L1F57
	dcx	h
	rst	2
	cpi	0A3H
	jnz	L1E10
	inx	h
	call	L08C4
	rst	5
	call	L056B
	lda	X3DF2
	push	h
	mvi	h,000H
	mov	l,a
	dad	d
	mov	c,l
	pop	h
	push	b
	rst	1
	.db	02Ch
;
	call	L08C4
	rst	5
	call	L056B
	pop	b
	lda	X3DF4
	push	h
	mvi	h,000H
	mov	l,a
	dad	d
	mov	b,l
	mov	a,l
	pop	h
	ret
;
P25B8:	call	L2585
	dcx	h
	rst	2
	cpi	02CH
	jz	L25C8
	lda	X25E0
	jmp	L25D2
;
L25C8:	push	b
	call	L0F55
	pop	b
	cpi	003H
	jnc	L057E
L25D2:	cpi	002H
	sta	X25E0
	jz	L267E
	mov	e,a
	mov	a,b
	call	L26F2
	ret
;
X25E0:	.db	001h
;
P25E1:	call	L2585
	push	psw
	dcx	h
	rst	2
	cpi	02CH
	jnz	L25F2
	rst	2
	cpi	042H
	jz	L25F7
L25F2:	pop	psw
L25F3:	call	L271D
	ret
;
L25F7:	rst	2
	cpi	046H
	jz	L264A
	cpi	053H
	jnz	L261E
	rst	2
	pop	psw
	sta	X3DEB
	ana	a
	rar
	sta	X3DE9
	mov	a,c
	sta	X3DEA
	ana	a
	rar
	sta	X3DE8
	push	h
	lxi	h,X3005
	shld	L285C+1
	pop	h
	ret
;
L261E:	pop	psw
	mov	b,a
	push	d
	lda	X3DF2
	mov	e,a
	lda	X3DF4
	mov	d,a
	push	b
	mov	c,e
	mov	a,b
	call	L271D
	pop	b
	push	b
	mov	a,b
	call	L271D
	pop	b
	push	b
	mov	a,d
	call	L271D
	mov	c,e
	call	L271D
	pop	b
	mov	a,b
	sta	X3DF4
	mov	a,c
	sta	X3DF2
	pop	d
	ret
;
L264A:	rst	2
	pop	psw
L264C:	push	h
	push	d
	push	psw
	lxi	h,X3DF2
	mov	d,a
	mov	a,m
	cmp	c
	jz	L2687
	lxi	h,X3DF4
	mov	a,d
	sub	m
	jz	L2687
	jnc	L2699
	mov	a,m
	sub	d
	mov	e,a
	mov	a,m
L2667:	mov	m,d
	lxi	h,X3DF2
	push	psw
	mov	a,c
	sub	m
	jnc	L269E
	mov	a,m
	sub	c
	mov	b,a
	mov	m,c
L2675:	pop	psw
	call	L26A5
	pop	psw
	pop	d
	pop	h
	ret
;
X267D:	.db	001h
;
L267E:	mov	a,b
	sta	X3DF4
	mov	a,c
	sta	X3DF2
	ret
;
L2687:	push	b
	lda	X3DF2
	mov	c,a
	lda	X3DF4
	call	L281A
	pop	b
	pop	psw
	pop	d
	pop	h
	jmp	L25F3
;
L2699:	mov	e,a
	mov	a,d
	jmp	L2667
;
L269E:	mov	b,a
	mov	a,m
	mov	m,c
	mov	c,a
	jmp	L2675
;
L26A5:	inr	b
	inr	e
	push	d
	push	psw
L26A9:	call	L297B
	mov	d,a
	ana	a
L26AE:	rar
	inr	c
	dcr	b
	jc	L26BE
	jz	L26BE
	push	psw
	add	d
	mov	d,a
	pop	psw
	jmp	L26AE
;
L26BE:	mov	a,d
	call	L2985
	xra	a
	cmp	b
	jz	L26CC
	pop	psw
	push	psw
	jmp	L26A9
;
L26CC:	pop	psw
	pop	d
	ret
;
L26CF:	mvi	a,083H	;<<<<< точка входа в бейсик
	out	004H
X26D3:	call	03C39h	;?????????????????????
	lxi	b,04100H
	lxi	h,L8080
L26DC:	mvi	d,008H
L26DE:	mov	a,h
	stax	b
	mov	a,l
	inr	b
	stax	b
	dcr	b
	rrc
	mov	l,a
	inr	c
	jz	L16A2
	dcr	d
	jnz	L26DE
	inr	h
	jmp	L26DC
;
L26F2:	push	psw
	push	d
	push	h
	sta	X3DF4
	mov	a,e
	sta	X267D
	xra	a
	cmp	e
	jnz	L2714
	lxi	h,L2838
	shld	X2815+1
L2707:	mvi	h,000H
	mov	l,c
	shld	X3DF2
	call	L2810
	pop	h
	pop	d
	pop	psw
	ret
;
L2714:	lxi	h,L281A
	shld	X2815+1
	jmp	L2707
;
L271D:	push	psw
	push	b
	push	d
	push	h
	mvi	b,000H
	lxi	h,X3DF4
	mov	d,a
	sub	m
	mvi	e,034H
	jnc	L2731
	cma
	inr	a
	mvi	e,035H
L2731:	sta	X3DEC
	mov	a,e
	sta	X2802
	sta	X27F4
	lhld	X3DF2
	mov	a,c
	sub	l
	mov	l,a
	mov	a,b
	sbb	h
	mov	h,a
	mvi	e,023H
	jnc	L2751
	cma
	mov	h,a
	mov	a,l
	cma
	mov	l,a
	inx	h
	mvi	e,02BH
L2751:	shld	X3DED
	mov	a,e
	sta	X280C
	sta	X27F8
	mvi	d,000H
	lda	X3DEC
	mov	e,a
	dad	d
	mov	c,l
	mov	b,h
	mov	a,l
	ora	h
	jz	L27EC
	lxi	h,L0000
	shld	X3DEF
L276F:	lda	X3DEC
	cpi	000H
	jz	L27B6
	lhld	X3DED
	mov	a,h
	ora	l
	jz	L278F
	lhld	X3DEF
	xra	a
	xra	h
	jp	L27AA
	xchg
	lhld	X3DED
	dad	d
	shld	X3DEF
L278F:	lda	X3DF1
	cpi	002H
	jnz	L279D
	call	L27FF
	jmp	L27D2
;
L279D:	ori	002H
	cpi	003H
	jnz	L27CF
	call	L27F1
	jmp	L27CE
;
L27AA:	mvi	d,0FFH
	lda	X3DEC
	cma
	mov	e,a
	inx	d
	dad	d
	shld	X3DEF
L27B6:	lda	X3DF1
	cpi	001H
	jnz	L27C4
	call	L2809
	jmp	L27D2
;
L27C4:	ori	001H
	cpi	003H
	jnz	L27CF
	call	L27F1
L27CE:	xra	a
L27CF:	sta	X3DF1
L27D2:	dcx	b
	mov	a,b
	ora	c
	jnz	L276F
	lda	X3DF1
	cpi	001H
	cz	L2809
	lda	X3DF1
	cpi	002H
	cz	L27FF
	xra	a
	sta	X3DF1
L27EC:	pop	h
	pop	d
	pop	b
	pop	psw
	ret
;
L27F1:	lxi	h,X3DF4
X27F4:	nop
	lhld	X3DF2
X27F8:	nop
	shld	X3DF2
	jmp	L2810
;
L27FF:	lxi	h,X3DF4
X2802:	nop
	lhld	X3DF2
	jmp	L2810
;
L2809:	lhld	X3DF2
X280C:	nop
	shld	X3DF2
L2810:	push	b
	mov	c,l
	lda	X3DF4
X2815:	call	L281A
	pop	b
	ret
;
L281A:	mov	l,a
L281B:	mvi	b,041H
	ldax	b
	mov	h,a
	inr	b
L2820:	ldax	b
	mov	d,a
	lxi	b,02000H
L2825:	ora	m
	nop
X2827:	mov	m,a
	dad	b
	mov	a,d
	ora	m
	nop
X282C:	mov	m,a
	dad	b
	mov	a,d
	ora	m
	nop
X2831:	mov	m,a
	dad	b
	mov	a,d
	ora	m
	nop
X2836:	mov	m,a
	ret
;
L2838:	mov	l,a
	mvi	b,041H
	ldax	b
	mov	h,a
	inr	b
	ldax	b
	lxi	b,02000H
	cma
	mov	d,a
	ana	m
X2845:	mov	m,a
	dad	b
	mov	a,d
	ana	m
X2849:	mov	m,a
	dad	b
	mov	a,d
	ana	m
X284D:	mov	m,a
	dad	b
	mov	a,d
	ana	m
X2851:	mov	m,a
	ret
;
L2853:	lda	X3F2A
	cpi	001H
	jz	L1DA9
L285B:	ei
L285C:	jmp	L285F
;
L285F:	push	psw
	push	b
	push	d
	push	h
	mov	a,c
	ani	07FH
	mov	c,a
	lxi	h,X3DC8
	mov	a,m
	ora	a
	jnz	L2879
	mov	a,c
	cpi	01BH
	jnz	L28DB
L2875:	inr	m
	jmp	L2B30
;
L2879:	cpi	001H
	jnz	L2887
	mov	a,c
	cpi	059H
	jnz	L28A2
	jmp	L2875
;
L2887:	cpi	002H
	mov	a,c
	jz	L28B0
	sui	020H
	jc	L28A7
	cpi	02AH
	jnc	L28AB
	mov	c,a
	add	a
	add	a
	add	a
	sub	c
	sub	c
L289D:	adi	002H
L289F:	sta	X3DCB
L28A2:	mvi	m,000H
	jmp	L2B30
;
L28A7:	xra	a
	jmp	L289D
;
L28AB:	mvi	a,0F8H
	jmp	L289F
;
L28B0:	sui	020H
	jc	L28C8
	cpi	019H
	jnc	L28D3
	mov	c,a
	add	a
	add	a
	add	a
	add	c
	add	c
	mov	b,a
	lda	X3C3C
	sub	b
	jmp	L28CB
;
L28C8:	lda	X3C3C
L28CB:	sui	003H
L28CD:	sta	X3DCA
	jmp	L2875
;
L28D3:	lda	X3C3C
	adi	00DH
	jmp	L28CD
;
L28DB:	mov	a,c
	cpi	01FH
	jz	L29D0
	jm	L2A1D
L28E4:	mov	c,a
	mvi	b,000H
	lxi	h,L0000
	dad	b
	dad	h
	dad	h
	dad	b
	lxi	b,z3939
	dad	b
	xchg
	mvi	c,005H
	push	d
	push	b
	lhld	X3DCA
	mov	a,l
	mov	c,h
	call	L297B
	lxi	b,X296B
	ana	a
L2903:	rrc
	jc	L290C
	inx	b
	inx	b
	jmp	L2903
;
L290C:	inr	l
	ldax	b
	call	L29AB
	inr	h
	inx	b
	ldax	b
	ana	a
	cnz	L29AB
	pop	b
	pop	d
L291A:	lhld	X3DCA
	inr	l
	ldax	d
	ana	a
	jz	L294E
	push	b
	push	d
	mov	e,a
	mov	c,h
	mvi	b,041H
	ldax	b
	mov	h,a
	inr	b
	ldax	b
	mov	d,a
	mov	a,e
	lxi	b,02000H
	ana	a
L2933:	rar
	jc	L293F
	dcr	l
	ana	a
	jnz	L2933
	jmp	L294C
;
L293F:	push	h
	mov	e,a
	mov	a,d
	call	L2825
	mov	a,e
	pop	h
	dcr	l
	ana	a
	jnz	L2933
L294C:	pop	d
	pop	b
L294E:	inx	d
	lxi	h,X3DCB
	inr	m
	dcr	c
	jnz	L291A
	inr	m
	mov	a,m
	cpi	0FAH
	jc	L2B30
	mvi	c,00DH
	call	L285C
	mvi	c,00AH
	call	L285C
	jmp	L2B30
;
X296B:	.db 001h  ; <_> - |       ■| (offset 296Bh)
	.db 0F8h  ; <°> - |■■■■■   | (offset 296Ch)
	.db 003h  ; <_> - |      ■■| (offset 296Dh)
	.db 0F8h  ; <°> - |■■■■■   | (offset 296Eh)
	.db 007h  ; <_> - |     ■■■| (offset 296Fh)
	.db 0E0h  ; <р> - |■■■     | (offset 2970h)
	.db 00Fh  ; <_> - |    ■■■■| (offset 2971h)
	.db 0C0h  ; <└> - |■■      | (offset 2972h)
	.db 01Fh  ; <_> - |   ■■■■■| (offset 2973h)
	.db 080h  ; <А> - |■       | (offset 2974h)
	.db 03Fh  ; <?> - |  ■■■■■■| (offset 2975h)
	.db 000h  ; <_> - |        | (offset 2976h)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 2977h)
	.db 000h  ; <_> - |        | (offset 2978h)
	.db 0FCh  ; <№> - |■■■■■■  | (offset 2979h)
	.db 000h  ; <_> - |        | (offset 297Ah)
;
L297B:	push	b
	mov	l,a
	mvi	b,041H
	ldax	b
	mov	h,a
	inr	b
	ldax	b
	pop	b
	ret
;
L2985:	push	b
	push	h
	push	d
	mov	d,a
L2989:	push	d
	mov	a,l
	lxi	b,F3931
	ani	007H
	add	c
	mov	c,a
	jnc	L2996
	inr	b
L2996:	ldax	b
	ana	d
	mov	d,a
	lxi	b,02000H
	push	h
	call	L2825
	pop	h
	pop	d
	dcr	l
	dcr	e
	jnz	L2989
	pop	d
	pop	h
	pop	b
	ret
;
L29AB:	push	b
	push	h
	mvi	e,009H
	lxi	b,02000H
	mov	d,a
L29B3:	mov	a,d
	push	h
	ora	m
	nop
X29B7:	mov	m,a
	dad	b
	mov	a,d
	ora	m
	nop
X29BC:	mov	m,a
	dad	b
	mov	a,d
	ora	m
	nop
X29C1:	mov	m,a
	dad	b
	mov	a,d
	ora	m
	nop
X29C6:	mov	m,a
	pop	h
	dcr	l
	dcr	e
	jnz	L29B3
	pop	h
	pop	b
	ret
;
L29D0:	lda	X1FA3
	lxi	d,0E000H
	lxi	h,02000H
	mvi	c,004H
L29DB:	dad	d
	shld	X29FA+1
	rrc
	cc	L29EF
	dcr	c
	jnz	L29DB
	mvi	a,0FFH
	sta	X3C3C
	jmp	L2B25
;
L29EF:	push	b
	push	h
	push	d
	lxi	h,L0000
	dad	sp
	shld	X2A15+1
	di
X29FA:	lxi	sp,L0000
	lxi	b,L0000
	mov	d,b
L2A01:	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	push	b
	dcr	d
	jnz	L2A01
X2A15:	lxi	sp,L0000
	ei
	pop	d
	pop	h
	pop	b
	ret
;
L2A1D:	lhld	X3DCA
	cpi	008H
	jnz	L2A35
	mov	a,h
	sui	006H
	jnc	L2A42
	mvi	h,0F8H
	shld	X3DCA
	mvi	a,019H
	jmp	L2A46
;
L2A35:	cpi	018H
	jnz	L2A46
	mov	a,h
	adi	006H
	cpi	0FCH
	jnc	L2A80
L2A42:	mov	h,a
	jmp	L2B2D
;
L2A46:	cpi	019H
	jnz	L2A5D
	mov	d,h
	mov	a,l
	lxi	h,X3C3C
	adi	003H
	cmp	m
	jnz	L2A58
	adi	006H
L2A58:	adi	007H
	jmp	L2A71
;
L2A5D:	cpi	01AH
	jnz	L2A76
	mov	d,h
	mov	a,l
	lxi	h,X3C3C
	sui	00DH
	cmp	m
	jnz	L2A6F
	sui	006H
L2A6F:	adi	003H
L2A71:	mov	e,a
	xchg
	jmp	L2B2D
;
L2A76:	cpi	00DH
	jnz	L2A84
	mvi	h,002H
	jmp	L2B2D
;
L2A80:	mvi	h,002H
	mvi	a,00AH
L2A84:	cpi	00AH
	jnz	L2B20
	mov	a,l
	xchg
	lxi	h,X3C3C
	sub	m
	cpi	017H
	mov	a,e
	jnc	L2ACC
	mov	a,m
	sui	002H
	mov	l,a
	mvi	h,0E0H
	mvi	c,004H
	lda	X1FA3
L2AA0:	rrc
	cc	L2AD3
	push	psw
	mov	a,h
	sui	020H
	mov	h,a
	pop	psw
	dcr	c
	jnz	L2AA0
	mov	a,l
	lxi	h,X3C3C
	adi	001H
	mov	m,a
	hlt
	sui	002H
	mov	m,a
	hlt
	sui	003H
	mov	m,a
	hlt
	sui	002H
	mov	m,a
	hlt
	sui	001H
	mov	m,a
	hlt
	sui	001H
	mov	m,a
	hlt
	adi	017H
L2ACC:	sui	00AH
	mov	e,a
	xchg
	jmp	L2B2D
;
L2AD3:	push	h
	push	psw
	push	b
	mvi	b,000H
	mov	a,l
	mvi	c,020H
L2ADB:	mov	l,a
	mov	m,b
	dcr	l
	mov	m,b
	dcr	l
	mov	m,b
	dcr	l
	mov	m,b
	dcr	l
	mov	m,b
	dcr	l
	mov	m,b
	dcr	l
	mov	m,b
	dcr	l
	mov	m,b
	dcr	l
	mov	m,b
	dcr	l
	mov	m,b
	inr	h
	dcr	c
	jnz	L2ADB
	pop	b
	pop	psw
	pop	h
	ret
;
L2AF8:	cpi	007H
	jnz	L28E4
	lda	03C39h	;???????????????????
	adi	00FH
	mov	d,a
L2B03:	mvi	e,07BH
	mvi	a,001H
	out	000H
L2B09:	dcr	e
	jnz	L2B09
	mvi	e,07BH
	xra	a
	out	000H
L2B12:	dcr	e
	jnz	L2B12
	lda	03C39h	;??????????????????
	cmp	d
	jnz	L2B03
	jmp	L2B30
;
L2B20:	cpi	00CH
	jnz	L2AF8
L2B25:	mvi	h,002H
	lda	X3C3C
	sui	003H
	mov	l,a
L2B2D:	shld	X3DCA
L2B30:	pop	h
	pop	d
	pop	b
	pop	psw
	ret
;
L2B35:	push	psw
	push	b
	push	d
	push	h
	lhld	X3DCA
	mov	a,l
	sui	008H
	mov	c,h
	inr	b
	mvi	b,005H
	jz	L2B55
L2B46:	push	b
	push	psw
	call	L281A
	pop	psw
	pop	b
	inr	c
	dcr	b
	jnz	L2B46
	jmp	L2B61
;
L2B55:	push	b
	push	psw
	call	L2838
	pop	psw
	pop	b
	inr	c
	dcr	b
	jnz	L2B55
L2B61:	pop	h
	pop	d
	pop	b
	pop	psw
	ret
;
L2B66:	push	b
	push	d
	mvi	c,000H
	mov	d,a
	in	001H
	ani	010H
	mov	e,a
L2B70:	in	001H
	ani	040H
X2B74:	nop		;<- меняется на "JZ"
	nop
	nop
	in	001H
	ani	010H
	cmp	e
	jz	L2B70
	rlc
	rlc
	rlc
	rlc
	mov	a,c
	ral
	mov	c,a
	call	L2BB7
	in	001H
	ani	010H
	mov	e,a
	mov	a,d
	ora	a
	jp	L2BAC
	mov	a,c
	cpi	0E6H
	jnz	L2BA0
	xra	a
x2B9A:	sta	XFEC5	;<- 3DC5h
	jmp	L2BAA
;
L2BA0:	cpi	019H
	jnz	L2B70
	mvi	a,0FFH
x2BA7:	sta	XFEC5	;<- 3DC5h
L2BAA:	mvi	d,009H
L2BAC:	dcr	d
	jnz	L2B70
x2BB0:	lda	XFEC5	;<- 3DC5h
	xra	c
	pop	d
	pop	b
	ret
;
L2BB7:	lda	XFE06	;<- 0006h
L2BBA:	dcr	a
	jnz	L2BBA
	ret
;
L2BBF:	di
	mov	c,a
L2BC1:	push	b
	push	d
	push	psw
	mov	d,a
	mvi	c,008H
L2BC7:	mov	a,d
	rlc
	mov	d,a
	mvi	a,001H
	xra	d
	ani	001H
	out	000H
	call	L2BE6
	mvi	a,000H
	xra	d
	ani	001H
	out	000H
	call	L2BE6
	dcr	c
	jnz	L2BC7
	pop	psw
	pop	d
	pop	b
	ret
;
L2BE6:	lda	X0007
	jmp	L2BBA
;
L2BEC:	jmp	L2BEF
;
L2BEF:	push	b
L2BF0:	mvi	b,000H
	lda	03C39h	;?????????????????????????
	ani	008H
	jnz	L2BFC
	mvi	b,0FFH
L2BFC:	call	L2B35
	call	L2D5D
	cpi	0FFH
	jz	L2BF0
	mvi	b,0FFH
	call	L2B35
	mov	b,a
	in	001H
	ani	060H
	jnz	L2C52
	mov	a,b
	cpi	060H
	jc	L2C1D
	sui	020H
	mov	b,a
L2C1D:	mov	a,b
	adi	080H
	mov	c,a
	push	h
	lxi	h,X2C55
L2C25:	mov	a,m
	cpi	080H
	jz	L2C51
	cmp	c
	inx	h
	jnz	L2C25
	shld	X3DD4
	lxi	h,L2C3B
	shld	L2BEC+1
	pop	h
	pop	b
L2C3B:	push	b
	push	h
	lhld	X3DD4
	mov	b,m
	inx	h
	shld	X3DD4
	mov	a,m
	cpi	080H
	jm	L2C51
	lxi	h,L2BEF
	shld	L2BEC+1
L2C51:	pop	h
L2C52:	mov	a,b
	pop	b
	ret
;
X2C55:	.db	0CCh,"LIST "
	.db	0AEh,"CSAVE ",022h
	.db	0ACh,"CLOAD ",022h
	.db	0DCh,"BSAVE ",022h
	.db	0C0h,"BLOAD ",022h
	.db	0D6h,"SCREEN"
	.db	0AFh,"PRINT"
	.db	0D2h,"RUN "
	.db	0C7h,"GOTO"
	.db	0D4h,"THEN"
	.db	0CEh,"NEXT"
	.db	0C9h,"INPUT"
	.db	0DDh,"POKE"
	.db	0DBh,"PEEK("
	.db	0D3h,"STEP"
	.db	0C6h,"FOR"
	.db	0D0h,"PLOT"
	.db	0BAh,"AND"
	.db	0ADh,"NOT"
	.db	0DEh,"CIRCLE"
	.db	0BBh,"RND(1)"
	.db	0C3h,"COLOR"
	.db	0C4h,"LINE"
	.db	0C8h,"STOP"
	.db	0B1h,"CLS"
	.db	0B2h,"CHR$("
	.db	0B3h,"STR$("
	.db	0B4h,"LEFT$("
	.db	0B5h,"MID$("
	.db	0B6h,"RIGHT$("
	.db	0B7h,"COS("
	.db	0B8h,"SIN("
	.db	0B9h,"TAN("
	.db	0B0h,"ATN("
	.db	0CBh,"USR("
	.db	0CFh,"GET"
	.db	0D1h,"CUR"
	.db	0CAh,"GOSUB"
	.db	0D5h,"RETURN"
	.db	0C1h,"PUT"
	.db	0C2h,"DATA"
	.db	0D8h,"PLAY"
	.db	0C5h,"EDIT "
	.db	0CDh,"CONT"
	.db	0D7h,"ASC("
	.db	0D9h,"INT("
	.db	0DAh,"FRE("
	.db	080h
;
L2D5D:	push	b
	push	h
L2D5F:	lxi	h,X3DD1
	mov	a,m
	ora	a
	mvi	a,0FFH
	jz	L2DA8
	dcr	m
	lxi	h,03DD8H
	lda	X3DD3
	mov	c,a
	mvi	b,000H
	dad	b
	inr	a
	ani	00FH
	sta	X3DD3
	mov	a,m
	cpi	084H
	jnz	L2D8B
	lda	X2F49+2
	xri	002H
	sta	X2F49+2
	jmp	L2D5F
;
L2D8B:	cpi	080H
	jnc	L2DA6
	lda	X2025
	ana	a
	jz	L2DA5
	in	001H
	ani	060H
	jz	L2DA5
	mov	c,m
	mvi	b,000H
	lxi	h,03BB9H
	dad	b
L2DA5:	mov	a,m
L2DA6:	ani	07FH
L2DA8:	pop	h
	pop	b
	ret
;
L2DAB:	in	001H
	ani	040H
	jnz	L2DB4
	cma
	ret
;
L2DB4:	xra	a
	ret
;
X2DB6:	.db 000h  ; <_> - |        | (offset 2DB6h)
	.db 000h  ; <_> - |        | (offset 2DB7h)
	.db 000h  ; <_> - |        | (offset 2DB8h)
	.db 000h  ; <_> - |        | (offset 2DB9h)
	.db 000h  ; <_> - |        | (offset 2DBAh)
	.db 000h  ; <_> - |        | (offset 2DBBh)
	.db 000h  ; <_> - |        | (offset 2DBCh)
	.db 000h  ; <_> - |        | (offset 2DBDh)
	.db 000h  ; <_> - |        | (offset 2DBEh)
	.db 000h  ; <_> - |        | (offset 2DBFh)
	.db 000h  ; <_> - |        | (offset 2DC0h)
	.db 000h  ; <_> - |        | (offset 2DC1h)
	.db 000h  ; <_> - |        | (offset 2DC2h)
	.db 000h  ; <_> - |        | (offset 2DC3h)
	.db 000h  ; <_> - |        | (offset 2DC4h)
X2DC5:	.db 000h  ; <_> - |        | (offset 2DC5h)
;
L2DC6:	push	psw	;<<<<<< точка входа на прерывание в бейсике
	push	b
	push	d
	push	h
	mvi	e,00FH
	lxi	h,X2DC5
L2DCF:	mov	a,e
	out	002H
	mov	a,m
	out	00CH
	dcx	h
	dcr	e
	jp	L2DCF
	mvi	b,003H
	lxi	h,03C39h	;?????????
L2DDF:	inr	m
	jnz	L2DEB
	dcr	b
	jz	L2DEB
	inx	h
	jmp	L2DDF
;
L2DEB:	mvi	a,08AH
	out	000H
	lda	X2F49+2
	out	001H
	in	001H
	ani	080H
	lxi	h,L3DD0
	jnz	L2E0F
	mov	a,m
	ora	a
	jz	L2E11
	mvi	m,000H
	lxi	h,X2F48
	mov	a,m
	xri	008H
	mov	m,a
	jmp	L2E11
;
L2E0F:	mvi	m,0FFH
L2E11:	xra	a
	out	003H
	in	002H
	cpi	0FFH
	jz	L2E35
	lxi	b,0FE08H
	lxi	d,00800H
	mov	a,b
L2E22:	out	003H
	in	002H
	cpi	0FFH
	jnz	L2E59
	mov	a,e
	add	d
	mov	e,a
	mov	a,b
	rlc
	mov	b,a
	dcr	c
	jnz	L2E22
L2E35:	call	L2F1F
	xra	a
	sta	X3DCD
	cma
	sta	X3DCF
L2E40:	lda	X3C3D
	rrc
	rrc
	rrc
	lxi	b,00002H
L2E49:	rlc
	push	psw
	cc	L30C5
	pop	psw
	dcr	c
	jp	L2E49
L2E53:	pop	h
	pop	d
	pop	b
	pop	psw
	ei
	ret
;
L2E59:	rar
	jnc	L2E61
	inr	e
	jmp	L2E59
;
L2E61:	call	L2F1F
	lxi	h,X2EDC
	push	h
	in	001H
	ani	060H
	jnz	L2E71
	mvi	a,060H
L2E71:	mov	b,a
	mov	a,e
	cpi	03FH
	mvi	a,020H
	rz
	mov	a,e
	cpi	010H
	jnc	L2E90
	lxi	h,X2ECC
	mvi	d,000H
	dad	d
	mov	a,m
	cpi	07FH
	rnz
	mov	a,b
	ani	020H
	mvi	a,05FH
	rz
	mov	a,m
	ret
;
L2E90:	cpi	020H
	jnc	L2EAF
	cpi	01CH
	mov	a,b
	jnc	L2EA6
	ani	020H
	mov	a,e
	jz	L2EA3
L2EA1:	adi	010H
L2EA3:	adi	010H
	ret
;
L2EA6:	ani	020H
	mov	a,e
	jnz	L2EA3
	jmp	L2EA1
;
L2EAF:	mov	a,b
	ani	040H
	jnz	L2EB9
	mov	a,e
	ani	01FH
	ret
;
L2EB9:	mov	a,b
	ani	020H
	mov	b,a
	lda	X2F48
	ani	008H
	ora	b
	mov	a,e
	jpo	L2EC9
	adi	020H
L2EC9:	adi	020H
	ret
;
X2ECC:	adc	c
	adc	d
	adc	l
	mov	a,a
	adc	b
	sbb	c
	sbb	b
	sbb	d
	adc	h
	sbb	a
	sbb	e
	add	b
	add	c
	add	d
	add	e
	add	h
;
X2EDC:	lxi	h,L2E40
	push	h
	mov	b,a
	lda	X3DCF
	cpi	0FFH
	jz	L2F01
	cmp	b
	rnz
	lxi	h,X3DCD
	mov	a,m
	cpi	032H
	jz	L2EF6
L2EF4:	inr	m
	ret
;
L2EF6:	lxi	h,X3DCC
	mov	a,m
	cpi	00AH
	jnz	L2EF4
	mvi	m,000H
L2F01:	mov	a,b
	sta	X3DCF
	lxi	h,X3DD1
	mov	a,m
	cpi	010H
	rnc
	inr	m
	lda	X3DD2
	mov	e,a
	mvi	d,000H
	lxi	h,03DD8H
	dad	d
	inr	a
	ani	00FH
	sta	X3DD2
	mov	m,b
	ret
;
L2F1F:	lda	X2F48
	ani	009H
	mov	h,a
	lda	X2F49+2
	ani	002H
	add	h
	mov	h,a
	mvi	a,088H
	out	000H
	mov	a,h
	out	001H
	lda	X3C3C
	out	003H
	lda	X2F49
	ani	00FH
	out	002H
	ret
;
_2F40:	in	001H
	ani	060H
	rnz
	mvi	a,060H
	ret
;
X2F48:	stax	b
X2F49:	lxi	b,00200H
P2F4C:	rst	5
	call	L056B
	mov	a,d
	ora	a
	jnz	L057E
	mov	a,e
	cpi	003H
	jnc	L057E
	ora	a
	mvi	b,000H
	jz	L2FB1
	in	00FH
L2F63:	ani	00FH
	lxi	h,L0000
	shld	X3F60
	shld	X3F62
	rz
	rar
	jnc	L2F75
	ori	008H
L2F75:	mvi	c,000H
	mvi	b,001H
L2F79:	rar
	jc	L2F82
	inr	b
	inr	b
	jmp	L2F79
;
L2F82:	mov	c,b
	ora	a
	jz	L2F8E
	inr	c
	rar
	jc	L2F8E
	mvi	c,008H
L2F8E:	mov	a,c
	jmp	L11F6
;
P2F92:	rst	5
	mvi	b,001H
	jz	L2FB1
	jm	L057E
	in	00FH
L2F9D:	ani	080H
	jz	L2FAB
	lxi	b,X8180
L2FA5:	lxi	d,L0000
	jmp	L1223
;
L2FAB:	lxi	b,L0000
	jmp	L2FA5
;
L2FB1:	push	h
	lxi	h,X2FC2
	shld	X0039
	ei
	hlt
	lxi	h,L2DC6
	shld	X0039
	pop	h
	ret
;
X2FC2:	mvi	a,08AH
	out	000H
	lda	X2F49+2
	out	001H
	xra	a
	out	003H
	in	002H
	cpi	0FFH
	jz	L2FF1
	mov	a,b
	ora	a
	jnz	L2FF7
	mvi	a,0FEH
	out	003H
	in	002H
	cma
	ora	a
	jz	L2FF1
	ani	0F0H
	rar
	rar
	rar
	rar
	call	L2F63
	jmp	L3001
;
L2FF1:	call	L2FAB
	jmp	L3001
;
L2FF7:	mvi	a,07FH
	out	003H
	in	002H
	cma
	call	L2F9D
L3001:	call	L2F1F
	ret
;
X3005:	push	psw
	push	b
	push	d
	push	h
	mov	a,c
	cpi	00DH
	jnz	L3018
	lxi	h,L285F
	shld	L285C+1
	jmp	L3088
;
L3018:	ani	07FH
	mov	c,a
	mvi	b,000H
	lxi	h,L0000
	dad	b
	dad	h
	dad	h
	dad	b
	lxi	b,z3939
	dad	b
	mvi	c,005H
L302A:	lda	X3DF4
	push	psw
	mvi	b,008H
	lda	X3DF2
	push	psw
	mov	a,m
	mov	e,a
L3036:	lda	X3DEA
	mov	d,a
	pop	psw
	sta	X3DF2
	push	psw
	add	d
	dcr	a
	push	b
	mov	c,a
	lda	X3DF4
	mov	d,a
	lda	X3DEB
	add	d
	dcr	a
	mov	b,a
	mov	a,e
	rlc
	mov	e,a
	mov	a,b
	push	b
	push	psw
	push	psw
	lda	X3DE8
	add	c
	mov	c,a
	lda	X3DE9
	add	b
	mov	b,a
	pop	psw
	mov	a,b
	cc	L264C
	pop	psw
	pop	b
	inr	a
	sta	X3DF4
	mov	a,c
	inr	a
	sta	X3DF2
	pop	b
	dcr	b
	jnz	L3036
	pop	psw
	pop	psw
	sta	X3DF4
	inx	h
	dcr	c
	jnz	L302A
	lda	X3DF2
	mov	d,a
	lda	X3DEA
	add	d
	sta	X3DF2
L3088:	jmp	L2E53
;
X308B:	.db 004h  ; <_> - |     ■  | (offset 308Bh)
	.db 004h  ; <_> - |     ■  | (offset 308Ch)
	.db 004h  ; <_> - |     ■  | (offset 308Dh)
X308E:	.db 001h  ; <_> - |       ■| (offset 308Eh)
	.db 001h  ; <_> - |       ■| (offset 308Fh)
	.db 001h  ; <_> - |       ■| (offset 3090h)
X3091:	.db 005h  ; <_> - |     ■ ■| (offset 3091h)
	.db 005h  ; <_> - |     ■ ■| (offset 3092h)
	.db 005h  ; <_> - |     ■ ■| (offset 3093h)
;
	.db 0BDh  ; <╜> - |■ ■■■■ ■| (offset 3094h)
	.db 0D2h  ; <╥> - |■■ ■  ■ | (offset 3095h)
;
X3096:	.db 02Bh  ; <+> - |  ■ ■ ■■| (offset 3096h)
	.db 0B3h  ; <│> - |■ ■■  ■■| (offset 3097h)
	.db 01Ch  ; <_> - |   ■■■  | (offset 3098h)
	.db 0A9h  ; <й> - |■ ■ ■  ■| (offset 3099h)
_309A:	.db 09Eh  ; <Ю> - |■  ■■■■ | (offset 309Ah)
	.db 09Fh  ; <Я> - |■  ■■■■■| (offset 309Bh)
	.db 0A9h  ; <й> - |■ ■ ■  ■| (offset 309Ch)
	.db 096h  ; <Ц> - |■  ■ ■■ | (offset 309Dh)
_309E:	.db 034h  ; <4> - |  ■■ ■  | (offset 309Eh)
	.db 08Eh  ; <О> - |■   ■■■ | (offset 309Fh)
_30A0:	.db 039h  ; <9> - |  ■■■  ■| (offset 30A0h)
	.db 086h  ; <Ж> - |■    ■■ | (offset 30A1h)
	.db 0B0h  ; <░> - |■ ■■    | (offset 30A2h)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 30A3h)
_30A4:	.db 094h  ; <Ф> - |■  ■ ■  | (offset 30A4h)
	.db 077h  ; <w> - | ■■■ ■■■| (offset 30A5h)
	.db 0DEh  ; <▐> - |■■ ■■■■ | (offset 30A6h)
	.db 070h  ; <p> - | ■■■    | (offset 30A7h)
_30A8:	.db 088h  ; <И> - |■   ■   | (offset 30A8h)
	.db 06Ah  ; <j> - | ■■ ■ ■ | (offset 30A9h)
	.db 08Eh  ; <О> - |■   ■■■ | (offset 30AAh)
	.db 064h  ; <d> - | ■■  ■  | (offset 30ABh)
_30AC:	.db 0E9h  ; <щ> - |■■■ ■  ■| (offset 30ACh)
	.db 05Eh  ; <^> - | ■ ■■■■ | (offset 30ADh)
	.db 095h  ; <Х> - |■  ■ ■ ■| (offset 30AEh)
	.db 059h  ; <Y> - | ■ ■■  ■| (offset 30AFh)
;
L30B0:	push	psw
	push	b
	push	h
	lxi	b,00002H
L30B6:	lxi	h,X3C3E
	dad	b
	call	L30D5
	dcr	c
	jp	L30B6
	pop	h
	pop	b
	pop	psw
	ret
;
L30C5:	lxi	h,X308E
	dad	b
	dcr	m
	rnz
	lxi	h,X3C3E
	dad	b
	mov	a,m
	cpi	080H
	jc	L3103
L30D5:	mvi	m,000H
	lxi	h,X3091
	dad	b
	mvi	m,005H
	lxi	h,X308B
	dad	b
	mvi	m,004H
	push	b
	mvi	a,07FH
L30E6:	rlc
	dcr	c
	jp	L30E6
	lxi	h,X3C3D
	ana	m
	mov	m,a
	pop	b
L30F1:	lxi	h,X308E
	dad	b
	mvi	m,001H
L30F7:	mov	a,c
	inr	a
	cma
	rrc
	rrc
	ani	0C0H
	ori	030H
	out	008H
	ret
;
L3103:	push	h
	push	h
	mov	a,c
	lxi	d,00080H
	lxi	h,03BC1H
L310C:	dad	d
	dcr	a
	jp	L310C
	pop	d
	ldax	d
	mov	e,a
	mvi	d,000H
	dad	d
	mov	a,m
	ora	a
	xchg
	pop	h
	jz	L30D5
	cpi	04CH
	jnz	L3140
	inr	m
	inx	d
	ldax	d
	cpi	030H
	jc	L3136
	cpi	03AH
	jnc	L3136
	call	L3229
	jmp	L3138
;
L3136:	mvi	a,004H
L3138:	push	h
	lxi	h,X308B
	dad	b
	mov	m,a
	pop	h
	ldax	d
L3140:	cpi	04FH
	jnz	L315E
	inr	m
	inx	d
	ldax	d
	cpi	030H
	jc	L315E
	cpi	039H
	jnc	L315E
	push	h
	lxi	h,X3091
	dad	b
	sui	02FH
	mov	m,a
	pop	h
	inr	m
	inx	d
	ldax	d
L315E:	inr	m
	inx	d
	push	h
	push	d
	lxi	h,X31A0
	push	h
	lxi	h,X3096
	lxi	d,00004H
	cpi	043H
	rz
	dad	d
	cpi	044H
	rz
	dad	d
	cpi	045H
	rz
	inx	h
	inx	h
	cpi	046H
	rz
	dad	d
	cpi	047H
	rz
	dad	d
	cpi	041H
	rz
	dad	d
	cpi	042H
	rz
	pop	h
	pop	d
	pop	h
	cpi	050H
	jz	L319A
	cpi	052H
	jnz	L30F1
	mvi	m,000H
	jmp	L30F1
;
L319A:	call	L30F7
	jmp	L31DD
;
X31A0:	pop	d
	ldax	d
	cpi	023H
	inx	h
	inx	h
	jz	L31B7
	cpi	02BH
	jz	L31B7
	cpi	02DH
	dcx	h
	dcx	h
	jnz	L31BB
	dcx	h
	dcx	h
L31B7:	xthl
	inr	m
	xthl
	inx	d
L31BB:	shld	X31BE+1
X31BE:	lhld	L0000
	push	h
	lxi	h,X3091
	dad	b
	mov	a,m
	pop	h
	push	b
	mov	c,a
L31CA:	dcr	c
	jz	L31D8
	mov	a,h
	ora	a
	rar
	mov	h,a
	mov	a,l
	rar
	mov	l,a
	jmp	L31CA
;
L31D8:	pop	b
	call	L320C
	pop	h
L31DD:	ldax	d
	cpi	030H
	jc	L31EE
	cpi	03AH
	jnc	L31EE
	call	L3229
	jmp	L31F5
;
L31EE:	push	h
	lxi	h,X308B
	dad	b
	mov	a,m
	pop	h
L31F5:	push	h
	lxi	h,X308E
	dad	b
	mov	m,a
	ldax	d
	cpi	02EH
	mov	a,m
	jnz	L320A
	add	a
	add	m
	ora	a
	rar
	mov	m,a
	pop	h
	inr	m
	ret
;
L320A:	pop	h
	ret
;
L320C:	push	psw
	mvi	a,009H
	add	c
	sta	X3222+1
	sta	X3225+1
	mov	a,c
	inr	a
	cma
	rrc
	rrc
	ani	0C0H
	ori	036H
	out	008H
	mov	a,l
X3222:	out	009H
	mov	a,h
X3225:	out	009H
	pop	psw
	ret
;
L3229:	sui	030H
	inr	m
	inx	d
	push	b
	mov	c,a
	ldax	d
	cpi	030H
	jc	L3246
	cpi	03AH
	jnc	L3246
	sui	030H
	mov	b,a
	mov	a,c
	add	a
	add	a
	add	c
	add	a
	add	b
	mov	c,a
	inx	d
	inr	m
L3246:	mov	a,c
	ori	001H
	rlc
	mov	b,a
	mvi	a,080H
L324D:	rlc
	mov	c,a
	mov	a,b
	rlc
	mov	b,a
	mov	a,c
	jnc	L324D
	pop	b
	ret
;
P3258:	call	L2585
	sta	X3DF4
	mov	a,c
	sta	X3DF2
	call	L0F55
	sta	X3E00
	xchg
	lxi	h,L0000
	shld	X3E0C
	shld	X3E0E
	xchg
	xra	a
	sta	X3E19
	sta	X3E1A
	dcx	h
	rst	2
	cpi	02CH
	jnz	L32F7
	rst	1
	.db	02Ch
;
	call	L08C4
	push	h
	lxi	b,08922H
	lxi	d,0E524H
	call	L10CD
	rst	5
	call	L0567
	xchg
	shld	X3DF5
	pop	h
	rst	1
	.db	02Ch
;
	call	L08C4
	push	h
	lxi	b,08922H
	lxi	d,0E524H
	call	L10CD
	rst	5
	call	L0567
	xchg
	shld	X3DF7
	pop	h
	dcx	h
	rst	2
	cpi	02CH
	jnz	L32E1
	rst	1
	.db	02Ch
;
	call	L08C4
	push	h
	lxi	b,08900H
	lxi	d,L0000
	call	L10CD
	rst	5
	call	L0567
	xchg
	mov	a,h
	cpi	000H
	jz	L32DC
	cpi	001H
	jnz	L32FD
	xra	a
	cmp	l
	jnz	L32FD
L32DC:	mov	a,l
	sta	X3E19
L32E0:	pop	h
L32E1:	xchg
	lhld	X3DF5
	mov	a,h
	ani	007H
	mov	h,a
	shld	X3E0C
	lhld	X3DF7
	mov	a,h
	ani	007H
	mov	h,a
	shld	X3E0E
	xchg
L32F7:	push	h
	call	L3312
	pop	h
	ret
;
L32FD:	mov	a,h
	ana	a
	rar
	mov	h,a
	mov	a,l
	rar
	mov	l,a
	lxi	d,07FFFH
	xchg
	call	L3723
	mov	a,l
	sta	X3E1A
	jmp	L32E0
;
L3312:	xra	a
	mov	h,a
	mov	d,a
	lda	X3DF4
	mov	e,a
	lda	X3DF2
	mov	l,a
	shld	X3E02
	xchg
	shld	X3E04
	call	L351F
	xra	a
	mov	l,a
	mov	h,a
	shld	X3DFB
	lhld	X3E00
	shld	X3DFD
	mov	b,a
	mov	c,a
	dad	h
	mvi	a,003H
	sub	l
	mov	l,a
	mvi	a,000H
	sbb	h
	mov	h,a
	xchg
	lhld	X3DFD
L3342:	push	b
	push	d
	push	h
	call	L3384
	pop	h
	pop	d
	pop	b
	xra	a
	ora	d
	jm	L3368
	push	h
	mov	a,c
	sub	l
	mov	l,a
	mov	a,b
	sbb	h
	mov	h,a
	dad	h
	dad	h
	dad	d
	mov	a,l
	adi	00AH
	mov	l,a
	mvi	a,000H
	adc	h
	mov	h,a
	pop	d
	xchg
	dcx	h
	jmp	L337B
;
L3368:	push	h
	xra	a
	mov	h,a
	mov	l,a
	dad	b
	dad	b
	dad	b
	dad	b
	mvi	a,006H
	add	l
	mov	l,a
	mvi	a,000H
	adc	h
	mov	h,a
	dad	d
	pop	d
	xchg
L337B:	inx	b
	mov	a,l
	sub	c
	mov	a,h
	sbb	b
	jp	L3342
	ret
;
L3384:	lda	X3E11
	lxi	d,X3447
	call	L33E5
	push	b
	xthl
	pop	b
	lda	X3E10
	lxi	d,X3410
	call	L33E5
	push	h
	xra	a
	sub	l
	mov	l,a
	mvi	a,000H
	sbb	h
	mov	h,a
	lda	X3E17
	lxi	d,X3410
	call	L33E5
	push	b
	xthl
	pop	b
	lda	X3E12
	lxi	d,X3447
	call	L33E5
	xra	a
	sub	l
	mov	l,a
	mvi	a,000H
	sbb	h
	mov	h,a
	lda	X3E15
	lxi	d,X34B6
	call	L33E5
	push	b
	xthl
	pop	b
	lda	X3E14
	lxi	d,X3485
	call	L33E5
	pop	h
	lda	X3E13
	lxi	d,X3485
	call	L33E5
	push	b
	xthl
	pop	b
	lda	X3E16
	lxi	d,X34B6
L33E5:	xchg
	cpi	003H
	jz	L33F1
	ora	a
	jnz	L33FA
	xchg
	ret
;
L33F1:	xchg
	push	b
	push	h
	call	L34EE
	pop	h
	pop	b
	ret
;
L33FA:	push	d
	dcr	a
	mov	e,a
	mvi	d,000H
	dad	d
	dad	d
	dad	d
	pop	d
	push	d
	push	b
	push	h
	lxi	h,X340D
	xthl
	push	h
	xchg
	ret
;
X340D:	pop	b
	pop	h
	ret
;
X3410:	jmp	L3422
	jmp	L342C
	jmp	L34EE
	jmp	L3436
	call	L342C
	jmp	L3422
;
L3422:	xchg
	lhld	X3E08
L3426:	rst	4
	xchg
	jp	L34EE
	ret
;
L342C:	xchg
	lhld	X3E06
L3430:	xchg
	rst	4
	jp	L34EE
	ret
;
L3436:	xchg
	lhld	X3E06
	xchg
	rst	4
	rm
	xchg
	lhld	X3E08
	rst	4
	rm
	xchg
	jmp	L34EE
;
X3447:	jmp	L3459
	jmp	L3465
	jmp	L34EE
	jmp	L346F
	call	L3465
	jmp	L3459
;
L3459:	mov	d,b
	mov	e,c
	push	h
	lhld	X3E06
L345F:	rst	4
	pop	h
	jp	L34EE
	ret
;
L3465:	push	h
	mov	d,b
	mov	e,c
	lhld	X3E08
	xchg
	jmp	L345F
;
L346F:	push	h
	mov	d,b
	mov	e,c
	lhld	X3E08
	xchg
	rst	4
	pop	h
	rm
	push	h
	mov	d,b
	mov	e,c
	lhld	X3E06
	rst	4
	pop	h
	rm
	jmp	L34EE
;
X3485:	jmp	L3497
	jmp	L349E
	jmp	L34EE
	jmp	L34A5
	call	L349E
	jmp	L3497
;
L3497:	xchg
	lhld	X3E06
	jmp	L3426
;
L349E:	xchg
	lhld	X3E08
	jmp	L3430
;
L34A5:	xchg
	lhld	X3E08
	xchg
	rst	4
	rm
	xchg
	lhld	X3E06
	rst	4
	xchg
	rm
	jmp	L34EE
;
X34B6:	jmp	L34C8
	jmp	L34D1
	jmp	L34EE
	jmp	L34DB
	call	L34D1
	jmp	L34C8
;
L34C8:	push	h
	mov	d,b
	mov	e,c
	lhld	X3E08
	jmp	L345F
;
L34D1:	push	h
	mov	d,b
	mov	e,c
	lhld	X3E06
	xchg
	jmp	L345F
;
L34DB:	push	h
	mov	d,b
	mov	e,c
	lhld	X3E06
	xchg
	rst	4
	pop	h
	rm
	push	h
	mov	d,b
	mov	e,c
	lhld	X3E08
	rst	4
	pop	h
	rm
L34EE:	push	b
	mov	d,h
	mov	e,l
	lda	X3E1A
	ora	a
	jz	L34FD
	call	L36CB
	mov	e,d
	mov	d,c
L34FD:	lhld	X3E04
	dad	d
	xthl
	mov	d,h
	mov	e,l
	lda	X3E19
	ora	a
	jz	L3510
	call	L36CB
	mov	e,d
	mov	d,c
L3510:	lhld	X3E02
	dad	d
	pop	d
	xra	a
	cmp	h
	rnz
	cmp	d
	rnz
	mov	c,l
	mov	l,e
	jmp	L281B
;
L351F:	lhld	X3E0C
	xchg
	lhld	X3E0E
	rst	4
	jc	L35FB
	jnz	L3537
	xra	a
	lxi	b,L0703
	call	L36B5
	jmp	L3623
;
L3537:	lda	X3E0D
	mov	b,a
	lda	X3E0F
	sub	b
	jnz	L3555
	push	b
	mvi	b,007H
	mov	c,a
	call	L36B5
	pop	b
	lxi	h,X3E10
	mov	c,b
	mov	b,a
	dad	b
	mvi	m,004H
	jmp	L35E8
;
L3555:	lda	X3E0D
	mov	b,a
	lda	X3E0F
	dcr	a
	sub	b
	jnz	L356A
	mov	c,a
	mvi	b,007H
	call	L36B5
	jmp	L35AC
;
L356A:	lda	X3E0F
	dcr	a
	mov	b,a
	lda	X3E0D
	inr	a
	mvi	c,003H
	call	L36B5
	lda	X3E0D
	ora	a
	jnz	L3587
	mvi	a,002H
	sta	X3E10
	jmp	L3591
;
L3587:	lda	X3E0D
	dcr	a
	mov	b,a
	xra	a
	mov	c,a
	call	L36B5
L3591:	lda	X3E0F
	cpi	007H
	jnz	L35A1
	mvi	a,001H
	sta	X3E17
	jmp	L35AC
;
L35A1:	lda	X3E0F
	inr	a
	mvi	b,007H
	mvi	c,000H
	call	L36B5
L35AC:	lda	X3E0D
	lxi	h,X3E10
	ora	a
	jz	L35C4
	cpi	005H
	jnc	L35C4
	mov	c,a
	mvi	b,000H
	dad	b
	mvi	m,001H
	jmp	L35CA
;
L35C4:	mov	c,a
	mvi	b,000H
	dad	b
	mvi	m,002H
L35CA:	lda	X3E0F
	lxi	h,X3E10
	ora	a
	jz	L35E2
	cpi	005H
	jnc	L35E2
	mov	c,a
	mvi	b,000H
	dad	b
	mvi	m,002H
	jmp	L35E8
;
L35E2:	mov	c,a
	mvi	b,000H
	dad	b
	mvi	m,001H
L35E8:	call	L3623
	ret
;
L35EC:	lxi	h,L0000
	dad	sp
	xchg
	di
	sphl
	pop	h
	pop	b
	push	h
	push	b
	xchg
	sphl
	ei
	ret
;
L35FB:	lxi	d,X3E0C
	push	d
	call	L35EC
	call	L351F
	pop	d
	call	L35EC
	mvi	b,008H
	lxi	h,X3E10
L360E:	mov	c,m
	mvi	a,003H
	sub	c
	jp	L3617
	mvi	a,005H
L3617:	mov	m,a
	inx	h
	dcr	b
	jnz	L360E
	lxi	d,X3E06
	jmp	L35EC
;
L3623:	lhld	X3E0E
	push	h
	lhld	X3E0C
	shld	X3E0E
	call	L363A
	lhld	X3E08
	shld	X3E06
	pop	h
	shld	X3E0E
L363A:	lxi	h,04000H
	lda	X3E0F
	ora	a
	jz	L3664
	dcr	a
	jz	L3677
	dcr	a
	jz	L365F
	dcr	a
	jz	L3677
	dcr	a
	jz	L365F
	dcr	a
	jz	L3672
	dcr	a
	jz	L3664
	jmp	L3672
;
L365F:	mvi	b,0FFH
	jmp	L3666
;
L3664:	mvi	b,000H
L3666:	lda	X3E0E
	cma
L366A:	mov	e,a
	mvi	d,000H
	dad	d
	mov	a,m
	jmp	L367F
;
L3672:	mvi	b,0FFH
	jmp	L3679
;
L3677:	mvi	b,000H
L3679:	lda	X3E0E
	jmp	L366A
;
L367F:	sta	X3E0A
	xra	a
	sta	X3E0B
	lda	X3E0E
	ora	a
	jnz	L3694
	lhld	X3E0A
	inx	h
	shld	X3E0A
L3694:	mov	a,b
	ora	a
	jz	L36A6
	lhld	X3E0A
	xra	a
	sub	l
	mov	l,a
	mvi	a,000H
	sbb	h
	mov	h,a
	shld	X3E0A
L36A6:	lhld	X3E0A
	lda	X3E00
	call	L36CB
	mov	h,c
	mov	l,d
	shld	X3E08
	ret
;
L36B5:	lxi	h,X3E10
	push	psw
	add	l
	mov	l,a
	mvi	a,000H
	adc	h
	mov	h,a
	pop	psw
L36C0:	mov	m,c
	dcr	b
	cmp	b
	inx	h
	jm	L36C0
	jz	L36C0
	ret
;
L36CB:	push	psw
	mvi	a,008H
	sta	X3DFF
	xra	a
	mov	b,a
	mov	c,a
	mov	d,a
	mov	e,a
	mov	a,h
	ora	a
	jp	L36DD
	mvi	b,0FFH
L36DD:	pop	psw
	rar
	push	psw
	jnc	L36EA
	push	h
	dad	d
	xchg
	mov	a,c
	adc	b
	mov	c,a
	pop	h
L36EA:	dad	h
	mov	a,b
	adc	b
	mov	b,a
	lda	X3DFF
	dcr	a
	jz	L36FB
	sta	X3DFF
	jmp	L36DD
;
L36FB:	pop	psw
	ret
;
L36FD:	cpi	028H
	jc	L057E
	push	h
	push	psw
	mvi	d,000H
	mov	e,a
	lxi	h,L2707
	call	L3723
	mov	a,l
	adi	002H
	sta	X0006
	pop	psw
	mvi	d,000H
	mov	e,a
	lxi	h,01A2EH
	call	L3723
	mov	a,l
	sta	X0007
	pop	h
	ret
;
L3723:	push	b
	xra	a
	ora	e
	ora	d
	cz	L377B
	call	L37A9
	mov	a,h
	ora	d
	rlc
	cc	L377B
	push	b
	mov	c,e
	mov	b,d
	lxi	d,L0000
	push	d
	xchg
	lxi	h,X0001
L373E:	dad	h
	xchg
	dad	h
	call	L376D
	xchg
	jnc	L373E
	xchg
L3749:	xchg
	call	L3772
	jz	L3766
	xchg
	call	L3772
	call	L376D
	jm	L3749
	mov	a,c
	sub	l
	mov	c,a
	mov	a,b
	sbb	h
	mov	b,a
	xthl
	dad	d
	xthl
	jmp	L3749
;
L3766:	pop	h
	mov	e,c
	mov	d,b
	pop	b
	jmp	L379B
;
L376D:	mov	a,c
	sub	l
	mov	a,b
	sbb	h
	ret
;
L3772:	xra	a
	mov	a,h
	rar
	mov	h,a
	mov	a,l
	rar
	mov	l,a
	ora	h
	ret
;
L377B:	lxi	h,07FFFH
	ret
;
	xra	a	;????????
L3780:	mov	a,l
	ral
	mov	l,a
	mov	a,h
	ral
	mov	h,a
	dcr	d
	jnz	L3780
	ret
;
L378B:	xra	a
	add	h
	rnz
	add	l
	rz
	xra	a
	inr	a
	ret
;
L3793:	mov	a,h
	cma
	mov	h,a
	mov	a,l
	cma
	mov	l,a
	inx	h
	ret
;
L379B:	mov	a,h
	rlc
	cc	L377B
	mov	a,b
	ral
	cc	L3793
	pop	b
	jmp	L378B
;
L37A9:	mov	b,h
	mov	a,h
	ral
	cc	L3793
	xchg
	mov	a,h
	xra	b
	mov	b,a
	mov	a,h
	ral
	jc	L3793
	ret
;
L37B9:	call	L08C4
	rst	5
	call	L056B
	xchg
	shld	X3DF5
	xchg
	rst	1
	.db	02Ch
;
	call	L08C4
	rst	5
	call	L056B
	xchg
	shld	X3DF7
	xchg
	rst	1
	.db	02Ch
;
	call	L08C4
	rst	5
	call	L056B
	xchg
X37DD:	shld	X3DF9
	xchg
	ret
;
X37E2:	.dw	00000h
X37E4:	.db	000h
X37E5:	.db	000h
;
P37E6:	call	L1F57
	call	L37B9
	push	h
	lhld	X3DF9
	xchg
	lhld	X3F58
	rst	4
	jnc	L383A
	lda	X3DF2
	sta	X3DF6
	lda	X3DF5
	stax	d
	inx	d
	call	L387A
	lxi	h,X3DF7
	mov	b,m
	inx	h
	mov	a,b
	stax	d
	inx	d
	lda	X3DF4
	mov	m,a
	lxi	h,X37E4
	mov	m,a
	inx	h
	mvi	m,000H
L3819:	call	L383E
	rlc
	rlc
	rlc
	rlc
	sta	X3829+1
	call	L384A
	call	L383E
X3829:	ori	000H
	lhld	X3F5C
	stax	d
	inx	d
X3830:	rst	4
	jc	L383A
	call	L384A
	jmp	L3819
;
L383A:	pop	h
	jmp	L1C0A
;
L383E:	lda	X37E5
	lxi	h,X37E2+1
	ora	m
	jz	L19CC
	xra	a
	ret
;
L384A:	lxi	h,X3DF2
	inr	m
	lhld	X37E2
	inx	h
	shld	X37E2
	dcr	c
	rnz
	call	L387A
	lxi	h,X3DF4
	inr	m
	lhld	X37E4
	inx	h
	shld	X37E4
	dcr	b
	rnz
	lda	X3DF8
	sta	X3DF4
	lda	X3DF6
	sta	X3DF2
	lda	X3829+1
	stax	d
	pop	h
	pop	h
	ret
;
L387A:	lda	X3DF5
	mov	c,a
	lxi	h,X37E2
	lda	X3DF6
	sta	X3DF2
	mov	m,a
	inx	h
	mvi	m,000H
	ret
;
P388C:	call	L1F57
	call	L37B9
	call	L0F55
	cpi	003H
	jnc	L057E
	push	h
	ora	a
	jz	L38AF
	dcr	a
	jz	L38A9
	lxi	h,L0000
	jmp	L38B2
;
L38A9:	lxi	h,000C8H
	jmp	L38B2
;
L38AF:	lxi	h,037D9H
L38B2:	shld	X38E9
	lhld	X3DF9
	mov	c,m
	inx	h
	mov	b,m
	xchg
	inx	d
	lhld	X3DF5
	shld	X37E2
L38C3:	ldax	d
	rrc
	rrc
	rrc
	rrc
	call	L38D3
	ldax	d
	inx	d
	call	L38D3
	jmp	L38C3
;
L38D3:	ani	00FH
	mov	h,a
	lda	X3DF6
	mov	l,a
	lda	X3DF8
	ora	l
	jnz	L3912
	mov	a,h
	lxi	h,L3912
	push	h
	mov	h,a
	mov	a,h
	ora	a
X38E9:	nop
	nop
	push	b
	push	d
	lda	X3DF5
	mov	c,a
	lda	X3DF7
	mov	b,a
	jc	L390C
	jz	L390C
	mov	e,h
	lxi	h,X37E4
	mov	a,m
	cmp	e
	mov	m,e
	cnz	L2540
	mov	a,b
	call	L281A
	jmp	L390F
;
L390C:	call	L2838
L390F:	pop	d
	pop	b
	pop	h
L3912:	lhld	X3DF5
	inx	h
	shld	X3DF5
	dcr	c
	rnz
	lhld	X37E2
	shld	X3DF5
	lhld	X3DF9
	mov	c,m
	lhld	X3DF7
	inx	h
	shld	X3DF7
	dcr	b
	rnz
	pop	h
	pop	h
	ret
;
F3931:	.dw	0FFFFh
	.dw	0FFFFh
	.dw	0FFFFh
	.dw	0FFFFh
;----------------------------------------------------------
z3939:	.db 001h  ; <_> - |       ■| (offset 3939h)
	.db 000h  ; <_> - |        | (offset 393Ah)
	.db 000h  ; <_> - |        | (offset 393Bh)
	.db 07Dh  ; <}> - | ■■■■■ ■| (offset 393Ch)
	.db 0AAh  ; <к> - |■ ■ ■ ■ | (offset 393Dh)
	.db 0A2h  ; <в> - |■ ■   ■ | (offset 393Eh)
	.db 07Dh  ; <}> - | ■■■■■ ■| (offset 393Fh)
	.db 0D6h  ; <╓> - |■■ ■ ■■ | (offset 3940h)
	.db 0DEh  ; <▐> - |■■ ■■■■ | (offset 3941h)
	.db 019h  ; <_> - |   ■■  ■| (offset 3942h)
	.db 03Ch  ; <<> - |  ■■■■  | (offset 3943h)
	.db 078h  ; <x> - | ■■■■   | (offset 3944h)
	.db 011h  ; <_> - |   ■   ■| (offset 3945h)
	.db 038h  ; <8> - |  ■■■   | (offset 3946h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3947h)
	.db 039h  ; <9> - |  ■■■  ■| (offset 3948h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3949h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 394Ah)
	.db 039h  ; <9> - |  ■■■  ■| (offset 394Bh)
	.db 01Dh  ; <_> - |   ■■■ ■| (offset 394Ch)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 394Dh)
	.db 001h  ; <_> - |       ■| (offset 394Eh)
	.db 010h  ; <_> - |   ■    | (offset 394Fh)
	.db 038h  ; <8> - |  ■■■   | (offset 3950h)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3951h)
	.db 0EEh  ; <ю> - |■■■ ■■■ | (offset 3952h)
	.db 0C6h  ; <╞> - |■■   ■■ | (offset 3953h)
	.db 001h  ; <_> - |       ■| (offset 3954h)
	.db 038h  ; <8> - |  ■■■   | (offset 3955h)
	.db 028h  ; <(> - |  ■ ■   | (offset 3956h)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3957h)
	.db 0C6h  ; <╞> - |■■   ■■ | (offset 3958h)
	.db 0D6h  ; <╓> - |■■ ■ ■■ | (offset 3959h)
	.db 030h  ; <0> - |  ■■    | (offset 395Ah)
	.db 048h  ; <H> - | ■  ■   | (offset 395Bh)
	.db 030h  ; <0> - |  ■■    | (offset 395Ch)
	.db 00Ch  ; <_> - |    ■■  | (offset 395Dh)
	.db 00Ch  ; <_> - |    ■■  | (offset 395Eh)
	.db 009h  ; <_> - |    ■  ■| (offset 395Fh)
	.db 054h  ; <T> - | ■ ■ ■  | (offset 3960h)
	.db 0F2h  ; <Є> - |■■■■  ■ | (offset 3961h)
	.db 080h  ; <А> - |■       | (offset 3962h)
	.db 080h  ; <А> - |■       | (offset 3963h)
	.db 0FCh  ; <№> - |■■■■■■  | (offset 3964h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3965h)
	.db 01Ch  ; <_> - |   ■■■  | (offset 3966h)
	.db 080h  ; <А> - |■       | (offset 3967h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3968h)
	.db 00Ah  ; <_> - |    ■ ■ | (offset 3969h)
	.db 04Ah  ; <J> - | ■  ■ ■ | (offset 396Ah)
	.db 03Eh  ; <>> - |  ■■■■■ | (offset 396Bh)
	.db 055h  ; <U> - | ■ ■ ■ ■| (offset 396Ch)
	.db 038h  ; <8> - |  ■■■   | (offset 396Dh)
	.db 0EEh  ; <ю> - |■■■ ■■■ | (offset 396Eh)
	.db 000h  ; <_> - |        | (offset 396Fh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3970h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3971h)
	.db 038h  ; <8> - |  ■■■   | (offset 3972h)
	.db 010h  ; <_> - |   ■    | (offset 3973h)
	.db 010h  ; <_> - |   ■    | (offset 3974h)
	.db 038h  ; <8> - |  ■■■   | (offset 3975h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3976h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3977h)
	.db 000h  ; <_> - |        | (offset 3978h)
	.db 029h  ; <)> - |  ■ ■  ■| (offset 3979h)
	.db 06Ch  ; <l> - | ■■ ■■  | (offset 397Ah)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 397Bh)
	.db 001h  ; <_> - |       ■| (offset 397Ch)
	.db 0BEh  ; <╛> - |■ ■■■■■ | (offset 397Dh)
	.db 000h  ; <_> - |        | (offset 397Eh)
	.db 08Ch  ; <М> - |■   ■■  | (offset 397Fh)
	.db 08Ah  ; <К> - |■   ■ ■ | (offset 3980h)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 3981h)
	.db 002h  ; <_> - |      ■ | (offset 3982h)
	.db 07Ah  ; <z> - | ■■■■ ■ | (offset 3983h)
	.db 090h  ; <Р> - |■  ■    | (offset 3984h)
	.db 0ACh  ; <м> - |■ ■ ■■  | (offset 3985h)
	.db 0AAh  ; <к> - |■ ■ ■ ■ | (offset 3986h)
	.db 06Ah  ; <j> - | ■■ ■ ■ | (offset 3987h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3988h)
	.db 0E1h  ; <с> - |■■■    ■| (offset 3989h)
	.db 0E0h  ; <р> - |■■■     | (offset 398Ah)
	.db 0E0h  ; <р> - |■■■     | (offset 398Bh)
	.db 009h  ; <_> - |    ■  ■| (offset 398Ch)
	.db 0A4h  ; <д> - |■ ■  ■  | (offset 398Dh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 398Eh)
	.db 009h  ; <_> - |    ■  ■| (offset 398Fh)
	.db 00Ch  ; <_> - |    ■■  | (offset 3990h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3991h)
	.db 021h  ; <!> - |  ■    ■| (offset 3992h)
	.db 060h  ; <`> - | ■■     | (offset 3993h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3994h)
	.db 010h  ; <_> - |   ■    | (offset 3995h)
	.db 010h  ; <_> - |   ■    | (offset 3996h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3997h)
	.db 038h  ; <8> - |  ■■■   | (offset 3998h)
	.db 010h  ; <_> - |   ■    | (offset 3999h)
	.db 010h  ; <_> - |   ■    | (offset 399Ah)
	.db 038h  ; <8> - |  ■■■   | (offset 399Bh)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 399Ch)
	.db 010h  ; <_> - |   ■    | (offset 399Dh)
	.db 010h  ; <_> - |   ■    | (offset 399Eh)
	.db 070h  ; <p> - | ■■■    | (offset 399Fh)
	.db 040h  ; <@> - | ■      | (offset 39A0h)
	.db 040h  ; <@> - | ■      | (offset 39A1h)
	.db 040h  ; <@> - | ■      | (offset 39A2h)
	.db 040h  ; <@> - | ■      | (offset 39A3h)
	.db 011h  ; <_> - |   ■   ■| (offset 39A4h)
	.db 038h  ; <8> - |  ■■■   | (offset 39A5h)
	.db 010h  ; <_> - |   ■    | (offset 39A6h)
	.db 071h  ; <q> - | ■■■   ■| (offset 39A7h)
	.db 078h  ; <x> - | ■■■■   | (offset 39A8h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 39A9h)
	.db 01Dh  ; <_> - |   ■■■ ■| (offset 39AAh)
	.db 03Ch  ; <<> - |  ■■■■  | (offset 39ABh)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 39ACh)
	.db 001h  ; <_> - |       ■| (offset 39ADh)
	.db 000h  ; <_> - |        | (offset 39AEh)
	.db 000h  ; <_> - |        | (offset 39AFh)
	.db 001h  ; <_> - |       ■| (offset 39B0h)
	.db 000h  ; <_> - |        | (offset 39B1h)
	.db 0BEh  ; <╛> - |■ ■■■■■ | (offset 39B2h)
	.db 001h  ; <_> - |       ■| (offset 39B3h)
	.db 006h  ; <_> - |     ■■ | (offset 39B4h)
	.db 000h  ; <_> - |        | (offset 39B5h)
	.db 029h  ; <)> - |  ■ ■  ■| (offset 39B6h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 39B7h)
	.db 028h  ; <(> - |  ■ ■   | (offset 39B8h)
	.db 045h  ; <E> - | ■   ■ ■| (offset 39B9h)
	.db 038h  ; <8> - |  ■■■   | (offset 39BAh)
	.db 028h  ; <(> - |  ■ ■   | (offset 39BBh)
	.db 046h  ; <F> - | ■   ■■ | (offset 39BCh)
	.db 026h  ; <&> - |  ■  ■■ | (offset 39BDh)
	.db 010h  ; <_> - |   ■    | (offset 39BEh)
	.db 0C8h  ; <╚> - |■■  ■   | (offset 39BFh)
	.db 0C4h  ; <─> - |■■   ■  | (offset 39C0h)
	.db 06Ch  ; <l> - | ■■ ■■  | (offset 39C1h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 39C2h)
	.db 0ACh  ; <м> - |■ ■ ■■  | (offset 39C3h)
	.db 040h  ; <@> - | ■      | (offset 39C4h)
	.db 0A0h  ; <а> - |■ ■     | (offset 39C5h)
	.db 000h  ; <_> - |        | (offset 39C6h)
	.db 016h  ; <_> - |   ■ ■■ | (offset 39C7h)
	.db 00Eh  ; <_> - |    ■■■ | (offset 39C8h)
	.db 000h  ; <_> - |        | (offset 39C9h)
	.db 000h  ; <_> - |        | (offset 39CAh)
	.db 000h  ; <_> - |        | (offset 39CBh)
	.db 038h  ; <8> - |  ■■■   | (offset 39CCh)
	.db 044h  ; <D> - | ■   ■  | (offset 39CDh)
	.db 082h  ; <В> - |■     ■ | (offset 39CEh)
	.db 000h  ; <_> - |        | (offset 39CFh)
	.db 000h  ; <_> - |        | (offset 39D0h)
	.db 082h  ; <В> - |■     ■ | (offset 39D1h)
	.db 044h  ; <D> - | ■   ■  | (offset 39D2h)
	.db 038h  ; <8> - |  ■■■   | (offset 39D3h)
	.db 000h  ; <_> - |        | (offset 39D4h)
	.db 049h  ; <I> - | ■  ■  ■| (offset 39D5h)
	.db 030h  ; <0> - |  ■■    | (offset 39D6h)
	.db 0FCh  ; <№> - |■■■■■■  | (offset 39D7h)
	.db 011h  ; <_> - |   ■   ■| (offset 39D8h)
	.db 010h  ; <_> - |   ■    | (offset 39D9h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 39DAh)
	.db 000h  ; <_> - |        | (offset 39DBh)
	.db 0B0h  ; <░> - |■ ■■    | (offset 39DCh)
	.db 070h  ; <p> - | ■■■    | (offset 39DDh)
	.db 000h  ; <_> - |        | (offset 39DEh)
	.db 000h  ; <_> - |        | (offset 39DFh)
	.db 011h  ; <_> - |   ■   ■| (offset 39E0h)
	.db 010h  ; <_> - |   ■    | (offset 39E1h)
	.db 010h  ; <_> - |   ■    | (offset 39E2h)
	.db 000h  ; <_> - |        | (offset 39E3h)
	.db 0C0h  ; <└> - |■■      | (offset 39E4h)
	.db 0C0h  ; <└> - |■■      | (offset 39E5h)
	.db 000h  ; <_> - |        | (offset 39E6h)
	.db 000h  ; <_> - |        | (offset 39E7h)
	.db 040h  ; <@> - | ■      | (offset 39E8h)
	.db 020h  ; < > - |  ■     | (offset 39E9h)
	.db 010h  ; <_> - |   ■    | (offset 39EAh)
	.db 008h  ; <_> - |    ■   | (offset 39EBh)
	.db 004h  ; <_> - |     ■  | (offset 39ECh)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 39EDh)
	.db 0A2h  ; <в> - |■ ■   ■ | (offset 39EEh)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 39EFh)
	.db 08Ah  ; <К> - |■   ■ ■ | (offset 39F0h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 39F1h)
	.db 000h  ; <_> - |        | (offset 39F2h)
	.db 008h  ; <_> - |    ■   | (offset 39F3h)
	.db 004h  ; <_> - |     ■  | (offset 39F4h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 39F5h)
	.db 000h  ; <_> - |        | (offset 39F6h)
	.db 084h  ; <Д> - |■    ■  | (offset 39F7h)
	.db 0C2h  ; <┬> - |■■    ■ | (offset 39F8h)
	.db 0A2h  ; <в> - |■ ■   ■ | (offset 39F9h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 39FAh)
	.db 08Ch  ; <М> - |■   ■■  | (offset 39FBh)
	.db 042h  ; <B> - | ■    ■ | (offset 39FCh)
	.db 082h  ; <В> - |■     ■ | (offset 39FDh)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 39FEh)
	.db 09Ah  ; <Ъ> - |■  ■■ ■ | (offset 39FFh)
	.db 066h  ; <f> - | ■■  ■■ | (offset 3A00h)
	.db 030h  ; <0> - |  ■■    | (offset 3A01h)
	.db 028h  ; <(> - |  ■ ■   | (offset 3A02h)
	.db 024h  ; <$> - |  ■  ■  | (offset 3A03h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A04h)
	.db 020h  ; < > - |  ■     | (offset 3A05h)
	.db 04Eh  ; <N> - | ■  ■■■ | (offset 3A06h)
	.db 08Ah  ; <К> - |■   ■ ■ | (offset 3A07h)
	.db 08Ah  ; <К> - |■   ■ ■ | (offset 3A08h)
	.db 08Ah  ; <К> - |■   ■ ■ | (offset 3A09h)
	.db 072h  ; <r> - | ■■■  ■ | (offset 3A0Ah)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3A0Bh)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A0Ch)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A0Dh)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A0Eh)
	.db 064h  ; <d> - | ■■  ■  | (offset 3A0Fh)
	.db 000h  ; <_> - |        | (offset 3A10h)
	.db 002h  ; <_> - |      ■ | (offset 3A11h)
	.db 0F2h  ; <Є> - |■■■■  ■ | (offset 3A12h)
	.db 00Ah  ; <_> - |    ■ ■ | (offset 3A13h)
	.db 006h  ; <_> - |     ■■ | (offset 3A14h)
	.db 06Dh  ; <m> - | ■■ ■■ ■| (offset 3A15h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A16h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A17h)
	.db 04Ch  ; <L> - | ■  ■■  | (offset 3A18h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A19h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A1Ah)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A1Bh)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3A1Ch)
	.db 000h  ; <_> - |        | (offset 3A1Dh)
	.db 0CCh  ; <╠> - |■■  ■■  | (offset 3A1Eh)
	.db 0CCh  ; <╠> - |■■  ■■  | (offset 3A1Fh)
	.db 000h  ; <_> - |        | (offset 3A20h)
	.db 000h  ; <_> - |        | (offset 3A21h)
	.db 000h  ; <_> - |        | (offset 3A22h)
	.db 0B6h  ; <╢> - |■ ■■ ■■ | (offset 3A23h)
	.db 076h  ; <v> - | ■■■ ■■ | (offset 3A24h)
	.db 000h  ; <_> - |        | (offset 3A25h)
	.db 000h  ; <_> - |        | (offset 3A26h)
	.db 000h  ; <_> - |        | (offset 3A27h)
	.db 010h  ; <_> - |   ■    | (offset 3A28h)
	.db 028h  ; <(> - |  ■ ■   | (offset 3A29h)
	.db 044h  ; <D> - | ■   ■  | (offset 3A2Ah)
	.db 082h  ; <В> - |■     ■ | (offset 3A2Bh)
	.db 029h  ; <)> - |  ■ ■  ■| (offset 3A2Ch)
	.db 028h  ; <(> - |  ■ ■   | (offset 3A2Dh)
	.db 028h  ; <(> - |  ■ ■   | (offset 3A2Eh)
	.db 082h  ; <В> - |■     ■ | (offset 3A2Fh)
	.db 044h  ; <D> - | ■   ■  | (offset 3A30h)
	.db 028h  ; <(> - |  ■ ■   | (offset 3A31h)
	.db 010h  ; <_> - |   ■    | (offset 3A32h)
	.db 000h  ; <_> - |        | (offset 3A33h)
	.db 00Ch  ; <_> - |    ■■  | (offset 3A34h)
	.db 002h  ; <_> - |      ■ | (offset 3A35h)
	.db 0B2h  ; <▓> - |■ ■■  ■ | (offset 3A36h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3A37h)
	.db 00Ch  ; <_> - |    ■■  | (offset 3A38h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3A39h)
	.db 082h  ; <В> - |■     ■ | (offset 3A3Ah)
	.db 0B2h  ; <▓> - |■ ■■  ■ | (offset 3A3Bh)
	.db 0AAh  ; <к> - |■ ■ ■ ■ | (offset 3A3Ch)
	.db 03Ch  ; <<> - |  ■■■■  | (offset 3A3Dh)
	.db 0F9h  ; <∙> - |■■■■■  ■| (offset 3A3Eh)
	.db 024h  ; <$> - |  ■  ■  | (offset 3A3Fh)
	.db 022h  ; <"> - |  ■   ■ | (offset 3A40h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A41h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A42h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A43h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A44h)
	.db 06Ch  ; <l> - | ■■ ■■  | (offset 3A45h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3A46h)
	.db 082h  ; <В> - |■     ■ | (offset 3A47h)
	.db 082h  ; <В> - |■     ■ | (offset 3A48h)
	.db 082h  ; <В> - |■     ■ | (offset 3A49h)
	.db 044h  ; <D> - | ■   ■  | (offset 3A4Ah)
	.db 082h  ; <В> - |■     ■ | (offset 3A4Bh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A4Ch)
	.db 082h  ; <В> - |■     ■ | (offset 3A4Dh)
	.db 082h  ; <В> - |■     ■ | (offset 3A4Eh)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3A4Fh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A50h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A51h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A52h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A53h)
	.db 082h  ; <В> - |■     ■ | (offset 3A54h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A55h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3A56h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3A57h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3A58h)
	.db 002h  ; <_> - |      ■ | (offset 3A59h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3A5Ah)
	.db 082h  ; <В> - |■     ■ | (offset 3A5Bh)
	.db 082h  ; <В> - |■     ■ | (offset 3A5Ch)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A5Dh)
	.db 074h  ; <t> - | ■■■ ■  | (offset 3A5Eh)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3A5Fh)
	.db 010h  ; <_> - |   ■    | (offset 3A60h)
	.db 010h  ; <_> - |   ■    | (offset 3A61h)
	.db 001h  ; <_> - |       ■| (offset 3A62h)
	.db 082h  ; <В> - |■     ■ | (offset 3A63h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A64h)
	.db 042h  ; <B> - | ■    ■ | (offset 3A65h)
	.db 082h  ; <В> - |■     ■ | (offset 3A66h)
	.db 082h  ; <В> - |■     ■ | (offset 3A67h)
	.db 082h  ; <В> - |■     ■ | (offset 3A68h)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 3A69h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A6Ah)
	.db 010h  ; <_> - |   ■    | (offset 3A6Bh)
	.db 028h  ; <(> - |  ■ ■   | (offset 3A6Ch)
	.db 044h  ; <D> - | ■   ■  | (offset 3A6Dh)
	.db 082h  ; <В> - |■     ■ | (offset 3A6Eh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A6Fh)
	.db 080h  ; <А> - |■       | (offset 3A70h)
	.db 080h  ; <А> - |■       | (offset 3A71h)
	.db 080h  ; <А> - |■       | (offset 3A72h)
	.db 0C0h  ; <└> - |■■      | (offset 3A73h)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3A74h)
	.db 004h  ; <_> - |     ■  | (offset 3A75h)
	.db 018h  ; <_> - |   ■■   | (offset 3A76h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A77h)
	.db 008h  ; <_> - |    ■   | (offset 3A78h)
	.db 010h  ; <_> - |   ■    | (offset 3A79h)
	.db 020h  ; < > - |  ■     | (offset 3A7Ah)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A7Bh)
	.db 07Dh  ; <}> - | ■■■■■ ■| (offset 3A7Ch)
	.db 082h  ; <В> - |■     ■ | (offset 3A7Dh)
	.db 082h  ; <В> - |■     ■ | (offset 3A7Eh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A7Fh)
	.db 012h  ; <_> - |   ■  ■ | (offset 3A80h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3A81h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3A82h)
	.db 00Ch  ; <_> - |    ■■  | (offset 3A83h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3A84h)
	.db 082h  ; <В> - |■     ■ | (offset 3A85h)
	.db 0A2h  ; <в> - |■ ■   ■ | (offset 3A86h)
	.db 0C2h  ; <┬> - |■■    ■ | (offset 3A87h)
	.db 0FCh  ; <№> - |■■■■■■  | (offset 3A88h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A89h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3A8Ah)
	.db 032h  ; <2> - |  ■■  ■ | (offset 3A8Bh)
	.db 052h  ; <R> - | ■ ■  ■ | (offset 3A8Ch)
	.db 08Ch  ; <М> - |■   ■■  | (offset 3A8Dh)
	.db 04Ch  ; <L> - | ■  ■■  | (offset 3A8Eh)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A8Fh)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A90h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3A91h)
	.db 064h  ; <d> - | ■■  ■  | (offset 3A92h)
	.db 003h  ; <_> - |      ■■| (offset 3A93h)
	.db 002h  ; <_> - |      ■ | (offset 3A94h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3A95h)
	.db 07Fh  ; <> - | ■■■■■■■| (offset 3A96h)
	.db 080h  ; <А> - |■       | (offset 3A97h)
	.db 080h  ; <А> - |■       | (offset 3A98h)
	.db 03Fh  ; <?> - |  ■■■■■■| (offset 3A99h)
	.db 040h  ; <@> - | ■      | (offset 3A9Ah)
	.db 080h  ; <А> - |■       | (offset 3A9Bh)
	.db 07Fh  ; <> - | ■■■■■■■| (offset 3A9Ch)
	.db 080h  ; <А> - |■       | (offset 3A9Dh)
	.db 070h  ; <p> - | ■■■    | (offset 3A9Eh)
	.db 0C7h  ; <╟> - |■■   ■■■| (offset 3A9Fh)
	.db 028h  ; <(> - |  ■ ■   | (offset 3AA0h)
	.db 010h  ; <_> - |   ■    | (offset 3AA1h)
	.db 007h  ; <_> - |     ■■■| (offset 3AA2h)
	.db 008h  ; <_> - |    ■   | (offset 3AA3h)
	.db 0F0h  ; <Ё> - |■■■■    | (offset 3AA4h)
	.db 0C2h  ; <┬> - |■■    ■ | (offset 3AA5h)
	.db 0B2h  ; <▓> - |■ ■■  ■ | (offset 3AA6h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3AA7h)
	.db 09Ah  ; <Ъ> - |■  ■■ ■ | (offset 3AA8h)
	.db 086h  ; <Ж> - |■    ■■ | (offset 3AA9h)
	.db 000h  ; <_> - |        | (offset 3AAAh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AABh)
	.db 082h  ; <В> - |■     ■ | (offset 3AACh)
	.db 082h  ; <В> - |■     ■ | (offset 3AADh)
	.db 000h  ; <_> - |        | (offset 3AAEh)
	.db 004h  ; <_> - |     ■  | (offset 3AAFh)
	.db 008h  ; <_> - |    ■   | (offset 3AB0h)
	.db 010h  ; <_> - |   ■    | (offset 3AB1h)
	.db 020h  ; < > - |  ■     | (offset 3AB2h)
	.db 040h  ; <@> - | ■      | (offset 3AB3h)
	.db 000h  ; <_> - |        | (offset 3AB4h)
	.db 082h  ; <В> - |■     ■ | (offset 3AB5h)
	.db 082h  ; <В> - |■     ■ | (offset 3AB6h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AB7h)
	.db 000h  ; <_> - |        | (offset 3AB8h)
	.db 009h  ; <_> - |    ■  ■| (offset 3AB9h)
	.db 004h  ; <_> - |     ■  | (offset 3ABAh)
	.db 002h  ; <_> - |      ■ | (offset 3ABBh)
	.db 081h  ; <Б> - |■      ■| (offset 3ABCh)
	.db 080h  ; <А> - |■       | (offset 3ABDh)
	.db 080h  ; <А> - |■       | (offset 3ABEh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3ABFh)
	.db 010h  ; <_> - |   ■    | (offset 3AC0h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3AC1h)
	.db 082h  ; <В> - |■     ■ | (offset 3AC2h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3AC3h)
	.db 0F9h  ; <∙> - |■■■■■  ■| (offset 3AC4h)
	.db 024h  ; <$> - |  ■  ■  | (offset 3AC5h)
	.db 022h  ; <"> - |  ■   ■ | (offset 3AC6h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AC7h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3AC8h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3AC9h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3ACAh)
	.db 062h  ; <b> - | ■■   ■ | (offset 3ACBh)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 3ACCh)
	.db 040h  ; <@> - | ■      | (offset 3ACDh)
	.db 040h  ; <@> - | ■      | (offset 3ACEh)
	.db 040h  ; <@> - | ■      | (offset 3ACFh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AD0h)
	.db 0C0h  ; <└> - |■■      | (offset 3AD1h)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3AD2h)
	.db 042h  ; <B> - | ■    ■ | (offset 3AD3h)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 3AD4h)
	.db 0C0h  ; <└> - |■■      | (offset 3AD5h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AD6h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3AD7h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3AD8h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3AD9h)
	.db 082h  ; <В> - |■     ■ | (offset 3ADAh)
	.db 039h  ; <9> - |  ■■■  ■| (offset 3ADBh)
	.db 044h  ; <D> - | ■   ■  | (offset 3ADCh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3ADDh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3ADEh)
	.db 002h  ; <_> - |      ■ | (offset 3ADFh)
	.db 002h  ; <_> - |      ■ | (offset 3AE0h)
	.db 002h  ; <_> - |      ■ | (offset 3AE1h)
	.db 006h  ; <_> - |     ■■ | (offset 3AE2h)
	.db 0C7h  ; <╟> - |■■   ■■■| (offset 3AE3h)
	.db 028h  ; <(> - |  ■ ■   | (offset 3AE4h)
	.db 010h  ; <_> - |   ■    | (offset 3AE5h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AE6h)
	.db 020h  ; < > - |  ■     | (offset 3AE7h)
	.db 010h  ; <_> - |   ■    | (offset 3AE8h)
	.db 008h  ; <_> - |    ■   | (offset 3AE9h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AEAh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AEBh)
	.db 040h  ; <@> - | ■      | (offset 3AECh)
	.db 026h  ; <&> - |  ■  ■■ | (offset 3AEDh)
	.db 010h  ; <_> - |   ■    | (offset 3AEEh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AEFh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AF0h)
	.db 010h  ; <_> - |   ■    | (offset 3AF1h)
	.db 028h  ; <(> - |  ■ ■   | (offset 3AF2h)
	.db 044h  ; <D> - | ■   ■  | (offset 3AF3h)
	.db 082h  ; <В> - |■     ■ | (offset 3AF4h)
	.db 080h  ; <А> - |■       | (offset 3AF5h)
	.db 0F8h  ; <°> - |■■■■■   | (offset 3AF6h)
	.db 004h  ; <_> - |     ■  | (offset 3AF7h)
	.db 002h  ; <_> - |      ■ | (offset 3AF8h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3AF9h)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3AFAh)
	.db 004h  ; <_> - |     ■  | (offset 3AFBh)
	.db 018h  ; <_> - |   ■■   | (offset 3AFCh)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3AFDh)
	.db 010h  ; <_> - |   ■    | (offset 3AFEh)
	.db 010h  ; <_> - |   ■    | (offset 3AFFh)
	.db 07Dh  ; <}> - | ■■■■■ ■| (offset 3B00h)
	.db 082h  ; <В> - |■     ■ | (offset 3B01h)
	.db 082h  ; <В> - |■     ■ | (offset 3B02h)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3B03h)
	.db 002h  ; <_> - |      ■ | (offset 3B04h)
	.db 002h  ; <_> - |      ■ | (offset 3B05h)
	.db 08Ch  ; <М> - |■   ■■  | (offset 3B06h)
	.db 052h  ; <R> - | ■ ■  ■ | (offset 3B07h)
	.db 032h  ; <2> - |  ■■  ■ | (offset 3B08h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3B09h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B0Ah)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B0Bh)
	.db 012h  ; <_> - |   ■  ■ | (offset 3B0Ch)
	.db 012h  ; <_> - |   ■  ■ | (offset 3B0Dh)
	.db 012h  ; <_> - |   ■  ■ | (offset 3B0Eh)
	.db 00Ch  ; <_> - |    ■■  | (offset 3B0Fh)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3B10h)
	.db 082h  ; <В> - |■     ■ | (offset 3B11h)
	.db 082h  ; <В> - |■     ■ | (offset 3B12h)
	.db 082h  ; <В> - |■     ■ | (offset 3B13h)
	.db 044h  ; <D> - | ■   ■  | (offset 3B14h)
	.db 003h  ; <_> - |      ■■| (offset 3B15h)
	.db 002h  ; <_> - |      ■ | (offset 3B16h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B17h)
	.db 00Eh  ; <_> - |    ■■■ | (offset 3B18h)
	.db 090h  ; <Р> - |■  ■    | (offset 3B19h)
	.db 090h  ; <Р> - |■  ■    | (offset 3B1Ah)
	.db 090h  ; <Р> - |■  ■    | (offset 3B1Bh)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 3B1Ch)
	.db 0C7h  ; <╟> - |■■   ■■■| (offset 3B1Dh)
	.db 028h  ; <(> - |  ■ ■   | (offset 3B1Eh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B1Fh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B20h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3B21h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3B22h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3B23h)
	.db 06Ch  ; <l> - | ■■ ■■  | (offset 3B24h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B25h)
	.db 090h  ; <Р> - |■  ■    | (offset 3B26h)
	.db 090h  ; <Р> - |■  ■    | (offset 3B27h)
	.db 090h  ; <Р> - |■  ■    | (offset 3B28h)
	.db 060h  ; <`> - | ■■     | (offset 3B29h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B2Ah)
	.db 090h  ; <Р> - |■  ■    | (offset 3B2Bh)
	.db 060h  ; <`> - | ■■     | (offset 3B2Ch)
	.db 000h  ; <_> - |        | (offset 3B2Dh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B2Eh)
	.db 044h  ; <D> - | ■   ■  | (offset 3B2Fh)
	.db 082h  ; <В> - |■     ■ | (offset 3B30h)
	.db 082h  ; <В> - |■     ■ | (offset 3B31h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3B32h)
	.db 06Ch  ; <l> - | ■■ ■■  | (offset 3B33h)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3B34h)
	.db 080h  ; <А> - |■       | (offset 3B35h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B36h)
	.db 044h  ; <D> - | ■   ■  | (offset 3B37h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3B38h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3B39h)
	.db 092h  ; <Т> - |■  ■  ■ | (offset 3B3Ah)
	.db 07Ch  ; <|> - | ■■■■■  | (offset 3B3Bh)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 3B3Ch)
	.db 040h  ; <@> - | ■      | (offset 3B3Dh)
	.db 07Eh  ; <~> - | ■■■■■■ | (offset 3B3Eh)
	.db 040h  ; <@> - | ■      | (offset 3B3Fh)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B40h)
	.db 01Eh  ; <_> - |   ■■■■ | (offset 3B41h)
	.db 010h  ; <_> - |   ■    | (offset 3B42h)
	.db 010h  ; <_> - |   ■    | (offset 3B43h)
	.db 010h  ; <_> - |   ■    | (offset 3B44h)
	.db 0FEh  ; <■> - |■■■■■■■ | (offset 3B45h)
	.db 0FDh  ; <¤> - |■■■■■■ ■| (offset 3B46h)
	.db 0FCh  ; <№> - |■■■■■■  | (offset 3B47h)
	.db 0FCh  ; <№> - |■■■■■■  | (offset 3B48h)
	.db 000h  ; <_> - |        | (offset 3B49h)
;;;;
	.db 006h  ; <_> - |     ■■ | (offset 3B4Ah)
	.db 01Eh  ; <_> - |   ■■■■ | (offset 3B4Bh)
	.db 017h  ; <_> - |   ■ ■■■| (offset 3B4Ch)
	.db 00Ch  ; <_> - |    ■■  | (offset 3B4Dh)
	.db 014h  ; <_> - |   ■ ■  | (offset 3B4Eh)
	.db 001h  ; <_> - |       ■| (offset 3B4Fh)
	.db 015h  ; <_> - |   ■ ■ ■| (offset 3B50h)
	.db 01Dh  ; <_> - |   ■■■ ■| (offset 3B51h)
	.db 002h  ; <_> - |      ■ | (offset 3B52h)
	.db 011h  ; <_> - |   ■   ■| (offset 3B53h)
	.db 012h  ; <_> - |   ■  ■ | (offset 3B54h)
	.db 00Bh  ; <_> - |    ■ ■■| (offset 3B55h)
	.db 016h  ; <_> - |   ■ ■■ | (offset 3B56h)
	.db 019h  ; <_> - |   ■■  ■| (offset 3B57h)
	.db 00Ah  ; <_> - |    ■ ■ | (offset 3B58h)
	.db 007h  ; <_> - |     ■■■| (offset 3B59h)
	.db 01Ah  ; <_> - |   ■■ ■ | (offset 3B5Ah)
	.db 008h  ; <_> - |    ■   | (offset 3B5Bh)
	.db 003h  ; <_> - |      ■■| (offset 3B5Ch)
	.db 00Eh  ; <_> - |    ■■■ | (offset 3B5Dh)
	.db 005h  ; <_> - |     ■ ■| (offset 3B5Eh)
	.db 01Bh  ; <_> - |   ■■ ■■| (offset 3B5Fh)
	.db 004h  ; <_> - |     ■  | (offset 3B60h)
	.db 00Dh  ; <_> - |    ■■ ■| (offset 3B61h)
	.db 013h  ; <_> - |   ■  ■■| (offset 3B62h)
	.db 010h  ; <_> - |   ■    | (offset 3B63h)
	.db 009h  ; <_> - |    ■  ■| (offset 3B64h)
	.db 01Ch  ; <_> - |   ■■■  | (offset 3B65h)
	.db 00Fh  ; <_> - |    ■■■■| (offset 3B66h)
	.db 018h  ; <_> - |   ■■   | (offset 3B67h)
	.db 046h  ; <F> - | ■   ■■ | (offset 3B68h)
	.db 05Eh  ; <^> - | ■ ■■■■ | (offset 3B69h)
	.db 057h  ; <W> - | ■ ■ ■■■| (offset 3B6Ah)
	.db 04Ch  ; <L> - | ■  ■■  | (offset 3B6Bh)
	.db 054h  ; <T> - | ■ ■ ■  | (offset 3B6Ch)
	.db 041h  ; <A> - | ■     ■| (offset 3B6Dh)
	.db 055h  ; <U> - | ■ ■ ■ ■| (offset 3B6Eh)
	.db 05Dh  ; <]> - | ■ ■■■ ■| (offset 3B6Fh)
	.db 042h  ; <B> - | ■    ■ | (offset 3B70h)
	.db 051h  ; <Q> - | ■ ■   ■| (offset 3B71h)
	.db 052h  ; <R> - | ■ ■  ■ | (offset 3B72h)
	.db 04Bh  ; <K> - | ■  ■ ■■| (offset 3B73h)
	.db 056h  ; <V> - | ■ ■ ■■ | (offset 3B74h)
	.db 059h  ; <Y> - | ■ ■■  ■| (offset 3B75h)
	.db 04Ah  ; <J> - | ■  ■ ■ | (offset 3B76h)
	.db 047h  ; <G> - | ■   ■■■| (offset 3B77h)
	.db 05Ah  ; <Z> - | ■ ■■ ■ | (offset 3B78h)
	.db 048h  ; <H> - | ■  ■   | (offset 3B79h)
	.db 043h  ; <C> - | ■    ■■| (offset 3B7Ah)
	.db 04Eh  ; <N> - | ■  ■■■ | (offset 3B7Bh)
	.db 045h  ; <E> - | ■   ■ ■| (offset 3B7Ch)
	.db 05Bh  ; <[> - | ■ ■■ ■■| (offset 3B7Dh)
	.db 044h  ; <D> - | ■   ■  | (offset 3B7Eh)
	.db 04Dh  ; <M> - | ■  ■■ ■| (offset 3B7Fh)
	.db 053h  ; <S> - | ■ ■  ■■| (offset 3B80h)
	.db 050h  ; <P> - | ■ ■    | (offset 3B81h)
	.db 049h  ; <I> - | ■  ■  ■| (offset 3B82h)
	.db 05Ch  ; <\> - | ■ ■■■  | (offset 3B83h)
	.db 04Fh  ; <O> - | ■  ■■■■| (offset 3B84h)
	.db 058h  ; <X> - | ■ ■■   | (offset 3B85h)
	.db 021h  ; <!> - |  ■    ■| (offset 3B86h)
	.db 0FFh  ; < > - |■■■■■■■■| (offset 3B87h)
	.db 040h  ; <@> - | ■      | (offset 3B88h)
	.db 006h  ; <_> - |     ■■ | (offset 3B89h)
	.db 000h  ; <_> - |        | (offset 3B8Ah)
	.db 011h  ; <_> - |   ■   ■| (offset 3B8Bh)
	.db 08Ch  ; <М> - |■   ■■  | (offset 3B8Ch)
	.db 03Ch  ; <<> - |  ■■■■  | (offset 3B8Dh)
	.db 00Eh  ; <_> - |    ■■■ | (offset 3B8Eh)
	.db 008h  ; <_> - |    ■   | (offset 3B8Fh)
	.db 01Ah  ; <_> - |   ■■ ■ | (offset 3B90h)
	.db 013h  ; <_> - |   ■  ■■| (offset 3B91h)
	.db 017h  ; <_> - |   ■ ■■■| (offset 3B92h)
	.db 0D2h  ; <╥> - |■■ ■  ■ | (offset 3B93h)
	.db 04Bh  ; <K> - | ■  ■ ■■| (offset 3B94h)
	.db 03Ch  ; <<> - |  ■■■■  | (offset 3B95h)
	.db 070h  ; <p> - | ■■■    | (offset 3B96h)
	.db 02Dh  ; <-> - |  ■ ■■ ■| (offset 3B97h)
	.db 070h  ; <p> - | ■■■    | (offset 3B98h)
	.db 004h  ; <_> - |     ■  | (offset 3B99h)
	.db 02Dh  ; <-> - |  ■ ■■ ■| (offset 3B9Ah)
	.db 0CAh  ; <╩> - |■■  ■ ■ | (offset 3B9Bh)
	.db 058h  ; <X> - | ■ ■■   | (offset 3B9Ch)
	.db 03Ch  ; <<> - |  ■■■■  | (offset 3B9Dh)
	.db 00Dh  ; <_> - |    ■■ ■| (offset 3B9Eh)
	.db 0C2h  ; <┬> - |■■    ■ | (offset 3B9Fh)
	.db 045h  ; <E> - | ■   ■ ■| (offset 3BA0h)
	.db 03Ch  ; <<> - |  ■■■■  | (offset 3BA1h)
	.db 0C3h  ; <├> - |■■    ■■| (offset 3BA2h)
	.db 041h  ; <A> - | ■     ■| (offset 3BA3h)
	.db 03Ch  ; <<> - |  ■■■■  | (offset 3BA4h)
;
	mov	m,b
	lxi	d,03CA3H
	lxi	h,06000H
	mvi	b,000H
	call	L123F
	xra	a
	sta	X26D3
	sta	X26D3+1
	sta	X26D3+2
	mvi	a,00AH
	sta	X3DD2
	sta	X3DD1
	mvi	b,00AH
	lxi	d,03C82H
	lxi	h,03DD8H
	call	L123F
	ret
;
z3BCF:	.db	"CLOAD",00Dh
	.db	"RUN",00Dh
	.db	011h,022h
	.db	"$H"
	.db	089h,022h
	.db	"L",012h
	.db	"$",092h
	.db	04Ah,049h,049h,04Ah,095h
	.db	02Ah,0AAh,0AAh,0ADh,05Bh
	.db	05Bh,0B7h,070h,0D3h,0D3h
	.db	0D3h
;
z3BF3:	.db	000h,06Dh,043h,000h,000h	; программа, выполняемая на старте
	.db	080h,03Ah,0DDh,037h
	.db	03Ah,095h,022h
	.db	"BASIC pk-6128c V1.0"
	.db	022h,03Ah,095h,022h
	.db	"astrahanx 1990"
	.db	022h,03Ah,0DCh
	.db	"0,0,64,128,16,208,6,134,22,54,"
	.db	"0,197,34,192,2,152,82,173"
	.db	03Ah,09Ch
;
;==========================================================
L3C60:	mvi	a,088H		;<<<<
	out	000H
	mvi	a,081H
	out	004H
	mvi	a,0FFH
	out	003H
	out	006H
	out	007H
	out	005H
	di
	lxi	sp,0DCF0H
	mvi	a,0A8H		; выключение ВИ53
	lxi	b,00040H	;
L3C7B:	out	008H		;
	sub	c		;
	jnc	L3C7B		; цикл ВИ53
	mvi	e,00FH		; очистка палитры
	mvi	c,000H		;
L3C85:	mov	a,e		;
	out	002H		;
	mov	a,c		;
	out	00CH		;
	dcr	e		;
	jp	L3C85		; цикл по палитре
	xra	a
	mov	d,a	; D = 0
	out	001H
	mov	h,a
	mov	l,a	; HL = 0000
L3C95:	mov	m,d
	inx	h
	mov	a,h
	ora	l
	jnz	L3C95	; цикл очистки памяти
	mvi	a,030H
	mvi	e,010H
L3CA0:	out	00EH	; банк памяти
	mvi	h,080H
L3CA4:	mov	m,d
	inr	l
	jnz	L3CA4
	inr	h
	jnz	L3CA4
	sub	e
	cmp	e
	jnz	L3CA0	; цикл по банкам
	xra	a
	out	00EH
	mvi	a,008H
	sta	XFE06
	in	001H
	ani	0E0H		; 1110 0000
	cpi	0C0H		; нажата СС? (20h)
	jz	L3D55		; >> загрузка с магнитофона
	cpi	0A0H		; нажата УС? (40h)
	jz	L3EB9		; >> загрузка с дискеты
	push	h
	pop	d
	lxi	b,z3939	; от 0000 до 3938h
	call	L3D3D		; копирование данных
L3CD0:	ldax	d		; (на выходе DE=3939h)
	ani	001H
	jz	L3CED		; >> если нечет
	ldax	d
	mvi	b,003H
	dcr	a
L3CDA:	push	psw
	mov	m,a
	inx	d
	ldax	d
	inx	h
	dcr	b
	jnz	L3CDA
	pop	psw
	pop	psw
	mov	m,a
	inx	h
	pop	psw
	mov	m,a
	inx	h
	jmp	L3CF2
;
L3CED:	mvi	b,005H
	call	L123F	; копирование из adr(DE) в adr(HL), B = сколько
L3CF2:	mov	a,h
	cpi	03BH
	jnz	L3CD0	;
	mov	a,l
	cpi	0B9H
	jnz	L3CD0	; HL <> 3BB9h
	mvi	b,01FH
	call	L123F	; копирование из adr(DE) в adr(HL), B = сколько
	lxi	b,0411FH
	call	L3D4C	; заполнение ???
	mvi	b,01EH
	call	L123F	; копирование из adr(DE) в adr(HL), B = сколько
	lxi	b,0805FH
	call	L3D4C	; заполнение ???
	lxi	b,03D13H
	call	L3D3D	; копирование данных до 3D13h
	mvi	a,0CAH	; = "JZ"
	sta	X2B74
	mvi	a,03DH	; = 3DxxH
	sta	x2B9A+2
	sta	x2BA7+2
	sta	x2BB0+2
	xra	a	; = 00xxH
	sta	L2BB7+2
	lxi	h,L26CF
	shld	X0004	; адрес перехода по сбросу
	lxi	h,L2DC6
	shld	X0039	; адрес перехода при прерывании
	ei
	out	00FH	; >>> сброс
;
L3D3D:	ldax	d		; копирование данных
	mov	m,a		; adr(DE) -- откуда
	inx	h		; adr(HL) -- куда
	inx	d		; adr(BC) -- до какого адреса (-1)
	mov	a,h
	cmp	b
	jnz	L3D3D
	mov	a,l
	cmp	c
	jnz	L3D3D
	ret
;
L3D4C:	mov	m,c
	inx	h
	inr	c
	mov	a,c
	cmp	b
	jnz	L3D4C
	ret
;
L3D55:	lxi	d,00009H	; << загрузка с магнитофона
L3D58:	mov	h,b		; рисуем загрузочную таблицу
	mov	l,d
	call	L3E33
	dcr	l
	mvi	m,0FFH
	dad	d
	mvi	m,0FFH
	inr	l
	mvi	m,081H
	inr	b
	jnz	L3D58
	mvi	h,080H		; записываем палитру
	mvi	d,02DH
	lxi	b,0080FH
L3D71:	xra	a
	out	002H
	ei
	hlt
	mov	a,c
	out	002H
	mov	a,d
	out	00CH
	dcr	c
	mov	a,c
	out	002H
	mov	a,d
	out	00CH
	dcr	c
	xchg
	dcr	b
	jnz	L3D71		; цикл палитры
	di
	call	L3D8F		; >
L3D8D:	out	00FH		; >>> сброс
;
L3D8F:	call	L3E6C		; >
L3D92:	mov	d,a
	ora	a
	rar
	mov	e,a
	add	d
	mov	h,a
	call	L3E6C		; >
	cmp	h
	jc	L3D92
	add	d
	adi	012H
	sta	XFE06
	mvi	e,00CH
L3DA7:	mvi	a,008H
	call	L2B66		; ?????
	cpi	055H
	jz	L3DB6
	cpi	0AAH
	jnz	L3D8F	; преамбула загрузки ROM
L3DB6:	dcr	e
	jnz	L3DA7
L3DBA:	call	L3E97
	mov	e,a
	mov	a,m
	cpi	000H
	jnz	L3DBA
	lxi	h,XDEF1
	mov	a,m
	dcx	h
	cmp	m
	jnz	L3D8F	; возврат к началу
	mov	d,a
	dcx	h
	mov	b,m
L3DD0:	call	L3E97
	push	psw
	mov	a,m
	cpi	000H
	jz	L3E0D
	add	a
	add	a
	add	a
	add	a
	add	a
	mov	c,a
	pop	psw
	inx	h
	mov	a,m
	cmp	e
	jnz	L3DD0
	push	d
	push	b
	inx	h
	lxi	d,0207EH
L3DED:	mov	a,m
	stax	b
	ldax	b
	xra	m
	mov	m,a
	inx	h
	inr	c
	dcr	d
	jnz	L3DED
	pop	b
	mov	l,c
	mov	h,b
	call	L3E33
	mov	m,e
	pop	d
	call	L3E22
	jz	L3DD0
	mov	a,d
	cpi	001H
	jnz	L3DD0
	ret
;
L3E0D:	pop	psw
	sub	e
	jz	L3DD0
	inr	a
	jnz	L3D55
	call	L3E22
	jz	L3D55
	dcr	e
	inr	b
	dcr	d
	jmp	L3DD0
;
L3E22:	mvi	l,000H
	mov	h,b
	call	L3E33
L3E28:	mov	a,m
	ana	a
	rz
	inx	h
	cpi	081H
	jnz	L3E28
	ana	a
	ret
;
L3E33:	push	d
	mov	a,l
	rlc
	rlc
	rlc
	mov	l,a
	mov	a,h
	rar
	ani	070H
	mov	d,a
	rar
	add	d
	add	l
	adi	018H
	mov	l,a
	mov	a,h
	ani	01FH
	adi	0C0H
	mov	h,a
	pop	d
	ret
;
L3E4C:	push	d
	rst	7
	in	001H
	ani	010H
	mov	e,a
L3E53:	in	001H
	ani	010H
	cmp	e
	jz	L3E53
	mov	e,a
	mvi	d,001H
L3E5E:	in	001H
	ani	010H
	inr	d
	cmp	e
	jz	L3E5E
	mov	a,d
	add	a
	add	a
	pop	d
	ret
;
L3E6C:	push	h
	push	d
L3E6E:	call	L3E4C	; >
	mov	b,a
	ora	a
	rar
	mov	c,a
	lxi	h,00000h
	mvi	d,020H
L3E7A:	call	L3E4C	; >
	push	d
	mvi	d,000H
	mov	e,a
	dad	d
	pop	d
	mov	e,a
	sub	b
	jnc	L3E8A
	mov	a,b
	sub	e
L3E8A:	cmp	c
	jnc	L3E6E
	dcr	d
	jnz	L3E7A
	dad	h
	mov	a,h
	pop	d
	pop	h
	ret
;
L3E97:	push	b
	lxi	h,XDED0
L3E9B:	push	h
	lxi	b,00023H
	mvi	a,0FFH
L3EA1:	call	L2B66		; ???????
	mov	m,a
	inx	h
	add	b
	mov	b,a
	mvi	a,008H
	dcr	c
	jnz	L3EA1
	dcx	h
	mov	a,b
	sub	m
	sub	m
	mov	a,m
	pop	h
	jnz	L3E9B
	pop	b
	ret
;
L3EB9:	ei			; << загрузка с дискеты
	mvi	a,034H
	sta	XDED0
	call	L3FF4
	mvi	a,003H
	call	L3FE1
	mvi	a,010H
	sta	X810C
	mvi	a,001H
	out	019H
	lxi	d,X8100
	call	L3F7B
	lxi	h,X8100
	lxi	d,XDEF1
	mvi	c,01FH
	mvi	a,066H
L3EE0:	add	m
	push	psw
	mov	a,m
	stax	d
	pop	psw
	inx	h
	dcx	d
	dcr	c
	jnz	L3EE0
	sub	m
	jnz	L3EB9
	stax	d
	lda	X8104
	mov	c,a
	lxi	h,X8100
	xchg
L3EF8:	xra	a
L3EF9:	inr	a
	out	019H
	push	b
	call	L3F7B
	pop	b
	jnz	L3EB9
	dcr	c
	jz	L3F49
	in	019H
	lxi	h,X810C
	cmp	m
	jc	L3EF9
	lda	X810B
	ora	a
	jz	L3F34
	lda	XDED0
	ani	004H
	lda	XDED0
	jz	L3F2D
	ani	0FBH
	sta	XDED0
	out	01CH
	jmp	L3EF8
;
L3F2D:	ori	004H
	sta	XDED0
	out	01CH
L3F34:	call	L3FDF
	lda	X810E
	cpi	028H
	cz	L3FDF
	lxi	h,XDED2
	inr	m
	mov	a,m
	out	01AH
	jmp	L3EF8
;
L3F49:	lxi	b,X8180
	lhld	X8100
	xchg
	mov	a,e
	sub	c
	mov	a,d
	sbb	b
	xchg
	jnc	L3F66
L3F58:	ldax	b
	mov	m,a
	inx	b
	inx	h
	mov	a,e
	sub	c
	mov	a,d
	sbb	b
	jc	L3D8D
	jmp	L3F58
;
L3F66:	dad	d
	mov	a,l
	sub	c
	mov	l,a
	mov	a,h
	sbb	b
	mov	h,a
L3F6D:	ldax	d
	mov	m,a
	mov	a,e
	sub	c
	mov	a,d
	sbb	b
	jc	L3D8D
	dcx	d
	dcx	h
	jmp	L3F6D
;
L3F7B:	call	L3FF4
	mvi	a,084H
	mvi	h,002H
	out	01BH
L3F84:	in	01BH
	rrc
	jnc	L3F84
	lda	X810C
	cpi	010H
	jz	L3FC6
	cpi	008H
	jz	L3FB8
	cpi	009H
	jz	L3FB8
L3F9C:	in	01BH
	ana	h
	jz	L3F9C
	in	018H
	stax	d
	inr	e
	jnz	L3F9C
	inr	d
L3FAA:	in	01BH
	ana	h
	jz	L3FAA
	in	018H
	stax	d
	inr	e
	jnz	L3FAA
	inr	d
L3FB8:	in	01BH
	ana	h
	jz	L3FB8
	in	018H
	stax	d
	inr	e
	jnz	L3FB8
	inr	d
L3FC6:	in	01BH
	ana	h
	jz	L3FC6
	in	018H
	stax	d
	inr	e
	jnz	L3FC6
	inr	d
L3FD4:	in	01BH
	rrc
	jc	L3FD4
	in	01BH
	ani	05CH
	ret
;
L3FDF:	mvi	a,05BH
L3FE1:	out	01BH
	xra	a
L3FE4:	dcr	a
	jnz	L3FE4
L3FE8:	lda	XDED0
	out	01CH
	in	01BH
	rrc
	jc	L3FE8
	ret
;
L3FF4:	lda	XDED0
	out	01CH
	in	01BH
	rlc
	rnc
	jmp	L3FF4
	.end