| Routines

27808: Make a character find a seat

Used by command lists 136, 140, 142, 144, 146, 148, 150, 152, 154, 156, 158, 160, 162, 164, 166 and 168. Makes a character start looking for a seat.
Input
H | Character number (152-169)
27808 | LD L,100 | Remove the address of this primary command routine from bytes 99 and 100 of the character's buffer, triggering a move to the next command in the command list (which will be 31162 if the character is EINSTEIN, or 25247=RET otherwise) as soon as the character has found a seat
27810 | LD (HL),0
27812 | LD L,111 | Place the address of the uninterruptible subcommand routine at 27772 into bytes 111 and 112 of the character's buffer
27814 | LD (HL),124
27816 | INC L
27817 | LD (HL),108
27819 | JP 27772 | Set the character off in search of a seat