Prev: D651 Up: Map Next: D686
D652: routine76
routine76 D652 LD HL,(object_table_entry_pointer)
D655 LD A,(CURSP)
D658 CP $22
D65A JR Z,routine76_0
D65C CP $23
D65E JR Z,routine76_0
D660 LD A,(HL)
D661 LD DE,$0321
D664 ADD HL,DE
D665 LD (HL),A
D666 LD A,(CURSP)
routine76_0 D669 LD HL,(object_table_entry_pointer)
D66C LD (HL),A
D66D LD DE,$00A1
D670 ADD HL,DE
D671 LD (HL),$01
D673 DEC DE
D674 ADD HL,DE
D675 LD (HL),$00
D677 ADD HL,DE
D678 LD A,(current_player)
D67B LD (HL),A
D67C LD A,(unknown02)
D67F OR A
D680 JR Z,routine76_1
D682 SET 4,(HL)
routine76_1 D684 HALT
D685 RET
Prev: D651 Up: Map Next: D686