25850: Routine at 64FA
25850 |
CALL 25837 |
25853 |
DEC E |
25854 |
JP Z,27251 |
25857 |
CALL 27202 |
25860 |
DEC E |
25861 |
JR NZ,25868 |
25863 |
LD A,C |
25864 |
AND A |
25865 |
JP NZ,26042 |
25868 |
BIT 3,(IX+4) |
25872 |
JP NZ,27450 |
25875 |
CALL 25677 |
25878 |
DEC E |
25879 |
JP Z,26524 |
25882 |
BIT 2,(IX+4) |
25886 |
JR Z,25898 |
25888 |
DEC (IX+5) |
25891 |
JP NZ,26015 |
25894 |
RES 2,(IX+4) |
25898 |
BIT 0,(IX+4) |
25902 |
JR NZ,25941 |
25904 |
LD A,(24089) |
25907 |
LD E,A |
25908 |
AND 31 |
25910 |
JR NZ,25941 |
25912 |
SET 0,(IX+4) |
25916 |
LD A,(24087) |
25919 |
AND 31 |
25921 |
ADD A,16 |
25923 |
LD A,(IX+6) |
25926 |
LD A,E |
25927 |
AND 128 |
25929 |
LD E,A |
25930 |
LD A,(IX+0) |
25933 |
AND 127 |
25935 |
OR E |
25936 |
LD (IX+0),A |
25939 |
JR 25868 |
25941 |
BIT 0,(IX+4) |
25945 |
JR Z,25991 |
25947 |
LD A,(IX+1) |
25950 |
CP 24 |
25952 |
JR C,25991 |
25954 |
CP 216 |
25956 |
JR NC,25991 |
25958 |
LD A,(IX+2) |
25961 |
BIT 7,(IX+0) |
25965 |
JR Z,26018 |
25967 |
ADD A,2 |
25969 |
CP 184 |
25971 |
JR C,25979 |
25973 |
RES 7,(IX+0) |
25977 |
JR 25982 |
25979 |
LD (IX+2),A |
25982 |
DEC (IX+6) |
25985 |
JR NZ,25991 |
25987 |
RES 0,(IX+4) |
25991 |
LD A,(IX+1) |
25994 |
BIT 6,(IX+0) |
25998 |
JR Z,26030 |
26000 |
ADD A,2 |
26002 |
CP 216 |
26004 |
JR C,26012 |
26006 |
RES 6,(IX+0) |
26010 |
JR 26015 |
26012 |
LD (IX+1),A |
26015 |
JP 28465 |
26018 |
SUB 2 |
26020 |
CP 40 |
26022 |
JR NC,25979 |
26024 |
SET 7,(IX+0) |
26028 |
JR 25979 |
26030 |
SUB 2 |
26032 |
CP 24 |
26034 |
JR NC,26012 |
26036 |
SET 6,(IX+0) |
26040 |
JR 26015 |
26042 |
AND 63 |
26044 |
CP 18 |
26046 |
JR Z,26070 |
26048 |
CP 8 |
26050 |
JP NZ,25868 |
26053 |
CALL 26059 |
26056 |
JP 25868 |
26059 |
SET 2,(IX+4) |
26063 |
LD (IX+5),16 |
26067 |
JP 25715 |
26070 |
LD BC,117 |
26073 |
CALL AddPointsToScore |
26076 |
LD A,(IX+0) |
26079 |
LD (IX+5),0 |
26083 |
LD (IX+6),A |
26086 |
LD (IX+0),20 |
26090 |
LD (IX+4),0 |
26094 |
JP 25733 |
26097 |
LD (IX+5),1 |
26101 |
JR 26083 |