55438: Routine at 55438
L55438 |
55438 |
LD A,(59674) |
|
55441 |
INC A |
|
55442 |
LD (59674),A |
|
55445 |
LD A,(59676) |
|
55448 |
INC A |
|
55449 |
CP 6 |
|
55451 |
JP NZ,L55438_0 |
|
55454 |
XOR A |
L55438_0 |
55455 |
LD (59676),A |
|
55458 |
LD A,191 |
|
55460 |
IN A,(254) |
|
55462 |
BIT 4,A |
|
55464 |
RET NZ |
|
55465 |
LD B,0 |
|
55467 |
XOR A |
L55438_1 |
55468 |
OUT (254),A |
|
55470 |
XOR 16 |
|
55472 |
LD C,B |
L55438_2 |
55473 |
RRCA |
|
55474 |
RRCA |
|
55475 |
RLCA |
|
55476 |
RLCA |
|
55477 |
DJNZ L55438_2 |
|
55479 |
LD B,C |
|
55480 |
DJNZ L55438_1 |
L55438_3 |
55482 |
LD A,0 |
|
55484 |
IN A,(254) |
|
55486 |
CPL |
|
55487 |
AND 31 |
|
55489 |
JR Z,L55438_3 |
|
55491 |
RET |