.set noat      # allow manual use of $at
.set noreorder # don't insert nops after branches

glabel func_800638E0
/* 3ECE0 800638E0 27BDFFB0 */  addiu     $sp, $sp, -0x50
/* 3ECE4 800638E4 F7B80030 */  sdc1      $f24, 0x30($sp)
/* 3ECE8 800638E8 C7B80060 */  lwc1      $f24, 0x60($sp)
/* 3ECEC 800638EC F7BE0048 */  sdc1      $f30, 0x48($sp)
/* 3ECF0 800638F0 C7BE0064 */  lwc1      $f30, 0x64($sp)
/* 3ECF4 800638F4 F7B60028 */  sdc1      $f22, 0x28($sp)
/* 3ECF8 800638F8 C7B60068 */  lwc1      $f22, 0x68($sp)
/* 3ECFC 800638FC AFB10014 */  sw        $s1, 0x14($sp)
/* 3ED00 80063900 8FB1006C */  lw        $s1, 0x6c($sp)
/* 3ED04 80063904 F7BA0038 */  sdc1      $f26, 0x38($sp)
/* 3ED08 80063908 4485D000 */  mtc1      $a1, $f26
/* 3ED0C 8006390C F7B40020 */  sdc1      $f20, 0x20($sp)
/* 3ED10 80063910 4486A000 */  mtc1      $a2, $f20
/* 3ED14 80063914 AFB00010 */  sw        $s0, 0x10($sp)
/* 3ED18 80063918 F7BC0040 */  sdc1      $f28, 0x40($sp)
/* 3ED1C 8006391C 4487E000 */  mtc1      $a3, $f28
/* 3ED20 80063920 AFBF0018 */  sw        $ra, 0x18($sp)
/* 3ED24 80063924 0C019D20 */  jal       func_80067480
/* 3ED28 80063928 00808021 */   addu     $s0, $a0, $zero
/* 3ED2C 8006392C 461AA001 */  sub.s     $f0, $f20, $f26
/* 3ED30 80063930 3C014000 */  lui       $at, 0x4000
/* 3ED34 80063934 44811000 */  mtc1      $at, $f2
/* 3ED38 80063938 00000000 */  nop
/* 3ED3C 8006393C 46001283 */  div.s     $f10, $f2, $f0
/* 3ED40 80063940 461CC181 */  sub.s     $f6, $f24, $f28
/* 3ED44 80063944 46061083 */  div.s     $f2, $f2, $f6
/* 3ED48 80063948 461EB201 */  sub.s     $f8, $f22, $f30
/* 3ED4C 8006394C 3C01C000 */  lui       $at, 0xc000
/* 3ED50 80063950 44812000 */  mtc1      $at, $f4
/* 3ED54 80063954 00000000 */  nop
/* 3ED58 80063958 46082103 */  div.s     $f4, $f4, $f8
/* 3ED5C 8006395C 461AA500 */  add.s     $f20, $f20, $f26
/* 3ED60 80063960 4600A507 */  neg.s     $f20, $f20
/* 3ED64 80063964 4600A503 */  div.s     $f20, $f20, $f0
/* 3ED68 80063968 461CC600 */  add.s     $f24, $f24, $f28
/* 3ED6C 8006396C 4600C607 */  neg.s     $f24, $f24
/* 3ED70 80063970 4606C603 */  div.s     $f24, $f24, $f6
/* 3ED74 80063974 461EB580 */  add.s     $f22, $f22, $f30
/* 3ED78 80063978 4600B587 */  neg.s     $f22, $f22
/* 3ED7C 8006397C 4608B583 */  div.s     $f22, $f22, $f8
/* 3ED80 80063980 3C013F80 */  lui       $at, 0x3f80
/* 3ED84 80063984 44810000 */  mtc1      $at, $f0
/* 3ED88 80063988 00002821 */  addu      $a1, $zero, $zero
/* 3ED8C 8006398C E600003C */  swc1      $f0, 0x3c($s0)
/* 3ED90 80063990 E60A0000 */  swc1      $f10, ($s0)
/* 3ED94 80063994 E6140030 */  swc1      $f20, 0x30($s0)
/* 3ED98 80063998 E6020014 */  swc1      $f2, 0x14($s0)
/* 3ED9C 8006399C E6040028 */  swc1      $f4, 0x28($s0)
/* 3EDA0 800639A0 E6180034 */  swc1      $f24, 0x34($s0)
/* 3EDA4 800639A4 E6160038 */  swc1      $f22, 0x38($s0)
.L800639A8:
/* 3EDA8 800639A8 00002021 */  addu      $a0, $zero, $zero
/* 3EDAC 800639AC 02001821 */  addu      $v1, $s0, $zero
.L800639B0:
/* 3EDB0 800639B0 C4600000 */  lwc1      $f0, ($v1)
/* 3EDB4 800639B4 44916000 */  mtc1      $s1, $f12
/* 3EDB8 800639B8 00000000 */  nop
/* 3EDBC 800639BC 460C0002 */  mul.s     $f0, $f0, $f12
/* 3EDC0 800639C0 24840001 */  addiu     $a0, $a0, 1
/* 3EDC4 800639C4 28820004 */  slti      $v0, $a0, 4
/* 3EDC8 800639C8 E4600000 */  swc1      $f0, ($v1)
/* 3EDCC 800639CC 1440FFF8 */  bnez      $v0, .L800639B0
/* 3EDD0 800639D0 24630004 */   addiu    $v1, $v1, 4
/* 3EDD4 800639D4 24A50001 */  addiu     $a1, $a1, 1
/* 3EDD8 800639D8 28A20004 */  slti      $v0, $a1, 4
/* 3EDDC 800639DC 1440FFF2 */  bnez      $v0, .L800639A8
/* 3EDE0 800639E0 26100010 */   addiu    $s0, $s0, 0x10
/* 3EDE4 800639E4 8FBF0018 */  lw        $ra, 0x18($sp)
/* 3EDE8 800639E8 8FB10014 */  lw        $s1, 0x14($sp)
/* 3EDEC 800639EC 8FB00010 */  lw        $s0, 0x10($sp)
/* 3EDF0 800639F0 D7BE0048 */  ldc1      $f30, 0x48($sp)
/* 3EDF4 800639F4 D7BC0040 */  ldc1      $f28, 0x40($sp)
/* 3EDF8 800639F8 D7BA0038 */  ldc1      $f26, 0x38($sp)
/* 3EDFC 800639FC D7B80030 */  ldc1      $f24, 0x30($sp)
/* 3EE00 80063A00 D7B60028 */  ldc1      $f22, 0x28($sp)
/* 3EE04 80063A04 D7B40020 */  ldc1      $f20, 0x20($sp)
/* 3EE08 80063A08 03E00008 */  jr        $ra
/* 3EE0C 80063A0C 27BD0050 */   addiu    $sp, $sp, 0x50