.Z80

	Title:  'Ithaca InterSystems COPY program: 20 Mar 83'

	ORG	00100H
WRMBOOT	EQU	00000H
BDOS	EQU	00005H
STACK:	JR	COPY
;
	DEFB	'Copyright (C) 1981 Ithaca InterSystems, Inc.'
COPY:	LD	SP,STACK
	LD	HL,DEFBUFR
	LD	A,(HL)
	OR	A
	JR	Z,A016C
	LD	DE,T1013
	LD	A,(HL)
	CP	014H
	JR	C,A0142
	LD	(HL),014H
A0142:	LD	C,(HL)
	INC	C
	LD	B,000H
	LDIR
	XOR	A
	LD	(DE),A
	LD	C,002H
	LD	HL,T1031
	CALL	A0729
	JR	Z,A0168
	LD	HL,T0DAC
	CALL	A0969
	LD	HL,T1014
	CALL	A0969
	LD	HL,T0DC8
	CALL	A0969
	JR	A016C
;
A0168:	XOR	A
	LD	(D100A),A
A016C:	LD	HL,T098E
	CALL	A0969
A0172:	LD	HL,T09DA
	CALL	A0969
	CALL	A06F1
	LD	C,001H
	LD	HL,T1037
	CALL	A0729
	JP	Z,WRMBOOT
	LD	HL,A0172
	PUSH	HL
	LD	HL,T1013
	LD	A,(HL)
	CP	001H
	JP	NZ,A0717
	INC	HL
	LD	A,(HL)
	LD	(D0A85),A
	SUB	041H
	CP	004H
	JP	NC,A0717
	POP	HL
	LD	(D100C),A
	LD	(D10CF),A
A01A6:	CALL	A048E
	LD	(D100D),A
	EX	AF,AF'
	LD	HL,T0A71
	CALL	A0969
	EX	AF,AF'
	PUSH	AF
	CALL	A0598
	POP	AF
	OR	A
	JR	Z,A0172
A01BC:	LD	HL,T0A38
	CALL	A0969
	CALL	A06F1
	LD	HL,T1037
	LD	C,001H
	CALL	A0729
	JP	Z,WRMBOOT
	LD	B,000H
	LD	IX,T1029
	LD	HL,T1013
	LD	IY,D100C
A01DD:	INC	HL
	LD	A,(HL)
	OR	A
	JR	Z,A0219
	CP	041H
	JR	C,A01DD
	CP	05BH
	JR	NC,A01DD
	SUB	041H
	CP	004H
	JR	C,A01FD
	ADD	A,041H
	LD	(D0AB5),A
	LD	HL,T0A9F
	CALL	A0969
	JR	A01BC
;
A01FD:	CP	(IY+000H)
	JR	NZ,A0211
	ADD	A,041H
	LD	(D0AC0),A
	PUSH	HL
	LD	HL,T0AB7
	CALL	A0969
	POP	HL
	JR	A01DD
;
A0211:	LD	(IX+000H),A
	INC	IX
	INC	B
	JR	A01DD
;
A0219:	LD	A,B
	OR	A
	JR	NZ,A0225
	LD	HL,T0AD7
	CALL	A0969
	JR	A01BC
;
A0225:	LD	HL,T100E
	PUSH	HL
	LD	C,004H
A022B:	LD	(HL),000H
	INC	HL
	DEC	C
	JR	NZ,A022B
	POP	HL
	LD	IX,T1029
	LD	D,000H
A0238:	LD	E,(IX+000H)
	PUSH	HL
	ADD	HL,DE
	LD	(HL),001H
	POP	HL
	INC	IX
	DJNZ	A0238
	CALL	A04BF
	XOR	A
A0248:	PUSH	AF
	CALL	A0759
	POP	AF
	INC	A
	CP	004H
	JR	NZ,A0248
	XOR	A
	LD	(D10D0),A
A0256:	XOR	A
	LD	(D1008),A
A025A:	LD	A,(D100C)
	LD	(D10CF),A
	XOR	A
	LD	(D10D1),A
	OUT	(0B2H),A
	LD	HL,T10D7
	CALL	A0786
	CALL	A07A7
	CALL	A0660
	LD	A,(D100D)
	CP	003H
	JR	NZ,A0287
	LD	HL,02ED7H
	CALL	A0786
	OUT	(0B2H),A
	CALL	A0656
	CALL	A0660
