![]() |
Routines |
Prev: 09467 | Up: Map |
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 |