Re: 64 bit question

2013-06-13 Thread Randy Schafer
You could also try

STFLE FUNCTION

Then check the first word:

- Bits (0-7)

0 - N3 INSTRUCTIONS AVAILABLE
1 - Z/ARCH MODE INSTALLED
2 - Z/ARCH MODE ACTIVE
3 - DAT ENHANCEMENT INSTALLED
4 - IDTE DOES CLEARING (ASCE)
6 - ASN AND LX REUSE INSTALLED
7 - STFLE AVAILABLE


-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of John McKown
Sent: Thursday, June 13, 2013 12:08 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: 64 bit question

Why not just try to get memory above the line, using IARST64 REQUEST=GET, and 
check the return code?

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A9B0/4.1

Or, you might check the CVTV64 bit in the CVTOSLV2 flag field of the CVT (CVT 
macro), after checking that FLCARCH is non-zero in the PSA (IHAPSA macro).

  USING PSA,0
  CLI FLCARCH,0
  BZ   NO64BIT
  L 1,FLCCVT
  DROP 0
  USING CVT,1
  TM   CVTOSLV2,CVTV64
  BZ   NO64BIT
...
  IHAPSA DSECT=YES,LIST=YES
  CVT  DSECT=YES,LIST=YES


On Thu, Jun 13, 2013 at 11:45 AM, Scott Ford scott_j_f...@yahoo.com wrote:

 All,

 After reading through the Extended Addressability Guide/ref I have a
 question..
 How do I tell if a machine will support 64 bit storage above the bar
 ? I mean like a Assembler macro query ..I want to use 64bit storage
 but I don't know to tell programmatically what the allocation is for the 
 system.

 Regards,

 Scott ford
 www.identityforge.com
 from my IPAD

 'Infinite wisdom through infinite means'




--
This is a test of the Emergency Broadcast System. If this had been an actual 
emergency, do you really think we'd stick around to tell you?

Maranatha! 
John McKown


Re: 64 bit question

2013-06-13 Thread Randy Schafer
Not sure I have a machine I can try that on.  Looks like a trap.

-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of John McKown
Sent: Thursday, June 13, 2013 12:19 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: 64 bit question

Hum, I really find bit 7 amusing. What does STFLE set that bit to when STFLE is 
not available. No, wait, what?

On Thu, Jun 13, 2013 at 12:14 PM, Randy Schafer  
randy.schafer.a...@statefarm.com wrote:

 You could also try

 STFLE FUNCTION

 Then check the first word:

 - Bits (0-7)

 0 - N3 INSTRUCTIONS AVAILABLE
 1 - Z/ARCH MODE INSTALLED
 2 - Z/ARCH MODE ACTIVE
 3 - DAT ENHANCEMENT INSTALLED
 4 - IDTE DOES CLEARING (ASCE)
 6 - ASN AND LX REUSE INSTALLED
 7 - STFLE AVAILABLE


 -Original Message-
 From: IBM Mainframe Assembler List
 [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]
 On Behalf Of John McKown
 Sent: Thursday, June 13, 2013 12:08 PM
 To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
 Subject: Re: 64 bit question

 Why not just try to get memory above the line, using IARST64
 REQUEST=GET, and check the return code?

 http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A9B0/4.
 1

 Or, you might check the CVTV64 bit in the CVTOSLV2 flag field of the
 CVT (CVT macro), after checking that FLCARCH is non-zero in the PSA
 (IHAPSA macro).

   USING PSA,0
   CLI FLCARCH,0
   BZ   NO64BIT
   L 1,FLCCVT
   DROP 0
   USING CVT,1
   TM   CVTOSLV2,CVTV64
   BZ   NO64BIT
 ...
   IHAPSA DSECT=YES,LIST=YES
   CVT  DSECT=YES,LIST=YES


 On Thu, Jun 13, 2013 at 11:45 AM, Scott Ford scott_j_f...@yahoo.com
 wrote:

  All,
 
  After reading through the Extended Addressability Guide/ref I have a
  question..
  How do I tell if a machine will support 64 bit storage above the bar
  ? I mean like a Assembler macro query ..I want to use 64bit storage
  but I don't know to tell programmatically what the allocation is for
  the
 system.
 
  Regards,
 
  Scott ford
  www.identityforge.com
  from my IPAD
 
  'Infinite wisdom through infinite means'
 



 --
 This is a test of the Emergency Broadcast System. If this had been an
 actual emergency, do you really think we'd stick around to tell you?

 Maranatha! 
 John McKown




--
This is a test of the Emergency Broadcast System. If this had been an actual 
emergency, do you really think we'd stick around to tell you?

Maranatha! 
John McKown


Re: which instructions should I use?

2012-08-24 Thread Randy Schafer
I probably would have used:

CLI   0(1,R3),X'00'
JNE  ...

No literal.


-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Frank Swarbrick
Sent: Friday, August 24, 2012 1:48 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: which instructions should I use?

Assembler newbie here; please be gentle.

Given the following:
- r7 points to the input parm list
- r2 indexes the input parm list
I want to see if the first byte of the parm I am interested in is x'00'.

 l r3,0(r2,r7)  r3 - current parm
I can do this:
 clc   0(1,r3),=x'00'
 jne   delimited_string
Or I can do this:
 llc   r9,0(,r3)r9 = parm byte 0
 clijne r9,x'00',delimited_string

How do I decide which is better?
The second one uses more modern instructions, and 1 extra byte, but no 
literal.

Frank


Re: which instructions should I use?

2012-08-24 Thread Randy Schafer
Oops.

I meant: CLI  0(R3),X'00'



-Original Message-
From: Randy Schafer
Sent: Friday, August 24, 2012 1:54 PM
To: 'IBM Mainframe Assembler List'
Subject: RE: which instructions should I use?

I probably would have used:

CLI   0(1,R3),X'00'
JNE  ...

No literal.


-Original Message-
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Frank Swarbrick
Sent: Friday, August 24, 2012 1:48 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: which instructions should I use?

Assembler newbie here; please be gentle.

Given the following:
- r7 points to the input parm list
- r2 indexes the input parm list
I want to see if the first byte of the parm I am interested in is x'00'.

 l r3,0(r2,r7)  r3 - current parm
I can do this:
 clc   0(1,r3),=x'00'
 jne   delimited_string
Or I can do this:
 llc   r9,0(,r3)r9 = parm byte 0
 clijne r9,x'00',delimited_string

How do I decide which is better?
The second one uses more modern instructions, and 1 extra byte, but no 
literal.

Frank