A0287:	XOR	A
	LD	(D10CF),A
A028B:	LD	A,(D10CF)
	LD	C,A
	CALL	A058E
	OR	A
	JP	Z,A0323
	XOR	A
	LD	(D10D1),A
	CALL	A07A7
	LD	HL,T10D7
	CALL	A0786
	OUT	(0B4H),A
	CALL	A066F
	LD	A,(D100D)
	CP	003H
	JR	NZ,A02BD
	CALL	A0656
	LD	HL,02ED7H
	CALL	A0786
	OUT	(0B4H),A
	CALL	A066F
A02BD:	LD	A,(D100A)
	OR	A
	JR	Z,A0323
	CALL	A064C
	LD	A,(D100D)
	CP	001H
	LD	HL,01DD7H
	JR	Z,A02DA
	CP	002H
	LD	HL,02ED7H
	JR	Z,A02DA
	LD	HL,04CD7H
A02DA:	CALL	A0786
	OUT	(0B2H),A
	CALL	A0660
	LD	A,(D100D)
	CP	003H
	JR	NZ,A02EF
	CALL	A0656
	CALL	A0660
A02EF:	LD	HL,T10D7
	LD	E,L
	LD	D,H
	LD	A,(D100D)
	CP	001H
	LD	BC,T0D00
	JR	Z,A0308
	CP	002H
	LD	BC,01E00H
	JR	Z,A0308
	LD	BC,03C00H
A0308:	ADD	HL,BC
A0309:	LD	A,(DE)
	CPI
	INC	DE
	JR	NZ,A0341
	JP	PE,A0309
	LD	A,(D1008)
	OR	A
	JR	Z,A0323
	ADD	A,030H
	LD	(D0B55),A
	LD	HL,T0B1D
	CALL	A0969
A0323:	LD	A,(D10CF)
	AND	003H
	INC	A
	CP	004H
	JR	Z,A0333
	LD	(D10CF),A
	JP	A028B
;
A0333:	LD	A,(D10D0)
	CP	04CH
	JR	Z,A0361
	INC	A
	LD	(D10D0),A
	JP	A0256
;
A0341:	LD	HL,D1008
	LD	A,(HL)
	INC	(HL)
	CP	00AH
	JR	Z,A035C
	OR	A
	JR	NZ,A0359
	LD	HL,T0FA7
	CALL	A0969
	LD	HL,T0FBD
	CALL	A0969
A0359:	JP	A025A
;
A035C:	CALL	A06C2
	JR	A0323
;
A0361:	CALL	A05B2
	CALL	A06F1
	LD	C,001H
	LD	HL,T1037
	CALL	A0729
	JP	Z,WRMBOOT
	LD	HL,T103C
	CALL	A0729
	JR	Z,A037F
	CALL	A0717
	JR	A0361
;
A037F:	LD	A,(D100C)
	ADD	A,041H
	LD	(D0B71),A
	LD	HL,T0B5F
	CALL	A0969
	CALL	A06F1
	LD	HL,T1037
	LD	C,001H
	CALL	A0729
	JP	Z,WRMBOOT
	JP	A01A6
;
A039E:	LD	A,(D10CF)
	LD	(D0FE8),A
	LD	A,(D100B)
	OR	A
	JR	NZ,A03B3
	LD	HL,D0FE8
	RES	2,(HL)
	XOR	A
	LD	(D10D0),A
A03B3:	LD	A,(D100D)
	CP	001H
	JR	Z,A03D0
	LD	HL,D0FE7
	LD	(HL),04DH
	LD	A,002H
	LD	(D0FE9),A
	LD	A,054H
	LD	(D0FEB),A
	LD	A,00FH
	LD	(D0FEA),A
	JR	A03E4
;
A03D0:	LD	HL,D0FE7
	LD	(HL),00DH
	LD	A,000H
	LD	(D0FE9),A
	LD	A,01BH
	LD	(D0FEB),A
	LD	A,01AH
	LD	(D0FEA),A
