Prev: 56028 Up: Map Next: 56190
56039: Routine at DAE7
Used by the routine at 59649.
56039 LD A,(58729)
56042 DEC A
56043 LD (58731),A
56046 LD A,(58732)
56049 LD B,A
56050 PUSH BC
56051 LD A,(58728)
56054 DEC A
56055 LD (58730),A
56058 LD B,4
56060 PUSH BC
56061 LD A,(58730)
56064 LD B,A
56065 LD A,(58731)
56068 LD C,A
56069 CALL Calculate_ScreenBlockAddress
56072 PUSH HL
56073 DEC B
56074 CALL Calculate_ScreenBlockAddress
56077 PUSH HL
56078 POP DE
56079 POP HL
56080 LD A,8
56082 LD BC,4
56085 PUSH HL
56086 PUSH HL
56087 PUSH DE
56088 LDIR
56090 DEC HL
56091 PUSH HL
56092 LD (HL),C
56093 POP DE
56094 DEC DE
56095 LD BC,3
56098 LDDR
56100 POP DE
56101 POP HL
56102 INC D
56103 INC H
56104 LD BC,4
56107 DEC A
56108 JP NZ,56086
56111 POP HL
56112 CALL Calculate_AttributeAddress
56115 LD HL,65504
56118 ADD HL,DE
56119 EX DE,HL
56120 LD BC,4
56123 LDIR
56125 LD BC,3
56128 LD A,71
56130 DEC HL
56131 LD (HL),A
56132 PUSH HL
56133 POP DE
56134 DEC DE
56135 LDDR
56137 LD HL,58730
56140 INC (HL)
56141 POP BC
56142 DJNZ 56060
56144 POP BC
56145 PUSH BC
56146 CALL 56157
56149 LD HL,58728
56152 DEC (HL)
56153 POP BC
56154 DJNZ 56050
56156 RET
This entry point is used by the routines at 55689, 55792 and 55894.
56157 LD HL,58732
56160 LD A,20
56162 SUB (HL)
56163 LD C,B
56164 SLA C
56166 SLA C
56168 ADD A,C
56169 LD C,A
56170 LD A,5
56172 LD B,C
56173 SLA B
56175 DJNZ 56175
56177 XOR 16
56179 OUT (254),A
56181 DEC C
56182 JP NZ,56172
56185 RET
56186 OR B
56187 LD H,B
56188 EX (SP),HL
56189 XOR D
Prev: 56028 Up: Map Next: 56190