| Alien (BUGFIX 1.7) | Routines |
| Prev: 34636 | Up: Map | Next: 34684 |
|
|
||||
| 34640 | LD HL,33682 | HL points to AlienFlags | ||
| 34643 | LD (HL),0 | start from "no keys pressed" | ||
| 34645 | LD BC,63486 | port $F7FE: half-row 1-5 | ||
| 34648 | IN A,(C) | read half-row 1-5 | ||
| 34650 | LD B,239 | next read: port $EFFE, half-row 6-0 | ||
| 34652 | BIT 4,A | key 5 pressed? (active low) | ||
| 34654 | JR NZ,34658 | |||
| 34656 | SET 1,(HL) | bit 1 = key 5 | ||
| 34658 | IN A,(C) | read half-row 6-0 | ||
| 34660 | BIT 2,A | key 8? | ||
| 34662 | JR NZ,34666 | |||
| 34664 | SET 0,(HL) | bit 0 = key 8 | ||
| 34666 | BIT 3,A | key 7? | ||
| 34668 | JR NZ,34672 | |||
| 34670 | SET 2,(HL) | bit 2 = key 7 | ||
| 34672 | BIT 4,A | key 6? | ||
| 34674 | JR NZ,34678 | |||
| 34676 | SET 3,(HL) | bit 3 = key 6 | ||
| 34678 | BIT 0,A | key 0 (action)? | ||
| 34680 | RET NZ | not pressed: done | ||
| 34681 | SET 4,(HL) | bit 4 = action | ||
| 34683 | RET | |||
| Prev: 34636 | Up: Map | Next: 34684 |