nivrith · July 20, 2023 10:23
diff --git a/AGC Snippet #3 - Simple Square Root.AGC b/AGC Snippet #3 - Simple Square Root.AGC
 SQRT		TC	SQRTSUB		# TAKE THE SQUARE ROOT OF MPAC.
 		CCS	MPTEMP		# RETURNED NORMALIZED SQUARE ROOT.  SEE IF
 		TCF	+2		# ANY UN-NORMALIZATION REQUIRED AND EXIT
 		TCF	DANZIG		# IF NOT.

 		AD	NEG12		# A RIGHT SHIFT OF MORE THAN 13 COULD BE
 		EXTEND			# REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
 		BZMF	SQRTSHFT	# GOES HERE IN MOST CASES.
 		ZL			# IF A LONG SHIFT IS REQUIRED, GO TO
 		LXCH	ADDRWD		# GENERAL RIGHT SHIFT ROUTINES.
 		TCF	GENSCR +4	# ADDRWD WAS ZERO TO PREVENT ROUND.
	SQRT TC SQRTSUB # TAKE THE SQUARE ROOT OF MPAC.
	CCS MPTEMP # RETURNED NORMALIZED SQUARE ROOT. SEE IF
	TCF +2 # ANY UN-NORMALIZATION REQUIRED AND EXIT
	TCF DANZIG # IF NOT.

	AD NEG12 # A RIGHT SHIFT OF MORE THAN 13 COULD BE
	EXTEND # REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
	BZMF SQRTSHFT # GOES HERE IN MOST CASES.
	ZL # IF A LONG SHIFT IS REQUIRED, GO TO
	LXCH ADDRWD # GENERAL RIGHT SHIFT ROUTINES.
	TCF GENSCR +4 # ADDRWD WAS ZERO TO PREVENT ROUND.