diff --git a/src/basic/math/b947.inv_FAC1.s b/src/basic/math/b947.inv_FAC1.s index 828a1382..c97d3b7b 100644 --- a/src/basic/math/b947.inv_FAC1.s +++ b/src/basic/math/b947.inv_FAC1.s @@ -10,19 +10,19 @@ ; ; 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: ; - https://www.c64-wiki.com/wiki/BASIC-ROM ; - https://sta.c64.org/cbm64basconv.html ; -neg_FAC1: +inv_FAC1: lda FAC1_sign eor #$FF sta FAC1_sign -neg_FAC1_mantissa: +inv_FAC1_mantissa: lda FAC1_mantissa+0 eor #$FF diff --git a/src/basic/math/bc9b.QINT.s b/src/basic/math/bc9b.QINT.s index 0d70bf74..33d9f798 100644 --- a/src/basic/math/bc9b.QINT.s +++ b/src/basic/math/bc9b.QINT.s @@ -33,7 +33,7 @@ QINT: tax lda #$FF sta BITS - jsr neg_FAC1_mantissa + jsr inv_FAC1_mantissa txa @1: ldx #FAC1_exponent cmp #$F9