home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
vol_100
/
162_01
/
fmdx.c
< prev
next >
Wrap
Text File
|
1985-08-21
|
512b
|
37 lines
/* file fmdx.c
"float multiply/divide by X"
implemented here with X = 10 */
#asm
NAME ('FMDX')
INCLUDE DEQ.MAC
#endasm
float fdten(fexp) /* float divide by ten */
float fexp;
{
#asm
.Z80
LDR.FV FE10
EQUJPS .FDIV,ST.MDX
.8080
#endasm
}
float fmten(fexp) /* float multiply by ten */
float fexp;
{
#asm
.Z80
LDR.FV FE10
EQUJPS .FMUL,ST.MDX
.8080
#endasm
}
#asm
EXTRN CMDBYT
.Z80
ST.MDX: EQUJPS ,FLSD.U##,QUIK.1##
.8080
#endasm