45323: Print Room Image
| Print_RoomImage |
45323 |
PUSH IX |
|
45325 |
POP HL |
|
45326 |
LD DE,512 |
|
45329 |
ADD HL,DE |
|
45330 |
LD DE,16384 |
|
45333 |
LD BC,512 |
| Print_RoomImage_0 |
45336 |
PUSH BC |
|
45337 |
LD B,8 |
|
45339 |
LD C,(IX+0) |
| Print_RoomImage_1 |
45342 |
SLA C |
|
45344 |
JR NC,Print_RoomImage_2 |
|
45346 |
LD A,(HL) |
|
45347 |
LD (DE),A |
|
45348 |
INC HL |
| Print_RoomImage_2 |
45349 |
INC DE |
|
45350 |
DJNZ Print_RoomImage_1 |
|
45352 |
INC IX |
|
45354 |
POP BC |
|
45355 |
DEC BC |
|
45356 |
LD A,B |
|
45357 |
OR C |
|
45358 |
JR NZ,Print_RoomImage_0 |
|
45360 |
PUSH HL |
|
45361 |
POP IX |
|
45363 |
LD HL,22528 |
| Print_RoomImage_3 |
45366 |
LD A,(IX+0) |
|
45369 |
LD B,(IX+1) |
|
45372 |
INC IX |
|
45374 |
INC IX |
| Print_RoomImage_4 |
45376 |
LD (HL),A |
|
45377 |
INC HL |
|
45378 |
DJNZ Print_RoomImage_4 |
|
45380 |
LD A,H |
|
45381 |
CP 90 |
|
45383 |
JR NZ,Print_RoomImage_3 |
|
45385 |
RET |
