From cdb6cce9148f57366c41836043bd4fc33ef5d045 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Fri, 17 May 2019 22:22:10 -0400
Subject: [PATCH] zasm: add multiplication expressions

---
 apps/zasm/expr.asm               | 110 ++++++++++++++++++++++-----------------
 apps/zasm/util.asm               |  18 +++++++
 tools/tests/unit/test_expr.asm   |  12 +++++
 tools/tests/unit/test_util_z.asm |  36 +++++++++++++
 tools/tests/zasm/test5.asm       |   1 +
 5 files changed, 130 insertions(+), 47 deletions(-)
 create mode 100644 tools/tests/unit/test_util_z.asm

diff --git a/apps/zasm/expr.asm b/apps/zasm/expr.asm
index a13ab49..a491b06 100644
--- a/apps/zasm/expr.asm
+++ b/apps/zasm/expr.asm
@@ -2,69 +2,85 @@
 ; We expect (HL) to be disposable: we mutate it to avoid having to make a copy.
 ; Sets Z on success, unset on error.
 parseExpr:
-	push	bc
 	push	de
 	push	hl
-	ld	a, '+'
-	call	findchar
-	jr	z, .hasExpr
+	call	_parseExpr
 	pop	hl
-	push	hl
-	ld	a, '-'
-	call	findchar
-	jr	nz, .noExpr
-	ld	c, '-'
-	jr	.hasExpr
-.hasPlus:
-	ld	c, '+'
-	jr	.hasExpr
-.hasExpr:
-	; Alright, we have a +/ and we're pointing at it. Let's advance HL and
-	; recurse. But first, let's change this + into a null char. It will be
-	; handy later.
-	xor	a
-	ld	(hl), a		; + changed to \0
-
-	inc	hl
-	pop	de		; we pop out the HL we pushed earlier into DE
-				; That's our original beginning of string.
-	call	_applyExprToHL
 	pop	de
-	pop	bc
 	ret
 
-.noExpr:
-	pop	hl
-	pop	de
-	pop	bc
+_parseExpr:
+	ld	a, '*'
+	call	_findAndSplit
+	jp	z, _applyMult
+	ld	a, '+'
+	call	_findAndSplit
+	jp	z, _applyPlus
+	ld	a, '-'
+	call	_findAndSplit
+	jp	z, _applyMinus
 	jp	parseNumberOrSymbol
 
-; Parse number or symbol in (DE) and expression in (HL) and apply operator
-; specified in C to them.
-_applyExprToHL:
+; Given a string in (HL) and a separator char in A, return a splitted string,
+; that is, the same (HL) string but with the found A char replaced by a null
+; char. DE points to the second part of the split.
+; Sets Z if found, unset if not found.
+_findAndSplit:
+	push	hl
+	call	findchar
+	jr	nz, .end	; nothing found
+	; Alright, we have our char and we're pointing at it. Let's replace it
+	; with a null char.
+	xor	a
+	ld	(hl), a		; + changed to \0
+	inc	hl
+	ex	de, hl		; DE now points to the second part of the split
+	cp	a		; ensure Z
+.end:
+	pop	hl		; HL is back to the start
+	ret
+
+; parse expression on the left (HL) and the right (DE) and put the results in
+; DE (left) and IX (right)
+_resolveLeftAndRight:
 	call	parseExpr
 	ret	nz		; return immediately if error
-	; Now we have parsed everything to the right and we have its result in
-	; IX. What we need to do now is parseNumberOrSymbol on (DE) and apply
-	; operator. Let's save IX somewhere and parse this.
-	ex	hl, de
+	; Now we have parsed everything to the left and we have its result in
+	; IX. What we need to do now is the same thing on (DE) and then apply
+	; the + operator. Let's save IX somewhere and parse this.
+	ex	hl, de	; right expr now in HL
 	push	ix