A03E4:	LD	A,(D100B)
	OR	A
	JR	NZ,A03F3
	LD	A,(D10CF)
	CALL	A0759
	CALL	A07A3
A03F3:	LD	HL,T1066
	LD	A,(D10D0)
	LD	D,A
	LD	A,(D0FE8)
	RRCA
	RRCA
	AND	001H
	LD	E,A
	LD	B,001H
	LD	A,(D0FE9)
	LD	C,A
	LD	A,(D0FEA)
A040B:	LD	(HL),D
	INC	HL
	LD	(HL),E
	INC	HL
	LD	(HL),B
	INC	B
	INC	HL
	LD	(HL),C
	INC	HL
	DEC	A
	JR	NZ,A040B
	XOR	A
	LD	(D1009),A
A041B:	CALL	A07A7
	LD	A,(D0FE7)
	LD	(D10CE),A
	LD	HL,T1066
	CALL	A0786
	OUT	(0B4H),A
	LD	HL,D0FE7
	LD	C,006H
	CALL	A060D
	CALL	A0824
	LD	A,(D1009)
	LD	C,A
	LD	A,(D100B)
	OR	C
	CALL	A0840
	CALL	A0602
	JR	Z,A0465
	LD	A,(D100B)
	OR	A
	JR	NZ,A0465
	LD	HL,D1009
	INC	(HL)
	CP	00AH
	JR	Z,A0462
	LD	A,(D10D0)
	PUSH	AF
	CALL	A07A3
	POP	AF
	LD	(D10D0),A
	JR	A041B
;
A0462:	CALL	A06C2
A0465:	LD	A,(D100B)
	OR	A
	LD	A,000H
	LD	(D100B),A
	RET	NZ
	LD	A,(D100D)
	CP	003H
	JR	NZ,A0481
	LD	HL,D0FE8
	BIT	2,(HL)
	RES	2,(HL)
	JR	NZ,A0481
	SET	2,(HL)
A0481:	LD	A,(D10D0)
	CP	04CH
	RET	Z
	INC	A
	LD	(D10D0),A
	JP	A03F3
;
A048E:	CALL	A04AB
	LD	B,A
	BIT	5,B
	LD	A,000H
	RET	Z
	BIT	3,B
	LD	A,003H
	RET	NZ
	CALL	A07A3
	CALL	A07CA
	LD	A,(D1006)
	OR	A
	LD	A,001H
	RET	Z
	INC	A
	RET
;
A04AB:	LD	HL,D10CE
	LD	(HL),004H
	LD	C,002H
	CALL	A060D
	CALL	A0824
	CALL	A0834
	CALL	A0602
	RET
;
A04BF:	LD	A,(D100D)
	LD	B,A
	XOR	A
	LD	(D1002),A
A04C7:	LD	(D10CF),A
	LD	C,A
	PUSH	BC
	CALL	A058E
	POP	BC
	OR	A
	JR	Z,A04DB
	PUSH	BC
	CALL	A048E
	POP	BC
	CP	B
	JR	NZ,A04E4
A04DB:	LD	A,(D10CF)
	INC	A
	CP	004H
	RET	Z
	JR	A04C7
;
A04E4:	PUSH	AF
	LD	A,(D10CF)
	ADD	A,041H
	LD	(D0BF7),A
	LD	(D0C0C),A
	LD	(D0C1A),A
	LD	(D0C42),A
	LD	HL,T0BC2
	CALL	A0969
	POP	AF
	PUSH	AF
	CALL	A0598
	POP	AF
	CP	003H
	JR	Z,A0573
	OR	A
	JR	Z,A0573
	LD	A,(D100D)
	CP	003H
	JR	Z,A0573
A0510:	XOR	A
	LD	(D1003),A
	LD	HL,T0BFD
	CALL	A0969
	CALL	A06F1
	LD	C,001H
	LD	HL,T1037
	CALL	A0729
	JP	Z,WRMBOOT
	LD	HL,T104C
	CALL	A0729
	JR	NZ,A053A
	XOR	A
	LD	(D100B),A
	CALL	A039E
	JP	A04BF
;
A053A:	INC	C
	LD	HL,T1041
	CALL	A0729
	JR	NZ,A0547
	POP	HL
	JP	A0172
