Update mov_r_FAC1_VAR

STATUS.md

@@ -225,7 +225,7 @@ Floating point mathematical routines - not official, but well known and broadly
 | `$BBA6`   | `get_FAC1_via_INDEX`   | DONE     |                                                    |
 | `$BBC7`   | `mov_r_FAC1_TMP2`      | PARTIAL  | not fully tested yet                               |
 | `$BBCA`   | `mov_r_FAC1_TMP1`      | PARTIAL  | not fully tested yet                               |
-| `$BBD0`   | `mov_r_FAC1_VAR`       | PARTIAL  | not fully tested yet                               |
+| `$BBD0`   | `mov_r_FAC1_VAR`       | DONE     | From the Microsoft BASIC, original name: MOVVF     |
 | `$BBD4`   | `mov_r_FAC1_MEM`       | DONE     | From the Microsoft BASIC, original name: MOVMF     |
 | `$BBFC`   | `mov_FAC2_FAC1`        | DONE     | From the Microsoft BASIC, original name: MOVFA     |
 | `$BC0C`   | `mov_r_FAC1_FAC2`      | DONE     | From the Microsoft BASIC, original name: MOVAF     |

src/basic/math_mov/bbd0.mov_r_FAC1_VAR.s

@@ -3,9 +3,14 @@
 ;; #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 - move FAC1 (rounds) to memory variable
 ;
+; This is verified to be identical to the original Microsoft implementation where it was named MOVVF.
+;
 ; Input:
 ; - FORPNT ($49/$4A) - variable address
 ;
@@ -15,7 +20,7 @@
 
 mov_r_FAC1_VAR:
 
-	ldy #FORPNT+1
 	ldx #FORPNT+0
+	ldy #FORPNT+1
 
 	; FALLTROUGH to mov_r_FAC1_MEM

tools/similarity.c

@@ -24,7 +24,7 @@ int phase_mask[MAX_SIZE+MAX_SIZE];
 // Pairs of start, end memory addresses of known exact similarity with the open source Microsoft BASIC
 unsigned short microsoft_basic_chunks[NUM_CHUNKS * 2] = {
     0xB849, 0xB84F,
-    0xBBD4, 0xBC1A
+    0xBBD0, 0xBC1A
 };