Routines
Prev: 6F54 Up: Map Next: 70E4
6F90: Routine at 6F90
Used by the routine at Game_Update.
_6f90_ 6F90 LD HL,(Rocket1_Offset)
6F93 LD A,H
6F94 OR L
6F95 JR NZ,_6f90__2
6F97 LD BC,(Item_ShipY)
6F9B LD HL,(Item_ShipPosOffset)
6F9E DEC B
6F9F DEC HL
6FA0 LD DE,BgMap_Start0
6FA3 ADD HL,DE
6FA4 LD DE,$0021
_6f90__0 6FA7 INC B
6FA8 LD A,B
6FA9 CP $20
6FAB JR Z,_6f90__1
6FAD INC C
6FAE LD A,C
6FAF CP $15
6FB1 JR Z,_6f90__1
6FB3 ADD HL,DE
6FB4 LD A,(HL)
6FB5 CP $96 Rocket.
6FB7 JR NZ,_6f90__0
6FB9 DEC DE
6FBA ADD HL,DE
6FBB LD A,(HL)
6FBC CP $91 Solid rock.
6FBE JR NZ,_6f90__1
6FC0 LD HL,_7908
6FC3 LD (HL),B
6FC4 DEC HL
6FC5 LD (HL),C
6FC6 LD HL,_7944
6FC9 LD (HL),B
6FCA DEC HL
6FCB DEC C
6FCC LD (HL),C
6FCD DEC C
6FCE LD H,$00
6FD0 LD L,C
6FD1 ADD HL,HL
6FD2 ADD HL,HL
6FD3 ADD HL,HL
6FD4 ADD HL,HL
6FD5 ADD HL,HL
6FD6 LD C,B
6FD7 LD B,$00
6FD9 ADD HL,BC
6FDA LD (Rocket1_Offset),HL
6FDD LD BC,$0021
6FE0 ADD HL,BC
6FE1 LD (_7905),HL
6FE4 EX DE,HL
6FE5 LD HL,BGMap_StrAddr
6FE8 ADD HL,DE
6FE9 LD (HL),$20
6FEB LD HL,_7977
6FEE ADD HL,DE
6FEF LD (HL),$00
6FF1 JR _6f90__3
_6f90__1 6FF3 JR _6f90__5
_6f90__2 6FF5 LD HL,_7944
6FF8 DEC (HL)
6FF9 JR Z,_6f90__4
6FFB DEC HL
6FFC DEC (HL)
6FFD JR Z,_6f90__4
6FFF DEC HL
7000 LD D,(HL)
7001 DEC HL
7002 LD E,(HL)
7003 LD HL,$FFDF
7006 ADD HL,DE
7007 LD (Rocket1_Offset),HL
700A LD DE,BgMap_Start0
700D ADD HL,DE
700E LD A,(HL)
700F CP $95 Ceiling slope left.
7011 JR Z,_6f90__4
7013 CP $91 Solid rock.
7015 JR Z,_6f90__4
7017 CP $93 Ceiling slope right.
7019 JR Z,_6f90__4
_6f90__3 701B LD DE,(Rocket1_Offset)
701F LD HL,BgMap_Start0
7022 ADD HL,DE
7023 LD A,(Item_Rocket1_Tile)
7026 LD (HL),A
7027 LD HL,Bg_Attr_From
702A ADD HL,DE
702B LD A,(Item_Rocket1_Colour)
702E LD (HL),A
702F JR _6f90__5
_6f90__4 7031 LD HL,$0000
7034 LD (Rocket1_Offset),HL
_6f90__5 7037 LD HL,(Rocket2_Offset)
703A LD A,H
703B OR L
703C JR NZ,_6f90__8
703E LD BC,(Item_ShipY)
7042 LD HL,(Item_ShipPosOffset)
7045 DEC B
7046 DEC HL
7047 LD DE,BgMap_Start0
704A ADD HL,DE
704B LD DE,$0021
_6f90__6 704E INC B
704F LD A,B
7050 CP $20
7052 JR Z,_6f90__7
7054 INC C
7055 LD A,C
7056 CP $15
7058 JR Z,_6f90__7
705A ADD HL,DE
705B LD A,(HL)
705C CP $96
705E JR NZ,_6f90__6
7060 DEC DE
7061 ADD HL,DE
7062 LD A,(HL)
7063 CP $91
7065 JR NZ,_6f90__7
7067 LD HL,_790c
706A LD (HL),B
706B DEC HL
706C LD (HL),C
706D LD HL,_7948
7070 LD (HL),B
7071 DEC HL
7072 DEC C
7073 LD (HL),C
7074 DEC C
7075 LD H,$00
7077 LD L,C
7078 ADD HL,HL
7079 ADD HL,HL
707A ADD HL,HL
707B ADD HL,HL
707C ADD HL,HL
707D LD C,B
707E LD B,$00
7080 ADD HL,BC
7081 LD (Rocket2_Offset),HL
7084 LD BC,$0021
7087 ADD HL,BC
7088 LD (_7909),HL
708B EX DE,HL
708C LD HL,BGMap_StrAddr
708F ADD HL,DE
7090 LD (HL),$20
7092 LD HL,_7977
7095 ADD HL,DE
7096 LD (HL),$00
7098 JR _6f90__9
_6f90__7 709A JR _6f90__11
_6f90__8 709C LD HL,_7948
709F DEC (HL)
70A0 JR Z,_6f90__10
70A2 DEC HL
70A3 DEC (HL)
70A4 JR Z,_6f90__10
70A6 DEC HL
70A7 LD D,(HL)
70A8 DEC HL
70A9 LD E,(HL)
70AA LD HL,$FFDF
70AD ADD HL,DE
70AE LD (Rocket2_Offset),HL
70B1 LD DE,BgMap_Start0
70B4 ADD HL,DE
70B5 LD A,(HL)
70B6 CP $95
70B8 JR Z,_6f90__10
70BA CP $91
70BC JR Z,_6f90__10
70BE CP $93
70C0 JR Z,_6f90__10
_6f90__9 70C2 LD DE,(Rocket2_Offset) Place rocket 2 onto map.
70C6 LD HL,BgMap_Start0
70C9 ADD HL,DE
70CA LD A,(Item_Rocket2_Tile)
70CD LD (HL),A
70CE LD HL,Bg_Attr_From
70D1 ADD HL,DE
70D2 LD A,(Item_Rocket2_Colour)
70D5 LD (HL),A
70D6 JR _6f90__11
_6f90__10 70D8 LD HL,$0000 Clear rocket data.
70DB LD (Rocket2_Offset),HL
_6f90__11 70DE RET
70DF NOP
70E0 NOP
70E1 NOP
70E2 NOP
70E3 NOP
Prev: 6F54 Up: Map Next: 70E4