From 62172aebf117b3b04f7f615150edab69f95b94de Mon Sep 17 00:00:00 2001 From: Rikard Nordgren Date: Wed, 1 Apr 2026 21:33:25 +0200 Subject: [PATCH] Update div_MEM_FAC1 --- STATUS.md | 2 +- src/basic/math/bb0f.div_MEM_FAC1.s | 6 +++++- tools/similarity.c | 2 +- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/STATUS.md b/STATUS.md index a95a6d48..42bb9a65 100644 --- a/STATUS.md +++ b/STATUS.md @@ -226,7 +226,7 @@ Floating point mathematical routines - not official, but well known and broadly | `$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 | | +| `$BB0F` | `div_MEM_FAC1` | DONE | From the Microsoft BASIC, original name: FDIV | | `$BB12` | `div_FAC2_FAC1` | DONE | | | `$BB8F` | `mov_RES_FAC1` | DONE | From the Microsoft BASIC, original name: MOVFR | | `$BBA2` | `mov_MEM_FAC1` | DONE | From the Microsoft BASIC, original name: MOVFM | diff --git a/src/basic/math/bb0f.div_MEM_FAC1.s b/src/basic/math/bb0f.div_MEM_FAC1.s index 79b15cef..65b3f6e2 100644 --- a/src/basic/math/bb0f.div_MEM_FAC1.s +++ b/src/basic/math/bb0f.div_MEM_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 - divide RAM by FAC1 ; +; This is verified to be identical to the original Microsoft implementation where it was named FDIV. +; ; Input: ; - .A - address low byte ; - .Y - address high byte diff --git a/tools/similarity.c b/tools/similarity.c index 9e77b967..6cf2d67b 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, 0xBB0E, + 0xBA28, 0xBB11, 0xBB8F, 0xBCF2, };