ORG	100H
	JMP	L00269

L00106:	DB	'Similar to Word-Master'
L00143:	DB	13,10,0
L00146:	DB	13,10,'SCP Super Editor version 1.00'
	DB	13,10,0

	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

CLRSCRN	MOV	AL,0CH		; Clear screen.
	JMP	OUTCHR
	DB	0,0,0,0,0

TCURSOR	PUSH	DS		; Position cursor.
	PUSH	AX
	PUSH	BX
	MOV	AX,0FE00H	; Screen segment.
	MOV	DS,AX
	MOV	BX,[07D0H]	; Get cursor position.
	AND	B,[BX],7FH	; Turn off cursor.
	POP	BX		; Get new cursor position.
	MOV	AL,80		; 80 characters/line.
	MUL	AL,BL		; Multiply line number by 80.
	PUSH	BX		; Save again.
	MOV	BL,BH		; BX = column number.
	JP	CONT		; Out of space - continue below.

PBEGMEM	DW	MEMORY		; Address of scratch RAM.
HITE:	DB	24		; Terminal hight.
WID:	DB	80		; Terminal width.
EREOL:	DB	0BH		; Erase to end-of-line character.
	DB	0
NOVIO:	DB	0FFH		; No IMSAI VIO board.
	DB	0
	DB	0
	DB	0
DELCLR:	DB	0		; Clear screen delay.
DELCUS:	DB	0		; Position cursor delay.
DELERE:	DB	0		; Erase-to-End-Of-Line delay.

CONT:	XOR	BH,BH		; Continue cursor poitioning here.
	ADD	BX,AX		; Add in column number to find address.
	OR	B,[BX],80H	; Turn on new cursor.
	MOV	[07D0H],BX	; Save new cursor position.
	POP	BX		; POP registers.
	POP	AX
	POP	DS
	RET

	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0

	JMP	L0024F
OUTCHR:	JMP	L02592

L001F2:
	MOV	BX,0
	MOV	[L02683],BX
	PUSH	CX
	PUSH	DX
	PUSH	BX
	CALL	CLRSCRN
	MOV	AL,[DELCLR]
	CALL	L0024F
	POP	BX
	POP	DX
	POP	CX
	RET

L00208:
	MOV	BX,[L0268F]

L0020B:
	XOR	AL,AL
	MOV	[L026A1],AL
	PUSH	DX
	XCHG	DX,BX
	MOV	BX,[L02683]
	CALL	L01F9F
	XCHG	DX,BX
	POP	DX
	JZ	RET
	MOV	[L02683],BX
	PUSH	CX
	PUSH	DX
	PUSH	BX
	CALL	TCURSOR
	MOV	AL,[DELCUS]
	CALL	L0024F
	POP	BX
	POP	DX
	POP	CX
	JMP	L0234E

L0022F:
	PUSH	BX
	MOV	BX,[L02683]
	DEC	BH
	CALL	L0020B
	POP	BX
	RET

L00239:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	AL,[EREOL]
	CALL	L0259B
	MOV	AL,[EREOL+1]
	OR	AL,AL
	JZ	L0000
	CALL	L0259B
L0000:	
	MOV	AL,[DELERE]
	CALL	L0024F
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L0024F:
	INC	AL

L00250:
	DEC	AL
	JZ	RET
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L0234E
	XOR	AL,AL
	NOP

L00258:
	DEC	AL
	JNZ	L00258
	POP	AX
	XCHG	AH,AL
	SAHF
	JMP	L00250

L00269:
	MOV	SP,L029B6
	XOR	AL,AL
	CALL	L00274
	CALL	L01FD9
	DB	0

L00274:
	MOV	[L0274C],AL
	MOV	BX,0
	LAHF
	ADD	BX,SP
	RCR	SI
	SAHF
	RCL	SI
	MOV	[L02760],BX
	MOV	DX,L00146
	CALL	L0230E
	MOV	DX,L00106
	CALL	L0230E
	MOV	AL,0FFH
	MOV	[L0274B],AL
	MOV	AL,[NOVIO]
	MOV	BX,L02749
	MOV	B,[BX],0FFH
	MOV	BX,[PBEGMEM]
	XCHG	DX,BX
	MOV	BX,L02731
	MOV	AL,4

L002E3:
	MOV	[BX],DL
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DH
	LAHF
	INC	BX
	SAHF
	DEC	AL
	JNZ	L002E3
	XOR	AL,AL
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	XCHG	DX,BX
	MOV	[L02739],BX

L002F2:
	MOV	BX,[L02739]
	MOV	[L0273B],BX
	MOV	[L0273D],BX
	MOV	[L0273F],BX
	MOV	[L02741],BX
	MOV	DX,L02680
	MOV	CL,0B1H
	XOR	AL,AL

L00307:
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	DEC	CL
	JNZ	L00307
	MOV	[5BH],AL
	MOV	[68H],AL
	MOV	[6BH],AL
	MOV	[7DH],AL
	MOV	BX,[6]
	LAHF
	DEC	BX
	SAHF
	MOV	[L02743],BX
	MOV	AL,[PBEGMEM+1]
	ADD	AL,0FH
	CMP	AL,BH
	JC	L00345
	CALL	L01FE7
	DB	'Not Enough Memory',0

L00345:
	MOV	AL,BH
	OR	AL,AL
	RCR	AL
	RCR	AL
	RCR	AL
	INC	AL
	INC	AL
	AND	AL,3CH
	MOV	CH,AL
	MOV	[L0272B],AL
	ROL	AL
	MOV	[L0272E],AL
	MOV	AL,CH
	CMP	AL,8
	JNC	L0035E
	MOV	AL,8

L0035E:
	MOV	[L0272F+1],AL
	MOV	AL,BH
	CMP	AL,100
	MOV	BX,400H
	MOV	[L02726],BX
	JC	L0036E
	LAHF
	ADD	BX,BX
	RCR	SI
	SAHF
	RCL	SI

L0036E:
	MOV	[L02728],BX
	MOV	AL,8
	MOV	[L0272C],AL
	JC	L0037A
	ADD	AL,AL

L0037A:
	MOV	[L0272D],AL
	MOV	BX,5DH
	MOV	AL,[BX]
	LAHF
	DEC	BX
	SAHF
	CMP	AL,' '
	JNZ	L00397
	CALL	L01FE7
	DB	'No File Name',0

L00397:
	MOV	AL,[BX]
	CALL	L02052
	MOV	[BX],AL
	MOV	DX,L026AB
	PUSH	DX
	MOV	CX,10H
	CALL	L01F0C
	MOV	AL,[BX]
	POP	BX
	OR	AL,AL
	JZ	L003B0
	CALL	L02052
	MOV	[BX],AL

L003B0:
	MOV	AL,[5CH]
	CMP	AL,[BX]
	JZ	L003BC
	MOV	AL,0FFH
	MOV	[L0271C],AL

L003BC:
	MOV	AL,[BX]
	MOV	DX,L026D1
	MOV	DI,DX
	STOB
	MOV	BX,L0043B
	MOV	CX,0BH
	LAHF
	INC	DX
	SAHF
	CALL	L01F0C
	MOV	AL,[L0271C]
	OR	AL,AL
	JZ	L003FD
	MOV	DX,L026AB
	CALL	L01FF4
	JZ	L003FD
	CALL	L01FE7
	DB	'File Exists On Destination Disk',0

L003FD:
	MOV	DX,5CH
	CALL	L01FF4
	MOV	AL,0FFH
	JZ	L0040E
	MOV	[5BH],AL
	JMP	L00421

L0040E:
	MOV	[L0271D],AL
	CALL	L02306
	DB	13,10,'New File',13,10,13,10,0

L00421:
	MOV	DX,L026AB+9
	PUSH	DX
	CALL	L01F06
	MOV	DX,L026AB
	CALL	L02028
	POP	DX
	MOV	BX,L00443
	CALL	L01F09
	CALL	L01C4D
	JMP	L004B9

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

L00446:
	CALL	L00468
	CALL	L02005
	MOV	BX,5CH
	MOV	AL,[BX]
	MOV	[6CH],AL

L00453:
	MOV	AL,[L026AB]
	MOV	[BX],AL
	JMP	L002F2

L0045A:
	CALL	L00468
	MOV	DX,L026D1

L00460:
	CALL	L02028

L00463:
	MOV	BX,[L02760]
	MOV	SP,BX
	RET

L00468:
	CALL	L01D51
	MOV	BX,L0271D
	MOV	AL,[BX]
	OR	AL,AL
	MOV	DX,5CH
	MOV	BX,L01F53
	JNZ	L0001
	CALL	L0206D
L0001:	
	MOV	DX,L026AB
	MOV	BX,65H
	JMP	L0206D

L00482:
	CALL	L00497
	JNZ	L004B9
	CALL	L02005
	MOV	DX,L026AB
	CALL	L02008
	MOV	BX,6CH
	JMP	L00453

L00497:
	CALL	L02306
	DB	13,10,'Abort (Y/N)? ',0
	CALL	L02230
	CALL	L0064C
	CMP	AL,'Y'
	RET

L004B3:
	CALL	L00497
	JZ	L00463

L004B9:
	MOV	BX,[L02760]
	MOV	SP,BX
	MOV	BX,L004B9
	PUSH	BX
	CALL	L023FA
	CALL	L00668
	MOV	BX,L026A8
	MOV	AL,[BX]

L004CB:
	OR	AL,AL
	JNZ	L004DE
	DEC	B,[BX]
	MOV	BX,L0286C
	MOV	B,[BX],0
	MOV	[L0274D],BX
	CALL	L010F7
	CALL	L00668

L004DE:
	MOV	AL,'*'
	CALL	L024FC
	CALL	L02230
	MOV	[L0274D],BX
	MOV	AL,[BX]
	OR	AL,AL
	JNZ	L004F6
	MOV	AL,[L0286B]
	CMP	AL,10
	JNZ	$+5
	JMP	L0078D

L004F6:
	MOV	CH,AL
	PUSH	BX
	LAHF
	INC	BX
	SAHF
	CALL	L022F1
	POP	BX
	OR	AL,AL
	JNZ	L00519
	MOV	AL,CH
	CALL	L0064C
	CMP	AL,'H'
	JNZ	$+5
	JMP	L00446
	CMP	AL,'Q'
	JZ	L004B3
	CMP	AL,'O'
	JNZ	$+5
	JMP	L00482
	CMP	AL,'E'
	JNZ	$+5
	JMP	L0045A

L00519:
	CALL	L00541
	JZ	RET

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

L00527:
	MOV	BX,[L0274D]
	XCHG	DX,BX
	CALL	L0230E
	CALL	L024E3
	JMP	L004B9

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

L00541:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	MOV	[L0274F],BX
	CALL	L00668
	MOV	BX,L00636
	PUSH	BX

L0054E:
	MOV	BX,[L0274F]
	CALL	L00806
	CALL	L022F1
	MOV	[L0274D],BX
	PUSH	BX
	CALL	L00649
	MOV	[L0274F],BX
	POP	BX
	OR	AL,AL

L00563:
	JNZ	$+5
	JMP	L00627
	CMP	AL,'>'
	JNZ	$+5
	JMP	L00627
	CMP	AL,';'
	JNZ	$+5
	JMP	L0067C
	CMP	AL,11H
	JNZ	$+5
	JMP	L01954
	CMP	AL,04H
	JNZ	$+5
	JMP	L0062C
	CMP	AL,'V'
	JNZ	$+5
	JMP	L010F7
	CALL	L021B4
	CALL	L022F1
	MOV	[L02754],BX

L00588:
	MOV	BX,[L02754]
	CALL	L00649
	MOV	[L02752],BX
	MOV	[L0274F],BX
	OR	AL,AL
	JNZ	$+5
	JMP	L00790
	CMP	AL,'C'
	JNZ	$+5
	JMP	L0072C
	CMP	AL,'D'
	JNZ	$+5
	JMP	L00732
	CMP	AL,'K'
	JNZ	$+5
	JMP	L00778
	CMP	AL,'L'
	JNZ	$+5
	JMP	L00754
	CMP	AL,'P'
	JNZ	$+5
	JMP	L007CD
	CMP	AL,'T'
	JNZ	$+5
	JMP	L0079A
	PUSH	BX
	MOV	BX,[L02758]
	XCHG	DX,BX
	MOV	BX,2
	CALL	L01F9F
	POP	BX
	JNC	L005CA
	CMP	AL,'B'
	JNZ	$+5
	JMP	L00747

L005CA:
	CMP	AL,'/'
	JNZ	L005DD
	MOV	AL,0FFH
	MOV	[L0275E],AL
	CALL	L00649
	MOV	[L0274F],BX
	MOV	[L02752],BX

L005DD:
	CMP	AL,'F'
	JNZ	$+5
	JMP	L00835
	CMP	AL,'N'
	JNZ	$+5
	JMP	L0083B
	CMP	AL,'R'
	JNZ	$+5
	JMP	L00847
	CMP	AL,'S'
	JNZ	$+5
	JMP	L00841
	CALL	L00655
	CMP	AL,'Q'
	JNZ	$+5
	JMP	L006AB
	CALL	L0065F
	JNZ	L00627
	CMP	AL,'A'
	JNZ	$+5
	JMP	L008D4
	CMP	AL,'I'
	JNZ	$+5
	JMP	L008D7
	CMP	AL,'Z'
	JNZ	$+5
	JMP	L0080F
	CMP	AL,'<'
	JNZ	$+5
	JMP	L00689
	CMP	AL,'M'
	JNZ	$+5
	JMP	L00689
	CMP	AL,'!'
	JNZ	$+5
	JMP	L008F4
	CMP	AL,'W'
	JNZ	$+5
	JMP	L01A20
	CMP	AL,'Y'
	JNZ	$+5
	JMP	L019DF

L00627:
	POP	BX
	OR	AL,AL
	JMP	L01FCC

L0062C:
	MOV	AL,[L0274C]
	OR	AL,AL
	JZ	L00627
	JMP	38H

L00636:
	LAHF
	DEC	SP
	SAHF
	LAHF
	DEC	SP
	SAHF
	CALL	L00668
	CALL	L00828
	JZ	$+5
	JMP	L00588
	JMP	L0054E

L00644:
	MOV	AL,[BX]
	OR	AL,AL
	JZ	RET
	LAHF
	INC	BX
	SAHF
	RET

L00649:
	CALL	L00644

L0064C:
	CMP	AL,'a'
	JC	RET
	CMP	AL,'{'
	JNC	RET
	AND	AL,0DFH
	RET

L00655:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	AL,[L0275C]
	OR	AL,AL
	JNS	$+5
	JMP	L0051D
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L0065F:
	PUSH	CX
	MOV	CH,AL
	MOV	AL,[L0275E]
	OR	AL,AL
	MOV	AL,CH
	POP	CX
	RET

L00668:
	MOV	BX,200H
	MOV	[L02745],BX
	MOV	[L02747],BX
	MOV	BX,0
	MOV	[L0275E],BX
	DEC	BL
	MOV	[L026A5],BX
	RET

L0067C:
	MOV	[L0274F],BX
	CALL	L00644
	JZ	RET
	CMP	AL,13
	JZ	RET
	JMP	L0067C

