| Routines

61440: Control EINSTEIN during class

Used by command lists 82, 84 and 86. Controls EINSTEIN from the moment after he sits down until the lesson ends.
Input
H | 208 (EINSTEIN)
61440 | LD A,(32640) | Bit 3 of 32640 is set by the routine at 61463 when it's EINSTEIN's turn to speak in class; is it his turn now?
61443 | BIT 3,A
61445 | RET Z | Return if not
61446 | LD BC,27147 | Direct control of EINSTEIN to the routine at 27147 (make character speak) and then return to 61452 (below)
61449 | CALL 25503
61452 | LD L,3 | Reset the address of the primary command routine in bytes 3 and 4 of EINSTEIN's buffer from 61452 to 61440
61454 | LD (HL),0
61456 | LD HL,32640 | Signal: EINSTEIN has finished speaking
61459 | RES 3,(HL)
61461 | RET |