.TITLE	COPYF
	.VERSION	1
/ +++
/
/ COPYF X1A
/ (C) 1990 BY JOHNNY BILLQUIST
/
/ ---
	.FSECT	.COPYF
	.ENTRY	$COPYF
/
$COPYF,	0
	CLA
	TAD I	$COPYF
	ISZ	$COPYF
	DCA	SP$
	TAD I	$COPYF
	ISZ	$COPYF
	DCA	SP2$
	TAD I	$COPYF
	ISZ	$COPYF
	DCA	DP$
	TAD	(-4)
	DCA	LC$
LOOP$:	JMS	GH$
	DCA	TMP$
	JMS	GL$
	TAD	TMP$
	DCA I	DP$
	ISZ	SP$
	ISZ	SP2$
	ISZ	DP$
	ISZ	LC$
	JMP	LOOP$
	RDF
	TAD	(CIF)
	DCA	.+1
	HLT
	JMP I	$COPYF
/
GH$:	0
	TAD I	SP$
	AND	(7700)
	TAD	(-7700)
	SNA CLA
	JMP	HD$
	TAD I	SP$
HR$:	AND	(7700)
	JMP I	GH$

HD$:	TAD I	SP2$
	JMP	HR$
/
GL$:	0
	TAD I	SP$
	AND	(77)
	TAD	(-77)
	SNA CLA
	JMP	LD$
	TAD I	SP$
LR$:	AND	(77)
	JMP I	GL$

LD$:	TAD I	SP2$
	JMP	LR$
/
SP$:	0
SP2$:	0
DP$:	0
TMP$:	0
LC$:	0
/
$