naming cleanup in math routines

2020-02-01 22:01:14 +01:00
1 parent a2cd07a94c
commit 4673f825af
@@ -0,0 +1,22 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+//
+// Math package - toggle FAC1 sign (if not 0)
+//
+// See also:
+// - [CM64] Computes Mapping the Commodore 64 - page 117
+// - https://www.c64-wiki.com/wiki/Floating_point_arithmetic
+//
+
+toggle_sign_FAC1:
+
+	lda FAC1_exponent
+	beq !+                             // do not toggle the sign if value is 0
+
+	lda FAC1_sign
+	eor #$FF
+	sta FAC1_sign
+!:
+	rts