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

58
CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/7/FPFTOL.S Normal file
View File

@@ -0,0 +1,58 @@
*
* Floating Point Float to Long Routine :
* Front End to FFP Floating Point Package.
*
* long
* fpftol(fparg)
* double fparg;
*
* Condition Codes : V bit signifies Overflow
*
* Return : Fixed Point representation of Floating Point Number
*
.globl fpftol
.globl _fpftol
.globl ffpfpi
.text
fpftol:
_fpftol:
~~fpftol:
link r14,#-4
movem.l d3-d7,-(sp)
move.l 8(r14),r7
jsr ffpfpi
move.l r7,r0
movem.l (sp)+,d3-d7
unlk r14
rts
~~fpftol:
link r14,#-4
movem.l d3-d7,-(sp)
move.l 8r14),r7
jsr ffpfpi
move.l r7,r0
movem.l (sp)+,d3-d7
unlk r14
rts
~~fpftol:
link r14,#-4
movem.l d3-d7,-(sp)
move.l 8r14),r7
jsr ffpfpi
move.l r7,r0
movem.l (sp)+,d3-d7
unlk r14
rts
~~fpftol:
link r14,#-4
movem.l d3-d7,-(sp)
move.l 8r14),r7
jsr ffpfpi
move.l r7,r0
movem.l (sp)+,d3-d7
unlk r14
rts
~~fpftol:
link r14,#-4
movem.l d3-d7,-(sp)
move.l 8