*/*************************************************************/
*/* */
*/* MEMBER NAME: ACYCMS5A */
*/* */
*/* DESCRIPTIVE NAME: WAIT on ECB for sample CMIP application */
*/* */
*/* */
*/* COPYRIGHT: LICENSED MATERIALS - PROPERTY OF IBM */
*/* */
*/* "RESTRICTED MATERIALS OF IBM" */
*/* */
*/* 5695-117 (C) COPYRIGHT IBM CORP. 1994 */
*/* */
*/* MEMBER CATEGORY: Sample CMIP application */
*/* */
*/*************************************************************/
TITLE ' /******************************************************00001000
********' 00002000
ACYCMS5A CSECT , 0001 00003000
ACYCMS5A AMODE 24 0001 00004000
ACYCMS5A RMODE 24 0001 00005000
@MAINENT DS 0H 0001 00006000
USING *,@15 0001 00007000
B @PROLOG 0001 00008000
DC AL1(16) 0001 00009000
DC C'ACYCMS5A 95.125' 0001 00010000
DROP @15 00011000
@PROLOG STM @14,@12,12(@13) 0001 00012000
LR @12,@15 0001 00013000
@PSTART EQU ACYCMS5A 0001 00014000
USING @PSTART,@12 0001 00015000
* 0009 00016000
*/********************************************************************/ 00017000
*/* */ 00018000
*/* MAINLINE */ 00019000
*/* */ 00020000
*/********************************************************************/ 00021000
* 0009 00022000
*R2 = R1; 0009 00023000
* 0009 00024000
LR R2,R1 0009 00025000
*R1 = ADDR(THE_ECB); 0010 00026000
* 0010 00027000
L R1,THE_ECB_PTR(,R2) 0010 00028000
*GEN EXIT; 0011 00029000
* 0011 00030000
@GS00011 DS 0H 0011 00031000
WAIT 1,ECB=(1) 00032000
@GE00011 DS 0H 0012 00033000
*RETURN CODE(0); 0012 00034000
* 0012 00035000
SLR @15,@15 0012 00036000
L @14,12(,@13) 0012 00037000
LM @00,@12,20(@13) 0012 00038000
BR @14 0012 00039000
*END ACYCMS5A; 0013 00040000
@DATA DS 0H 00041000
DS 0F 00042000
DS 0F 00043000
LTORG 00044000
DS 0D 00045000
@DYNSIZE EQU 0 00046000
@00 EQU 0 00047000
@01 EQU 1 00048000
@02 EQU 2 00049000
@03 EQU 3 00050000
@04 EQU 4 00051000
@05 EQU 5 00052000
@06 EQU 6 00053000
@07 EQU 7 00054000
@08 EQU 8 00055000
@09 EQU 9 00056000
@10 EQU 10 00057000
@11 EQU 11 00058000
@12 EQU 12 00059000
@13 EQU 13 00060000
@14 EQU 14 00061000
@15 EQU 15 00062000
R0 EQU @00 00063000
R1 EQU @01 00064000
R2 EQU @02 00065000
R14 EQU @14 00066000
R15 EQU @15 00067000
THE_ECB EQU 0,4,C'F' 00068000
THE_ECB_PTR EQU 0,4,C'A' 00069000
DS 0D 00070000
@ENDDATA EQU * 00071000
@MODLEN EQU @ENDDATA-ACYCMS5A 00072000
END ,(PL/X-370,0103,95125) 00073000