| Routines

6E38: Turn ERIC round

Used by the routines at 6F14, 6F2C, 6F44, 6FA0 and FB3C.
6E38 | CALL $7154 | Make a sound effect
6E3B | LD A,($7FF1) | Collect the keypress offset of the last keypress from 7FF1
6E3E | BIT 3,A | Bit 3 of A is reset if an upper case key was pressed
6E40 | LD HL,$0400 | H=4 (fast), L=0 (not midstride)
6E43 | JR Z,$6E47 | Jump if an upper case (fast) key was pressed
6E45 | LD H,$09 | 9=slow
6E47 | LD ($7FF2),HL | Initialise ERIC's main action timer at 7FF3 to 4 (fast) or 9 (slow), and reset the midstride/mid-action timer at 7FF2 to 0
6E4A | LD H,$D2 | 0xD2=ERIC
6E4C | JP $6430 | Turn ERIC round