Routines
Prev: 58736 Up: Map Next: 59312
58752: Routine at E580
Used by the routines at 53982 and 59649.
58752 LD A,(58728)
58755 LD (58733),A
58758 INC A
58759 LD (58734),A
58762 LD A,(58729)
58765 LD (58735),A
58768 INC A
58769 LD (58736),A
58772 LD A,(58728)
58775 LD B,A
58776 LD A,(58729)
58779 LD C,A
58780 CALL 59293
58783 LD E,127
58785 PUSH HL
58786 LD A,(HL)
58787 LD (HL),E
58788 LD (58737),A
58791 INC HL
58792 LD A,(HL)
58793 LD (HL),E
58794 LD (58738),A
58797 LD BC,31
58800 ADD HL,BC
58801 LD A,(HL)
58802 LD (HL),E
58803 LD (58739),A
58806 INC HL
58807 LD A,(HL)
58808 LD (HL),E
58809 LD (58740),A
58812 CALL 59312
58815 HALT
58816 POP HL
58817 LD A,(58737)
58820 LD (HL),A
58821 INC HL
58822 LD A,(58738)
58825 LD (HL),A
58826 LD BC,31
58829 ADD HL,BC
58830 LD A,(58739)
58833 LD (HL),A
58834 INC HL
58835 LD A,(58740)
58838 LD (HL),A
This entry point is used by the routine at 53982.
58839 LD D,0
58841 LD A,(58733)
58844 CP 0
58846 JR Z,58854
58848 DEC A
58849 LD (58733),A
58852 SET 1,D
58854 LD A,(58734)
58857 CP 23
58859 JR Z,58867
58861 INC A
58862 LD (58734),A
58865 SET 2,D
58867 LD A,(58736)
58870 CP 31
58872 JR Z,58880
58874 INC A
58875 LD (58736),A
58878 SET 3,D
58880 LD A,(58735)
58883 CP 0
58885 JR Z,58893
58887 DEC A
58888 LD (58735),A
58891 SET 4,D
58893 LD A,D
58894 CP 0
58896 RET Z
58897 LD B,2
58899 LD E,82
58901 PUSH BC
58902 BIT 1,D
58904 JR Z,58980
58906 LD A,(58733)
58909 LD B,A
58910 LD A,(58729)
58913 LD C,A
58914 CALL 59293
58917 POP BC
58918 PUSH BC
58919 LD A,B
58920 CP 2
58922 JR Z,58935
58924 LD A,(58737)
58927 LD (HL),A
58928 INC HL
58929 LD A,(58738)
58932 LD (HL),A
58933 JR 58946
58935 LD A,(HL)
58936 LD (58737),A
58939 LD (HL),E
58940 INC HL
58941 LD A,(HL)
58942 LD (58738),A
58945 LD (HL),E
58946 BIT 3,D
58948 JP Z,59079
58951 LD A,(58733)
58954 LD B,A
58955 LD A,(58736)
58958 LD C,A
58959 CALL 59293
58962 POP BC
58963 PUSH BC
58964 LD A,B
58965 CP 2
58967 JR Z,58975
58969 LD A,(58739)
58972 LD (HL),A
58973 JR 58980
58975 LD A,(HL)
58976 LD (58739),A
58979 LD (HL),E
58980 BIT 3,D
58982 JR Z,59079
58984 LD A,(58728)
58987 LD B,A
58988 LD A,(58736)
58991 LD C,A
58992 CALL 59293
58995 POP BC
58996 PUSH BC
58997 LD A,B
58998 CP 2
59000 JR Z,59024
59002 LD A,(58740)
59005 LD (HL),A
59006 LD A,(58728)
59009 LD B,A
59010 INC B
59011 LD A,(58736)
59014 LD C,A
59015 CALL 59293
59018 LD A,(58741)
59021 LD (HL),A
59022 JR 59046
59024 LD A,(HL)
59025 LD (58740),A
59028 LD (HL),E
59029 LD A,(58728)
59032 LD B,A
59033 INC B
59034 LD A,(58736)
59037 LD C,A
59038 CALL 59293
59041 LD A,(HL)
59042 LD (58741),A
59045 LD (HL),E
59046 BIT 2,D
59048 JR Z,59157
59050 LD A,(58734)
59053 LD B,A
59054 LD A,(58736)
59057 LD C,A
59058 CALL 59293
59061 POP BC
59062 PUSH BC
59063 LD A,B
59064 CP 2
59066 JR Z,59074
59068 LD A,(58742)
59071 LD (HL),A
59072 JR 59079
59074 LD A,(HL)
59075 LD (58742),A
59078 LD (HL),E
59079 BIT 2,D
59081 JR Z,59157
59083 LD A,(58734)
59086 LD B,A
59087 LD A,(58729)
59090 LD C,A
59091 CALL 59293
59094 POP BC
59095 PUSH BC
59096 LD A,B
59097 CP 2
59099 JR Z,59112
59101 LD A,(58743)
59104 LD (HL),A
59105 INC HL
59106 LD A,(58744)
59109 LD (HL),A
59110 JR 59123
59112 LD A,(HL)
59113 LD (58743),A
59116 LD (HL),E
59117 INC HL
59118 LD A,(HL)
59119 LD (58744),A
59122 LD (HL),E
59123 BIT 4,D
59125 JP Z,59256
59128 LD A,(58734)
59131 LD B,A
59132 LD A,(58735)
59135 LD C,A
59136 CALL 59293
59139 POP BC
59140 PUSH BC
59141 LD A,B
59142 CP 2
59144 JR Z,59152
59146 LD A,(58745)
59149 LD (HL),A
59150 JR 59157
59152 LD A,(HL)
59153 LD (58745),A
59156 LD (HL),E
59157 BIT 4,D
59159 JR Z,59256
59161 LD A,(58728)
59164 LD B,A
59165 LD A,(58735)
59168 LD C,A
59169 CALL 59293
59172 POP BC
59173 PUSH BC
59174 LD A,B
59175 CP 2
59177 JR Z,59201
59179 LD A,(58746)
59182 LD (HL),A
59183 LD A,(58728)
59186 LD B,A
59187 INC B
59188 LD A,(58735)
59191 LD C,A
59192 CALL 59293
59195 LD A,(58747)
59198 LD (HL),A
59199 JR 59223
59201 LD A,(HL)
59202 LD (58746),A
59205 LD (HL),E
59206 LD A,(58728)
59209 LD B,A
59210 INC B
59211 LD A,(58735)
59214 LD C,A
59215 CALL 59293
59218 LD A,(HL)
59219 LD (58747),A
59222 LD (HL),E
59223 BIT 1,D
59225 JR Z,59256
59227 LD A,(58733)
59230 LD B,A
59231 LD A,(58735)
59234 LD C,A
59235 CALL 59293
59238 POP BC
59239 PUSH BC
59240 LD A,B
59241 CP 2
59243 JR Z,59251
59245 LD A,(58748)
59248 LD (HL),A
59249 JR 59256
59251 LD A,(HL)
59252 LD (58748),A
59255 LD (HL),E
59256 LD A,R
59258 LD L,A
59259 LD H,10
59261 LD A,(58734)
59264 LD B,A
59265 LD A,24
59267 SUB B
59268 LD B,A
59269 LD A,(HL)
59270 AND 24
59272 OR 5
59274 OUT (254),A
59276 INC HL
59277 DJNZ 59269
59279 POP BC
59280 LD A,B
59281 CP 2
59283 JR NZ,59286
59285 HALT
59286 DEC B
59287 JP NZ,58901
59290 JP 58839
59293 LD A,B
59294 SRA A
59296 SRA A
59298 SRA A
59300 ADD A,88
59302 LD H,A
59303 LD A,B
59304 AND 7
59306 RRCA
59307 RRCA
59308 RRCA
59309 ADD A,C
59310 LD L,A
59311 RET
Prev: 58736 Up: Map Next: 59312