/*--------------------------------------------------------------------+
| |
| Copyright (c) 1996, SAS Institute Inc. |
| Unpublished - All Rights Reserved |
| |
| S A S / C S A M P L E |
| |
| Name: ALOADMC |
| |
| Language: C |
| |
| EntryPoint: CRBC |
| |
| Entry Type: C Linkage |
| |
| Files Note: 'prefix' is the installation defined high level |
| qualifier for the SAS/C product. |
| |
| Function: C function to display the CRAB address. |
| |
| Purpose: MVS see prefix.SAMPLE.ASM(ALOADMM) prolog |
| CMS see SAMPLASM MACLIB(ALOADMM) prolog |
| |
| MVS - |
| Compile/Link/Go: see preefix.SAMPLE.ASM(ALOADMM) prolog |
| CMS - |
| Compile/Link/Go: see SAMPLASM MACLIBM(ALOADMM) prolog |
| |
| Misc Notes: |
| |
| - The primary modules in sample ALOADM use this function |
| to display the CRAB address. When the CRAB addresses |
| displayed are all the same, it means that a single |
| C execution framework is being maintained. |
| |
+--------------------------------------------------------------------*/
#include <stdio.h>
#include <options.h>
#include <svc.h>
#include <regs.h>
#include <svc.h>
#include <code.h>
#include <regs.h>
#include <dec370.h>
#include <str370.h>
#define LEN_PACKED 4
#define LEN_UNPACKED 8
int crbc(void)
{
char gmt_time[4];
char date_packed [LEN_PACKED];
char date_unpacked [LEN_UNPACKED];
int retcode;
long r12area;
/**************************************************************/
/* */
/* NOTE: The purpose of the following code is to illustrate */
/* the use of inline machine code. It is not the best */
/* way to obtain or manipulate time information. */
/* */
/**************************************************************/
/*------------------------------------*/
_ldregs(0); /* Frame: Start inline machine code */
/* sequence */
_stregs(R12, /* Frame: End inline mach code */
/* sequence. */
&r12area); /* Save CRAB address in R12 */
/*------------------------------------*/
/*------------------------------------*/
_ldregs(R1,0X82); /* Frame: Start inline machine code */
/* sequence. Setup for SVC 11 */
/* (TIME) call by setting R1 */
/* for ZONE = GMT (x80) and */
/* DEC type time (x02). */
/*------------------------------------*/
/*------------------------------------*/
_ossvc(11); /* Issue the SVC call */
/*------------------------------------*/
/*------------------------------------*/
_stregs(R0+R1+R15, /* Frame: End inline mach code */
/* machine code sequence. */
/* Save registers: */
&gmt_time, /* R0 -> time in HHMMSSth */
&date_packed, /* R1 -> date in 0CYYYDDF */
&retcode); /* R15-> return code */
/*------------------------------------*/
/*------------------------------------*/
_ldregs(R2+R3, /* Frame: Start inline mach code */
/* sequence. */
&date_unpacked, /* R2->Address of unpacked area */
&date_packed); /* R3->Address of packed data from */
/* SVC 11 (TIME) above. */
/*------------------------------------*/
/*------------------------------------*/
UNPK(0+b(2), /* R2: address of output */
LEN_UNPACKED, /* Length of output area */
0+b(3), /* R3: address of packed data */
LEN_PACKED); /* Length of packed data */
/*------------------------------------*/
/*------------------------------------*/
MVC(0+b(2),2,3+b(2)); /* Move Year to first 2 bytes */
MVC(3+b(2),3,5+b(2)); /* Move day-of-year to left two bytes */
/*------------------------------------*/
/* Note: _stregs is not used because it is not necessary in */
/* in this case. The first instance of regular C code */
/* will also terminate an inline machine code sequence. */
date_unpacked[2] = '/' ;/* Setup YYDDD and */
date_unpacked[6] = 0x00;/* .. null terminate the string. */
printf("CRBC: CRAB address = R12 (hex) = %x"
" GMT is %02x:%02x:%02x.%02x Date: %s\n",
r12area,
gmt_time[0],
gmt_time[1],
gmt_time[2],
gmt_time[3],
date_unpacked);
return(0);
}
|
