U5/TXT ;	U5/TXT	U5/TOO	U5
 	ORG	95ABH
 TK0	EQU	4019H
 DRVASC	EQU	43BCH
 TCOUNT	EQU	5BDCH
 TOPMEM	EQU	402CH
 BUFF1	EQU	0A100H
 BUFF2	EQU	0A200H
 BUFFER	EQU	0A300H
 NOTIN	EQU	6349H
 BADRD	EQU	4750H
 BADWRT	EQU	556CH
 TYPE	EQU	4026H
 COPY	EQU	9226H
 FIXDRV	EQU	43ADH
 VALUE	EQU	607DH
 FORM	EQU	8521H
 RETURN	EQU	61F0H
 DRIVE	EQU	401AH
 STATCK	EQU	8BE5H
 TRAK	EQU	85A9H
 TRACKS	EQU	401BH
 RESTOR	EQU	43CAH
 TEMP0	EQU	4031H
 TEMP1	EQU	4033H
 TEMP2	EQU	4035H
 SOURCE	EQU	4043H
 DEST	EQU	4044H
 TEMP3	DEFB	0
 	DEFB	0FFH
 D1	EQU	4045H
 D2	EQU	4046H
 SCOPY	CALL	GETSRC
 	CALL	GETDES
 	CALL	GETTKS
 	RST	8
 	DEFB	3
 	DEFM	'- Copy Without Format -'
 	DEFW	0404H
 	DEFB	0
 	LD	A,(SOURCE)
 	LD	B,A
 	LD	A,(DEST)
 	CP	B
 	JP	Z,SDRIVE
 	CALL	MOUNT
 	LD	A,(SOURCE)
 	LD	(DRIVE),A
 	CALL	RESTOR
 	JP	Z,NOTIN
 	LD	A,(DEST)
 	LD	(DRIVE),A
 	LD	IX,TEMP3
 	LD	(IX),A
 	CALL	STATCK
 DOCOPY	LD	DE,0
 	XOR	A
 	LD	(D1),A
 	LD	(D2),A
 COPYLP	LD	A,(SOURCE)
 	LD	(DRIVE),A
 	LD	IX,BUFF1
 	LD	A,D
 	RST	28H
 	LD	(ST),BC
 	LD	E,0
 	LD	BC,BUFFER
 	LD	A,(D1)
 	LD	(37EDH),A
 COPYR	PUSH	BC
 	LD	A,E
 	RST	28H
 	LD	A,B
 	LD	(SS),A
 	CALL	RSHOW
 	POP	BC
 	PUSH	BC
 	LD	A,D
 	LD	(TK0),A
 	RST	18H
 	POP	BC
 	JR	Z,RDYES
 	CALL	BADRD
 	RST	8
 	DEFB	6
 	DEFB	0
 RDYES	EX	AF,AF'
 	LD	(IX),A
 	INC	IX
 	INC	B
 	INC	E
 	LD	A,E
 	SUB	0AH
 	JP	NZ,COPYR
 	LD	A,D
 	LD	(D1),A
 COPYP	LD	A,(DEST)
 	LD	(DRIVE),A
 	LD	IX,BUFF1
 	LD	A,D
 	RST	28H
 	LD	(DT),BC
 	LD	(DT2),BC
 	LD	E,0
 	LD	BC,BUFFER
 	LD	A,(D2)
 	LD	(37EDH),A
 COPYW	PUSH	BC
 	LD	A,E
 	RST	28H
 	LD	A,B
 	LD	(DS),A
 	CALL	WSHOW
 	POP	BC
 	LD	A,D
 	LD	(TK0),A
 	LD	A,(IX)
 	INC	IX
 	RST	20H
 	CALL	NZ,BADWRT
 	INC	E
 	LD	A,E
 	SUB	0AH
 	JP	NZ,COPYW
 	LD	A,D
 	LD	(D2),A
 	LD	E,0
 VERLP	LD	A,E
 	RST	28H
 	LD	A,B
 	LD	(VS),A
 	CALL	VSHOW
 	LD	BC,BUFFER
 	LD	A,(D2)
 	LD	(37EDH),A
 	LD	A,D
 	LD	(TK0),A
 	RST	18H
 	JR	Z,YYABC
 	CALL	BADRD
 	RST	8
 	DEFB	6
 	DEFB	0
 YYABC	INC	E
 	LD	A,E
 	SUB	0AH
 	JP	NZ,VERLP
 	LD	A,D
 	LD	(D2),A
 	LD	A,(TRACKS)
 	INC	D
 	CP	D
 	JP	NZ,COPYLP
 	JP	RETURN
 GETSRC	RST	8
 	DEFB	4
 	DEFB	0
 GETSRR	RST	8
 	DEFB	6
 	DEFM	'Source Drive ? '
 	DEFB	0
 	LD	A,1
 	RST	10H
 	JR	Z,GETSRR
 	SUB	30H
 	JR	C,GETSRR
 	CP	4
 	JR	NC,GETSRR
 	CALL	FIXDRV
 	CALL	DRVASC
 	LD	(SD),A
 	LD	A,(DRIVE)
 	LD	(SOURCE),A
 	RET
 GETDES	RST	8
 	DEFB	4
 	DEFB	0
 GETDEE	RST	8
 	DEFB	6
 	DEFM	'Destination Drive ? '
 	DEFB	0
 	LD	A,1
 	RST	10H
 	JR	Z,GETDEE
 	SUB	30H
 	JR	C,GETDEE
 	CP	4
 	JR	NC,GETDEE
 	CALL	FIXDRV
 	LD	A,(DRIVE)
 	LD	(DEST),A
 	CALL	DRVASC
 	LD	(DD),A
 	LD	(DD2),A
 	RET
 GETTKS	CALL	TCOUNT
 	JR	Z,GETTKS
 	LD	A,B
 	OR	A
 	JR	NZ,GETTKS
 	LD	A,C
 	OR	A
 	JR	Z,GETTKS
 	LD	(TRACKS),A
 	RET
 MOUNT	RST	8
 	DEFB	4
 	DEFM	'Press <ENTER> when Disks are mounted. '
 	DEFB	0
 	XOR	A
 	RST	10H
 	RST	8
 	DEFB	6
 	DEFB	0
 	RET
 SCOPYF	CALL	GETSRC
 	CALL	GETDES
 	CALL	GETTKS
 	LD	A,(DEST)
 	LD	(DRIVE),A
 	LD	A,0FFH
 	LD	(BUFF1+2),A
 	LD	A,(SOURCE)
 	LD	B,A
 	LD	A,(DEST)
 	CP	B
 	JP	Z,SINGLE
 	CALL	MOUNT
 	LD	A,(SOURCE)
 	LD	(DRIVE),A
 	CALL	RESTOR
 	JP	Z,NOTIN
 	LD	A,(DEST)
 	LD	(DRIVE),A
 	LD	IX,TEMP3
 	LD	(IX),A
 	CALL	STATCK
 	LD	IY,TRACKS
 	LD	HL,BUFFER
 	LD	DE,BUFFER+1
 	LD	BC,0FFH
 	LD	(HL),0FCH
 	LDIR
 	JP	FORM
 CPYCON	RST	8
 	DEFB	3
 	DEFM	'- Copy With Format -'
 	DEFW	0404H
 	DEFB	0
 	CALL	RESTOR
 	JP	Z,NOTIN
 	LD	A,(DEST)
 	LD	B,A
 	LD	A,(SOURCE)
 	CP	B
 	JP	Z,SDRIVE
 	JP	DOCOPY
 SINGLE	LD	A,(DEST)
 	LD	(DRIVE),A
 	LD	IX,TEMP3
 	LD	(IX),A
 	CALL	DMOUNT
 	CALL	STATCK
 	LD	IY,TRACKS
 	JP	FORM
 DMOUNT	RST	8
 	DEFB	6
 	DEFM	'Press <ENTER> when DESTINATION disk mounted. '
 	DEFB	0
 	XOR	A
 	RST	10H
 	RST	8
 	DEFB	6
 	DEFB	0
 	RET
 SMOUNT	RST	8
 	DEFB	5
 	DEFM	'Press <ENTER> when SOURCE disk mounted. '
 	DEFB	0
 	XOR	A
 	RST	10H
 	RST	8
 	DEFB	6
 	DEFB	0
 	RET
 SDRIVE	LD	A,(SOURCE)
 	LD	(DRIVE),A
 	CALL	SMOUNT
 	CALL	RESTOR
 	JP	Z,NOTIN
 	LD	DE,0
 	LD	(TEMP1),DE
 	LD	(TEMP2),DE
 	JR	CPO
 CPLP	LD	A,(SOURCE)
 	LD	(DRIVE),A
 	CALL	SMOUNT
 CPO	LD	IX,BUFF1
 	LD	BC,BUFF2
 CPR	PUSH	BC
 	LD	DE,(TEMP1)
 	LD	A,E
 	RST	28H
 	LD	A,B
 	LD	(SS),A
 	LD	A,D
 	RST	28H
 	LD	(ST),BC
 	CALL	RSHOW
 	POP	BC
 	LD	A,D
 	LD	(TK0),A
 	RST	18H
 	JR	Z,AYYF
 	CALL	BADRD
 	RST	8
 	DEFB	6
 	DEFB	0
 AYYF	EX	AF,AF'
 	LD	(IX),A
 	INC	IX
 	INC	E
 	LD	A,E
 	SUB	0AH
 	JR	NZ,TKOK
 	LD	E,A
 	INC	D
 TKOK	LD	(TEMP1),DE
 	LD	A,(TRACKS)
 	CP	D
 	JR	Z,CPP
 	LD	HL,(TOPMEM)
 	DEC	H
 	LD	A,B
 	CP	H
 	JP	NZ,CPR
 CPP	CALL	DMOUNT
 	LD	IX,BUFF1
 	LD	BC,BUFF2
 CPW	PUSH	BC
 	LD	DE,(TEMP2)
 	LD	A,E
 	RST	28H
 	LD	A,B
 	LD	(DS),A
 	LD	A,D
 	RST	28H
 	LD	(DT),BC
 	CALL	WSHOW
 	POP	BC
 	LD	A,D
 	LD	(TK0),A
 	LD	A,(IX)
 	INC	IX
 	RST	20H
 	JR	Z,YTYT
 	CALL	BADWRT
 	RST	8
 	DEFB	6
 	DEFB	0
 YTYT	INC	E
 	LD	A,E
 	SUB	0AH
 	JR	NZ,TKKO
 	LD	E,A
 	INC	D
 TKKO	LD	(TEMP2),DE
 	LD	A,(TRACKS)
 	CP	D
 	JP	Z,SVER
 	LD	HL,(TOPMEM)
 	DEC	H
 	LD	A,B
 	CP	H
 	JP	NZ,CPW
 	JP	CPLP
 SVER	CALL	RESTOR
 	JP	Z,NOTIN
 	LD	DE,0
 SVERL	LD	A,D
 	RST	28H
 	LD	(DT2),BC
 	LD	A,E
 	RST	28H
 	LD	A,B
 	LD	(VS),A
 	CALL	VSHOW
 	LD	BC,BUFFER
 	LD	A,D
 	LD	(TK0),A
 	RST	18H
 	JR	Z,VYES
 	CALL	BADRD
 	RST	8
 	DEFB	6
 	DEFB	0
 VYES	INC	E
 	LD	A,E
 	SUB	0AH
 	JR	NZ,VYOK
 	LD	E,A
 	INC	D
 VYOK	LD	A,(TRACKS)
 	CP	D
 	JP	Z,RETURN
 	JP	SVERL
 RSHOW	PUSH	DE
 	PUSH	BC
 	RST	8
 	DEFB	5
 	DEFM	'Reading   Drive '
 SD	DEFM	'0, Track '
 ST	DEFM	'00, Sector '
 SS	DEFM	'0.    '
 	DEFB	0
 	POP	BC
 	POP	DE
 	RET
 WSHOW	PUSH	DE
 	PUSH	BC
 	RST	8
 	DEFB	5
 	DEFM	'Writing   Drive '
 DD	DEFM	'0, Track '
 DT	DEFM	'00, Sector '
 DS	DEFM	'0.    '
 	DEFB	0
 	POP	BC
 	POP	DE
 	RET
 VSHOW	PUSH	DE
 	PUSH	BC
 	RST	8
 	DEFB	5
 	DEFM	'Verifying Drive '
 DD2	DEFM	'0, Track '
 DT2	DEFM	'00, Sector '
 VS	DEFM	'0.    '
 	DEFB	0
 	POP	BC
 	POP	DE
 	RET
 	END	402DH
E
 	RET
 VSHOW	PUSH	DE
 	PUSH	BC
 	RST	8
 	DEFB	5
 	DEFM	'Verifyin