ref: 651d6c2bc68e7e5224c3ba41b094e37b1c1890ed
dir: /sys/src/libc/alpha/getfcr.s/
#define EXCB WORD $0x60000400 /* until 7a/7l catch up */ TEXT getfsr(SB), $8 EXCB MOVT FPCR, F0 EXCB MOVT F0, tmp-8(SP) MOVL tmp-4(SP), R1 MOVQ $0x01e00000, R2 AND R2, R1, R0 RET TEXT setfsr(SB), $8 MOVQ $0x01e00000, R2 EXCB MOVT FPCR, F0 EXCB MOVT F0, tmp-8(SP) MOVL tmp-4(SP), R1 ANDNOT R2, R1, R3 AND R2, R0, R4 OR R3, R4, R5 MOVL R5, tmp-4(SP) MOVT tmp-8(SP), F0 EXCB MOVT F0, FPCR EXCB RET TEXT getfcr(SB), $8 EXCB MOVT FPCR, F0 EXCB MOVT F0, tmp-8(SP) MOVL tmp-4(SP), R1 MOVQ $0x700c0000, R2 AND R2, R1, R0 XOR R2, R0 RET TEXT setfcr(SB), $8 MOVQ $0x700c0000, R2 XOR R2, R0 EXCB MOVT FPCR, F0 EXCB MOVT F0, tmp-8(SP) MOVL tmp-4(SP), R1 ANDNOT R2, R1, R3 AND R2, R0, R4 OR R3, R4, R5 MOVL R5, tmp-4(SP) MOVT tmp-8(SP), F0 EXCB MOVT F0, FPCR EXCB RET