;
A0547:	LD	HL,T1061
	CALL	A0729
	JR	NZ,A056A
	LD	HL,T100E
	LD	A,(D10CF)
	AND	003H
	LD	E,A
	LD	D,000H
	ADD	HL,DE
	LD	(HL),D
	CALL	A0614
	LD	A,(D1002)
	OR	A
	JP	Z,A04BF
	POP	HL
	JP	A0323
;
A056A:	CALL	A0717
	LD	A,(D1003)
	OR	A
	JR	Z,A0510
A0573:	LD	A,0FFH
	LD	(D1003),A
	LD	HL,T0C37
	CALL	A0969
	CALL	A06F1
	LD	C,001H
	LD	HL,T1037
	CALL	A0729
	JP	Z,WRMBOOT
	JR	A053A
;
A058E:	LD	B,000H
	RES	2,C
	LD	HL,T100E
	ADD	HL,BC
	LD	A,(HL)
	RET
;
A0598:	LD	HL,T0C99
	OR	A
	JR	Z,A05AF
	CP	001H
	LD	HL,T0CA3
	JR	Z,A05AF
	CP	002H
	LD	HL,T0CC0
	JR	Z,A05AF
	LD	HL,T0CDD
A05AF:	JP	A0969
;
A05B2:	LD	HL,T0ED2
	CALL	A0969
	XOR	A
	LD	HL,T100E
	LD	B,004H
A05BE:	ADD	A,(HL)
	INC	HL
	DJNZ	A05BE
	CP	001H
	JR	Z,A05CD
	LD	E,073H
	LD	C,002H
	CALL	BDOS
A05CD:	LD	E,020H
	LD	C,002H
	CALL	BDOS
	LD	E,041H
	LD	D,004H
	LD	HL,T100E
A05DB:	LD	A,(HL)
	OR	A
	JR	Z,A05EF
	LD	C,002H
	PUSH	DE
	PUSH	HL
	CALL	BDOS
	LD	C,002H
	LD	E,02CH
	CALL	BDOS
	POP	HL
	POP	DE
A05EF:	INC	HL
	INC	E
	DEC	D
	JR	NZ,A05DB
	LD	C,002H
	LD	E,008H
	CALL	BDOS
	LD	HL,T0EED
	CALL	A0969
	RET
;
A0602:	PUSH	AF
	LD	A,04EH
	OUT	(0E1H),A
	LD	A,02EH
	OUT	(0E1H),A
	POP	AF
	RET
;
A060D:	PUSH	AF
	LD	A,03EH
	OUT	(0E1H),A
	POP	AF
	RET
;
A0614:	XOR	A
	LD	HL,T100E
	LD	B,004H
A061A:	OR	(HL)
	INC	HL
	DJNZ	A061A
	OR	A
	RET	NZ
	LD	HL,T0C60
	CALL	A0969
A0626:	LD	HL,T0C80
	CALL	A0969
	CALL	A06F1
	LD	C,001H
	LD	HL,T1037
	CALL	A0729
	JP	Z,WRMBOOT
	LD	HL,T1041
	CALL	A0729
	JR	NZ,A0647
	POP	HL
	POP	HL
	JP	A0172
;
A0647:	CALL	A0717
	JR	A0626
;
A064C:	LD	HL,D10CF
	RES	2,(HL)
	INC	HL
	INC	HL
	LD	(HL),000H
	RET
;
A0656:	LD	HL,D10CF
	SET	2,(HL)
	INC	HL
	INC	HL
	LD	(HL),001H
	RET
;
A0660:	LD	A,(D100D)
	CP	001H
	LD	HL,T0FED
	JR	Z,A067C
	LD	HL,T0FF7
	JR	A067C
;
A066F:	LD	A,(D100D)
	CP	001H
	LD	HL,T0FF2
	JR	Z,A067C
	LD	HL,T0FFC
A067C:	XOR	A
	LD	(D1007),A
A0680:	PUSH	HL
	CALL	A0762
	LD	A,(D1007)
	CALL	A0840
	CALL	A0602
	JR	NZ,A0694
	CALL	A06E1
	POP	HL
	RET
