.TITLE	PFNAM
	.VERSION	1
/ +++
/
/ PFNAM X1A
/ (C) 1990 BY JOHNNY BILLQUIST
/
/ ---
	.FSECT	.PFNAM
	.ENTRY	$PFNAM
	.EXTERNAL	PUT
/
$PFNAM,	0
	CLA
	TAD I	$PFNAM
	ISZ	$PFNAM
	DCA	SA$
	RDF
	TAD	(CDF)
	DCA	C$
	CDF	.
	CLL CLA CML RTL
	TAD	C$
	DCA	R$
	TAD	(-4)
	DCA	LC$
	TAD	(-3)
	DCA	LC2$
LOOP$:	JMS	GC$
	RTR;RTR;RTR
	JMS	PC$
	JMS	GC$
	JMS	PC$
	ISZ	SA$
	ISZ	LC2$
	SKP
	JMS	PD$
	ISZ	LC$
	JMP	LOOP$
R$:	HLT
	JMP I	$PFNAM
/
LC$:	0
LC2$:	0
SA$:	0
/
GC$:	0
C$:	HLT
	TAD I	SA$
	CDF	.
	JMP I	GC$
/
PC$:	0
	AND	(77)
	SNA
	JMP I	PC$
	TAD	(-40)
	SNA
	JMP I	PC$
	SPA
	TAD	(100)
	TAD	(40)
	CIF	PUT
	JMS	PUT
	JMP I	PC$
/
PD$:	0
	TAD	(56)
	CIF	PUT
	JMS	PUT
	JMP I	PD$
/
$