L00689:
	XCHG	DX,BX
	CALL	L00719
	MOV	BX,[L0275A]
	XCHG	DX,BX

L00691:
	CALL	L00541
	JC	RET
	CMP	AL,'>'
	JZ	L0069E
	OR	AL,AL
	JZ	$+5
	JMP	L0051D

L0069E:
	MOV	AL,DH
	OR	AL,DL
	JZ	RET
	LAHF
	DEC	DX
	SAHF
	MOV	AL,DH
	OR	AL,DL
	JZ	RET
	CALL	L023D6
	JMP	L00691

L006AB:
	CALL	L00649
	MOV	[L0274F],BX
	MOV	[L02752],BX
	CMP	AL,'P'
	JNZ	$+5
	JMP	L00A5B
	CMP	AL,'X'
	JZ	L006DA
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L0081A
	POP	AX
	XCHG	AH,AL
	SAHF
	CMP	AL,'L'
	JNZ	$+5
	JMP	L00A2E
	CMP	AL,'T'
	JNZ	$+5
	JMP	L00A3A
	CMP	AL,'K'
	JNZ	$+5
	JMP	L00A47
	CMP	AL,'G'
	JNZ	$+5
	JMP	L00A4E
	JMP	L0051D

L006DA:
	CALL	L00719
	MOV	BX,[L0274F]
	PUSH	BX
	MOV	BX,[L02754]
	PUSH	BX

L006E5:
	MOV	BX,[L02758]
	PUSH	BX
	CALL	L01EB9
	MOV	BX,[L02733]
	CALL	L00541
	JC	L006F8
	JNZ	L0070E

L006F8:
	POP	BX
	MOV	[L02758],BX
	JNC	L0002
	CALL	L00806
L0002:	
	CALL	L0081A
	JNZ	L006E5
	POP	BX
	MOV	[L02754],BX
	POP	BX
	MOV	[L0274F],BX
	RET

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

L00719:
	MOV	BX,STKBIAS
	LAHF
	ADD	BX,SP
	RCR	SI
	SAHF
	RCL	SI
	JC	RET
	CALL	L00534
	DB	'Stack Overflow',0

L0072C:
	CALL	L00DA0
	JMP	L01A87

L00732:
	CALL	L00DA0

L00735:
	JS	L0073E
	MOV	[L0273F],BX
	JMP	L00741

L0073E:
	MOV	[L0273D],BX

L00741:
	CALL	L01D9B
	JMP	L01A8D

L00747:
	MOV	AL,[L0275C]
	NOT	AL

L0074B:
	MOV	BX,0FFFFH

L0074E:
	MOV	[L0275C],AL

L00751:
	MOV	[L02758],BX

L00754:
	CALL	L00E04
	CALL	L01A87
	CALL	L00828
	JNZ	L00754
	RET

L00761:
	MOV	DX,1

L00764:
	MOV	BX,[L02758]
	PUSH	BX
	XCHG	DX,BX
	CALL	L00751
	POP	BX
	MOV	[L02758],BX
	RET

L00771:
	MOV	AL,0FFH
	JMP	L0074E

L00774:
	XOR	AL,AL
	JMP	L0074E

L00778:
	CALL	L00E04
	JMP	L00735

L0077E:
	MOV	BX,1

L00781:
	XOR	AL,AL

L00782:
	MOV	[L0275C],AL
	XOR	AL,AL
	MOV	[L0271E],AL
	MOV	[L02758],BX
	RET

L0078D:
	CALL	L0077E

L00790:
	CALL	L00754
	MOV	BX,1

L00796:
	XOR	AL,AL
	CALL	L00782

L0079A:
	CALL	L00DE8
	XCHG	DX,BX
	JS	L007B3
	MOV	BX,[L0273F]
	XCHG	DX,BX
	JNC	L007BB
	CALL	L007BB
	MOV	AL,'}'

L007AD:
	CALL	L024FC
	JMP	L024FC

L007B3:
	MOV	BX,[L0273D]
	MOV	AL,'{'
	JNC	L0003
	CALL	L007AD
L0003:	

L007BB:
	CALL	L00806

L007BE:
	CALL	L01F9F
	JZ	RET
	MOV	SI,DX
	LODB
	CALL	L024FC
	LAHF
	INC	DX
	SAHF
	CALL	L023D6
	JMP	L007BE

L007CD:
	MOV	BX,[L02758]
	PUSH	BX
	MOV	BX,[L0275C]
	PUSH	BX
	CALL	L00828
	MOV	BX,[HITE]
	MOV	BH,0
	LAHF
	DEC	BX
	SAHF
	PUSH	BX
	JZ	L0004
	CALL	L00751
L0004:	
	POP	BX
	CALL	L00796
	POP	BX
	MOV	[L0275C],BX
	POP	BX
	MOV	[L02758],BX
	CALL	L0081A
	CALL	L01CB5
	JNZ	RET
	MOV	AL,[L0275C]
	OR	AL,AL
	MOV	BX,L0273F
	JNS	L00802
	MOV	BX,L0273B

L00802:
	CALL	L01EFB
	JNZ	RET

L00806:
	PUSH	BX
	MOV	BX,0
	CALL	L00781
	POP	BX
	RET

L0080F:
	MOV	BX,0A000H

L00812:
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	LAHF
	DEC	BX
	SAHF
	MOV	AL,BH
	OR	AL,BL
	JNZ	L00812

L0081A:
	PUSH	BX
	MOV	BX,[L02758]
	MOV	AL,BH
	OR	AL,BL
	JZ	L00824
	LAHF
	DEC	BX
	SAHF

L00824:
	MOV	[L02758],BX
	POP	BX

L00828:
	PUSH	BX
	MOV	BX,[L02758]
	MOV	AL,[L0271E]
	OR	AL,BH
	OR	AL,BL
	POP	BX
	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	BX
	OR	AL,AL
	STC
	JMP	L01FCC

L0086A:
	CALL	L00719
	CALL	L00870

L00870:
	MOV	BX,[L0274F]
	CALL	L00649
	MOV	[L0274F],BX
	CMP	AL,'<'

L0087B:
	JZ	L0086A
	CMP	AL,'M'
	JZ	L0086A
	CMP	AL,'A'
	JZ	L008CE
	CMP	AL,'F'
	JZ	L008CE
	CMP	AL,'I'
	JZ	L008CE
	CMP	AL,'N'
	JZ	L008CE
	CMP	AL,'R'
	JZ	L008CB
	CMP	AL,'S'
	JZ	L008CB
	CMP	AL,'W'
	JZ	L008CE
	CMP	AL,'Y'
	JZ	L008CE
	CMP	AL,';'
	JNZ	L0005
	CALL	L0067C
L0005:	
	JZ	L00870
	CMP	AL,'Q'
	JNZ	L008C3
	CALL	L00649
	MOV	[L0274F],BX
	CMP	AL,'L'
	JZ	L008CE

L008C3:
	CMP	AL,'>'
	JZ	RET
	OR	AL,AL
	JZ	RET
	JMP	L00870

L008CB:
	CALL	L0091A

L008CE:
	CALL	L0091A
	JMP	L00870

L008D4:
	CALL	L00761

L008D7:
	MOV	BX,[L02752]
	MOV	AL,[BX]
	OR	AL,AL
	JNZ	$+5
	JMP	L00ACE
	CALL	L00913
	CALL	L00C1B
	MOV	AL,[L02762]
	OR	AL,AL
	MOV	DX,L00143
	MOV	AL,2
	JNZ	L0006
	CALL	L00C23
L0006:	
	JMP	L0081A

L008F4:
	MOV	AL,[L02758]
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L00806
	POP	AX
	XCHG	AH,AL
	SAHF
	AND	AL,7FH
	CALL	L00BAC
	CMP	AL,1AH
	JNZ	RET

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

L00913:
	PUSH	BX
	MOV	BX,[L02752]
	JMP	L0091E

L0091A:
	PUSH	BX
	MOV	BX,[L0274F]

L0091E:
	PUSH	CX
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	DX,L02763
	PUSH	DX
	MOV	CL,0FFH

L00926:
	CALL	L00644
	CMP	AL,0EH
	JNZ	L0093B
	MOV	AL,13
	INC	CL
	LAHF
	INC	DX
	SAHF
	MOV	DI,DX
	STOB
	MOV	AL,10

L00935:
	INC	CL
	LAHF
	INC	DX
	SAHF
	MOV	DI,DX
	STOB
	JMP	L00926

L0093B:
	CMP	AL,19H
	JNZ	L00945
	MOV	AL,1BH
	JMP	L00935

L00945:
	CALL	L0095B
	JNZ	L00926
	MOV	[L02762],AL
	MOV	[L0274F],BX
	XOR	AL,AL
	MOV	DI,DX
	STOB
	POP	DX
	MOV	AL,CL
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	CX
	POP	BX
	RET

L0095B:
	INC	CL
	LAHF
	INC	DX
	SAHF
	MOV	DI,DX
	STOB

L0095E:
	CMP	AL,1AH
	JZ	RET
	CMP	AL,1BH
	JZ	RET
	OR	AL,AL
	RET

L00966:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	PUSH	DX
	XOR	AL,AL
	MOV	CL,16

L0096D:
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	DEC	CL
	JNZ	L0096D
	POP	DX
	PUSH	DX
	MOV	BX,[L0274F]
	CALL	L022F1
	MOV	AL,[L0274B]
	OR	AL,AL
	JNZ	L0099A
	PUSH	DX
	MOV	[L0274F],BX
	MOV	CX,19FH
	MOV	DX,L0274F
	CALL	5
	MOV	BX,[L0274F]
	POP	DX
	JS	L009AC
	MOV	DI,DX
	STOB
	JMP	L009AC

L0099A:
	LAHF
	INC	BX
	SAHF
	MOV	AL,[BX]
	LAHF
	DEC	BX
	SAHF
	CMP	AL,':'
	JNZ	L009AC
	CALL	L00A12
	JZ	L009AC
	SUB	AL,'@'
	MOV	DI,DX
	STOB
	LAHF
	INC	BX
	SAHF

L009AC:
	LAHF
	INC	DX
	SAHF
	MOV	CL,8
	CALL	L009F4
	CMP	AL,'.'
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	PUSH	BX
	MOV	BX,L009F0
	JZ	L0007
	CALL	L01F09
L0007:	
	POP	BX
	POP	AX
	XCHG	AH,AL
	SAHF
	MOV	CL,3
	JNZ	L0008
	CALL	L009F3
L0008:	
	POP	DX
	LAHF
	INC	DX
	SAHF
	MOV	SI,DX
	LODB
	LAHF
	DEC	DX
	SAHF
	CMP	AL,' '
	JZ	L009DB
	CALL	L022F1
	CALL	L00644
	MOV	[L0274F],BX
	CALL	L0095E
	JNZ	$+5
	JMP	L01FCC

L009DB:
	CALL	L00534
	DB	'Invalid File Name',0

L009F0:	DB	'LIB'

L009F3:
	LAHF
	INC	BX
	SAHF

L009F4:
	CALL	L00A12
	JZ	L00A07
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	DEC	CL
	JNZ	L009F4

L00A00:
	CALL	L00A12
	JNZ	L00A00
	RET

L00A07:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL

L00A08:
	MOV	AL,' '
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	DEC	CL
	JNZ	L00A08
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L00A12:
	MOV	AL,[BX]
	CALL	L00A1D
	JZ	RET
	LAHF
	INC	BX
	SAHF
	CALL	L0064C
	OR	AL,AL
	RET

L00A1D:
	CMP	AL,'.'
	JZ	RET
	CMP	AL,':'
	JZ	RET
	CMP	AL,'*'
	JZ	RET
	CMP	AL,'?'
	JZ	RET
	CMP	AL,' '
	JNC	RET
	CMP	AL,AL
	RET

L00A2E:
	CALL	L00A43
	CALL	L00913
	MOV	BX,L02735
	JMP	L00C1E

L00A3A:
	MOV	BX,L02733
	CALL	L01F91
	JMP	L007BE

L00A43:
	CALL	L0065F
	JNZ	RET

L00A47:
	MOV	BX,[L02733]
	MOV	[L02735],BX
	RET

L00A4E:
	MOV	BX,L02733
	CALL	L01EFB
	CALL	L01F95
	XCHG	DX,BX
	JMP	L00C29

L00A5B:
	CALL	L00A43

L00A5E:
	MOV	BX,L02735
	CALL	L00C68
	CALL	L00E04
	XCHG	DX,BX
	MOV	BX,[L0273F]
	XCHG	DX,BX
	CALL	L01F85
	MOV	BX,L02735
	CALL	L00A82
	CALL	L01EB9
	CALL	L01A8D
	CALL	L00828
	JNZ	L00A5E
	RET

L00A82:
	CALL	L00C8D
	JZ	RET

L00A86:
	CALL	L00C68
	CALL	L00AA1
	XCHG	DX,BX
	MOV	BX,[L0273F]
	XCHG	DX,BX
	CALL	L00C3F
	XCHG	DX,BX
	MOV	[L0273F],BX
	XCHG	DX,BX
	CALL	L01D9B
	DEC	CH
	JNZ	L00A86
	RET

L00AA1:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	MOV	BX,L02733
	CALL	L01EFB
	MOV	BX,[L02731]
	XCHG	DX,BX
	MOV	BX,[L02743]
	CALL	L01F7C
	CALL	L01F71
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	MOV	DX,0D80H
	CALL	L01F9F
	JNC	$+5
	JMP	L01FCC
	CALL	L00534
	DB	'QBUF Full',0

L00ACE:
	CALL	L00806
	CALL	L00C65

L00AD4:
	CALL	L018BE
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	JNC	L0009
	CALL	L00B85
L0009:	
	POP	AX
	XCHG	AH,AL
	SAHF
	JC	L00AD4
	CALL	L024F0
	CALL	L023D6
	CMP	AL,1AH
	JZ	RET
	CMP	AL,1BH
	JZ	RET
	MOV	BX,L00AD4
	PUSH	BX
	CMP	AL,1FH
	JZ	L00AF9
	CMP	AL,7FH
	JNZ	L00B06

L00AF9:
	CALL	L00C14
	CALL	L024FC

L00AFF:
	MOV	[L0273D],BX
	CALL	L01D9B
	RET

L00B06:
	CMP	AL,' '
	JC	$+5
	JMP	L00BAC
	CMP	AL,19H
	JNZ	L00B12

L00B10:
	MOV	AL,1BH

L00B12:
	CMP	AL,05H
	JNZ	$+5
	JMP	L024E3
	CMP	AL,15H
	JZ	L00B21
	CMP	AL,18H
	JNZ	L00B30

L00B21:
	CALL	L024E3

L00B24:
	CALL	L00C14
	CMP	AL,10
	JZ	RET
	MOV	[L0273D],BX
	JMP	L00B24

L00B30:
	CMP	AL,08H
	JNZ	L00B49
	MOV	AL,[L02684]
	OR	AL,AL
	JZ	RET
	CALL	L00C14
	CMP	AL,10
	JZ	RET
	CMP	AL,13
	JZ	RET

L00B43:
	CALL	L00BB9
	JMP	L00AFF

