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

glabel func_8003B000
/* 16400 8003B000 44857000 */  mtc1      $a1, $f14
/* 16404 8003B004 3C038007 */  lui       $v1, %hi(D_800773E0)
/* 16408 8003B008 8C6373E0 */  lw        $v1, %lo(D_800773E0)($v1)
/* 1640C 8003B00C 27BDFFE8 */  addiu     $sp, $sp, -0x18
/* 16410 8003B010 AFB00010 */  sw        $s0, 0x10($sp)
/* 16414 8003B014 0080802D */  daddu     $s0, $a0, $zero
/* 16418 8003B018 AFBF0014 */  sw        $ra, 0x14($sp)
/* 1641C 8003B01C 00031080 */  sll       $v0, $v1, 2
/* 16420 8003B020 00431021 */  addu      $v0, $v0, $v1
/* 16424 8003B024 00021080 */  sll       $v0, $v0, 2
/* 16428 8003B028 00431023 */  subu      $v0, $v0, $v1
/* 1642C 8003B02C 000218C0 */  sll       $v1, $v0, 3
/* 16430 8003B030 00431021 */  addu      $v0, $v0, $v1
/* 16434 8003B034 000210C0 */  sll       $v0, $v0, 3
/* 16438 8003B038 E60E000C */  swc1      $f14, 0xc($s0)
/* 1643C 8003B03C 3C01800B */  lui       $at, %hi(D_800B1DCC)
/* 16440 8003B040 00220821 */  addu      $at, $at, $v0
/* 16444 8003B044 C42C1DCC */  lwc1      $f12, %lo(D_800B1DCC)($at)
/* 16448 8003B048 0C00A6FA */  jal       func_80029BE8
/* 1644C 8003B04C 00000000 */   nop
/* 16450 8003B050 44801000 */  mtc1      $zero, $f2
/* 16454 8003B054 00000000 */  nop
/* 16458 8003B058 4600103E */  c.le.s    $f2, $f0
/* 1645C 8003B05C 00000000 */  nop
/* 16460 8003B060 45000005 */  bc1f      .L8003B078
/* 16464 8003B064 240200B4 */   addiu    $v0, $zero, 0xb4
/* 16468 8003B068 A602008A */  sh        $v0, 0x8a($s0)
/* 1646C 8003B06C 24020001 */  addiu     $v0, $zero, 1
/* 16470 8003B070 0800EC20 */  j         .L8003B080
/* 16474 8003B074 A6020088 */   sh       $v0, 0x88($s0)
.L8003B078:
/* 16478 8003B078 A600008A */  sh        $zero, 0x8a($s0)
/* 1647C 8003B07C A6000088 */  sh        $zero, 0x88($s0)
.L8003B080:
/* 16480 8003B080 8FBF0014 */  lw        $ra, 0x14($sp)
/* 16484 8003B084 8FB00010 */  lw        $s0, 0x10($sp)
/* 16488 8003B088 03E00008 */  jr        $ra
/* 1648C 8003B08C 27BD0018 */   addiu    $sp, $sp, 0x18