;
A0694:	LD	HL,D1007
	INC	(HL)
	LD	A,(HL)
	CP	00AH
	JR	Z,A06C1
	LD	A,(D10D0)
	PUSH	AF
	CALL	A07A3
	POP	AF
	LD	(D10D0),A
	CALL	A07A7
	LD	A,(D10CF)
	AND	003H
	LD	HL,D100C
	CP	(HL)
	JR	Z,A06BE
	LD	A,0FFH
	LD	(D100B),A
	CALL	A039E
A06BE:	POP	HL
	JR	A0680
;
A06C1:	POP	HL
A06C2:	LD	HL,T0CFA
	CALL	A0969
	LD	A,(D10CF)
	AND	003H
	LD	HL,D100C
	CP	(HL)
	JP	Z,A0626
	ADD	A,041H
	LD	(D0C42),A
	LD	A,0FFH
	LD	(D1002),A
	JP	A0573
;
A06E1:	LD	A,(D1007)
	OR	A
	RET	Z
	ADD	A,030H
	LD	(D0E86),A
	LD	HL,T0E5A
	JP	A0969
;
A06F1:	LD	C,00AH
	LD	DE,T1012
	CALL	BDOS
	CALL	A06FC
A06FC:	LD	HL,T1013
	LD	A,(HL)
	OR	A
	LD	B,(HL)
	INC	HL
	JR	Z,A0714
A0705:	LD	A,(HL)
	CP	061H
	JR	C,A0711
	CP	07BH
	JR	NC,A0711
	SUB	020H
	LD	(HL),A
A0711:	INC	HL
	DJNZ	A0705
A0714:	LD	(HL),000H
	RET
;
A0717:	LD	HL,T0D0C
	CALL	A0969
	LD	HL,T1014
	CALL	A0969
	LD	HL,T0D2D
	JP	A0969
;
A0729:	LD	IY,T1013
	LD	IX,T1014
A0731:	LD	A,(IX+000H)
	CP	020H
	JR	NZ,A073F
	DEC	(IY+000H)
	INC	IX
	JR	A0731
;
A073F:	LD	A,(IY+000H)
	CP	C
	RET	C
A0744:	LD	A,(IX+000H)
	OR	A
	RET	Z
	LD	A,(HL)
	OR	A
	JR	Z,A0756
	CP	(IX+000H)
	INC	HL
	INC	IX
	JR	Z,A0744
	RET
;
A0756:	CPL
	OR	A
	RET
;
A0759:	DI
	PUSH	AF
	LD	A,05CH
	OUT	(0E1H),A
	POP	AF
	EI
	RET
;
A0762:	LD	A,(HL)
	LD	(D10CE),A
	INC	HL
	LD	A,(HL)
	LD	(D10D4),A
	INC	HL
	LD	A,(HL)
	LD	(D10D3),A
	INC	HL
	LD	A,(HL)
	LD	(D10D5),A
	INC	HL
	LD	A,(HL)
	LD	(D10D6),A
	LD	HL,D10CE
	LD	C,009H
	CALL	A060D
	CALL	A0824
	RET
;
A0786:	XOR	A
	OUT	(0B8H),A
	LD	A,L
	OUT	(0BCH),A
	LD	A,H
	OUT	(0BAH),A
	RET
;
A0790:	LD	HL,T0FE6
	LD	C,001H
	CALL	A0824
	CALL	A0834
	LD	B,A
	CP	080H
	RET	Z
	CALL	A0834
	RET
;
A07A3:	XOR	A
	LD	(D10D0),A
A07A7:	LD	A,(D10D0)
	OR	A
	LD	HL,D10CE
	LD	C,002H
	LD	(HL),007H
	JR	Z,A07B8
	LD	(HL),00FH
	LD	C,003H
A07B8:	CALL	A060D
	CALL	A0824
A07BE:	CALL	A0790
	IN	A,(0B0H)
	AND	00FH
	JR	NZ,A07BE
	JP	A0602
;
A07CA:	XOR	A
	LD	(D1006),A
	CALL	A060D
	LD	A,00AH
	LD	(D1005),A
A07D6:	LD	A,(D1006)
	OR	A
	LD	HL,D10CE
	LD	(HL),04AH
	JR	NZ,A07E3
	LD	(HL),00AH
