/*--------------------------------------------------------------------+
| |
| Copyright 1995 (c), SAS Institute Inc. |
| Unpublished - All Rights Reserved |
| |
| S A S / C S A M P L E |
| |
| Name: C2ASMC |
| |
| Language: C |
| |
| EntryPoint: MAIN |
| |
| EntryType : OS Entry Linkage |
| |
| Files Note: 'prefix' is the installation defined high level |
| qualifier for the SAS/C product. |
| |
| Function: Call a statically linked assembler routine which |
| sums a list of integers passed as pointers to int |
| in the call. Two calls are made by C2ASMC, one with |
| two arguments and the second with four arguments. |
| |
| The sum is checked after each call to SUMINT to |
| ensure the result is as expected. |
| |
| Purpose: Demonstrate a C function calling a statically linked |
| assembler routine expecting a C framework. C2ASMC |
| uses the & operator to generate the pointers to |
| int for the parameter list. The facilities of |
| __asm are used to produce the VL-type parameter |
| list which is required by SUMINT. |
| |
| MVS - Compile/Link/Go: submit prefix.SAMPLE.AUX(C2ASMJ) |
| |
| CMS - |
| Source: SAMPLASM MACLIB (C2ASMC/C2ASMA) |
| |
| Assemble: global maclib lcuser |
| hlasm c2asma |
| |
| Compile: global maclib lc370 |
| lc370 c2asmc |
| |
| Load: global txtlib lc370bas lc370std |
| load c2asmc c2asma (nomap reset main rmode 24 amode 24 |
| |
| Genmod: genmod c2asmc( from @main |
| |
| Execute: c2asmc |
| |
| Notes: |
| |
+--------------------------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <options.h>
/* Function Declaration for the assembler routine */
extern __asm int sumint(int *, ...);/* Note: */
/* 1) __asm keyword will build */
/* a VL-type parameter list.*/
/* If the last argument is */
/* a pointer, the high order*/
/* bit of byte 0 will be set*/
/* on. SUMINT expects all */
/* arguments to be pointers */
/* to int. */
/* */
/* 2) Usage of the ellipsis */
/* to indicate a variable */
/* length paramenter list */
/* should be expected. */
/* The following demonstrates how to specify runtime options in */
/* in source code. They are not required for the proper execution */
/* of the C2ASM sample. */
extern int _options = _VERSION + _BTRACE + _USAGE + _WARNING;
int main ()
{
int h = 1;
int i = 2;
int j = 3;
int k = 4;
int sum = 0; /* Returned value */
int check_sum; /* Check variable */
int retcode = 0;
/*---------------------------------------------------------------*/
/* First Time with 2 argument pointers to int */
/*---------------------------------------------------------------*/
sum = sumint(&h, &i); /* Note: Args passed by reference. */
printf("\n\nVariable Length with 2 arguments, "
"the sum of %d and %d is %d\n", h, i, sum);
check_sum = h+i;
if (sum == check_sum) /* Verify Sum is corrrect.*/
{
printf("\nSum of %d was correct.\n", sum);
retcode = 0;
}
else
{
printf("\nSum of %d was NOT CORRECT!.\n", sum);
printf("It should have been %d!\n",check_sum);
retcode = 12;
};
/*---------------------------------------------------------------*/
/* Second Time with 4 argument pointers to int */
/*---------------------------------------------------------------*/
sum = sumint(&h, &i, &j, &k); /* Note: Args passed by reference. */
printf("\n\nVariable Length with 4 arguments, "
"the sum of %d, %d, %d and %d is %d\n",
h, i, j, k, sum);
check_sum = h+i+j+k;
if (sum == check_sum) /* Verify Sum is correct.*/
{printf("\nSum of %d was correct.\n", sum);}
else
{
printf("\nSum of %d was NOT CORRECT!\n.", sum);
printf("It should have been %d!\n",check_sum);
retcode = 12;
};
exit(retcode);
}
|
