Re: SAVE/RETURN macros in AMODE 64

Article View: bit.listserv.asm370

Article #346

Back to bit.listserv.asm370 Previous Next

#346

From: Steve Comstock
Date: Fri, 16 Sep 2005 20:13

56 lines
3103 bytes

McKown, John wrote:
>>-----Original Message-----
>
>
> <snip>
>
>>Try this:
>>
>>TEST64   CSECT
>>TEST64   AMODE 64
>>TEST64   RMODE ANY
>>          SYSSTATE AMODE64=YES
>>PROLOG   SAVE  (14,12)
>>          LARL  R12,TEST64
>>          USING *,R12
>
>
> You sure of this instruction? Shouldn't it be
>                 USING TEST64,R12
>
> <snip>
>
>
You're right. I moved too fast.

correct code:

TEST64   CSECT
TEST64   AMODE 64
TEST64   RMODE ANY
          SYSSTATE AMODE64=YES
PROLOG   SAVE  (14,12)
          LARL  R12,TEST64
          USING TEST64,R12
          LA    R11,SAVEAREA   point to my savearea
          STG   R11,136(R13)   save in calling pgm's savearea
          STG   R13,SAVEAREA+128  save z/os's save area pointer
          LGR   R13,R11        establish my save area
*
EPILOG   LG    R13,SAVEAREA+128  pick up z/OS's save area pointer
          RETURN (14,12),RC=0   return
SAVEAREA DC    18FD'0'
          YREGS
          END

The previous version compiled, bound, and ran OK; of
course it didn't do anything and I didn't notice.

The above version follows the conventions we teach
in our course.

Good eye.

Kind regards,

-Steve Comstock

Technical Details

Message-ID: <432B2751.8060101@trainersfriend.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!sn-xit-02!sn-xit-06!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!trainersfriend.com!steve

References: <80ED1590A931EE45BAE1DA52D25AE0F2E0B8CA@UICNRHECHP6.uicnrh.dom>

Show Full Headers

Complete Article Headers

X-Google-Thread: fcdcb,5aef08407a8abe43
X-Google-Attributes: gidfcdcb,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!sn-xit-02!sn-xit-06!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!trainersfriend.com!steve
From: Steve Comstock <steve@trainersfriend.com>
Newsgroups: bit.listserv.asm370
Subject: Re: SAVE/RETURN macros in AMODE 64
Date: Fri, 16 Sep 2005 14:13:05 -0600
Organization: SAS Inc.
Lines: 56
Sender: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Message-ID: <432B2751.8060101@trainersfriend.com>
References: <80ED1590A931EE45BAE1DA52D25AE0F2E0B8CA@UICNRHECHP6.uicnrh.dom>
Reply-To: IBM Mainframe Assembler List <ASSEMBLER-LIST@listserv.uga.edu>
NNTP-Posting-Host: mozart.unx.sas.com
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: foggy.unx.sas.com 1126901762 4104 10.19.150.41 (16 Sep 2005 20:16:02 GMT)
X-Complaints-To: usenet@unx.sas.com
NNTP-Posting-Date: Fri, 16 Sep 2005 20:16:02 +0000 (UTC)
Comments: Gated by NETNEWS@VM.SAS.COM
Return-Path: <owner-assembler-list@LISTSERV.UGA.EDU>
User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206)
X-Accept-Language: en-us, en
X-Spam: [F=0.0100000000; heur=0.500(-21500); stat=0.010;
        spamtraq-heur=0.500(2005091608)]
X-MAIL-FROM: <steve@trainersfriend.com>
X-SOURCE-IP: [209.238.255.225]
X-Loop-Detect: 1
X-DistLoop-Detect: 1
Approved-By: Steve Comstock <steve@TRAINERSFRIEND.COM>
In-Reply-To: <80ED1590A931EE45BAE1DA52D25AE0F2E0B8CA@UICNRHECHP6.uicnrh.dom>
Return-Path: owner-assembler-list@LISTSERV.UGA.EDU
X-OriginalArrivalTime: 16 Sep 2005 20:15:59.0563 (UTC)
                       FILETIME=[73FFD1B0:01C5BAFB]
Originator: daemon@mozart.unx.sas.com

Reply to Parent Message