34854: Routine at 8826
34854 |
CALL 34175 |
34857 |
LD L,(IX+2) |
34860 |
LD H,(IX+3) |
34863 |
LD BC,(24698) |
34867 |
AND A |
34868 |
SBC HL,BC |
34870 |
LD BC,104 |
34873 |
ADD HL,BC |
34874 |
LD A,H |
34875 |
AND 31 |
34877 |
JR Z,34993 |
34879 |
ADD A,225 |
34881 |
JR NZ,34961 |
34883 |
LD A,L |
34884 |
SRA A |
34886 |
SRA A |
34888 |
SRA A |
34890 |
JP P,34961 |
34893 |
LD B,A |
34894 |
AND 15 |
34896 |
LD (34798),A |
34899 |
LD (IX+9),A |
34902 |
LD A,(DE) |
34903 |
INC DE |
34904 |
LD C,A |
34905 |
ADD A,B |
34906 |
JP M,34961 |
34909 |
JR Z,34961 |
34911 |
LD B,A |
34912 |
LD (24151),A |
34915 |
LD (IX+11),A |
34918 |
LD A,(DE) |
34919 |
INC DE |
34920 |
LD (24153),A |
34923 |
LD (24152),A |
34926 |
LD (IX+10),A |
34929 |
LD A,C |
34930 |
SUB B |
34931 |
INC DE |
34932 |
DEC A |
34933 |
JR NZ,34931 |
34935 |
LD L,0 |
34937 |
LD (IX+1),L |
34940 |
LD H,(IX+4) |
34943 |
CALL ScreenAddress |
34946 |
LD (IX+12),E |
34949 |
LD (IX+13),D |
34952 |
LD (IX+14),L |
34955 |
LD (IX+15),H |
34958 |
LD C,0 |
34960 |
RET |