35618: Routine at 8B22
| 35618 |
LD A,(46834) |
| 35621 |
AND A |
| 35622 |
RET Z |
| 35623 |
PUSH HL |
| 35624 |
PUSH DE |
| 35625 |
PUSH BC |
| 35626 |
LD D,1 |
| 35628 |
LD HL,20512 |
| 35631 |
XOR A |
| 35632 |
LD E,A |
| 35633 |
OUT (251),A |
| 35635 |
IN A,(251) |
| 35637 |
ADD A,A |
| 35638 |
JP M,35700 |
| 35641 |
JR NC,35635 |
| 35643 |
PUSH HL |
| 35644 |
PUSH DE |
| 35645 |
LD A,D |
| 35646 |
CP 2 |
| 35648 |
SBC A,A |
| 35649 |
AND E |
| 35650 |
RLCA |
| 35651 |
AND E |
| 35652 |
LD D,A |
| 35653 |
LD C,(HL) |
| 35654 |
PUSH HL |
| 35655 |
LD B,8 |
| 35657 |
LD A,D |
| 35658 |
RLC C |
| 35660 |
RRA |
| 35661 |
LD H,A |
| 35662 |
IN A,(251) |
| 35664 |
RRA |
| 35665 |
JR NC,35662 |
| 35667 |
LD A,H |
| 35668 |
OUT (251),A |
| 35670 |
DJNZ 35657 |
| 35672 |
POP HL |
| 35673 |
INC HL |
| 35674 |
LD A,L |
| 35675 |
AND 31 |
| 35677 |
JR NZ,35653 |
| 35679 |
IN A,(251) |
| 35681 |
RRA |
| 35682 |
JR NC,35679 |
| 35684 |
LD A,D |
| 35685 |
RRCA |
| 35686 |
OUT (251),A |
| 35688 |
POP DE |
| 35689 |
POP HL |
| 35690 |
INC H |
| 35691 |
INC E |
| 35692 |
BIT 3,E |
| 35694 |
JR Z,35633 |
| 35696 |
LD A,4 |
| 35698 |
OUT (251),A |
| 35700 |
POP BC |
| 35701 |
POP DE |
| 35702 |
POP HL |
| 35703 |
RET |
