Fix bug: If JCL terminates with a carriage return, stop processing

This commit is contained in:
2026-01-11 21:56:45 +01:00
parent 82ab9b1de6
commit d22dd7ab59

View File

@@ -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.