Prev: 9020 Up: Map Next: 917C
907B: Routine at 907B
Used by the routines at 8D06, 91E2 and B33D.
907B LD A,(IX+$05) A=IX+05.
907E SRA A
9080 SRA A
9082 SRA A
9084 SRA A
9086 LD E,A
9087 LD D,$00
9089 JP P,$908E
908C LD D,$FF
908E LD H,(IX+$03)
9091 LD L,(IX+$02)
9094 LD A,L
9095 AND $07
9097 PUSH HL
9098 PUSH DE
9099 CALL Z,$915C
909C POP DE
909D CALL $90AC
90A0 POP HL
90A1 ADD HL,DE
90A2 LD A,H
90A3 AND $1F
90A5 LD (IX+$03),A
90A8 LD (IX+$02),L
90AB RET
90AC LD HL,$50C0
90AF LD C,$08
90B1 LD A,E
90B2 AND A
90B3 RET Z
90B4 JP P,$9109
90B7 NEG
90B9 DEC A
90BA JR Z,$90D8
90BC DEC A
90BD JR Z,$90EA
90BF LD A,(IX+$02)
90C2 AND $03
90C4 JR NZ,$90EA
90C6 XOR A
90C7 LD B,$20
90C9 PUSH HL
90CA RRD
90CC INC HL
90CD DJNZ $90CA
90CF POP HL
90D0 INC H
90D1 DEC C
90D2 JR NZ,$90C6
90D4 LD DE,$FFFC
90D7 RET
90D8 XOR A
90D9 LD B,$20
90DB PUSH HL
90DC RR (HL)
90DE INC HL
90DF DJNZ $90DC
90E1 POP HL
90E2 INC H
90E3 DEC C
90E4 JR NZ,$90D8
90E6 LD DE,$FFFF
90E9 RET
90EA LD A,(IX+$02)
90ED AND $01
90EF JR NZ,$90D8
90F1 XOR A
90F2 EX AF,AF'
90F3 XOR A
90F4 PUSH HL
90F5 LD B,$20
90F7 RR (HL)
90F9 EX AF,AF'
90FA RR (HL)
90FC EX AF,AF'
90FD INC L
90FE DJNZ $90F7
9100 POP HL
9101 INC H
9102 DEC C
9103 JR NZ,$90F1
9105 LD DE,$FFFE
9108 RET
9109 LD HL,$50DF
910C DEC A
910D JR Z,$912B
910F DEC A
9110 JR Z,$913D
9112 LD A,(IX+$02)
9115 AND $03
9117 JR NZ,$913D
9119 XOR A
911A LD B,$20
911C PUSH HL
911D RLD
911F DEC L
9120 DJNZ $911D
9122 POP HL
9123 INC H
9124 DEC C
9125 JR NZ,$9119
9127 LD DE,$0004
912A RET
912B XOR A
912C LD B,$20
912E PUSH HL
912F RL (HL)
9131 DEC L
9132 DJNZ $912F
9134 POP HL
9135 INC H
9136 DEC C
9137 JR NZ,$912B
9139 LD DE,$0001
913C RET
913D LD A,(IX+$02)
9140 AND $01
9142 JR NZ,$912B
9144 XOR A
9145 EX AF,AF'
9146 XOR A
9147 PUSH HL
9148 LD B,$20
914A RL (HL)
914C EX AF,AF'
914D RL (HL)
914F EX AF,AF'
9150 DEC L
9151 DJNZ $914A
9153 POP HL
9154 INC H
9155 DEC C
9156 JR NZ,$9144
9158 LD DE,$0002
915B RET
915C LD A,E
915D AND A
915E JP M,$919E
9161 LD DE,$0080
9164 ADD HL,DE
9165 LD A,H
9166 AND $1F
9168 LD H,A
9169 LD DE,$7000
916C SRA H
916E RR L
9170 SRA H
9172 RR L
9174 SRA H
9176 RR L
9178 ADD HL,DE
9179 LD DE,$50DF
Prev: 9020 Up: Map Next: 917C