Fix bug: If JCL terminates with a carriage return, stop processing
This commit is contained in:
@@ -75,7 +75,7 @@ TOSLP: ILDB D,A ;Load the next character from A.
|
||||
JUMPE D,TOSEN ;Exit the loop, if charachter is null.
|
||||
CAIN D,40 ;If the character is a whitespace,
|
||||
JUMPA TOSEN ;exit the loop.
|
||||
CAIN D,[^M] ;If the character is a carriage return
|
||||
CAIN D,15 ;If the character is a carriage return
|
||||
JUMPA TOSEN ;exit the loop.
|
||||
CAIL D,140 ;If the character is > 96,
|
||||
SUBI D,40 ;then cut it down, so it's in range.
|
||||
|
||||
Reference in New Issue
Block a user