Update mov_MEM_FAC1 and get_FAC1_via_INDEX
This commit is contained in:
1 parent
b95e09e6ac
commit
39763ef733
4 files changed
+13
-4
No files matched your search
@@ -221,8 +221,8 @@ Floating point mathematical routines - not official, but well known and broadly
|
|||||||
| `$BAFE` | `div10_FAC1_p` | DONE | |
|
| `$BAFE` | `div10_FAC1_p` | DONE | |
|
||||||
| `$BB0F` | `div_MEM_FAC1` | DONE | |
|
| `$BB0F` | `div_MEM_FAC1` | DONE | |
|
||||||
| `$BB12` | `div_FAC2_FAC1` | DONE | |
|
| `$BB12` | `div_FAC2_FAC1` | DONE | |
|
||||||
| `$BBA2` | `mov_MEM_FAC1` | DONE | |
|
| `$BBA2` | `mov_MEM_FAC1` | DONE | From the Microsoft BASIC, original name: MOVFM |
|
||||||
| `$BBA6` | `get_FAC1_via_INDEX` | DONE | |
|
| `$BBA6` | `get_FAC1_via_INDEX` | DONE | From the Microsoft BASIC, no label |
|
||||||
| `$BBC7` | `mov_r_FAC1_TMP2` | DONE | From the Microsoft BASIC, original name: MOV2F |
|
| `$BBC7` | `mov_r_FAC1_TMP2` | DONE | From the Microsoft BASIC, original name: MOV2F |
|
||||||
| `$BBCA` | `mov_r_FAC1_TMP1` | DONE | From the Microsoft BASIC, original name: MOV1F |
|
| `$BBCA` | `mov_r_FAC1_TMP1` | DONE | From the Microsoft BASIC, original name: MOV1F |
|
||||||
| `$BBD0` | `mov_r_FAC1_VAR` | DONE | From the Microsoft BASIC, original name: MOVVF |
|
| `$BBD0` | `mov_r_FAC1_VAR` | DONE | From the Microsoft BASIC, original name: MOVVF |
|
||||||
|
|||||||
@@ -3,9 +3,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 - fetch FAC1 from RAM location
|
; Math package - fetch FAC1 from RAM location
|
||||||
;
|
;
|
||||||
|
; This is verified to be identical to the original Microsoft implementation where it was named MOVFM.
|
||||||
|
;
|
||||||
; Input:
|
; Input:
|
||||||
; - .A - address low byte
|
; - .A - address low byte
|
||||||
; - .Y - address high byte
|
; - .Y - address high byte
|
||||||
@@ -24,7 +28,7 @@
|
|||||||
|
|
||||||
|
|
||||||
mov_MEM_FAC1:
|
mov_MEM_FAC1:
|
||||||
sty INDEX+1
|
|
||||||
sta INDEX+0
|
sta INDEX+0
|
||||||
|
sty INDEX+1
|
||||||
|
|
||||||
; FALLTHROUGH to get_FAC1_via_INDEX
|
; FALLTHROUGH to get_FAC1_via_INDEX
|
||||||
@@ -3,6 +3,11 @@
|
|||||||
;; #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.
|
||||||
|
;
|
||||||
|
; This is verified to be identical to the original Microsoft implementation where it was part of MOVFM.
|
||||||
|
;
|
||||||
; Math package - Mov MEM to FAC1 with address in INDEX zero page register
|
; Math package - Mov MEM to FAC1 with address in INDEX zero page register
|
||||||
;
|
;
|
||||||
; See also:
|
; See also:
|
||||||
|
|||||||
+1
-1
@@ -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
|
// 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] = {
|
||||||
0xB849, 0xB84F,
|
0xB849, 0xB84F,
|
||||||
0xBBC7, 0xBC1A
|
0xBBA2, 0xBC1A
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in new issue
Block a user