/	TEST OF DECIMAL ALG.

	*200

LOOP,	LAS
	DCA	REC
	JMS	DIV
	TAD	QUO
	MQL
	TAD	REM
	ISZ	0
	JMP	.-1
	ISZ	0
	JMP	.-1
	ISZ	0
	JMP	.-1
	JMP	LOOP

DIV,	.-.
	CLA
	DCA	QUO
	TAD	REC
DVLOOP,	ISZ	QUO
	TAD	(-12)
	SMA
	JMP	DVLOOP
	TAD	(12)
	DCA	REM
	TAD	REM
	TAD	REM
	CLL IAC
REMLOOP,TAD	(-12)
	SMA SZA
	JMP	REMLOOP
	TAD	(12)
	DCA	REM
	SNL CLA
	ISZ	REM
	SKP
	HLT
	JMP I	DIV

REC,	.-.
REM,	.-.
QUO,	.-.