ORG	100H
	JMP	L00269
	JMP	L00260

L00106:	DB	' COPYRIGHT (C) 1978  MICROPRO INTERNATIONAL CORPORATION      '
L00143:	DB	13,10,0
L00146:	DB	13,'MicroPro WORDMASTER release 1.07A serial # WM000000   '
	DB	13,10,0

CLRSCRN:
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	MVI	A,1BH
	CALL	OUTCHR
	MVI	A,'*'
	CALL	OUTCHR
	MVI	A,1AH
	CALL	OUTCHR
	RET

TCURSOR:
	MVI	A,1BH
	CALL	OUTCHR
	MVI	A,'='
	CALL	OUTCHR
	MVI	A,' '
	ADD	L
	CALL	OUTCHR
	MVI	A,' '
	ADD	H
	CALL	OUTCHR
	RET
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP

PBEGMEM:DW	MEMORY
HITE:	DB	24
WID:	DB	80
EREOL:	DB	0
	DB	0
NOVIO:	DB	0
	DB	0,0,0
DELCLR:	DB	25
DELCUS:	DB	10
DELERE:	DB	5
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP

	JMP	L0024F
OUTCHR:	JMP	L02592

L001F2:
	LXI	H,0
	SHLD	L02683
	PUSH	B
	PUSH	D
	PUSH	H
	CALL	CLRSCRN
	LDA	DELCLR
	CALL	L0024F
	POP	H
	POP	D
	POP	B
	RET

L00208:
	LHLD	L0268F

L0020B:
	XRA	A
	STA	L026A1
	PUSH	D
	XCHG
	LHLD	L02683
	CALL	L01F9F
	XCHG
	POP	D
	RZ
	SHLD	L02683
	PUSH	B
	PUSH	D
	PUSH	H
	CALL	TCURSOR
	LDA	DELCUS
	CALL	L0024F
	POP	H
	POP	D
	POP	B
	JMP	L0234E

L0022F:
	PUSH	H
	LHLD	L02683
	DCR	H
	CALL	L0020B
	POP	H
	RET

L00239:
	PUSH	PSW
	LDA	EREOL
	CALL	L0259B
	LDA	EREOL+1
	ORA	A
	CNZ	L0259B
	LDA	DELERE
	CALL	L0024F
	POP	PSW
	RET

L0024F:
	INR	A

L00250:
	DCR	A
	RZ
	PUSH	PSW
	CALL	L0234E
	XRA	A
	NOP

L00258:
	DCR	A
	JNZ	L00258
	POP	PSW
	JMP	L00250

L00260:
	LXI	SP,L029B6
	MVI	A,0FFH
	CALL	L00274
	RST	7

L00269:
	LXI	SP,L029B6
	XRA	A
	CALL	L00274
	CALL	L01FD9
	DB	0

L00274:
	STA	L0274C
	LXI	H,0
	DAD	SP
	SHLD	L02760
	LXI	D,L00146
	CALL	L0230E
	LXI	D,L00106
	CALL	L0230E

	LHLD	1
	LXI	D,30H
	DAD	D
	MOV	A,M
	INX	H
	ORA	A
	JNZ	L0029F
	MOV	A,M
	INR	A
	JZ	L002B2
	DCX	H
	MOV	A,M
	INX	H

L0029F:
	CPI	2
	JNZ	L002AF
	MOV	A,M
	CPI	100
	JNC	L002AF
	CPI	1
	JNC	L002B2

L002AF:
	MVI	A,0FFH
	DB	0FEH

L002B2:
	XRA	A
	STA	L0274B

	LDA	NOVIO
	ORA	A
	JNZ	L002C7
	LXI	H,0FFFDH
	MOV	B,M
	MVI	A,0A9H
	MOV	M,A
	XRA	M
	MOV	M,B
	INR	A

L002C7:
	LXI	H,L02749
	MOV	M,A
	LDA	3
	ANI	3
	CPI	2
	JNC	L002D7
	MVI	M,0FFH

L002D7:
	CALL	L01901
	LHLD	PBEGMEM
	XCHG
	LXI	H,L02731
	MVI	A,4

L002E3:
	MOV	M,E
	INX	H
	MOV	M,D
	INX	H
	DCR	A
	JNZ	L002E3
	XRA	A
	STAX	D
	INX	D
	XCHG
	SHLD	L02739

L002F2:
	LHLD	L02739
	SHLD	L0273B
	SHLD	L0273D
	SHLD	L0273F
	SHLD	L02741
	LXI	D,L02680
	MVI	C,0B1H
	XRA	A

L00307:
	STAX	D
	INX	D
	DCR	C
	JNZ	L00307
	STA	5BH
	STA	68H
	STA	6BH
	STA	7DH
	LHLD	6
	MOV	A,L
	CPI	6
	JZ	L00326
	MOV	A,H
	SUI	7
	MOV	H,A

L00326:
	DCX	H
	SHLD	L02743
	LDA	PBEGMEM+1
	ADI	0FH
	CMP	H
	JC	L00345
	CALL	L01FE7
	DB	'NOT ENOUGH MEM',0

L00345:
	MOV	A,H
	ORA	A
	RAR
	RAR
	RAR
	INR	A
	INR	A
	ANI	3CH
	MOV	B,A
	STA	L0272B
	RLC
	STA	L0272E
	MOV	A,B
	CPI	8
	JNC	L0035E
	MVI	A,8

L0035E:
	STA	L0272F+1
	MOV	A,H
	CPI	100
	LXI	H,400H
	SHLD	L02726
	JC	L0036E
	DAD	H

L0036E:
	SHLD	L02728
	MVI	A,8
	STA	L0272C
	JC	L0037A
	ADD	A

L0037A:
	STA	L0272D
	LXI	H,5DH
	MOV	A,M
	DCX	H
	CPI	' '
	JNZ	L00397
	CALL	L01FE7
	DB	'NO FILE NAME',0

L00397:
	MOV	A,M
	CALL	L02052
	MOV	M,A
	LXI	D,L026AB
	PUSH	D
	LXI	B,10H
	CALL	L01F0C
	MOV	A,M
	POP	H
	ORA	A
	JZ	L003B0
	CALL	L02052
	MOV	M,A

L003B0:
	LDA	5CH
	CMP	M
	JZ	L003BC
	MVI	A,0FFH
	STA	L0271C

L003BC:
	MOV	A,M
	LXI	D,L026D1
	STAX	D
	LXI	H,L0043B
	LXI	B,0BH
	INX	D
	CALL	L01F0C
	LDA	L0271C
	ORA	A
	JZ	L003FD
	LXI	D,L026AB
	CALL	L01FF4
	JZ	L003FD
	CALL	L01FE7
	DB	'FILE EXISTS ON DESTINATION DSK',0

L003FD:
	LXI	D,5CH
	CALL	L01FF4
	MVI	A,0FFH
	JZ	L0040E
	STA	5BH
	JMP	L00421

L0040E:
	STA	L0271D
	CALL	L02306
	DB	10,'NEW FILE',13,10,10,0

L00421:
	LXI	D,L026AB+9
	PUSH	D
	CALL	L01F06
	LXI	D,L026AB
	CALL	L02028
	POP	D
	LXI	H,L00443
	CALL	L01F09
	CALL	L01C4D
	JMP	L004B9

L0043B:	DB	'WMBACKUP'
L00443:	DB	'$$$'

L00446:
	CALL	L00468
	CALL	L02005
	LXI	H,5CH
	MOV	A,M
	STA	6CH

L00453:
	LDA	L026AB
	MOV	M,A
	JMP	L002F2

L0045A:
	CALL	L00468
	LXI	D,L026D1

L00460:
	CALL	L02028

L00463:
	LHLD	L02760
	SPHL
	RET

L00468:
	CALL	L01D51
	LXI	H,L0271D
	MOV	A,M
	ORA	A
	LXI	D,5CH
	LXI	H,L01F53
	CZ	L0206D
	LXI	D,L026AB
	LXI	H,65H
	JMP	L0206D

L00482:
	CALL	L00497
	JNZ	L004B9
	CALL	L02005
	LXI	D,L026AB
	CALL	L02008
	LXI	H,6CH
	JMP	L00453

L00497:
	CALL	L02306
	DB	13,10,'ABORT (Y/N)? ',0
	CALL	L02230
	CALL	L0064C
	CPI	'Y'
	RET

L004B3:
	CALL	L00497
	JZ	L00463

L004B9:
	LHLD	L02760
	SPHL
	LXI	H,L004B9
	PUSH	H
	CALL	L023FA
	CALL	L00668
	LXI	H,L026A8
	MOV	A,M

L004CB:
	ORA	A
	JNZ	L004DE
	DCR	M
	LXI	H,L0286C
	MVI	M,0
	SHLD	L0274D
	CALL	L010F7
	CALL	L00668

L004DE:
	MVI	A,'*'
	CALL	L024FC
	CALL	L02230
	SHLD	L0274D
	MOV	A,M
	ORA	A
	JNZ	L004F6
	LDA	L0286B
	CPI	10
	JZ	L0078D

L004F6:
	MOV	B,A
	PUSH	H
	INX	H
	CALL	L022F1
	POP	H
	ORA	A
	JNZ	L00519
	MOV	A,B
	CALL	L0064C
	CPI	'H'
	JZ	L00446
	CPI	'Q'
	JZ	L004B3
	CPI	'O'
	JZ	L00482
	CPI	'E'
	JZ	L0045A

L00519:
	CALL	L00541
	RZ

L0051D:
	CALL	L02306
	DB	13,10,' ???',0

L00527:
	LHLD	L0274D
	XCHG
	CALL	L0230E
	CALL	L024E3
	JMP	L004B9

L00534:
	CALL	L01209
	CALL	L024E3
	POP	D
	CALL	L0230E
	JMP	L0051D

L00541:
	PUSH	B
	PUSH	D
	PUSH	H
	SHLD	L0274F
	CALL	L00668
	LXI	H,L00636
	PUSH	H

L0054E:
	LHLD	L0274F
	CALL	L00806
	CALL	L022F1
	SHLD	L0274D
	PUSH	H
	CALL	L00649
	SHLD	L0274F
	POP	H
	ORA	A

L00563:
	JZ	L00627
	CPI	'>'
	JZ	L00627
	CPI	';'
	JZ	L0067C
	CPI	11H
	JZ	L01954
	CPI	04H
	JZ	L0062C
	CPI	'V'
	JZ	L010F7
	CALL	L021B4
	CALL	L022F1
	SHLD	L02754

L00588:
	LHLD	L02754
	CALL	L00649
	SHLD	L02752
	SHLD	L0274F
	ORA	A
	JZ	L00790
	CPI	'C'
	JZ	L0072C
	CPI	'D'
	JZ	L00732
	CPI	'K'
	JZ	L00778
	CPI	'L'
	JZ	L00754
	CPI	'P'
	JZ	L007CD
	CPI	'T'
	JZ	L0079A
	PUSH	H
	LHLD	L02758
	XCHG
	LXI	H,2
	CALL	L01F9F
	POP	H
	JNC	L005CA
	CPI	'B'
	JZ	L00747

L005CA:
	CPI	'/'
	JNZ	L005DD
	MVI	A,0FFH
	STA	L0275E
	CALL	L00649
	SHLD	L0274F
	SHLD	L02752

L005DD:
	CPI	'F'
	JZ	L00835
	CPI	'N'
	JZ	L0083B
	CPI	'R'
	JZ	L00847
	CPI	'S'
	JZ	L00841
	CALL	L00655
	CPI	'Q'
	JZ	L006AB
	CALL	L0065F
	JNZ	L00627
	CPI	'A'
	JZ	L008D4
	CPI	'I'
	JZ	L008D7
	CPI	'Z'
	JZ	L0080F
	CPI	'<'
	JZ	L00689
	CPI	'M'
	JZ	L00689
	CPI	'!'
	JZ	L008F4
	CPI	'W'
	JZ	L01A20
	CPI	'Y'
	JZ	L019DF

L00627:
	POP	H
	ORA	A
	JMP	L01FCC

L0062C:
	LDA	L0274C
	ORA	A
	JZ	L00627
	JMP	38H

L00636:
	DCX	SP
	DCX	SP
	CALL	L00668
	CALL	L00828
	JNZ	L00588
	JMP	L0054E

L00644:
	MOV	A,M
	ORA	A
	RZ
	INX	H
	RET

L00649:
	CALL	L00644

L0064C:
	CPI	'a'
	RC
	CPI	'{'
	RNC
	ANI	0DFH
	RET

L00655:
	PUSH	PSW
	LDA	L0275C
	ORA	A
	JM	L0051D
	POP	PSW
	RET

L0065F:
	PUSH	B
	MOV	B,A
	LDA	L0275E
	ORA	A
	MOV	A,B
	POP	B
	RET

L00668:
	LXI	H,200H
	SHLD	L02745
	SHLD	L02747
	LXI	H,0
	SHLD	L0275E
	DCR	L
	SHLD	L026A5
	RET

L0067C:
	SHLD	L0274F
	CALL	L00644
	RZ
	CPI	13
	RZ
	JMP	L0067C

L00689:
	XCHG
	CALL	L00719
	LHLD	L0275A
	XCHG

