|
Routines |
| Prev: 25303 | Up: Map | Next: 25369 |
|
Used by the routine at ExpandToken.
After a full stop, a letter is forced to capitals. A space is handled by FinishWord so a terminator cannot split a word.
|
||||
| Capitalise | 25330 | PUSH BC | Keep the character while the last one is inspected. | |
| 25331 | LD B,A | |||
| 25332 | LD A,(23451) | A preceding full stop capitalises the next letter. | ||
| 25335 | CP 46 | |||
| 25337 | JR NZ,Capitalise_Plain | |||
| 25339 | LD A,B | A character below 64 is not a letter. | ||
| 25340 | AND 127 | |||
| 25342 | CP 64 | |||
| 25344 | JR C,Capitalise_Plain | |||
| 25346 | CP 94 | 94 and 126 are terminators, not letters. | ||
| 25348 | JR Z,Capitalise_Plain | |||
| 25350 | CP 126 | |||
| 25352 | JR Z,Capitalise_Plain | |||
| 25354 | RES 5,A | Clear bit 5 to make the letter a capital. | ||
| 25356 | LD B,A | |||
| Capitalise_Plain | 25357 | LD A,B | The printer sees the character without bit 7. A space flushes the word. | |
| 25358 | POP BC | |||
| 25359 | AND 127 | |||
| 25361 | CP 32 | |||
| 25363 | JP Z,FinishWord | A space is finished by FinishWord. | ||
| 25366 | LD (23451),A | Remember this character as the last one printed. | ||
| Prev: 25303 | Up: Map | Next: 25369 |