sys/src/libc/68000/getfcr.s

   1 TEXT    getfsr(SB), $0
   2         MOVL    $0, R0
   3         MOVL    FPSR, R0
   4         RTS
   5
   6 TEXT    setfsr(SB), $0
   7         MOVL    new+0(FP), R1
   8         MOVL    R1, FPSR
   9         RTS
  10
  11 TEXT    getfcr(SB), $0
  12         MOVL    $0, R0
  13         MOVL    FPCR, R0
  14         RTS
  15
  16 TEXT    setfcr(SB), $0
  17         MOVL    new+0(FP), R1
  18         MOVL    R1, FPCR
  19         RTS