L00691:
	CALL	L00541
	RC
	CPI	'>'
	JZ	L0069E
	ORA	A
	JNZ	L0051D

L0069E:
	MOV	A,D
	ORA	E
	RZ
	DCX	D
	MOV	A,D
	ORA	E
	RZ
	CALL	L023D6
	JMP	L00691

L006AB:
	CALL	L00649
	SHLD	L0274F
	SHLD	L02752
	CPI	'P'
	JZ	L00A5B
	CPI	'X'
	JZ	L006DA
	PUSH	PSW
	CALL	L0081A
	POP	PSW
	CPI	'L'
	JZ	L00A2E
	CPI	'T'
	JZ	L00A3A
	CPI	'K'
	JZ	L00A47
	CPI	'G'
	JZ	L00A4E
	JMP	L0051D

L006DA:
	CALL	L00719
	LHLD	L0274F
	PUSH	H
	LHLD	L02754
	PUSH	H

L006E5:
	LHLD	L02758
	PUSH	H
	CALL	L01EB9
	LHLD	L02733
	CALL	L00541
	JC	L006F8
	JNZ	L0070E

L006F8:
	POP	H
	SHLD	L02758
	CC	L00806
	CALL	L0081A
	JNZ	L006E5
	POP	H
	SHLD	L02754
	POP	H
	SHLD	L0274F
	RET

L0070E:
	CALL	L02306
	DB	' QX?',0
	JMP	L00527

L00719:
	LXI	H,-L0293C
	DAD	SP
	RC
	CALL	L00534
	DB	'STACK OVFL',0

L0072C:
	CALL	L00DA0
	JMP	L01A87

L00732:
	CALL	L00DA0

L00735:
	JM	L0073E
	SHLD	L0273F
	JMP	L00741

L0073E:
	SHLD	L0273D

L00741:
	CALL	L01D9B
	JMP	L01A8D

L00747:
	LDA	L0275C
	CMA

L0074B:
	LXI	H,0FFFFH

L0074E:
	STA	L0275C

L00751:
	SHLD	L02758

L00754:
	CALL	L00E04
	CALL	L01A87
	CALL	L00828
	JNZ	L00754
	RET

L00761:
	LXI	D,1

L00764:
	LHLD	L02758
	PUSH	H
	XCHG
	CALL	L00751
	POP	H
	SHLD	L02758
	RET

L00771:
	MVI	A,0FFH
	DB	0FEH

L00774:
	XRA	A
	JMP	L0074E

L00778:
	CALL	L00E04
	JMP	L00735

L0077E:
	LXI	H,1

L00781:
	XRA	A

L00782:
	STA	L0275C
	XRA	A
	STA	L0271E
	SHLD	L02758
	RET

L0078D:
	CALL	L0077E

L00790:
	CALL	L00754
	LXI	H,1

L00796:
	XRA	A
	CALL	L00782

L0079A:
	CALL	L00DE8
	XCHG
	JM	L007B3
	LHLD	L0273F
	XCHG
	JNC	L007BB
	CALL	L007BB
	MVI	A,'}'

L007AD:
	CALL	L024FC
	JMP	L024FC

L007B3:
	LHLD	L0273D
	MVI	A,'{'
	CC	L007AD

L007BB:
	CALL	L00806

L007BE:
	CALL	L01F9F
	RZ
	LDAX	D
	CALL	L024FC
	INX	D
	CALL	L023D6
	JMP	L007BE

L007CD:
	LHLD	L02758
	PUSH	H
	LHLD	L0275C
	PUSH	H
	CALL	L00828
	LHLD	HITE
	MVI	H,0
	DCX	H
	PUSH	H
	CNZ	L00751
	POP	H
	CALL	L00796
	POP	H
	SHLD	L0275C
	POP	H
	SHLD	L02758
	CALL	L0081A
	CALL	L01CB5
	RNZ
	LDA	L0275C
	ORA	A
	LXI	H,L0273F
	JP	L00802
	LXI	H,L0273B

L00802:
	CALL	L01EFB
	RNZ

L00806:
	PUSH	H
	LXI	H,0
	CALL	L00781
	POP	H
	RET

L0080F:
	LXI	H,0A000H

L00812:
	XTHL
	XTHL
	DCX	H
	MOV	A,H
	ORA	L
	JNZ	L00812

L0081A:
	PUSH	H
	LHLD	L02758
	MOV	A,H
	ORA	L
	JZ	L00824
	DCX	H

L00824:
	SHLD	L02758
	POP	H

L00828:
	PUSH	H
	LHLD	L02758
	LDA	L0271E
	ORA	H
	ORA	L
	POP	H
	JMP	L023D6

L00835:
	CALL	L00CB5
	JMP	L0084A

L0083B:
	CALL	L00C96
	JMP	L0084A

L00841:
	CALL	L00CEB
	JMP	L0084A

L00847:
	CALL	L00CA8

L0084A:
	JNC	L0081A
	CALL	L0065F
	JNZ	L0085E
	CALL	L02306
	DB	' ## ',0
L0085B:
	JMP	L00527

L0085E:
	CALL	L00870
	CALL	L00806
	POP	H
	ORA	A
	STC
	JMP	L01FCC

L0086A:
	CALL	L00719
	CALL	L00870

L00870:
	LHLD	L0274F
	CALL	L00649
	SHLD	L0274F
	CPI	'<'

L0087B:
	JZ	L0086A
	CPI	'M'
	JZ	L0086A
	CPI	'A'
	JZ	L008CE
	CPI	'F'
	JZ	L008CE
	CPI	'I'
	JZ	L008CE
	CPI	'N'
	JZ	L008CE
	CPI	'R'
	JZ	L008CB
	CPI	'S'
	JZ	L008CB
	CPI	'W'
	JZ	L008CE
	CPI	'Y'
	JZ	L008CE
	CPI	';'
	CZ	L0067C
	JZ	L00870
	CPI	'Q'
	JNZ	L008C3
	CALL	L00649
	SHLD	L0274F
	CPI	'L'
	JZ	L008CE

L008C3:
	CPI	'>'
	RZ
	ORA	A
	RZ
	JMP	L00870

L008CB:
	CALL	L0091A

L008CE:
	CALL	L0091A
	JMP	L00870

L008D4:
	CALL	L00761

L008D7:
	LHLD	L02752
	MOV	A,M
	ORA	A
	JZ	L00ACE
	CALL	L00913
	CALL	L00C1B
	LDA	L02762
	ORA	A
	LXI	D,L00143
	MVI	A,2
	CZ	L00C23
	JMP	L0081A

L008F4:
	LDA	L02758
	PUSH	PSW
	CALL	L00806
	POP	PSW
	ANI	7FH
	CALL	L00BAC
	CPI	1AH
	RNZ

L00904:
	CALL	L02306
	DB	' TURKEY ',13,10,0
	RET

L00913:
	PUSH	H
	LHLD	L02752
	JMP	L0091E

L0091A:
	PUSH	H
	LHLD	L0274F

L0091E:
	PUSH	B
	PUSH	PSW
	LXI	D,L02763
	PUSH	D
	MVI	C,0FFH

L00926:
	CALL	L00644
	CPI	0EH
	JNZ	L0093B
	MVI	A,13
	INR	C
	INX	D
	STAX	D
	MVI	A,10

L00935:
	INR	C
	INX	D
	STAX	D
	JMP	L00926

L0093B:
	CPI	19H
	JNZ	L00945
	MVI	A,1BH
	JMP	L00935

L00945:
	CALL	L0095B
	JNZ	L00926
	STA	L02762
	SHLD	L0274F
	XRA	A
	STAX	D
	POP	D
	MOV	A,C
	STAX	D
	INX	D
	POP	PSW
	POP	B
	POP	H
	RET

L0095B:
	INR	C
	INX	D
	STAX	D

L0095E:
	CPI	1AH
	RZ
	CPI	1BH
	RZ
	ORA	A
	RET

L00966:
	PUSH	B
	PUSH	D
	PUSH	H
	PUSH	D
	XRA	A
	MVI	C,16

L0096D:
	STAX	D
	INX	D
	DCR	C
	JNZ	L0096D
	POP	D
	PUSH	D
	LHLD	L0274F
	CALL	L022F1
	LDA	L0274B
	ORA	A
	JNZ	L0099A
	PUSH	D
	SHLD	L0274F
	LXI	B,19FH
	LXI	D,L0274F
	CALL	5
	LHLD	L0274F
	POP	D
	JM	L009AC
	STAX	D
	JMP	L009AC

L0099A:
	INX	H
	MOV	A,M
	DCX	H
	CPI	':'
	JNZ	L009AC
	CALL	L00A12
	JZ	L009AC
	SUI	'@'
	STAX	D
	INX	H

L009AC:
	INX	D
	MVI	C,8
	CALL	L009F4
	CPI	'.'
	PUSH	PSW
	PUSH	H
	LXI	H,L009F0
	CNZ	L01F09
	POP	H
	POP	PSW
	MVI	C,3
	CZ	L009F3
	POP	D
	INX	D
	LDAX	D
	DCX	D
	CPI	' '
	JZ	L009DB
	CALL	L022F1
	CALL	L00644
	SHLD	L0274F
	CALL	L0095E
	JZ	L01FCC

L009DB:
	CALL	L00534
	DB	'INVALID FILE NAME',0

L009F0:	DB	'LIB'

L009F3:
	INX	H

L009F4:
	CALL	L00A12
	JZ	L00A07
	STAX	D
	INX	D
	DCR	C
	JNZ	L009F4

L00A00:
	CALL	L00A12
	JNZ	L00A00
	RET

L00A07:
	PUSH	PSW

L00A08:
	MVI	A,' '
	STAX	D
	INX	D
	DCR	C
	JNZ	L00A08
	POP	PSW
	RET

L00A12:
	MOV	A,M
	CALL	L00A1D
	RZ
	INX	H
	CALL	L0064C
	ORA	A
	RET

L00A1D:
	CPI	'.'
	RZ
	CPI	':'
	RZ
	CPI	'*'
	RZ
	CPI	'?'
	RZ
	CPI	' '
	RNC
	CMP	A
	RET

L00A2E:
	CALL	L00A43
	CALL	L00913
	LXI	H,L02735
	JMP	L00C1E

L00A3A:
	LXI	H,L02733
	CALL	L01F91
	JMP	L007BE

L00A43:
	CALL	L0065F
	RNZ

L00A47:
	LHLD	L02733
	SHLD	L02735
	RET

L00A4E:
	LXI	H,L02733
	CALL	L01EFB
	CALL	L01F95
	XCHG
	JMP	L00C29

L00A5B:
	CALL	L00A43

L00A5E:
	LXI	H,L02735
	CALL	L00C68
	CALL	L00E04
	XCHG
	LHLD	L0273F
	XCHG
	CALL	L01F85
	LXI	H,L02735
	CALL	L00A82
	CALL	L01EB9
	CALL	L01A8D
	CALL	L00828
	JNZ	L00A5E
	RET

L00A82:
	CALL	L00C8D
	RZ

L00A86:
	CALL	L00C68
	CALL	L00AA1
	XCHG
	LHLD	L0273F
	XCHG
	CALL	L00C3F
	XCHG
	SHLD	L0273F
	XCHG
	CALL	L01D9B
	DCR	B
	JNZ	L00A86
	RET

L00AA1:
	PUSH	B
	PUSH	D
	PUSH	H
	LXI	H,L02733
	CALL	L01EFB
	LHLD	L02731
	XCHG
	LHLD	L02743
	CALL	L01F7C
	CALL	L01F71
	DAD	B
	LXI	D,0D80H
	CALL	L01F9F
	JC	L01FCC
	CALL	L00534
	DB	'QBUF FULL',0

L00ACE:
	CALL	L00806
	CALL	L00C65

L00AD4:
	CALL	L018BE
	PUSH	PSW
	CC	L00B85
	POP	PSW
	JC	L00AD4
	CALL	L024F0
	CALL	L023D6
	CPI	1AH
	RZ
	CPI	1BH
	RZ
	LXI	H,L00AD4
	PUSH	H
	CPI	1FH
	JZ	L00AF9
	CPI	7FH
	JNZ	L00B06

L00AF9:
	CALL	L00C14
	CALL	L024FC

L00AFF:
	SHLD	L0273D
	CALL	L01D9B
	RET

L00B06:
	CPI	' '
	JNC	L00BAC
	CPI	19H
	JNZ	L00B12

L00B10:
	MVI	A,1BH

L00B12:
	CPI	05H
	JZ	L024E3
	CPI	15H
	JZ	L00B21
	CPI	18H
	JNZ	L00B30

L00B21:
	CALL	L024E3

L00B24:
	CALL	L00C14
	CPI	10
	RZ
	SHLD	L0273D
	JMP	L00B24

L00B30:
	CPI	08H
	JNZ	L00B49
	LDA	L02684
	ORA	A
	RZ
	CALL	L00C14
	CPI	10
	RZ
	CPI	13
	RZ

L00B43:
	CALL	L00BB9
	JMP	L00AFF

L00B49:
	CPI	1CH
	JNZ	L00B7D

L00B4E:
	LDA	L02684
	ORA	A
	RZ
	CALL	L00C14
	CPI	13
	RZ
	CPI	10
	RZ
	PUSH	PSW
	CALL	L00B43
	POP	PSW
	CPI	9
	JZ	L00B4E
	CPI	' '
	JZ	L00B4E

