In
<cajtoo59q4_cypgbcmo0qjpeeovbcqfhjsihomjoqcjiu6a2...@mail.gmail.com>,
on 09/29/2012
at 10:42 AM, Mike Schwab <mike.a.sch...@gmail.com> said:
>Looks like there is some missing code in LOAD_DIR: PROC; This is
>routine to read a PDS directory, and P is an pointer within the
>directory block.
>But I don't see a definition or how the pointer is assigned.
It's ugly, but it's there:
DO UNSPEC(P) = UNSPEC(ADDR(ENTRIES))0
REPEAT UNSPEC(UNSPEC(P) + 12 + 2*USERCT)
WHILE (UNSPEC(P)<(UNSPEC(UNSPEC(ADDR(ENTRIES))+COUNT)));
--
Shmuel (Seymour J.) Metz, SysProg and JOAT
Atid/2 <http://patriot.net/~shmuel>
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
