Routines
Prev: 73B2 Up: Map Next: 7571
73D3: Jetman Fly
Used by the routine at GamePlayStarts.
JetmanThrust 73D3 CALL StoreEntity
73D6 CALL ReadInputLR
73D9 BIT 0,A
73DB JP Z,JetmanThrust_0
73DE BIT 1,A
73E0 JP Z,JetmanThrust_24
73E3 LD A,($5DCC)
73E6 AND $01
73E8 JR Z,JetmanThrust_4
73EA JP JetmanThrust_27
JetmanThrust_0 73ED RES 6,(IX+$00)
73F1 BIT 6,(IX+$04)
73F5 JP NZ,JetmanThrust_25
JetmanThrust_1 73F8 LD A,($5DCA)
73FB NEG
73FD ADD A,$08
73FF ADD A,(IX+$05)
7402 CP $40
7404 JR NC,JetmanThrust_3
JetmanThrust_2 7406 LD (IX+$05),A
7409 JR JetmanThrust_4
JetmanThrust_3 740B LD (IX+$05),$40
JetmanThrust_4 740F LD H,$00
7411 LD L,(IX+$05)
7414 ADD HL,HL
7415 ADD HL,HL
7416 ADD HL,HL
7417 LD D,(IX+$01)
741A LD A,($5DC7)
741D LD E,A
741E BIT 6,(IX+$04)
7422 JP NZ,JetmanThrust_23
7425 ADD HL,DE
JetmanThrust_5 7426 LD A,L
7427 LD ($5DC7),A
742A LD (IX+$01),H
742D LD A,($5CF3)
7430 BIT 1,A
7432 JP NZ,JetmanThrust_11
7435 LD B,$02
7437 LD A,$EF
JetmanThrust_6 7439 OUT ($FD),A
743B IN A,($FE)
743D AND $1F
743F CP $1F
7441 JR NZ,JetmanThrust_10
7443 LD A,$F7
7445 DJNZ JetmanThrust_6 Decrease B by one, and loop back to JetmanThrust_6 until zero
JetmanThrust_7 7447 CALL ReadInputThrust
744A BIT 3,A
744C JP NZ,JetmanThrust_21
744F RES 7,(IX+$00)
7453 BIT 7,(IX+$04)
7457 JP NZ,JetmanThrust_22
JetmanThrust_8 745A LD A,($5DCA)
745D NEG
745F ADD A,$08
7461 ADD A,(IX+$06)
7464 CP $3F
7466 JR NC,JetmanThrust_12
JetmanThrust_9 7468 LD (IX+$06),A
746B JR JetmanThrust_13
JetmanThrust_10 746D LD (IX+$06),$00
7471 JR JetmanThrust_13
JetmanThrust_11 7473 CALL ReadKempstonJoystick
7476 BIT 2,A
7478 JP Z,JetmanThrust_10
747B JR JetmanThrust_7
JetmanThrust_12 747D LD (IX+$06),$3F
JetmanThrust_13 7481 LD L,(IX+$06)
7484 LD H,$00
7486 ADD HL,HL
7487 ADD HL,HL
7488 ADD HL,HL
7489 LD D,(IX+$02)
748C LD A,($5DC8)
748F LD E,A
7490 BIT 7,(IX+$04)
7494 JP Z,JetmanThrust_26
7497 ADD HL,DE
JetmanThrust_14 7498 LD A,L
7499 LD ($5DC8),A
749C LD (IX+$02),H
749F LD A,H
74A0 CP $C0
74A2 JR NC,JetmanThrust_19
74A4 CP $2A
74A6 JR C,JetmanThrust_20
JetmanThrust_15 74A8 CALL $761D
74AB BIT 2,E
74AD JR Z,JetmanThrust_16
74AF BIT 7,E
74B1 JP NZ,JetmanThrust_18
74B4 BIT 4,E
74B6 JR NZ,JetmanThrust_17
74B8 LD A,E
74B9 XOR $40
74BB AND $40
74BD LD E,A
74BE LD A,(IX+$04)
74C1 AND $BF
74C3 OR E
74C4 LD (IX+$04),A
This entry point is used by the routine at JetmanWalk.
JetmanThrust_16 74C7 CALL $726A
74CA CALL ColouriseSprite
74CD CALL ReadInputFire
74D0 BIT 4,A
74D2 CALL Z,Handler_LaserBeam
74D5 RET
JetmanThrust_17 74D6 SET 7,(IX+$04)
74DA JR JetmanThrust_16
JetmanThrust_18 74DC RES 7,(IX+$04)
74E0 LD A,(IX+$00)
74E3 AND $C0
74E5 OR $02
74E7 LD (IX+$00),A
74EA LD (IX+$05),$00
74EE LD (IX+$06),$00
74F2 JR JetmanThrust_16
JetmanThrust_19 74F4 RES 7,(IX+$04)
74F8 JR JetmanThrust_15
JetmanThrust_20 74FA SET 7,(IX+$04)
74FE LD A,(IX+$06)
7501 SRL A
7503 JR Z,JetmanThrust_15
7505 LD (IX+$06),A
7508 JR JetmanThrust_15
JetmanThrust_21 750A SET 7,(IX+$00)
750E BIT 7,(IX+$04)
7512 JP NZ,JetmanThrust_8
JetmanThrust_22 7515 LD A,($5DCA)
7518 SUB $08
751A ADD A,(IX+$06)
751D JP P,JetmanThrust_9
7520 LD (IX+$06),$00
7524 LD A,(IX+$04)
7527 XOR $80
7529 LD (IX+$04),A
752C JP JetmanThrust_13
JetmanThrust_23 752F AND A
7530 EX DE,HL
7531 SBC HL,DE
7533 JP JetmanThrust_5
JetmanThrust_24 7536 SET 6,(IX+$00)
753A BIT 6,(IX+$04)
753E JP NZ,JetmanThrust_1
JetmanThrust_25 7541 LD A,($5DCA)
7544 SUB $08
7546 ADD A,(IX+$05)
7549 JP P,JetmanThrust_2
754C LD (IX+$05),$00
7550 LD A,(IX+$04)
7553 XOR $40
7555 LD (IX+$04),A
7558 JP JetmanThrust_4
JetmanThrust_26 755B AND A
755C EX DE,HL
755D SBC HL,DE
755F JP JetmanThrust_14
JetmanThrust_27 7562 LD A,($5DCA)
7565 SUB $08
7567 ADD A,(IX+$05)
756A JP P,JetmanThrust_2
756D XOR A
756E JP JetmanThrust_2
Prev: 73B2 Up: Map Next: 7571