# HG changeset patch
# User William Astle <lost@l-w.ca>
# Date 1670656793 25200
# Node ID b98c01cd3377662e849c98a9ac2cd00f25fea3ea
# Parent  8d9345b6d3a933f226422bf1c459c09d1ca7caa1
Add routine to throw syntax error if input character doesn't match

diff -r 8d9345b6d3a9 -r b98c01cd3377 src/lwbasic.s
--- a/src/lwbasic.s	Fri Dec 09 22:46:53 2022 -0700
+++ b/src/lwbasic.s	Sat Dec 10 00:19:53 2022 -0700
@@ -1237,6 +1237,12 @@
                 leax -1,x                       ; move back before start of code stream
                 bra interpret2                  ; go interpret this statement and then continue with stuff
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; Check for character in B and raise a syntax error if not found at current input pointer. If it is found, fetch the
+; next input character.
+syncheckb       cmpb [inputptr]                 ; do we have a syntax match?
+                bne SNERROR                     ; brif not
+                jmp nextchar                    ; return next input character
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; The END command.
 cmd_end         bne SNERROR                     ; error out if there is an argument
                 ;jsr closeall                    ; close all files for END