L00B49:
	CMP	AL,1CH
	JNZ	L00B7D

L00B4E:
	MOV	AL,[L02684]
	OR	AL,AL
	JZ	RET
	CALL	L00C14
	CMP	AL,13
	JZ	RET
	CMP	AL,10
	JZ	RET
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L00B43
	POP	AX
	XCHG	AH,AL
	SAHF
	CMP	AL,9
	JZ	L00B4E
	CMP	AL,' '
	JZ	L00B4E

L00B6B:
	MOV	AL,[L02684]
	OR	AL,AL
	JZ	RET
	CALL	L00C14
	CALL	L00ED7
	JNC	RET
	CALL	L00B43
	JMP	L00B6B

L00B7D:
	CMP	AL,12H
	JNZ	L00B9D
	CALL	L024E3

L00B85:
	MOV	BX,[L0273D]

L00B88:
	LAHF
	DEC	BX
	SAHF
	CALL	L00BEB
	JC	L00B95
	MOV	AL,[BX]
	CMP	AL,10
	JNZ	L00B88

L00B95:
	LAHF
	INC	BX
	SAHF
	XCHG	DX,BX
	MOV	BX,[L0273D]
	JMP	L007BE

L00B9D:
	CMP	AL,13
	JNZ	L00BAC

L00BA2:
	MOV	AL,13
	CALL	L00BAC
	MOV	AL,10
	CALL	L024FC

L00BAC:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L00C55
	CALL	L01F95
	POP	AX
	XCHG	AH,AL
	SAHF
	MOV	[BX],AL
	LAHF
	INC	BX
	SAHF
	JMP	L00AFF

L00BB9:
	CMP	AL,9
	JNZ	L00BD6
	XCHG	DX,BX
	MOV	BX,[L025A7]
	MOV	CH,[BX]
	XCHG	DX,BX
	INC	CH
	JZ	RET
	DEC	CH
	JZ	RET

L00BC8:
	CALL	L00BE0
	DEC	CH
	JNZ	L00BC8
	XCHG	DX,BX
	LAHF
	DEC	BX
	SAHF
	MOV	[L025A7],BX
	XCHG	DX,BX
	RET

L00BD6:
	CMP	AL,1BH
	JZ	L00BE0
	CMP	AL,' '
	JNC	L0010
	CALL	L00BE0
L0010:	

L00BE0:
	CALL	L0022F
	MOV	AL,' '
	CALL	L02567
	JMP	L0022F

L00BEB:
	XCHG	DX,BX
	MOV	BX,[L0273B]
	CALL	L01F9F
	XCHG	DX,BX
	JNC	RET
	XCHG	DX,BX
	MOV	BX,[L0273D]
	CALL	L01F7B
	PUSH	BX
	CALL	L01CC1
	MOV	BX,[L0273D]
	POP	DX
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L00C07:
	MOV	BX,[L0273D]
	LAHF
	DEC	BX
	SAHF
	PUSH	DX
	CALL	L00BEB
	POP	DX
	JC	RET
	MOV	AL,[BX]
	OR	AL,AL
	RET

L00C14:
	CALL	L00C07
	JNC	RET
	LAHF
	INC	SP
	SAHF
	LAHF
	INC	SP
	SAHF
	RET

L00C1B:
	MOV	BX,L0273D

L00C1E:
	MOV	DX,L02763
	MOV	SI,DX
	LODB
	LAHF
	INC	DX
	SAHF

L00C23:
	MOV	CL,AL
	MOV	CH,0
	JMP	L00C2C

L00C29:
	MOV	BX,L0273D

L00C2C:
	CALL	L01D92
	CALL	L00C8D
	JZ	RET

L00C33:
	CALL	L00C68
	CALL	L00C3F
	DEC	CH
	JNZ	L00C33
	OR	AL,AL
	RET

L00C3F:
	PUSH	BX
	CALL	L01F95

L00C43:
	MOV	SI,DX
	LODB
	AND	AL,7FH
	MOV	[BX],AL
	LAHF
	INC	DX
	SAHF
	LAHF
	INC	BX
	SAHF
	DEC	CL
	JNZ	L00C43
	XCHG	DX,BX
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	MOV	[BX],DL
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DH
	LAHF
	DEC	BX
	SAHF

L00C53:
	POP	DX
	RET

L00C55:
	PUSH	DX
	MOV	BX,[L0273D]
	XCHG	DX,BX
	MOV	BX,[L0273F]
	CALL	L01F9F
	POP	DX
	MOV	BX,L0273D
	JC	RET

L00C65:
	MOV	BX,L0273D

L00C68:
	PUSH	CX
	PUSH	DX
	PUSH	BX

L00C6B:
	CALL	L01EFB
	MOV	AL,CH
	OR	AL,AL
	JZ	$+5
	JMP	L01FCC
	CALL	L01E95
	MOV	AL,DH
	OR	AL,AL
	JZ	$+5
	JMP	L01E4C
	CALL	L01A9E
	JNC	L00C6B
	CALL	L00534
	DB	'Memory Full',0

L00C8D:
	CALL	L01F56
	INC	CH
	INC	CL
	DEC	CL
	JNZ	RET
	DEC	CH
	RET

L00C96:
	CALL	L00CBD
	JNC	RET
	CALL	L01A87
	JNC	L00C96

L00CA0:
	MOV	AL,[L0275C]
	CALL	L0074B
	STC
	RET

L00CA8:
	CALL	L00CF3
	JNC	RET
	CALL	L01A87
	JNC	L00CA8
	JMP	L00CA0

L00CB5:
	CALL	L00CBD
	JNC	RET
	CALL	L01AAE
	JC	RET

L00CBD:
	CALL	L00913
	MOV	AL,[L0275C]
	OR	AL,AL
	JS	L00CD8
	MOV	BX,L0273F
	CALL	L00D24
	MOV	BX,[L0273F]
	JC	RET
	CALL	L00D51

L00CD4:
	JC	RET
	JMP	L00EE5

L00CD8:
	MOV	BX,L0273B
	CALL	L00D24
	MOV	BX,[L0273D]
	JC	RET
	CALL	L00D39
	CALL	L00D79
	JMP	L00CD4

L00CEB:
	CALL	L00CF3
	JNC	RET
	CALL	L01AAE
	JC	RET

L00CF3:
	CALL	L00CBD
	MOV	AL,[L02763]
	CALL	L0091A
	JC	RET
	MOV	CH,AL
	MOV	AL,[L0275C]
	OR	AL,AL
	MOV	AL,CH
	JS	L00D12
	MOV	BX,[L0273D]
	CALL	L00D3C
	MOV	[L0273D],BX
	JMP	L00C1B

L00D12:
	MOV	BX,[L0273F]
	CALL	L00D4A
	MOV	[L0273F],BX
	CALL	L00C1B
	CALL	L00D36
	JMP	L00EE5

L00D24:
	CALL	L01EFB
	LAHF
	INC	CX
	SAHF
	LAHF
	DEC	DX
	SAHF
	MOV	SI,DX
	LODB
	LAHF
	INC	DX
	SAHF
	PUSH	CX
	MOV	CH,AL
	MOV	AL,CL
	SUB	AL,CH
	POP	CX
	MOV	CL,AL
	MOV	AL,CH
	SBB	AL,0
	MOV	CH,AL
	RET

L00D36:
	MOV	BX,[L0273D]

L00D39:
	MOV	AL,[L02763]

L00D3C:
	PUSH	BX
	MOV	BH,AL
	MOV	AL,BL
	SUB	AL,BH
	POP	BX
	MOV	BL,AL
	MOV	AL,BH
	SBB	AL,0
	MOV	BH,AL
	RET

	MOV	AL,[L02763]

L00D4A:
	ADD	AL,BL
	MOV	BL,AL
	MOV	AL,BH
	ADC	AL,0
	MOV	BH,AL
	RET

L00D51:
	MOV	SI,DX
	LODB
	OR	AL,AL
	JZ	RET
	PUSH	DX
	CALL	L00E7F
	JC	L00D77
	DEC	CH
	DEC	CL
	PUSH	BX

L00D5E:
	LAHF
	INC	DX
	SAHF
	MOV	SI,DX
	LODB
	OR	AL,AL
	JZ	L00D76
	CMP	AL,[BX]
	LAHF
	INC	BX
	SAHF
	JZ	L00D5E
	LAHF
	DEC	BX
	SAHF
	CALL	L00EAB
	LAHF
	INC	BX
	SAHF
	JZ	L00D5E
	POP	BX
	POP	DX
	JMP	L00D51

L00D76:
	POP	DX

L00D77:
	POP	DX
	RET

L00D79:
	MOV	SI,DX
	LODB
	OR	AL,AL
	JZ	RET
	LAHF
	INC	BX
	SAHF

L00D7D:
	PUSH	DX
	MOV	SI,DX
	LODB
	CALL	L00E96
	JC	L00D77
	DEC	CH
	DEC	CL
	PUSH	BX

L00D88:
	LAHF
	INC	DX
	SAHF
	LAHF
	INC	BX
	SAHF
	MOV	SI,DX
	LODB
	OR	AL,AL
	JZ	L00D99
	CMP	AL,[BX]
	JZ	L00D88
	CALL	L00EAB
	JZ	L00D88

L00D99:
	POP	BX
	POP	DX
	OR	AL,AL
	JNZ	L00D7D
	RET

L00DA0:
	PUSH	CX
	PUSH	DX
	MOV	CX,0
	MOV	BX,[L02758]
	XCHG	DX,BX
	MOV	AL,[L0275C]
	OR	AL,AL
	JS	L00DC7
	MOV	BX,[L0273F]
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	JNC	L00DBD
	LAHF
	INC	BX
	SAHF
	MOV	CH,BH
	MOV	CL,BL
	MOV	BX,0FFFFH

L00DBD:
	XCHG	DX,BX
	MOV	BX,[L02741]
	CALL	L01FBD
	JMP	L00DDF

L00DC7:
	MOV	BX,[L0273D]
	CALL	L01F7C
	JC	L00DD8
	CALL	L01F67
	MOV	CH,BH
	MOV	CL,BL
	MOV	BX,0

L00DD8:
	XCHG	DX,BX
	MOV	BX,[L0273B]
	CALL	L01FAB

L00DDF:
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	JMP	L00E4C

L00DE3:
	MOV	AL,0FFH
	CALL	L00782

L00DE8:
	PUSH	DX
	MOV	BX,[L02758]
	PUSH	BX
	CALL	L00E04
	POP	DX
	JC	$+5
	JMP	L00C53
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L01AAE
	JNC	L00DFE
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	DX
	RET

L00DFE:
	POP	AX
	XCHG	AH,AL
	SAHF
	XCHG	DX,BX
	MOV	[L02758],BX
	POP	DX

L00E04:
	PUSH	CX
	PUSH	DX
	MOV	BX,[L02758]
	XCHG	DX,BX
	MOV	BX,L0275C
	MOV	AL,DH
	OR	AL,DL
	JNZ	L00E13
	DEC	B,[BX]

L00E13:
	MOV	AL,[BX]
	OR	AL,AL
	JS	L00E2F
	CALL	L01EF8
	CALL	L01F95

L00E1E:
	CALL	L00E7D
	JC	L00E4B
	DEC	CH
	DEC	CL
	LAHF
	DEC	DX
	SAHF
	MOV	AL,DH
	OR	AL,DL
	JNZ	L00E1E
	JMP	L00E4B

L00E2F:
	LAHF
	INC	DX
	SAHF
	MOV	BX,L0273B
	CALL	L01EFB
	MOV	BX,[L0273D]

L00E39:
	CALL	L0234E
	CALL	L00E94
	JC	L00E76
	DEC	CH
	DEC	CL
	LAHF
	DEC	DX
	SAHF
	MOV	AL,DH
	OR	AL,DL
	JNZ	L00E39
	LAHF
	INC	BX
	SAHF

L00E4B:
	XCHG	DX,BX

L00E4C:
	XOR	AL,AL

L00E4D:
	MOV	[L0271E],AL
	CALL	L01CB5
	JNZ	L00E5C
	MOV	BX,0
	MOV	[L0271E],BX

L00E5C:
	MOV	[L02758],BX
	XCHG	DX,BX
	MOV	[L02756],BX
	MOV	AL,[L0275C]
	OR	AL,AL
	PUSH	BX
	MOV	BX,0FFFFH
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	JNC	$+5
	JMP	L01FCC
	MOV	BX,[L0271D]
	LAHF
	ADD	BX,BX
	RCR	SI
	SAHF
	RCL	SI
	JMP	L01FCC

L00E76:
	LAHF
	DEC	DX
	SAHF
	XCHG	DX,BX
	MOV	AL,0FFH
	JMP	L00E4D

L00E7D:
	MOV	AL,10

L00E7F:
	INC	CH
	INC	CL
	JMP	L00E8A

L00E84:
	CMP	AL,[BX]
	JZ	L0011
	CALL	L00EAB
L0011:	
	LAHF
	INC	BX
	SAHF
	JZ	RET

L00E8A:
	DEC	CL
	JNZ	L00E84
	DEC	CH
	JNZ	L00E84
	STC
	RET

L00E94:
	MOV	AL,10

L00E96:
	INC	CH
	INC	CL
	JMP	L00EA1

L00E9B:
	LAHF
	DEC	BX
	SAHF
	CMP	AL,[BX]
	JZ	L0012
	CALL	L00EAB
L0012:	
	JZ	RET

L00EA1:
	DEC	CL
	JNZ	L00E9B
	DEC	CH
	JNZ	L00E9B
	STC
	RET

L00EAB:
	CMP	AL,13H
	JZ	L00EC7
	JNC	RET
	CMP	AL,01H
	JZ	RET
	CMP	AL,0FH
	JNZ	RET
	LAHF
	INC	DX
	SAHF
	MOV	SI,DX
	LODB
	LAHF
	DEC	DX
	SAHF
	OR	AL,AL
	JZ	L00EC5
	CMP	AL,[BX]
	MOV	AL,0FH
	JZ	L00ED0
	LAHF
	INC	DX
	SAHF

L00EC5:
	CMP	AL,AL
	RET

L00EC7:
	MOV	AL,[BX]
	CALL	L00ED7
	MOV	AL,13H
	JNC	L00EC5

L00ED0:
	OR	AL,AL
	RET

L00ED2:
	CALL	L022FA
	STC
	JZ	RET

L00ED7:
	CALL	L02229
	JC	RET
	CALL	L0064C
	CMP	AL,'A'
	CMC
	JNC	RET
	CMP	AL,'['
	RET

L00EE5:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	XCHG	DX,BX
	MOV	BX,[L0273B]
	CALL	L01F9F
	JNC	L0013
	CALL	L00F1D
L0013:	
	MOV	BX,[L02741]
	LAHF
	INC	BX
	SAHF
	CALL	L01F9F
	JC	L0014
	CALL	L00F1D
L0014:	
	MOV	BX,[L0273D]
	LAHF
	INC	BX
	SAHF
	CALL	L01F9F
	JNC	L00F0D
	XCHG	DX,BX
	MOV	DX,L0273B
	JMP	L01E28

L00F0D:
	MOV	BX,[L0273F]
	CALL	L01F9F
	JNC	L0015
	CALL	L00F1D
