65060: Do some shading
DO_SHADE |
65060 |
CALL 65196 |
|
65063 |
RET NZ |
|
65064 |
PUSH BC |
|
65065 |
LD HL,65535 |
|
65068 |
LD (64216),HL |
DO_SHADE_0 |
65071 |
CALL 65196 |
|
65074 |
PUSH AF |
|
65075 |
CALL 65212 |
|
65078 |
POP AF |
|
65079 |
JR NZ,DO_SHADE_1 |
|
65081 |
CALL DO_SHADE_4 |
|
65084 |
INC B |
|
65085 |
JR DO_SHADE_0 |
DO_SHADE_1 |
65087 |
POP BC |
|
65088 |
PUSH BC |
|
65089 |
DEC B |
DO_SHADE_2 |
65090 |
CALL 65196 |
|
65093 |
PUSH AF |
|
65094 |
CALL 65212 |
|
65097 |
POP AF |
|
65098 |
JR NZ,DO_SHADE_3 |
|
65100 |
CALL DO_SHADE_4 |
|
65103 |
DEC B |
|
65104 |
JR DO_SHADE_2 |
DO_SHADE_3 |
65106 |
POP BC |
|
65107 |
LD BC,(64216) |
|
65111 |
LD A,B |
|
65112 |
AND C |
|
65113 |
CP 255 |
|
65115 |
RET Z |
|
65116 |
JR DO_SHADE |
DO_SHADE_4 |
65118 |
LD DE,(64216) |
|
65122 |
LD A,D |
|
65123 |
AND E |
|
65124 |
CP 255 |
|
65126 |
RET NZ |
|
65127 |
PUSH BC |
|
65128 |
DEC C |
|
65129 |
LD A,C |
|
65130 |
CP 255 |
|
65132 |
JR Z,DO_SHADE_8 |
|
65134 |
CP 0 |
|
65136 |
JR Z,DO_SHADE_9 |
DO_SHADE_5 |
65138 |
CALL 65196 |
|
65141 |
JR Z,DO_SHADE_7 |
DO_SHADE_6 |
65143 |
LD BC,65535 |
DO_SHADE_7 |
65146 |
LD (64216),BC |
|
65150 |
POP BC |
|
65151 |
RET |
DO_SHADE_8 |
65152 |
LD A,(65128) |
|
65155 |
CP 13 |
|
65157 |
JR Z,DO_SHADE_6 |
|
65159 |
JR DO_SHADE_5 |
DO_SHADE_9 |
65161 |
LD A,(65128) |
|
65164 |
CP 12 |
|
65166 |
JR Z,DO_SHADE_6 |
|
65168 |
JR DO_SHADE_5 |