54943: Routine at D69F
| 54943 |
LD HL,54614 |
| 54946 |
RES 0,(HL) |
| 54948 |
LD HL,54613 |
| 54951 |
SET 7,(HL) |
| 54953 |
CALL Colourise_PreviewGrid |
| 54956 |
LD HL,22565 |
| 54959 |
LD B,4 |
| 54961 |
PUSH BC |
| 54962 |
LD B,16 |
| 54964 |
LD (HL),0 |
| 54966 |
INC HL |
| 54967 |
DJNZ 54964 |
| 54969 |
LD DE,16 |
| 54972 |
ADD HL,DE |
| 54973 |
POP BC |
| 54974 |
DJNZ 54961 |
| 54976 |
LD BC,250 |
| 54979 |
DI |
| 54980 |
LD D,14 |
| 54982 |
LD A,5 |
| 54984 |
OUT (254),A |
| 54986 |
XOR 16 |
| 54988 |
LD E,C |
| 54989 |
DEC E |
| 54990 |
JR NZ,54989 |
| 54992 |
DEC D |
| 54993 |
JR NZ,54984 |
| 54995 |
DEC BC |
| 54996 |
LD A,B |
| 54997 |
OR C |
| 54998 |
JR NZ,54980 |
| 55000 |
EI |
| 55001 |
CALL 59338 |
| 55004 |
LD B,100 |
| 55006 |
HALT |
| 55007 |
DJNZ 55006 |
| 55009 |
DI |
| 55010 |
LD HL,54614 |
| 55013 |
LD (HL),128 |
| 55015 |
CALL 63626 |
| 55018 |
LD A,(54650) |
| 55021 |
INC A |
| 55022 |
LD D,A |
| 55023 |
LD E,125 |
| 55025 |
LD H,1 |
| 55027 |
LD A,(HL) |
| 55028 |
AND 24 |
| 55030 |
OR 5 |
| 55032 |
OUT (254),A |
| 55034 |
INC HL |
| 55035 |
LD B,D |
| 55036 |
DJNZ 55036 |
| 55038 |
DEC E |
| 55039 |
JP NZ,55027 |
| 55042 |
LD HL,54614 |
| 55045 |
BIT 4,(HL) |
| 55047 |
JR NZ,55075 |
| 55049 |
LD A,(54620) |
| 55052 |
AND A |
| 55053 |
INC A |
| 55054 |
DAA |
| 55055 |
LD (54620),A |
| 55058 |
JR NC,55069 |
| 55060 |
LD A,(54619) |
| 55063 |
CCF |
| 55064 |
INC A |
| 55065 |
DAA |
| 55066 |
LD (54619),A |
| 55069 |
CALL 59403 |
| 55072 |
JP 55015 |
| 55075 |
LD HL,54621 |
| 55078 |
LD A,(54674) |
| 55081 |
AND A |
| 55082 |
ADD A,(HL) |
| 55083 |
DAA |
| 55084 |
LD (54674),A |
| 55087 |
LD (HL),0 |
| 55089 |
DEC HL |
| 55090 |
LD A,(54673) |
| 55093 |
ADC A,(HL) |
| 55094 |
DAA |
| 55095 |
LD (54673),A |
| 55098 |
LD (HL),0 |
| 55100 |
DEC HL |
| 55101 |
LD A,(54672) |
| 55104 |
ADC A,(HL) |
| 55105 |
DAA |
| 55106 |
LD (54672),A |
| 55109 |
LD (HL),0 |
| 55111 |
LD HL,60679 |
| 55114 |
LD B,35 |
| 55116 |
CALL 60300 |
| 55119 |
CALL 59403 |
| 55122 |
CALL 59423 |
| 55125 |
LD A,(54665) |
| 55128 |
CP 0 |
| 55130 |
JR NZ,55157 |
| 55132 |
LD A,(54672) |
| 55135 |
AND 240 |
| 55137 |
RRCA |
| 55138 |
RRCA |
| 55139 |
RRCA |
| 55140 |
RRCA |
| 55141 |
CP 2 |
| 55143 |
JP M,55157 |
| 55146 |
LD A,1 |
| 55148 |
LD (54665),A |
| 55151 |
CALL 59338 |
| 55154 |
CALL 59365 |
| 55157 |
LD A,128 |
| 55159 |
LD (54612),A |
| 55162 |
CALL 59481 |
| 55165 |
CP 0 |
| 55167 |
JR Z,55162 |
| 55169 |
XOR A |
| 55170 |
LD (54612),A |
| 55173 |
CALL 60067 |
| 55176 |
RET |
