diff options
author | aleksei <aleksei@aj.org> | 2024-04-12 13:53:21 +1000 |
---|---|---|
committer | aleksei <aleksei@aj.org> | 2024-04-12 13:53:21 +1000 |
commit | 84ad1b97a5095cf6010593ec96e7d43d77fc0fa5 (patch) | |
tree | 36a00eb699bb0ce7cd7d18dc1bf608d9714538c0 /main.lisp | |
parent | 82632e220e3a0c2f72c463f8c07b9678d7399972 (diff) |
Added syntax evaluation for asm lines
Diffstat (limited to 'main.lisp')
-rw-r--r-- | main.lisp | 22 |
1 files changed, 5 insertions, 17 deletions
@@ -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*) - () - ) |