Routines
Prev: 29386 Up: Map Next: 30003
29597: Routine at 739D
Used by the routines at 29386 and 30896.
29597 PUSH AF
29598 CALL 24822
29601 LD A,(DE)
29602 CP 36
29604 JR NZ,29612
29606 LD (IX+5),0
29610 POP AF
29611 RET
29612 XOR 5
29614 LD (DE),A
29615 CALL ScreenBufferAddress
29618 POP AF
29619 CALL Address_UDG
29622 LD H,B
29623 LD L,C
29624 LD B,8
29626 LD A,(DE)
29627 XOR (HL)
29628 LD (HL),A
29629 INC DE
29630 INC H
29631 DJNZ 29626
29633 RET
29634 NOP
29635 NOP
29636 LD C,B
29637 RST 56
29638 LD BC,2561
29641 NOP
29642 NOP
29643 LD C,C
29644 NOP
29645 LD (BC),A
29646 LD BC,15
29649 NOP
29650 LD C,D
29651 RST 56
29652 LD (BC),A
29653 LD BC,20
29656 NOP
29657 LD C,B
29658 LD BC,258
29661 LD C,0
29663 NOP
29664 LD C,C
29665 NOP
29666 LD BC,6401
29669 NOP
29670 NOP
29671 LD C,D
29672 RST 56
29673 LD BC,1793
29676 NOP
29677 NOP
29678 LD C,B
29679 NOP
29680 LD (BC),A
29681 LD BC,13
29684 NOP
29685 LD C,C
29686 LD BC,258
29689 INC D
29690 NOP
29691 NOP
29692 LD C,D
29693 LD (BC),A
29694 LD BC,2305
29697 OR (HL)
29698 DEC HL
29699 JR NZ,29768
29701 LD D,B
29702 JR NZ,29780
29704 DEC C
29705 RET NZ
29706 DEC HL
29707 JR NZ,29783
29709 LD D,D
29710 JR NZ,29802
29712 INC L
29713 LD C,L
29714 LD D,H
29715 DEC (HL)
29716 DEC C
29717 JP Z,6954
29720 LD E,E
29721 ADD A,L
29722 LD L,A
29723 JR NC,29726
29725 INC H
29726 LD (23323),HL
29729 PUSH HL
29730 LD BC,1562
29733 CALL 3545
29736 LD A,7
29738 LD (23695),A
29741 POP BC
29742 CALL 6683
29745 LD A,48
29747 RST 16
29748 RET
This entry point is used by the routine at 30036.
29749 LD HL,23672
29752 LD A,(HL)
29753 ADD A,7
29755 CP (HL)
29756 JR NZ,29755
29758 CALL 28632
29761 CALL 28840
29764 LD A,(23307)
29767 LD HL,(23328)
29770 DEC A
29771 JR NZ,29780
29773 INC H
29774 LD (23328),HL
29777 DEC H
29778 JR 29872
29780 LD A,(23302)
29783 OR A
29784 JR NZ,29773
29786 PUSH HL
29787 LD HL,23672
29790 LD A,(HL)
29791 ADD A,7
29793 CP (HL)
29794 JR NZ,29793
29796 CALL 28840
29799 POP HL
29800 LD BC,63486
29803 IN A,(C)
29805 LD BC,61438
29808 LD E,A
29809 IN A,(C)
29811 ADD A,A
29812 ADD A,A
29813 XOR E
29814 BIT 4,A
29816 JR Z,29826
29818 BIT 4,E
29820 JR Z,29825
29822 INC L
29823 JR 29826
29825 DEC L
29826 IN A,(C)
29828 LD E,A
29829 ADD A,A
29830 XOR E
29831 BIT 4,A
29833 JR Z,29843
29835 BIT 4,E
29837 JR Z,29842
29839 DEC H
29840 JR 29843
29842 INC H
29843 LD A,L
29844 OR A
29845 JR NZ,29848
29847 INC L
29848 CP 30
29850 JR NZ,29853
29852 DEC L
29853 LD A,H
29854 OR A
29855 JR NZ,29858
29857 INC H
29858 LD DE,(23328)
29862 PUSH DE
29863 LD (23328),HL
29866 OR A
29867 SBC HL,DE
29869 POP HL
29870 JR Z,29749
29872 XOR A
29873 LD C,45
29875 PUSH HL
29876 CALL 24852
29879 POP HL
29880 XOR A
29881 LD C,45
29883 PUSH HL
29884 INC L
29885 CALL 24852
29888 LD HL,(23328)
29891 CALL 24822
29894 LD A,(DE)
29895 CP 45
29897 JR Z,29920
29899 CP 47
29901 JR Z,29920
29903 LD A,(23302)
29906 DEC A
29907 LD A,100
29909 CALL Z,29718
29912 LD A,77
29914 LD (23366),A
29917 POP HL
29918 JR 29933
29920 INC DE
29921 LD A,(DE)
29922 CP 45
29924 JR Z,29930
29926 CP 47
29928 JR NZ,29903
29930 LD A,47
29932 POP DE
29933 PUSH HL
29934 PUSH AF
29935 LD C,40
29937 CALL 24852
29940 LD C,40
29942 POP AF
29943 INC A
29944 POP HL
29945 PUSH HL
29946 INC L
29947 CALL 24852
29950 POP HL
29951 LD A,(23366)
29954 OR A
29955 JR NZ,30003
29957 LD A,(23307)
29960 DEC A
29961 JP Z,29749
29964 LD A,(23302)
29967 OR A
29968 JP NZ,29749
29971 LD A,H
29972 CP 14
29974 JP NZ,29749
29977 LD A,L
29978 SUB 13
29980 JP C,29749
29983 CP 3
29985 JP NC,29749
29988 LD A,200
29990 CALL 29718
29993 CALL 30864
29996 CALL 30864
29999 CALL 30864
30002 RET
Prev: 29386 Up: Map Next: 30003