/*--------------------------------------------------------------------+
|                                                                     |
|             Copyright (c) 1996, SAS Institute Inc.                  |
|               Unpublished - All Rights Reserved                     |
|                                                                     |
|                     S A S / C  S A M P L E                          |
|                                                                     |
|                                                                     |
|       Name: ASM@CC                                                  |
|                                                                     |
|   Language: C                                                       |
|                                                                     |
| EntryPoint: CFUNC                                                   |
|                                                                     |
| Entry Type: C Function Linkage                                      |
|                                                                     |
| Files Note: 'prefix' is the installation defined high level         |
|             qualifier for the SAS/C product.                        |
|                                                                     |
|   Function: Provide an INDEP C function to be called by the         |
|             assembler program ASM@CA as a statically linked         |
|             function.                                               |
|                                                                     |
|    Purpose: ASM@CC prints the values passed as parameters using     |
|             the C function printf.                                  |
|                                                                     |
| MVS -   See prolog for prefix.SAMPLE.ASM(ASM@CA) for details on     |
|         compiling, linking, and executing this sample.              |
|                                                                     |
| CMS -   See prolog for SAMPLASM MACLIB ASM@CA) for details on       |
|         compiling, linking, and executing this sample.              |
|                                                                     |
| Misc Notes:                                                         |
|                                                                     |
+--------------------------------------------------------------------*/
#include <stdio.h>
#include <options.h>

/* The following demonstrates how to specify runtime options in     */
/* source code.  They are not required for proper executiuon of     */
/* ASM@C sample.                                                    */
extern int _options = _VERSION + _BTRACE + _USAGE + _WARNING;

int  cfunc(int Parm_int, double Parm_double, char *Parm_str)
 {
  printf("Values passed FROM caller:\n");
  printf("Parm-int   : %i\n",  Parm_int);
  printf("Parm-double: %f\n",  Parm_double);
  printf("Parm-string: %s\n\n",Parm_str);
  return(0);
 }