![]() |
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 the submessage or the 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 the 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 a character code from this (sub)submessage |