L00B6B:
	LDA	L02684
	ORA	A
	RZ
	CALL	L00C14
	CALL	L00ED7
	RNC
	CALL	L00B43
	JMP	L00B6B

L00B7D:
	CPI	12H
	JNZ	L00B9D
	CALL	L024E3

L00B85:
	LHLD	L0273D

L00B88:
	DCX	H
	CALL	L00BEB
	JC	L00B95
	MOV	A,M
	CPI	10
	JNZ	L00B88

L00B95:
	INX	H
	XCHG
	LHLD	L0273D
	JMP	L007BE

L00B9D:
	CPI	13
	JNZ	L00BAC

L00BA2:
	MVI	A,13
	CALL	L00BAC
	MVI	A,10
	CALL	L024FC

L00BAC:
	PUSH	PSW
	CALL	L00C55
	CALL	L01F95
	POP	PSW
	MOV	M,A
	INX	H
	JMP	L00AFF

L00BB9:
	CPI	9
	JNZ	L00BD6
	XCHG
	LHLD	L025A7
	MOV	B,M
	XCHG
	INR	B
	RZ
	DCR	B
	RZ

L00BC8:
	CALL	L00BE0
	DCR	B
	JNZ	L00BC8
	XCHG
	DCX	H
	SHLD	L025A7
	XCHG
	RET

L00BD6:
	CPI	1BH
	JZ	L00BE0
	CPI	' '
	CC	L00BE0

L00BE0:
	CALL	L0022F
	MVI	A,' '
	CALL	L02567
	JMP	L0022F

L00BEB:
	XCHG
	LHLD	L0273B
	CALL	L01F9F
	XCHG
	RNC
	XCHG
	LHLD	L0273D
	CALL	L01F7B
	PUSH	H
	CALL	L01CC1
	LHLD	L0273D
	POP	D
	PUSH	PSW
	DAD	D
	POP	PSW
	RET

L00C07:
	LHLD	L0273D
	DCX	H
	PUSH	D
	CALL	L00BEB
	POP	D
	RC
	MOV	A,M
	ORA	A
	RET

L00C14:
	CALL	L00C07
	RNC
	INX	SP
	INX	SP
	RET

L00C1B:
	LXI	H,L0273D

L00C1E:
	LXI	D,L02763
	LDAX	D
	INX	D

L00C23:
	MOV	C,A
	MVI	B,0
	JMP	L00C2C

L00C29:
	LXI	H,L0273D

L00C2C:
	CALL	L01D92
	CALL	L00C8D
	RZ

L00C33:
	CALL	L00C68
	CALL	L00C3F
	DCR	B
	JNZ	L00C33
	ORA	A
	RET

L00C3F:
	PUSH	H
	CALL	L01F95

L00C43:
	LDAX	D
	ANI	7FH
	MOV	M,A
	INX	D
	INX	H
	DCR	C
	JNZ	L00C43
	XCHG
	XTHL
	MOV	M,E
	INX	H
	MOV	M,D
	DCX	H

L00C53:
	POP	D
	RET

L00C55:
	PUSH	D
	LHLD	L0273D
	XCHG
	LHLD	L0273F
	CALL	L01F9F
	POP	D
	LXI	H,L0273D
	RC

L00C65:
	LXI	H,L0273D

L00C68:
	PUSH	B
	PUSH	D
	PUSH	H

L00C6B:
	CALL	L01EFB
	MOV	A,B
	ORA	A
	JNZ	L01FCC
	CALL	L01E95
	MOV	A,D
	ORA	A
	JNZ	L01E4C
	CALL	L01A9E
	JNC	L00C6B
	CALL	L00534
	DB	'MEM FULL',0

L00C8D:
	CALL	L01F56
	INR	B
	INR	C
	DCR	C
	RNZ
	DCR	B
	RET

L00C96:
	CALL	L00CBD
	RNC
	CALL	L01A87
	JNC	L00C96

L00CA0:
	LDA	L0275C
	CALL	L0074B
	STC
	RET

L00CA8:
	CALL	L00CF3
	RNC
	CALL	L01A87
	JNC	L00CA8
	JMP	L00CA0

L00CB5:
	CALL	L00CBD
	RNC
	CALL	L01AAE
	RC

L00CBD:
	CALL	L00913
	LDA	L0275C
	ORA	A
	JM	L00CD8
	LXI	H,L0273F
	CALL	L00D24
	LHLD	L0273F
	RC
	CALL	L00D51

L00CD4:
	RC
	JMP	L00EE5

L00CD8:
	LXI	H,L0273B
	CALL	L00D24
	LHLD	L0273D
	RC
	CALL	L00D39
	CALL	L00D79
	JMP	L00CD4

L00CEB:
	CALL	L00CF3
	RNC
	CALL	L01AAE
	RC

L00CF3:
	CALL	L00CBD
	LDA	L02763
	CALL	L0091A
	RC
	MOV	B,A
	LDA	L0275C
	ORA	A
	MOV	A,B
	JM	L00D12
	LHLD	L0273D
	CALL	L00D3C
	SHLD	L0273D
	JMP	L00C1B

L00D12:
	LHLD	L0273F
	CALL	L00D4A
	SHLD	L0273F
	CALL	L00C1B
	CALL	L00D36
	JMP	L00EE5

L00D24:
	CALL	L01EFB
	INX	B
	DCX	D
	LDAX	D
	INX	D
	PUSH	B
	MOV	B,A
	MOV	A,C
	SUB	B
	POP	B
	MOV	C,A
	MOV	A,B
	SBI	0
	MOV	B,A
	RET

L00D36:
	LHLD	L0273D

L00D39:
	LDA	L02763

L00D3C:
	PUSH	H
	MOV	H,A
	MOV	A,L
	SUB	H
	POP	H
	MOV	L,A
	MOV	A,H
	SBI	0
	MOV	H,A
	RET

	LDA	L02763

L00D4A:
	ADD	L
	MOV	L,A
	MOV	A,H
	ACI	0
	MOV	H,A
	RET

L00D51:
	LDAX	D
	ORA	A
	RZ
	PUSH	D
	CALL	L00E7F
	JC	L00D77
	DCR	B
	DCR	C
	PUSH	H

L00D5E:
	INX	D
	LDAX	D
	ORA	A
	JZ	L00D76
	CMP	M
	INX	H
	JZ	L00D5E
	DCX	H
	CALL	L00EAB
	INX	H
	JZ	L00D5E
	POP	H
	POP	D
	JMP	L00D51

L00D76:
	POP	D

L00D77:
	POP	D
	RET

L00D79:
	LDAX	D
	ORA	A
	RZ
	INX	H

L00D7D:
	PUSH	D
	LDAX	D
	CALL	L00E96
	JC	L00D77
	DCR	B
	DCR	C
	PUSH	H

L00D88:
	INX	D
	INX	H
	LDAX	D
	ORA	A
	JZ	L00D99
	CMP	M
	JZ	L00D88
	CALL	L00EAB
	JZ	L00D88

L00D99:
	POP	H
	POP	D
	ORA	A
	JNZ	L00D7D
	RET

L00DA0:
	PUSH	B
	PUSH	D
	LXI	B,0
	LHLD	L02758
	XCHG
	LDA	L0275C
	ORA	A
	JM	L00DC7
	LHLD	L0273F
	DAD	D
	JNC	L00DBD
	INX	H
	MOV	B,H
	MOV	C,L
	LXI	H,0FFFFH

L00DBD:
	XCHG
	LHLD	L02741
	CALL	L01FBD
	JMP	L00DDF

L00DC7:
	LHLD	L0273D
	CALL	L01F7C
	JC	L00DD8
	CALL	L01F67
	MOV	B,H
	MOV	C,L
	LXI	H,0

L00DD8:
	XCHG
	LHLD	L0273B
	CALL	L01FAB

L00DDF:
	DAD	B
	JMP	L00E4C

L00DE3:
	MVI	A,0FFH
	CALL	L00782

L00DE8:
	PUSH	D
	LHLD	L02758
	PUSH	H
	CALL	L00E04
	POP	D
	JNC	L00C53
	PUSH	PSW
	CALL	L01AAE
	JNC	L00DFE
	POP	PSW
	POP	D
	RET

L00DFE:
	POP	PSW
	XCHG
	SHLD	L02758
	POP	D

L00E04:
	PUSH	B
	PUSH	D
	LHLD	L02758
	XCHG
	LXI	H,L0275C
	MOV	A,D
	ORA	E
	JNZ	L00E13
	DCR	M

L00E13:
	MOV	A,M
	ORA	A
	JM	L00E2F
	CALL	L01EF8
	CALL	L01F95

L00E1E:
	CALL	L00E7D
	JC	L00E4B
	DCR	B
	DCR	C
	DCX	D
	MOV	A,D
	ORA	E
	JNZ	L00E1E
	JMP	L00E4B

L00E2F:
	INX	D
	LXI	H,L0273B
	CALL	L01EFB
	LHLD	L0273D

L00E39:
	CALL	L0234E
	CALL	L00E94
	JC	L00E76
	DCR	B
	DCR	C
	DCX	D
	MOV	A,D
	ORA	E
	JNZ	L00E39
	INX	H

L00E4B:
	XCHG

L00E4C:
	XRA	A

L00E4D:
	STA	L0271E
	CALL	L01CB5
	JNZ	L00E5C
	LXI	H,0
	SHLD	L0271E

L00E5C:
	SHLD	L02758
	XCHG
	SHLD	L02756
	LDA	L0275C
	ORA	A
	PUSH	H
	LXI	H,0FFFFH
	DAD	D
	JC	L01FCC
	LHLD	L0271D
	DAD	H
	JMP	L01FCC

L00E76:
	DCX	D
	XCHG
	MVI	A,0FFH
	JMP	L00E4D

L00E7D:
	MVI	A,10

L00E7F:
	INR	B
	INR	C
	JMP	L00E8A

L00E84:
	CMP	M
	CNZ	L00EAB
	INX	H
	RZ

L00E8A:
	DCR	C
	JNZ	L00E84
	DCR	B
	JNZ	L00E84
	STC
	RET

L00E94:
	MVI	A,10

L00E96:
	INR	B
	INR	C
	JMP	L00EA1

L00E9B:
	DCX	H
	CMP	M
	CNZ	L00EAB
	RZ

L00EA1:
	DCR	C
	JNZ	L00E9B
	DCR	B
	JNZ	L00E9B
	STC
	RET

L00EAB:
	CPI	13H
	JZ	L00EC7
	RNC
	CPI	01H
	RZ
	CPI	0FH
	RNZ
	INX	D
	LDAX	D
	DCX	D
	ORA	A
	JZ	L00EC5
	CMP	M
	MVI	A,0FH
	JZ	L00ED0
	INX	D

L00EC5:
	CMP	A
	RET

L00EC7:
	MOV	A,M
	CALL	L00ED7
	MVI	A,13H
	JNC	L00EC5

L00ED0:
	ORA	A
	RET

L00ED2:
	CALL	L022FA
	STC
	RZ

L00ED7:
	CALL	L02229
	RC
	CALL	L0064C
	CPI	'A'
	CMC
	RNC
	CPI	'['
	RET

L00EE5:
	PUSH	B
	PUSH	D
	PUSH	H
	XCHG
	LHLD	L0273B
	CALL	L01F9F
	CC	L00F1D
	LHLD	L02741
	INX	H
	CALL	L01F9F
	CNC	L00F1D
	LHLD	L0273D
	INX	H
	CALL	L01F9F
	JNC	L00F0D
	XCHG
	LXI	D,L0273B
	JMP	L01E28

L00F0D:
	LHLD	L0273F
	CALL	L01F9F
	CC	L00F1D
	XCHG
	LXI	D,L0273F
	JMP	L01E05

L00F1D:
	CALL	L00534
	DB	'PUTCUR ERR',0

L00F2B:
	CALL	L018E3
	CALL	L01660
	DCX	H
	ANA	M
	MVI	M,0
	JNZ	L00F64
	LXI	H,L0269E
	MOV	A,M
	MVI	M,0
	ORA	A
	PUSH	PSW
	CNZ	L016F0
	POP	PSW
	JNZ	L00F57
	LXI	H,L02685
	MOV	A,M
	ORA	A
	JP	L00F54
	XRA	A
	MOV	M,A
	STA	L0269B

L00F54:
	CALL	L01674

L00F57:
	LDA	L02693
	LHLD	L02695
	SHLD	L02693
	CMP	L
	CNZ	L01358

L00F64:
	LDA	L0269B
	ORA	A
	JNZ	L00FA4
	CALL	L01502
	CALL	L001F2
	LHLD	L02685
	CALL	L017EA
	MVI	A,'{'
	CC	L007AD
	LXI	D,0

L00F7F:
	CALL	L0105D
	ANI	0C0H
	JNZ	L01055
	CALL	L017FA
	JZ	L00F99
	CPI	10
	JNZ	L00F93
	INX	D

L00F93:
	CALL	L024FC
	JMP	L00F7F

L00F99:
	XCHG
	SHLD	L02685
	MVI	A,0FFH
	STA	L0269B
	MVI	E,0

