
%QCRLT	JMS	CTECH
	LAC	ROOT
	DAC	OPTION
	SKP
%CRLT	JMS	CTECH
	TLS+10
	LAW	1
	DAC	CFLAG
	LAC	XLOWS
	TAD	(3
	DAC	CVEC#
	LAC	XLIM
	TCA
	TAD	(3
	DAC	SPCNT#
	LAC	XLOW
	DAC	ADCNT#
	JMS	SETTER
ROOTS	JMS	TERRIER
	ISZ	ADCNT
	ISZ	RTADDR
	ISZ	RTCNT
	JMP	ROOTS
	JMS	SETTER
CRST	DZM	AREG#
	DZM	BREG#
	LAC	RTADDR
	DAC	MSTAD#
	TAD	(3
	DAC	FSTAD#
	LAW	-2
	DAC	FCNT#
	LAW	-10
	DAC	MCNT#
	LAC	RTCNT
	DAC	TEMRT#
NEG	LAC*	MSTAD
	TAD	BREG
	DAC	BREG
	LAC	MSTAD
	SAD	FSTAD
	JMP	POS
COMMON	ISZ	MCNT
	JMP	MCHEK
	LAW	-3
	DAC	RMIN#
	LAC	BREG
	CLL
	RCR
	ISZ	RMIN
	JMP	.-2
	TCA
	TAD	AREG
	DAC*	CVEC
	ISZ	ADCNT
	JMS	TERRIER
	ISZ	RTCNT
	JMP	AFGHAN
	LAW	-10
	DAC	RTCNT
AFGHAN	LAC	RTCNT
	TAD	(70
	DAC	RTADDR
	ISZ	CVEC
	ISZ	SPCNT
	JMP	CRST
	LAC	(740000
	DAC	OPTION
	LAC	(207
	JMS	WRITE
	JMP	DPY
SETTER	0
	LAW	-10
	DAC	RTCNT#
	LAC	(60
	DAC	RTADDR#
	JMP*	SETTER
TERRIER	0
	LAC*	ADCNT
OPTION	NOP
	DAC*	RTADDR
	JMP*	TERRIER
MCHEK	ISZ	TEMRT
	JMP	TCHEK
	LAW	-10
	DAC	TEMRT
	LAC	(60
	DAC	MSTAD
	LAW	-10
	TAD	FSTAD
	DAC	FSTAD
	JMP	NEG
TCHEK	ISZ	MSTAD
	JMP	NEG
POS	LAC*	FSTAD
	TAD	AREG
	DAC	AREG
	ISZ	FCNT
	JMP	FCHEK
	LAC	AREG
	CLL
	RAR
	DAC	AREG
	JMP	COMMON
FCHEK	ISZ	FSTAD
	JMP	COMMON
ROOT	JMS	SQRT
	.EOT
	DAC	#CHN#