L0015:	
	XCHG	DX,BX
	MOV	DX,L0273F
	JMP	L01E05

L00F1D:
	CALL	L00534
	DB	'PUTCUR Error',0

L00F2B:
	CALL	L018E3
	CALL	L01660
	LAHF
	DEC	BX
	SAHF
	AND	AL,[BX]
	MOV	B,[BX],0
	JNZ	L00F64
	MOV	BX,L0269E
	MOV	AL,[BX]
	MOV	B,[BX],0
	OR	AL,AL
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	JZ	L0016
	CALL	L016F0
L0016:	
	POP	AX
	XCHG	AH,AL
	SAHF
	JNZ	L00F57
	MOV	BX,L02685
	MOV	AL,[BX]
	OR	AL,AL
	JNS	L00F54
	XOR	AL,AL
	MOV	[BX],AL
	MOV	[L0269B],AL

L00F54:
	CALL	L01674

L00F57:
	MOV	AL,[L02693]
	MOV	BX,[L02695]
	MOV	[L02693],BX
	CMP	AL,BL
	JZ	L0017
	CALL	L01358
L0017:	

L00F64:
	MOV	AL,[L0269B]
	OR	AL,AL
	JNZ	L00FA4
	CALL	L01502
	CALL	L001F2
	MOV	BX,[L02685]
	CALL	L017EA
	MOV	AL,'{'
	JNC	L0018
	CALL	L007AD
L0018:	
	MOV	DX,0

L00F7F:
	CALL	L0105D
	AND	AL,0C0H
	JZ	$+5
	JMP	L01055
	CALL	L017FA
	JZ	L00F99
	CMP	AL,10
	JNZ	L00F93
	LAHF
	INC	DX
	SAHF

L00F93:
	CALL	L024FC
	JMP	L00F7F

L00F99:
	XCHG	DX,BX
	MOV	[L02685],BX
	MOV	AL,0FFH
	MOV	[L0269B],AL
	MOV	DL,0

L00FA4:
	MOV	AL,[L0269C]
	OR	AL,AL
	JZ	$+5
	JMP	L01039
	MOV	BX,[L02691]
	CALL	L0020B
	CALL	L0186E
	CALL	L0105D
	AND	AL,0E8H
	JZ	$+5
	JMP	L01055

L00FBC:
	CALL	L0187F
	JC	L00FD0
	CMP	AL,10
	JZ	L00FD4
	CALL	L02421
	CALL	L0234E
	JMP	L00FBC

L00FD0:
	CALL	L0241F
	JP	TEMP1

L00FD4:
	LAHF
	DEC	BX
	SAHF
	LAHF
	INC	CX
	SAHF
TEMP1:	MOV	AL,[L0269D]
	OR	AL,AL
	JNZ	L01039
	CALL	L0105D
	AND	AL,0E8H
	JNZ	L01055

L00FE5:
	PUSH	DX
	XCHG	DX,BX
	MOV	BX,[L02689]
	CALL	L01F9F
	XCHG	DX,BX
	POP	DX
	JNC	L01006
	CALL	L0105D
	AND	AL,0D4H
	JNZ	L01055
	CALL	L0187F
	JC	L01006
	CALL	L02421
	JMP	L00FE5

L01006:
	MOV	BX,[L02683]
	PUSH	BX

L0100A:
	CALL	L0241F
	MOV	AL,[L02683]
	MOV	BX,L02697
	CMP	AL,[BX]
	JZ	L0101A
	JNC	L01035

L0101A:
	MOV	BX,L02680
	CMP	AL,[BX]
	JNC	L01035
	CALL	L0105D
	AND	AL,80H
	POP	BX
	JNZ	L01055
	PUSH	BX
	MOV	AL,10
	CALL	L024FC
	MOV	DL,0FFH
	JMP	L0100A

L01035:
	POP	BX
	MOV	[L02697],BX

L01039:
	MOV	BX,0FFFFH
	MOV	[L0269C],BX
	MOV	DL,0
	CALL	L00208
	MOV	BX,L026A3
	MOV	AL,[BX]
	OR	AL,AL
	JNZ	$+5
	JMP	RET
	LAHF
	INC	BX
	SAHF
	MOV	B,[BX],0FFH
	MOV	AL,'<'
	CALL	L02567
	JMP	L00208

L01055:
	MOV	AL,10
	CALL	L024FC
	JMP	L00208

L0105D:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	CALL	L0234E
	MOV	CX,6
	MOV	BX,[L025B7]
	XCHG	DX,BX
	LAHF
	DEC	DX
	SAHF

L0106B:
	DEC	CL
	JZ	L01084
	LAHF
	INC	DX
	SAHF
	MOV	SI,DX
	LODB
	INC	AL
	JNZ	L0107A
	MOV	DX,L025B9
	MOV	SI,DX
	LODB
	INC	AL

L0107A:
	DEC	AL
	JZ	L01084
	CALL	L010BB
	JMP	L0106B

L01084:
	MOV	AL,[L026A2]
	CMP	AL,2
	JC	L01092
	MOV	AL,[L0269F]
	CALL	L010BB

L01092:
	MOV	AL,[L026A3]
	OR	AL,0F3H
	AND	AL,CH
	MOV	CH,AL
	MOV	AL,[L0268F]
	OR	AL,AL
	MOV	AL,CH
	JZ	L010A3
	AND	AL,0BFH

L010A3:
	MOV	CH,AL
	RCR	AL
	MOV	AL,CH
	JNC	L010B8
	MOV	AL,[L0268F]
	ADD	AL,4
	MOV	BX,L02680
	CMP	AL,[BX]
	MOV	AL,CH
	JC	L010B8
	AND	AL,0C3H

L010B8:
	JMP	L01FCC

L010BB:
	CMP	AL,7FH
	JNZ	L010C5
	MOV	AL,' '
	OR	AL,CH
	MOV	CH,AL
	RET

L010C5:
	CMP	AL,' '
	JC	L010CC
	MOV	AL,' '

L010CC:
	MOV	BX,L010D6
	CALL	L00D4A
	MOV	AL,[BX]
	OR	AL,CH
	MOV	CH,AL
	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:
	MOV	BX,0FF00H
	MOV	[L026A5],BX
	XOR	AL,AL
	MOV	[L026A2],AL
	MOV	AL,[HITE]
	SUB	AL,2
	MOV	[L02680],AL
	RCR	AL
	OR	AL,AL
	RCR	AL
	MOV	[L02685],AL
	CALL	L01425
	CALL	L00C07
	JC	L01125
	CMP	AL,13
	JNZ	L01125
	CALL	L0187C
	CMP	AL,10
	JNZ	L0019
	CALL	L01216
L0019:	

L01125:
	CALL	L00F2B
	XOR	AL,AL
	MOV	[L0275F],AL
	MOV	AL,[L0269F]
	MOV	BX,L026A0
	CMP	AL,[BX]
	JNZ	L01138
	MOV	AL,0FFH

L01138:
	MOV	[BX],AL
	MOV	BX,L01125
	PUSH	BX
	MOV	BX,L026A2
	DEC	B,[BX]
	JZ	L01147
	JNS	L01175

L01147:
	MOV	B,[BX],1

L01149:
	CALL	L018B4
	MOV	[L0269F],AL
	CMP	AL,0
	JNZ	L01175
	MOV	BX,L026A2
	MOV	AL,[BX]
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	B,[BX],0
	CALL	L00F64
	POP	AX
	XCHG	AH,AL
	SAHF
	MOV	BX,L026A2
	MOV	B,[BX],4
	CMP	AL,4
	JNZ	L0116B
	MOV	B,[BX],10H

L0116B:
	CMP	AL,10H
	JNZ	L01172
	MOV	B,[BX],40H

L01172:
	JMP	L01149

L01175:
	MOV	BX,L026A4
	MOV	AL,[BX]
	MOV	B,[BX],0
	OR	AL,AL
	JZ	L011A8
	CALL	L0187C
	JC	L011A0
	CMP	AL,13
	JZ	L011A0
	CMP	AL,9
	JZ	L011A0
	CMP	AL,7FH
	JNZ	L01196
	MOV	AL,'~'

L01196:
	CMP	AL,' '
	JNC	L0119D
	MOV	AL,'^'

L0119D:
	JMP	L011A2

L011A0:
	MOV	AL,' '

L011A2:
	CALL	L02567
	CALL	L00208

L011A8:
	CALL	L0234E
	MOV	AL,[L0269F]
	CMP	AL,7FH
	JNZ	$+5
	JMP	L01448
	CMP	AL,' '
	JC	$+5
	JMP	L0153A
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	ADD	AL,AL
	MOV	BX,L011C5
	CALL	L00D4A
	CALL	L01F95
	POP	AX
	XCHG	AH,AL
	SAHF

L011C4:
	JMP	BX

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	BX
	CALL	L00806

L01209:
	MOV	BX,L026A6
	MOV	AL,[BX]
	OR	AL,AL
	JNZ	$+5
	JMP	RET
	INC	B,[BX]
	MOV	BX,[L02680]
	JMP	L0020B

L01216:
	CALL	L01374
	CALL	L01875
	CALL	L0164C
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L00EE5
	POP	AX
	XCHG	AH,AL
	SAHF
	CMP	AL,13
	JNZ	RET
	JMP	L01216

L0122A:
	CALL	L00C14
	CALL	L01656
	CALL	L00EE5
	CALL	L00C07
	CMP	AL,13
	JNZ	RET
	CALL	L01358
	JMP	L0122A

L0123F:
	CALL	L01374
	CALL	L0186E

L01245:
	CALL	L0187F
	JNC	$+5
	JMP	L00EE5
	CALL	L00ED7
	JC	L01245
	CALL	L0164C

L01254:
	CALL	L0187F
	JNC	$+5
	JMP	L00EE5
	CALL	L0164C
	CALL	L022FA
	JZ	L01254
	LAHF
	DEC	BX
	SAHF
	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
	XOR	AL,AL
	MOV	[L0268F+1],AL
	MOV	BX,[L02683]
	PUSH	BX
	MOV	BX,0
	MOV	[L02683],BX
	CALL	L01816
	MOV	BX,[L02756]
	CALL	L00EE5
	MOV	AL,[L02683]
	JMP	L0132E

L012AC:
	MOV	DH,0
	MOV	AL,0F0H

L012B0:
	MOV	[L0268F+1],AL
	JMP	L012F7

L012B6:
	MOV	DH,0
	MOV	AL,[L0268F+1]
	OR	AL,07H
	INC	AL
	JMP	L012B0

L012C1:
	CALL	L015EC

L012C4:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	BX,L0268F
	ADD	AL,[BX]
	MOV	BX,L02680
	SUB	AL,[BX]
	JC	L012F5
	INC	AL
	MOV	BX,L02685
	CMP	AL,[BX]
	JNC	L012F5
	MOV	AL,[BX]
	DEC	AL
	JS	L012F5
	CALL	L01660
	JZ	L012F5
	MOV	BX,L026A2
	MOV	B,[BX],1
	CALL	L0137C
	CALL	L01728
	CALL	L00208
	POP	AX
	XCHG	AH,AL
	SAHF
	JMP	L012C4

L012F5:
	POP	AX
	XCHG	AH,AL
	SAHF

L012F6:
	MOV	DH,AL

L012F7:
	MOV	BX,[L02683]
	PUSH	BX
	MOV	BL,0
	CALL	L01374
	JMP	L01332

L01303:
	CALL	L015EC

L01306:
	CALL	L01358
	MOV	BX,[L02683]
	PUSH	BX
	MOV	BX,0
	MOV	[L02683],BX
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	BL,AL
	CALL	L01816
	MOV	BX,[L02756]
	CALL	L00EE5
	POP	AX
	XCHG	AH,AL
	SAHF
	MOV	CH,AL
	MOV	BX,L02685
	CALL	L013FC
	MOV	AL,[L02683]
	SUB	AL,CH
	JNS	L0132E
	XOR	AL,AL

L0132E:
	MOV	DH,AL
	MOV	BX,0

L01332:
	MOV	[L02683],BX
	CALL	L0186E
	CALL	L015FE
	CALL	L01612
	CALL	L00EE5
	POP	BX
	MOV	[L02683],BX

L01345:
	RET

L01346:
	CALL	L015F3
	JZ	L01362
	MOV	BX,[L02685]
	CALL	L00771
	MOV	BX,0
	MOV	[L02685],BX

L01358:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	AL,[L0269C]
	OR	AL,AL
	JNZ	L0020
	CALL	L01500
L0020:	
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L01362:
	PUSH	DX
	MOV	BX,[L02687]
	LAHF
	DEC	BX
	SAHF
	PUSH	BX
	CALL	L00774
	POP	DX
	MOV	BX,[L02685]
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	MOV	[L02685],BX
	POP	DX

L01374:
	MOV	AL,[L0269C]
	OR	AL,AL
	JNZ	RET
	JMP	L01425

L0137C:
	MOV	AL,[L026A2]
	CMP	AL,11H
	JC	$+5
	JMP	L01401
	CALL	L01660
	JNZ	$+5
	JMP	L01401

L0138A:
	MOV	AL,[L02685]
	DEC	AL
	JNS	L013A2
	CALL	L01875
	MOV	AL,1
	CALL	L012F6
	CALL	L01728
	JNC	L0021
	CALL	L01425
L0021:	
	JMP	L0138A

L013A2:
	CALL	L01669
	XOR	AL,AL
	MOV	[L02682],AL
	MOV	BX,[L02697]
	CALL	L0020B
	MOV	AL,[L02683]
	MOV	BX,L0268D
	ADD	AL,[BX]
	MOV	DH,AL
	MOV	BX,[L0268B]
	CALL	L018A3

L013BD:
	CALL	L0187F
	JC	L013EA
	CALL	L024FC
	MOV	AL,[L02683]
	PUSH	BX
	MOV	BX,L02682
	ADD	AL,[BX]
	POP	BX
	CMP	AL,DH
	JC	L013BD

L013D3:
	CALL	L0187F
	JC	L013EA
	CALL	L0246C
	JC	L013EA
	CMP	AL,10
	JZ	L013EA
	CALL	L024FC
	JMP	L013D3

L013EA:
	MOV	BX,[L02683]
	MOV	[L02697],BX
	CALL	L016D4
	CALL	L01659
	MOV	AL,[L0268D]
	MOV	BX,L02693

L013FC:
	NOT	AL
	INC	AL
	ADD	AL,[BX]
	MOV	[BX],AL
	RET

L01401:
	CALL	L015EC
	NOT	AL
	INC	AL
	JMP	L0140C

L01409:
	CALL	L015EC

L0140C:
	MOV	BX,L02685
	ADD	AL,[BX]
	MOV	[BX],AL
	JMP	L0143F

L01414:
	CALL	L00C14
	MOV	BX,[L02685]
	LAHF
	INC	BX
	SAHF
	CALL	L00771
	MOV	BX,[L02680]
	LAHF
	DEC	BX
	SAHF
	MOV	[L02685],BX

