Camera Zoom

#   ROUTINE: Camera zoom
#       Parameters:
#           r4 = (p1) (Sometimes -0x7ffa)
#           r5 = SoundEffectID (17 = Zoom Out, 14 = Zoom In)
#           r6 = (p3) (Sometimes 0x6000)
#           r7 = (p4) (Sometimes 0x4000)

80013b20: 27bdff98 addiu r29,r29,-0x0068
80013b24: afb50054 sw r21,0x0054(r29)
80013b28: 3c158003 lui r21,0x8003
80013b2c: 8eb52a00 lw r21,0x2a00(r21)
80013b30: 00004021 addu r8,r0,r0
80013b34: afb7005c sw r23,0x005c(r29)
80013b38: afa50010 sw r5,0x0010(r29)
80013b3c: 00051c03 sra r3,r5,0x10
80013b40: afbf0064 sw r31,0x0064(r29)
80013b44: afbe0060 sw r30,0x0060(r29)
80013b48: afb60058 sw r22,0x0058(r29)
80013b4c: afb40050 sw r20,0x0050(r29)
80013b50: afb3004c sw r19,0x004c(r29)
80013b54: afb20048 sw r18,0x0048(r29)
80013b58: afb10044 sw r17,0x0044(r29)
80013b5c: afb00040 sw r16,0x0040(r29)
80013b60: a7a60018 sh r6,0x0018(r29)
80013b64: afa00028 sw r0,0x0028(r29)
80013b68: a7a70020 sh r7,0x0020(r29)
80013b6c: 96a2000a lhu r2,0x000a(r21)
80013b70: 3c128003 lui r18,0x8003
80013b74: 8e522a60 lw r18,0x2a60(r18)
80013b78: 10430009 beq r2,r3,0x80013ba0
80013b7c: 0000b821 addu r23,r0,r0
80013b80: 8eb50010 lw r21,0x0010(r21)
80013b84: 00000000 nop
80013b88: 12a000ed beq r21,r0,0x80013f40
80013b8c: 00000000 nop
80013b90: 96a2000a lhu r2,0x000a(r21)
80013b94: 00000000 nop
80013b98: 1443fff9 bne r2,r3,0x80013b80
80013b9c: 00000000 nop
80013ba0: 3c148003 lui r20,0x8003
80013ba4: 8e942a44 lw r20,0x2a44(r20)
80013ba8: 00000000 nop
80013bac: 1280000e beq r20,r0,0x80013be8
80013bb0: 00000000 nop
80013bb4: 86430018 lh r3,0x0018(r18)
80013bb8: 96820020 lhu r2,0x0020(r20)
80013bbc: 00000000 nop
80013bc0: 10430005 beq r2,r3,0x80013bd8
80013bc4: 00000000 nop
80013bc8: 8e94002c lw r20,0x002c(r20)
80013bcc: 00000000 nop
80013bd0: 1680fff9 bne r20,r0,0x80013bb8
80013bd4: 00000000 nop
80013bd8: 16800003 bne r20,r0,0x80013be8
80013bdc: 00000000 nop
80013be0: 3c148003 lui r20,0x8003
80013be4: 8e942a44 lw r20,0x2a44(r20)
80013be8: 97a90018 lhu r9,0x0018(r29)
80013bec: 96a2000c lhu r2,0x000c(r21)
80013bf0: 00091c00 sll r3,r9,0x10
80013bf4: 8fa90010 lw r9,0x0010(r29)
80013bf8: 02a21021 addu r2,r21,r2
80013bfc: 3125ffff andi r5,r9,0xffff
80013c00: 00451021 addu r2,r2,r5
80013c04: 90420000 lbu r2,0x0000(r2)
80013c08: 00031c03 sra r3,r3,0x10
80013c0c: 00620018 mult r3,r2
80013c10: 00001012 mflo r2
80013c14: 000211c2 srl r2,r2,0x07
80013c18: a7a20018 sh r2,0x0018(r29)
80013c1c: 000213c2 srl r2,r2,0x0f
80013c20: 30420001 andi r2,r2,0x0001
80013c24: 10400003 beq r2,r0,0x80013c34
80013c28: 308300ff andi r3,r4,0x00ff
80013c2c: 34097fff ori r9,r0,0x7fff
80013c30: a7a90018 sh r9,0x0018(r29)
80013c34: 00044a02 srl r9,r4,0x08
80013c38: 00051080 sll r2,r5,0x02
80013c3c: 24420014 addiu r2,r2,0x0014
80013c40: 02a2b021 addu r22,r21,r2
80013c44: 34020001 ori r2,r0,0x0001
80013c48: 0062f004 sllv r30,r2,r3
80013c4c: 00031040 sll r2,r3,0x01
80013c50: 00431021 addu r2,r2,r3
80013c54: 00021080 sll r2,r2,0x02
80013c58: 00431023 subu r2,r2,r3
80013c5c: 00021140 sll r2,r2,0x05
80013c60: 244200b8 addiu r2,r2,0x00b8
80013c64: 02428821 addu r17,r18,r2
80013c68: 3c048003 lui r4,0x8003
80013c6c: 8c842a5c lw r4,0x2a5c(r4)
80013c70: 3c138003 lui r19,0x8003
80013c74: 867329f0 lh r19,0x29f0(r19)
80013c78: 26300034 addiu r16,r17,0x0034
80013c7c: a3a90030 sb r9,0x0030(r29)
80013c80: 0c0087f1 jal 0x80021fc4
80013c84: afa80038 sw r8,0x0038(r29)
80013c88: 8fa80038 lw r8,0x0038(r29)
80013c8c: 8fa90010 lw r9,0x0010(r29)
80013c90: 3c028003 lui r2,0x8003
80013c94: 8c422a2c lw r2,0x2a2c(r2)
80013c98: ae09ffd4 sw r9,-0x002c(r16)
80013c9c: 93a90030 lbu r9,0x0030(r29)
80013ca0: ae02ffdc sw r2,-0x0024(r16)
80013ca4: a209ffd9 sb r9,-0x0027(r16)
80013ca8: 96c20000 lhu r2,0x0000(r22)
80013cac: 00000000 nop
80013cb0: 10400038 beq r2,r0,0x80013d94
80013cb4: 34060003 ori r6,r0,0x0003
80013cb8: 8fa90028 lw r9,0x0028(r29)
80013cbc: 34020409 ori r2,r0,0x0409
80013cc0: 013e4825 or r9,r9,r30
80013cc4: afa90028 sw r9,0x0028(r29)
80013cc8: 8e040000 lw r4,0x0000(r16)
80013ccc: 26250060 addiu r5,r17,0x0060
80013cd0: a6220000 sh r2,0x0000(r17)
80013cd4: 34020100 ori r2,r0,0x0100
80013cd8: a602ffce sh r2,-0x0032(r16)
80013cdc: a600ffd2 sh r0,-0x002e(r16)
80013ce0: 96c30000 lhu r3,0x0000(r22)
80013ce4: 3402003c ori r2,r0,0x003c
80013ce8: a602004a sh r2,0x004a(r16)
80013cec: 3402000f ori r2,r0,0x000f
80013cf0: a6020046 sh r2,0x0046(r16)
80013cf4: 3402ffff ori r2,r0,0xffff
80013cf8: ae00ffe8 sw r0,-0x0018(r16)
80013cfc: ae00fff0 sw r0,-0x0010(r16)
80013d00: a600fff4 sh r0,-0x000c(r16)
80013d04: a200fff6 sb r0,-0x000a(r16)
80013d08: a6000040 sh r0,0x0040(r16)
80013d0c: a2000042 sb r0,0x0042(r16)
80013d10: a6000052 sh r0,0x0052(r16)
80013d14: a2000048 sb r0,0x0048(r16)
80013d18: a6020078 sh r2,0x0078(r16)
80013d1c: 97a90018 lhu r9,0x0018(r29)
80013d20: 3c027f00 lui r2,0x7f00
80013d24: ae020064 sw r2,0x0064(r16)
80013d28: 01044025 or r8,r8,r4
80013d2c: a6090060 sh r9,0x0060(r16)
80013d30: 97a90020 lhu r9,0x0020(r29)
80013d34: 02a31821 addu r3,r21,r3
80013d38: a600005c sh r0,0x005c(r16)
80013d3c: a6000054 sh r0,0x0054(r16)
80013d40: a6000056 sh r0,0x0056(r16)
80013d44: a6000058 sh r0,0x0058(r16)
80013d48: a600000c sh r0,0x000c(r16)
80013d4c: a600000e sh r0,0x000e(r16)
80013d50: ae03ffe0 sw r3,-0x0020(r16)
80013d54: ae03ffe4 sw r3,-0x001c(r16)
80013d58: a609005e sh r9,0x005e(r16)
80013d5c: a4a000fe sh r0,0x00fe(r5)
80013d60: 24c6ffff addiu r6,r6,-0x0001
80013d64: 04c1fffd bgez r6,0x80013d5c
80013d68: 24a5ffe0 addiu r5,r5,-0x0020
80013d6c: 12800012 beq r20,r0,0x80013db8
80013d70: ae14fffc sw r20,-0x0004(r16)
80013d74: 3c048003 lui r4,0x8003
80013d78: 84842a1c lh r4,0x2a1c(r4)
80013d7c: 02202821 addu r5,r17,r0
80013d80: 0c005bed jal 0x80016fb4
80013d84: afa80038 sw r8,0x0038(r29)
80013d88: 8fa80038 lw r8,0x0038(r29)
80013d8c: 08004f6f j 0x80013dbc
80013d90: 26d60002 addiu r22,r22,0x0002
80013d94: 96220000 lhu r2,0x0000(r17)
80013d98: 00000000 nop
80013d9c: 30420001 andi r2,r2,0x0001
80013da0: 10400004 beq r2,r0,0x80013db4
80013da4: 00000000 nop
80013da8: 8e020000 lw r2,0x0000(r16)
80013dac: 00000000 nop
80013db0: 02e2b825 or r23,r23,r2
80013db4: a6200000 sh r0,0x0000(r17)
80013db8: 26d60002 addiu r22,r22,0x0002
80013dbc: 001ef040 sll r30,r30,0x01
80013dc0: 26100160 addiu r16,r16,0x0160
80013dc4: 2673ffff addiu r19,r19,-0x0001
80013dc8: 1660ffb0 bne r19,r0,0x80013c8c
80013dcc: 26310160 addiu r17,r17,0x0160
80013dd0: 3c038003 lui r3,0x8003
80013dd4: 8c632a14 lw r3,0x2a14(r3)
80013dd8: 3c028003 lui r2,0x8003
80013ddc: 8c422a10 lw r2,0x2a10(r2)
80013de0: 8fa90028 lw r9,0x0028(r29)
80013de4: 01031825 or r3,r8,r3
80013de8: 02e3b825 or r23,r23,r3
80013dec: 00021027 nor r2,r0,r2
80013df0: 8e430058 lw r3,0x0058(r18)
80013df4: 00172027 nor r4,r0,r23
80013df8: 00431024 and r2,r2,r3
80013dfc: 01221025 or r2,r9,r2
80013e00: ae420058 sw r2,0x0058(r18)
80013e04: 8e420064 lw r2,0x0064(r18)
80013e08: 8e430060 lw r3,0x0060(r18)
80013e0c: 00821024 and r2,r4,r2
80013e10: ae420064 sw r2,0x0064(r18)
80013e14: 3c028003 lui r2,0x8003
80013e18: 8c422a20 lw r2,0x2a20(r2)
80013e1c: 00831824 and r3,r4,r3
80013e20: ae430060 sw r3,0x0060(r18)
80013e24: 3c038003 lui r3,0x8003
80013e28: 8c632a0c lw r3,0x2a0c(r3)
80013e2c: 02e21025 or r2,r23,r2
80013e30: 00831824 and r3,r4,r3
80013e34: 3c018003 lui r1,0x8003
80013e38: ac222a20 sw r2,0x2a20(r1)
80013e3c: 8e420068 lw r2,0x0068(r18)
80013e40: 01031825 or r3,r8,r3
80013e44: 3c018003 lui r1,0x8003
80013e48: ac232a0c sw r3,0x2a0c(r1)
80013e4c: 00821024 and r2,r4,r2
80013e50: ae420068 sw r2,0x0068(r18)
80013e54: 8e42006c lw r2,0x006c(r18)
80013e58: 8e430070 lw r3,0x0070(r18)
80013e5c: 00821024 and r2,r4,r2
80013e60: 00832024 and r4,r4,r3
80013e64: ae42006c sw r2,0x006c(r18)
80013e68: 3c028003 lui r2,0x8003
80013e6c: 94422a4c lhu r2,0x2a4c(r2)
80013e70: 96430010 lhu r3,0x0010(r18)
80013e74: 3c018003 lui r1,0x8003
80013e78: ac202a10 sw r0,0x2a10(r1)
80013e7c: 3c018003 lui r1,0x8003
80013e80: ac202a14 sw r0,0x2a14(r1)
80013e84: ae440070 sw r4,0x0070(r18)
80013e88: 34420007 ori r2,r2,0x0007
80013e8c: 34638000 ori r3,r3,0x8000
80013e90: 3c018003 lui r1,0x8003
80013e94: a4222a4c sh r2,0x2a4c(r1)
80013e98: 11000025 beq r8,r0,0x80013f30
80013e9c: a6430010 sh r3,0x0010(r18)
80013ea0: 3c128003 lui r18,0x8003
80013ea4: 8e522a50 lw r18,0x2a50(r18)
80013ea8: 00000000 nop
80013eac: 12400020 beq r18,r0,0x80013f30
80013eb0: 00000000 nop
80013eb4: 96430010 lhu r3,0x0010(r18)
80013eb8: 00000000 nop
80013ebc: 30620001 andi r2,r3,0x0001
80013ec0: 10400017 beq r2,r0,0x80013f20
80013ec4: 00031400 sll r2,r3,0x10
80013ec8: 04410015 bgez r2,0x80013f20
80013ecc: 00000000 nop
80013ed0: 265100b8 addiu r17,r18,0x00b8
80013ed4: 92530016 lbu r19,0x0016(r18)
80013ed8: 264300bc addiu r3,r18,0x00bc
80013edc: 96220000 lhu r2,0x0000(r17)
80013ee0: 00000000 nop
80013ee4: 30420001 andi r2,r2,0x0001
80013ee8: 1040000a beq r2,r0,0x80013f14
80013eec: 26310160 addiu r17,r17,0x0160
80013ef0: 8c620030 lw r2,0x0030(r3)
80013ef4: 00000000 nop
80013ef8: 01021024 and r2,r8,r2
80013efc: 10400005 beq r2,r0,0x80013f14
80013f00: 00000000 nop
80013f04: 94620000 lhu r2,0x0000(r3)
80013f08: 00000000 nop
80013f0c: 344271ff ori r2,r2,0x71ff
80013f10: a4620000 sh r2,0x0000(r3)
80013f14: 2673ffff addiu r19,r19,-0x0001
80013f18: 1660fff0 bne r19,r0,0x80013edc
80013f1c: 24630160 addiu r3,r3,0x0160
80013f20: 8e520000 lw r18,0x0000(r18)
80013f24: 00000000 nop
80013f28: 1640ffe2 bne r18,r0,0x80013eb4
80013f2c: 00000000 nop
80013f30: 3c048003 lui r4,0x8003
80013f34: 8c842a5c lw r4,0x2a5c(r4)
80013f38: 0c0087ed jal 0x80021fb4
80013f3c: 00000000 nop
80013f40: 8fbf0064 lw r31,0x0064(r29)
80013f44: 8fbe0060 lw r30,0x0060(r29)
80013f48: 8fb7005c lw r23,0x005c(r29)
80013f4c: 8fb60058 lw r22,0x0058(r29)
80013f50: 8fb50054 lw r21,0x0054(r29)
80013f54: 8fb40050 lw r20,0x0050(r29)
80013f58: 8fb3004c lw r19,0x004c(r29)
80013f5c: 8fb20048 lw r18,0x0048(r29)
80013f60: 8fb10044 lw r17,0x0044(r29)
80013f64: 8fb00040 lw r16,0x0040(r29)
80013f68: 27bd0068 addiu r29,r29,0x0068
80013f6c: 03e00008 jr r31
80013f70: 00000000 nop