Routines
Prev: 61586 Up: Map Next: 62025
61744: Routine at F130
Used by the routine at 62526.
61744 CP 255 Return if A is equal to 255.
61746 RET Z
61747 CP 128 Jump to 61754 if A is not equal to 128.
61749 JR NZ,61754
61751 SET 7,B Set bit 7 of B.
61753 RET Return.
61754 CP 64 Jump to 61761 if A is not equal to 64.
61756 JR NZ,61761
61758 SET 6,B Set bit 6 of B.
61760 RET Return.
61761 LD C,A C=A.
61762 LD A,B Return if B is equal to 0.
61763 CP 0
61765 RET Z
61766 LD A,C A=C.
61767 CP 21 Jump to 62025 if A is lower than 21 (unsigned comparison).
61769 JP M,62025
61772 CP 64 Compare A with 64.
61774 JP P,62025 Jump to 62025 P.
61777 LD C,A C=A.
61778 LD A,(58055) A=*Item_ID.
61781 CP 21 Jump to 62025 if A is lower than 21 (unsigned comparison).
61783 JP M,62025
61786 CP 64 Compare A with 64.
61788 JP P,62025 Jump to 62025 P.
61791 LD D,21 D=21.
61793 CALL 62086 Call 62086.
61796 LD D,61 D=61.
61798 LD E,3 E=3.
61800 LD A,(58055) A=*Item_ID.
61803 CALL 62086 Call 62086.
61806 INC D Increment D by one.
61807 DEC E Decrease E by one.
61808 LD A,(58055) A=*Item_ID.
61811 JR NZ,61803 Jump to 61803 if E is not zero.
61813 CP 27 Jump to 61824 if A is not equal to 27.
61815 JR NZ,61824
61817 LD A,C Jump to 61844 if C is not equal to 28.
61818 CP 28
61820 JR NZ,61844
61822 JR 61833 Jump to 61833.
61824 CP 28 Jump to 61844 if A is not equal to 28.
61826 JR NZ,61844
61828 LD A,C Jump to 61844 if C is not equal to 27.
61829 CP 27
61831 JR NZ,61844
61833 LD IX,55354 IX=Time.
61837 SET 3,(IX+0) Set bit 3 of *IX+0.
61841 JP 62001 Jump to 62001.
61844 LD A,(58055) Jump to 61858 if *Item_ID is not equal to 29.
61847 CP 29
61849 JR NZ,61858
61851 LD A,C Jump to 61910 if C is not equal to 30.
61852 CP 30
61854 JR NZ,61910
61856 JR 61867 Jump to 61867.
61858 CP 30 Jump to 61910 if A is not equal to 30.
61860 JR NZ,61910
61862 LD A,C Jump to 61910 if C is not equal to 29.
61863 CP 29
61865 JR NZ,61910
61867 LD IX,55354 IX=Time.
61871 SET 2,(IX+0) Set bit 2 of *IX+0.
61875 LD A,(55360) A=*55360.
61878 AND A Set flags.
61879 ADD A,A A+=A.
61880 DAA DAA.
61881 LD (55360),A Write A to *55360.
61884 LD A,(55359) A=*55359.
61887 PUSH AF Stash AF on the stack.
61888 AND A Set flags.
61889 ADD A,A A+=A.
61890 DAA DAA.
61891 LD (55359),A Write A to *55359.
61894 POP AF Restore AF from the stack.
61895 JP NC,62001 Jump to 62001 if A is higher.
61898 CCF Invert the carry flag.
61899 LD A,(55359) A=*55359.
61902 INC A Increment A by one.
61903 DAA DAA.
61904 LD (55359),A Write A to *55359.
61907 JP 62001 Jump to 62001.
61910 LD A,(58055) A=*Item_ID.
61913 CP 23 Jump to 61931 if A is not equal to 23.
61915 JR NZ,61931
61917 CP C Jump to 61931 if A is not equal to C.
61918 JR NZ,61931
61920 LD IX,55354 IX=Time.
61924 SET 6,(IX+0) Set bit 6 of *IX+0.
61928 JP 62001 Jump to 62001.
61931 LD A,(58055) A=*Item_ID.
61934 INC A Increment A by one.
61935 CP C Jump to 61944 if A is equal to C.
61936 JR Z,61944
61938 SUB 2 A-=2.
61940 CP C Jump to 62001 if A is not equal to C.
61941 JR NZ,62001
61943 INC A Increment A by one.
61944 DEC A Decrease A by one.
61945 CALL 55238 Call 55238.
61948 LD D,31 D=31.
61950 LD E,13 E=13.
61952 CP D Compare A with D.
61953 JR Z,61962 Jump to 61962 if A is zero.
61955 INC D Increment D by two.
61956 INC D
61957 DEC E Decrease E by one.
61958 JR NZ,61952 Jump to 61952 if E is not zero.
61960 JR 62001 Jump to 62001.
61962 LD A,14 A=14.
61964 SUB E A-=E.
61965 LD D,A D=A.
61966 LD A,5 A=5.
61968 ADD A,5 A+=5.
61970 DAA DAA.
61971 DEC D Decrease D by one.
61972 JR NZ,61968 Jump to 61968 if D is not zero.
This entry point is used by the routine at 62086.
61974 PUSH AF Stash AF on the stack.
61975 SET 3,B Set bit 3 of B.
61977 LD (55403),A Write A to *55403.
61980 LD A,(55360) D=*55360.
61983 LD D,A
61984 POP AF Restore AF from the stack.
61985 ADD A,D A+=D.
61986 DAA DAA.
61987 LD (55360),A Write A to *55360.
61990 JR NC,62001 Jump to 62001 if D is higher.
61992 LD A,(55359) A=*55359.
61995 CCF Invert the carry flag.
61996 INC A Increment A by one.
61997 DAA DAA.
61998 LD (55359),A Write A to *55359.
62001 INC B Increment B by one.
62002 SET 4,B Set bit 4 of B.
62004 LD A,(55346) Jump to 62016 if *55346 is equal to 0.
62007 CP 0
62009 JR Z,62016
62011 LD A,3 Write 3 to *55346.
62013 LD (55346),A
62016 LD A,0 A=0.
62018 LD DE,(58800) DE=*58800.
62022 LD (DE),A Write A to *DE.
62023 LD (HL),A Write A to *HL.
62024 RET Return.
Prev: 61586 Up: Map Next: 62025