28829: Routine at 709D
| 28829 |
LD C,(HL) |
| 28830 |
BIT 7,C |
| 28832 |
RET NZ |
| 28833 |
INC L |
| 28834 |
DEC (HL) |
| 28835 |
RET NZ |
| 28836 |
LD A,C |
| 28837 |
AND 15 |
| 28839 |
LD (HL),A |
| 28840 |
INC L |
| 28841 |
DEC (HL) |
| 28842 |
JR NZ,28846 |
| 28844 |
LD (HL),14 |
| 28846 |
LD A,C |
| 28847 |
RLCA |
| 28848 |
RLCA |
| 28849 |
SBC A,A |
| 28850 |
BIT 5,C |
| 28852 |
JR Z,28855 |
| 28854 |
INC A |
| 28855 |
INC L |
| 28856 |
ADD A,(HL) |
| 28857 |
LD B,A |
| 28858 |
CP 8 |
| 28860 |
JR NC,28927 |
| 28862 |
INC L |
| 28863 |
LD E,(HL) |
| 28864 |
LD D,187 |
| 28866 |
LD A,(DE) |
| 28867 |
ADD A,B |
| 28868 |
LD E,A |
| 28869 |
LD D,195 |
| 28871 |
LD A,(DE) |
| 28872 |
BIT 5,A |
| 28874 |
JR Z,28907 |
| 28876 |
INC L |
| 28877 |
LD A,(HL) |
| 28878 |
XOR 128 |
| 28880 |
LD (HL),A |
| 28881 |
DEC L |
| 28882 |
LD E,(HL) |
| 28883 |
INC E |
| 28884 |
LD D,187 |
| 28886 |
LD A,(DE) |
| 28887 |
AND 63 |
| 28889 |
LD E,A |
| 28890 |
ADD A,A |
| 28891 |
ADD A,A |
| 28892 |
INC A |
| 28893 |
LD (HL),A |
| 28894 |
LD A,96 |
| 28896 |
XOR C |
| 28897 |
LD C,A |
| 28898 |
DEC L |
| 28899 |
DEC L |
| 28900 |
DEC L |
| 28901 |
DEC L |
| 28902 |
LD (HL),C |
| 28903 |
INC L |
| 28904 |
INC L |
| 28905 |
JR 28846 |
| 28907 |
DEC L |
| 28908 |
LD (HL),B |
| 28909 |
INC L |
| 28910 |
INC L |
| 28911 |
RLCA |
| 28912 |
JR NC,28915 |
| 28914 |
DEC (HL) |
| 28915 |
RLCA |
| 28916 |
JR NC,28919 |
| 28918 |
INC (HL) |
| 28919 |
RES 4,(HL) |
| 28921 |
RLCA |
| 28922 |
AND 16 |
| 28924 |
OR (HL) |
| 28925 |
LD (HL),A |
| 28926 |
RET |
| 28927 |
INC L |
| 28928 |
INC L |
| 28929 |
INC L |
| 28930 |
LD A,(HL) |
| 28931 |
DEC L |
| 28932 |
AND 31 |
| 28934 |
CP 30 |
| 28936 |
JR NZ,28942 |
| 28938 |
BIT 7,B |
| 28940 |
JR Z,28877 |
| 28942 |
CP 8 |
| 28944 |
JR NZ,28950 |
| 28946 |
BIT 7,B |
| 28948 |
JR NZ,28877 |
| 28950 |
LD E,1 |
| 28952 |
INC L |
| 28953 |
INC (HL) |
| 28954 |
LD A,B |
| 28955 |
RLCA |
| 28956 |
JR NC,28962 |
| 28958 |
DEC (HL) |
| 28959 |
DEC (HL) |
| 28960 |
LD E,4 |
| 28962 |
DEC L |
| 28963 |
DEC L |
| 28964 |
DEC L |
| 28965 |
AND 7 |
| 28967 |
LD (HL),A |
| 28968 |
LD B,A |
| 28969 |
INC L |
| 28970 |
PUSH HL |
| 28971 |
LD C,(HL) |
| 28972 |
INC C |
| 28973 |
LD B,187 |
| 28975 |
LD A,(BC) |
| 28976 |
INC L |
| 28977 |
INC L |
| 28978 |
INC L |
| 28979 |
RLCA |
| 28980 |
JR C,28987 |
| 28982 |
INC E |
| 28983 |
INC (HL) |
| 28984 |
RLCA |
| 28985 |
JR C,28989 |
| 28987 |
DEC E |
| 28988 |
DEC (HL) |
| 28989 |
LD A,E |
| 28990 |
ADD A,A |
| 28991 |
ADD A,E |
| 28992 |
LD E,A |
| 28993 |
LD A,(HL) |
| 28994 |
DEC L |
| 28995 |
LD L,(HL) |
| 28996 |
LD H,A |
| 28997 |
CALL GetRandomNumber |
| 29000 |
AND 12 |
| 29002 |
JR Z,29006 |
| 29004 |
XOR 12 |
| 29006 |
CALL 27034 |
| 29009 |
POP DE |
| 29010 |
EX DE,HL |
| 29011 |
INC E |
| 29012 |
LD (HL),E |
| 29013 |
LD A,(DE) |
| 29014 |
DEC L |
| 29015 |
ADD A,(HL) |
| 29016 |
LD E,A |
| 29017 |
LD D,195 |
| 29019 |
LD A,(DE) |
| 29020 |
JR 28909 |
| 29022 |
NOP |
| 29023 |
NOP |
| 29024 |
NOP |
