Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uunet!aplcen!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!uwm.edu!psuvax1!psuvm!PUCC!MAINTCMS From: MAINTCMS@PUCC.BITNET (John Wagner) Newsgroups: bit.listserv.ibm-main Subject: Re: Base Registers Message-ID: Date: 9 Feb 90 18:49:25 GMT Sender: IBM Mainframe Discussion list Reply-To: IBM Mainframe Discussion list Lines: 21 Approved: NETNEWS@PSUVM Gateway In-Reply-To: Message of Fri, 9 Feb 90 10:42:24 EDT from On Fri, 9 Feb 90 10:42:24 EDT Ken Bell said: Ken, I notice a couple of folks have replied to this with words, but sometimes it is easier to understand when you see the code in context so I recommented the code. > MVSPROBT EQU * > USING MVSTIME,R2 Tell assembler about dsect * R2 will point to the entry > LA R2,MVSPTT-MVSSIZE*8 Point to start of table - 1 entry > MVSPTL1 LA R2,MVSSIZE*8(R2) Bump entry pointer to next entry > CLI 0(R2),X'FF' Is this the end of the table? > BE MVSPTL3 ---> Yes, no match found > CLC MVSUSER,VMUSER Is this the userid we want? > ... > ... > MVSUSER DS 1D These fields are used as a DSECT > MVSVTIME DS 1D to describe the contents of the > MVSACUM DS 1D entries beginning at MVSPTT > MVSSIZE EQU (*-MVSTIME+7)/8