E | Message number |
H | Teacher's character number (201-203) |
61463 | 7B | LD A,E | A=message number |
61464 | 320BD0 | LD (53259),A | Place this in byte 11 of EINSTEIN's buffer |
61467 | EB | EX DE,HL | |
61468 | 21807F | LD HL,32640 | |
61471 | CBDE | SET 3,(HL) | Signal: EINSTEIN is talking |
61473 | EB | EX DE,HL | |
61474 | 2E09 | LD L,9 | Replace the address of this routine in bytes 9 and 10 of the teacher's buffer with 61478 (below) |
61476 | 3626 | LD (HL),38 | |
61478 | 3A807F | LD A,(32640) | |
61481 | CB5F | BIT 3,A | Is EINSTEIN still talking? |
61483 | C0 | RET NZ | Return if so |
61484 | C39063 | JP 25488 | Let the teacher continue conducting the class |