Fixed parsing of expressions with spaces

This commit is contained in:
Jeff 2017-03-28 09:17:09 -07:00 • committed by Jeff Parsons
commit b2a6a06908
11 changed files with 11503 additions and 13 deletions

View file

@ -14,7 +14,6 @@ EXIOT=4000 ;USER PRIV I/O FLAG
FXU=100 ;FLOATING UNDERFLOW
DCK=40 ;DIVIDE CHECK
;MACROS
; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
@ -33,6 +32,7 @@ DEFINE SFLAG (A)<
MOVSI 1,A
JFCL 17,.+1 ;RESET ALL FLAGS
JRST 2,.+1(1) ;SET A FLAG>
SUBTTL DIAGNOSTIC SECTION
START: ;SETZM USER# ;CLEAR USER CONTROL WORD