Article View: bit.listserv.asm370
Article #344Re: SAVE/RETURN macros in AMODE 64
From: Edward E. Jaffe
Date: Fri, 16 Sep 2005 19:38
Date: Fri, 16 Sep 2005 19:38
59 lines
3505 bytes
3505 bytes
Michel Castelein wrote: >In z/OS V1R3 and using HLASM R4, the following lines of assembler coding: > MAINPGM CSECT > MAINPGM AMODE 64 > MAINPGM RMODE ANY > > FYI. RMODE ANY is deprecated. RMODE 31 is all the rage now! [snip] >1st question: >For a main program, the caller is the system (z/OS). >What kind of save area is supplied by z/OS V1R3 (and later)? >Is it still a traditional 72-byte "Format 0" save area or is it a new >144-byte Format 4 save area? >Or does the type of save area provided by z/0S depends upon the AMODE of the >(main) program? > > Depends on program AMODE. Simply follow the recommendations in http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A640/2.1 >2nd question: >- The distance 144 used by LMG goes beyond the 144-byte save area! >- 144 happens to be the offset in a (208-byte) Format 5 area used to >save/restore the HIGH HALVES of R0-R15! >What point am I missing (or is it a bug)? > > Something is wrong. When I assemble here, I get: |Stmt Source Statement | 1 GTEST CSECT , | 2 GTEST AMODE 64 | 3 GTEST RMODE 31 | 4 SYSSTATE AMODE64=YES | 5+* THE VALUE OF SYSSTATE IS NOW SET TO ... | + VL=2 OSREL=00000000 | 6 SAVE (14,12) | 8+ DS 0H | 9+ STMG 14,12,8(13) | 10 RETURN (14,12),RC=0 | 12+ LMG 14,12,8(13) | 13+ LA 15,0(0,0) | 14+ BR 14 | 15 END , -- ----------------------------------------------------------------- | Edward E. Jaffe | | | Mgr, Research & Development | edjaffe@phoenixsoftware.com | | Phoenix Software International | Tel: (310) 338-0400 x318 | | 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801 | | Los Angeles, CA 90045 | http://www.phoenixsoftware.com | -----------------------------------------------------------------
Technical Details
Message-ID:
<432B1F19.6040207@phoenixsoftware.com>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news.glorb.com!sn-xit-04!sn-xit-11!sn-xit-05!sn-xit-06!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!phoenixsoftware.com!edjaffeReferences:
<432b0ef8$0$29922$ba620e4c@news.skynet.be>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!news.glorb.com!sn-xit-04!sn-xit-11!sn-xit-05!sn-xit-06!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!phoenixsoftware.com!edjaffe
From: "Edward E. Jaffe" <edjaffe@phoenixsoftware.com>
Newsgroups: bit.listserv.asm370
Subject: Re: SAVE/RETURN macros in AMODE 64
Date: Fri, 16 Sep 2005 12:38:01 -0700
Organization: SAS Inc.
Lines: 59
Sender: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Message-ID: <432B1F19.6040207@phoenixsoftware.com>
References: <432b0ef8$0$29922$ba620e4c@news.skynet.be>
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 1126900536 3417 10.19.150.41 (16 Sep 2005 19:55:36 GMT)
X-Complaints-To: usenet@unx.sas.com
NNTP-Posting-Date: Fri, 16 Sep 2005 19:55:36 +0000 (UTC)
Comments: Gated by NETNEWS@VM.SAS.COM
Return-Path: <owner-assembler-list@LISTSERV.UGA.EDU>
User-Agent: Mozilla Thunderbird 1.0.6 (Windows/20050716)
X-Accept-Language: en-us, en
Approved-By: "Edward E. Jaffe" <edjaffe@PHOENIXSOFTWARE.COM>
In-Reply-To: <432b0ef8$0$29922$ba620e4c@news.skynet.be>
Return-Path: owner-assembler-list@LISTSERV.UGA.EDU
X-OriginalArrivalTime: 16 Sep 2005 19:55:33.0626 (UTC)
FILETIME=[9948ADA0:01C5BAF8]
Originator: daemon@mozart.unx.sas.com