44038: Routine at AC06
44038 |
LD A,(IY+5) |
44041 |
OR A |
44042 |
JR Z,44053 |
44044 |
CP 240 |
44046 |
JR Z,44053 |
44048 |
CALL Controls_ExitScreen |
44051 |
OR A |
44052 |
RET Z |
44053 |
LD A,(IY+15) |
44056 |
CALL 44137 |
44059 |
EX DE,HL |
44060 |
LD A,(DE) |
44061 |
CP 255 |
44063 |
RET Z |
44064 |
LD B,A |
44065 |
INC DE |
44066 |
LD A,(DE) |
44067 |
INC DE |
44068 |
INC DE |
44069 |
CALL 44127 |
44072 |
LD A,(HL) |
44073 |
SUB (IY+5) |
44076 |
SUB 8 |
44078 |
CP 240 |
44080 |
JR C,44060 |
44082 |
INC HL |
44083 |
LD A,(HL) |
44084 |
CP (IY+10) |
44087 |
JR NZ,44060 |
44089 |
DEC DE |
44090 |
LD (IY+15),B |
44093 |
LD A,(DE) |
44094 |
CALL 44127 |
44097 |
LD A,(HL) |
44098 |
OR A |
44099 |
JR NZ,44103 |
44101 |
LD A,2 |
44103 |
CP 240 |
44105 |
JR NZ,44109 |
44107 |
LD A,238 |
44109 |
LD (IY+5),A |
44112 |
INC HL |
44113 |
LD A,(HL) |
44114 |
LD (IY+10),A |
44117 |
CALL DrawRoom |
44120 |
CALL Controls_ExitScreen |
44123 |
OR A |
44124 |
JR NZ,44120 |
44126 |
RET |
44127 |
ADD A,A |
44128 |
LD HL,44816 |
44131 |
ADD A,L |
44132 |
JR NC,44135 |
44134 |
INC H |
44135 |
LD L,A |
44136 |
RET |