40744: Print Room Image
| Print_RoomImage |
40744 |
PUSH IX |
|
40746 |
POP HL |
|
40747 |
LD DE,512 |
|
40750 |
ADD HL,DE |
|
40751 |
LD DE,16384 |
|
40754 |
LD BC,512 |
| Print_RoomImage_0 |
40757 |
PUSH BC |
|
40758 |
LD B,8 |
|
40760 |
LD C,(IX+0) |
| Print_RoomImage_1 |
40763 |
SLA C |
|
40765 |
JR NC,Print_RoomImage_2 |
|
40767 |
LD A,(HL) |
|
40768 |
LD (DE),A |
|
40769 |
INC HL |
| Print_RoomImage_2 |
40770 |
INC DE |
|
40771 |
DJNZ Print_RoomImage_1 |
|
40773 |
INC IX |
|
40775 |
POP BC |
|
40776 |
DEC BC |
|
40777 |
LD A,B |
|
40778 |
OR C |
|
40779 |
JR NZ,Print_RoomImage_0 |
|
40781 |
PUSH HL |
|
40782 |
POP IX |
|
40784 |
LD HL,22528 |
| Print_RoomImage_3 |
40787 |
LD A,(IX+0) |
|
40790 |
LD B,(IX+1) |
|
40793 |
INC IX |
|
40795 |
INC IX |
| Print_RoomImage_4 |
40797 |
LD (HL),A |
|
40798 |
INC HL |
|
40799 |
DJNZ Print_RoomImage_4 |
|
40801 |
LD A,H |
|
40802 |
CP 90 |
|
40804 |
JR NZ,Print_RoomImage_3 |
|
40806 |
RET |