L00FA4:
	LDA	L0269C
	ORA	A
	JNZ	L01039
	LHLD	L02691
	CALL	L0020B
	CALL	L0186E
	CALL	L0105D
	ANI	0E8H
	JNZ	L01055

L00FBC:
	CALL	L0187F
	JC	L00FD0
	CPI	10
	JZ	L00FD4
	CALL	L02421
	CALL	L0234E
	JMP	L00FBC

L00FD0:
	CALL	L0241F
	DB	3AH

L00FD4:
	DCX	H
	INX	B
	LDA	L0269D
	ORA	A
	JNZ	L01039
	CALL	L0105D
	ANI	0E8H
	JNZ	L01055

L00FE5:
	PUSH	D
	XCHG
	LHLD	L02689
	CALL	L01F9F
	XCHG
	POP	D
	JNC	L01006
	CALL	L0105D
	ANI	0D4H
	JNZ	L01055
	CALL	L0187F
	JC	L01006
	CALL	L02421
	JMP	L00FE5

L01006:
	LHLD	L02683
	PUSH	H

L0100A:
	CALL	L0241F
	LDA	L02683
	LXI	H,L02697
	CMP	M
	JZ	L0101A
	JNC	L01035

L0101A:
	LXI	H,L02680
	CMP	M
	JNC	L01035
	CALL	L0105D
	ANI	80H
	POP	H
	JNZ	L01055
	PUSH	H
	MVI	A,10
	CALL	L024FC
	MVI	E,0FFH
	JMP	L0100A

L01035:
	POP	H
	SHLD	L02697

L01039:
	LXI	H,0FFFFH
	SHLD	L0269C
	MVI	E,0
	CALL	L00208
	LXI	H,L026A3
	MOV	A,M
	ORA	A
	RZ
	INX	H
	MVI	M,0FFH
	MVI	A,'<'
	CALL	L02567
	JMP	L00208

L01055:
	MVI	A,10
	CALL	L024FC
	JMP	L00208

L0105D:
	PUSH	B
	PUSH	D
	PUSH	H
	CALL	L0234E
	LXI	B,6
	LHLD	L025B7
	XCHG
	DCX	D

L0106B:
	DCR	C
	JZ	L01084
	INX	D
	LDAX	D
	INR	A
	JNZ	L0107A
	LXI	D,L025B9
	LDAX	D
	INR	A

L0107A:
	DCR	A
	JZ	L01084
	CALL	L010BB
	JMP	L0106B

L01084:
	LDA	L026A2
	CPI	2
	JC	L01092
	LDA	L0269F
	CALL	L010BB

L01092:
	LDA	L026A3
	ORI	0F3H
	ANA	B
	MOV	B,A
	LDA	L0268F
	ORA	A
	MOV	A,B
	JZ	L010A3
	ANI	0BFH

L010A3:
	MOV	B,A
	RAR
	MOV	A,B
	JNC	L010B8
	LDA	L0268F
	ADI	4
	LXI	H,L02680
	CMP	M
	MOV	A,B
	JC	L010B8
	ANI	0C3H

L010B8:
	JMP	L01FCC

L010BB:
	CPI	7FH
	JNZ	L010C5
	MVI	A,' '
	ORA	B
	MOV	B,A
	RET

L010C5:
	CPI	' '
	JC	L010CC
	MVI	A,' '

L010CC:
	LXI	H,L010D6
	CALL	L00D4A
	MOV	A,M
	ORA	B
	MOV	B,A
	RET

L010D6:	DB	0
	DB	40H
	DB	0
	DB	80H
	DB	0
	DB	80H
	DB	0
	DB	20H
	DB	0
	DB	08H
	DB	01H
	DB	40H
	DB	01H
	DB	05H
	DB	30H
	DB	20H
	DB	0
	DB	0
	DB	80H
	DB	0
	DB	0
	DB	0
	DB	0
	DB	0
	DB	0
	DB	30H
	DB	01H
	DB	80H
	DB	20H
	DB	0
	DB	0
	DB	20H
	DB	08H

L010F7:
	LXI	H,0FF00H
	SHLD	L026A5
	XRA	A
	STA	L026A2
	LDA	HITE
	SUI	2
	STA	L02680
	RAR
	ORA	A
	RAR
	STA	L02685
	CALL	L01425
	CALL	L00C07
	JC	L01125
	CPI	13
	JNZ	L01125
	CALL	L0187C
	CPI	10
	CZ	L01216

L01125:
	CALL	L00F2B
	XRA	A
	STA	L0275F
	LDA	L0269F
	LXI	H,L026A0
	CMP	M
	JNZ	L01138
	MVI	A,0FFH

L01138:
	MOV	M,A
	LXI	H,L01125
	PUSH	H
	LXI	H,L026A2
	DCR	M
	JZ	L01147
	JP	L01175

L01147:
	MVI	M,1

L01149:
	CALL	L018B4
	STA	L0269F
	CPI	0
	JNZ	L01175
	LXI	H,L026A2
	MOV	A,M
	PUSH	PSW
	MVI	M,0
	CALL	L00F64
	POP	PSW
	LXI	H,L026A2
	MVI	M,4
	CPI	4
	JNZ	L0116B
	MVI	M,10H

L0116B:
	CPI	10H
	JNZ	L01172
	MVI	M,40H

L01172:
	JMP	L01149

L01175:
	LXI	H,L026A4
	MOV	A,M
	MVI	M,0
	ORA	A
	JZ	L011A8
	CALL	L0187C
	JC	L011A0
	CPI	13
	JZ	L011A0
	CPI	9
	JZ	L011A0
	CPI	7FH
	JNZ	L01196
	MVI	A,'~'

L01196:
	CPI	' '
	JNC	L0119D
	MVI	A,'^'

L0119D:
	JMP	L011A2

L011A0:
	MVI	A,' '

L011A2:
	CALL	L02567
	CALL	L00208

L011A8:
	CALL	L0234E
	LDA	L0269F
	CPI	7FH
	JZ	L01448
	CPI	' '
	JNC	L0153A
	PUSH	PSW
	ADD	A
	LXI	H,L011C5
	CALL	L00D4A
	CALL	L01F95
	POP	PSW

L011C4:
	PCHL

L011C5:
	DW	L01345
	DW	L0126D
	DW	L01289
	DW	L0142C
	DW	L01216
	DW	L01303
	DW	L0123F
	DW	L014EC
	DW	L0122A
	DW	L0153A
	DW	L01954
	DW	L014DD
	DW	L01216
	DW	L015AB
	DW	L01594
	DW	L0150B
	DW	L0151A
	DW	L012B6
	DW	L01414
	DW	L0122A
	DW	L01476
	DW	L014BF
	DW	L01345
	DW	L01409
	DW	L012C1
	DW	L014CE
	DW	L0137C
	DW	L01205
	DW	L01460
	DW	L0151A
	DW	L01346
	DW	L01448

L01205:
	POP	H
	CALL	L00806

L01209:
	LXI	H,L026A6
	MOV	A,M
	ORA	A
	RZ
	INR	M
	LHLD	L02680
	JMP	L0020B

L01216:
	CALL	L01374
	CALL	L01875
	CALL	L0164C
	PUSH	PSW
	CALL	L00EE5
	POP	PSW
	CPI	13
	RNZ
	JMP	L01216

L0122A:
	CALL	L00C14
	CALL	L01656
	CALL	L00EE5
	CALL	L00C07
	CPI	13
	RNZ
	CALL	L01358
	JMP	L0122A

L0123F:
	CALL	L01374
	CALL	L0186E

L01245:
	CALL	L0187F
	JC	L00EE5
	CALL	L00ED7
	JC	L01245
	CALL	L0164C

L01254:
	CALL	L0187F
	JC	L00EE5
	CALL	L0164C
	CALL	L022FA
	JZ	L01254
	DCX	H
	JMP	L00EE5

L01267:
	CALL	L01656
	CALL	L00EE5

L0126D:
	CALL	L01358
	CALL	L00C14
	CALL	L022FA
	JZ	L01267
	CALL	L01656

L0127C:
	CALL	L00EE5
	CALL	L00C14
	CALL	L00ED7
	JC	L0127C
	RET

L01289:
	CALL	L015F3
	JZ	L012AC
	XRA	A
	STA	L0268F+1
	LHLD	L02683
	PUSH	H
	LXI	H,0
	SHLD	L02683
	CALL	L01816
	LHLD	L02756
	CALL	L00EE5
	LDA	L02683
	JMP	L0132E

L012AC:
	MVI	D,0
	MVI	A,0F0H

L012B0:
	STA	L0268F+1
	JMP	L012F7

L012B6:
	MVI	D,0
	LDA	L0268F+1
	ORI	07H
	INR	A
	JMP	L012B0

L012C1:
	CALL	L015EC

L012C4:
	PUSH	PSW
	LXI	H,L0268F
	ADD	M
	LXI	H,L02680
	SUB	M
	JC	L012F5
	INR	A
	LXI	H,L02685
	CMP	M
	JNC	L012F5
	MOV	A,M
	DCR	A
	JM	L012F5
	CALL	L01660
	JZ	L012F5
	LXI	H,L026A2
	MVI	M,1
	CALL	L0137C
	CALL	L01728
	CALL	L00208
	POP	PSW
	JMP	L012C4

L012F5:
	POP	PSW

L012F6:
	MOV	D,A

L012F7:
	LHLD	L02683
	PUSH	H
	MVI	L,0
	CALL	L01374
	JMP	L01332

L01303:
	CALL	L015EC

L01306:
	CALL	L01358
	LHLD	L02683
	PUSH	H
	LXI	H,0
	SHLD	L02683
	PUSH	PSW
	MOV	L,A
	CALL	L01816
	LHLD	L02756
	CALL	L00EE5
	POP	PSW
	MOV	B,A
	LXI	H,L02685
	CALL	L013FC
	LDA	L02683
	SUB	B
	JP	L0132E
	XRA	A

L0132E:
	MOV	D,A
	LXI	H,0

L01332:
	SHLD	L02683
	CALL	L0186E
	CALL	L015FE
	CALL	L01612
	CALL	L00EE5
	POP	H
	SHLD	L02683

L01345:
	RET

L01346:
	CALL	L015F3
	JZ	L01362
	LHLD	L02685
	CALL	L00771
	LXI	H,0
	SHLD	L02685

L01358:
	PUSH	PSW
	LDA	L0269C
	ORA	A
	CZ	L01500
	POP	PSW
	RET

L01362:
	PUSH	D
	LHLD	L02687
	DCX	H
	PUSH	H
	CALL	L00774
	POP	D
	LHLD	L02685
	DAD	D
	SHLD	L02685
	POP	D

L01374:
	LDA	L0269C
	ORA	A
	RNZ
	JMP	L01425

L0137C:
	LDA	L026A2
	CPI	11H
	JNC	L01401
	CALL	L01660
	JZ	L01401

L0138A:
	LDA	L02685
	DCR	A
	JP	L013A2
	CALL	L01875
	MVI	A,1
	CALL	L012F6
	CALL	L01728
	CC	L01425
	JMP	L0138A

L013A2:
	CALL	L01669
	XRA	A
	STA	L02682
	LHLD	L02697
	CALL	L0020B
	LDA	L02683
	LXI	H,L0268D
	ADD	M
	MOV	D,A
	LHLD	L0268B
	CALL	L018A3

L013BD:
	CALL	L0187F
	JC	L013EA
	CALL	L024FC
	LDA	L02683
	PUSH	H
	LXI	H,L02682
	ADD	M
	POP	H
	CMP	D
	JC	L013BD

L013D3:
	CALL	L0187F
	JC	L013EA
	CALL	L0246C
	JC	L013EA
	CPI	10
	JZ	L013EA
	CALL	L024FC
	JMP	L013D3

L013EA:
	LHLD	L02683
	SHLD	L02697
	CALL	L016D4
	CALL	L01659
	LDA	L0268D
	LXI	H,L02693

L013FC:
	CMA
	INR	A
	ADD	M
	MOV	M,A
	RET

L01401:
	CALL	L015EC
	CMA
	INR	A
	JMP	L0140C

L01409:
	CALL	L015EC

L0140C:
	LXI	H,L02685
	ADD	M
	MOV	M,A
	JMP	L0143F

L01414:
	CALL	L00C14
	LHLD	L02685
	INX	H
	CALL	L00771
	LHLD	L02680
	DCX	H
	SHLD	L02685

L01425:
	PUSH	PSW
	XRA	A
	STA	L0269B
	POP	PSW
	RET

L0142C:
	XRA	A
	STA	L026A7
	CALL	L01875
	LHLD	L02685
	XCHG
	LHLD	L02687
	DAD	D
	XRA	A
	CALL	L0074E

L0143F:
	CALL	L01425
	MVI	A,0FFH
	STA	L0269E
	RET

L01448:
	CALL	L00C14

L0144B:
	CALL	L00AFF
	CALL	L014C5
	CALL	L01656
	CALL	L00C07
	CPI	13
	JZ	L01448
	RET

L0145D:
	CALL	L0144B

L01460:
	CALL	L00C14
	CALL	L022FA
	JZ	L0145D

L01469:
	CALL	L0144B
	CALL	L00C14
	CALL	L00ED7
	JC	L01469
	RET

