On Wed, Jun 26, 2019 at 11:36 AM Charles Mills <[email protected]> wrote:
> Is this worthy of an RFC or am I missing something? > > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3 > .ieaa400/iea3a4_STORAGE_OBTAIN.htm says > > ,SP=subpool number > Specifies the subpool number for the storage. (See z/OS MVS Programming: > Authorized Assembler Services Guide for a list of valid subpools.) If you > specify a register, the subpool number must be in bits 24-31 of the > register > ... > > And > > ,KEY=key-number > Indicates the storage key of the storage to be obtained. The valid storage > keys are 0 - 15. If you pass the storage key in a register, it must be in > bits 56-59 in that register. ... > > Isn't that bit numbering inconsistent? If the key is described as being in > bits 56-59, then the subpool should be described as being in bits 60-63, > right? > > Or am I confused? > > Charles > > Looks to me like an RFC is appropriate. I did a quick test: Obviously the subpool in R2 is moved from bits 60-63. Looks like somebody didn't update the old 32 bit register designation to the new 64 bit register designation. la r2,10 STORAGE OBTAIN, X SP=(r2), X KEY=8, X LOC=31, OR 24 IF DCBS X LENGTH=(3) LR 0,3 .STORAGE LENGTH 01 LR 15,r2 .OBTAIN SUBPOOL ID 01 SLL 15,8(0) .MOVE SUBPOOL TO BYTE 2 01 ICM 15,13,=AL1(B'00000000',(8*16),B'01110010') X01 .CONTROL INFORMATION @P9C L 14,16(0,0) .CVT ADDRESS 01 L 14,772(14,0) .ADDR SYST LINKAGE TABLE 01 L 14,160(14,0) .OBTAIN LX/EX FOR OBTAIN 01 PC 0(14) .PC TO STORAGE RTN 01 -- Money is the root of all evil. Evil is the root of all money. With that in mind, money is made by the government ... Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
