LF	EQU	0AH
SYSTEM	EQU	0005H
;
	ORG	0100H
	LXI	SP,L0325
	LXI	B,L0325
	CALL	0E012H
L0109:	CALL	L01D3
	CALL	L0200
	LDA	L0726
	ORA	A
	JZ	0E000H
	LDA	L0727
	DCR	A
	MOV	C,A
	LDA	L0728
	CPI	3AH
	JNZ	L0126
	CALL	0E01BH
L0126:	CALL	0E009H
	LDA	L0726
	MOV	C,A
	LXI	H,L0727
L0130:	MOV	A,M
	CPI	2FH
	JZ	L013E
	INX	H
	DCR	C
	JNZ	L0130
	JMP	L0109
;
L013E:	DCX	H
	MOV	A,M
	ANI	0FH
	MOV	C,A
	DCX	H
	MOV	A,M
	CPI	20H
	JZ	L0154
	CALL	L01E2
	DCX	H
	MOV	A,M
	CPI	20H
	JNZ	L0109
L0154:	CALL	0E00CH
	LXI	D,L028B
	JC	L0208
	LXI	H,L0727
	LDA	L0726
	ADD	L
	MOV	L,A
	JNC	L0169
	INR	H
L0169:	DCX	H
	MOV	A,M
	ANI	0FH
	MOV	C,A
	DCX	H
	MOV	A,M
	CPI	2FH
	JZ	L017F
	CALL	L01E2
	DCX	H
	MOV	A,M
	CPI	2FH
	JNZ	L0109
L017F:	CALL	0E00FH
	LXI	D,L026B
	JC	L0208
	LXI	H,L0728
	MOV	A,M
	CPI	3AH
	JNZ	L0197
	INX	H
	INX	H
	MOV	A,M
	JMP	L0199
;
L0197:	DCX	H
	MOV	A,M
L0199:	CPI	57H
	JZ	L01C3
	CPI	52H
	JNZ	L0109
	LXI	D,L0400
	LXI	H,L0325
L01A9:	MVI	A,00H
	MOV	M,A
	INX	H
	DCX	D
	MOV	A,E
	ORA	D
	JNZ	L01A9
	CALL	0E015H
	JNC	L01C2
	STA	L0325
	LXI	D,L020E
	JMP	L0208
;
L01C2:	RST	7
;
L01C3:	CALL	0E018H
	JNC	L01D2
	STA	L0325
	LXI	D,L023C
	JMP	L0208
;
L01D2:	RST	7
;
L01D3:	LXI	D,L02AB
	CALL	L0203
	LXI	D,L0725
	MVI	C,LF
	CALL	SYSTEM
	RET
;
L01E2:	ANI	0FH
	MOV	B,A
L01E5:	MVI	A,LF
	ADD	C
	MOV	C,A
	DCR	B
	JNZ	L01E5
	RET
;
	LDAX	D
	CPI	3AH
	JP	L01FD
	CPI	30H
	JM	L01FD
	ANI	0FH
	MOV	C,A
	RET
;
L01FD:	MVI	A,0FFH
	RET
;
L0200:	LXI	D,L02A8
L0203:	MVI	C,09H
	JMP	SYSTEM
;
L0208:	MVI	C,09H
	CALL	SYSTEM
	RST	7
;
L020E:	DCR	C
	LDAX	B
	MOV	D,D
	MOV	H,L
	MOV	H,C
	MOV	H,H
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
L023C:	DCR	C
	LDAX	B
	MOV	D,A
	MOV	M,D
	MOV	L,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
L026B:	DCR	C
	LDAX	B
	MOV	C,M
	MOV	L,A
	DB	20H
	MOV	M,E
	MOV	M,L
	MOV	H,E
	MOV	L,B
	DB	20H
	MOV	M,E
	MOV	H,L
	MOV	H,E
	MOV	M,H
	MOV	L,A
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	L,M
	DB	20H
	MOV	M,H
	MOV	L,B
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	M,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	MVI	L,24H
L028B:	DCR	C
	LDAX	B
	MOV	D,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	DB	20H
	MOV	L,M
	MOV	M,L
	MOV	L,L
	MOV	H,D
	MOV	H,L
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	M,L
	MOV	M,H
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	M,D
	MOV	H,C
	MOV	L,M
	MOV	H,A
	MOV	H,L
	MVI	L,24H
L02A8:	DCR	C
	LDAX	B
	INR	H
L02AB:	DB	CR,LF,'ENTER COMMAND LINE IN THIS FORMAT:',CR
	DB	LF,'B: (OPTIONAL) R (OR W) TRK/SEC',CR,LF,'BUF'
	DB	'FER AT 0325H',CR,LF,'$',0,0
	JMP	SYSTEM
;
	MVI	C,09H
	CALL	SYSTEM
	RST	7
;
	DCR	C
	LDAX	B
	MOV	D,D
	MOV	H,L
	MOV	H,C
	MOV	H,H
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
L0325:	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	D,A
	MOV	M,D
	MOV	L,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	C,M
	MOV	L,A
	DB	20H
	MOV	M,E
	MOV	M,L
	MOV	H,E
	MOV	L,B
	DB	20H
	MOV	M,E
	MOV	H,L
	MOV	H,E
	MOV	M,H
	MOV	L,A
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	L,M
	DB	20H
	MOV	M,H
	MOV	L,B
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	M,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	D,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	DB	20H
	MOV	L,M
	MOV	M,L
	MOV	L,L
	MOV	H,D
	MOV	H,L
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	M,L
	MOV	M,H
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	M,D
	MOV	H,C
	MOV	L,M
	MOV	H,A
	MOV	H,L
	DB	'.$',CR,LF,'$',CR,LF,'ENTER COMMAND LINE IN TH'
	DB	'IS FORMAT:',CR,LF,'B: (OPTIONAL) R (OR W) TRK'
	DB	'/SEC',CR,LF,'BUFFER AT 0325H'
