.TITLE	SKPC - Skip characters.
	.VERSION 20
	.ENABLE	7BIT
/ ++
/	SKPC Y2.0
/
/	(c) 1988, 1989 by Johnny Billquist
/
/	History:
/
/	88/12/29 15:15	BQT	X1.0. Initial coding.
/	89/01/04 15:35	BQT	X1.1. Split into PRSLIB.
/	89/12/27 05:00	BQT	Y2.0. Made from STRLIB.
/
/ --
/
	.FSECT	XSKPC
/
/ XSKPC skips all spaces in a string pointed at by AC.
/
	0
	CLA
	TAD I	XSKPC
	ISZ	XSKPC
	DCA	PTR$
	RDF
	TAD	(CDF CIF)
	DCA	R$
1$:	TAD I	PTR$
	TAD	(-40)
	SZA CLA
	JMP	E$
	ISZ	PTR$
	JMP	1$
E$:	TAD	PTR$
R$:	HLT
	JMP I	XSKPC

PTR$:	0
/
$