L01425:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XOR	AL,AL
	MOV	[L0269B],AL
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L0142C:
	XOR	AL,AL
	MOV	[L026A7],AL
	CALL	L01875
	MOV	BX,[L02685]
	XCHG	DX,BX
	MOV	BX,[L02687]
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	XOR	AL,AL
	CALL	L0074E

L0143F:
	CALL	L01425
	MOV	AL,0FFH
	MOV	[L0269E],AL
	RET

L01448:
	CALL	L00C14

L0144B:
	CALL	L00AFF
	CALL	L014C5
	CALL	L01656
	CALL	L00C07
	CMP	AL,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
	JNZ	RET

L0149B:
	CALL	L01875
	CMP	AL,' '
	JZ	L014A6
	CMP	AL,9
	JNZ	RET

L014A6:
	CALL	L014EF
	JMP	L0149B

L014AC:
	CALL	L014EF
	CALL	L01875

L014B2:
	CALL	L00ED7
	JC	L014AC
	CALL	L00ED2
	JC	L0022
	CALL	L014EF
L0022:	
	RET

L014BF:
	CALL	L00806
	CALL	L00778

L014C5:
	MOV	DL,0FFH

L014C7:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XOR	AL,AL
	MOV	[L0269C],AL
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

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

L014DD:
	CALL	L01875
	CMP	AL,13
	JZ	RET
	CMP	AL,10
	JZ	RET
	CALL	L014EF
	JMP	L014DD

L014EC:
	CALL	L01875

L014EF:
	CALL	L014C5

L014F2:
	MOV	[L0273F],BX
	CALL	L01D9B
	CMP	AL,13
	JZ	L014EC
	CMP	AL,10
	JNZ	RET

L01500:
	MOV	DL,0FFH

L01502:
	PUSH	BX
	MOV	BX,0
	MOV	[L0269C],BX
	POP	BX
	RET

L0150B:
	MOV	BX,L026A3
	MOV	AL,[BX]
	NOT	AL
	MOV	[BX],AL

L01511:
	PUSH	BX
	MOV	BX,0FFFFH
	MOV	[L02699],BX
	POP	BX
	RET

L0151A:
	CALL	L00F64
	CALL	L018B4
	CMP	AL,1AH
	JNZ	L01530
	CALL	L00904
	CALL	L0080F
	CALL	L014C5
	MOV	AL,1AH

L01530:
	CMP	AL,13
	JNZ	$+5
	JMP	L015AB
	CMP	AL,10
	JNZ	L0023
	CALL	L01425
L0023:	

L0153A:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	BX,[L02691]
	CALL	L0020B
	POP	AX
	XCHG	AH,AL
	SAHF
	PUSH	DX
	MOV	DL,0
	CALL	L02421
	POP	DX
	CALL	L00BAC
	MOV	DH,AL
	CALL	L0187C
	JC	L01579
	CMP	AL,13
	JZ	L01579
	MOV	CH,AL
	MOV	AL,[L026A3]
	OR	AL,AL
	MOV	AL,CH
	JZ	$+5
	JMP	L014C7
	CMP	AL,DH
	JZ	L01573
	CMP	AL,' '
	JNC	$+5
	JMP	L014EF
	MOV	AL,DH
	CMP	AL,' '
	JNC	L0024
	CALL	L014C7
L0024:	
	JNC	$+5
	JMP	L014F2

L01573:
	CALL	L014F2
	JMP	L01583

L01579:
	MOV	AL,[L02683]
	MOV	BX,L0268F
	CMP	AL,[BX]
	JZ	$+5
	JMP	L014C7

L01583:
	PUSH	BX
	CALL	L01856
	MOV	[L02691],BX
	MOV	BX,[L02683]
	MOV	[L0268F],BX
	POP	BX
	JMP	L01511

L01594:
	CALL	L015EC

L01597:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L015E2
	MOV	BX,[L0273D]
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF
	CALL	L00EE5
	POP	AX
	XCHG	AH,AL
	SAHF
	DEC	AL
	JNZ	L01597
	JMP	L01500

L015AB:
	CALL	L0164F
	MOV	AL,[L026A3]
	OR	AL,AL
	JZ	L015CB
	CALL	L0187C
	JC	L015C2
	CMP	AL,13
	JZ	L015C2
	MOV	DL,0FFH

L015C2:
	CALL	L0241F
	CALL	L00BA2
	JMP	L014C5

L015CB:
	CALL	L01374
	CALL	L0186E

L015D1:
	CALL	L0187F
	JC	L015DF
	CMP	AL,10
	JNZ	L015D1
	JMP	L00EE5

L015DF:
	CALL	L00EE5

L015E2:
	MOV	AL,13
	CALL	L00BAC
	MOV	AL,10
	JMP	L00BAC

L015EC:
	MOV	BX,L026A2
	MOV	AL,[BX]
	MOV	B,[BX],0
	RET

L015F3:
	MOV	BX,L026A0
	CMP	AL,[BX]
	RET

L015F8:
	CALL	L0249A
	CALL	L0164C

L015FE:
	MOV	AL,[L02683]
	CMP	AL,DH
	JNC	RET
	CALL	L0187F
	JC	RET
	CALL	L0185D
	JNC	L015F8
	LAHF
	DEC	BX
	SAHF
	LAHF
	INC	CX
	SAHF
	JMP	L015FE

L01612:
	MOV	AL,[L0268F+1]
	INC	AL
	MOV	DH,AL
	MOV	AL,[L02684]
	CMP	AL,DH
	JNC	RET
	CALL	L0187F
	JC	RET
	CALL	L0246C
	JC	L01649

L01626:
	CMP	AL,10
	JZ	L01649
	CMP	AL,13
	JZ	L01649
	CALL	L0246C
	JC	L01647
	CALL	L0249A
	MOV	AL,[L02684]
	CMP	AL,DH
	JNC	L01649
	CALL	L0187F
	JC	RET
	JMP	L01626

L01647:
	LAHF
	DEC	BX
	SAHF
	LAHF
	INC	CX
	SAHF

L01649:
	LAHF
	DEC	BX
	SAHF
	LAHF
	INC	CX
	SAHF
	RET

L0164C:
	CMP	AL,10
	JNZ	RET

L0164F:
	PUSH	BX
	MOV	BX,L02685
	INC	B,[BX]
	POP	BX
	RET

L01656:
	CMP	AL,10
	JNZ	RET

L01659:
	PUSH	BX
	MOV	BX,L02685
	DEC	B,[BX]
	POP	BX
	RET

L01660:
	MOV	BX,L0269D
	MOV	AL,[BX]
	LAHF
	DEC	BX
	SAHF
	AND	AL,[BX]
	LAHF
	DEC	BX
	SAHF
	AND	AL,[BX]
	RET

L01669:
	MOV	AL,[L02699]
	OR	AL,AL
	JZ	RET
	JMP	L01674

L01671:
	CALL	L01425

L01674:
	CALL	L01728
	JC	$+5
	JMP	L01722
	CALL	L01659
	JNS	L016A9

L01680:
	CALL	L00534
	DB	'File Line Longer Than Entire Screen',0

L016A9:
	MOV	AL,[L0269B]
	MOV	BX,L0268D
	AND	AL,[BX]
	JZ	L01671
	MOV	AL,[L0268F]
	MOV	BX,L02680
	SUB	AL,[BX]
	JC	L016C7
	JNZ	L01671
	MOV	AL,[L0268F+1]
	OR	AL,AL
	JNZ	L01671

L016C7:
	CALL	L016D0
	CALL	L01502
	JMP	L01674

L016D0:
	XOR	AL,AL
	MOV	[L02682],AL

L016D4:
	MOV	AL,10
	CALL	L024FC
	MOV	AL,[L02682]
	OR	AL,AL
	JZ	L016E8
	MOV	BX,L02697
	DEC	B,[BX]
	JNS	L016E8
	INC	B,[BX]

L016E8:
	MOV	BX,L0268D
	CMP	AL,[BX]
	JC	L016D4
	RET

L016F0:
	MOV	BX,L02685
	MOV	AL,[BX]
	OR	AL,AL
	JNS	L0170D
	PUSH	BX
	CALL	L0187C
	POP	BX
	JNC	L01705
	MOV	B,[BX],0
	JMP	L0170D

L01705:
	XOR	AL,AL
	SUB	AL,[BX]
	CALL	L012F6
	JMP	L016F0

L0170D:
	CALL	L01728
	JNC	L01722
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	AL,[L02685]
	OR	AL,AL
	JNZ	$+5
	JMP	L01680
	POP	AX
	XCHG	AH,AL
	SAHF
	CALL	L01306
	JMP	L0170D

L01722:
	MOV	BX,L02699
	MOV	B,[BX],0
	RET

L01728:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	MOV	BX,[L02683]
	PUSH	BX
	XOR	AL,AL
	MOV	[L0268D],AL
	MOV	AL,[L02685]
	DEC	AL
	CALL	L01801
	INC	AL
	JC	L01785
	MOV	BX,0
	MOV	[L02687],BX
	MOV	[L02683],BX
	MOV	BX,[L02685]
	CALL	L01816
	MOV	[L02691],BX
	MOV	AL,DH
	MOV	[L0268D],AL
	MOV	BX,[L02683]
	MOV	[L0268F],BX
	MOV	BX,[L02756]
	XCHG	DX,BX
	MOV	BX,[L0273D]
	CALL	L01F7C
	INC	BH
	MOV	[L02745],BX
	CALL	L0178C
	XCHG	DX,BX
	MOV	BX,[L02683]
	MOV	[L02695],BX
	XCHG	DX,BX
	CALL	L0179E
	MOV	[L02689],BX
	CALL	L01899
	MOV	[L0268B],BX
	MOV	AL,[L02695]
	CALL	L01801

L01785:
	POP	BX
	MOV	[L02683],BX
	JMP	L01FCC

L0178C:
	CALL	L0186E

L0178F:
	CALL	L0187F
	JC	RET
	CMP	AL,10
	JNZ	$+5
	JMP	L01649
	CALL	L0249A
	JMP	L0178F

L0179E:
	CALL	L01807
	JC	L017C9
	CALL	L0187F
	JC	RET
	CMP	AL,10
	JNZ	L0025
	CALL	L017E3
L0025:	
	CMP	AL,' '
	JC	L017C3
	PUSH	BX
	MOV	BX,L02684
	INC	B,[BX]
	MOV	AL,[WID]
	DEC	AL
	CMP	AL,[BX]
	POP	BX
	JNC	L0179E
	LAHF
	DEC	BX
	SAHF
	MOV	AL,[BX]
	LAHF
	INC	BX
	SAHF

L017C3:
	CALL	L0249A
	JMP	L0179E

L017C9:
	CALL	L0187F
	JC	RET
	CALL	L0246C
	JNC	$+5
	JMP	L01649
	CMP	AL,10
	JZ	L017DE
	CALL	L0249A
	JMP	L017C9

L017DE:
	LAHF
	DEC	BX
	SAHF
	LAHF
	INC	CX
	SAHF
	CMP	AL,10
	JNZ	RET

L017E3:
	PUSH	BX
	MOV	BX,L02687
	INC	B,[BX]
	POP	BX
	RET

L017EA:
	PUSH	DX
	CALL	L00DE3
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XCHG	DX,BX
	MOV	BX,[L0273D]
	CALL	L01F85
	XCHG	DX,BX
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	DX
	RET

L017FA:
	MOV	AL,CH
	OR	AL,CL
	JZ	RET
	MOV	AL,[BX]
	LAHF
	INC	BX
	SAHF
	LAHF
	DEC	CX
	SAHF
	RET

L01801:
	DEC	AL
	MOV	[L02683],AL
	OR	AL,AL
	JS	RET

L01807:
	MOV	AL,[L02683]
	INC	AL
	INC	AL
	MOV	DH,AL
	MOV	AL,[L02680]
	SUB	AL,DH
	JNC	RET
	NOT	AL
	INC	AL
	STC
	RET

L01816:
	CALL	L017EA
	MOV	AL,'{'
	JNC	L0026
	CALL	L02497
L0026:	
	MOV	DH,0

L01820:
	CALL	L017FA
	JZ	L01856
	CALL	L0249A
	CMP	AL,10
	JNZ	L01820
	MOV	AL,[L02683]
	MOV	DH,AL

L01832:
	MOV	AL,CH
	OR	AL,CL
	JZ	L01856
	MOV	AL,[BX]
	LAHF
	INC	BX
	SAHF
	LAHF
	DEC	CX
	SAHF
	CMP	AL,' '
	JC	L01850
	PUSH	BX
	MOV	BX,L02684
	INC	B,[BX]
	MOV	AL,[WID]
	DEC	AL
	CMP	AL,[BX]
	POP	BX
	JNC	L01832
	LAHF
	DEC	BX
	SAHF
	MOV	AL,[BX]
	LAHF
	INC	BX
	SAHF

L01850:
	CALL	L0249A
	JMP	L01832

L01856:
	CALL	L0187C
	MOV	BX,[L02683]
	JC	RET

L0185D:
	CALL	L0246C
	JNC	RET
	PUSH	BX
	MOV	BX,[L02683]
	INC	BL
	MOV	BH,2
	MOV	[L02683],BX
	POP	BX
	STC
	RET

L0186E:
	CALL	L01EF8
	CALL	L01F95
	RET

L01875:
	CALL	L0187C
	JNC	RET
	LAHF
	INC	SP
	SAHF
	LAHF
	INC	SP
	SAHF
	RET

L0187C:
	CALL	L0186E

L0187F:
	MOV	AL,CH
	OR	AL,CL
	JNZ	L01895
	CALL	L01899
	PUSH	BX
	CALL	L01C0B
	POP	BX
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L0234E
	CALL	L018A3
	POP	AX
	XCHG	AH,AL
	SAHF
	JC	RET

L01895:
	MOV	AL,[BX]
	LAHF
	DEC	CX
	SAHF
	LAHF
	INC	BX
	SAHF
	RET

L01899:
	PUSH	DX
	XCHG	DX,BX
	MOV	BX,[L0273F]
	CALL	L01F7B
	POP	DX
	RET

L018A3:
	PUSH	DX
	XCHG	DX,BX
	CALL	L01EF8
	CALL	L01F95
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	MOV	AL,CL
	SUB	AL,DL
	MOV	CL,AL
	MOV	AL,CH
	SBB	AL,DH
	MOV	CH,AL
	POP	DX
	RET

L018B4:
	CALL	L018BE
	JNC	RET
	CALL	L00F2B
	JMP	L018B4

L018BE:
	PUSH	CX
	PUSH	DX
	PUSH	BX

L018C1:
	MOV	AL,[L02749]
	OR	AL,AL
	JNZ	L018DD
	CALL	L018E3
	JNC	$+5
	JMP	L01FCC
	MOV	DH,0C9H

L018D0:
	DEC	DH
	JZ	L018C1
	CALL	L0234E
	JZ	L018D0
	CALL	L018E3

L018DD:
	JC	L0027
	CALL	L02322
L0027:	
	JMP	L01FCC

L018E3:
	MOV	AL,[L02749]
	OR	AL,AL
	JNZ	RET
	MOV	AL,[0F7FFH]
	MOV	BX,L0274A
	CMP	AL,[BX]
	JZ	RET
	MOV	AL,[L02749]
	OR	AL,AL
	JNZ	RET
	CALL	L01425
	CALL	L001F2
	MOV	BX,L025A9
	MOV	[L025A7],BX