A07E3:	LD	C,002H
	CALL	A0824
	LD	A,0FFH
	CALL	A0840
	CALL	Z,A0602
	RET	Z
	LD	A,(D1006)
	CPL
	LD	(D1006),A
	LD	HL,D1005
	DEC	(HL)
	JR	NZ,A07D6
	LD	A,(D10CF)
	LD	HL,D100C
	CP	(HL)
	JR	NZ,A0810
	LD	HL,T0D6D
	CALL	A0969
	CALL	A06C2
A0810:	LD	(D10CF),A
	ADD	A,041H
	LD	(D0D6B),A
	LD	(D0C0C),A
	LD	HL,T0D35
	CALL	A0969
	JP	A0510
;
A0824:	IN	A,(0B0H)
	AND	0C0H
	CP	080H
	JR	NZ,A0824
	LD	A,(HL)
	OUT	(0B1H),A
	INC	HL
	DEC	C
	JR	NZ,A0824
	RET
;
A0834:	IN	A,(0B0H)
	AND	0C0H
	CP	0C0H
	JR	NZ,A0834
	IN	A,(0B1H)
	LD	C,A
	RET
;
A0840:	LD	(D1004),A
	XOR	A
	LD	(D1001),A
	CALL	A0834
	AND	0C0H
	CP	080H
	LD	HL,T0F05
	CALL	Z,A095F
	LD	A,C
	AND	010H
	LD	HL,T0F0C
	CALL	NZ,A095F
	LD	A,C
	AND	008H
	LD	HL,T0F17
	CALL	NZ,A095F
	CALL	A0834
	AND	020H
	LD	HL,T0F3A
	CALL	NZ,A095F
	LD	A,C
	AND	010H
	LD	HL,T0F43
	CALL	NZ,A095F
	LD	A,C
	AND	004H
	LD	HL,T0F4B
	CALL	NZ,A095F
	LD	A,C
	AND	002H
	LD	HL,T0F59
	CALL	NZ,A095F
	LD	A,C
	AND	001H
	LD	HL,T0F66
	CALL	NZ,A095F
	CALL	A0834
	AND	020H
	LD	HL,T0F7A
	CALL	NZ,A095F
	LD	A,C
	AND	010H
	LD	HL,T0F88
	CALL	NZ,A095F
	LD	A,C
	AND	004H
	LD	HL,T0FA7
	CALL	NZ,A095F
	LD	A,C
	AND	001H
	LD	HL,T0F96
	CALL	NZ,A095F
	PUSH	BC
	LD	B,004H
A08BE:	CALL	A0834
	DJNZ	A08BE
	EI
	POP	BC
	LD	A,(D1001)
	OR	A
	RET	Z
	LD	A,(D10CF)
	AND	003H
	ADD	A,041H
	LD	(D0FC3),A
	LD	HL,D10D1
	LD	DE,D0FCD
	CALL	A0943
	LD	A,020H
	LD	(D0FCD),A
	LD	HL,D10D0
	LD	DE,T0FDA
	CALL	A0943
	LD	A,(D1004)
	OR	A
	RET	NZ
	LD	HL,T0FBD
	CALL	A0969
	LD	A,(D10CE)
	CP	046H
	JR	NZ,A0902
	LD	HL,T0DFD
	JR	A093B
;
A0902:	CP	006H
	JR	NZ,A090B
	LD	HL,T0DD5
	JR	A093B
;
A090B:	CP	045H
	JR	NZ,A0914
	LD	HL,T0E11
	JR	A093B
;
A0914:	CP	005H
	JR	NZ,A091D
	LD	HL,T0DE9
	JR	A093B
;
A091D:	CP	00DH
	JR	NZ,A0926
	LD	HL,T0E25
	JR	A093B
;
A0926:	CP	04DH
	JR	NZ,A092F
	LD	HL,T0E3A
	JR	A093B
;
A092F:	LD	HL,D10CE
	LD	DE,T0E57
	CALL	A0943
	LD	HL,T0E4F
A093B:	CALL	A0969
	LD	A,(D1001)
	OR	A
	RET
;
A0943:	LD	A,(HL)
	AND	0F0H
	RRCA
	RRCA
	RRCA
	RRCA
	CALL	A0957
	LD	(DE),A
	INC	DE
	LD	A,(HL)
	AND	00FH
	CALL	A0957
	LD	(DE),A
	RET
