|
Routines |
| Prev: 62D7 | Up: Map | Next: 6319 |
|
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 | 62F2 | PUSH BC | Keep the character while the last one is inspected. | |
| 62F3 | LD B,A | |||
| 62F4 | LD A,($5B9B) | A preceding full stop capitalises the next letter. | ||
| 62F7 | CP $2E | |||
| 62F9 | JR NZ,Capitalise_Plain | |||
| 62FB | LD A,B | A character below 40 is not a letter. | ||
| 62FC | AND $7F | |||
| 62FE | CP $40 | |||
| 6300 | JR C,Capitalise_Plain | |||
| 6302 | CP $5E | 5E and 7E are terminators, not letters. | ||
| 6304 | JR Z,Capitalise_Plain | |||
| 6306 | CP $7E | |||
| 6308 | JR Z,Capitalise_Plain | |||
| 630A | RES 5,A | Clear bit 5 to make the letter a capital. | ||
| 630C | LD B,A | |||
| Capitalise_Plain | 630D | LD A,B | The printer sees the character without bit 7. A space flushes the word. | |
| 630E | POP BC | |||
| 630F | AND $7F | |||
| 6311 | CP $20 | |||
| 6313 | JP Z,FinishWord | A space is finished by FinishWord. | ||
| 6316 | LD ($5B9B),A | Remember this character as the last one printed. | ||
| Prev: 62D7 | Up: Map | Next: 6319 |