Routines
Prev: 29618 Up: Map Next: 30065
29651: Jetman Fly
Used by the routine at GamePlayStarts.
JetmanThrust 29651 CALL StoreEntity
29654 CALL ReadInputLR
29657 BIT 0,A
29659 JP Z,JetmanThrust_0
29662 BIT 1,A
29664 JP Z,JetmanThrust_24
29667 LD A,(24012)
29670 AND 1
29672 JR Z,JetmanThrust_4
29674 JP JetmanThrust_27
JetmanThrust_0 29677 RES 6,(IX+0)
29681 BIT 6,(IX+4)
29685 JP NZ,JetmanThrust_25
JetmanThrust_1 29688 LD A,(24010)
29691 NEG
29693 ADD A,8
29695 ADD A,(IX+5)
29698 CP 64
29700 JR NC,JetmanThrust_3
JetmanThrust_2 29702 LD (IX+5),A
29705 JR JetmanThrust_4
JetmanThrust_3 29707 LD (IX+5),64
JetmanThrust_4 29711 LD H,0
29713 LD L,(IX+5)
29716 ADD HL,HL
29717 ADD HL,HL
29718 ADD HL,HL
29719 LD D,(IX+1)
29722 LD A,(24007)
29725 LD E,A
29726 BIT 6,(IX+4)
29730 JP NZ,JetmanThrust_23
29733 ADD HL,DE
JetmanThrust_5 29734 LD A,L
29735 LD (24007),A
29738 LD (IX+1),H
29741 LD A,(23795)
29744 BIT 1,A
29746 JP NZ,JetmanThrust_11
29749 LD B,2
29751 LD A,239
JetmanThrust_6 29753 OUT (253),A
29755 IN A,(254)
29757 AND 31
29759 CP 31
29761 JR NZ,JetmanThrust_10
29763 LD A,247
29765 DJNZ JetmanThrust_6 Decrease B by one, and loop back to JetmanThrust_6 until zero
JetmanThrust_7 29767 CALL ReadInputThrust
29770 BIT 3,A
29772 JP NZ,JetmanThrust_21
29775 RES 7,(IX+0)
29779 BIT 7,(IX+4)
29783 JP NZ,JetmanThrust_22
JetmanThrust_8 29786 LD A,(24010)
29789 NEG
29791 ADD A,8
29793 ADD A,(IX+6)
29796 CP 63
29798 JR NC,JetmanThrust_12
JetmanThrust_9 29800 LD (IX+6),A
29803 JR JetmanThrust_13
JetmanThrust_10 29805 LD (IX+6),0
29809 JR JetmanThrust_13
JetmanThrust_11 29811 CALL ReadKempstonJoystick
29814 BIT 2,A
29816 JP Z,JetmanThrust_10
29819 JR JetmanThrust_7
JetmanThrust_12 29821 LD (IX+6),63
JetmanThrust_13 29825 LD L,(IX+6)
29828 LD H,0
29830 ADD HL,HL
29831 ADD HL,HL
29832 ADD HL,HL
29833 LD D,(IX+2)
29836 LD A,(24008)
29839 LD E,A
29840 BIT 7,(IX+4)
29844 JP Z,JetmanThrust_26
29847 ADD HL,DE
JetmanThrust_14 29848 LD A,L
29849 LD (24008),A
29852 LD (IX+2),H
29855 LD A,H
29856 CP 192
29858 JR NC,JetmanThrust_19
29860 CP 42
29862 JR C,JetmanThrust_20
JetmanThrust_15 29864 CALL 30237
29867 BIT 2,E
29869 JR Z,JetmanThrust_16
29871 BIT 7,E
29873 JP NZ,JetmanThrust_18
29876 BIT 4,E
29878 JR NZ,JetmanThrust_17
29880 LD A,E
29881 XOR 64
29883 AND 64
29885 LD E,A
29886 LD A,(IX+4)
29889 AND 191
29891 OR E
29892 LD (IX+4),A
This entry point is used by the routine at JetmanWalk.
JetmanThrust_16 29895 CALL 29290
29898 CALL ColouriseSprite
29901 CALL ReadInputFire
29904 BIT 4,A
29906 CALL Z,Handler_LaserBeam
29909 RET
JetmanThrust_17 29910 SET 7,(IX+4)
29914 JR JetmanThrust_16
JetmanThrust_18 29916 RES 7,(IX+4)
29920 LD A,(IX+0)
29923 AND 192
29925 OR 2
29927 LD (IX+0),A
29930 LD (IX+5),0
29934 LD (IX+6),0
29938 JR JetmanThrust_16
JetmanThrust_19 29940 RES 7,(IX+4)
29944 JR JetmanThrust_15
JetmanThrust_20 29946 SET 7,(IX+4)
29950 LD A,(IX+6)
29953 SRL A
29955 JR Z,JetmanThrust_15
29957 LD (IX+6),A
29960 JR JetmanThrust_15
JetmanThrust_21 29962 SET 7,(IX+0)
29966 BIT 7,(IX+4)
29970 JP NZ,JetmanThrust_8
JetmanThrust_22 29973 LD A,(24010)
29976 SUB 8
29978 ADD A,(IX+6)
29981 JP P,JetmanThrust_9
29984 LD (IX+6),0
29988 LD A,(IX+4)
29991 XOR 128
29993 LD (IX+4),A
29996 JP JetmanThrust_13
JetmanThrust_23 29999 AND A
30000 EX DE,HL
30001 SBC HL,DE
30003 JP JetmanThrust_5
JetmanThrust_24 30006 SET 6,(IX+0)
30010 BIT 6,(IX+4)
30014 JP NZ,JetmanThrust_1
JetmanThrust_25 30017 LD A,(24010)
30020 SUB 8
30022 ADD A,(IX+5)
30025 JP P,JetmanThrust_2
30028 LD (IX+5),0
30032 LD A,(IX+4)
30035 XOR 64
30037 LD (IX+4),A
30040 JP JetmanThrust_4
JetmanThrust_26 30043 AND A
30044 EX DE,HL
30045 SBC HL,DE
30047 JP JetmanThrust_14
JetmanThrust_27 30050 LD A,(24010)
30053 SUB 8
30055 ADD A,(IX+5)
30058 JP P,JetmanThrust_2
30061 XOR A
30062 JP JetmanThrust_2
Prev: 29618 Up: Map Next: 30065