Update pwr_FAC2_MEM

STATUS.md

@@ -253,7 +253,7 @@ Floating point mathematical routines - not official, but well known and broadly
 | `$BDDD`   | `FOUT`                 | DONE     | From the Microsoft BASIC, original name: FOUT      |
 | `$BF71`   | `sqr_FAC1`             | DONE     | From the Microsoft BASIC, original name: SQR       |
 | `$BF74`   | `sqr_FAC2`             | DONE     | From the Microsoft BASIC, no label                 |
-| `$BF78`   | `pwr_FAC2_MEM`         | PARTIAL  | needs `pwr_FAC2_FAC1`                              |
+| `$BF78`   | `pwr_FAC2_MEM`         | DONE     | From the Microsoft BASIC, no label                 |
 | `$BF7B`   | `pwr_FAC2_FAC1`        | NOT DONE |                                                    |
 | `$BFB4`   | `toggle_sign_FAC1`     | DONE     | From the Microsoft BASIC, original name: NEGOP     |
 | `$BFED`   | `exp_FAC1`             | NOT DONE |                                                    |

src/basic/math_trans/bf78.pwr_FAC2_MEM.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 - set FAC1 as RAM raised to the power of FAC2
 ;
+; This is verified to be identical to the original Microsoft implementation where it had no name.
+;
 ; Input:
 ; - .A - address low byte
 ; - .Y - address high byte

tools/similarity.c

@@ -31,7 +31,7 @@ unsigned short microsoft_basic_chunks[NUM_CHUNKS * 2] = {
     0xBD7E, 0xBD90,
     0xBDB3, 0xBDC1,
     0xBDDD, 0xBF51,
-    0xBF71, 0xBF77,
+    0xBF71, 0xBF7A,
     0xBFB4, 0xBFEC,
     0xE043, 0xE08C,
     0xE264, 0xE2C2,     // Two byte gap here is an optimization