48119: Draw Room
| DrawRoom |
48119 |
LD E,(HL) |
|
48120 |
INC HL |
|
48121 |
LD D,(HL) |
|
48122 |
LD A,E |
|
48123 |
OR D |
|
48124 |
RET Z |
|
48125 |
INC HL |
|
48126 |
LD C,(HL) |
|
48127 |
INC HL |
|
48128 |
LD B,(HL) |
|
48129 |
INC HL |
|
48130 |
PUSH HL |
|
48131 |
LD H,B |
|
48132 |
LD L,C |
|
48133 |
CALL DrawRoom_Process |
|
48136 |
POP HL |
|
48137 |
JR DrawRoom |
| DrawRoom_Process |
48139 |
PUSH HL |
|
48140 |
CALL ScreenAddress |
|
48143 |
LD A,(DE) |
|
48144 |
LD C,A |
|
48145 |
INC DE |
|
48146 |
LD A,(DE) |
|
48147 |
LD B,A |
|
48148 |
INC DE |
| DrawRoom_Row_Loop |
48149 |
PUSH BC |
| DrawRoom_Write_Row |
48150 |
LD A,(DE) |
|
48151 |
CPL |
|
48152 |
LD (HL),A |
|
48153 |
INC L |
|
48154 |
INC DE |
|
48155 |
DJNZ DrawRoom_Write_Row |
|
48157 |
POP BC |
|
48158 |
LD A,L |
|
48159 |
SUB B |
|
48160 |
LD L,A |
|
48161 |
CALL ScreenPos1PixelBelow |
|
48164 |
DEC C |
|
48165 |
JR NZ,DrawRoom_Row_Loop |
|
48167 |
POP HL |
|
48168 |
CALL AttributeAddress |
|
48171 |
LD A,(DE) |
|
48172 |
INC DE |
|
48173 |
LD C,A |
|
48174 |
LD A,(DE) |
|
48175 |
INC DE |
|
48176 |
LD B,A |
|
48177 |
LD A,(38578) |
|
48180 |
AND A |
|
48181 |
JR NZ,DrawRoom_2 |
| DrawRoom_0 |
48183 |
PUSH BC |
|
48184 |
PUSH HL |
| DrawRoom_1 |
48185 |
LD A,(DE) |
|
48186 |
INC DE |
|
48187 |
LD (HL),A |
|
48188 |
INC L |
|
48189 |
DJNZ DrawRoom_1 |
|
48191 |
POP HL |
|
48192 |
LD BC,32 |
|
48195 |
ADD HL,BC |
|
48196 |
POP BC |
|
48197 |
DEC C |
|
48198 |
JR NZ,DrawRoom_0 |
|
48200 |
RET |
| DrawRoom_2 |
48201 |
PUSH BC |
|
48202 |
XOR A |
|
48203 |
LD (38578),A |
| DrawRoom_3 |
48206 |
ADD A,C |
|
48207 |
DJNZ DrawRoom_3 |
|
48209 |
LD C,A |
|
48210 |
LD B,0 |
|
48212 |
EX DE,HL |
|
48213 |
ADD HL,BC |
|
48214 |
EX DE,HL |
|
48215 |
POP BC |
|
48216 |
JR DrawRoom_0 |
|
48218 |
LD HL,0 |
|
48221 |
LD B,8 |
| DrawRoom_4 |
48223 |
ADD HL,HL |
|
48224 |
RLCA |
|
48225 |
JR NC,DrawRoom_5 |
|
48227 |
ADD HL,DE |
| DrawRoom_5 |
48228 |
DJNZ DrawRoom_4 |
|
48230 |
RET |