AD51: Routine at AD51
sub_ad51 |
AD51 |
LD A,(IX+$07) |
|
AD54 |
AND A |
|
AD55 |
RET NZ |
|
AD56 |
LD L,(IX+$02) |
|
AD59 |
LD H,(IX+$03) |
|
AD5C |
LD A,H |
|
AD5D |
AND A |
|
AD5E |
RET NZ |
|
AD5F |
LD A,(IX+$0F) |
|
AD62 |
INC A |
|
AD63 |
LD A,(IX+$01) |
|
AD66 |
LD C,$03 |
|
AD68 |
JR NZ,sub_ad51_0 |
|
AD6A |
LD C,$02 |
sub_ad51_0 |
AD6C |
CP C |
|
AD6D |
RET NC |
|
AD6E |
LD E,$04 |
|
AD70 |
DEC A |
|
AD71 |
LD A,($A23F) |
|
AD74 |
JR NZ,sub_ad51_1 |
|
AD76 |
AND A |
|
AD77 |
JP P,sub_ad51_2 |
|
AD7A |
LD E,$01 |
|
AD7C |
JR sub_ad51_2 |
sub_ad51_1 |
AD7E |
AND A |
|
AD7F |
RET P |
sub_ad51_2 |
AD80 |
LD A,L |
|
AD81 |
AND $F8 |
|
AD83 |
CP $90 |
|
AD85 |
RET NC |
|
AD86 |
ADD A,(IX+$08) |
|
AD89 |
CP $70 |
|
AD8B |
RET C |
|
AD8C |
SUB (IX+$08) |
|
AD8F |
CP $68 |
|
AD91 |
JR C,sub_ad51_3 |
|
AD93 |
DEC E |
|
AD94 |
CP $78 |
|
AD96 |
JR C,sub_ad51_3 |
|
AD98 |
INC E |
|
AD99 |
INC E |
sub_ad51_3 |
AD9A |
LD (IX+$07),E |
|
AD9D |
LD D,$01 |
|
AD9F |
RET |