* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*        BSTTEZSP COPYRIGHT TEI 2010-2011                           *
*                                                                   *
*                                                                   *
*        BSTTEZSP - USED BY EZA COBOL ROUTINES TO SET A COBOL       *
*                   POINTER TO THE ADDRESS OF A WORKING STORAGE AREA*
*                                                                   *
*  USAGE:                                                           *
*        CALL BSTTEZSP USING <WS-AREA> <POINTER>                    *
*                                                                   *
*  SIGNIFICANT CHANGES:                                             *
*  CHANGES: 040510 TT NEW PROGRAM                                   *
*                  TT = TONY THIGPEN TONY@VSE2PDF.COM               *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
BSTTEZSP RMODE ANY
BSTTEZSP AMODE ANY
BSTTEZSP CSECT
         USING BSTTEZSP,R15
         B     A0001
         DC    CL8'BSTTEZSP'
         DC    CL8'BUILD248'
         DC    CL8'04/05/10'
         DC    CL8'12.16'
A0001    DS    0H
         L     R0,0(,R1)               GET ADDRESS OF AREA
         L     R1,4(,R1)               GET ADDRESS OF POINTER
         ST    R0,0(,R1)               STORE ADR OF AREA IN POINTER
         SR    R15,R15                 CLEAR R15 BEFORE RETURN
         BR    R14                     RETURN TO CALLER
 
R0       EQU   0
R1       EQU   1
R2       EQU   2
R3       EQU   3
R4       EQU   4
R5       EQU   5
R6       EQU   6
R7       EQU   7
R8       EQU   8
R9       EQU   9
R10      EQU   10
R11      EQU   11
R12      EQU   12
R13      EQU   13
R14      EQU   14
R15      EQU   15
 
         END