L01901:
	MOV	AL,[L02749]
	OR	AL,AL
	JNZ	RET
	MOV	AL,[0F7FFH]
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	RCR	AL
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	AL,80
	JNC	L01913
	MOV	AL,40

L01913:
	MOV	[WID],AL
	POP	AX
	XCHG	AH,AL
	SAHF
	RCR	AL
	MOV	AL,24
	JNC	L0191F
	MOV	AL,12

L0191F:
	MOV	[HITE],AL
	SUB	AL,2
	MOV	[L02680],AL
	MOV	AL,15H
	MOV	[EREOL],AL
	POP	AX
	XCHG	AH,AL
	SAHF
	MOV	[L0274A],AL
	STC
	RET

L01932:	DB	0
	DB	'WM      HLP'
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0

L01954:
	CALL	L001F2
	CALL	L01425
	MOV	BX,L01932
	MOV	DX,L026F8
	MOV	CX,33
	CALL	L01F0C
	MOV	DX,L026F8
	CALL	L01FF4
	JNZ	L019A2
	MOV	AL,1
	MOV	[L026F8],AL
	MOV	DX,L026F8
	CALL	L01FF4
	JNZ	L019A2
	CALL	L00534
	DB	'WM.HLP Not Found On Default Or A:',0

L019A2:
	MOV	DX,L026F8
	MOV	BX,L027E9
	CALL	L020A9
	JC	L019DE
	MOV	DX,L026F8
	MOV	BX,L027E9
	CALL	L01C8F
	MOV	BX,L027E9

L019BA:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	AL,[BX]
	LAHF
	INC	BX
	SAHF
	CMP	AL,11H
	JZ	L019CD
	CALL	L024FC

L019C5:
	POP	AX
	XCHG	AH,AL
	SAHF
	DEC	AL
	JNZ	L019BA
	JMP	L019A2

L019CD:
	CALL	L018B4
	CMP	AL,10
	JNZ	L019DD
	PUSH	BX
	CALL	L001F2
	POP	BX
	JMP	L019C5

L019DD:
	POP	AX
	XCHG	AH,AL
	SAHF

L019DE:
	RET

L019DF:
	MOV	DX,L026F8
	CALL	L00966
	CALL	L01FF4
	JNZ	L019FD
	CALL	L00534
	DB	'File Not Found',0

L019FD:
	CALL	L023D6
	MOV	DX,L026F8
	MOV	BX,L027E9
	CALL	L020A9
	JC	L01A1D
	CALL	L01C8F
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	CH,0
	MOV	CL,AL
	MOV	DX,L027E9
	CALL	L00C29
	POP	AX
	XCHG	AH,AL
	SAHF
	JC	L019FD

L01A1D:
	JMP	L0081A

L01A20:
	CALL	L00828
	JNZ	$+5
	JMP	L0051D
	MOV	DX,L026F6
	XOR	AL,AL
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	LAHF
	INC	DX
	SAHF
	CALL	L00966
	MOV	DX,0

L01A33:
	MOV	BX,L0273F
	CALL	L01EBC
	CALL	L01F95
	CALL	L01F7C
	XCHG	DX,BX
	CALL	L00E04

L01A43:
	MOV	BX,[L02756]
	XCHG	DX,BX
	PUSH	BX
	MOV	CX,128+1
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	CALL	L01F9F
	LAHF
	DEC	BX
	SAHF
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	JC	L01A5E
	MOV	DX,L026F8
	CALL	L0211A
	POP	DX
	JMP	L01A43

L01A5E:
	CALL	L01F7B
	POP	CX
	XCHG	DX,BX
	CALL	L00828
	JZ	L01A74
	PUSH	BX
	MOV	BX,[L02756]
	CALL	L01A87
	POP	BX
	JNC	L01A33

L01A74:
	MOV	AL,DL
	CALL	L01BEB
	MOV	DX,L026F8
	CALL	L02132
	CALL	L0200F
	MOV	BX,[L02756]
	JMP	L00EE5

L01A87:
	CALL	L023D6
	CALL	L00EE5

L01A8D:
	CALL	L00828
	JZ	RET

L01A91:
	CALL	L023D6
	MOV	AL,[L0275C]
	OR	AL,AL
	JNS	$+5
	JMP	L01CC1
	JMP	L01C4D

L01A9E:
	MOV	AL,[L0275C]
	OR	AL,AL
	STC
	JNS	L0028
	CALL	L01B5E
L0028:	
	JNC	RET
	CALL	L01ADD
	JNC	RET
	JMP	L01B5E

L01AAE:
	CALL	L01ABE
	JC	RET
	CALL	L01A91
	JC	RET
	CALL	L01ABE
	JC	L0029
	CALL	L01A91
L0029:	
	OR	AL,AL
	RET

L01ABE:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	MOV	AL,[L0275C]
	OR	AL,AL
	MOV	DX,L0273B
	JS	L01ACE
	MOV	DX,L0273F

L01ACE:
	MOV	BX,[L0272F]
	XCHG	DX,BX
	CALL	L01EFB
	MOV	BH,CH
	MOV	BL,CL
	CALL	L01F9F
	JMP	L01FCC

L01ADD:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	CALL	L01B0C
	JNC	$+5
	JMP	L01FCC
	MOV	BX,L0275F
	INC	B,[BX]
	MOV	CH,[BX]
	MOV	BX,L0272E
	XOR	AL,AL

L01AEF:
	ADD	AL,[BX]
	DEC	CH
	JNZ	L01AEF
	DEC	AL
	OR	AL,07H
	MOV	CL,AL
	MOV	AL,[L0272D]
	DEC	AL
	MOV	CH,AL

L01AFD:
	CALL	L01B0C
	DEC	CH
	JZ	L01B08
	DEC	CL
	JNZ	L01AFD

L01B08:
	OR	AL,AL
	JMP	L01FCC

L01B0C:
	MOV	BX,[L0273B]
	CALL	L01D73
	JC	RET
	PUSH	BX
	MOV	BX,[L026AB+34]
	XCHG	DX,BX
	MOV	BX,[L02720]
	CALL	L01F9F
	POP	BX
	MOV	DX,L026AB
	JNC	L01B2B
	CALL	L02135
	JMP	L01B38

L01B2B:
	CALL	L0212F
	XCHG	DX,BX
	MOV	BX,[L02720]
	LAHF
	INC	BX
	SAHF
	MOV	[L02720],BX
	XCHG	DX,BX
	INC	CH

L01B38:
	MOV	DX,128
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	MOV	[L0273B],BX
	RET

L01B40:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	MOV	BX,81H
	MOV	[L02745],BX
	MOV	BX,L02743
	CALL	L01E49
	MOV	BX,[L02741]
	CALL	L00EE5

L01B55:
	CALL	L01B0C
	JNC	L01B55
	JMP	L01FCC

L01B5E:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	CALL	L01B7E
	JNC	$+5
	JMP	L01FCC
	MOV	AL,[L0272D]
	MOV	CH,AL
	DEC	CH
	ADD	AL,AL
	MOV	CL,AL
	DEC	CL

L01B6F:
	CALL	L01B7E
	DEC	CH
	JZ	L01B7A
	DEC	CL
	JNZ	L01B6F

L01B7A:
	OR	AL,AL
	JMP	L01FCC

L01B7E:
	MOV	BX,[L02741]
	CALL	L01CAA
	JNZ	L01B96
	MOV	AL,[L026F5]
	MOV	DH,AL
	CALL	L00D3C
	PUSH	BX
	MOV	AL,DH
	CALL	L01BEB
	JMP	L01B9B

L01B96:
	MOV	DX,0FF80H
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	PUSH	BX

L01B9B:
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	CALL	L01D83
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	JNC	L01BA5
	POP	BX
	RET

L01BA5:
	PUSH	BX
	MOV	BX,[L02722]
	XCHG	DX,BX
	CALL	L01DE3
	CALL	L01F9F
	POP	BX
	JNC	L01BBD
	MOV	DX,5CH
	CALL	L0213C
	JMP	L01BE2

L01BBD:
	PUSH	BX
	MOV	BX,[L02724]
	XCHG	DX,BX
	CALL	L01DE3
	CALL	L01F9F
	POP	BX
	MOV	DX,L026D1
	JNC	L01BD5
	CALL	L02135
	JMP	L01BE2

L01BD5:
	CALL	L0212F
	PUSH	BX
	MOV	BX,[L02724]
	LAHF
	DEC	BX
	SAHF
	MOV	[L02724],BX
	POP	BX
	INC	CH

L01BE2:
	CALL	L01CAA
	OR	AL,AL
	POP	BX
	MOV	[L02741],BX
	RET

L01BEB:
	PUSH	CX
	PUSH	DX
	MOV	DX,L027E9
	PUSH	DX
	MOV	CH,AL
	MOV	CL,130
	INC	CH
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	DX
	SAHF

L01BF7:
	MOV	AL,[BX]
	MOV	DI,DX
	STOB
	LAHF
	INC	BX
	SAHF
	LAHF
	INC	DX
	SAHF
	DEC	CL
	DEC	CH
	JNZ	L01BF7

L01C00:
	MOV	AL,1AH
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	DEC	CL
	JNZ	L01C00
	JMP	L01FCC

L01C0B:
	CALL	L01CAA
	JZ	RET
	PUSH	CX
	PUSH	DX
	PUSH	BX
	CALL	L01E95
	MOV	BX,128
	CALL	L01F9F
	XCHG	DX,BX
	MOV	BX,[L02728]
	JNC	L01C29
	CALL	L01ADD
	JNC	$+5
	JMP	L01D1A
	XCHG	DX,BX

L01C29:
	XCHG	DX,BX
	MOV	BX,L02743
	CALL	L01D0D
	JMP	L01C5C

L01C33:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	MOV	BX,L02743
	MOV	DX,7800H
	CALL	L01D3D
	CALL	L01CAA
	JZ	L01C73
	MOV	AL,CL
	OR	AL,AL
	JNZ	L01C5C
	JMP	L01FCC

L01C4D:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	CALL	L01CAA
	JZ	L01C73
	MOV	BX,L02743
	CALL	L01CF3

L01C5C:
	MOV	BX,[L02741]

L01C5F:
	CALL	L01C76
	JC	L0030
	CALL	L01C8F
L0030:	
	JC	L01C6B
	MOV	[L026F5],AL

L01C6B:
	MOV	[L02741],BX
	DEC	CL
	JNZ	L01C5F
	OR	AL,AL

L01C73:
	JMP	L01FCC

L01C76:
	CALL	L023D6
	MOV	DX,L026D0
	MOV	SI,DX
	LODB
	LAHF
	INC	DX
	SAHF
	OR	AL,AL
	STC
	JZ	L0031
	CALL	L020B0
L0031:	
	JNC	RET
	MOV	DX,5BH
	MOV	SI,DX
	LODB
	LAHF
	INC	DX
	SAHF
	OR	AL,AL
	STC
	JZ	L0032
	CALL	L020A9
L0032:	
	RET

L01C8F:
	MOV	CH,128

L01C91:
	MOV	AL,[BX]
	AND	AL,7FH
	MOV	[BX],AL
	CMP	AL,1AH
	JZ	L01CA3
	LAHF
	INC	BX
	SAHF
	DEC	CH
	JNZ	L01C91
	STC
	MOV	AL,128
	RET

L01CA3:
	CALL	L020C5
	MOV	AL,128
	SUB	AL,CH
	RET

L01CAA:
	PUSH	BX
	MOV	AL,[5BH]
	MOV	BX,L026D0
	OR	AL,[BX]
	STC
	POP	BX
	RET

L01CB5:
	MOV	AL,[L0275C]
	OR	AL,AL
	MOV	AL,[L026AA]
	JS	L0033
	CALL	L01CAA
L0033:	
	OR	AL,AL
	RET

L01CC1:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	MOV	AL,[L026AA]
	OR	AL,AL
	STC
	JZ	L01CF0
	MOV	DX,L01B5E
	MOV	BX,L0273B
	CALL	L01CF6
	MOV	BX,[L0273B]

L01CD8:
	CALL	L023D6
	MOV	DX,0FF80H
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	MOV	DX,L026AB
	CALL	L020B0
	JC	L01CEF
	MOV	[L0273B],BX
	DEC	CL
	JNZ	L01CD8

L01CEF:
	OR	AL,AL

L01CF0:
	JMP	L01FCC

L01CF3:
	MOV	DX,L01ADD

L01CF6:
	PUSH	BX
	MOV	BX,[L02728]
	PUSH	DX
	CALL	L01E95
	CALL	L01F9F
	POP	BX
	JNC	L0034
	CALL	L011C4
L0034:	
	MOV	BX,[L02726]
	LAHF
	ADD	BX,BX
	RCR	SI
	SAHF
	RCL	SI
	INC	BH
	INC	BH
	XCHG	DX,BX
	POP	BX

L01D0D:
	CALL	L01D3D
	CMP	AL,8
	JC	L01D18
	SUB	AL,4
	MOV	CL,AL

L01D18:
	OR	AL,AL
	JNZ	RET

L01D1A:
	CALL	L00534
	DB	'Memory Shortage--Try Clearing QBUF',0

L01D3D:
	CALL	L01E49
	PUSH	DX
	CALL	L01E95
	POP	BX
	CALL	L01FBD
	XCHG	DX,BX
	LAHF
	ADD	BX,BX
	RCR	SI
	SAHF
	RCL	SI

L01D4A:
	JC	$
	XCHG	DX,BX
	MOV	AL,DH
	MOV	CL,DH
	RET

L01D51:
	CALL	L01C33

L01D54:
	CALL	L01B40
	CALL	L01C33
	JNC	L01D54
	MOV	BX,L0273B
	CALL	L01EFB
	CALL	L01F95
	MOV	AL,CL
	CALL	L01BEB
	MOV	DX,L026AB
	CALL	L0212F
	JMP	L0200F

L01D73:
	PUSH	BX
	MOV	BX,[L02745]
	XCHG	DX,BX
	MOV	BX,[L0273D]
	CALL	L01F7C
	XCHG	DX,BX
	POP	BX
	JMP	L01F9F

L01D83:
	PUSH	BX
	MOV	BX,[L02747]
	XCHG	DX,BX
	MOV	BX,[L0273F]
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	POP	DX
	CALL	L01F9F
	XCHG	DX,BX
	RET

L01D92:
	PUSH	DX
	MOV	DX,L0273D
	CALL	L01F9F
	POP	DX
	JNZ	RET

L01D9B:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	BX,L0273B
	CALL	L01DF4
	MOV	BX,[L026AB+34]
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	XCHG	DX,BX
	MOV	BX,[L02720]
	CALL	L01F9F
	XCHG	DX,BX
	JNC	L01DB7
	MOV	[L02720],BX

L01DB7:
	MOV	BX,L0273F
	CALL	L01DF4
	CALL	L01DE3
	CALL	L01F7C
	XCHG	DX,BX
	MOV	BX,[L02722]
	CALL	L01F9F
	XCHG	DX,BX
	JC	L01DD1
	MOV	[L02722],BX