;
A0957:	ADD	A,030H
	CP	03AH
	RET	M
	ADD	A,007H
	RET
;
A095F:	LD	A,001H
	LD	(D1001),A
	LD	A,(D1004)
	OR	A
	RET	NZ
A0969:	PUSH	BC
	PUSH	HL
	LD	E,(HL)
	LD	C,002H
	CALL	BDOS
	POP	HL
	POP	BC
	LD	A,(HL)
	OR	A
	RET	Z
	AND	080H
	JR	NZ,A097D
	INC	HL
	JR	A0969
;
A097D:	PUSH	BC
	LD	E,00DH
	LD	C,002H
	CALL	BDOS
	LD	E,00AH
	LD	C,002H
	CALL	BDOS
	POP	BC
	RET
;
T098E:	DEFB    0DH,0AH,0DH,0AH 
	DEFB    'Ithaca InterSystems Disk Copying Utility   '
	DEFB    'Version 2.3    '
	DEFB    'Revised 7/7/8',0B1H
T09DA	DEFB    0DH,0AH
	DEFB    'Insert '
A09E3   DEFB    'source and destination disks,'
        DEFB    0DH,0AH
	DEFB    'then enter source drive letter (A..D)  '
	DEFB    'or  "Quit" -->',00
T0A38   DEFB    0DH,0AH
	DEFB    'Destination drive letters (or type "Quit"'
	DEFB    ' to quit) -->',00
T0A71	DEFB    0DH,0AH
	DEFB    'The disk in drive '
D0A85   DEFB    20H
	DEFB	' (your source drive) is '  
        DEFB    00
T0A9F	DEFB	0DH,0AH,07
	DEFB	'Bad drive letter:  '
D0AB5   DEFB    20H,0A0H
T0AB7   DEFB    0DH,0AH,07
	DEFB	'Drive '
D0AC0   DEFB    20H
        DEFB    ' is your source drive',0AEH
T0AD7	DEFB	0DH,0AH,07
	DEFB	'Your response did not contain any valid '
	DEFB	'drive letters -- try again',0AEH
T0B1D	DEFB	0DH,0AH
	DEFB	'Successful recovery from read-after-write '
	DEFB	'error after '
D0B55   DEFB    20H
	DEFB	' retries',0AEH
T0B5F	DEFB	0DH,0AH
	DEFB	'Source drive is '
D0B71   DEFB    20H
	DEFB	'; insert new disks,'
	DEFB	0DH,0AH
	DEFB	'then enter a carriage return to copy or '
	DEFB	'"Quit" to quit -->',00
T0BC2	DEFB	0DH,0AH,0AH,07
	DEFB	'ERROR:  Bad destination disk.'
        DEFB    0DH,0AH
	DEFB	'The disk in drive '
D0BF7   DEFB    20H      
	DEFB	' is '
        DEFB    00
T0BFD	DEFB	'R)eformat disk '
D0C0C   DEFB    20H
        DEFB	', SK)ip disk '
D0C1A   DEFB    20H
	DEFB	', ST)art over, or Q)uit -->',00
T0C37   DEFB    'SK)ip disk '
D0C42   DEFB    20H   
	DEFB    ', ST)art over  or  Q(uit -->',00
T0C60	DEFB	0DH,0AH
	DEFB	'No destination drives left.  ',00
T0C80	DEFB	'S)tart over or Q)uit -->',00
T0C99	DEFB	'not ready',0AEH
T0CA3	DEFB	'single sided, single density',0AEH
T0CC0	DEFB	'single sided, double density',0AEH
T0CDD	DEFB	'double sided, double density',0AEH
T0CFA	DEFB	0DH,0AH,0AH,07
	DEFB	'DI'
T0D00   DEFB    'SK ERROR:  ',00
T0D0C	DEFB	0DH,0AH,0AH,07
	DEFB	'ERROR:  I do not know what "',00
T0D2D   DEFB    22H
	DEFB	' means',0AEH
T0D35	DEFB	0DH,0AH
	DEFB	'I cannot determine the density of the '
	DEFB	'disk in drive '
