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 |