Added syntax evaluation for asm lines

1 files changed, 5 insertions, 17 deletions

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*)
-  ()
-  )