home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR4
/
XLIB30.ZIP
/
EXAMP3B.C
< prev
next >
Wrap
C/C++ Source or Header
|
1993-12-20
|
2KB
|
50 lines
/*The following Borland C program should be linked with the assembly langauge
library in EXAMP3B.ASM. Combine the library with XLIBB.LIB using the Borland
TLIB utility. The C program first initializes XLIBB. Next, it creates a
float array. A control block for SUMARRAY is then constructed and the call to
SUMARRAY is executed. Finally, the condition code in the control block is
inspected and results are printed.*/
#include <stdio.h>
#include <xlibb.h>
extern long far pascal LINADR(void far *ptr);
extern void far pascal SUMARRAY(void far *ptr);
struct arraydata /*Structure for passing arguments to SUMARRAY*/
{
long condcode;
long n;
long address;
float sum;
} ad;
void main(void)
{
int i;
long errcode;
float a[101];
errcode = INITXLIB(); /*Initialize XLIB*/
if (errcode != 0) /*See if an error occurred*/
{
printf("Initialization Error: %lX\n",errcode);
return;
}
for(i = 0; i <= 100; i++) /*Initialize a[]*/
a[i] = i;
ad.condcode = 0; /*Initialize the condition code*/
ad.n = 50; /*Will sum the first 50 elements in a[]*/
ad.address = LINADR(a); /*Compute and record linear address of a[]*/
SUMARRAY(&ad); /*Sum the array elements*/
if (ad.condcode != 0) /*See if an FPU error occurred*/
{
printf("Error: %lX\n",ad.condcode);
return;
}
printf("Sum: %f\n",ad.sum); /*The sum should be 1225*/
}