Prev: 73E6 Up: Map Next: 7508
749A: Routine at 749A
Used by the routines at Start and Game_Update.
_749a 749A LD HL,(Item_Copies_ShipOffset) Place a 'blank' at the ships postion.
749D LD DE,BgMap_Start0
74A0 ADD HL,DE
74A1 LD A,$94
74A3 LD (HL),A
74A4 LD HL,_7f0b
74A7 LD A,(Item_ShipX)
74AA LD C,A
74AB LD B,$00
74AD ADD HL,BC
74AE LD C,$16
74B0 LD DE,$FFE0
_749a_0 74B3 ADD HL,DE
74B4 DEC C
74B5 LD A,(HL)
74B6 CP $20
74B8 JR NZ,_749a_0
74BA LD A,(Land_Gap)
74BD SRA A
74BF LD B,A
74C0 LD A,C
74C1 SUB B
74C2 NOP
74C3 LD (Item_ShipY),A
74C6 LD H,$00
74C8 LD L,A
74C9 DEC HL
74CA ADD HL,HL
74CB ADD HL,HL
74CC ADD HL,HL
74CD ADD HL,HL
74CE ADD HL,HL
74CF LD A,(Item_ShipX)
74D2 LD C,A
74D3 LD B,$00
74D5 ADD HL,BC
74D6 LD (Item_ShipPosOffset),HL
74D9 LD A,$9C
74DB LD (Item_ShipTile),A
74DE LD HL,(Item_ShipPosOffset)
74E1 LD DE,Bg_Attr_From
74E4 ADD HL,DE
74E5 LD A,$45
74E7 LD (HL),A
74E8 LD BC,$02C0
74EB LD DE,$5800
74EE LD HL,Bg_Attr
74F1 LDIR
74F3 LD BC,$0400
74F6 CALL Pause
74F9 CALL Items_Draw
74FC LD BC,$0800
74FF CALL Pause
7502 RET
7503 NOP
7504 NOP
7505 NOP
7506 NOP
7507 NOP
Prev: 73E6 Up: Map Next: 7508