L01476:
	CALL	L01875
	CALL	L022FA
	JNZ	L0148E

L0147F:
	CALL	L014EF
	CALL	L01875
	CALL	L022FA
	JZ	L0147F
	JMP	L014B2

L0148E:
	CALL	L014B2
	CALL	L00C07
	JC	L0149B
	CALL	L022FA
	RNZ

L0149B:
	CALL	L01875
	CPI	' '
	JZ	L014A6
	CPI	9
	RNZ

L014A6:
	CALL	L014EF
	JMP	L0149B

L014AC:
	CALL	L014EF
	CALL	L01875

L014B2:
	CALL	L00ED7
	JC	L014AC
	CALL	L00ED2
	CNC	L014EF
	RET

L014BF:
	CALL	L00806
	CALL	L00778

L014C5:
	MVI	E,0FFH

L014C7:
	PUSH	PSW
	XRA	A
	STA	L0269C
	POP	PSW
	RET

L014CE:
	CALL	L014BF
	CALL	L01500
	CALL	L0077E
	PUSH	D
	CALL	L00778
	POP	D
	RET

L014DD:
	CALL	L01875
	CPI	13
	RZ
	CPI	10
	RZ
	CALL	L014EF
	JMP	L014DD

L014EC:
	CALL	L01875

L014EF:
	CALL	L014C5

L014F2:
	SHLD	L0273F
	CALL	L01D9B
	CPI	13
	JZ	L014EC
	CPI	10
	RNZ

L01500:
	MVI	E,0FFH

L01502:
	PUSH	H
	LXI	H,0
	SHLD	L0269C
	POP	H
	RET

L0150B:
	LXI	H,L026A3
	MOV	A,M
	CMA
	MOV	M,A

L01511:
	PUSH	H
	LXI	H,0FFFFH
	SHLD	L02699
	POP	H
	RET

L0151A:
	CALL	L00F64
	CALL	L018B4
	CPI	1AH
	JNZ	L01530
	CALL	L00904
	CALL	L0080F
	CALL	L014C5
	MVI	A,1AH

L01530:
	CPI	13
	JZ	L015AB
	CPI	10
	CZ	L01425

L0153A:
	PUSH	PSW
	LHLD	L02691
	CALL	L0020B
	POP	PSW
	PUSH	D
	MVI	E,0
	CALL	L02421
	POP	D
	CALL	L00BAC
	MOV	D,A
	CALL	L0187C
	JC	L01579
	CPI	13
	JZ	L01579
	MOV	B,A
	LDA	L026A3
	ORA	A
	MOV	A,B
	JNZ	L014C7
	CMP	D
	JZ	L01573
	CPI	' '
	JC	L014EF
	MOV	A,D
	CPI	' '
	CC	L014C7
	JC	L014F2

L01573:
	CALL	L014F2
	JMP	L01583

L01579:
	LDA	L02683
	LXI	H,L0268F
	CMP	M
	JNZ	L014C7

L01583:
	PUSH	H
	CALL	L01856
	SHLD	L02691
	LHLD	L02683
	SHLD	L0268F
	POP	H
	JMP	L01511

L01594:
	CALL	L015EC

L01597:
	PUSH	PSW
	CALL	L015E2
	LHLD	L0273D
	DCX	H
	DCX	H
	CALL	L00EE5
	POP	PSW
	DCR	A
	JNZ	L01597
	JMP	L01500

L015AB:
	CALL	L0164F
	LDA	L026A3
	ORA	A
	JZ	L015CB
	CALL	L0187C
	JC	L015C2
	CPI	13
	JZ	L015C2
	MVI	E,0FFH

L015C2:
	CALL	L0241F
	CALL	L00BA2
	JMP	L014C5

L015CB:
	CALL	L01374
	CALL	L0186E

L015D1:
	CALL	L0187F
	JC	L015DF
	CPI	10
	JNZ	L015D1
	JMP	L00EE5

L015DF:
	CALL	L00EE5

L015E2:
	MVI	A,13
	CALL	L00BAC
	MVI	A,10
	JMP	L00BAC

L015EC:
	LXI	H,L026A2
	MOV	A,M
	MVI	M,0
	RET

L015F3:
	LXI	H,L026A0
	CMP	M
	RET

L015F8:
	CALL	L0249A
	CALL	L0164C

L015FE:
	LDA	L02683
	CMP	D
	RNC
	CALL	L0187F
	RC
	CALL	L0185D
	JNC	L015F8
	DCX	H
	INX	B
	JMP	L015FE

L01612:
	LDA	L0268F+1
	INR	A
	MOV	D,A
	LDA	L02684
	CMP	D
	RNC
	CALL	L0187F
	RC
	CALL	L0246C
	JC	L01649

L01626:
	CPI	10
	JZ	L01649
	CPI	13
	JZ	L01649
	CALL	L0246C
	JC	L01647
	CALL	L0249A
	LDA	L02684
	CMP	D
	JNC	L01649
	CALL	L0187F
	RC
	JMP	L01626

L01647:
	DCX	H
	INX	B

L01649:
	DCX	H
	INX	B
	RET

L0164C:
	CPI	10
	RNZ

L0164F:
	PUSH	H
	LXI	H,L02685
	INR	M
	POP	H
	RET

L01656:
	CPI	10
	RNZ

L01659:
	PUSH	H
	LXI	H,L02685
	DCR	M
	POP	H
	RET

L01660:
	LXI	H,L0269D
	MOV	A,M
	DCX	H
	ANA	M
	DCX	H
	ANA	M
	RET

L01669:
	LDA	L02699
	ORA	A
	RZ
	JMP	L01674

L01671:
	CALL	L01425

L01674:
	CALL	L01728
	JNC	L01722
	CALL	L01659
	JP	L016A9

L01680:
	CALL	L00534
	DB	'FILE LINE LONGER THAN ENTIRE SCRN ???',0

L016A9:
	LDA	L0269B
	LXI	H,L0268D
	ANA	M
	JZ	L01671
	LDA	L0268F
	LXI	H,L02680
	SUB	M
	JC	L016C7
	JNZ	L01671
	LDA	L0268F+1
	ORA	A
	JNZ	L01671

L016C7:
	CALL	L016D0
	CALL	L01502
	JMP	L01674

L016D0:
	XRA	A
	STA	L02682

L016D4:
	MVI	A,10
	CALL	L024FC
	LDA	L02682
	ORA	A
	JZ	L016E8
	LXI	H,L02697
	DCR	M
	JP	L016E8
	INR	M

L016E8:
	LXI	H,L0268D
	CMP	M
	JC	L016D4
	RET

L016F0:
	LXI	H,L02685
	MOV	A,M
	ORA	A
	JP	L0170D
	PUSH	H
	CALL	L0187C
	POP	H
	JNC	L01705
	MVI	M,0
	JMP	L0170D

L01705:
	XRA	A
	SUB	M
	CALL	L012F6
	JMP	L016F0

L0170D:
	CALL	L01728
	JNC	L01722
	PUSH	PSW
	LDA	L02685
	ORA	A
	JZ	L01680
	POP	PSW
	CALL	L01306
	JMP	L0170D

L01722:
	LXI	H,L02699
	MVI	M,0
	RET

L01728:
	PUSH	B
	PUSH	D
	PUSH	H
	LHLD	L02683
	PUSH	H
	XRA	A
	STA	L0268D
	LDA	L02685
	DCR	A
	CALL	L01801
	INR	A
	JC	L01785
	LXI	H,0
	SHLD	L02687
	SHLD	L02683
	LHLD	L02685
	CALL	L01816
	SHLD	L02691
	MOV	A,D
	STA	L0268D
	LHLD	L02683
	SHLD	L0268F
	LHLD	L02756
	XCHG
	LHLD	L0273D
	CALL	L01F7C
	INR	H
	SHLD	L02745
	CALL	L0178C
	XCHG
	LHLD	L02683
	SHLD	L02695
	XCHG
	CALL	L0179E
	SHLD	L02689
	CALL	L01899
	SHLD	L0268B
	LDA	L02695
	CALL	L01801

L01785:
	POP	H
	SHLD	L02683
	JMP	L01FCC

L0178C:
	CALL	L0186E

L0178F:
	CALL	L0187F
	RC
	CPI	10
	JZ	L01649
	CALL	L0249A
	JMP	L0178F

L0179E:
	CALL	L01807
	JC	L017C9
	CALL	L0187F
	RC
	CPI	10
	CZ	L017E3
	CPI	' '
	JC	L017C3
	PUSH	H
	LXI	H,L02684
	INR	M
	LDA	WID
	DCR	A
	CMP	M
	POP	H
	JNC	L0179E
	DCX	H
	MOV	A,M
	INX	H

L017C3:
	CALL	L0249A
	JMP	L0179E

L017C9:
	CALL	L0187F
	RC
	CALL	L0246C
	JC	L01649
	CPI	10
	JZ	L017DE
	CALL	L0249A
	JMP	L017C9

L017DE:
	DCX	H
	INX	B
	CPI	10
	RNZ

L017E3:
	PUSH	H
	LXI	H,L02687
	INR	M
	POP	H
	RET

L017EA:
	PUSH	D
	CALL	L00DE3
	PUSH	PSW
	XCHG
	LHLD	L0273D
	CALL	L01F85
	XCHG
	POP	PSW
	POP	D
	RET

L017FA:
	MOV	A,B
	ORA	C
	RZ
	MOV	A,M
	INX	H
	DCX	B
	RET

L01801:
	DCR	A
	STA	L02683
	ORA	A
	RM

L01807:
	LDA	L02683
	INR	A
	INR	A
	MOV	D,A
	LDA	L02680
	SUB	D
	RNC
	CMA
	INR	A
	STC
	RET

L01816:
	CALL	L017EA
	MVI	A,'{'
	CC	L02497
	MVI	D,0

L01820:
	CALL	L017FA
	JZ	L01856
	CALL	L0249A
	CPI	10
	JNZ	L01820
	LDA	L02683
	MOV	D,A

L01832:
	MOV	A,B
	ORA	C
	JZ	L01856
	MOV	A,M
	INX	H
	DCX	B
	CPI	' '
	JC	L01850
	PUSH	H
	LXI	H,L02684
	INR	M
	LDA	WID
	DCR	A
	CMP	M
	POP	H
	JNC	L01832
	DCX	H
	MOV	A,M
	INX	H

L01850:
	CALL	L0249A
	JMP	L01832

L01856:
	CALL	L0187C
	LHLD	L02683
	RC

L0185D:
	CALL	L0246C
	RNC
	PUSH	H
	LHLD	L02683
	INR	L
	MVI	H,2
	SHLD	L02683
	POP	H
	STC
	RET

L0186E:
	CALL	L01EF8
	CALL	L01F95
	RET

L01875:
	CALL	L0187C
	RNC
	INX	SP
	INX	SP
	RET

L0187C:
	CALL	L0186E

L0187F:
	MOV	A,B
	ORA	C
	JNZ	L01895
	CALL	L01899
	PUSH	H
	CALL	L01C0B
	POP	H
	PUSH	PSW
	CALL	L0234E
	CALL	L018A3
	POP	PSW
	RC

L01895:
	MOV	A,M
	DCX	B
	INX	H
	RET

L01899:
	PUSH	D
	XCHG
	LHLD	L0273F
	CALL	L01F7B
	POP	D
	RET

L018A3:
	PUSH	D
	XCHG
	CALL	L01EF8
	CALL	L01F95
	DAD	D
	MOV	A,C
	SUB	E
	MOV	C,A
	MOV	A,B
	SBB	D
	MOV	B,A
	POP	D
	RET

L018B4:
	CALL	L018BE
	RNC
	CALL	L00F2B
	JMP	L018B4

L018BE:
	PUSH	B
	PUSH	D
	PUSH	H

L018C1:
	LDA	L02749
	ORA	A
	JNZ	L018DD
	CALL	L018E3
	JC	L01FCC
	MVI	D,0C9H

L018D0:
	DCR	D
	JZ	L018C1
	CALL	L0234E
	JZ	L018D0
	CALL	L018E3

L018DD:
	CNC	L02322
	JMP	L01FCC

L018E3:
	LDA	L02749
	ORA	A
	RNZ
	LDA	0F7FFH
	LXI	H,L0274A
	CMP	M
	RZ
	LDA	L02749
	ORA	A
	RNZ
	CALL	L01425
	CALL	L001F2
	LXI	H,L025A9
	SHLD	L025A7

L01901:
	LDA	L02749
	ORA	A
	RNZ
	LDA	0F7FFH
	PUSH	PSW
	RAR
	PUSH	PSW
	MVI	A,80
	JNC	L01913
	MVI	A,40

L01913:
	STA	WID
	POP	PSW
	RAR
	MVI	A,24
	JNC	L0191F
	MVI	A,12

L0191F:
	STA	HITE
	SUI	2
	STA	L02680
	MVI	A,15H
	STA	EREOL
	POP	PSW
	STA	L0274A
	STC
	RET

L01932:	DB	0
	DB	'WM      HLP'
	DS	22

