40562: Routine at 9E72
40562 |
CALL StoreEntity |
40565 |
CALL 44435 |
40568 |
LD A,32 |
40570 |
LD (38573),A |
40573 |
LD A,(IX+2) |
40576 |
AND A |
40577 |
JR NZ,40601 |
40579 |
CALL 45032 |
40582 |
LD BC,5919 |
40585 |
CALL 47132 |
40588 |
CALL 43757 |
40591 |
JP NZ,44328 |
40594 |
SET 2,(IX+0) |
40598 |
JP 44358 |
40601 |
DEC A |
40602 |
LD (IX+2),A |
40605 |
LD E,(IX+3) |
40608 |
LD D,(IX+4) |
40611 |
LD A,(IX+0) |
40614 |
RRCA |
40615 |
AND %00000001 |
40617 |
LD D,A |
40618 |
LD BC,3868 |
40621 |
CALL 43830 |
40624 |
JP 44358 |
40627 |
LD C,(IX+1) |
40630 |
PUSH BC |
40631 |
CALL 42544 |
40634 |
POP BC |
40635 |
LD A,(IX+1) |
40638 |
CP C |
40639 |
CALL NZ,40710 |
40642 |
LD A,(38659) |
40645 |
CP (IX+1) |
40648 |
RET NZ |
40649 |
CALL StoreEntity |
40652 |
LD A,32 |
40654 |
LD (38573),A |
40657 |
LD A,(IX+0) |
40660 |
RRCA |
40661 |
AND %00000001 |
40663 |
LD D,A |
40664 |
LD BC,3868 |
40667 |
LD A,(38581) |
40670 |
AND A |
40671 |
JR NZ,40705 |
40673 |
LD A,(38658) |
40676 |
SUB 16 |
40678 |
CP 32 |
40680 |
JR NC,40705 |
40682 |
CALL 43830 |
40685 |
JP NC,44381 |
40688 |
RES 2,(IX+0) |
40692 |
CALL 44450 |
40695 |
LD (IX+2),15 |
40699 |
CALL 44381 |
40702 |
JP 48919 |
40705 |
CALL 43790 |
40708 |
JR 40685 |
40710 |
LD A,(38549) |
40713 |
AND 8 |
40715 |
LD C,A |
40716 |
LD A,(IX+0) |
40719 |
AND 243 |
40721 |
OR C |
40722 |
LD (IX+0),A |
40725 |
RET |
40726 |
LD A,(38659) |
40729 |
CP (IX+1) |
40732 |
RET NZ |
40733 |
CALL StoreEntity |
40736 |
LD A,(38669) |
40739 |
AND 15 |
40741 |
CP 15 |
40743 |
JR Z,40768 |
40745 |
CALL 44435 |
40748 |
LD BC,5903 |
40751 |
CALL 43837 |
40754 |
JP NC,44381 |
40757 |
LD A,128 |
40759 |
LD (38660),A |
40762 |
CALL 48919 |
40765 |
JP 44381 |
40768 |
LD A,(38661) |
40771 |
BIT 7,A |
40773 |
JR Z,40797 |
40775 |
LD (IX+6),224 |
40779 |
CALL 45032 |
40782 |
LD A,E |
40783 |
CP 64 |
40785 |
JP C,44381 |
40788 |
LD (IX+3),E |
40791 |
CALL 44435 |
40794 |
JP 44381 |
40797 |
LD (IX+6),32 |
40801 |
CALL 45032 |
40804 |
LD A,E |
40805 |
CP 192 |
40807 |
CCF |
40808 |
JR 40785 |