Routines
Prev: 45616 Up: Map Next: 45890
45724: Routine at B29C
Used by the routine at 44981.
45724 PUSH HL Stash HL on the stack.
45725 LD D,A D=A.
45726 SRL C Shift C right.
45728 JR NC,45740 Jump to 45740 if the result is greater than or equal to 0.
45730 LD (46096),A Write A to *46096.
45733 LD A,84 Write 84 to *46104.
45735 LD (46104),A
45738 JR 45748 Jump to 45748.
45740 LD (46096),A Write A to *46096.
45743 LD A,83 Write 83 to *46104.
45745 LD (46104),A
45748 LD A,D A=D.
45749 CALL 46082 Call 46082.
45752 LD DE,200 DE=0200.
45755 CALL 43125 Call 43125.
45758 CP (IX+0) Jump to 45774 if *IX+0 is greater than or equal to 83.
45761 JR NC,45774
45763 LD A,83 Write 83 to *46105.
45765 LD (46105),A
45768 LD A,(HL) Write *HL to *46097.
45769 LD (46097),A
45772 JR 45879 Jump to 45879.
45774 CP (IX+1) Jump to 45793 if *IX+1 is greater than or equal to 83.
45777 JR NC,45793
45779 LD A,84 Write 84 to *46105.
45781 LD (46105),A
45784 LD A,(HL) Write *HL to *46097.
45785 LD (46097),A
45788 LD C,A C=A.
45789 ADD A,A A+=A.
45790 ADD A,C A+=C.
45791 JR 45879 Jump to 45879.
45793 CP (IX+2) Jump to 45810 if *IX+2 is greater than or equal to 84.
45796 JR NC,45810
45798 LD A,83 Write 83 to *46105.
45800 LD (46105),A
45803 DEC HL Decrease HL by one.
45804 LD A,(HL) Write *HL to *46097.
45805 LD (46097),A
45808 JR 45879 Jump to 45879.
45810 CP (IX+3) Jump to 45830 if *IX+3 is greater than or equal to 83.
45813 JR NC,45830
45815 LD A,84 Write 84 to *46105.
45817 LD (46105),A
45820 DEC HL Decrease HL by one.
45821 LD A,(HL) Write *HL to *46097.
45822 LD (46097),A
45825 LD C,A C=A.
45826 ADD A,A A+=A.
45827 ADD A,C A+=C.
45828 JR 45879 Jump to 45879.
45830 CP (IX+4) Jump to 45847 if *IX+4 is greater than or equal to 84.
45833 JR NC,45847
45835 LD A,83 Write 83 to *46105.
45837 LD (46105),A
45840 INC HL Increment HL by one.
45841 LD A,(HL) Write *HL to *46097.
45842 LD (46097),A
45845 JR 45879 Jump to 45879.
45847 CP (IX+5) Jump to 45867 if *IX+5 is greater than or equal to 83.
45850 JR NC,45867
45852 LD A,84 Write 84 to *46105.
45854 LD (46105),A
45857 INC HL Increment HL by one.
45858 LD A,(HL) A=*HL.
45859 LD (46097),A Write A to *46097.
45862 LD C,A C=A.
45863 ADD A,A A+=A.
45864 ADD A,C A+=C.
45865 JR 45879 Jump to 45879.
45867 LD A,(HL) D=*HL.
45868 LD D,A
45869 LD A,68 Write 68 to *46105.
45871 LD (46105),A
45874 LD A,D Write D to *46097.
45875 LD (46097),A
45878 ADD A,A A+=A.
45879 POP HL Restore HL from the stack.
45880 LD D,0 D=0.
45882 LD E,A E=A.
45883 AND A Set flags.
45884 SBC HL,DE HL-=DE (with carry).
45886 LD (46092),A Write A to *46092.
45889 RET Return.
Prev: 45616 Up: Map Next: 45890