| Routines

09487: THE 'SCANNING QUOTES' SUBROUTINE

This subroutine is used by S_QUOTE to check that every string quote is matched by another one.
Input
BC | Current string length counter
Output
BC | Updated string length counter
F | Zero flag set if two consecutive '"' characters are found
S_QUOTE_S | 09487 | CALL CH_ADD_1 | Point to the next character.
| 09490 | INC BC | Increase the length count by one.
| 09491 | CP 13 | Is it a carriage return?
| 09493 | JP Z,REPORT_C | Report the error if so.
| 09496 | CP "\"" | Is it another '"'?
| 09498 | JR NZ,S_QUOTE_S | Loop back if it is not.
| 09500 | CALL CH_ADD_1 | Point to next character.
| 09503 | CP "\"" | Set zero flag if it is another '"'.
| 09505 | RET | Finished.