| Routines

7CA0: Make a teacher give lines to EINSTEIN for telling tales

Continues from the routine at 7CE0.
Input
H | Teacher's character number (0xA3-0xA6)
7CA0 | LD A,$A9 | 0xA9=EINSTEIN
7CA2 | LD B,$09 | Lines reprimand 0x09: DON'T TELL TALES
This entry point is used by the routine at F300 with A=0xAC (ERIC) and B=0x08 (NOW DON'T DO IT AGAIN), 0x0A (NEVER BE LATE AGAIN), 0x0B (AND STAY THIS TIME) or 0x0C (DON'T TOUCH BLACKBOARDS).
7CA4 | LD L,$61 | Bytes 0x61 and 0x62 of the teacher's buffer hold his coordinates
7CA6 | PUSH HL | Save the teacher's character number briefly
7CA7 | LD D,(HL) | Collect the teacher's coordinates in DE
7CA8 | INC L
7CA9 | LD E,(HL)
7CAA | CALL $7700 | Make the teacher give lines
7CAD | POP HL | Restore the teacher's character number to H
7CAE | RET |