From 32fd86c01f9745f4ac6ef99a45e47ded3aacc1b5 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sat, 15 Apr 2017 20:04:28 -0400
Subject: [PATCH] &hash new(numpexpr) , numvar

---
 HashKEGS.aii | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/HashKEGS.aii b/HashKEGS.aii
index cd822c3..7fbb810 100644
--- a/HashKEGS.aii
+++ b/HashKEGS.aii
@@ -195,11 +195,27 @@ do_ampr
 	jmp (hash_table,x)
 
 hash_new
+	; todo -- use hash new(type),ok
+	jsr CHKOPN
 	jsr GETBYT
 	stx type
+	jsr CHKCLS
+
 	stx prmtbl+0
 	stz prmtbl+1
-	brl hash_native_init
+	bsr hash_native_init
+	sta a1 ; return value.
+	stz a1+1
+
+	lda (TXTPTR)
+	cmp #','
+	beq @rw
+	rts
+@rw
+	jsr CHKCOM
+	ldy #OMM_PUTWORD
+	ldx #OMM_ID
+	jmp OMMVEC	
 
 
 hash_data