added abs_crt routines that use the LIBCALL calling convention

Author: ZERICO2005

src/crt/babs_crt.src

@@ -0,0 +1,12 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__babs_crt
+
+; A = abs(A)
+__babs_crt:
+	or	a, a
+	ret	p
+	neg
+	ret

src/crt/i48abs_crt.src

@@ -0,0 +1,17 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__i48abs_crt
+
+; UDE:UHL = abs(UDE:UHL)
+__i48abs_crt:
+	ex	de, hl
+	push	hl
+	add	hl, hl
+	pop	hl
+	ex	de, hl
+	jq	c, __i48neg
+	ret
+
+	extern	__i48neg

src/crt/iabs_crt.src

@@ -0,0 +1,15 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__iabs_crt
+
+; UHL = abs(UHL)
+__iabs_crt:
+	push	hl
+	add	hl, hl
+	pop	hl
+	jq	c, __ineg
+	ret
+
+	extern	__ineg

src/crt/iabs_crt_fast.src

@@ -0,0 +1,42 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__iabs_crt_fast
+
+if 1
+
+; UHL = abs(UHL)
+; 9 bytes
+; positive: 10F + 3R + 2
+; negative:  8F + 3R + 2
+__iabs_crt_fast:
+	or	a, a
+	ex	de, hl
+	sbc	hl, hl
+	sbc	hl, de
+	ret	p
+	ex	de, hl
+	ret
+
+else
+
+; UHL = abs(UHL)
+; 11 bytes
+; positive:  6F + 3R + 2
+; negative: 12F + 3R + 2
+__iabs_crt_fast:
+	add	hl, de
+	or	a, a
+	sbc	hl, de
+	ret	p
+	; __ineg_fast
+	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
+	ret
+
+end if

src/crt/labs_crt.src

@@ -0,0 +1,13 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__labs_crt
+
+; E:UHL = abs(E:UHL)
+__labs_crt:
+	bit	7, e
+	jq	nz, __lneg
+	ret
+
+	extern	__lneg

src/crt/labs_crt_fast.src

@@ -0,0 +1,13 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__labs_crt_fast
+
+; E:UHL = abs(E:UHL)
+__labs_crt_fast:
+	bit	7, e
+	jq	nz, __lneg_fast
+	ret
+
+	extern	__lneg_fast

src/crt/llabs_crt.src

@@ -0,0 +1,13 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__llabs_crt
+
+; BC:UDE:UHL = abs(BC:UDE:UHL)
+__llabs_crt:
+	bit	7, b
+	jq	nz, __llneg
+	ret
+
+	extern	__llneg

src/crt/llabs_crt_fast.src

@@ -0,0 +1,13 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__llabs_crt_fast
+
+; BC:UDE:UHL = abs(BC:UDE:UHL)
+__llabs_crt_fast:
+	bit	7, b
+	jq	nz, __llneg_fast
+	ret
+
+	extern	__llneg_fast

src/crt/sabs_crt.src

@@ -0,0 +1,13 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__sabs_crt
+
+; HL = abs(HL)
+__sabs_crt:
+	bit	7, h
+	jq	nz, __sneg
+	ret
+
+	extern	__sneg

src/crt/sabs_crt_fast.src

@@ -0,0 +1,19 @@
+	assume	adl=1
+
+	section	.text
+
+	public	__sabs_crt_fast
+
+; HL = abs(HL)
+; 9 bytes
+; positive: 4F + 3R + 2
+; negative: 10F + 3R + 2
+__sabs_crt_fast:
+	bit	7, h
+	ret	z
+	; __sneg_fast
+	add	hl, de	; uhl=UHL+UDE
+	ex	de, hl	; ude=UHL+UDE, uhl=UDE
+	or	a, a
+	sbc	hl, de	; uhl=UDE-(UHL+UDE)
+	ret