home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
minnie.tuhs.org
/
2014.11.minnie.tuhs.org.tar
/
minnie.tuhs.org
/
UnixArchive
/
PDP-11
/
Trees
/
V6
/
usr
/
source
/
s4
/
ltod.s
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1975-05-14
|
332 b
|
28 lines
/ C library
/ return floating-point from long integer
/ d = ltod(l)
.globl _ltod
_ltod:
mov r5,-(sp)
mov sp,r5
setl
movif *4(r5),fr0
seti
mov (sp)+,r5
rts pc
/ return long integer from floating
/ dtol(d, l)
.globl _dtol
_dtol:
mov r5,-(sp)
mov sp,r5
setl
movf 4(r5),fr0
movfi fr0,*12.(r5)
seti
mov (sp)+,r5
rts pc