| Technician Ted | Routines |
| Prev: A67B | Up: Map | Next: A752 |
|
Used by the routine at BB17.
|
||||
| A72F | LD HL,$A752 | LEFT input table | ||
| A732 | JR $A73C | |||
|
This entry point is used by the routine at BB17.
|
||||
| A734 | LD HL,$A75C | RIGHT input table | ||
| A737 | JR $A73C | |||
|
This entry point is used by the routine at BB17.
|
||||
| A739 | LD HL,$A764 | JUMP input table | ||
|
Check any valid keys have been pressed
|
||||
| A73C | LD B,(HL) | Get the count of table entries | ||
| A73D | INC HL | Move to next entry | ||
| A73E | LD A,(HL) | Get the row to check | ||
| A73F | INC HL | Move to the bitmask | ||
| A740 | IN A,($FE) | Get the key | ||
| A742 | CPL | Check against the bitmask | ||
| A743 | AND (HL) | |||
| A744 | RET NZ | Return if there was a match | ||
| A745 | DJNZ $A73D | Otherwise try the next one | ||
|
Check for Kempston joystick, if we have it
|
||||
| A747 | LD A,($A45B) | Abort if we don't have Kempston configured | ||
| A74A | BIT 5,A | |||
| A74C | RET Z | |||
| A74D | IN A,($1F) | Read the port | ||
| A74F | INC HL | Move to the Kempston entry | ||
| A750 | AND (HL) | Check the appropriate movement and return with the zero flag set if the movement was found | ||
| A751 | RET | |||
| Prev: A67B | Up: Map | Next: A752 |