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

Keep name inv_FAC1

Browse Source
This commit is contained in:
Rikard Nordgren authored and FeralChild64 committed 2026-02-01 18:35:00 +01:00
1 parent c538feebe5
commit 044264d23a
2 files changed
+4 -4
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/basic/math/b947.inv_FAC1.s
+3 -3
View File
@@ -10,19 +10,19 @@
; ;
; This is verified to be identical to the original Microsoft implementation where it was named NEGFAC. ; This is verified to be identical to the original Microsoft implementation where it was named NEGFAC.
; ;
; The alternative entry point neg_FAC1_mantissa (NEGFCH) will negate only the mantissa ; The alternative entry point inv_FAC1_mantissa (NEGFCH) will negate only the mantissa
; ;
; See also: ; See also:
; - https://www.c64-wiki.com/wiki/BASIC-ROM ; - https://www.c64-wiki.com/wiki/BASIC-ROM
; - https://sta.c64.org/cbm64basconv.html ; - https://sta.c64.org/cbm64basconv.html
; ;
neg_FAC1: inv_FAC1:
lda FAC1_sign lda FAC1_sign
eor #$FF eor #$FF
sta FAC1_sign sta FAC1_sign
neg_FAC1_mantissa: inv_FAC1_mantissa:
lda FAC1_mantissa+0 lda FAC1_mantissa+0
eor #$FF eor #$FF
src/basic/math/bc9b.QINT.s
+1 -1
View File
@@ -33,7 +33,7 @@ QINT:
tax tax
lda #$FF lda #$FF
sta BITS sta BITS
jsr neg_FAC1_mantissa jsr inv_FAC1_mantissa
txa txa
@1: ldx #FAC1_exponent @1: ldx #FAC1_exponent
cmp #$F9 cmp #$F9