|
Routines |
| Prev: B03C | Up: Map | Next: B09D |
| B06D | LD A,($B2DB) | Get the input mechanism. (B2DB) | ||
| B070 | OR A | Is it 0? | ||
| B071 | JR Z,$B08A | Jump forward if it is. | ||
| B073 | CP $01 | Is it 1? | ||
| B075 | JR NZ,$B080 | Jump forward if it is. | ||
|
Use Kempston input.
|
||||
| B077 | IN A,($1F) | Read the Kempston interface. | ||
| B079 | BIT 4,A | Was 'fire' pressed? | ||
| B07B | JR Z,$B09B | If not, jump forward to indicate nothing read. | ||
|
'Jump' / 'Fire' was pressed, so indicate this.
|
||||
| B07D | LD A,$01 | Return A with 1 to mark success. | ||
| B07F | RET | |||
|
Use Sinclair input.
|
||||
| B080 | LD A,$EF | |||
| B082 | IN A,($FE) | |||
| B084 | BIT 0,A | |||
| B086 | JR Z,$B07D | |||
| B088 | JR $B09B | |||
|
Use keyboard input.
|
||||
| B08A | LD A,$FE | |||
| B08C | IN A,($FE) | |||
| B08E | LD B,A | |||
| B08F | LD A,$7F | |||
| B091 | IN A,($FE) | |||
| B093 | AND B | |||
| B094 | OR $E0 | |||
| B096 | CP $FF | |||
| B098 | JP NZ,$B07D | |||
|
'Jump' / 'Fire' wasn't pressed, so indicate this.
|
||||
| B09B | XOR A | Return A with 0. | ||
| B09C | RET | |||
| Prev: B03C | Up: Map | Next: B09D |