![]() |
Routines |
| H | Number of character speaking or writing the message |
| 26318 | LD L,16 | Bytes 15 and 16 hold the address of the next character in the sub-submessage being written/spoken (if any) |
| 26320 | LD A,(HL) | |
| 26321 | AND A | Are we working on a sub-submessage? |
| 26322 | JR NZ,26332 | Jump if so |
| 26324 | LD L,14 | Bytes 13 and 14 hold the address of the next character in the submessage being written/spoken (if any) |
| 26326 | LD A,(HL) | |
| 26327 | AND A | Are we working on a submessage? |
| 26328 | JR NZ,26332 | Jump if so |
| 26330 | LD L,12 | We're working on a top-level message |
| 26332 | LD D,(HL) | DE=address of character in (sub)(sub)message |
| 26333 | DEC L | |
| 26334 | LD E,(HL) | |
| 26335 | LD A,(DE) | Pick up the character code in A |
| 26336 | INC DE | Move pointer to next character and store the address for future reference |
| 26337 | LD (HL),E | |
| 26338 | INC L | |
| 26339 | LD (HL),D | |
| 26340 | AND A | Has the end of the (sub)(sub)message been reached? |
| 26341 | JR NZ,26352 | Jump if not |
| 26343 | LD (HL),0 | Signal: end of (sub)(sub)message |
| 26345 | DEC L | L=11 (top-level message), 13 (submessage) or 15 (sub-submessage) |
| 26346 | BIT 2,L | Has the end of the top-level message been reached? |
| 26348 | RET Z | Return if so |
| 26349 | DEC L | Otherwise go up to submessage or top-level message and jump back to deal with it |
| 26350 | JR 26332 |
| 26352 | SUB 32 | |
| 26354 | CP 96 | |
| 26356 | JR NC,26361 | Jump with character codes 1-31 or 128 onwards |
| 26358 | ADD A,32 | |
| 26360 | RET | Return with standard ASCII code in A |
| 26361 | ADD A,32 | |
| 26363 | CP 3 | |
| 26365 | RET C | Return with character codes 1 and 2 (end of line) |
| 26366 | LD E,A | DE points to the LSB of the start address of the (sub)submessage |
| 26367 | LD D,254 | |
| 26369 | INC L | L=13 (submessage) or 15 (sub-submessage) |
| 26370 | LD A,(DE) | A=LSB of start address of (sub)submessage |
| 26371 | LD (HL),A | Store it in byte 13 or 15 of the character's buffer |
| 26372 | INC L | L=14 (submessage) or 16 (sub-submessage) |
| 26373 | INC D | A=MSB of address of (sub)submessage |
| 26374 | LD A,(DE) | |
| 26375 | LD (HL),A | Store it in byte 14 or 16 of the character's buffer |
| 26376 | JR 26332 | Jump back to collect character code from this (sub)submessage |