From 84ad1b97a5095cf6010593ec96e7d43d77fc0fa5 Mon Sep 17 00:00:00 2001
From: aleksei <aleksei@aj.org>
Date: Fri, 12 Apr 2024 13:53:21 +1000
Subject: Added syntax evaluation for asm lines

---
 main.lisp | 22 +++++-----------------
 1 file changed, 5 insertions(+), 17 deletions(-)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index adeaf15..1c16b31 100644
--- a/main.lisp
+++ b/main.lisp
@@ -18,21 +18,9 @@ License along with this library; if not, write to the Free Software
 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 |#
 
+#|
+To solve the problem of the colliding syntax rules
+We can test only the addressin modes we know the opcode to have
+This not only solves this problem, it just makes more sense.
+|#
 
-(defun last-char (s)
-  (char s (- (length s) 1)))
-
-(defun label? (s)
-  (eq (last-char s) #\:))
-
-
-(setf
- *grammar*
- (('label
-   (lambda (l)
-	 ))))
-
-(defun read_code ()
-  (incf *source-line-number*)
-  ()
-  )
-- 
cgit v1.2.3