25950: Routine at 655E
25950 |
LD A,(23447) |
25953 |
LD B,A |
25954 |
LD A,22 |
25956 |
SUB B |
25957 |
LD B,A |
25958 |
LD A,(25948) |
25961 |
CP B |
25962 |
JR C,25986 |
25964 |
LD HL,(25946) |
25967 |
LD (23672),HL |
25970 |
LD A,(23556) |
25973 |
CP 255 |
25975 |
JR NZ,25986 |
25977 |
CALL 82 |
25980 |
LD A,(23673) |
25983 |
OR A |
25984 |
JR Z,25970 |
25986 |
LD HL,25948 |
25989 |
INC (HL) |
25990 |
LD A,(23447) |
25993 |
CALL 24342 |
25996 |
PUSH DE |
25997 |
INC A |
25998 |
CALL 24342 |
26001 |
EX DE,HL |
26002 |
POP DE |
26003 |
LD B,8 |
26005 |
PUSH HL |
26006 |
PUSH BC |
26007 |
PUSH DE |
26008 |
LD BC,32 |
26011 |
LDIR |
26013 |
POP DE |
26014 |
POP BC |
26015 |
POP HL |
26016 |
INC H |
26017 |
INC D |
26018 |
DJNZ 26005 |
26020 |
CP 19 |
26022 |
JR Z,26030 |
26024 |
CP 23 |
26026 |
JR NZ,25993 |
26028 |
JR 26046 |
26030 |
PUSH AF |
26031 |
LD A,(24966) |
26034 |
OR A |
26035 |
JR Z,26043 |
26037 |
POP AF |
26038 |
LD HL,20576 |
26041 |
JR 26049 |
26043 |
POP AF |
26044 |
JR 25993 |
26046 |
LD HL,20704 |
26049 |
PUSH HL |
26050 |
POP DE |
26051 |
INC DE |
26052 |
LD B,8 |
26054 |
PUSH DE |
26055 |
PUSH HL |
26056 |
PUSH BC |
26057 |
LD (HL),0 |
26059 |
LD BC,31 |
26062 |
LDIR |
26064 |
POP BC |
26065 |
POP HL |
26066 |
POP DE |
26067 |
INC H |
26068 |
INC D |
26069 |
DJNZ 26054 |
26071 |
LD A,(24966) |
26074 |
OR A |
26075 |
JR Z,26082 |
26077 |
LD HL,20576 |
26080 |
JR 26085 |
26082 |
LD HL,20704 |
26085 |
LD (23431),HL |
26088 |
XOR A |
26089 |
LD (23434),A |
26092 |
RET |
26093 |
LD A,(26326) |
26096 |
OR A |
26097 |
JR Z,26101 |
26099 |
LD A,12 |
26101 |
DEC A |
26102 |
INC A |
26103 |
LD HL,23447 |
26106 |
LD B,(HL) |
26107 |
CP B |
26108 |
RET Z |
26109 |
CALL 24342 |
26112 |
PUSH DE |
26113 |
POP HL |
26114 |
INC DE |
26115 |
LD B,8 |
26117 |
PUSH HL |
26118 |
PUSH DE |
26119 |
PUSH BC |
26120 |
LD BC,31 |
26123 |
LD (HL),0 |
26125 |
LDIR |
26127 |
POP BC |
26128 |
POP DE |
26129 |
POP HL |
26130 |
INC D |
26131 |
INC H |
26132 |
DJNZ 26117 |
26134 |
JR 26102 |