8FA9: Routine at 8FA9
| 8FA9 |
PUSH AF |
| 8FAA |
LD HL,_5b00_buffer |
| 8FAD |
LD DE,$5B01 |
| 8FB0 |
LD (HL),$FF |
| 8FB2 |
LD BC,$00BF |
| 8FB5 |
LDIR |
| 8FB7 |
LD L,(IX+$02) |
| 8FBA |
CALL Bitmap_GetData |
| 8FBD |
POP AF |
| 8FBE |
LD B,A |
| 8FBF |
NEG |
| 8FC1 |
ADD A,$06 |
| 8FC3 |
RET Z |
| 8FC4 |
ADD A,A |
| 8FC5 |
ADD A,A |
| 8FC6 |
LD C,A |
| 8FC7 |
INC B |
| 8FC8 |
PUSH BC |
| 8FC9 |
LD HL,(Bmp_DataBuffer) |
| 8FCC |
LD DE,$0060 |
| 8FCF |
ADD HL,DE |
| 8FD0 |
LD DE,$0020 |
| 8FD3 |
ADD HL,DE |
| 8FD4 |
DJNZ $8FD3 |
| 8FD6 |
LD DE,_5b00_buffer |
| 8FD9 |
LD A,C |
| 8FDA |
INC HL |
| 8FDB |
INC HL |
| 8FDC |
LDI |
| 8FDE |
LDI |
| 8FE0 |
LDI |
| 8FE2 |
LDI |
| 8FE4 |
INC HL |
| 8FE5 |
INC HL |
| 8FE6 |
DEC A |
| 8FE7 |
JR NZ,$8FDA |
| 8FE9 |
POP BC |
| 8FEA |
LD HL,$5B50 |
| 8FED |
LD DE,$0010 |
| 8FF0 |
ADD HL,DE |
| 8FF1 |
DJNZ $8FF0 |
| 8FF3 |
EX DE,HL |
| 8FF4 |
LD A,C |
| 8FF5 |
LD HL,(Bmp_DataBuffer) |
| 8FF8 |
LD BC,$0140 |
| 8FFB |
ADD HL,BC |
| 8FFC |
INC HL |
| 8FFD |
INC HL |
| 8FFE |
LDI |
| 9000 |
LDI |
| 9002 |
LDI |
| 9004 |
LDI |
| 9006 |
INC HL |
| 9007 |
INC HL |
| 9008 |
DEC A |
| 9009 |
JR NZ,$8FFC |
| 900B |
RET |
| 900C |
NOP |
| 900D |
LD BC,$0302 |
| 9010 |
INC B |
| 9011 |
DEC B |
| 9012 |
LD B,$06 |
| 9014 |
LD B,$06 |
| 9016 |
LD B,$05 |
| 9018 |
INC B |
| 9019 |
INC BC |
| 901A |
LD (BC),A |
| 901B |
LD BC,$0000 |
| 901E |
NOP |
| 901F |
RST $38 |
| 9020 |
INC (IX+$0D) |
| 9023 |
LD E,(IX+$0D) |
| 9026 |
LD D,$00 |
| 9028 |
LD HL,$900B |
| 902B |
ADD HL,DE |
| 902C |
LD A,(HL) |
| 902D |
CP $FF |
| 902F |
JR NZ,$903B |
| 9031 |
LD (IX+$02),$00 |
| 9035 |
LD HL,Hero_ThroughDoor |
| 9038 |
SET 2,(HL) |
| 903A |
RET |
| 903B |
CP $06 |
| 903D |
JR NZ,$9047 |
| 903F |
LD A,(Hero_ThroughDoor) |
| 9042 |
SET 1,A |
| 9044 |
LD (Hero_ThroughDoor),A |
| 9047 |
LD A,(HL) |
| 9048 |
CALL $8FA9 |
| 904B |
LD HL,_5b00_buffer |
| 904E |
LD (Bitmap_Table),HL |
| 9051 |
LD A,$86 |
| 9053 |
LD ($C58E),A |
| 9056 |
LD A,$04 |
| 9058 |
LD ($C58F),A |
| 905B |
LD A,$01 |
| 905D |
JP $B288 |
| 9060 |
LD C,D |
| 9061 |
LD D,C |
| 9062 |
LD D,D |
| 9063 |
LD D,E |
| 9064 |
LD D,H |
| 9065 |
LD D,L |
| 9066 |
LD D,(HL) |
| 9067 |
LD A,(IX+$0E) |
| 906A |
AND $7F |
| 906C |
CP $04 |
| 906E |
JR NZ,$908F |
| 9070 |
LD A,($9060) |
| 9073 |
XOR $03 |
| 9075 |
LD ($9060),A |
| 9078 |
LD L,A |
| 9079 |
LD H,$00 |
| 907B |
ADD HL,HL |
| 907C |
ADD HL,HL |
| 907D |
LD DE,Bitmap_Table |
| 9080 |
ADD HL,DE |
| 9081 |
LD E,(HL) |
| 9082 |
INC HL |
| 9083 |
LD D,(HL) |
| 9084 |
EX DE,HL |
| 9085 |
LD DE,_5b00_buffer |
| 9088 |
LD BC,$0060 |
| 908B |
LDIR |
| 908D |
JR $910B |
| 908F |
LD HL,_5b00_buffer |
| 9092 |
LD DE,$5B01 |
| 9095 |
LD (HL),$00 |
| 9097 |
LD BC,$005F |
| 909A |
LDIR |
| 909C |
LD HL,(Locker_Ptr) |
| 909F |
LD A,(HL) |
| 90A0 |
AND A |
| 90A1 |
JR Z,$910B |
| 90A3 |
CALL $B5E1 |
| 90A6 |
LD A,(HL) |
| 90A7 |
PUSH AF |
| 90A8 |
LD L,A |
| 90A9 |
CALL Bitmap_GetData |
| 90AC |
DEC HL |
| 90AD |
LD A,(HL) |
| 90AE |
AND $7F |
| 90B0 |
LD B,A |
| 90B1 |
LD HL,$5B60 |
| 90B4 |
LD DE,$FFE0 |
| 90B7 |
ADD HL,DE |
| 90B8 |
DJNZ $90B7 |
| 90BA |
EX DE,HL |
| 90BB |
LD HL,(Bmp_DataBuffer) |
| 90BE |
ADD A,A |
| 90BF |
ADD A,A |
| 90C0 |
ADD A,A |
| 90C1 |
LD B,A |
| 90C2 |
LD C,$FF |
| 90C4 |
INC DE |
| 90C5 |
LDI |
| 90C7 |
LDI |
| 90C9 |
INC DE |
| 90CA |
DJNZ $90C4 |
| 90CC |
POP AF |
| 90CD |
LD HL,$9061 |
| 90D0 |
LD BC,$0006 |
| 90D3 |
CPIR |
| 90D5 |
JR NZ,$910B |
| 90D7 |
LD HL,(Locker_Ptr) |
| 90DA |
LD A,(HL) |
| 90DB |
CALL ObjStr_FindByIndex |
| 90DE |
LD A,(HL) |
| 90DF |
CP $61 |
| 90E1 |
JR C,$90E5 |
| 90E3 |
AND $DF |
| 90E5 |
LD L,A |
| 90E6 |
LD H,$00 |
| 90E8 |
ADD HL,HL |
| 90E9 |
ADD HL,HL |
| 90EA |
ADD HL,HL |
| 90EB |
LD DE,$3C00 |
| 90EE |
ADD HL,DE |
| 90EF |
EX DE,HL |
| 90F0 |
LD HL,$5B3D |
| 90F3 |
LD B,$08 |
| 90F5 |
LD A,(DE) |
| 90F6 |
RRCA |
| 90F7 |
RRCA |
| 90F8 |
RRCA |
| 90F9 |
RRCA |
| 90FA |
LD C,A |
| 90FB |
AND $0F |
| 90FD |
OR (HL) |
| 90FE |
LD (HL),A |
| 90FF |
INC HL |
| 9100 |
LD A,C |
| 9101 |
AND $F0 |
| 9103 |
OR (HL) |
| 9104 |
LD (HL),A |
| 9105 |
INC HL |
| 9106 |
INC HL |
| 9107 |
INC HL |
| 9108 |
INC DE |
| 9109 |
DJNZ $90F5 |
| 910B |
LD A,(IX+$0D) |
| 910E |
LD B,A |
| 910F |
NEG |
| 9111 |
ADD A,$06 |
| 9113 |
RET Z |
| 9114 |
ADD A,A |
| 9115 |
ADD A,A |
| 9116 |
INC B |
| 9117 |
INC B |
| 9118 |
LD HL,($C78C) |
| 911B |
LD DE,$0018 |
| 911E |
ADD HL,DE |
| 911F |
DJNZ $911E |
| 9121 |
LD DE,_5b00_buffer |
| 9124 |
INC HL |
| 9125 |
LDI |
| 9127 |
LDI |
| 9129 |
LDI |
| 912B |
LDI |
| 912D |
INC HL |
| 912E |
DEC A |
| 912F |
JR NZ,$9124 |
| 9131 |
RET |