![]() |
Routines |
| Prev: 24FB | Up: Map | Next: 2522 |
|
This subroutine is used by S_QUOTE to check that every string quote is matched by another one.
|
||||||||||||||
| S_QUOTE_S | 250F | CALL CH_ADD_1 | Point to the next character. | |||||||||||
| 2512 | INC BC | Increase the length count by one. | ||||||||||||
| 2513 | CP $0D | Is it a carriage return? | ||||||||||||
| 2515 | JP Z,REPORT_C | Report the error if so. | ||||||||||||
| 2518 | CP "\"" | Is it another '"'? | ||||||||||||
| 251A | JR NZ,S_QUOTE_S | Loop back if it is not. | ||||||||||||
| 251C | CALL CH_ADD_1 | Point to next character. | ||||||||||||
| 251F | CP "\"" | Set zero flag if it is another '"'. | ||||||||||||
| 2521 | RET | Finished. | ||||||||||||
| Prev: 24FB | Up: Map | Next: 2522 |