From 38e40bfc16cfd860957ab870c08823604b45800c Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Tue, 16 Apr 2019 22:46:04 -0400
Subject: [PATCH] zasm: make the instruction table fixed

Looping is easier
---
 apps/zasm/zasm.asm | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/apps/zasm/zasm.asm b/apps/zasm/zasm.asm
index 702ffc0..a9b6551 100644
--- a/apps/zasm/zasm.asm
+++ b/apps/zasm/zasm.asm
@@ -2,7 +2,8 @@
 
 ; *** Consts ***
 ARGSPEC_SINGLE_CNT	.equ	7
-ARGSPEC_TBL_CNT	.equ	12
+ARGSPEC_TBL_CNT		.equ	12
+INSTR_TBL_PRIMARYC_CNT	.equ	25
 
 ; *** Code ***
 .org	USER_CODE
@@ -229,18 +230,16 @@ matchPrimaryRow:
 parseLine:
 	call	readLine
 	push	de
-	ld	de, instTBlPrimary
+	ld	de, instrTBlPrimaryC
+	ld	b, INSTR_TBL_PRIMARYC_CNT
 .loop:
 	ld	a, (de)
-	cp	0
-	jr	z, .nomatch	; we reached last entry
 	call	matchPrimaryRow
 	jr	z, .match
 	ld	a, 7
 	call	JUMP_ADDDE
-	jr	.loop
-
-.nomatch:
+	djnz	.loop
+	; no match
 	xor	a
 	pop	de
 	ret
@@ -283,7 +282,7 @@ argspecTbl:
 ; 1 byte for arg constant
 ; 1 byte for 2nd arg constant
 ; 1 byte for upcode
-instTBlPrimary:
+instrTBlPrimaryC:
 	.db "ADD", 0, 'A', 'h', 0x86		; ADD A, HL
 	.db "CCF", 0, 0,   0,   0x3f		; CCF
 	.db "CPL", 0, 0,   0,   0x2f		; CPL
@@ -309,7 +308,6 @@ instTBlPrimary:
 	.db "RRA", 0, 0,   0,   0x1f		; RRA
 	.db "RRCA",   0,   0,   0x0f		; RRCA
 	.db "SCF", 0, 0,   0,   0x37		; SCF
-	.db 0
 
 ; *** Variables ***
 ; enough space for 4 chars and a null