Prev: A73C Up: Map Next: A805
A7D5: Fire double shot
Used by the routine at control_ship.
fire_double_shot A7D5 RST $28 Allocate sprite
A7D6 LD HL,($7003) Ship's polar coordinates
A7D9 PUSH HL Save them
A7DA LD (IX+$01),L Set polar y same as ship's
A7DD LD A,H Ship's polar x
A7DE INC A One step clockwise
A7DF AND $3F Mod 64
A7E1 LD (IX+$02),A Set polar x
A7E4 LD (IX+$00),$02 Shot type
A7E8 LD (IX+$0B),$0A Set color (yellow)
A7EC RST $28 Allocate sprite
A7ED POP HL Restore ship's polar coordinates
A7EE LD (IX+$01),L Set polar y same as ship's
A7F1 LD A,H Ship's polar x
A7F2 DEC A One step anti-clockwise
A7F3 AND $3F Mod 64
A7F5 LD (IX+$02),A Set polar x
A7F8 LD (IX+$00),$02 Shot type
A7FC LD (IX+$0B),$0A Set color (yellow)
A800 LD HL,active_shots Increment number of active shots
A803 INC (HL) ...
A804 RET Return
Prev: A73C Up: Map Next: A805