L01954:
	CALL	L001F2
	CALL	L01425
	LXI	H,L01932
	LXI	D,L026F8
	LXI	B,33
	CALL	L01F0C
	LXI	D,L026F8
	CALL	L01FF4
	JNZ	L019A2
	MVI	A,1
	STA	L026F8
	LXI	D,L026F8
	CALL	L01FF4
	JNZ	L019A2
	CALL	L00534
	DB	'WM.HLP NOT FOUND ON DEFAULT OR A:',0

L019A2:
	LXI	D,L026F8
	LXI	H,L027E9
	CALL	L020A9
	JC	L019DE
	LXI	D,L026F8
	LXI	H,L027E9
	CALL	L01C8F
	LXI	H,L027E9

L019BA:
	PUSH	PSW
	MOV	A,M
	INX	H
	CPI	11H
	JZ	L019CD
	CALL	L024FC

L019C5:
	POP	PSW
	DCR	A
	JNZ	L019BA
	JMP	L019A2

L019CD:
	CALL	L018B4
	CPI	10
	JNZ	L019DD
	PUSH	H
	CALL	L001F2
	POP	H
	JMP	L019C5

L019DD:
	POP	PSW

L019DE:
	RET

L019DF:
	LXI	D,L026F8
	CALL	L00966
	CALL	L01FF4
	JNZ	L019FD
	CALL	L00534
	DB	'FILE NOT FOUND',0

L019FD:
	CALL	L023D6
	LXI	D,L026F8
	LXI	H,L027E9
	CALL	L020A9
	JC	L01A1D
	CALL	L01C8F
	PUSH	PSW
	MVI	B,0
	MOV	C,A
	LXI	D,L027E9
	CALL	L00C29
	POP	PSW
	JC	L019FD

L01A1D:
	JMP	L0081A

L01A20:
	CALL	L00828
	JZ	L0051D
	LXI	D,L026F6
	XRA	A
	STAX	D
	INX	D
	INX	D
	CALL	L00966
	LXI	D,0

L01A33:
	LXI	H,L0273F
	CALL	L01EBC
	CALL	L01F95
	CALL	L01F7C
	XCHG
	CALL	L00E04

L01A43:
	LHLD	L02756
	XCHG
	PUSH	H
	LXI	B,128+1
	DAD	B
	CALL	L01F9F
	DCX	H
	XTHL
	JC	L01A5E
	LXI	D,L026F8
	CALL	L0211A
	POP	D
	JMP	L01A43

L01A5E:
	CALL	L01F7B
	POP	B
	XCHG
	CALL	L00828
	JZ	L01A74
	PUSH	H
	LHLD	L02756
	CALL	L01A87
	POP	H
	JNC	L01A33

L01A74:
	MOV	A,E
	CALL	L01BEB
	LXI	D,L026F8
	CALL	L02132
	CALL	L0200F
	LHLD	L02756
	JMP	L00EE5

L01A87:
	CALL	L023D6
	CALL	L00EE5

L01A8D:
	CALL	L00828
	RZ

L01A91:
	CALL	L023D6
	LDA	L0275C
	ORA	A
	JM	L01CC1
	JMP	L01C4D

L01A9E:
	LDA	L0275C
	ORA	A
	STC
	CM	L01B5E
	RNC
	CALL	L01ADD
	RNC
	JMP	L01B5E

L01AAE:
	CALL	L01ABE
	RC
	CALL	L01A91
	RC
	CALL	L01ABE
	CNC	L01A91
	ORA	A
	RET

L01ABE:
	PUSH	B
	PUSH	D
	PUSH	H
	LDA	L0275C
	ORA	A
	LXI	D,L0273B
	JM	L01ACE
	LXI	D,L0273F

L01ACE:
	LHLD	L0272F
	XCHG
	CALL	L01EFB
	MOV	H,B
	MOV	L,C
	CALL	L01F9F
	JMP	L01FCC

L01ADD:
	PUSH	B
	PUSH	D
	PUSH	H
	CALL	L01B0C
	JC	L01FCC
	LXI	H,L0275F
	INR	M
	MOV	B,M
	LXI	H,L0272E
	XRA	A

L01AEF:
	ADD	M
	DCR	B
	JNZ	L01AEF
	DCR	A
	ORI	07H
	MOV	C,A
	LDA	L0272D
	DCR	A
	MOV	B,A

L01AFD:
	CALL	L01B0C
	DCR	B
	JZ	L01B08
	DCR	C
	JNZ	L01AFD

L01B08:
	ORA	A
	JMP	L01FCC

L01B0C:
	LHLD	L0273B
	CALL	L01D73
	RC
	PUSH	H
	LHLD	L026AB+34
	XCHG
	LHLD	L02720
	CALL	L01F9F
	POP	H
	LXI	D,L026AB
	JNC	L01B2B
	CALL	L02135
	JMP	L01B38

L01B2B:
	CALL	L0212F
	XCHG
	LHLD	L02720
	INX	H
	SHLD	L02720
	XCHG
	INR	B

L01B38:
	LXI	D,128
	DAD	D
	SHLD	L0273B
	RET

L01B40:
	PUSH	B
	PUSH	D
	PUSH	H
	LXI	H,81H
	SHLD	L02745
	LXI	H,L02743
	CALL	L01E49
	LHLD	L02741
	CALL	L00EE5

L01B55:
	CALL	L01B0C
	JNC	L01B55
	JMP	L01FCC

L01B5E:
	PUSH	B
	PUSH	D
	PUSH	H
	CALL	L01B7E
	JC	L01FCC
	LDA	L0272D
	MOV	B,A
	DCR	B
	ADD	A
	MOV	C,A
	DCR	C

L01B6F:
	CALL	L01B7E
	DCR	B
	JZ	L01B7A
	DCR	C
	JNZ	L01B6F

L01B7A:
	ORA	A
	JMP	L01FCC

L01B7E:
	LHLD	L02741
	CALL	L01CAA
	JNZ	L01B96
	LDA	L026F5
	MOV	D,A
	CALL	L00D3C
	PUSH	H
	MOV	A,D
	CALL	L01BEB
	JMP	L01B9B

L01B96:
	LXI	D,0FF80H
	DAD	D
	PUSH	H

L01B9B:
	XTHL
	CALL	L01D83
	XTHL
	JNC	L01BA5
	POP	H
	RET

L01BA5:
	PUSH	H
	LHLD	L02722
	XCHG
	CALL	L01DE3
	CALL	L01F9F
	POP	H
	JNC	L01BBD
	LXI	D,5CH
	CALL	L0213C
	JMP	L01BE2

L01BBD:
	PUSH	H
	LHLD	L02724
	XCHG
	CALL	L01DE3
	CALL	L01F9F
	POP	H
	LXI	D,L026D1
	JNC	L01BD5
	CALL	L02135
	JMP	L01BE2

L01BD5:
	CALL	L0212F
	PUSH	H
	LHLD	L02724
	DCX	H
	SHLD	L02724
	POP	H
	INR	B

L01BE2:
	CALL	L01CAA
	ORA	A
	POP	H
	SHLD	L02741
	RET

L01BEB:
	PUSH	B
	PUSH	D
	LXI	D,L027E9
	PUSH	D
	MOV	B,A
	MVI	C,130
	INR	B
	DCX	H
	DCX	D

L01BF7:
	MOV	A,M
	STAX	D
	INX	H
	INX	D
	DCR	C
	DCR	B
	JNZ	L01BF7

L01C00:
	MVI	A,1AH
	STAX	D
	INX	D
	DCR	C
	JNZ	L01C00
	JMP	L01FCC

L01C0B:
	CALL	L01CAA
	RZ
	PUSH	B
	PUSH	D
	PUSH	H
	CALL	L01E95
	LXI	H,128
	CALL	L01F9F
	XCHG
	LHLD	L02728
	JNC	L01C29
	CALL	L01ADD
	JC	L01D1A
	XCHG

L01C29:
	XCHG
	LXI	H,L02743
	CALL	L01D0D
	JMP	L01C5C

L01C33:
	PUSH	B
	PUSH	D
	PUSH	H
	LXI	H,L02743
	LXI	D,7800H
	CALL	L01D3D
	CALL	L01CAA
	JZ	L01C73
	MOV	A,C
	ORA	A
	JNZ	L01C5C
	JMP	L01FCC

L01C4D:
	PUSH	B
	PUSH	D
	PUSH	H
	CALL	L01CAA
	JZ	L01C73
	LXI	H,L02743
	CALL	L01CF3

L01C5C:
	LHLD	L02741

L01C5F:
	CALL	L01C76
	CNC	L01C8F
	JC	L01C6B
	STA	L026F5

L01C6B:
	SHLD	L02741
	DCR	C
	JNZ	L01C5F
	ORA	A

L01C73:
	JMP	L01FCC

L01C76:
	CALL	L023D6
	LXI	D,L026D0
	LDAX	D
	INX	D
	ORA	A
	STC
	CNZ	L020B0
	RNC
	LXI	D,5BH
	LDAX	D
	INX	D
	ORA	A
	STC
	CNZ	L020A9
	RET

L01C8F:
	MVI	B,128

L01C91:
	MOV	A,M
	ANI	7FH
	MOV	M,A
	CPI	1AH
	JZ	L01CA3
	INX	H
	DCR	B
	JNZ	L01C91
	STC
	MVI	A,128
	RET

L01CA3:
	CALL	L020C5
	MVI	A,128
	SUB	B
	RET

L01CAA:
	PUSH	H
	LDA	5BH
	LXI	H,L026D0
	ORA	M
	STC
	POP	H
	RET

L01CB5:
	LDA	L0275C
	ORA	A
	LDA	L026AA
	CP	L01CAA
	ORA	A
	RET

L01CC1:
	PUSH	B
	PUSH	D
	PUSH	H
	LDA	L026AA
	ORA	A
	STC
	JZ	L01CF0
	LXI	D,L01B5E
	LXI	H,L0273B
	CALL	L01CF6
	LHLD	L0273B

L01CD8:
	CALL	L023D6
	LXI	D,0FF80H
	DAD	D
	LXI	D,L026AB
	CALL	L020B0
	JC	L01CEF
	SHLD	L0273B
	DCR	C
	JNZ	L01CD8

L01CEF:
	ORA	A

L01CF0:
	JMP	L01FCC

L01CF3:
	LXI	D,L01ADD

L01CF6:
	PUSH	H
	LHLD	L02728
	PUSH	D
	CALL	L01E95
	CALL	L01F9F
	POP	H
	CC	L011C4
	LHLD	L02726
	DAD	H
	INR	H
	INR	H
	XCHG
	POP	H

L01D0D:
	CALL	L01D3D
	CPI	8
	JC	L01D18
	SUI	4
	MOV	C,A

L01D18:
	ORA	A
	RNZ

L01D1A:
	CALL	L00534
	DB	'MEM SHORTAGE, TRY CLEARING QBUF',0

L01D3D:
	CALL	L01E49
	PUSH	D
	CALL	L01E95
	POP	H
	CALL	L01FBD
	XCHG
	DAD	H

L01D4A:
	JC	$
	XCHG
	MOV	A,D
	MOV	C,D
	RET

L01D51:
	CALL	L01C33

L01D54:
	CALL	L01B40
	CALL	L01C33
	JNC	L01D54
	LXI	H,L0273B
	CALL	L01EFB
	CALL	L01F95
	MOV	A,C
	CALL	L01BEB
	LXI	D,L026AB
	CALL	L0212F
	JMP	L0200F

L01D73:
	PUSH	H
	LHLD	L02745
	XCHG
	LHLD	L0273D
	CALL	L01F7C
	XCHG
	POP	H
	JMP	L01F9F

L01D83:
	PUSH	H
	LHLD	L02747
	XCHG
	LHLD	L0273F
	DAD	D
	POP	D
	CALL	L01F9F
	XCHG
	RET

L01D92:
	PUSH	D
	LXI	D,L0273D
	CALL	L01F9F
	POP	D
	RNZ

L01D9B:
	PUSH	B
	PUSH	D
	PUSH	H
	PUSH	PSW
	LXI	H,L0273B
	CALL	L01DF4
	LHLD	L026AB+34
	DAD	D
	XCHG
	LHLD	L02720
	CALL	L01F9F
	XCHG
	JNC	L01DB7
	SHLD	L02720

L01DB7:
	LXI	H,L0273F
	CALL	L01DF4
	CALL	L01DE3
	CALL	L01F7C
	XCHG
	LHLD	L02722
	CALL	L01F9F
	XCHG
	JC	L01DD1
	SHLD	L02722

L01DD1:
	XCHG
	LHLD	L02724
	CALL	L01F9F
	XCHG
	JC	L01DDF
	SHLD	L02724

L01DDF:
	POP	PSW
	JMP	L01FCC

L01DE3:
	PUSH	D
	LHLD	L026D1+34
	XCHG
	LHLD	7EH
	CALL	L01F7C
	LXI	D,7FFFH
	DAD	D
	POP	D
	RET

L01DF4:
	CALL	L01EFB
	MOV	H,B
	MOV	L,C
	DAD	H
	MOV	E,H
	MVI	D,0
	JNC	L01E01
	INR	D

L01E01:
	RET

	PUSH	B
	PUSH	D
	PUSH	H
