Fixed parsing of expressions with spaces
This commit is contained in:
parent
e3428dd36c
commit
b2a6a06908
11 changed files with 11503 additions and 13 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue