Routines |
Prev: 09467 | Up: Map | Next: 09506 |
This subroutine is used by S_QUOTE to check that every string quote is matched by another one.
|
||||||||||||||
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. |
Prev: 09467 | Up: Map | Next: 09506 |