Prev: 30143 Up: Map Next: 31154
30230: Routine at 7616
Used by the routines at TitleScreen and StartGame.
30230 LD A,(26353)
30233 CP 4
30235 JR NZ,30240
30237 CALL 27171
30240 LD DE,26077
30243 LD HL,(26255)
30246 LD A,(26257)
30249 OR A
30250 JR NZ,30284
30252 LD A,(26353)
30255 AND 4
30257 LD A,7
30259 JR NZ,30262
30261 ADD A,A
30262 PUSH AF
30263 SUB L
30264 EX AF,AF'
30265 POP AF
30266 CP L
30267 JR NZ,30284
30269 PUSH HL
30270 LD HL,26306
30273 INC (HL)
30274 LD A,(HL)
30275 SUB 20
30277 POP HL
30278 JR NZ,30284
30280 INC A
30281 LD (26257),A
30284 ADD HL,HL
30285 ADD HL,DE
30286 PUSH HL
30287 LD E,(HL)
30288 INC HL
30289 LD D,(HL)
30290 LD A,D
30291 OR A
30292 JR NZ,30306
30294 EX AF,AF'
30295 JR NZ,30302
30297 LD A,1
30299 LD (26257),A
30302 POP AF
30303 JP 31121
30306 PUSH DE
30307 LD A,(26353)
30310 BIT 1,A
30312 JP NZ,30461
30315 AND 4
30317 JR Z,30326
30319 LD A,(26257)
30322 OR A
30323 JP NZ,30461
30326 LD BC,26308
30329 LD HL,(26255)
30332 ADD HL,BC
30333 LD A,(HL)
30334 OR A
30335 JR NZ,30451
30337 LD A,(26257)
30340 OR A
30341 JR Z,30354
30343 CALL 26382
30346 CP 213
30348 JR NZ,30411
30350 LD (HL),60
30352 JR 30446
30354 LD A,(26261)
30357 AND 1
30359 JR NZ,30364
30361 POP AF
30362 POP AF
30363 RET
30364 LD BC,26199
30367 LD A,(26353)
30370 OR A
30371 JR Z,30383
30373 LD BC,26214
30376 CP 1
30378 JR Z,30383
30380 LD BC,26229
30383 LD HL,(26255)
30386 ADD HL,BC
30387 LD A,(HL)
30388 CP E
30389 JR Z,30446
30391 LD HL,26255
30394 LD A,(HL)
30395 OR A
30396 JR NZ,30410
30398 LD A,(26353)
30401 AND 6
30403 LD A,15
30405 JR Z,30409
30407 LD A,8
30409 LD (HL),A
30410 DEC (HL)
30411 CALL ConvertScreenToAttributeBufferAddress
30414 EX DE,HL
30415 LD BC,32
30418 LD A,(26307)
30421 OR A
30422 LD A,L
30423 JR NZ,30436
30425 AND 31
30427 JP NZ,30720
30430 INC A
30431 LD (26307),A
30434 JR 30446
30436 AND 31
30438 SUB 29
30440 JP NZ,30751
30443 LD (26307),A
30446 POP AF
30447 POP AF
30448 JP 31134
30451 CP 1
30453 JR NZ,30460
30455 LD A,D
30456 CP 72
30458 JR NZ,30461
30460 DEC (HL)
30461 LD BC,26240
30464 LD HL,(26255)
30467 ADD HL,BC
30468 LD A,(HL)
30469 PUSH AF
30470 LD A,(26257)
30473 OR A
30474 JR NZ,30594
30476 POP AF
30477 PUSH HL
30478 PUSH AF
30479 LD A,E
30480 AND 31
30482 PUSH AF
30483 CP 10
30485 JR Z,30499
30487 CP 13
30489 JR Z,30499
30491 CP 16
30493 JR Z,30499
30495 CP 19
30497 JR NZ,30504
30499 LD A,2
30501 LD (26258),A
30504 BIT 7,D
30506 JR NZ,30523
30508 POP AF
30509 CP 29
30511 JR NZ,30520
30513 SET 7,D
30515 POP AF
30516 INC A
30517 PUSH AF
30518 JR 30534
30520 INC DE
30521 JR 30535
30523 POP AF
30524 OR A
30525 JR NZ,30534
30527 RES 7,D
30529 POP AF
30530 INC A
30531 PUSH AF
30532 JR 30520
30534 DEC DE
30535 POP AF
30536 POP HL
30537 LD (HL),A
30538 POP HL
30539 PUSH AF
30540 PUSH DE
30541 EX DE,HL
30542 RES 7,D
30544 CALL 30052
30547 POP DE
30548 POP AF
30549 PUSH DE
30550 RES 7,D
30552 OR A
30553 CALL Z,30135
30556 CP 1
30558 CALL Z,30140
30561 CP 2
30563 CALL Z,30151
30566 CP 3
30568 JR NZ,30590
30570 LD A,1
30572 LD (26257),A
30575 CALL 30167
30578 LD HL,26240
30581 LD DE,26241
30584 LD BC,14
30587 LD (HL),B
30588 LDIR
30590 POP DE
30591 JP 31117
30594 POP AF
30595 PUSH AF
30596 AND 240
30598 JR NZ,30614
30600 POP AF
30601 CALL 26382
30604 SRA A
30606 SRA A
30608 AND 7
30610 ADD A,128
30612 JR 30615
30614 POP AF
30615 SUB 16
30617 LD (HL),A
30618 AND 7
30620 PUSH AF
30621 CALL ConvertScreenToAttributeBufferAddress
30624 EX DE,HL
30625 LD BC,32
30628 PUSH HL
30629 PUSH BC
30630 LD B,3
30632 LD A,(HL)
30633 CP 70
30635 JR Z,30660
30637 CP 7
30639 JR Z,30660
30641 INC HL
30642 DJNZ 30632
30644 DEC HL
30645 DEC HL
30646 POP BC
30647 ADD HL,BC
30648 LD A,(HL)
30649 CP 70
30651 JR Z,30661
30653 CP 7
30655 JR Z,30661
30657 POP HL
30658 JR 30682
30660 POP BC
30661 POP DE
30662 CALL 29099
30665 LD DE,26077
30668 LD HL,(26255)
30671 ADD HL,HL
30672 ADD HL,DE
30673 INC HL
30674 LD (HL),0
30676 POP AF
30677 POP AF
30678 POP AF
30679 JP 31134
30682 POP AF
30683 JR Z,30805
30685 CP 7
30687 JR Z,30751
30689 CP 6
30691 JR Z,30720
30693 CP 4
30695 JP Z,30918
30698 CP 2
30700 JP Z,30918
30703 AND A
30704 SBC HL,BC
30706 PUSH HL
30707 LD B,3
30709 LD A,(HL)
30710 OR A
30711 JR NZ,30788
30713 INC HL
30714 DJNZ 30709
30716 POP HL
30717 JP 31077
30720 LD A,L
30721 AND 31
30723 JR Z,30789
30725 ADD HL,BC
30726 LD A,(HL)
30727 OR A
30728 JR NZ,30789
30730 DEC HL
30731 SBC HL,BC
30733 LD A,(HL)
30734 OR A
30735 JR Z,30748
30737 LD A,(26259)
30740 OR A
30741 JR NZ,30789
30743 LD A,(HL)
30744 CP 70
30746 JR NZ,30789
30748 JP 31077
30751 LD A,L
30752 AND 31
30754 CP 29
30756 JR Z,30789
30758 INC HL
30759 PUSH HL
30760 INC HL
30761 ADD HL,BC
30762 LD A,(HL)
30763 OR A
30764 JR NZ,30788
30766 INC HL
30767 SBC HL,BC
30769 LD A,(HL)
30770 OR A
30771 JR Z,30784
30773 LD A,(26259)
30776 OR A
30777 JR NZ,30788
30779 LD A,(HL)
30780 CP 70
30782 JR NZ,30788
30784 POP HL
30785 JP 31077
30788 POP AF
30789 POP AF
30790 POP AF
30791 LD BC,26240
30794 LD HL,(26255)
30797 ADD HL,BC
30798 LD A,(HL)
30799 AND 15
30801 LD (HL),A
30802 JP 31121
30805 LD A,L
30806 AND 224
30808 CP 192
30810 JR NZ,30850
30812 LD A,H
30813 CP 90
30815 JR NZ,30850
30817 LD A,(26353)
30820 AND 2
30822 JR Z,30789
30824 LD H,88
30826 LD A,L
30827 SUB 160
30829 LD L,A
30830 PUSH HL
30831 LD B,3
30833 LD A,(HL)
30834 OR A
30835 JR NZ,30788
30837 INC HL
30838 DJNZ 30833
30840 LD C,32
30842 ADD HL,BC
30843 DEC HL
30844 LD A,(HL)
30845 OR A
30846 JR NZ,30788
30848 JR 30901
30850 ADD HL,BC
30851 PUSH HL
30852 LD A,(HL)
30853 OR A
30854 JR Z,30867
30856 LD A,(26259)
30859 OR A
30860 JR NZ,30788
30862 LD A,(HL)
30863 CP 70
30865 JR NZ,30788
30867 INC HL
30868 INC HL
30869 LD A,(HL)
30870 OR A
30871 JR Z,30884
30873 LD A,(26259)
30876 OR A
30877 JR NZ,30788
30879 LD A,(HL)
30880 CP 70
30882 JR NZ,30788
30884 ADD HL,BC
30885 DEC HL
30886 LD A,(HL)
30887 OR A
30888 JR Z,30901
30890 LD A,(26259)
30893 OR A
30894 JR NZ,30788
30896 LD A,(HL)
30897 CP 70
30899 JR NZ,30788
30901 POP HL
30902 CALL ConvertAttributeToScreenBufferAddress
30905 POP DE
30906 PUSH HL
30907 SET 7,D
30909 PUSH DE
30910 RES 7,D
30912 CALL 30052
30915 JP 31088
30918 PUSH HL
30919 LD A,L
30920 AND 31
30922 LD L,A
30923 LD A,(26349)
30926 INC A
30927 AND 31
30929 CP L
30930 POP HL
30931 JR Z,30805
30933 JR NC,31013
30935 LD A,L
30936 AND 31
30938 JP Z,30805
30941 LD A,L
30942 AND 224
30944 CP 192
30946 JR NZ,30954
30948 LD A,H
30949 CP 90
30951 JP Z,30817
30954 ADD HL,BC
30955 DEC HL
30956 PUSH HL
30957 LD A,(HL)
30958 OR A
30959 JR Z,30974
30961 LD A,(26259)
30964 OR A
30965 JP NZ,30788
30968 LD A,(HL)
30969 CP 70
30971 JP NZ,30788
30974 INC HL
30975 LD A,(HL)
30976 OR A
30977 JR Z,30992
30979 LD A,(26259)
30982 OR A
30983 JP NZ,30788
30986 LD A,(HL)
30987 CP 70
30989 JP NZ,30788
30992 ADD HL,BC
30993 LD A,(HL)
30994 OR A
30995 JR Z,31010
30997 LD A,(26259)
31000 OR A
31001 JP NZ,30788
31004 LD A,(HL)
31005 CP 70
31007 JP NZ,30788
31010 POP HL
31011 JR 31077
31013 LD A,L
31014 AND 31
31016 CP 29
31018 JP Z,30805
31021 LD A,L
31022 AND 224
31024 CP 192
31026 JR NZ,31034
31028 LD A,H
31029 CP 90
31031 JP Z,30817
31034 ADD HL,BC
31035 INC HL
31036 PUSH HL
31037 INC HL
31038 LD A,(HL)
31039 OR A
31040 JR Z,31055
31042 LD A,(26259)
31045 OR A
31046 JP NZ,30788
31049 LD A,(HL)
31050 CP 70
31052 JP NZ,30788
31055 INC HL
31056 LD A,(HL)
31057 OR A
31058 JR Z,31070
31060 LD A,(26259)
31063 OR A
31064 JP NZ,30788
31067 LD A,(HL)
31068 CP 70
31070 JP NZ,30788
31073 DEC HL
31074 ADD HL,BC
31075 JR 30993
31077 CALL ConvertAttributeToScreenBufferAddress
31080 POP DE
31081 PUSH HL
31082 PUSH DE
31083 RES 7,D
31085 CALL 30052
31088 POP DE
31089 BIT 7,D
31091 POP DE
31092 LD A,(26353)
31095 JR Z,31107
31097 AND 2
31099 CALL NZ,30167
31102 CALL Z,30125
31105 JR 31117
31107 AND 2
31109 CALL NZ,30162
31112 CALL Z,30130
31115 SET 7,D
31117 POP HL
31118 LD (HL),E
31119 INC HL
31120 LD (HL),D
31121 LD A,(26258)
31124 OR A
31125 JR Z,31134
31127 DEC A
31128 LD (26258),A
31131 JP 30230
31134 LD HL,26255
31137 LD A,(26353)
31140 AND 6
31142 LD A,7
31144 JR NZ,31147
31146 ADD A,A
31147 CP (HL)
31148 JR NZ,31152
31150 LD (HL),255
31152 INC (HL)
31153 RET
Prev: 30143 Up: Map Next: 31154