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 |