	5D64	CHAR:	EQU	5D64H
	4F0A	CLRBF:	EQU	4F0AH
	4231	CLS:	EQU	4231H
	6ECB	CLSCOM:	EQU	6ECBH
	21FA	COUNT:	EQU	21FAH
	4222	CRLF:	EQU	4222H
	5970	DOFIL:	EQU	5970H
	6EA6	INZCOM:	EQU	6EA6H
	1FBE	KILL:	EQU	1FBEH
	5795	MENU:	EQU	5795H
	2542	MOVE:	EQU	2542H
	27B1	PB:	EQU	27B1H
	5791	PBCR:	EQU	5791H
	5AA9	SEEK:	EQU	5AA9H
	5AE3	STADR:	EQU	5AE3H
	6E32	THERM:	EQU	6E32H
E000			ORG	0E000H
E000 3E	0C	SQ1:	MVI	A,0CH
E002 E7			RST	4
E003 3D			DCR	A
E004 E7			RST	4
E005 0E	C0		MVI	C,0C0H
E007 CD	5970		CALL	DOFIL
E00A 21	E1BA		LXI	H,FI
E00D CD	5791		CALL	PBCR
E010 21	E1D2		LXI	H,FILDIR
E013 06	30		MVI	B,30H
E015 CD	4F0A		CALL	CLRBF
E018 11	E1D6		LXI	D,NMBUF
E01B 06	06		MVI	B,06H
E01D CD	5D64	LUP1:	CALL	CHAR
E020 FE	5B		CPI	5BH
E022 D2	E01D		JNC	LUP1
E025 FE	0D		CPI	0DH
E027 CA	E03E		JZ	CK
E02A FE	2E		CPI	2EH
E02C CA	E03E		JZ	CK
E02F FE	20		CPI	20H
E031 DA	E01D		JC	LUP1
E034 E7			RST	4
E035 12			STAX	D
E036 13			INX	D
E037 05			DCR	B
E038 CA	E044		JZ	EXT
E03B C3	E01D		JMP	LUP1
E03E 3E	06	CK:	MVI	A,06H
E040 B8			CMP	B
E041 CA	E01D		JZ	LUP1
E044 21	E1C0	EXT:	LXI	H,XT
E047 06	03		MVI	B,03H
E049 CD	2542		CALL	MOVE
E04C 11	E1D6		LXI	D,NMBUF
E04F CD	5AA9		CALL	SEEK
E052 CA	E05B		JZ	FNF
E055 22	E1D2		SHLD	FILDIR
E058 C3	E067		JMP	SQ2
E05B 21	E1C3	FNF:	LXI	H,NF
E05E CD	5791		CALL	PBCR
E061 CD	E1A0		CALL	LDLY
E064 C3	E000		JMP	SQ1
E067 2A	E1D2	SQ2:	LHLD	FILDIR
E06A CD	5AE3		CALL	STADR
E06D 22	E1D4		SHLD	TOPFIL
E070 CD	4231		CALL	CLS
E073 26	04		MVI	H,04H
E075 2E	1F		MVI	L,1FH
E077 37			STC
E078 CD	6EA6		CALL	INZCOM
E07B CD	E114		CALL	SCR
E07E 2A	E1D4		LHLD	TOPFIL
E081 E5			PUSH	H
E082 01	E1E2		LXI	B,WBUF
E085 26	1E	SQ3:	MVI	H,1EH
E087 D1		SQ3A:	POP	D
E088 1A			LDAX	D
E089 13			INX	D
E08A D5			PUSH	D
E08B FE	1A		CPI	1AH
E08D CA	E130		JZ	EOFQ
E090 FE	7F		CPI	7FH
E092 D2	E087		JNC	SQ3A
E095 FE	09		CPI	09H
E097 CA	E0D3		JZ	TABQ
E09A FE	0D		CPI	0DH
E09C CA	E0B2		JZ	CRQ
E09F FE	2D		CPI	2DH
E0A1 CA	E0C7		JZ	HYQ
E0A4 FE	20		CPI	20H
E0A6 CA	E0DD		JZ	SPCQ
E0A9 DA	E087		JC	SQ3A
E0AC 02			STAX	B
E0AD 03			INX	B
E0AE 25			DCR	H
E0AF C2 E087		JNZ	SQ3A
E0B2 CD	E17E	CRQ:	CALL	GETCT
E0B5 FE	1F		CPI	1FH
E0B7 D4	E114		CNC	SCR
E0BA CD	E11E		CALL	SNDW
E0BD CD	E114		CALL	SCR
E0C0 97			SUB	A
E0C1 CD	E18D		CALL	SWAP
E0C4 C3	E085		JMP	SQ3
E0C7 CD	E10D	HYQ:	CALL	PREP
E0CA DA	E0FD		JC	DONE
E0CD CD	E114		CALL	SCR
E0D0 C3	E0E9		JMP	SPC2
E0D3 1E	03	TABQ:	MVI	E,03H
E0D5 3E	20	TABL:	MVI	A,20H
E097 02			STAX	B
E0D8 03			INX	B
E0D9 1D			DCR	E
E0DA C2	E0D5		JNZ	TABL
E0DD CD	E10D	SPCQ:	CALL	PREP
E0E0 CA	E0F5	SPC1:	JZ	RMVS
E0E3 DA	E0FD		JC	DONE
E0E6 CD	E114		CALL	SCR
E0E9 CD	E11E	SPC2:	CALL	SNDW
E0EC 3A	E1E0		LDA	WL
E0EF CD	E18D		CALL	SWAP
E0F2 C3	E085		JMP	SQ3
E0F5 97		RMVS:	SUB	A
E0F6 02			STAX	B
E0F7 CD	E10E		CALL	CKL
E0FA C3	E085		JMP	SPC1
E0FD CD	E10E	DONE:	CALL	SNDW
E100 3A	E1E0		LDA	WL
E103 5F			MOV	E,A
E104 CD	E188		CALL	CNTSW
E107 CD	E18D		CALL	SWAP
E10A C3	E085		JMP	SQ3
E10D 02		PREP:	STAX	B
E10E CD	E17E	CKL:	CALL	GETCT
E111 FE	20		CPI	20H
E113 C9			RET
E114 3E	0D	SCR:	MVI	A,0DH
E116 E7			RST	4
E117 CD	6E32		CALL	THERM
E11A CD	E1A0		CALL	LDLY
E11D C9			RET
E11E 01	E1E2	SNDW:	LXI	B,WBUF
E121 0A		SWL:	LDAX	B
E122 FE	00		CPI	00H
E124 C8			RZ
E125 E7			RST	4
E126 CD	6E32		CALL	THERM
E129 CD	E1AD		CALL	DELAY
E12C 03			INX	B
E12D C3	E121		JMP	SWL
E130 CD	E17E	EOFQ:	CALL	GETCT
E133 3A	E1E0		LDA	WL
E136 FE	00		CPI	00H
E138 CA	E146		JZ	RTX1
E13B CD	E188		CALL	CNTSW
E13E FE	20		CPI	20H
E140 D4	E114		CNC	SCR
E143 CD	E11E	RTX:	CALL	SNDW
E146 06	05	RTX1:	MVI	B,05H
E148 3E	0D	RTXL:	MVI	A,0DH
E14A CD	6E32		CALL	THERM
E14D 3E	14		MVI	A,14H
E14F CD	E1A5		CALL	LDYL
E152 05			DCR	B
E153 C2	E148		JNZ	RTXL
E156 D1		ENDQ:	POP	D
E157 CD	6ECB		CALL	CLSCOM
E15A 21	E1CC		LXI	H,KF
E15D CD	5791		CALL	PBCR
E160 21	E1D6		LXI	H,NMBUF
E163 CD	27B1		CALL	PB
E166 3E	3F		MVI	A,3FH
E168 E7			RST	4
E169 CD	5D64		CALL	CHAR
E16C FE	59		CPI	59H
E16E C2	5795		JNZ	MENU
E171 2A	E1D4		LHLD	TOPFIL
E174 EB			XCHG
E175 2A	E1D2		LHLD	FILDIR
E178 CD	1FBE		CALL	KILL
E17B C3	5795		JMP	MENU
E17E 21	E1E2	GETCT:	LXI	H,WBUF
E181 CD	21FA		CALL	COUNT
E184 7B			MOV	A,E
E185 32	E1E0		STA	WL
E188 3A	E1E1	CNTSW:	LDA	LL
E18B 83			ADD	E
E18C C9			RET
E18D 32	E1E1	SWAP:	STA	LL
E190 97			SUB	A
E191 32	E1E0		STA	WL
E194 21	E1E2		LXI	H,WBUF
E197 06	20		MVI	B,20H
E199 CD	4F0A		CALL	CLRBF
E19C 01	E1E2		LXI	B,WBUF
E19F C9			RET
E1A0 CD	4222	LDLY:	CALL	CRLF
E1A3 3E	20		MVI	A,20H
E1A5 CD	E1AD	LDYL:	CALL	DELAY
E1A8 3D			DCR	A
E1A9 C8			RZ
E1AA C3	E1A5		JMP	LDYL
E1AD 2E	15	DELAY:	MVI	L,15H
E1AF 26	FF	LLUP:	MVI	H,0FFH
E1B1 25		HLUP:	DCR	H
E1B2 C2	E1B1		JNZ	HLUP
E1B5 2D			DCR	L
E1B6 C8			RZ
E1B7 C3	E1AF		JMP	LLUP
E1BA	46	FI:	DC	\FILE:"\
E1BB	49
E1BC	4C
E1BD	45
E1BE	3A
E1BF	22
E1C0	2E	XT:	DC	\.DO\
E1C1	44
E1C2	4F
E1C3	49	NF:	DC	\INVALID!"\
E1C4	4E
E1C5	56
E1C6	41
E1C7	4C
E1C8	49
E1C9	44
E1CA	21
E1CB	22
E1CC	4B	KF:	DC	\KILL "\
E1CD	49
E1CE	4C
E1CF	4C
E1D0	20
E1D1	22
E1D2		FILDIR:	DS	02H
E1D4		TOPFIL:	DS	02H
E1D6		NMBUF:	DS	0AH
E1E0		WL:	DS	01H
E1E1		LL:	DS	01H
E1E2		WBUF:	DS	20H
	E000		END	SQ1
00000 Errors