L01DD1:
	XCHG	DX,BX
	MOV	BX,[L02724]
	CALL	L01F9F
	XCHG	DX,BX
	JC	L01DDF
	MOV	[L02724],BX

L01DDF:
	POP	AX
	XCHG	AH,AL
	SAHF
	JMP	L01FCC

L01DE3:
	PUSH	DX
	MOV	BX,[L026D1+34]
	XCHG	DX,BX
	MOV	BX,[7EH]
	CALL	L01F7C
	MOV	DX,7FFFH
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	POP	DX
	RET

L01DF4:
	CALL	L01EFB
	MOV	BH,CH
	MOV	BL,CL
	LAHF
	ADD	BX,BX
	RCR	SI
	SAHF
	RCL	SI
	MOV	DL,BH
	MOV	DH,0
	JNC	L01E01
	INC	DH

L01E01:
	RET

	PUSH	CX
	PUSH	DX
	PUSH	BX
L01E05:
	XCHG	DX,BX
	PUSH	BX
	CALL	L01F95
	XCHG	DX,BX
	CALL	L01F85
	POP	BX
	PUSH	BX
	CALL	L01F8F
	CALL	L01F0C
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF
	MOV	[BX],DL
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DH
	LAHF
	INC	BX
	SAHF
	POP	DX
	MOV	[BX],DL
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DH
	OR	AL,AL
	JMP	L01FCC

	PUSH	CX
	PUSH	DX
	PUSH	BX
L01E28:
	XCHG	DX,BX
	LAHF
	INC	BX
	SAHF
	LAHF
	INC	BX
	SAHF
	PUSH	BX
	CALL	L01F95
	CALL	L01F85
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	LAHF
	INC	BX
	SAHF
	LAHF
	INC	BX
	SAHF
	MOV	DL,[BX]
	LAHF
	INC	BX
	SAHF
	MOV	DH,[BX]
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	CALL	L01F2E
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	MOV	[BX],DH
	LAHF
	DEC	BX
	SAHF
	MOV	[BX],DL
	POP	DX
	LAHF
	DEC	BX
	SAHF
	MOV	[BX],DH
	LAHF
	DEC	BX
	SAHF
	MOV	[BX],DL
	OR	AL,AL
	JMP	L01FCC

L01E49:
	PUSH	CX
	PUSH	DX
	PUSH	BX

L01E4C:
	XCHG	DX,BX
	MOV	BX,L02733
	CALL	L01F9F
	JNC	L0035
	CALL	L01E86
L0035:	
	MOV	BX,L02744
	CALL	L01F9F
	JC	L0036
	CALL	L01E86
L0036:	
	MOV	BX,L02733

L01E62:
	LAHF
	INC	BX
	SAHF
	CALL	L01F9F
	LAHF
	DEC	BX
	SAHF
	JC	L01E73
	CALL	L01EBC
	CALL	L01EAC
	JMP	L01E62

L01E73:
	MOV	BX,L02741

L01E76:
	CALL	L01F9F
	JC	$+5
	JMP	L01FCC
	CALL	L01ED8
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF
	JMP	L01E76

L01E86:
	CALL	L01FE7
	DB	'PUTHOLE Error',0

L01E95:
	PUSH	CX
	PUSH	BX
	MOV	DX,0
	MOV	BX,L02731

L01E9D:
	CALL	L01EFB
	XCHG	DX,BX
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	XCHG	DX,BX
	CALL	L01EAC
	JNC	L01E9D
	POP	BX
	POP	CX
	RET

L01EAC:
	PUSH	DX
	LAHF
	INC	BX
	SAHF
	LAHF
	INC	BX
	SAHF
	LAHF
	INC	BX
	SAHF
	LAHF
	INC	BX
	SAHF
	MOV	DX,L02742
	CALL	L01F9F
	POP	DX
	RET

L01EB9:
	MOV	BX,L02737

L01EBC:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	CALL	L01EFB
	CALL	L01F8F
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	MOV	[BX],DL
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DH
	LAHF
	DEC	BX
	SAHF
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	CALL	L01F0C
	POP	BX
	PUSH	BX
	LAHF
	INC	BX
	SAHF
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DL
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DH
	JMP	L01FCC

L01ED8:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	PUSH	BX
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF
	CALL	L01EFB
	POP	BX
	PUSH	BX
	CALL	L01F91
	XCHG	DX,BX
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DH
	LAHF
	DEC	BX
	SAHF
	MOV	[BX],DL
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	CALL	L01F2E
	POP	BX
	LAHF
	DEC	BX
	SAHF
	MOV	[BX],DH
	LAHF
	DEC	BX
	SAHF
	MOV	[BX],DL
	JMP	L01FCC

L01EF8:
	MOV	BX,L0273F

L01EFB:
	PUSH	DX
	PUSH	BX
	CALL	L01F91
	CALL	L01F85
	POP	BX
	POP	DX
	RET

L01F06:
	MOV	BX,L01F53

L01F09:
	MOV	CX,3

L01F0C:
	CALL	L01F56
	CALL	L01F9F
	JNZ	L01F1C
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	XCHG	DX,BX
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	MOV	CX,0
	RET

L01F1C:
	INC	CH
	INC	CL
	JMP	L01F25

L01F21:
	MOV	AL,[BX]
	MOV	DI,DX
	STOB
	LAHF
	INC	BX
	SAHF
	LAHF
	INC	DX
	SAHF

L01F25:
	DEC	CL
	JNZ	L01F21
	DEC	CH
	JNZ	L01F21
	RET

L01F2E:
	CALL	L01F56
	CALL	L01F9F
	JNZ	L01F41
	CALL	L01F71
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	XCHG	DX,BX
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	MOV	CX,0
	RET

L01F41:
	INC	CH
	INC	CL
	JMP	L01F4A

L01F46:
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	DX
	SAHF
	MOV	AL,[BX]
	MOV	DI,DX
	STOB

L01F4A:
	DEC	CL
	JNZ	L01F46
	DEC	CH
	JNZ	L01F46
	RET

L01F53:	DB	'BAK'

L01F56:
	MOV	AL,CH
	OR	AL,17H
	INC	AL
	JNZ	RET
	CALL	L00534
	DB	'Copy Error',0

L01F67:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XOR	AL,AL
	SUB	AL,BL
	MOV	BL,AL
	MOV	AL,0
	SBB	AL,BH
	MOV	BH,AL
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L01F71:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XOR	AL,AL
	SUB	AL,CL
	MOV	CL,AL
	MOV	AL,0
	SBB	AL,CH
	MOV	CH,AL
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L01F7B:
	XCHG	DX,BX

L01F7C:
	PUSH	DX
	XCHG	DX,BX
	CALL	L01F67
	XCHG	DX,BX
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	POP	DX
	RET

L01F85:
	PUSH	BX
	CALL	L01F7C
	MOV	CH,BH
	MOV	CL,BL
	POP	BX
	MOV	AL,CH
	OR	AL,CL
	RET

L01F8F:
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF

L01F91:
	MOV	DL,[BX]
	LAHF
	INC	BX
	SAHF
	MOV	DH,[BX]
	LAHF
	INC	BX
	SAHF

L01F95:
	MOV	AL,[BX]
	LAHF
	INC	BX
	SAHF
	MOV	BH,[BX]
	MOV	BL,AL
	RET

	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF
	JMP	L01F95

L01F9F:
	PUSH	CX
	MOV	CH,AL
	MOV	AL,DH
	SUB	AL,BH
	JNZ	L01FA8
	MOV	AL,DL
	SUB	AL,BL

L01FA8:
	MOV	AL,CH
	POP	CX
	RET

L01FAB:
	CALL	L01F9F
	JC	L01FB6

L01FB1:
	MOV	BX,0
	OR	AL,AL
	RET

L01FB6:
	PUSH	BX
	CALL	L01F7C
	POP	DX
	STC
	RET

L01FBD:
	CALL	L01F9F
	JZ	L01FB1
	JC	L01FB1
	XCHG	DX,BX
	CALL	L01F7C
	STC
	RET

L01FCC:
	POP	BX
	POP	DX
	POP	CX
	RET

L01FD0:
	PUSH	DX
	MOV	DX,80H
	CALL	L01FD9
	DB	26
	POP	DX

L01FD9:
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	PUSH	CX
	MOV	CL,[BX]
	LAHF
	INC	BX
	SAHF
	PUSH	DX
	PUSH	BX
	CALL	5
	POP	BX
	POP	DX
	POP	CX
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	RET

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

L01FF4:
	CALL	L01FD0
	DB	15
	INC	AL

L01FF9:
	PUSH	BX
	MOV	BX,35
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	MOV	B,[BX],0
	LAHF
	DEC	BX
	SAHF
	MOV	B,[BX],0
	POP	BX
	RET

L02005:
	MOV	DX,L026D1

L02008:
	LAHF
	DEC	DX
	SAHF
	LAHF
	DEC	DX
	SAHF
	MOV	SI,DX
	LODB
	LAHF
	INC	DX
	SAHF
	LAHF
	INC	DX
	SAHF
	OR	AL,AL
	JZ	RET

L0200F:
	CALL	L01FD0
	DB	16
	INC	AL
	JNZ	RET
	CALL	L01FE7
	DB	'Close Error',0

L02022:
	MOV	DX,L026D1
	CALL	L02008

L02028:
	CALL	L01FD0
	DB	19
	LAHF
	DEC	DX
	SAHF
	CALL	L020C5
	LAHF
	INC	DX
	SAHF
	JMP	L020C5

L02034:
	CALL	L02028
	CALL	L01FF9

L0203A:
	CALL	L01FD0
	DB	22
	INC	AL
	JNZ	RET

L02040:
	CALL	L01FE7
	DB	'Directory Full',0

L02052:
	PUSH	DX
	MOV	DL,AL
	MOV	AL,[L0274B]
	OR	AL,AL
	MOV	AL,DL
	JNZ	L02062
	CALL	L01FD9
	DB	30
	POP	DX
	RET

L02062:
	POP	DX
	OR	AL,AL
	JNZ	L0206C
	CALL	L01FD9
	DB	25
	INC	AL
L0206C:
	RET

L0206D:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	PUSH	DX
	MOV	BX,16
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	MOV	CX,16
	XCHG	DX,BX
	CALL	L01F0C
	MOV	B,[BX],0
	POP	DX
	MOV	BX,25
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	XCHG	DX,BX
	POP	BX
	PUSH	BX
	CALL	L01F09
	POP	BX
	POP	DX
	POP	CX
	CALL	L01FD0
	DB	23
	INC	AL
	JNZ	RET
	MOV	AL,[L0274B]
	OR	AL,AL
	JNZ	RET
	CALL	L01FE7
	DB	'Rename Failure',0

L020A9:
	CALL	L020B4
	JC	L0037
	CALL	L02135
L0037:	
	RET

L020B0:
	CALL	L0213C
	JC	RET

L020B4:
	CALL	L0234E
	XOR	AL,AL
	CALL	L02167
	JC	L020C5
	CALL	L01FD9
	DB	20
	OR	AL,AL
	DEC	AL
	JNZ	RET

L020C5:
	LAHF
	DEC	DX
	SAHF
	XOR	AL,AL
	MOV	DI,DX
	STOB
	LAHF
	INC	DX
	SAHF
	STC
	RET

L020CB:
	PUSH	BX
	MOV	BH,DH
	MOV	BL,DL
	LAHF
	DEC	BX
	SAHF
	LAHF
	DEC	BX
	SAHF
	MOV	AL,[BX]
	OR	AL,AL
	JNZ	L0038
	CALL	L02034
L0038:	
	MOV	B,[BX],0FFH
	POP	BX
	CALL	L0210A
	JNZ	RET
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	PUSH	BX
	MOV	BX,L026D1
	CALL	L01F9F
	POP	BX
	JZ	L020F7
	MOV	AL,[L026D0]
	OR	AL,AL
	PUSH	DX
	JNZ	L0039
	CALL	L02022
L0039:	
	POP	DX
	POP	AX
	XCHG	AH,AL
	SAHF
	CALL	L0210A
	JNZ	RET
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL

L020F7:
	POP	AX
	XCHG	AH,AL
	SAHF
	CMP	AL,2
	JZ	$+5
	JMP	L02040
	CALL	L00534
	DB	'Disk Full',0

L0210A:
	CALL	L02165
	CALL	L01FD9
	DB	21
	CMP	AL,1
	JZ	RET
	CMP	AL,0FFH
	JZ	RET
	CMP	AL,2
	RET

L0211A:
	PUSH	CX
	PUSH	BX
	PUSH	DX
	MOV	CX,128
	MOV	DX,L027E9
	PUSH	DX
	CALL	L01F0C
	POP	BX
	POP	DX
	CALL	L02132
	POP	BX
	POP	CX
	RET

L0212F:
	CALL	L023D6

L02132:
	CALL	L020CB

L02135:
	PUSH	CX
	MOV	CX,1
	JMP	L02140

L0213C:
	PUSH	CX
	MOV	CX,0FFFFH

L02140:
	PUSH	DX
	PUSH	BX
	LAHF
	DEC	DX
	SAHF
	MOV	AL,0FFH
	MOV	DI,DX
	STOB
	MOV	BX,35
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	PUSH	BX
	CALL	L01F95
	LAHF
	ADD	BX,CX
	RCR	SI
	SAHF
	RCL	SI
	MOV	AL,BH
	AND	AL,BL
	INC	AL
	JZ	L0215E
	XCHG	DX,BX
	POP	BX
	MOV	[BX],DL
	LAHF
	INC	BX
	SAHF
	MOV	[BX],DH
	OR	AL,AL
	JMP	L01FCC

L0215E:
	XOR	AL,AL
	MOV	DI,DX
	STOB
	STC
	POP	BX
	JMP	L01FCC

L02165:
	MOV	AL,0FFH

L02167:
	PUSH	CX
	MOV	CH,AL
	PUSH	BX
	MOV	BX,34
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	CALL	L01F95
	MOV	AL,BL
	AND	AL,7FH
	MOV	CL,AL
	LAHF
	ADD	BX,BX
	RCR	SI
	SAHF
	RCL	SI
	MOV	AL,BH
	MOV	BX,12
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	CMP	AL,[BX]
	JZ	L021A0
	PUSH	BX
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	BX,33
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	MOV	AL,[BX]
	OR	AL,AL
	JZ	L0040
	CALL	L0200F
L0040:	
	MOV	B,[BX],0
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	BX
	MOV	[BX],AL
	CALL	L01FD0
	DB	15
	INC	AL
	JNZ	L021A0
	MOV	AL,CH
	OR	AL,AL
	STC
	JZ	L021A9
	CALL	L0203A

L021A0:
	MOV	BX,32
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	MOV	[BX],CL
	LAHF
	INC	BX
	SAHF
	MOV	AL,[BX]
	OR	AL,CH
	MOV	[BX],AL

L021A9:
	POP	BX
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XCHG	DX,BX
	CALL	L01FD9
	DB	26
	XCHG	DX,BX
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	CX
	RET

L021B4:
	MOV	DX,L0275C
	XOR	AL,AL
	MOV	DI,DX
	STOB

