55945: Routine at 55945
| L55945 |
55945 |
LD A,(59644) |
|
55948 |
CP 255 |
|
55950 |
RET Z |
|
55951 |
LD H,A |
|
55952 |
LD L,0 |
|
55954 |
SRL H |
|
55956 |
RR L |
|
55958 |
SLA A |
|
55960 |
SLA A |
|
55962 |
SLA A |
|
55964 |
LD C,A |
|
55965 |
LD B,0 |
|
55967 |
AND A |
|
55968 |
SBC HL,BC |
|
55970 |
LD A,(59674) |
|
55973 |
AND 3 |
|
55975 |
LD B,A |
|
55976 |
LD C,0 |
|
55978 |
SRL B |
|
55980 |
RR C |
|
55982 |
SRL B |
|
55984 |
RR C |
|
55986 |
SRL B |
|
55988 |
RR C |
|
55990 |
ADD HL,BC |
|
55991 |
SLA A |
|
55993 |
LD C,A |
|
55994 |
LD B,0 |
|
55996 |
AND A |
|
55997 |
SBC HL,BC |
|
55999 |
LD BC,51734 |
|
56002 |
ADD HL,BC |
|
56003 |
EX DE,HL |
|
56004 |
LD BC,(59642) |
| L55945_0 |
56008 |
SRL B |
|
56010 |
RR C |
|
56012 |
PUSH AF |
|
56013 |
LD HL,60387 |
|
56016 |
ADD HL,BC |
|
56017 |
LD BC,31 |
|
56020 |
POP AF |
|
56021 |
LD A,15 |
|
56023 |
JP NC,L55945_2 |
| L55945_1 |
56026 |
PUSH AF |
|
56027 |
EX DE,HL |
|
56028 |
LD A,(HL) |
|
56029 |
INC HL |
|
56030 |
LD B,(HL) |
|
56031 |
INC HL |
|
56032 |
EX DE,HL |
|
56033 |
LD C,0 |
|
56035 |
SRL A |
|
56037 |
RR B |
|
56039 |
RR C |
|
56041 |
SRL A |
|
56043 |
RR B |
|
56045 |
RR C |
|
56047 |
SRL A |
|
56049 |
RR B |
|
56051 |
RR C |
|
56053 |
SRL A |
|
56055 |
RR B |
|
56057 |
RR C |
|
56059 |
XOR (HL) |
|
56060 |
LD (HL),A |
|
56061 |
INC HL |
|
56062 |
LD A,(HL) |
|
56063 |
XOR B |
|
56064 |
LD (HL),A |
|
56065 |
INC HL |
|
56066 |
LD A,(HL) |
|
56067 |
XOR C |
|
56068 |
LD (HL),A |
|
56069 |
LD BC,30 |
|
56072 |
ADD HL,BC |
|
56073 |
POP AF |
|
56074 |
DEC A |
|
56075 |
JP NZ,L55945_1 |
|
56078 |
RET |
| L55945_2 |
56079 |
PUSH AF |
|
56080 |
LD A,(DE) |
|
56081 |
XOR (HL) |
|
56082 |
LD (HL),A |
|
56083 |
INC HL |
|
56084 |
INC DE |
|
56085 |
LD A,(DE) |
|
56086 |
XOR (HL) |
|
56087 |
LD (HL),A |
|
56088 |
INC DE |
|
56089 |
ADD HL,BC |
|
56090 |
POP AF |
|
56091 |
DEC A |
|
56092 |
JP NZ,L55945_2 |
|
56095 |
RET |