D0D6B   DEFB    20H,0AEH
T0D6D	DEFB	0DH,0AH
	DEFB	'I cannot determine the density of the '
	DEFB	'source drive you named',0AEH
T0DAC	DEFB	0DH,0AH
	DEFB	'Bad command tail option "'
T0DC8   DEFB    00 
	DEFB	'" -- ignored',0AEH
T0DD5	DEFB	'single density read',0A0H
T0DE9	DEFB	'single demsity writ',0E5H
T0DFD	DEFB	'double density read',0A0H
T0E11	DEFB	'double density writ',0E5H
T0E25	DEFB	'single density forma',0F4H
T0E3A	DEFB	'double density forma',0F4H
T0E4F	DEFB	'Op Code '
T0E57   DEFB    20H
	DEFB	20H,0AH
T0E5A   DEFB    0DH,0AH
	DEFB	'Successful recovery from disk error '
	DEFB	'after '
D0E86   DEFB    20H
	DEFB	' retries',0AEH
	DEFB	0DH,0AH
	DEFB	'Successful recovery from read-after-write '
	DEFB	'error after '
        DEFB    20H 
	DEFB	' retries',0AEH
T0ED2	DEFB	0DH,0AH,0DH,0AH
	DEFB	'Copy complete to drive',00
T0EED   DEFB    2EH,20H,20H
	DEFB	'M)ore  or  Q)uit -->',00
T0F05	DEFB	'Invali',0E4H
T0F0C	DEFB	'Drive faul',0F4H
T0F17   DEFB    'Drive not ready (put a diskette in',0A9H
T0F3A	DEFB	'CRC erro',0F2H
T0F43	DEFB	'Over ru',0EEH
T0F4B	DEFB	'Missing secto',0F2H
T0F59	DEFB	'Write protec',0F4H
T0F66	DEFB	'Missing address mar',0EBH
T0F7A	DEFB	'Data field CR',0C3H
T0F88	DEFB	'Wrong cylinde',0F2H
T0F96	DEFB	'Missing data mar',0EBH
T0FA7	DEFB	'Read-after-Write erro',0F2H
T0FBD	DEFB	'Drive '
D0FC3	DEFB	'   Surface'
D0FCD	DEFB	'    Cylinder '
T0FDA   DEFB    '           ',00
T0FE6   DEFB    08H
D0FE7   DEFB    00H
D0FE8   DEFB    00H
D0FE9   DEFB    00H
D0FEA   DEFB    00H  
D0FEB   DEFB    00H
        DEFB    0E5H
T0FED   DEFB    00H,1AH,00H,07H,80H
T0FF2   DEFB    05H,1AH,00H,07H,80H
T0FF7   DEFB    46H,0FH,02H,1BH,0FFH
T0FFC   DEFB    45H,0FH,02H,1BH,0FFH
D1001   DEFB    00H
D1002   DEFB    00H
D1003   DEFB    00H
D1004   DEFB    00H
D1005   DEFB    00H
D1006   DEFB    00H
D1007   DEFB    00H    
D1008   DEFB    00H
D1009   DEFB    00H
D100A   DEFB    00H
D100B   DEFB    00H
D100C   DEFB    00H
D100D   DEFB    00H
T100E   DEFB    00H,00H,00H,00H
T1012   DEFB    14H
T1013   DEFB    00H
T1014   DEFB    00H
        DEFB    00,00,00,00,00,00,00,00,00,00
        DEFB    00,00,00,00,00,00,00,00,00,00
T1029   DEFB    00H
        DEFB    00,00,00,00,00,00,00
T1031   DEFB    '/FAST',00H
T1037   DEFB    'QUIT',00H
T103C   DEFB    'MORE',00H
T1041   DEFB    'START OVER',00H
T104C   DEFB    'REFORMAT',00H
        DEFB    'IGNORE',00H     
        DEFB    'HELP',00H
T1061   DEFB    'SKIP',00H
T1066   DEFB    00H
        DEFS     103
D10CE   NOP
D10CF   NOP
D10D0   NOP
D10D1   NOP
D10D2   DEFB	01 
D10D3   NOP
D10D4   NOP
D10D5   NOP
D10D6   NOP
T10D7   DEFB   	04
	END