Routines
Prev: D214 Up: Map Next: D67D
D5AC: Handler: Samoa
Handler_Samoa D5AC LD A,$02
D5AE LD ($99AA),A
D5B1 LD A,($7238)
D5B4 RLA
D5B5 RLA
D5B6 RLA
D5B7 RLA
D5B8 AND $F0
D5BA LD HL,$EFFF
D5BD OR (HL)
D5BE LD (HL),A
D5BF CALL Handler_Samoa_3
Handler_Samoa_0 D5C2 LD A,($72FF)
D5C5 CP $00
D5C7 JR NZ,Handler_Samoa_1
D5C9 LD HL,$7300
D5CC LD ($724A),HL
D5CF LD ($7252),HL
D5D2 LD A,($7254)
D5D5 AND $38
D5D7 CP $20
D5D9 RET Z
D5DA LD HL,$72FF
D5DD LD (HL),$01
D5DF RET
Handler_Samoa_1 D5E0 LD A,($7240)
D5E3 CP $00
D5E5 RET Z
D5E6 LD A,($7206)
D5E9 BIT 6,A
D5EB LD DE,$FF80
D5EE JR Z,Handler_Samoa_2
D5F0 RRCA
D5F1 RRCA
D5F2 AND $07
D5F4 LD E,A
D5F5 LD D,$00
D5F7 LD HL,$D675
D5FA ADD HL,DE
D5FB LD E,(HL)
D5FC INC HL
D5FD LD D,(HL)
Handler_Samoa_2 D5FE LD HL,($7204)
D601 ADD HL,DE
D602 LD DE,($7244)
D606 AND A
D607 SBC HL,DE
D609 RET NZ
D60A LD A,$32
D60C LD ($7238),A
D60F LD HL,$7200
D612 SET 4,(HL)
D614 RET
Handler_Samoa_3 D615 CALL $980E
D618 CALL $98AB
D61B LD B,E
D61C LD A,$00
D61E LD ($72FF),A
D621 LD DE,($7204)
D625 AND A
D626 SBC HL,DE
D628 INC H
D629 LD A,C
D62A OR $C0
D62C LD C,A
D62D LD E,B
D62E LD A,$01
D630 CP H
D631 JR C,Handler_Samoa_4
D633 LD A,L
D634 ADD A,$08
D636 AND $3F
D638 CP $10
D63A JR NC,Handler_Samoa_4
D63C LD B,$78
D63E CALL $98F2
D641 JP Handler_Samoa_0
Handler_Samoa_4 D644 LD A,$01
D646 LD ($7247),A
D649 RET
D64A LD E,D
D64B SUB $01
D64D LD (BC),A
D64E LD L,D
D64F SUB $00
D651 NOP
D652 NOP
D653 NOP
D654 NOP
D655 NOP
D656 NOP
D657 NOP
D658 NOP
D659 NOP
D65A NOP
D65B NOP
D65C EX AF,AF'
D65D INC A
D65E LD A,B
D65F LD A,B
D660 JR NC,Handler_Samoa_5
Handler_Samoa_5 D662 NOP
D663 NOP
D664 NOP
D665 NOP
D666 NOP
D667 NOP
D668 NOP
D669 NOP
D66A RLCA
D66B RLCA
D66C DEFB $5A,$D6,$01,$01,$74,$D6,$00,$00
D674 DEFB $11,$C2,$FF,$00,$00,$BE,$FF,$00
D67C DEFB $00
Prev: D214 Up: Map Next: D67D