770D: Convert keybard states stored, into movement.
| UpdateKeyboardInput |
770D |
LD A,(FlagsDemoMode) |
|
7710 |
AND A |
|
7711 |
JP NZ,UpdateKeyboardInput_8 |
|
7714 |
CALL KeyboardScan |
|
7717 |
LD B,$00 |
|
7719 |
LD IX,KeyStatesFirst |
|
771D |
LD A,(IX+$01) |
|
7720 |
AND $15 |
|
7722 |
LD C,A |
|
7723 |
LD A,(IX+$06) |
|
7726 |
AND $0A |
|
7728 |
OR C |
|
7729 |
XOR $1F |
|
772B |
JR Z,UpdateKeyboardInput_0 |
|
772D |
SET 2,B |
| UpdateKeyboardInput_0 |
772F |
LD A,(IX+$01) |
|
7732 |
AND $0A |
|
7734 |
LD C,A |
|
7735 |
LD A,(IX+$06) |
|
7738 |
AND $15 |
|
773A |
OR C |
|
773B |
XOR $1F |
|
773D |
JR Z,UpdateKeyboardInput_1 |
|
773F |
SET 3,B |
| UpdateKeyboardInput_1 |
7741 |
LD A,(IX+$00) |
|
7744 |
AND $0A |
|
7746 |
LD C,A |
|
7747 |
LD A,(IX+$07) |
|
774A |
AND $14 |
|
774C |
OR C |
|
774D |
XOR $1E |
|
774F |
JR Z,UpdateKeyboardInput_2 |
|
7751 |
SET 1,B |
| UpdateKeyboardInput_2 |
7753 |
LD A,(IX+$00) |
|
7756 |
AND $14 |
|
7758 |
LD C,A |
|
7759 |
LD A,(IX+$07) |
|
775C |
AND $0A |
|
775E |
OR C |
|
775F |
XOR $1E |
|
7761 |
JR Z,UpdateKeyboardInput_3 |
|
7763 |
SET 0,B |
| UpdateKeyboardInput_3 |
7765 |
LD A,(IX+$02) |
|
7768 |
AND $0A |
|
776A |
LD C,A |
|
776B |
LD A,(IX+$05) |
|
776E |
AND $15 |
|
7770 |
OR C |
|
7771 |
XOR $1F |
|
7773 |
JR Z,UpdateKeyboardInput_4 |
|
7775 |
SET 6,B |
| UpdateKeyboardInput_4 |
7777 |
LD A,(IX+$02) |
|
777A |
AND $15 |
|
777C |
LD C,A |
|
777D |
LD A,(IX+$05) |
|
7780 |
AND $0A |
|
7782 |
OR C |
|
7783 |
XOR $1F |
|
7785 |
JR Z,UpdateKeyboardInput_5 |
|
7787 |
SET 5,B |
| UpdateKeyboardInput_5 |
7789 |
LD A,(IX+$03) |
|
778C |
XOR (IX+$04) |
|
778F |
AND $1E |
|
7791 |
JR Z,UpdateKeyboardInput_6 |
|
7793 |
SET 7,B |
| UpdateKeyboardInput_6 |
7795 |
LD A,(IX+$00) |
|
7798 |
AND (IX+$07) |
|
779B |
AND (IX+$03) |
|
779E |
AND (IX+$04) |
|
77A1 |
AND $01 |
|
77A3 |
JR NZ,UpdateKeyboardInput_7 |
|
77A5 |
SET 4,B |
| UpdateKeyboardInput_7 |
77A7 |
LD A,B |
| UpdateKeyboardInput_8 |
77A8 |
LD (InputFlags_DFBA),A |
|
77AB |
RET |