Prev: 57292 Up: Map Next: 57681
57402: Routine at E03A
Used by the routines at 57292 and 57723.
57402 LD C,A
57403 LD A,(41014)
57406 CALL FindCharacter
This entry point is used by the routine at 57292.
57409 LD (IY+0),C
57412 LD IY,(40983)
57416 LD A,C
57417 CALL FetchObjectDataPointer
57420 LD (40983),IX
57424 LD A,(IY+1)
57427 LD (IX+1),A
57430 LD (IY+1),255
57434 LD A,(IY+15)
57437 LD (IX+15),A
57440 LD (IY+15),0
57444 LD B,0
57446 INC B
57447 LD A,B
57448 CP 110
57450 JR Z,57468
57452 CALL FetchObjectDataPointer
57455 LD A,(41014)
57458 CP (IX+1)
57461 JR NZ,57446
57463 LD (IX+1),C
57466 JR 57446
57468 CALL FindCharacterScriptEntry
57471 JR Z,57478
57473 LD (IX+0),C
57476 JR 57468
57478 LD A,C
57479 LD (41014),A
57482 OR 1
57484 RET
57485 ADC A,L
57486 INC B
57487 ADD A,A
57488 PUSH IY
57490 DEFB 253
57491 RST 56
57492 SBC A,E
57493 RET PO
57494 DEC B
57495 SBC A,(IY+107)
57498 DEC BC
57499 LD (BC),A
57500 DEC E
57501 CALL M,3071
57504 ADC A,B
57505 NOP
57506 RLCA
57507 XOR L
57508 RET PO
57509 LD (BC),A
57510 LD E,L
57511 RLCA
57512 DEC (HL)
57513 POP HL
57514 DEFB 253
57515 RST 56
57516 DEC BC
57517 LD C,L
57518 RLCA
57519 INC E
57520 RET PO
57521 LD A,(40970)
57524 CP 88
57526 JR NZ,57565
57528 LD A,(40929)
57531 CP 1
57533 JR NZ,57565
57535 LD IX,(40981)
57539 SET 7,(IX+6)
57543 SET 7,(IX+5)
57547 LD A,(40970)
57550 LD (IX+15),A
57553 LD A,(41012)
57556 LD (IX+1),A
57559 LD HL,31578
57562 CALL PrintTextAndHandleControlCharacters
57565 OR 1
57567 RET
57568 ADC A,B
57569 NOP
57570 RLCA
57571 DEC (HL)
57572 POP HL
57573 DEFB 253
57574 RST 56
57575 INC BC
57576 EX DE,HL
57577 RET PO
57578 DEC BC
57579 NOP
57580 NOP
57581 LD A,81
57583 JP 40022
57586 ADC A,B
57587 NOP
57588 RLCA
57589 DEC (HL)
57590 POP HL
57591 DEFB 253
57592 RST 56
57593 INC BC
57594 DEFB 253
57595 RET PO
57596 DEC BC
57597 NOP
57598 NOP
57599 LD A,63
57601 JP 40022
57604 EX AF,AF'
57605 LD H,B
57606 LD A,1
57608 LD (51886),A
57611 LD A,(41014)
57614 AND A
57615 RET NZ
57616 CALL PrintObjectDescriptionText
57619 LD IX,(40979)
57623 BIT 5,(IX+5)
57627 RET NZ
57628 SET 5,(IX+5)
57632 LD HL,31735
57635 LD (IX+13),L
57638 LD (IX+14),H
57641 LD HL,31763
57644 CALL PrintTextAndHandleControlCharacters
57647 CALL PrintNewline
57650 OR 1
57652 RET
57653 LD A,B
57654 LD D,B
57655 LD L,223
57657 ADD A,B
57658 LD B,B
57659 NOP
57660 NOP
57661 NOP
57662 LD A,1
57664 LD (51886),A
57667 LD A,(41014)
57670 AND A
57671 RET NZ
57672 CALL LookupAndPrintDisplayText
57675 CALL PrintNewline
57678 OR 1
57680 RET
Prev: 57292 Up: Map Next: 57681