seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-24 17:04:19 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/orglibe/ffpabs.s Normal file
View File

@@ -0,0 +1,68 @@
ttl fast floating point abs/neg (ffpabs/ffpneg)
***************************************
* (c) copyright 1981 by motorola inc. *
***************************************
*************************************************************
* ffpabs *
* fast floating point absolute value *
* *
* input: d7 - fast floating point argument *
* *
* output: d7 - fast floating point absolute value result *
* *
* condition codes: *
* n - cleared *
* z - set if result is zero *
* v - cleared *
* c - undefined *
* x - undefined *
* *
* all registers transparent *
* *
*************************************************************
page
ffpabs idnt 1,1 ffp abs/neg
xdef ffpabs fast floating point absolute value
xref ffpcpyrt copyright notice
section 9
******************************
* absolute value entry point *
******************************
ffpabs and.b #$7f,d7 clear the sign bit
rts and return to the caller
page
*************************************************************
* ffpneg *
* fast floating point negate *
* *
* input: d7 - fast floating point argument *
* *
* output: d7 - fast floating point negated result *
* *
* condition codes: *
* n - set if result is negative *
* z - set if result is zero *
* v - cleared *
* c - undefined *
* x - undefined *
* *
* all registers transparent *
* *
*************************************************************
page
xdef ffpneg fast floating point negate
**********************
* negate entry point *
**********************
ffpneg tst.b d7 ? is argument a zero
beq.s ffprtn return if so
eor.b #$80,d7 invert the sign bit
ffprtn rts and return to caller
end