.seg  "text"
          .global rd_arr, rd_minf, rd_pinf, rd_zero
rd_near: 
          st     %fsr,[%sp + 0x44]
          ld     [%sp + 0x44],%o0
          set    0x3FFFFFFF,%o2
          and    %o0,%o2,%o0
          st     %o0,[%sp + 0x44]
          retl
          ld     [%sp + 0x44],%fsr

rd_minf: 
          st     %fsr,[%sp + 0x44]
          ld     [%sp + 0x44],%o0
          set    0xC0000000,%o2
          or     %o0,%o2,%o0
          st     %o0,[%sp + 0x44]
          retl
          ld     [%sp + 0x44],%fsr

rd_pinf: 
          st     %fsr,[%sp + 0x44]
          ld     [%sp + 0x44],%o0
          set    0xC0000000,%o2
          or     %o0,%o2,%o0
          set    0x40000000,%o2
          xor     %o0,%o2,%o0
          st     %o0,[%sp + 0x44]
          retl
          ld     [%sp + 0x44],%fsr

rd_zero: 
          st     %fsr,[%sp + 0x44]
          ld     [%sp + 0x44],%o0
          set    0xC0000000,%o2
          or     %o0,%o2,%o0
          set    0x80000000,%o2
          xor     %o0,%o2,%o0
          st     %o0,[%sp + 0x44]
          retl
          ld     [%sp + 0x44],%fsr