chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update cos_FAC1

Browse Source
This commit is contained in:
Rikard Nordgren authored and FeralChild64 committed 2026-04-29 21:18:16 +02:00
1 parent 18e51b855b
commit 113b3cf7c2
3 files changed
+10 -4
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

STATUS.md
+1 -1
View File
@@ -262,7 +262,7 @@ Floating point mathematical routines - not official, but well known and broadly
| `$E097` | `rnd_FAC1` | DONE | | | `$E097` | `rnd_FAC1` | DONE | |
| `$E09A` | `rnd_A` | DONE | | | `$E09A` | `rnd_A` | DONE | |
| `$E0BE` | `rnd_generate` | DONE | | | `$E0BE` | `rnd_generate` | DONE | |
| `$E264` | `cos_FAC1` | PARTIAL | not fully tested yet | | `$E264` | `cos_FAC1` | DONE | From the Microsoft BASIC, original name: COS |
| `$E26B` | `sin_FAC1` | PARTIAL | not fully tested yet | | `$E26B` | `sin_FAC1` | PARTIAL | not fully tested yet |
| `$E2B4` | `tan_FAC1` | PARTIAL | not fully tested yet | | `$E2B4` | `tan_FAC1` | PARTIAL | not fully tested yet |
| `$E30E` | `atn_FAC1` | DONE | From the Microsoft BASIC, original name: ATN | | `$E30E` | `atn_FAC1` | DONE | From the Microsoft BASIC, original name: ATN |
src/basic/math_trans/e264.cos_FAC1.s
+7 -2
View File
@@ -2,9 +2,13 @@
;; #LAYOUT# * BASIC_0 #TAKE ;; #LAYOUT# * BASIC_0 #TAKE
;; #LAYOUT# * * #IGNORE ;; #LAYOUT# * * #IGNORE
; ; This file is under the MIT license, it contains code released by Microsoft Corporation.
; See LICENSE for more information.
; Math package - cosine of FAC1 in radians ; Math package - cosine of FAC1 in radians
; ;
; This is verified to be identical to the original Microsoft implementation where it was named COS
;
; Adds pi/2 to FAC1 and falls through to the sine function ; Adds pi/2 to FAC1 and falls through to the sine function
; ;
; See also: ; See also:
@@ -18,8 +22,9 @@
COS: COS:
ldy #>const_HALF_PI
lda #<const_HALF_PI lda #<const_HALF_PI
ldy #>const_HALF_PI
jsr add_MEM_FAC1 jsr add_MEM_FAC1
; FALLTHROUGH to SIN ; FALLTHROUGH to SIN
tools/similarity.c
+2 -1
View File
@@ -20,7 +20,7 @@ int matches[MAX_SIZE];
int phase_mask[MAX_SIZE+MAX_SIZE]; int phase_mask[MAX_SIZE+MAX_SIZE];
#define NUM_CHUNKS 10 #define NUM_CHUNKS 11
// Pairs of start, end memory addresses of known exact similarity with the open source Microsoft BASIC // Pairs of start, end memory addresses of known exact similarity with the open source Microsoft BASIC
unsigned short microsoft_basic_chunks[NUM_CHUNKS * 2] = { unsigned short microsoft_basic_chunks[NUM_CHUNKS * 2] = {
0xB391, 0xB39D, 0xB391, 0xB39D,
@@ -32,6 +32,7 @@ unsigned short microsoft_basic_chunks[NUM_CHUNKS * 2] = {
0xBDB3, 0xBDC1, 0xBDB3, 0xBDC1,
0xBDDD, 0xBF51, 0xBDDD, 0xBF51,
0xBFB4, 0xBFEC, 0xBFB4, 0xBFEC,
0xE264, 0xE26A,
0xE30E, 0xE37A, 0xE30E, 0xE37A,
}; };