Routines
Prev: 53736 Up: Map Next: 54700
53780: Initialise: Samoa
Samoa_Initialise 53780 RET
53781 LD HL,(9510)
53784 INC HL
53785 JR NZ,Samoa_Initialise_0
53787 LD HL,(16186)
53790 JR NZ,Samoa_Initialise_1
53792 LD HL,40993
53795 RST 56
53796 RST 56
53797 LD (HL),E
53798 DEC B
53799 INC HL
53800 DEC B
53801 RLA
53802 ADD HL,BC
53803 DEC DE
53804 DEC B
53805 INC HL
53806 DEC B
53807 RRCA
53808 DEC B
53809 RRCA
53810 ADD HL,BC
53811 RLCA
53812 ADD HL,BC
53813 DEC BC
53814 ADD HL,BC
53815 RRCA
53816 DEC B
53817 DEC BC
53818 DEC B
53819 RLCA
Samoa_Initialise_0 53820 DEC B
53821 INC DE
53822 DEC B
53823 RLCA
53824 DEC C
Samoa_Initialise_1 53825 RLCA
53826 DEC B
53827 RRCA
53828 ADD HL,BC
53829 RLCA
53830 ADD HL,BC
53831 RLCA
53832 DEC C
53833 RLCA
53834 DEC B
53835 RLCA
53836 LD DE,3335
53839 RLCA
53840 ADD HL,BC
53841 RLCA
53842 DEC C
53843 RLCA
53844 DEC B
53845 LD C,8
53847 LD B,8
53849 RLCA
53850 DEC C
53851 RLCA
53852 DEC B
53853 RLCA
53854 LD DE,3335
53857 RLCA
53858 ADD HL,BC
53859 RLCA
53860 DEC C
53861 RLCA
53862 DEC B
53863 LD C,8
53865 LD B,8
53867 LD B,12
53869 LD B,4
53871 LD B,16
53873 LD B,12
53875 LD B,8
53877 LD B,12
53879 LD B,4
53881 LD C,8
53883 LD B,8
53885 LD B,12
53887 LD B,4
53889 LD B,16
53891 RLCA
53892 INC C
53893 LD B,8
53895 LD B,12
53897 LD B,4
53899 LD C,8
53901 LD B,8
53903 RLCA
53904 INC C
53905 LD B,4
53907 LD B,32
53909 LD B,8
53911 RLCA
53912 INC C
53913 LD B,4
53915 LD C,8
53917 LD B,24
53919 RLCA
53920 INC B
53921 LD B,32
53923 LD B,24
53925 LD B,4
53927 LD C,8
53929 LD B,32
53931 RLCA
53932 JR NZ,53940
53934 JR Samoa_Initialise_2
53936 INC B
53937 LD C,8
53939 LD B,68
53941 RLCA
Samoa_Initialise_2 53942 JR Samoa_Initialise_3
53944 INC B
53945 LD C,8
53947 RLCA
53948 LD L,B
53949 LD C,116
Samoa_Initialise_3 53951 LD C,120
53953 NOP
53954 LD A,(HL)
53955 INC A
53956 NOP
53957 NOP
53958 NOP
53959 NOP
53960 NOP
53961 NOP
53962 LD (BC),A
53963 DEC E
53964 LD (BC),A
53965 LD BC,15682
53968 LD BC,15617
53971 RRA
53972 LD C,14
53974 LD A,(BC)
53975 LD A,(BC)
53976 LD (BC),A
53977 LD (BC),A
53978 XOR D
53979 RET M
53980 RET M
53981 CP B
53982 XOR B
53983 XOR B
53984 JR NZ,Samoa_Initialise_5
53986 LD (BC),A
53987 LD (DE),A
53988 DEC B
53989 DEC B
53990 LD (BC),A
53991 LD B,D
53992 LD C,C
53993 LD C,E
53994 EX AF,AF'
53995 INC H
53996 LD B,B
53997 LD B,B
53998 LD BC,16713
54001 INC BC
54002 DJNZ 53908
54004 SUB B
54005 LD B,E
54006 INC H
54007 NOP
54008 EX AF,AF'
54009 LD B,B
54010 DJNZ Samoa_Initialise_4
Samoa_Initialise_4 54012 NOP
54013 LD B,C
54014 LD B,H
54015 LD D,B
54016 NOP
54017 LD (DE),A
Samoa_Initialise_5 54018 NOP
54019 DJNZ Samoa_Initialise_6
54021 ADD A,B
54022 NOP
54023 LD B,B
54024 LD (BC),A
54025 INC H
54026 NOP
54027 NOP
54028 NOP
Samoa_Initialise_6 54029 NOP
54030 NOP
54031 NOP
54032 NOP
54033 NOP
54034 ADD HL,DE
54035 JR Samoa_Initialise_7
54037 JR Samoa_Initialise_9
54039 JR Z,Samoa_Initialise_8
54041 RLA
54042 JR 54117
54044 JR Z,Samoa_Initialise_12
54046 JR Z,54087
54048 ADD HL,SP
54049 JR Z,54089
54051 ADD HL,DE
54052 ADD HL,HL
54053 JR Z,54077
54055 RLA
54056 ADD HL,HL
54057 LD C,B
54058 ADD HL,HL
Samoa_Initialise_7 54059 JR Samoa_Initialise_11
54061 JR Samoa_Initialise_10
Samoa_Initialise_8 54063 ADD HL,SP
Samoa_Initialise_9 54064 JR 54107
54066 JR C,54109
54068 JR Z,54111
54070 LD D,23
54072 INC D
54073 DEC D
54074 LD D,40
54076 LD H,56
54078 LD D,56
54080 ADD HL,DE
54081 JR Samoa_Initialise_13
54083 RLA
54084 JR Samoa_Initialise_14
Samoa_Initialise_10 54086 JR Z,54113
54088 LD D,23
54090 JR Samoa_Initialise_15
54092 RLA
54093 ADD HL,HL
54094 LD D,23
54096 LD (DE),A
54097 INC DE
54098 LD D,23
54100 LD D,23
Samoa_Initialise_11 54102 INC D
Samoa_Initialise_12 54103 LD D,24
Samoa_Initialise_13 54105 RLA
54106 LD D,23
Samoa_Initialise_14 54108 JR Samoa_Initialise_16
54110 LD H,23
54112 LD D,23
Samoa_Initialise_15 54114 INC D
54115 RLA
54116 LD D,23
54118 INC D
54119 LD D,23
54121 INC D
54122 DEC D
54123 ADD HL,HL
54124 INC D
54125 DEC D
54126 ADD HL,DE
54127 LD DE,5396
54130 LD D,23
54132 LD (DE),A
Samoa_Initialise_16 54133 INC D
54134 LD D,23
54136 INC D
54137 DEC D
54138 LD D,23
54140 INC D
54141 INC D
54142 DEC D
54143 LD D,23
54145 LD (DE),A
54146 RLA
54147 INC D
54148 DEC D
54149 LD (DE),A
54150 LD D,23
54152 LD (DE),A
54153 INC DE
54154 ADD HL,HL
54155 LD (DE),A
54156 INC DE
54157 ADD HL,DE
54158 LD DE,4882
54161 INC D
54162 DEC D
54163 ADD HL,DE
54164 LD (DE),A
54165 INC D
54166 DEC D
54167 LD (DE),A
54168 INC DE
54169 INC D
54170 DEC D
54171 LD (5139),HL
54174 DEC D
54175 LD DE,4629
54178 INC DE
54179 ADD HL,DE
54180 INC D
54181 DEC D
54182 LD DE,4409
54185 ADD HL,HL
54186 LD DE,4649
54189 INC DE
54190 ADD HL,HL
54191 LD (DE),A
54192 INC DE
54193 LD DE,4633
54196 INC DE
54197 ADD HL,DE
54198 LD DE,4633
54201 INC DE
54202 LD DE,6419
54205 LD DE,4633
54208 INC DE
54209 LD DE,4409
54212 ADD HL,HL
54213 LD DE,4393
54216 ADD HL,SP
54217 LD DE,4377
54220 LD C,C
54221 LD DE,4409
54224 ADD HL,HL
54225 LD DE,4409
54228 ADD HL,SP
54229 LD DE,4393
54232 ADD HL,HL
54233 LD DE,4409
54236 ADD HL,DE
54237 LD DE,4425
54240 ADD HL,SP
54241 LD DE,4393
54244 ADD HL,SP
54245 LD DE,4409
54248 ADD HL,HL
54249 LD DE,4393
54252 ADD HL,SP
54253 LD DE,4377
54256 LD C,C
54257 LD DE,4409
54260 ADD HL,HL
54261 LD DE,4409
54264 ADD HL,SP
54265 LD DE,4393
54268 ADD HL,HL
54269 LD DE,4409
54272 ADD HL,DE
54273 LD DE,4425
54276 ADD HL,SP
54277 LD DE,4393
54280 ADD HL,SP
54281 LD DE,4409
54284 ADD HL,HL
54285 LD DE,4393
54288 ADD HL,SP
54289 LD DE,4377
54292 LD C,C
54293 DJNZ Samoa_Initialise_17
54295 LD DE,4393
54298 ADD HL,SP
54299 LD DE,4409
54302 ADD HL,HL
54303 LD DE,4137
54306 ADD HL,SP
54307 LD DE,4377
54310 ADC A,C
54311 LD DE,4137
54314 ADD HL,SP
54315 LD DE,4409
54318 ADD HL,HL
54319 LD DE,4201
54322 ADD HL,DE
54323 LD DE,4489
54326 LD L,C
54327 LD DE,4409
54330 ADD HL,HL
54331 LD DE,4233
54334 ADC A,C
54335 LD DE,4457
54338 ADD HL,SP
54339 LD DE,4393
54342 LD SP,HL
54343 ADD HL,HL
54344 DJNZ 54451
54346 DJNZ 54405
54348 LD DE,4137
54351 LD SP,HL
Samoa_Initialise_17 54352 EXX
54353 LD DE,63993
54356 NOP
54357 DAA
54358 LD A,(12837)
54361 LD (HL),D
54362 INC L
54363 INC A
54364 JR NZ,Samoa_Initialise_19
54366 DJNZ Samoa_Initialise_20
54368 DJNZ Samoa_Initialise_24
54370 DJNZ Samoa_Initialise_18
54372 DJNZ Samoa_Initialise_25
54374 DJNZ 54426
54376 DJNZ Samoa_Initialise_22
54378 DJNZ 54430
54380 DJNZ 54432
54382 DJNZ Samoa_Initialise_23
54384 DJNZ Samoa_Initialise_24
54386 DJNZ 54438
54388 DJNZ Samoa_Initialise_21
Samoa_Initialise_18 54390 DJNZ 54458
54392 DJNZ Samoa_Initialise_26
54394 DJNZ 54430
54396 DJNZ Samoa_Initialise_28
54398 DJNZ Samoa_Initialise_29
Samoa_Initialise_19 54400 DJNZ 54436
Samoa_Initialise_20 54402 DJNZ 54438
54404 DJNZ Samoa_Initialise_30
54406 DJNZ 54426
Samoa_Initialise_21 54408 DJNZ 54476
54410 DJNZ 54462
Samoa_Initialise_22 54412 DJNZ Samoa_Initialise_28
54414 DJNZ Samoa_Initialise_31
54416 DJNZ Samoa_Initialise_32
Samoa_Initialise_23 54418 DJNZ 54438
Samoa_Initialise_24 54420 DEC D
54421 LD D,34
54423 DJNZ 54475
54425 DJNZ Samoa_Initialise_27
54427 DJNZ Samoa_Initialise_36
54429 DJNZ 54481
54431 DJNZ 54467
54433 DJNZ 54485
54435 DJNZ Samoa_Initialise_35
54437 DJNZ 54457
54439 DEC D
Samoa_Initialise_25 54440 LD DE,4130
54443 LD (DE),A
Samoa_Initialise_26 54444 DEC D
Samoa_Initialise_27 54445 LD (DE),A
54446 DJNZ Samoa_Initialise_31
Samoa_Initialise_28 54448 DJNZ 54516
Samoa_Initialise_29 54450 DJNZ Samoa_Initialise_37
54452 DJNZ 54488
54454 DJNZ Samoa_Initialise_33
Samoa_Initialise_30 54456 LD (13590),HL
54459 LD D,37
54461 LD DE,4133
54464 LD (DE),A
54465 DEC H
Samoa_Initialise_31 54466 DJNZ Samoa_Initialise_34
Samoa_Initialise_32 54468 LD D,21
54470 LD (5653),HL
54473 DEC D
54474 LD (4625),HL
Samoa_Initialise_33 54477 DEC D
54478 LD D,21
54480 LD (13585),HL
54483 LD DE,4389
Samoa_Initialise_34 54486 DEC H
Samoa_Initialise_35 54487 LD D,53
54489 LD D,21
54491 LD DE,4421
54494 DEC (HL)
Samoa_Initialise_36 54495 LD DE,4389
54498 DEC (HL)
54499 LD DE,4405
Samoa_Initialise_37 54502 DEC H
54503 LD DE,4389
54506 DEC (HL)
54507 LD DE,4373
54510 LD B,L
54511 LD DE,4405
54514 DEC H
54515 LD DE,4405
54518 DEC (HL)
54519 LD DE,4388
54522 INC H
54523 LD DE,4405
54526 DEC D
54527 LD DE,4421
54530 DEC (HL)
54531 LD DE,4389
54534 DEC (HL)
54535 LD DE,4405
54538 INC H
54539 LD DE,4388
54542 INC (HL)
54543 LD DE,4372
54546 LD B,H
54547 LD DE,4404
54550 INC H
54551 LD DE,4404
54554 INC (HL)
54555 LD DE,4388
54558 INC H
54559 LD DE,4404
54562 INC D
54563 LD DE,4420
54566 INC (HL)
54567 LD DE,4388
54570 INC (HL)
54571 LD DE,4404
54574 INC H
54575 LD DE,4388
54578 INC (HL)
54579 LD DE,4372
54582 LD B,H
54583 INC DE
54584 INC (HL)
54585 LD DE,4388
54588 INC (HL)
54589 LD DE,4404
54592 INC H
54593 LD DE,4900
54596 INC (HL)
54597 LD DE,4372
54600 LD B,H
54601 INC DE
54602 INC (HL)
54603 LD DE,4900
54606 INC (HL)
54607 LD DE,4404
54610 INC H
54611 LD DE,4900
54614 INC (HL)
54615 INC DE
54616 INC D
54617 LD DE,4932
54620 INC (HL)
54621 LD DE,4900
54624 INC (HL)
54625 LD DE,4404
54628 INC H
54629 LD DE,4900
54632 INC (HL)
54633 INC DE
54634 INC D
54635 INC DE
54636 LD B,H
54637 INC DE
54638 INC (HL)
54639 LD DE,4900
54642 INC (HL)
54643 LD DE,4404
54646 INC H
54647 LD DE,4900
54650 INC (HL)
54651 INC DE
54652 INC D
54653 INC DE
54654 LD B,H
54655 INC DE
54656 INC (HL)
54657 INC DE
54658 INC H
54659 INC DE
54660 INC (HL)
54661 INC DE
54662 INC (HL)
54663 LD DE,4900
54666 INC H
54667 INC DE
54668 INC (HL)
54669 INC DE
54670 INC D
54671 INC DE
54672 LD B,H
54673 INC DE
54674 INC (HL)
54675 INC DE
54676 INC H
54677 INC DE
54678 INC (HL)
54679 INC DE
54680 INC (HL)
54681 LD DE,4900
54684 INC H
54685 INC DE
54686 INC (HL)
54687 INC DE
54688 INC D
54689 INC DE
54690 LD B,H
54691 INC DE
54692 INC (HL)
54693 INC DE
54694 INC H
54695 INC DE
54696 INC (HL)
54697 INC DE
54698 INC H
54699 NOP
Prev: 53736 Up: Map Next: 54700