Routines
Prev: 30281 Up: Map Next: 30710
30401: Routine at 76C1
Used by the routine at 30036.
30401 LD (23367),IX
30405 DI Disables interrupts.
30406 LD HL,(23323)
30409 LD DE,(30291)
30413 LD A,L
30414 SUB E
30415 LD A,H
30416 SBC A,D
30417 JR C,30501
30419 LD IX,30281
30423 LD DE,12
30426 LD B,10
30428 LD A,L
30429 SUB (IX+10)
30432 LD A,H
30433 SBC A,(IX+11)
30436 JR C,30442
30438 ADD IX,DE
30440 DJNZ 30428
30442 PUSH IX
30444 POP HL
30445 OR A
30446 SBC HL,DE
30448 PUSH HL
30449 LD DE,30281
30452 LD A,10
30454 SUB B
30455 ADD A,A
30456 ADD A,A
30457 LD B,A
30458 ADD A,A
30459 ADD A,B
30460 JR Z,30470
30462 LD C,A
30463 LD B,0
30465 LD HL,30293
30468 LDIR
30470 POP HL
30471 LD B,6
30473 LD (HL),128
30475 INC HL
30476 DJNZ 30473
30478 LD A,(23335)
30481 LD (HL),A
30482 INC HL
30483 LD (HL),0
30485 INC HL
30486 LD BC,(23369)
30490 LD (HL),C
30491 INC HL
30492 LD (HL),B
30493 INC HL
30494 LD BC,(23323)
30498 LD (HL),C
30499 INC HL
30500 LD (HL),B
30501 LD IX,(23367)
30505 LD DE,30710 DE=Messaging_SplashScreen
30508 LD BC,104 BC=Characters to print.
30511 CALL 8252 Call PR_STRING.
30514 LD B,10
30516 LD HL,30389
30519 PUSH BC
30520 XOR A
30521 LD (23371),A
30524 LD (23372),A
30527 CALL 30588
30530 PUSH HL
30531 LD HL,23372
30534 INC (HL)
30535 LD A,6
30537 CP (HL)
30538 POP HL
30539 JR NZ,30527
30541 LD B,12
30543 CALL 30691
30546 LD B,19
30548 CALL 30691
30551 LD B,25
30553 CALL 30691
30556 PUSH HL
30557 LD A,48 Print "0" to the screen.
30559 RST 16
30560 LD BC,3 BC=Characters to print.
30563 LD DE,30852 DE=30852
30566 CALL 8252 Call PR_STRING.
30569 POP HL
30570 LD DE,65512
30573 ADD HL,DE
30574 POP BC
30575 DJNZ 30519
30577 LD DE,30783 DE=30783
30580 LD BC,69 BC=Characters to print.
30583 CALL 8252 Call PR_STRING.
30586 EI Enable interrupts.
30587 RET Return.
30588 LD A,(HL)
30589 INC HL
30590 PUSH HL
30591 BIT 7,A
30593 JR NZ,30598
30595 RST 16
30596 POP HL
30597 RET
30598 LD A,(23371)
30601 OR A
30602 JR Z,30608
30604 LD A,32
30606 JR 30676
30608 LD BC,6 BC=Characters to print.
30611 LD DE,30858 DE=30858
30614 CALL 8252 Call PR_STRING.
30617 EI Enable interrupts.
30618 LD A,(23557)
30621 OR A
30622 JR Z,30618
30624 LD A,(23560)
30627 BIT 7,A
30629 JR NZ,30618
30631 CP 13
30633 JR NZ,30642
30635 LD A,32
30637 LD (23371),A
30640 JR 30676
30642 CP 12
30644 JR NZ,30672
30646 LD A,(23372)
30649 OR A
30650 JR Z,30618
30652 DEC A
30653 LD (23372),A
30656 LD DE,30855 DE=30855
30659 LD BC,9 BC=Characters to print.
30662 CALL 8252 Call PR_STRING.
30665 POP HL
30666 DEC HL
30667 PUSH HL
30668 LD (HL),128
30670 JR 30618
30672 CP 32
30674 JR C,30618
30676 PUSH AF
30677 RST 16
30678 LD A,(23557)
30681 OR A
30682 JR NZ,30678
30684 DI
30685 POP AF
30686 POP HL
30687 DEC HL
30688 LD (HL),A
30689 INC HL
30690 RET
30691 PUSH HL
30692 PUSH BC
30693 LD A,23
30695 RST 16
30696 POP AF
30697 RST 16
30698 RST 16
30699 POP HL
30700 LD C,(HL)
30701 INC HL
30702 LD B,(HL)
30703 INC HL
30704 PUSH HL
30705 CALL 6683
30708 POP HL
30709 RET
Prev: 30281 Up: Map Next: 30710