Thanks for the replies...Bottom line was to chase the ORE. Code looks
something like this:
*
LA R8,0 GET PSA ADDRESS
L R8,16(,R8) GET CVT ADDRESS
L R8,100(,R8) GET UCM ADDRESS
L R9,28(,R8) GET FIRST ORE
MODESET KEY=ZERO * KEY ZERO/SUPERVISOR STATE
ORELP C R4,8(R9) COMPARE TCB ADDRESS
BE FNDORE YES, THIS IS OUR ORE
CLC 0(4,R9),=F'0' CHECK FOR ZERO LINK POINTER
BE NFDORE YES, BYPASS COMMAND
L R9,0(,R9) GET NEXT ORE
B ORELP TEST IT
FNDORE DS 0H *
*
*
*
NFDORE DS 0H
MODESET KEY=NZERO
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