L021B9:
	CALL	L022F1
	LAHF
	INC	BX
	SAHF
	CMP	AL,'+'
	JZ	L021B9
	CMP	AL,'-'
	JNZ	L021CD
	MOV	AL,0FFH
	MOV	DI,DX
	STOB
	JMP	L021B9

L021CD:
	LAHF
	DEC	BX
	SAHF
	MOV	DX,0FFFFH
	XCHG	DX,BX
	MOV	[L0275A],BX
	XCHG	DX,BX
	CALL	L022F1
	CMP	AL,'#'
	LAHF
	INC	BX
	SAHF
	JZ	L0220F
	LAHF
	DEC	BX
	SAHF
	CALL	L02229
	MOV	DX,1
	JNC	L0220F
	LAHF
	DEC	DX
	SAHF

L021EA:
	MOV	AL,[BX]
	CALL	L02229
	JNC	L0220A
	LAHF
	INC	BX
	SAHF
	PUSH	BX
	MOV	BH,DH
	MOV	BL,DL
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	LAHF
	ADD	BX,BX
	RCR	SI
	SAHF
	RCL	SI
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	LAHF
	ADD	BX,BX
	RCR	SI
	SAHF
	RCL	SI
	JC	L02215
	SUB	AL,'0'
	MOV	DL,AL
	MOV	DH,0
	LAHF
	ADD	BX,DX
	RCR	SI
	SAHF
	RCL	SI
	JC	L02215
	XCHG	DX,BX
	POP	BX
	JMP	L021EA

L0220A:
	XCHG	DX,BX
	MOV	[L0275A],BX
	XCHG	DX,BX

L0220F:
	XCHG	DX,BX
	MOV	[L02758],BX
	XCHG	DX,BX
	RET

L02215:
	CALL	L00534
	DB	'Number Too Large',0

L02229:
	CMP	AL,'0'
	CMC
	JNC	RET
	CMP	AL,'9'+1
	RET

L02230:
	PUSH	CX
	PUSH	DX
	MOV	BX,L026A5
	MOV	AL,[BX]
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XOR	AL,AL
	MOV	[BX],AL
	MOV	BX,L0286C
	PUSH	BX
	MOV	CL,AL

L0223E:
	MOV	AL,CL
	CMP	AL,7FH
	JC	$+5
	JMP	L022DA
	POP	DX
	PUSH	DX
	CALL	L018BE
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	JNC	L0041
	CALL	L007BE
L0041:	
	POP	AX
	XCHG	AH,AL
	SAHF
	JC	L0223E
	CALL	L024F0
	CMP	AL,13
	JNZ	$+5
	JMP	L022DF
	CMP	AL,10
	JNZ	$+5
	JMP	L022D5
	PUSH	BX
	MOV	BX,L0223E
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	CMP	AL,1FH
	JZ	L0226D
	CMP	AL,7FH
	JNZ	L02274

L0226D:
	CALL	L022CD

L02270:
	JZ	RET
	JMP	L024FC

L02274:
	CMP	AL,18H
	JZ	L0227E
	CMP	AL,15H
	JNZ	L02283

L0227E:
	XCHG	DX,BX
	MOV	CL,0
	MOV	AL,05H

L02283:
	CMP	AL,05H
	JNZ	$+5
	JMP	L024E3
	CMP	AL,08H
	JNZ	L02294
	CALL	L022CD
	JZ	RET
	JMP	L00BB9

L02294:
	CMP	AL,1CH
	JNZ	L022B9

L02299:
	CALL	L022CD
	JZ	RET
	MOV	CH,AL
	CALL	L00BB9
	MOV	AL,CH
	CALL	L022FA
	JZ	L02299

L022A8:
	CALL	L022CD
	JZ	RET
	MOV	CH,AL
	CALL	L00ED7
	JNC	L022CA
	CALL	L00BB9
	JMP	L022A8

L022B9:
	CMP	AL,12H
	JNZ	L022C4
	CALL	L024E3
	JMP	L007BE

L022C4:
	CMP	AL,03H
	JNZ	$+5
	JMP	L004B3
	MOV	[BX],AL

L022CA:
	LAHF
	INC	BX
	SAHF
	INC	CL
	RET

L022CD:
	MOV	AL,CL
	OR	AL,AL
	JZ	RET
	DEC	CL
	INC	AL
	LAHF
	DEC	BX
	SAHF
	MOV	AL,[BX]
	RET

L022D5:
	MOV	CH,13
	JMP	L022E1

L022DA:
	MOV	AL,13
	CALL	L024FC

L022DF:
	MOV	CH,10

L022E1:
	MOV	[L0286B],AL
	MOV	B,[BX],0
	MOV	AL,CH
	CALL	L024FC
	POP	BX
	POP	AX
	XCHG	AH,AL
	SAHF
	MOV	[L026A5],AL
	POP	DX
	POP	CX

L022F1:
	MOV	AL,[BX]
	CALL	L022FA
	JNZ	RET
	LAHF
	INC	BX
	SAHF
	JMP	L022F1

L022FA:
	CMP	AL,9
	JZ	RET
	CMP	AL,' '
	JZ	RET
	CMP	AL,10
	JZ	RET
	CMP	AL,13
	RET

L02306:
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L02318
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	SI
	XCHG	SI,BX
	PUSH	SI
	RET

L0230E:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XCHG	DX,BX
	PUSH	BX
	CALL	L02318
	POP	BX
	XCHG	DX,BX
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L02318:
	MOV	AL,[BX]
	INC	BX
	OR	AL,AL
	JZ	RET
	CALL	L024FC
	JMP	L02318

L02322:
	PUSH	BX
	MOV	BX,[L025B7]
	MOV	AL,[BX]
	OR	AL,AL
	JZ	L02340
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	B,[BX],0
	LAHF
	INC	BX
	SAHF
	MOV	AL,[BX]
	INC	AL
	JNZ	L02337
	MOV	BX,L025B9

L02337:
	MOV	[L025B7],BX
	CALL	L0234E
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	BX
	RET

L02340:
	POP	BX

L02341:
	CALL	L023B4
	AND	AL,7FH
	CALL	L0239C
	JZ	L02341
	OR	AL,AL
	RET

L0234E:
	PUSH	BX

L0234F:
	CALL	L023C0
	JZ	L02395

L02355:
	MOV	BX,[L025B5]
	MOV	AL,[BX]
	OR	AL,AL
	JNZ	L02383
	CALL	L023B4
	AND	AL,7FH
	JZ	L0042
	CALL	L0239C
L0042:	
	JZ	L0234F
	MOV	[BX],AL
	LAHF
	INC	BX
	SAHF
	MOV	AL,[BX]
	INC	AL
	JNZ	L02372
	MOV	BX,L025B9

L02372:
	MOV	[L025B5],BX
	MOV	AL,[BX]
	OR	AL,AL
	JNZ	L02383
	CALL	L023C0
	JNZ	L02355
	JMP	L02391

L02383:
	MOV	AL,'!'
	CALL	L024FC
	MOV	AL,07H
	CALL	L0259B
	XOR	AL,AL
	MOV	[L0269B],AL

L02391:
	POP	BX
	OR	AL,1
	RET

L02395:
	MOV	BX,[L025B7]
	MOV	AL,[BX]
	OR	AL,AL
	POP	BX
	RET

L0239C:
	CMP	AL,16H
	JNZ	RET
	CALL	L023B4
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L0259B
	POP	AX
	XCHG	AH,AL
	SAHF
	CMP	AL,1BH
	JNZ	L023B2
	CALL	L023B4
	CALL	L0259B

L023B2:
	XOR	AL,AL
	RET

L023B4:
	CALL	INCHR
	JZ	L023B4
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XOR	AL,AL
	MOV	[SAVCHR],AL
	POP	AX
	XCHG	AH,AL
	SAHF
	CMP	AL,3
	JNZ	RET
	MOV	[L026A7],AL
	RET

L023C0:
	CALL	INCHR
	JZ	RET
	MOV	AL,-1
	RET

INCHR:
	MOV	AL,[SAVCHR]
	OR	AL,AL
	JNZ	RET
	MOV	AL,-1		;Input mode
	CALL	CONIO
	MOV	[SAVCHR],AL
	OR	AL,AL
	RET
SAVCHR:	DB	0

CONIO:
	PUSH	CX
	PUSH	DX
	PUSH	BX
	MOV	DL,AL
	MOV	CL,6
	CALL	5
	POP	BX
	POP	DX
	POP	CX
	RET

L023D6:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	AL,[L026A5]
	OR	AL,AL
	JNZ	L023E3
	CALL	L0234E
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L023E3:
	CALL	L023FA
	JNZ	L023EB
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L023EB:
	CALL	L00534
	DB	'Interrupted',0

L023FA:
	CALL	L0234E
	PUSH	BX
	MOV	BX,L026A7
	MOV	AL,[BX]
	MOV	B,[BX],0
	OR	AL,AL
	POP	BX
	JZ	RET
	PUSH	CX
	PUSH	BX
	MOV	BX,L025B9
	MOV	[L025B5],BX
	MOV	[L025B7],BX
	MOV	CL,100
	XOR	AL,AL

L02415:
	MOV	[BX],AL
	LAHF
	INC	BX
	SAHF
	DEC	CL
	JNZ	L02415
	DEC	CL
	POP	BX
	POP	CX
	RET

L0241F:
	MOV	AL,13

L02421:
	CMP	AL,13
	JNZ	L0043
	CALL	L02430
L0043:	
	CALL	L02465
	JNC	RET
	CALL	L02430
	JMP	L024FC

L02430:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	INC	DL
	JZ	L0243F
	DEC	DL
	NOP
	NOP
	NOP
	INC	DL
	CMP	AL,9
	JNZ	L02462

L0243F:
	MOV	AL,[L026A1]
	CMP	AL,13
	JZ	L02462
	CALL	L0234E
	MOV	AL,[EREOL]
	OR	AL,AL
	JZ	L0044
	CALL	L00239
L0044:	
	JNZ	L02462

L02454:
	MOV	AL,' '
	CALL	L02465
	JC	L02462
	CALL	L0234E
	JMP	L02454

L02462:
	DEC	DL
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L02465:
	CALL	L0246C
	JC	RET
	JMP	L024FC

L0246C:
	CMP	AL,13
	JZ	RET
	CMP	AL,10
	JZ	RET
	PUSH	CX
	MOV	CH,AL
	MOV	AL,[L02684]
	MOV	CL,AL
	MOV	AL,CH
	CMP	AL,9
	JNZ	L02483
	MOV	AL,CL
	OR	AL,07H
	MOV	CL,AL
	NOT	AL

L02483:
	CMP	AL,' '
	JNC	L0248E
	CMP	AL,1BH
	JZ	L0248E
	INC	CL

L0248E:
	INC	CL
	MOV	AL,[WID]
	INC	CL
	CMP	AL,CL
	MOV	AL,CH
	POP	CX
	RET

L02497:
	CALL	L0249A

L0249A:
	PUSH	BX

L0249B:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	BX,L02684
	CMP	AL,' '
	JC	L024B7

L024A4:
	INC	B,[BX]
	MOV	AL,[WID]
	CMP	AL,[BX]
	JZ	L024AF
	JNC	L024D1

L024AF:
	MOV	B,[BX],2
	LAHF
	DEC	BX
	SAHF
	INC	B,[BX]
	POP	AX
	XCHG	AH,AL
	SAHF
	JMP	L0249B

L024B7:
	CMP	AL,1BH
	JZ	L024A4
	CMP	AL,10
	JZ	L024CF
	CMP	AL,13
	JZ	L024D4
	CMP	AL,9
	JZ	L024DC
	INC	B,[BX]
	JMP	L024A4

L024CF:
	LAHF
	DEC	BX
	SAHF
	INC	B,[BX]

L024D1:
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	BX
	RET

L024D4:
	CALL	L0234E
	MOV	B,[BX],0
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	BX
	RET

L024DC:
	MOV	AL,[BX]
	OR	AL,07H
	MOV	[BX],AL
	JMP	L024A4

L024E3:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	MOV	AL,13
	CALL	L024FC
	MOV	AL,10
	CALL	L024FC
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L024F0:
	CMP	AL,08H
	JZ	RET
	CMP	AL,7FH
	JZ	RET
	CMP	AL,1FH
	JZ	RET
	CMP	AL,1CH
	JZ	RET

L024FC:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	PUSH	BX
	CMP	AL,1BH
	JNZ	L02505
	MOV	AL,'$'

L02505:
	CMP	AL,7FH
	JNZ	L0250C
	MOV	AL,'~'

L0250C:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L0246C
	JNC	L0251B
	CALL	L02306
	DB	13,10,'>>',0

L0251B:
	MOV	BX,[L025A7]
	CMP	AL,13
	JNZ	L02529
	MOV	BX,L025A9
	JMP	L0255B

L02529:
	CMP	AL,9
	JNZ	L02548
	LAHF
	INC	BX
	SAHF
	MOV	AL,[BX]
	INC	AL
	JNZ	L02535
	LAHF
	DEC	BX
	SAHF

L02535:
	MOV	B,[BX],0

L02537:
	MOV	AL,' '
	CALL	L02567
	INC	B,[BX]
	MOV	AL,[L02684]
	AND	AL,07H
	JNZ	L02537
	JMP	L0255B

L02548:
	CMP	AL,' '
	JNC	L0255B
	CMP	AL,10
	JZ	L0255B
	MOV	AL,'^'
	CALL	L02567
	POP	AX
	XCHG	AH,AL
	SAHF
	ADD	AL,40H
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL

L0255B:
	MOV	[L025A7],BX
	POP	AX
	XCHG	AH,AL
	SAHF
	POP	BX
	CMP	AL,9
	JZ	L0045
	CALL	L02567
L0045:	
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L02567:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	CALL	L0259B
	POP	AX
	XCHG	AH,AL
	SAHF
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	PUSH	BX
	CALL	L02574
	POP	BX
	POP	AX
	XCHG	AH,AL
	SAHF
	RET

L02574:
	MOV	BX,L02684
	CMP	AL,10
	JZ	L02586
	CMP	AL,13
	JNZ	L02584
	MOV	B,[BX],0
	RET

L02584:
	INC	B,[BX]
	RET

L02586:
	LAHF
	DEC	BX
	SAHF
	INC	B,[BX]
	MOV	AL,[HITE]
	DEC	AL
	CMP	AL,[BX]
	JNC	RET
	DEC	B,[BX]
	LAHF
	DEC	BX
	SAHF
	INC	B,[BX]
	RET

L02592:
	LAHF
	XCHG	AH,AL
	PUSH	AX
	XCHG	AH,AL
	XOR	AL,AL
	MOV	[L026A1],AL
	POP	AX
	XCHG	AH,AL
	SAHF
	JMP	L0259E

L0259B:
	MOV	[L026A1],AL

L0259E:
	JMP	CONIO

L025A7:	DW	L025A9
L025A9:	DB	0FFH
	DB	0,0,0,0,0,0,0,0,0,0
	DB	0FFH
L025B5:	DW	L025B9
L025B7:	DW	L025B9
L025B9:	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0
	DB	0FFH

	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DB	0,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
STKBIAS:EQU	0-L0293C
L029B6:	DS	4
MEMORY: