View source for Store unit names and some event block data

<font face='Courier New'>
 
 0013d634: 27bdffe0 addiu r29,r29,0xffe0
 0013d638: afb20018 sw r18,0x0018(r29)
 0013d63c: 00809021 addu r18,r4,r0
 0013d640: afb00010 sw r16,0x0010(r29)
 0013d644: 00a08021 addu r16,r5,r0
 0013d648: afb10014 sw r17,0x0014(r29)
 0013d64c: 00c08821 addu r17,r6,r0
 0013d650: 3c038016 lui r3,0x8016
 0013d654: 94636048 lhu r3,0x6048(r3)
 0013d658: 34020001 ori r2,r0,0x0001
 0013d65c: 10620022 beq r3,r2,0x0013d6e8
 0013d660: afbf001c sw r31,0x001c(r29)
 0013d664: 0c04cd29 jal 0x001334a4			store all unit names
 0013d668: 00000000 nop
 0013d66c: 3c018017 lui r1,0x8017
 0013d670: 00320821 addu r1,r1,r18
 0013d674: 90229220 lbu r2,-0x6de0(r1)		load byte based on r4 input
 0013d678: 3c018016 lui r1,0x8016
 0013d67c: ac226060 sw r2,0x6060(r1)			store byte
 0013d680: 340200ff ori r2,r0,0x00ff
 0013d684: 12020005 beq r16,r2,0x0013d69c	branch if r5 input = 0xff
 0013d688: 00000000 nop
 0013d68c: 3c018015 lui r1,0x8015
 0013d690: a430d08a sh r16,-0x2f76(r1)		store r5 input
 0013d694: 3c018015 lui r1,0x8015
 0013d698: a430d042 sh r16,-0x2fbe(r1)
 0013d69c: 12220005 beq r17,r2,0x0013d6b4	branch if r6 input = 0xff
 0013d6a0: 00000000 nop
 0013d6a4: 3c018015 lui r1,0x8015
 0013d6a8: a431d09a sh r17,-0x2f66(r1)		store r5 input
 0013d6ac: 3c018015 lui r1,0x8015
 0013d6b0: a431d066 sh r17,-0x2f9a(r1)
 0013d6b4: 0c053325 jal 0x0014cc94			get some event block address
 0013d6b8: 34040002 ori r4,r0,0x0002
 0013d6bc: 14400006 bne r2,r0,0x0013d6d8
 0013d6c0: 34040002 ori r4,r0,0x0002
 0013d6c4: 3c058014 lui r5,0x8014
 0013d6c8: 24a5d704 addiu r5,r5,0xd704
 0013d6cc: 0c053228 jal 0x0014c8a0			store some event block data
 0013d6d0: 34040002 ori r4,r0,0x0002
 0013d6d4: 34040002 ori r4,r0,0x0002
 0013d6d8: 02402821 addu r5,r18,r0
 0013d6dc: 00003021 addu r6,r0,r0
 0013d6e0: 0c05328e jal 0x0014ca38
 0013d6e4: 00003821 addu r7,r0,r0
 0013d6e8: 8fbf001c lw r31,0x001c(r29)
 0013d6ec: 8fb20018 lw r18,0x0018(r29)
 0013d6f0: 8fb10014 lw r17,0x0014(r29)
 0013d6f4: 8fb00010 lw r16,0x0010(r29)
 0013d6f8: 27bd0020 addiu r29,r29,0x0020
 0013d6fc: 03e00008 jr r31
 0013d700: 00000000 nop
</font>