64FA: Routine at 64FA
64FA |
CALL $64ED |
64FD |
DEC E |
64FE |
JP Z,$6A73 |
6501 |
CALL $6A42 |
6504 |
DEC E |
6505 |
JR NZ,$650C |
6507 |
LD A,C |
6508 |
AND A |
6509 |
JP NZ,$65BA |
650C |
BIT 3,(IX+$04) |
6510 |
JP NZ,$6B3A |
6513 |
CALL $644D |
6516 |
DEC E |
6517 |
JP Z,$679C |
651A |
BIT 2,(IX+$04) |
651E |
JR Z,$652A |
6520 |
DEC (IX+$05) |
6523 |
JP NZ,$659F |
6526 |
RES 2,(IX+$04) |
652A |
BIT 0,(IX+$04) |
652E |
JR NZ,$6555 |
6530 |
LD A,($5E19) |
6533 |
LD E,A |
6534 |
AND $1F |
6536 |
JR NZ,$6555 |
6538 |
SET 0,(IX+$04) |
653C |
LD A,($5E17) |
653F |
AND $1F |
6541 |
ADD A,$10 |
6543 |
LD A,(IX+$06) |
6546 |
LD A,E |
6547 |
AND $80 |
6549 |
LD E,A |
654A |
LD A,(IX+$00) |
654D |
AND $7F |
654F |
OR E |
6550 |
LD (IX+$00),A |
6553 |
JR $650C |
6555 |
BIT 0,(IX+$04) |
6559 |
JR Z,$6587 |
655B |
LD A,(IX+$01) |
655E |
CP $18 |
6560 |
JR C,$6587 |
6562 |
CP $D8 |
6564 |
JR NC,$6587 |
6566 |
LD A,(IX+$02) |
6569 |
BIT 7,(IX+$00) |
656D |
JR Z,$65A2 |
656F |
ADD A,$02 |
6571 |
CP $B8 |
6573 |
JR C,$657B |
6575 |
RES 7,(IX+$00) |
6579 |
JR $657E |
657B |
LD (IX+$02),A |
657E |
DEC (IX+$06) |
6581 |
JR NZ,$6587 |
6583 |
RES 0,(IX+$04) |
6587 |
LD A,(IX+$01) |
658A |
BIT 6,(IX+$00) |
658E |
JR Z,$65AE |
6590 |
ADD A,$02 |
6592 |
CP $D8 |
6594 |
JR C,$659C |
6596 |
RES 6,(IX+$00) |
659A |
JR $659F |
659C |
LD (IX+$01),A |
659F |
JP $6F31 |
65A2 |
SUB $02 |
65A4 |
CP $28 |
65A6 |
JR NC,$657B |
65A8 |
SET 7,(IX+$00) |
65AC |
JR $657B |
65AE |
SUB $02 |
65B0 |
CP $18 |
65B2 |
JR NC,$659C |
65B4 |
SET 6,(IX+$00) |
65B8 |
JR $659F |
65BA |
AND $3F |
65BC |
CP $12 |
65BE |
JR Z,$65D6 |
65C0 |
CP $08 |
65C2 |
JP NZ,$650C |
65C5 |
CALL $65CB |
65C8 |
JP $650C |
65CB |
SET 2,(IX+$04) |
65CF |
LD (IX+$05),$10 |
65D3 |
JP $6473 |
65D6 |
LD BC,$0075 |
65D9 |
CALL AddPointsToScore |
65DC |
LD A,(IX+$00) |
65DF |
LD (IX+$05),$00 |
65E3 |
LD (IX+$06),A |
65E6 |
LD (IX+$00),$14 |
65EA |
LD (IX+$04),$00 |
65EE |
JP $6485 |
65F1 |
LD (IX+$05),$01 |
65F5 |
JR $65E3 |