L01E05:
	XCHG
	PUSH	H
	CALL	L01F95
	XCHG
	CALL	L01F85
	POP	H
	PUSH	H
	CALL	L01F8F
	CALL	L01F0C
	XTHL
	DCX	H
	DCX	H
	MOV	M,E
	INX	H
	MOV	M,D
	INX	H
	POP	D
	MOV	M,E
	INX	H
	MOV	M,D
	ORA	A
	JMP	L01FCC

	PUSH	B
	PUSH	D
	PUSH	H
L01E28:
	XCHG
	INX	H
	INX	H
	PUSH	H
	CALL	L01F95
	CALL	L01F85
	XTHL
	INX	H
	INX	H
	MOV	E,M
	INX	H
	MOV	D,M
	XTHL
	CALL	L01F2E
	XTHL
	MOV	M,D
	DCX	H
	MOV	M,E
	POP	D
	DCX	H
	MOV	M,D
	DCX	H
	MOV	M,E
	ORA	A
	JMP	L01FCC

L01E49:
	PUSH	B
	PUSH	D
	PUSH	H

L01E4C:
	XCHG
	LXI	H,L02733
	CALL	L01F9F
	CC	L01E86
	LXI	H,L02744
	CALL	L01F9F
	CNC	L01E86
	LXI	H,L02733

L01E62:
	INX	H
	CALL	L01F9F
	DCX	H
	JC	L01E73
	CALL	L01EBC
	CALL	L01EAC
	JMP	L01E62

L01E73:
	LXI	H,L02741

L01E76:
	CALL	L01F9F
	JNC	L01FCC
	CALL	L01ED8
	DCX	H
	DCX	H
	DCX	H
	DCX	H
	JMP	L01E76

L01E86:
	CALL	L01FE7
	DB	'PUTHOLE ERR',0

L01E95:
	PUSH	B
	PUSH	H
	LXI	D,0
	LXI	H,L02731

L01E9D:
	CALL	L01EFB
	XCHG
	DAD	B
	XCHG
	CALL	L01EAC
	JNC	L01E9D
	POP	H
	POP	B
	RET

L01EAC:
	PUSH	D
	INX	H
	INX	H
	INX	H
	INX	H
	LXI	D,L02742
	CALL	L01F9F
	POP	D
	RET

L01EB9:
	LXI	H,L02737

L01EBC:
	PUSH	B
	PUSH	D
	PUSH	H
	CALL	L01EFB
	CALL	L01F8F
	XTHL
	MOV	M,E
	INX	H
	MOV	M,D
	DCX	H
	XTHL
	CALL	L01F0C
	POP	H
	PUSH	H
	INX	H
	INX	H
	MOV	M,E
	INX	H
	MOV	M,D
	JMP	L01FCC

L01ED8:
	PUSH	B
	PUSH	D
	PUSH	H
	PUSH	H
	DCX	H
	DCX	H
	CALL	L01EFB
	POP	H
	PUSH	H
	CALL	L01F91
	XCHG
	XTHL
	INX	H
	MOV	M,D
	DCX	H
	MOV	M,E
	XTHL
	CALL	L01F2E
	POP	H
	DCX	H
	MOV	M,D
	DCX	H
	MOV	M,E
	JMP	L01FCC

L01EF8:
	LXI	H,L0273F

L01EFB:
	PUSH	D
	PUSH	H
	CALL	L01F91
	CALL	L01F85
	POP	H
	POP	D
	RET

L01F06:
	LXI	H,L01F53

L01F09:
	LXI	B,3

L01F0C:
	CALL	L01F56
	CALL	L01F9F
	JNZ	L01F1C
	DAD	B
	XCHG
	DAD	B
	LXI	B,0
	RET

L01F1C:
	INR	B
	INR	C
	JMP	L01F25

L01F21:
	MOV	A,M
	STAX	D
	INX	H
	INX	D

L01F25:
	DCR	C
	JNZ	L01F21
	DCR	B
	JNZ	L01F21
	RET

L01F2E:
	CALL	L01F56
	CALL	L01F9F
	JNZ	L01F41
	CALL	L01F71
	DAD	B
	XCHG
	DAD	B
	LXI	B,0
	RET

L01F41:
	INR	B
	INR	C
	JMP	L01F4A

L01F46:
	DCX	H
	DCX	D
	MOV	A,M
	STAX	D

L01F4A:
	DCR	C
	JNZ	L01F46
	DCR	B
	JNZ	L01F46
	RET

L01F53:	DB	'BAK'

L01F56:
	MOV	A,B
	ORI	17H
	INR	A
	RNZ
	CALL	L00534
	DB	'COPY ERR',0

L01F67:
	PUSH	PSW
	XRA	A
	SUB	L
	MOV	L,A
	MVI	A,0
	SBB	H
	MOV	H,A
	POP	PSW
	RET

L01F71:
	PUSH	PSW
	XRA	A
	SUB	C
	MOV	C,A
	MVI	A,0
	SBB	B
	MOV	B,A
	POP	PSW
	RET

L01F7B:
	XCHG

L01F7C:
	PUSH	D
	XCHG
	CALL	L01F67
	XCHG
	DAD	D
	POP	D
	RET

L01F85:
	PUSH	H
	CALL	L01F7C
	MOV	B,H
	MOV	C,L
	POP	H
	MOV	A,B
	ORA	C
	RET

L01F8F:
	DCX	H
	DCX	H

L01F91:
	MOV	E,M
	INX	H
	MOV	D,M
	INX	H

L01F95:
	MOV	A,M
	INX	H
	MOV	H,M
	MOV	L,A
	RET

	DCX	H
	DCX	H
	JMP	L01F95

L01F9F:
	PUSH	B
	MOV	B,A
	MOV	A,D
	SUB	H
	JNZ	L01FA8
	MOV	A,E
	SUB	L

L01FA8:
	MOV	A,B
	POP	B
	RET

L01FAB:
	CALL	L01F9F
	JC	L01FB6

L01FB1:
	LXI	H,0
	ORA	A
	RET

L01FB6:
	PUSH	H
	CALL	L01F7C
	POP	D
	STC
	RET

L01FBD:
	CALL	L01F9F
	JZ	L01FB1
	JC	L01FB1
	XCHG
	CALL	L01F7C
	STC
	RET

L01FCC:
	POP	H
	POP	D
	POP	B
	RET

L01FD0:
	PUSH	D
	LXI	D,80H
	CALL	L01FD9
	DB	26
	POP	D

L01FD9:
	XTHL
	PUSH	B
	MOV	C,M
	INX	H
	PUSH	D
	PUSH	H
	CALL	5
	POP	H
	POP	D
	POP	B
	XTHL
	RET

L01FE7:
	CALL	L024E3
	POP	D
	CALL	L0230E
	CALL	L024E3
	JMP	L00463

L01FF4:
	CALL	L01FD0
	DB	15
	INR	A

L01FF9:
	PUSH	H
	LXI	H,35
	DAD	D
	MVI	M,0
	DCX	H
	MVI	M,0
	POP	H
	RET

L02005:
	LXI	D,L026D1

L02008:
	DCX	D
	DCX	D
	LDAX	D
	INX	D
	INX	D
	ORA	A
	RZ

L0200F:
	CALL	L01FD0
	DB	16
	INR	A
	RNZ
	CALL	L01FE7
	DB	'CLOSE ERR',0

L02022:
	LXI	D,L026D1
	CALL	L02008

L02028:
	CALL	L01FD0
	DB	19
	DCX	D
	CALL	L020C5
	INX	D
	JMP	L020C5

L02034:
	CALL	L02028
	CALL	L01FF9

L0203A:
	CALL	L01FD0
	DB	22
	INR	A
	RNZ

L02040:
	CALL	L01FE7
	DB	'DIRECTORY FULL',0

L02052:
	PUSH	D
	MOV	E,A
	LDA	L0274B
	ORA	A
	MOV	A,E
	JNZ	L02062
	CALL	L01FD9
	DB	30
	POP	D
	RET

L02062:
	POP	D
	ORA	A
	JNZ	L0206C
	CALL	L01FD9
	DB	25
	INR	A
L0206C:
	RET

L0206D:
	PUSH	B
	PUSH	D
	PUSH	H
	PUSH	D
	LXI	H,16
	DAD	D
	LXI	B,16
	XCHG
	CALL	L01F0C
	MVI	M,0
	POP	D
	LXI	H,25
	DAD	D
	XCHG
	POP	H
	PUSH	H
	CALL	L01F09
	POP	H
	POP	D
	POP	B
	CALL	L01FD0
	DB	23
	INR	A
	RNZ
	LDA	L0274B
	ORA	A
	RNZ
	CALL	L01FE7
	DB	'RENAME FAILURE',0

L020A9:
	CALL	L020B4
	CNC	L02135
	RET

L020B0:
	CALL	L0213C
	RC

L020B4:
	CALL	L0234E
	XRA	A
	CALL	L02167
	JC	L020C5
	CALL	L01FD9
	DB	20
	ORA	A
	DCR	A
	RNZ

L020C5:
	DCX	D
	XRA	A
	STAX	D
	INX	D
	STC
	RET

L020CB:
	PUSH	H
	MOV	H,D
	MOV	L,E
	DCX	H
	DCX	H
	MOV	A,M
	ORA	A
	CZ	L02034
	MVI	M,0FFH
	POP	H
	CALL	L0210A
	RNZ
	PUSH	PSW
	PUSH	H
	LXI	H,L026D1
	CALL	L01F9F
	POP	H
	JZ	L020F7
	LDA	L026D0
	ORA	A
	PUSH	D
	CZ	L02022
	POP	D
	POP	PSW
	CALL	L0210A
	RNZ
	PUSH	PSW

L020F7:
	POP	PSW
	CPI	2
	JNZ	L02040
	CALL	L00534
	DB	'DISK FULL',0

L0210A:
	CALL	L02165
	CALL	L01FD9
	DB	21
	CPI	1
	RZ
	CPI	0FFH
	RZ
	CPI	2
	RET

L0211A:
	PUSH	B
	PUSH	H
	PUSH	D
	LXI	B,128
	LXI	D,L027E9
	PUSH	D
	CALL	L01F0C
	POP	H
	POP	D
	CALL	L02132
	POP	H
	POP	B
	RET

L0212F:
	CALL	L023D6

L02132:
	CALL	L020CB

L02135:
	PUSH	B
	LXI	B,1
	JMP	L02140

L0213C:
	PUSH	B
	LXI	B,0FFFFH

L02140:
	PUSH	D
	PUSH	H
	DCX	D
	MVI	A,0FFH
	STAX	D
	LXI	H,35
	DAD	D
	PUSH	H
	CALL	L01F95
	DAD	B
	MOV	A,H
	ANA	L
	INR	A
	JZ	L0215E
	XCHG
	POP	H
	MOV	M,E
	INX	H
	MOV	M,D
	ORA	A
	JMP	L01FCC

L0215E:
	XRA	A
	STAX	D
	STC
	POP	H
	JMP	L01FCC

L02165:
	MVI	A,0FFH

L02167:
	PUSH	B
	MOV	B,A
	PUSH	H
	LXI	H,34
	DAD	D
	CALL	L01F95
	MOV	A,L
	ANI	7FH
	MOV	C,A
	DAD	H
	MOV	A,H
	LXI	H,12
	DAD	D
	CMP	M
	JZ	L021A0
	PUSH	H
	PUSH	PSW
	LXI	H,33
	DAD	D
	MOV	A,M
	ORA	A
	CNZ	L0200F
	MVI	M,0
	POP	PSW
	POP	H
	MOV	M,A
	CALL	L01FD0
	DB	15
	INR	A
	JNZ	L021A0
	MOV	A,B
	ORA	A
	STC
	JZ	L021A9
	CALL	L0203A

L021A0:
	LXI	H,32
	DAD	D
	MOV	M,C
	INX	H
	MOV	A,M
	ORA	B
	MOV	M,A

L021A9:
	POP	H
	PUSH	PSW
	XCHG
	CALL	L01FD9
	DB	26
	XCHG
	POP	PSW
	POP	B
	RET

L021B4:
	LXI	D,L0275C
	XRA	A
	STAX	D

L021B9:
	CALL	L022F1
	INX	H
	CPI	'+'
	JZ	L021B9
	CPI	'-'
	JNZ	L021CD
	MVI	A,0FFH
	STAX	D
	JMP	L021B9

L021CD:
	DCX	H
	LXI	D,0FFFFH
	XCHG
	SHLD	L0275A
	XCHG
	CALL	L022F1
	CPI	'#'
	INX	H
	JZ	L0220F
	DCX	H
	CALL	L02229
	LXI	D,1
	JNC	L0220F
	DCX	D

L021EA:
	MOV	A,M
	CALL	L02229
	JNC	L0220A
	INX	H
	PUSH	H
	MOV	H,D
	MOV	L,E
	DAD	D
	DAD	H
	DAD	D
	DAD	H
	JC	L02215
	SUI	'0'
	MOV	E,A
	MVI	D,0
	DAD	D
	JC	L02215
	XCHG
	POP	H
	JMP	L021EA

L0220A:
	XCHG
	SHLD	L0275A
	XCHG

L0220F:
	XCHG
	SHLD	L02758
	XCHG
	RET

L02215:
	CALL	L00534
	DB	'NUMBER TOO LARGE',0

L02229:
	CPI	'0'
	CMC
	RNC
	CPI	'9'+1
	RET

