B39D: Routine at B39D
| B39D |
PUSH IY |
| B39F |
LD L,(IY+$00) |
| B3A2 |
LD H,(IY+$01) |
| B3A5 |
LD A,H |
| B3A6 |
AND $80 |
| B3A8 |
LD ($B39C),A |
| B3AB |
RES 7,H |
| B3AD |
LD ($B186),HL |
| B3B0 |
LD L,(IY+$02) |
| B3B3 |
LD H,(IY+$03) |
| B3B6 |
LD ($B18C),HL |
| B3B9 |
LD HL,$B188 |
| B3BC |
PUSH HL |
| B3BD |
LD B,$04 |
| B3BF |
CALL $A2AB |
| B3C2 |
POP HL |
| B3C3 |
LD B,$02 |
| B3C5 |
LD E,$04 |
| B3C7 |
CALL $B483 |
| B3CA |
LD E,$0E |
| B3CC |
CALL $B483 |
| B3CF |
LD E,$06 |
| B3D1 |
CALL $B483 |
| B3D4 |
LD E,$10 |
| B3D6 |
CALL $B483 |
| B3D9 |
XOR A |
| B3DA |
LD ($A02E),A |
| B3DD |
LD HL,$B186 |
| B3E0 |
LD DE,$0008 |
| B3E3 |
LD IX,$8259 |
| B3E7 |
PUSH IX |
| B3E9 |
POP IY |
| B3EB |
CALL $A4CD |
| B3EE |
JR Z,$B3FD |
| B3F0 |
ADD IX,DE |
| B3F2 |
LD A,(IX+$01) |
| B3F5 |
OR (IX+$00) |
| B3F8 |
JR NZ,$B3E7 |
| B3FA |
POP IY |
| B3FC |
RET |
| B3FD |
POP IY |
| B3FF |
CALL $B405 |
| B402 |
OR $01 |
| B404 |
RET |
| B405 |
AND A |
| B406 |
JR Z,$B416 |
| B408 |
LD HL,($B188) |
| B40B |
LD DE,($B18A) |
| B40F |
LD ($B188),DE |
| B413 |
LD ($B18A),HL |
| B416 |
CALL $A2BD |
| B419 |
LD HL,$B188 |
| B41C |
LD A,(HL) |
| B41D |
INC HL |
| B41E |
OR (HL) |
| B41F |
JR NZ,$B426 |
| B421 |
LD A,($A01E) |
| B424 |
JR $B445 |
| B426 |
DEC HL |
| B427 |
LD A,(HL) |
| B428 |
CP (IY+$0E) |
| B42B |
JR NZ,$B435 |
| B42D |
INC HL |
| B42E |
LD A,(HL) |
| B42F |
CP (IY+$0F) |
| B432 |
JR Z,$B440 |
| B434 |
DEC HL |
| B435 |
LD A,(HL) |
| B436 |
CP (IY+$10) |
| B439 |
JR NZ,$B440 |
| B43B |
INC HL |
| B43C |
LD A,(HL) |
| B43D |
CP (IY+$11) |
| B440 |
LD A,($A01D) |
| B443 |
JR NZ,$B447 |
| B445 |
XOR $20 |
| B447 |
BIT 5,A |
| B449 |
LD BC,$1208 |
| B44C |
JR Z,$B451 |
| B44E |
LD BC,$0812 |
| B451 |
LD HL,$B182 |
| B454 |
LD (HL),B |
| B455 |
INC HL |
| B456 |
LD (HL),C |
| B457 |
LD A,B |
| B458 |
LD DE,$B172 |
| B45B |
LD HL,$B16D |
| B45E |
CALL $B468 |
| B461 |
LD A,C |
| B462 |
LD DE,$B178 |
| B465 |
LD HL,$B16E |
| B468 |
PUSH BC |
| B469 |
LD C,A |
| B46A |
LD B,$00 |
| B46C |
PUSH HL |
| B46D |
PUSH IY |
| B46F |
POP HL |
| B470 |
ADD HL,BC |
| B471 |
LD BC,$0006 |
| B474 |
LDIR |
| B476 |
XOR A |
| B477 |
LD B,$06 |
| B479 |
DEC HL |
| B47A |
OR (HL) |
| B47B |
DJNZ $B479 |
| B47D |
POP HL |
| B47E |
POP BC |
| B47F |
RET Z |
| B480 |
SET 0,(HL) |
| B482 |
RET |
| B483 |
XOR A |
| B484 |
CP B |
| B485 |
RET Z |
| B486 |
LD D,$00 |
| B488 |
PUSH IY |
| B48A |
ADD IY,DE |
| B48C |
LD A,(IY+$00) |
| B48F |
LD (HL),A |
| B490 |
INC HL |
| B491 |
LD A,(IY+$01) |
| B494 |
LD (HL),A |
| B495 |
DEC HL |
| B496 |
OR (IY+$00) |
| B499 |
POP IY |
| B49B |
RET Z |
| B49C |
DEC B |
| B49D |
INC HL |
| B49E |
INC HL |
| B49F |
RET |
| B4A0 |
JP (IY) |
