8F0A: Re-arm the object pool to serve a ball
| rearm_serve |
8F0A |
LD A,(bat_side) |
|
8F0D |
OR A |
|
8F0E |
JR NZ,rearm_serve_0 |
|
8F10 |
LD HL,$58D4 |
|
8F13 |
LD DE,$58CA |
|
8F16 |
JR rearm_serve_1 |
| rearm_serve_0 |
8F18 |
LD HL,$581C |
|
8F1B |
LD DE,$5826 |
| rearm_serve_1 |
8F1E |
LD (object_table),HL |
|
8F21 |
LD (ball_a_object),DE |
|
8F25 |
LD HL,slot_bat_normal |
|
8F28 |
LD (bat_sprite_ptr),HL |
|
8F2B |
LD HL,slot_ball |
|
8F2E |
LD (ball_a_sprite_ptr),HL |
|
8F31 |
LD A,(ball_speed) |
|
8F34 |
LD (ball_a_speed),A |
|
8F37 |
XOR A |
|
8F38 |
LD (ball_a_bounce_count),A |
|
8F3B |
LD (ball_a_x_threshold),A |
|
8F3E |
LD (ball_a_y_threshold),A |
|
8F41 |
INC A |
|
8F42 |
LD (ball_a_on_bat),A |
|
8F45 |
LD IX,object_table |
|
8F49 |
PUSH IX |
|
8F4B |
LD DE,$0009 |
|
8F4E |
LD B,$09 |
| rearm_serve_2 |
8F50 |
RES 0,(IX+$08) |
|
8F54 |
ADD IX,DE |
|
8F56 |
DJNZ rearm_serve_2 |
|
8F58 |
POP IX |
|
8F5A |
SET 0,(IX+$08) |
|
8F5E |
LD IX,ball_a_object |
|
8F62 |
SET 0,(IX+$08) |
|
8F66 |
RET |
Fork me on GitHub