Keep name inv_FAC1
This commit is contained in:
1 parent
c538feebe5
commit
044264d23a
2 files changed
+4
-4
No files matched your search
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in new issue
Block a user