L0400:	DCR	C
	LDAX	B
	INR	H
	NOP
	NOP
	JMP	SYSTEM
;
	MVI	C,09H
	CALL	SYSTEM
	RST	7
;
	DCR	C
	LDAX	B
	MOV	D,D
	MOV	H,L
	MOV	H,C
	MOV	H,H
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	D,A
	MOV	M,D
	MOV	L,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	C,M
	MOV	L,A
	DB	20H
	MOV	M,E
	MOV	M,L
	MOV	H,E
	MOV	L,B
	DB	20H
	MOV	M,E
	MOV	H,L
	MOV	H,E
	MOV	M,H
	MOV	L,A
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	L,M
	DB	20H
	MOV	M,H
	MOV	L,B
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	M,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	D,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	DB	20H
	MOV	L,M
	MOV	M,L
	MOV	L,L
	MOV	H,D
	MOV	H,L
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	M,L
	MOV	M,H
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	M,D
	MOV	H,C
	MOV	L,M
	MOV	H,A
	MOV	H,L
	DB	'.$',CR,LF,'$',CR,LF,'ENTER COMMAND LINE IN TH'
	DB	'IS FORMAT:',CR,LF,'B: (OPTIONAL) R (OR W) TRK'
	DB	'/SEC',CR,LF,'BUFFER AT 0325H',CR,LF,'$',0,0
	JMP	SYSTEM
;
	MVI	C,09H
	CALL	SYSTEM
	RST	7
;
	DCR	C
	LDAX	B
	MOV	D,D
	MOV	H,L
	MOV	H,C
	MOV	H,H
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	D,A
	MOV	M,D
	MOV	L,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	C,M
	MOV	L,A
	DB	20H
	MOV	M,E
	MOV	M,L
	MOV	H,E
	MOV	L,B
	DB	20H
	MOV	M,E
	MOV	H,L
	MOV	H,E
	MOV	M,H
	MOV	L,A
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	L,M
	DB	20H
	MOV	M,H
	MOV	L,B
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	M,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	D,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	DB	20H
	MOV	L,M
	MOV	M,L
	MOV	L,L
	MOV	H,D
	MOV	H,L
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	M,L
	MOV	M,H
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	M,D
	MOV	H,C
	MOV	L,M
	MOV	H,A
	MOV	H,L
	DB	'.$',CR,LF,'$',CR,LF,'ENTER COMMAND LINE IN TH'
	DB	'IS FORMAT:',CR,LF,'B: (OPTIONAL) R (OR W) TRK'
	DB	'/SEC',CR,LF,'BUFFER AT 0325H',CR,LF,'$',0,0
	JMP	SYSTEM
;
	MVI	C,09H
	CALL	SYSTEM
	RST	7
;
	DCR	C
	LDAX	B
	MOV	D,D
	MOV	H,L
	MOV	H,C
	MOV	H,H
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	D,A
	MOV	M,D
	MOV	L,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	H,M
	MOV	L,C
	MOV	M,D
	MOV	M,E
	MOV	M,H
	DB	20H
	MOV	H,D
	MOV	A,C
	MOV	M,H
	MOV	H,L
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	H,D
	MOV	M,L
	MOV	H,M
	MOV	H,M
	MOV	H,L
	MOV	M,D
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	C,M
	MOV	L,A
	DB	20H
	MOV	M,E
	MOV	M,L
	MOV	H,E
	MOV	L,B
	DB	20H
	MOV	M,E
	MOV	H,L
	MOV	H,E
	MOV	M,H
	MOV	L,A
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	L,M
	DB	20H
	MOV	M,H
	MOV	L,B
	MOV	L,C
	MOV	M,E
	DB	20H
	MOV	M,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	MVI	L,24H
	DCR	C
	LDAX	B
	MOV	D,H
	MOV	M,D
	MOV	H,C
	MOV	H,E
	MOV	L,E
	DB	20H
	MOV	L,M
	MOV	M,L
	MOV	L,L
	MOV	H,D
	MOV	H,L
	MOV	M,D
	DB	20H
	MOV	L,A
	MOV	M,L
	MOV	M,H
	DB	20H
	MOV	L,A
	MOV	H,M
	DB	20H
	MOV	M,D
	MOV	H,C
	MOV	L,M
	MOV	H,A
	MOV	H,L
	DB	'.$',CR,LF,'$',CR,LF,'ENTER COMMAND LINE IN TH'
	DB	'IS FORMAT:',CR,LF,'B: (OPTIONAL) R (OR W) TRK'
	DB	'/SEC',CR,LF,'BUFFER AT 0325H',CR,LF,'$',0,0
	JMP	SYSTEM
;
	MVI	C,09H
	CALL	SYSTEM
	RST	7
;
	DCR	C
	LDAX	B
	MOV	D,D
	MOV	H,L
	MOV	H,C
	MOV	H,H
	DB	20H
	MOV	H,L
	MOV	M,D
	MOV	M,D
	MOV	L,A
	MOV	M,D
	MVI	L,20H
	MOV	D,E
	MOV	M,H
	MOV	H,C
	MOV	M,H
	MOV	M,L
	MOV	M,E
	DB	20H
	MOV	L,C
	MOV	M,E
L0725:	INR	C
L0726:	NOP
L0727:	NOP
L0728:	DB	0,0,0,0,0,0,0,0,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,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,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
	END