34459: Routine at 869B
| 34459 |
DEFB 0 |
| 34460 |
DEFW 0 |
| 34462 |
DEFB 0 |
| 34463 |
DEFB 0 |
| 34464 |
DEFB 0 |
| 34465 |
PUSH HL |
| 34466 |
PUSH BC |
| 34467 |
PUSH AF |
| 34468 |
LD HL,(34460) |
| 34471 |
LD A,(34462) |
| 34474 |
LD C,A |
| 34475 |
LD A,(34464) |
| 34478 |
AND A |
| 34479 |
JR NZ,34502 |
| 34481 |
LD A,(34463) |
| 34484 |
AND A |
| 34485 |
JR Z,34502 |
| 34487 |
LD B,A |
| 34488 |
LD A,32 |
| 34490 |
CALL PrintPropChar |
| 34493 |
LD A,(34459) |
| 34496 |
DEC A |
| 34497 |
LD (34459),A |
| 34500 |
DJNZ 34488 |
| 34502 |
POP AF |
| 34503 |
PUSH AF |
| 34504 |
CP 13 |
| 34506 |
JR NZ,34573 |
| 34508 |
LD A,1 |
| 34510 |
LD (46852),A |
| 34513 |
XOR A |
| 34514 |
LD (34464),A |
| 34517 |
CALL 35618 |
| 34520 |
PUSH BC |
| 34521 |
LD A,(46870) |
| 34524 |
AND A |
| 34525 |
JR NZ,34547 |
| 34527 |
LD BC,32768 |
| 34530 |
XOR A |
| 34531 |
IN A,(254) |
| 34533 |
AND 31 |
| 34535 |
CP 31 |
| 34537 |
JR NZ,34551 |
| 34539 |
DEC BC |
| 34540 |
LD A,B |
| 34541 |
OR C |
| 34542 |
JR NZ,34530 |
| 34544 |
POP BC |
| 34545 |
JR 34561 |
| 34547 |
DEC A |
| 34548 |
LD (46870),A |
| 34551 |
POP BC |
| 34552 |
XOR A |
| 34553 |
IN A,(254) |
| 34555 |
AND 31 |
| 34557 |
CP 31 |
| 34559 |
JR NZ,34552 |
| 34561 |
LD HL,20512 |
| 34564 |
LD C,1 |
| 34566 |
CALL ScrollLine |
| 34569 |
LD A,42 |
| 34571 |
JR 34643 |
| 34573 |
CP 8 |
| 34575 |
JR NZ,34594 |
| 34577 |
CALL 34657 |
| 34580 |
LD A,32 |
| 34582 |
CALL PrintPropChar |
| 34585 |
CALL 34657 |
| 34588 |
LD A,(34459) |
| 34591 |
INC A |
| 34592 |
JR 34643 |
| 34594 |
CP 65 |
| 34596 |
JR C,34604 |
| 34598 |
CP 91 |
| 34600 |
JR NC,34604 |
| 34602 |
OR 32 |
| 34604 |
PUSH HL |
| 34605 |
LD HL,46852 |
| 34608 |
INC (HL) |
| 34609 |
DEC (HL) |
| 34610 |
JR Z,34624 |
| 34612 |
CP 97 |
| 34614 |
JR C,34624 |
| 34616 |
CP 123 |
| 34618 |
JR NC,34624 |
| 34620 |
RES 5,A |
| 34622 |
LD (HL),0 |
| 34624 |
CP 46 |
| 34626 |
JR NZ,34629 |
| 34628 |
INC (HL) |
| 34629 |
POP HL |
| 34630 |
CALL PrintPropChar |
| 34633 |
LD (34464),A |
| 34636 |
LD A,(34459) |
| 34639 |
DEC A |
| 34640 |
JP Z,34513 |
| 34643 |
LD (34459),A |
| 34646 |
LD (34460),HL |
| 34649 |
LD A,C |
| 34650 |
LD (34462),A |
| 34653 |
POP AF |
| 34654 |
POP BC |
| 34655 |
POP HL |
| 34656 |
RET |
| 34657 |
LD A,C |
| 34658 |
SUB 6 |
| 34660 |
LD C,A |
| 34661 |
RET NC |
| 34662 |
ADD A,8 |
| 34664 |
LD C,A |
| 34665 |
DEC L |
| 34666 |
RET |
