Update sqr_FAC1

src/basic/math_trans/bf71.sqr_FAC1.s

@@ -3,9 +3,13 @@
 ;; #LAYOUT# *   BASIC_0 #TAKE
 ;; #LAYOUT# *   *       #IGNORE
 
-;
+; This file is under the MIT license, it contains code released by Microsoft Corporation.
+; See LICENSE for more information.
+
 ; Math package - square root of FAC1
 ;
+; This is verified to be identical to the original Microsoft implementation where it was named SQR.
+;
 ; Note:
 ; - transfers FAC1 to FAC2 and falls through to SQR2
 ;
@@ -20,9 +24,9 @@
 
 sqr_FAC1:
 
-	jsr mov_FAC1_FAC2
+        jsr mov_r_FAC1_FAC2
 	
-	; FALLLTROUGH to sqr_FAC2
+        ; FALLLTROUGH to sqr_FAC2
 
 
 } else {