.TITLE	CVTDB - Convert binary to decimal.
	.VERSION 20
	.ENABLE	7BIT
/ ++
/	CVTDB 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	CVTDB
/
/ CVTDB converts a decimal ascii to a binary in AC.
/
	0			/For return address.
	CLA
	TAD I	CVTDB		/Get arg1.
	ISZ	CVTDB
	DCA	SP$		/Save as source pointer.
	RDF			/Get return field.
	TAD	(CDF CIF)
	DCA	R$
	DCA	V$		/Clear value.
1$:	TAD I	SP$		/Get char.
	ISZ	SP$
	TAD	(-60)		/Check if decimal ascii.
	SPA
	JMP	E$		/Was not.
	TAD	(-12)
	SMA
	JMP	E$		/Was not.
	TAD	(12)
	DCA	T$		/Was. Save number.
	TAD	V$		/Get previous value.
	CLL RAL			/Multiply by 12(8)
	DCA	V$
	TAD	V$
	CLL RAL
	CLL RAL
	TAD	V$
	TAD	T$		/Add new number.
	DCA	V$		/Save as new value.
	JMP	1$		/Repeat.
E$:	CLA			/End of convert.
	TAD	V$		/Get value.
R$:	HLT			/Return field.
	JMP I	CVTDB		/Return.

SP$:	0			/Source pointer.
V$:	0			/Value.
T$:	0			/Number.
/
$