From 01629105c2817a59a4f1f05039593f211cf5ddaa Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Mon, 14 Dec 1998 23:15:38 +0000 Subject: Patch from Ralf Corsepius to rename all .s files to .S in conformance with GNU conventions. This is a minor step along the way to supporting automake. --- c/src/lib/libcpu/m68k/m68040/fpsp/smovecr.S | 164 ++++++++++++++++++++++++++++ 1 file changed, 164 insertions(+) create mode 100644 c/src/lib/libcpu/m68k/m68040/fpsp/smovecr.S (limited to 'c/src/lib/libcpu/m68k/m68040/fpsp/smovecr.S') diff --git a/c/src/lib/libcpu/m68k/m68040/fpsp/smovecr.S b/c/src/lib/libcpu/m68k/m68040/fpsp/smovecr.S new file mode 100644 index 0000000000..e2caae764e --- /dev/null +++ b/c/src/lib/libcpu/m68k/m68040/fpsp/smovecr.S @@ -0,0 +1,164 @@ +// +// $Id$ +// +// smovecr.sa 3.1 12/10/90 +// +// The entry point sMOVECR returns the constant at the +// offset given in the instruction field. +// +// Input: An offset in the instruction word. +// +// Output: The constant rounded to the user's rounding +// mode unchecked for overflow. +// +// Modified: fp0. +// +// +// Copyright (C) Motorola, Inc. 1990 +// All Rights Reserved +// +// THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA +// The copyright notice above does not evidence any +// actual or intended publication of such source code. + +//SMOVECR idnt 2,1 | Motorola 040 Floating Point Software Package + + |section 8 + +#include "fpsp.defs" + + |xref nrm_set + |xref round + |xref PIRN + |xref PIRZRM + |xref PIRP + |xref SMALRN + |xref SMALRZRM + |xref SMALRP + |xref BIGRN + |xref BIGRZRM + |xref BIGRP + +FZERO: .long 00000000 +// +// FMOVECR +// + .global smovcr +smovcr: + bfextu CMDREG1B(%a6){#9:#7},%d0 //get offset + bfextu USER_FPCR(%a6){#26:#2},%d1 //get rmode +// +// check range of offset +// + tstb %d0 //if zero, offset is to pi + beqs PI_TBL //it is pi + cmpib #0x0a,%d0 //check range $01 - $0a + bles Z_VAL //if in this range, return zero + cmpib #0x0e,%d0 //check range $0b - $0e + bles SM_TBL //valid constants in this range + cmpib #0x2f,%d0 //check range $10 - $2f + bles Z_VAL //if in this range, return zero + cmpib #0x3f,%d0 //check range $30 - $3f + ble BG_TBL //valid constants in this range +Z_VAL: + fmoves FZERO,%fp0 + rts +PI_TBL: + tstb %d1 //offset is zero, check for rmode + beqs PI_RN //if zero, rn mode + cmpib #0x3,%d1 //check for rp + beqs PI_RP //if 3, rp mode +PI_RZRM: + leal PIRZRM,%a0 //rmode is rz or rm, load PIRZRM in a0 + bra set_finx +PI_RN: + leal PIRN,%a0 //rmode is rn, load PIRN in a0 + bra set_finx +PI_RP: + leal PIRP,%a0 //rmode is rp, load PIRP in a0 + bra set_finx +SM_TBL: + subil #0xb,%d0 //make offset in 0 - 4 range + tstb %d1 //check for rmode + beqs SM_RN //if zero, rn mode + cmpib #0x3,%d1 //check for rp + beqs SM_RP //if 3, rp mode +SM_RZRM: + leal SMALRZRM,%a0 //rmode is rz or rm, load SMRZRM in a0 + cmpib #0x2,%d0 //check if result is inex + ble set_finx //if 0 - 2, it is inexact + bra no_finx //if 3, it is exact +SM_RN: + leal SMALRN,%a0 //rmode is rn, load SMRN in a0 + cmpib #0x2,%d0 //check if result is inex + ble set_finx //if 0 - 2, it is inexact + bra no_finx //if 3, it is exact +SM_RP: + leal SMALRP,%a0 //rmode is rp, load SMRP in a0 + cmpib #0x2,%d0 //check if result is inex + ble set_finx //if 0 - 2, it is inexact + bra no_finx //if 3, it is exact +BG_TBL: + subil #0x30,%d0 //make offset in 0 - f range + tstb %d1 //check for rmode + beqs BG_RN //if zero, rn mode + cmpib #0x3,%d1 //check for rp + beqs BG_RP //if 3, rp mode +BG_RZRM: + leal BIGRZRM,%a0 //rmode is rz or rm, load BGRZRM in a0 + cmpib #0x1,%d0 //check if result is inex + ble set_finx //if 0 - 1, it is inexact + cmpib #0x7,%d0 //second check + ble no_finx //if 0 - 7, it is exact + bra set_finx //if 8 - f, it is inexact +BG_RN: + leal BIGRN,%a0 //rmode is rn, load BGRN in a0 + cmpib #0x1,%d0 //check if result is inex + ble set_finx //if 0 - 1, it is inexact + cmpib #0x7,%d0 //second check + ble no_finx //if 0 - 7, it is exact + bra set_finx //if 8 - f, it is inexact +BG_RP: + leal BIGRP,%a0 //rmode is rp, load SMRP in a0 + cmpib #0x1,%d0 //check if result is inex + ble set_finx //if 0 - 1, it is inexact + cmpib #0x7,%d0 //second check + ble no_finx //if 0 - 7, it is exact +// bra set_finx ;if 8 - f, it is inexact +set_finx: + orl #inx2a_mask,USER_FPSR(%a6) //set inex2/ainex +no_finx: + mulul #12,%d0 //use offset to point into tables + movel %d1,L_SCR1(%a6) //load mode for round call + bfextu USER_FPCR(%a6){#24:#2},%d1 //get precision + tstl %d1 //check if extended precision +// +// Precision is extended +// + bnes not_ext //if extended, do not call round + fmovemx (%a0,%d0),%fp0-%fp0 //return result in fp0 + rts +// +// Precision is single or double +// +not_ext: + swap %d1 //rnd prec in upper word of d1 + addl L_SCR1(%a6),%d1 //merge rmode in low word of d1 + movel (%a0,%d0),FP_SCR1(%a6) //load first word to temp storage + movel 4(%a0,%d0),FP_SCR1+4(%a6) //load second word + movel 8(%a0,%d0),FP_SCR1+8(%a6) //load third word + clrl %d0 //clear g,r,s + lea FP_SCR1(%a6),%a0 + btstb #sign_bit,LOCAL_EX(%a0) + sne LOCAL_SGN(%a0) //convert to internal ext. format + + bsr round //go round the mantissa + + bfclr LOCAL_SGN(%a0){#0:#8} //convert back to IEEE ext format + beqs fin_fcr + bsetb #sign_bit,LOCAL_EX(%a0) +fin_fcr: + fmovemx (%a0),%fp0-%fp0 + rts + + |end -- cgit v1.2.3