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.
|
JUMPE D,TOSEN ;Exit the loop, if charachter is null.
|
||||||
CAIN D,40 ;If the character is a whitespace,
|
CAIN D,40 ;If the character is a whitespace,
|
||||||
JUMPA TOSEN ;exit the loop.
|
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.
|
JUMPA TOSEN ;exit the loop.
|
||||||
CAIL D,140 ;If the character is > 96,
|
CAIL D,140 ;If the character is > 96,
|
||||||
SUBI D,40 ;then cut it down, so it's in range.
|
SUBI D,40 ;then cut it down, so it's in range.
|
||||||
|
|||||||
Reference in New Issue
Block a user