github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-26 11:52:25 +00:00
Code Issues Projects Releases Wiki Activity

Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

Browse Source
This commit is contained in:
Nick Briggs
2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
src/ubf3.c Executable file
View File

@@ -0,0 +1,60 @@
/* $Id: ubf3.c,v 1.3 1999/05/31 23:35:45 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: ubf3.c,v 1.3 1999/05/31 23:35:45 sybalsky Exp $ Copyright (C) Venue";
/* ubf3.c
*/
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
/* Manufactured in the United States of America. */
/* */
/* The contents of this file are proprietary information */
/* belonging to Venue, and are provided to you under license. */
/* They may not be further distributed or disclosed to third */
/* parties without the specific permission of Venue. */
/* */
/************************************************************************/
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "medleyfp.h"
/************************************************************
N_OP_ubfloat3 -- op 062
062/0 POLY
***********************************************************/
N_OP_ubfloat3(int arg3, LispPTR arg2, LispPTR arg1, int alpha)
{
REGISTER float val;
REGISTER float ans;
REGISTER float *fptr;
register int degree;
int ret;
float flot;
val = *(float *)&arg3; /* why? */
if (alpha) ERROR_EXIT(arg1);
FPCLEAR;
if ((arg1 & SEGMASK) != S_POSITIVE) ERROR_EXIT(arg1);
degree = 0xFFFF & arg1;
fptr = (float *)Addr68k_from_LADDR(arg2);
ans = *((float *)fptr);
while (degree--) ans = (ans * val) + *((float *)(++fptr));
if (FPTEST(ans)) ERROR_EXIT(arg1); /* relies on contagion of inf, nan? */
flot = ans;
ret = *(int *)&flot; /* why? */
return(ret);
}/* end N_OP_ubfloat3() */
/* end module */