-	pop	de
-	call	parseNumberOrSymbol
-	ret	nz		; error
-	; Good! let's do the math! IX has our left part, DE has our right one.
-	ld	a, c		; restore operator
-	cp	'-'
-	jr	z, .sub
-	; addition
+	pop	de	; numeric left expr result in DE
+	jp	parseExpr
+
+; Parse expr in (HL) and expr in (DE) and apply + operator to both sides.
+; Put result in IX.
+_applyPlus:
+	call	_resolveLeftAndRight
+	ret	nz
+	; Good! let's do the math! IX has our right part, DE has our left one.
 	add	ix, de
-	jr	.end
-.sub:
+	cp	a		; ensure Z
+	ret
+
+; Same as _applyPlus but with -
+_applyMinus:
+	call	_resolveLeftAndRight
+	ret	nz
 	push	ix
 	pop	hl
+	ex	de, hl
 	sbc	hl, de
 	push	hl
 	pop	ix
-.end:
+	cp	a		; ensure Z
+	ret
+
+_applyMult:
+	call	_resolveLeftAndRight
+	ret	nz
+	push	ix \ pop bc
+	call	multDEBC
+	push	hl \ pop ix
 	cp	a		; ensure Z
 	ret
diff --git a/apps/zasm/util.asm b/apps/zasm/util.asm
index 5324b3b..07601b1 100644
--- a/apps/zasm/util.asm
+++ b/apps/zasm/util.asm
@@ -210,3 +210,21 @@ findStringInList:
 	pop	de
 	cp	a		; ensure Z
 	ret
+
+
+; DE * BC -> DE (high) and HL (low)
+multDEBC:
+	ld	hl, 0
+	ld	a, 0x10
+.loop:
+	add	hl, hl
+	rl	e
+	rl	d
+	jr	nc, .noinc
+	add	hl, bc
+	jr	nc, .noinc
+	inc de
+.noinc:
+	dec a
+	jr nz, .loop
+	ret
diff --git a/tools/tests/unit/test_expr.asm b/tools/tests/unit/test_expr.asm
index 7dfa933..96572b3 100644
--- a/tools/tests/unit/test_expr.asm
+++ b/tools/tests/unit/test_expr.asm
@@ -18,6 +18,7 @@ testNum:	.db 1
 s1:		.db "2+2", 0
 s2:		.db "0x4001+0x22", 0
 s3:		.db "FOO+BAR", 0
+s4:		.db "3*3", 0
 
 sFOO:		.db "FOO", 0
 sBAR:		.db "BAR", 0
@@ -70,6 +71,17 @@ test:
 	jp	nz, fail
 	call	nexttest
 
+	ld	hl, s4
+	call	parseExpr
+	jp	nz, fail
+	ld	a, ixh
+	or	a
+	jp	nz, fail
+	ld	a, ixl
+	cp	9
+	jp	nz, fail
+	call	nexttest
+
 	; success
 	xor	a
 	halt
diff --git a/tools/tests/unit/test_util_z.asm b/tools/tests/unit/test_util_z.asm
new file mode 100644
index 0000000..8839d07
--- /dev/null
+++ b/tools/tests/unit/test_util_z.asm
@@ -0,0 +1,36 @@
+jp	test
+
+#include "core.asm"
+#include "parse.asm"
+#include "zasm/util.asm"
+
+testNum:	.db 1
+
+test:
+	ld	hl, 0xffff
+	ld	sp, hl
+
+	ld	de, 12
+	ld	bc, 4
+	call	multDEBC
+	ld	a, l
+	cp	48
+	jp	nz, fail
+	call	nexttest
+
+	; success
+	xor	a
+	halt
+
+nexttest:
+	ld	a, (testNum)
+	inc	a
+	ld	(testNum), a
+	ret
+
+fail:
+	ld	a, (testNum)
+	halt
+
+
+
diff --git a/tools/tests/zasm/test5.asm b/tools/tests/zasm/test5.asm
index 90e7ed5..8d5326f 100644
--- a/tools/tests/zasm/test5.asm
+++ b/tools/tests/zasm/test5.asm
@@ -1,3 +1,4 @@
 ; test expressions
 ld	a, 'A'+3
 ld	a, 'A'-0x20
+ld	a, 8*5