1TEXT getfsr(SB), $0 2 SUB $4, R1 3 MOVW FSR, (R1) 4 MOVW (R1), R7 5 ADD $4, R1 6 RETURN 7 8TEXT setfsr(SB), $0 9 SUB $4, R1 10 MOVW R7, (R1) 11 MOVW (R1), FSR 12 ADD $4, R1 13 RETURN 14 15TEXT setfcr(SB), $0 16 SUB $4, R1 17 MOVW R7, (R1) 18 MOVW (R1), FSR 19 ADD $4, R1 20 RETURN 21 22TEXT getfcr(SB), $0 23 SUB $4, R1 24 MOVW FSR, (R1) 25 MOVW (R1), R7 26 ADD $4, R1 27 RETURN 28