L02230:
	PUSH	B
	PUSH	D
	LXI	H,L026A5
	MOV	A,M
	PUSH	PSW
	XRA	A
	MOV	M,A
	LXI	H,L0286C
	PUSH	H
	MOV	C,A

L0223E:
	MOV	A,C
	CPI	7FH
	JNC	L022DA
	POP	D
	PUSH	D
	CALL	L018BE
	PUSH	PSW
	CC	L007BE
	POP	PSW
	JC	L0223E
	CALL	L024F0
	CPI	13
	JZ	L022DF
	CPI	10
	JZ	L022D5
	PUSH	H
	LXI	H,L0223E
	XTHL
	CPI	1FH
	JZ	L0226D
	CPI	7FH
	JNZ	L02274

L0226D:
	CALL	L022CD

L02270:
	RZ
	JMP	L024FC

L02274:
	CPI	18H
	JZ	L0227E
	CPI	15H
	JNZ	L02283

L0227E:
	XCHG
	MVI	C,0
	MVI	A,05H

L02283:
	CPI	05H
	JZ	L024E3
	CPI	08H
	JNZ	L02294
	CALL	L022CD
	RZ
	JMP	L00BB9

L02294:
	CPI	1CH
	JNZ	L022B9

L02299:
	CALL	L022CD
	RZ
	MOV	B,A
	CALL	L00BB9
	MOV	A,B
	CALL	L022FA
	JZ	L02299

L022A8:
	CALL	L022CD
	RZ
	MOV	B,A
	CALL	L00ED7
	JNC	L022CA
	CALL	L00BB9
	JMP	L022A8

L022B9:
	CPI	12H
	JNZ	L022C4
	CALL	L024E3
	JMP	L007BE

L022C4:
	CPI	03H
	JZ	L004B3
	MOV	M,A

L022CA:
	INX	H
	INR	C
	RET

L022CD:
	MOV	A,C
	ORA	A
	RZ
	DCR	C
	INR	A
	DCX	H
	MOV	A,M
	RET

L022D5:
	MVI	B,13
	JMP	L022E1

L022DA:
	MVI	A,13
	CALL	L024FC

L022DF:
	MVI	B,10

L022E1:
	STA	L0286B
	MVI	M,0
	MOV	A,B
	CALL	L024FC
	POP	H
	POP	PSW
	STA	L026A5
	POP	D
	POP	B

L022F1:
	MOV	A,M
	CALL	L022FA
	RNZ
	INX	H
	JMP	L022F1

L022FA:
	CPI	9
	RZ
	CPI	' '
	RZ
	CPI	10
	RZ
	CPI	13
	RET

L02306:
	XTHL
	PUSH	PSW
	CALL	L02318
	POP	PSW
	XTHL
	RET

L0230E:
	PUSH	PSW
	XCHG
	PUSH	H
	CALL	L02318
	POP	H
	XCHG
	POP	PSW
	RET

L02318:
	MOV	A,M
	ORA	A
	RZ
	CALL	L024FC
	INX	H
	JMP	L02318

L02322:
	PUSH	H
	LHLD	L025B7
	MOV	A,M
	ORA	A
	JZ	L02340
	PUSH	PSW
	MVI	M,0
	INX	H
	MOV	A,M
	INR	A
	JNZ	L02337
	LXI	H,L025B9

L02337:
	SHLD	L025B7
	CALL	L0234E
	POP	PSW
	POP	H
	RET

L02340:
	POP	H

L02341:
	CALL	L023B4
	ANI	7FH
	CALL	L0239C
	JZ	L02341
	ORA	A
	RET

L0234E:
	PUSH	H

L0234F:
	CALL	L023C0
	JZ	L02395

L02355:
	LHLD	L025B5
	MOV	A,M
	ORA	A
	JNZ	L02383
	CALL	L023B4
	ANI	7FH
	CNZ	L0239C
	JZ	L0234F
	MOV	M,A
	INX	H
	MOV	A,M
	INR	A
	JNZ	L02372
	LXI	H,L025B9

L02372:
	SHLD	L025B5
	MOV	A,M
	ORA	A
	JNZ	L02383
	CALL	L023C0
	JNZ	L02355
	JMP	L02391

L02383:
	MVI	A,'!'
	CALL	L024FC
	MVI	A,07H
	CALL	L0259B
	XRA	A
	STA	L0269B

L02391:
	POP	H
	ORI	1
	RET

L02395:
	LHLD	L025B7
	MOV	A,M
	ORA	A
	POP	H
	RET

L0239C:
	CPI	16H
	RNZ
	CALL	L023B4
	PUSH	PSW
	CALL	L0259B
	POP	PSW
	CPI	1BH
	JNZ	L023B2
	CALL	L023B4
	CALL	L0259B

L023B2:
	XRA	A
	RET

L023B4:
	MVI	A,6
	CALL	L023C7
	CPI	03H
	RNZ
	STA	L026A7
	RET

L023C0:
	MVI	A,3
	CALL	L023C7
	ORA	A
	RET

L023C7:
	PUSH	B
	PUSH	D
	PUSH	H
	LXI	H,L01FCC
	PUSH	H
	LHLD	1
	CALL	L00D4A
	MOV	A,C
	PCHL

L023D6:
	PUSH	PSW
	LDA	L026A5
	ORA	A
	JNZ	L023E3
	CALL	L0234E
	POP	PSW
	RET

L023E3:
	CALL	L023FA
	JNZ	L023EB
	POP	PSW
	RET

L023EB:
	CALL	L00534
	DB	'INTERRUPTED',0

L023FA:
	CALL	L0234E
	PUSH	H
	LXI	H,L026A7
	MOV	A,M
	MVI	M,0
	ORA	A
	POP	H
	RZ
	PUSH	B
	PUSH	H
	LXI	H,L025B9
	SHLD	L025B5
	SHLD	L025B7
	MVI	C,100
	XRA	A

L02415:
	MOV	M,A
	INX	H
	DCR	C
	JNZ	L02415
	DCR	C
	POP	H
	POP	B
	RET

L0241F:
	MVI	A,13

L02421:
	CPI	13
	CZ	L02430
	CALL	L02465
	RNC
	CALL	L02430
	JMP	L024FC

L02430:
	PUSH	PSW
	INR	E
	JZ	L0243F
	DCR	E
	NOP
	NOP
	NOP
	INR	E
	CPI	9
	JNZ	L02462

L0243F:
	LDA	L026A1
	CPI	13
	JZ	L02462
	CALL	L0234E
	LDA	EREOL
	ORA	A
	CNZ	L00239
	JNZ	L02462

L02454:
	MVI	A,' '
	CALL	L02465
	JC	L02462
	CALL	L0234E
	JMP	L02454

L02462:
	DCR	E
	POP	PSW
	RET

L02465:
	CALL	L0246C
	RC
	JMP	L024FC

L0246C:
	CPI	13
	RZ
	CPI	10
	RZ
	PUSH	B
	MOV	B,A
	LDA	L02684
	MOV	C,A
	MOV	A,B
	CPI	9
	JNZ	L02483
	MOV	A,C
	ORI	07H
	MOV	C,A
	CMA

L02483:
	CPI	' '
	JNC	L0248E
	CPI	1BH
	JZ	L0248E
	INR	C

L0248E:
	INR	C
	LDA	WID
	INR	C
	CMP	C
	MOV	A,B
	POP	B
	RET

L02497:
	CALL	L0249A

L0249A:
	PUSH	H

L0249B:
	PUSH	PSW
	LXI	H,L02684
	CPI	' '
	JC	L024B7

L024A4:
	INR	M
	LDA	WID
	CMP	M
	JZ	L024AF
	JNC	L024D1

L024AF:
	MVI	M,2
	DCX	H
	INR	M
	POP	PSW
	JMP	L0249B

L024B7:
	CPI	1BH
	JZ	L024A4
	CPI	10
	JZ	L024CF
	CPI	13
	JZ	L024D4
	CPI	9
	JZ	L024DC
	INR	M
	JMP	L024A4

L024CF:
	DCX	H
	INR	M

L024D1:
	POP	PSW
	POP	H
	RET

L024D4:
	CALL	L0234E
	MVI	M,0
	POP	PSW
	POP	H
	RET

L024DC:
	MOV	A,M
	ORI	07H
	MOV	M,A
	JMP	L024A4

L024E3:
	PUSH	PSW
	MVI	A,13
	CALL	L024FC
	MVI	A,10
	CALL	L024FC
	POP	PSW
	RET

L024F0:
	CPI	08H
	RZ
	CPI	7FH
	RZ
	CPI	1FH
	RZ
	CPI	1CH
	RZ

L024FC:
	PUSH	PSW
	PUSH	H
	CPI	1BH
	JNZ	L02505
	MVI	A,'$'

L02505:
	CPI	7FH
	JNZ	L0250C
	MVI	A,'~'

L0250C:
	PUSH	PSW
	CALL	L0246C
	JNC	L0251B
	CALL	L02306
	DB	13,10,'>>',0

L0251B:
	LHLD	L025A7
	CPI	13
	JNZ	L02529
	LXI	H,L025A9
	JMP	L0255B

L02529:
	CPI	9
	JNZ	L02548
	INX	H
	MOV	A,M
	INR	A
	JNZ	L02535
	DCX	H

L02535:
	MVI	M,0

L02537:
	MVI	A,' '
	CALL	L02567
	INR	M
	LDA	L02684
	ANI	07H
	JNZ	L02537
	JMP	L0255B

L02548:
	CPI	' '
	JNC	L0255B
	CPI	10
	JZ	L0255B
	MVI	A,'^'
	CALL	L02567
	POP	PSW
	ADI	40H
	PUSH	PSW

L0255B:
	SHLD	L025A7
	POP	PSW
	POP	H
	CPI	9
	CNZ	L02567
	POP	PSW
	RET

L02567:
	PUSH	PSW
	CALL	L0259B
	POP	PSW
	PUSH	PSW
	PUSH	H
	CALL	L02574
	POP	H
	POP	PSW
	RET

L02574:
	LXI	H,L02684
	CPI	10
	JZ	L02586
	CPI	13
	JNZ	L02584
	MVI	M,0
	RET

L02584:
	INR	M
	RET

L02586:
	DCX	H
	INR	M
	LDA	HITE
	DCR	A
	CMP	M
	RNC
	DCR	M
	DCX	H
	INR	M
	RET

L02592:
	PUSH	PSW
	XRA	A
	STA	L026A1
	POP	PSW
	JMP	L0259E

L0259B:
	STA	L026A1

L0259E:
	PUSH	B
	MOV	C,A
	MVI	A,9
	CALL	L023C7
	POP	B
	RET

L025A7:	DW	L025A9
L025A9:	DB	0FFH
	DS	10
	DB	0FFH
L025B5:	DW	L025B9
L025B7:	DW	L025B9
L025B9:	DS	100
	DB	0FFH

	DS	((($+128)/128)*128)-$-1
	DB	0

L02680:	DS	2
L02682:	DS	1
L02683:	DS	1
L02684:	DS	1
L02685:	DS	2
L02687:	DS	2
L02689:	DS	2
L0268B:	DS	2
L0268D:	DS	1
	DS	1
L0268F:	DS	2
L02691:	DS	2
L02693:	DS	2
L02695:	DS	2
L02697:	DS	2
L02699:	DS	2
L0269B:	DS	1
L0269C:	DS	1
L0269D:	DS	1
L0269E:	DS	1
L0269F:	DS	1
L026A0:	DS	1
L026A1:	DS	1
L026A2:	DS	1
L026A3:	DS	1
L026A4:	DS	1
L026A5:	DS	1
L026A6:	DS	1
L026A7:	DS	1
L026A8:	DS	1

L026A9:	DS	1
L026AA:	DS	1
L026AB:	DS	36

L026CF:	DS	1
L026D0:	DS	1
L026D1:	DS	36
L026F5:	DS	1

L026F6:	DS	1
L026F7:	DS	1
L026F8:	DS	36

L0271C:	DS	1
L0271D:	DS	1
L0271E:	DS	2
L02720:	DS	2
L02722:	DS	2
L02724:	DS	2
L02726:	DS	2
L02728:	DS	2
	DS	1
L0272B:	DS	1
L0272C:	DS	1
L0272D:	DS	1
L0272E:	DS	1
L0272F:	DS	2

L02731:	DS	2
L02733:	DS	2
L02735:	DS	2
L02737:	DS	2
L02739:	DS	2
L0273B:	DS	2
L0273D:	DS	2
L0273F:	DS	2
L02741:	DS	2
L02743:	DS	2
L02742:	EQU	L02741+1
L02744:	EQU	L02743+1

L02745:	DS	2
L02747:	DS	2
L02749:	DS	1
L0274A:	DS	1
L0274B:	DS	1

L0274C:	DS	1
L0274D:	DS	2
L0274F:	DS	2
	DS	1
L02752:	DS	2
L02754:	DS	2
L02756:	DS	2
L02758:	DS	2
L0275A:	DS	2
L0275C:	DS	2
L0275E:	DS	1
L0275F:	DS	1
L02760:	DS	2
L02762:	DS	1

L02763:	DS	134
L027E9:	DS	130
L0286B:	DS	1
L0286C:	DS	208
L0293C:	DS	122
L029B6:	DS	2
MEMORY:
	END