Run unit tests with zasm

tools/tests/unit/runtests.sh

@@ -3,14 +3,12 @@
 set -e
 set -o pipefail
 
-SCAS=scas
+ZASM=../../emul/zasm/zasm
-KERNEL=../../../kernel
-APPS=../../../apps
 RUNBIN=../../emul/runbin/runbin
 
 for fn in *.asm; do
     echo "Running test ${fn}"
-    if ! ${SCAS} -I ${KERNEL} -I ${APPS} -o - ${fn} | ${RUNBIN}; then
+    if ! ${ZASM} < ${fn} | ${RUNBIN}; then
         echo "failed with code ${PIPESTATUS[1]}"
         exit 1
     fi

tools/tests/unit/test_expr.asm

@@ -32,10 +32,11 @@ test:
 	ld	hl, s1
 	call	parseExpr
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	or	a
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	4
 	jp	nz, fail
 	call	nexttest
@@ -43,10 +44,11 @@ test:
 	ld	hl, s2
 	call	parseExpr
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	cp	0x40
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	0x23
 	jp	nz, fail
 	call	nexttest
@@ -65,10 +67,11 @@ test:
 	ld	hl, s3
 	call	parseExpr
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	cp	0x40
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	0x20
 	jp	nz, fail
 	call	nexttest
@@ -76,10 +79,11 @@ test:
 	ld	hl, s4
 	call	parseExpr
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	or	a
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	0x60
 	jp	nz, fail
 	call	nexttest
@@ -87,10 +91,11 @@ test:
 	ld	hl, s5
 	call	parseExpr
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	cp	0x3f
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	0xfd
 	jp	nz, fail
 	call	nexttest
@@ -98,10 +103,11 @@ test:
 	ld	hl, s6
 	call	parseExpr
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	cp	0x40
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	0x80
 	jp	nz, fail
 	call	nexttest
@@ -119,6 +125,3 @@ nexttest:
 fail:
 	ld	a, (testNum)
 	halt
-
-
-

tools/tests/unit/test_parse.asm

@@ -39,14 +39,14 @@ test:
 	jp	nz, fail
 	call	nexttest
 
-	ld	hl, sab
+	ld	hl, saB
 	call	parseHexPair
 	jp	c, fail
 	cp	0xab
 	jp	nz, fail
 	call	nexttest
 
-	ld	hl, sfoo
+	ld	hl, sFoo
 	call	parseHexPair
 	jp	nc, fail
 	call	nexttest
@@ -64,4 +64,3 @@ nexttest:
 fail:
 	ld	a, (testNum)
 	halt
-

tools/tests/unit/test_parse_z.asm

@@ -28,10 +28,11 @@ test:
 	ld	hl, s99
 	call	parseLiteral
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	or	a
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	99
 	jp	nz, fail
 	call	nexttest
@@ -39,10 +40,11 @@ test:
 	ld	hl, s0x100
 	call	parseLiteral
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	cp	1
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	or	a
 	jp	nz, fail
 	call	nexttest
@@ -55,10 +57,11 @@ test:
 	ld	hl, s0b0101
 	call	parseLiteral
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	or	a
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	0b0101
 	jp	nz, fail
 	call	nexttest
@@ -66,10 +69,11 @@ test:
 	ld	hl, s0b01010101
 	call	parseLiteral
 	jp	nz, fail
-	ld	a, ixh
+	push	ix \ pop hl
+	ld	a, h
 	or	a
 	jp	nz, fail
-	ld	a, ixl
+	ld	a, l
 	cp	0b01010101
 	jp	nz, fail
 	call	nexttest