| D939 |
PUSH AF |
| D93A |
CALL Calculate_ScreenBlockAddress |
| D93D |
POP AF |
| D93E |
RRCA |
| D93F |
LD B,A |
| D940 |
LD A,(DE) |
| D941 |
LD C,A |
| D942 |
AND $F0 |
| D944 |
RRCA |
| D945 |
CALL $D957 |
| D948 |
INC HL |
| D949 |
LD A,C |
| D94A |
AND $0F |
| D94C |
RLCA |
| D94D |
RLCA |
| D94E |
RLCA |
| D94F |
CALL $D957 |
| D952 |
INC DE |
| D953 |
INC HL |
| D954 |
DJNZ $D940 |
| D956 |
RET |
| D957 |
PUSH BC |
| D958 |
PUSH DE |
| D959 |
PUSH HL |
| D95A |
LD B,$00 |
| D95C |
LD C,A |
| D95D |
PUSH HL |
| D95E |
LD HL,$EEEB |
| D961 |
ADD HL,BC |
| D962 |
POP DE |
| D963 |
LD B,$08 |
| D965 |
LD A,(HL) |
| D966 |
LD (DE),A |
| D967 |
INC HL |
| D968 |
LD IX,$D556 |
| D96C |
BIT 1,(IX+$00) |
| D970 |
JR Z,$D982 |
| D972 |
LD A,B |
| D973 |
CP $05 |
| D975 |
JR NZ,$D982 |
| D977 |
PUSH HL |
| D978 |
EX DE,HL |
| D979 |
LD DE,$06E0 |
| D97C |
SBC HL,DE |
| D97E |
EX DE,HL |
| D97F |
POP HL |
| D980 |
JR $D983 |
| D982 |
INC D |
| D983 |
DJNZ $D965 |
| D985 |
POP HL |
| D986 |
POP DE |
| D987 |
POP BC |
| D988 |
RET |
