cleaned up code for ineg/inot and added timings

Author: ZERICO2005

src/crt/ineg.src

@@ -9,24 +9,40 @@ __ineg := 000160h
 
 else
 
+if 1
+
 __ineg:
-if 0
-	push	de
-end if
+; UHL = -UHL
+;   CC: 10*r(PC)+3*r(SPL)+1
+;   CC: 9 bytes | 10F + 3R + 1
 	add	hl, de	; uhl=UHL+UDE
 	ex	de, hl	; ude=UHL+UDE, uhl=UDE
 	or	a, a
 	sbc	hl, de	; uhl=UDE-(UHL+UDE)
 			;    =UDE-UHL-UDE
 			;    =-UHL
-if 0
-	pop	de
-else
 	ex	de, hl	; ude=-UHL, uhl=UHL+UDE
 	add	hl, de	; uhl=UHL+UDE+-UHL
 			;    =UDE
 	ex	de, hl	; ude=UDE, uhl=-UHL
-end if
 	ret
 
+else
+
+__ineg:
+; UHL = -UHL
+;   CC: 9*r(PC)+6*r(SPL)+3*w(SPL)+1
+;   CC: 8 bytes | 9F + 6R + 3W + 1
+	push	de
+	add	hl, de	; uhl=UHL+UDE
+	ex	de, hl	; ude=UHL+UDE, uhl=UDE
+	or	a, a
+	sbc	hl, de	; uhl=UDE-(UHL+UDE)
+			;    =UDE-UHL-UDE
+			;    =-UHL
+	pop	de
+	ret
+
+end if
+
 end if

src/crt/ineg_fast.src

@@ -3,6 +3,9 @@
 	section	.text
 	public	__ineg_fast
 __ineg_fast:
+; UHL = -UHL
+;   CC: 7*r(PC)+3*r(SPL)+1
+;   CC: 6 bytes | 7F + 3R + 1
 	add	hl, de	; uhl=UHL+UDE
 	ex	de, hl	; ude=UHL+UDE, uhl=UDE
 	or	a, a

src/crt/inot.src

@@ -9,28 +9,45 @@ __inot := 000164h
 
 else
 
+if 1
+
 __inot:
-if 0
-	push	de
-end if
+; UHL = ~UHL
+;   CC: 11*r(PC)+3*r(SPL)+1
+;   CC: 10 bytes | 11F + 3R + 1
 	add	hl, de	; uhl=UHL+UDE
 	ex	de, hl	; ude=UHL+UDE, uhl=UDE
 	scf
 	sbc	hl, de	; uhl=UDE-(UHL+UDE)-1
 			;    =UDE-UHL-UDE-1
 			;    =-UHL-1
 			;    =~UHL
-if 0
-	pop	de
-else
 	ex	de, hl	; ude=~UHL, uhl=UHL+UDE
 	add	hl, de	; uhl=UHL+UDE+~UHL
 			;    =UHL+UDE+(-UHL-1)
 			;    =UHL+UDE-UHL-1
 			;    =UDE-1
 	inc	hl	; uhl=UDE
 	ex	de, hl	; ude=UDE, uhl=~UHL
-end if
 	ret
 
+else
+
+__inot:
+; UHL = ~UHL
+;   CC: 9*r(PC)+6*r(SPL)+3*w(SPL)+1
+;   CC: 8 bytes | 9F + 6R + 3W + 1
+	push	de
+	add	hl, de	; uhl=UHL+UDE
+	ex	de, hl	; ude=UHL+UDE, uhl=UDE
+	scf
+	sbc	hl, de	; uhl=UDE-(UHL+UDE)-1
+			;    =UDE-UHL-UDE-1
+			;    =-UHL-1
+			;    =~UHL
+	pop	de
+	ret
+
+end if
+
 end if

src/crt/inot_fast.src

@@ -3,6 +3,9 @@
 	section	.text
 	public	__inot_fast
 __inot_fast:
+; UHL = ~UHL
+;   CC: 7*r(PC)+3*r(SPL)+1
+;   CC: 6 bytes | 7F + 3R + 1
 	add	hl, de	; uhl=UHL+UDE
 	ex	de, hl	; ude=UHL+UDE, uhl=UDE
 	scf