|
Routines |
| Prev: AFC4 | Up: Map | Next: B03C |
| B00B | LD A,($B2DB) | Get the input mechanism. (B2DB) | ||
| B00E | OR A | Is it 0? | ||
| B00F | JR Z,$B028 | Jump forward if it is. | ||
| B011 | CP $01 | Is it 1? | ||
| B013 | JR NZ,$B01D | Jump forward if it is. | ||
|
Use Kempston input
|
||||
| B015 | IN A,($1F) | Read the Kempston interface. | ||
| B017 | BIT 0,A | Was 'right' pressed? | ||
| B019 | JR NZ,$B025 | If so, jump forward to signal success. | ||
| B01B | JR $B03A | Otherwise, jump forward to indicate nothing read. | ||
|
Use Sinclair input
|
||||
| B01D | LD A,$EF | |||
| B01F | IN A,($FE) | |||
| B021 | BIT 3,A | |||
| B023 | JR NZ,$B03A | |||
|
'Left' was pressed, so indicate this.
|
||||
| B025 | LD A,$01 | Return A with 1 to mark success. | ||
| B027 | RET | |||
|
Use keyboard input.
|
||||
| B028 | LD A,$FB | |||
| B02A | IN A,($FE) | |||
| B02C | OR $F5 | |||
| B02E | LD B,A | |||
| B02F | LD A,$DF | |||
| B031 | IN A,($FE) | |||
| B033 | OR $EA | |||
| B035 | AND B | |||
| B036 | CP $FF | |||
| B038 | JR NZ,$B025 | |||
|
'Left' wasn't pressed, so indicate this.
|
||||
| B03A | XOR A | Return A with 0. | ||
| B03B | RET | |||
| Prev: AFC4 | Up: Map | Next: B03C |