diff --git a/STATUS.md b/STATUS.md index a152359b..a95a6d48 100644 --- a/STATUS.md +++ b/STATUS.md @@ -225,6 +225,7 @@ Floating point mathematical routines - not official, but well known and broadly | `$BA90` | `get_FAC2_via_INDEX` | DONE | From the Microsoft BASIC, no label | | `$BAE2` | `mul10_FAC1` | DONE | From the Microsoft BASIC, original name: MUL10 | | `$BAFE` | `div10_FAC1_p` | DONE | From the Microsoft BASIC, original name: DIV10 | +| `$BB07` | `div_FAC2_MEM` | DONE | From the Microsoft BASIC, original name: FDIVF | | `$BB0F` | `div_MEM_FAC1` | DONE | | | `$BB12` | `div_FAC2_FAC1` | DONE | | | `$BB8F` | `mov_RES_FAC1` | DONE | From the Microsoft BASIC, original name: MOVFR | diff --git a/src/basic/math/bb07.div_FAC2_MEM.s b/src/basic/math/bb07.div_FAC2_MEM.s new file mode 100644 index 00000000..a80b1844 --- /dev/null +++ b/src/basic/math/bb07.div_FAC2_MEM.s @@ -0,0 +1,27 @@ +;; #LAYOUT# STD * #TAKE +;; #LAYOUT# X16 BASIC_0 #TAKE-OFFSET 2000 +;; #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 - divide FAC2 by MEM +; +; This is verified to be identical to the original Microsoft implementation where it was named FDIVF. +; +; Input: +; - .A - address low byte +; - .Y - address high byte +; +; See also: +; - [CM64] Computes Mapping the Commodore 64 - page 114 +; - https://www.c64-wiki.com/wiki/Floating_point_arithmetic +; - https://codebase64.org/doku.php?id=base:kernal_floating_point_mathematics +; + +div_FAC2_MEM: + + stx ARISGN + jsr mov_MEM_FAC1 + jmp div_FAC2_FAC1 diff --git a/tools/similarity.c b/tools/similarity.c index 29a88c97..9e77b967 100644 --- a/tools/similarity.c +++ b/tools/similarity.c @@ -27,7 +27,7 @@ unsigned short microsoft_basic_chunks[NUM_CHUNKS * 2] = { 0xB3A2, 0xB3A5, 0xB849, 0xB97D, 0xB983, 0xB9BB, - 0xBA28, 0xBB06, + 0xBA28, 0xBB0E, 0xBB8F, 0xBCF2, };