74EE: Routine at 74EE
74EE |
EXX |
74EF |
LD HL,($5F1F) |
74F2 |
CALL AttributeAddress |
74F5 |
LD A,($5F18) |
74F8 |
LD B,A |
74F9 |
LD A,($5F17) |
74FC |
RRCA |
74FD |
RRCA |
74FE |
INC A |
74FF |
RRCA |
7500 |
AND %00011111 |
7502 |
INC A |
7503 |
LD C,A |
7504 |
LD D,(IX+$03) |
7507 |
LD E,B |
7508 |
PUSH HL |
7509 |
LD A,H |
750A |
CP $5B |
750C |
JR NC,$7526 |
750E |
CP $58 |
7510 |
JR C,$7526 |
7512 |
LD A,L |
7513 |
AND %00011111 |
7515 |
CP $1A |
7517 |
JR NC,$7526 |
7519 |
LD (HL),D |
751A |
INC L |
751B |
LD A,L |
751C |
AND %00011111 |
751E |
JR NZ,$7524 |
7520 |
LD A,L |
7521 |
SUB $20 |
7523 |
LD L,A |
7524 |
DJNZ $7509 |
7526 |
POP HL |
7527 |
PUSH BC |
7528 |
AND A |
7529 |
LD BC,$0020 |
752C |
SBC HL,BC |
752E |
POP BC |
752F |
LD B,E |
7530 |
DEC C |
7531 |
JR NZ,$7508 |
7533 |
RET |