Hi,
before doing the CLC, I might have put the length of the C'FFFFFFFF' into reg 0, and then first make
a CR 0,7
Best
On 05/06/2024 23:17, Peter Vels wrote:
Hi Shmuel,
Your code is much better than mine (thanks!), however, you still need
LA R7,2(R7)
to skip past the length field in the LOOP. R8 contains the correct length,
but doesn't cater for the length field itself.
CHKOPTS1 LA R7,TABLE1+2
LA R9,TABLE1+2
AH R9,TABLE1
LOOP1 LH R8,0(R7)
CLC 2(9,R7),=C'FFFFFFFFF'
JE FOUND
LA R7,2(R7)
BXLE R7,R8,LOOP1
Peter
On Thu, 6 Jun 2024 at 03:23, Seymour J Metz <[email protected]> wrote:
Yes, 2(9,R7) or a symbol in the DSECT following the length field. There's
probably processing code that has to be adjusted as well.
________________________________________
From: IBM Mainframe Assembler List <[email protected]> on
behalf of Gary Weinhold <[email protected]>
I believe the CLC would be CLC 2(9,R7) although in actual code it would
probably be executed with Rn containing R8 - 1.
On 2024-06-05 11:02 a.m., Seymour J Metz wrote:
What's wrong with
CHKOPTS1 LA R7,TABLE1+2 ADDRESS OF FIRST ELEMENT
LA R9,TABLE1+2 ADDRESS OF BEGINNING OF TABLE
AH R9,TABLE1 CALC ADDR OF END OF TABLE
LOOP1 LH R8,0(R7) entry length for BXLE
CLC 0(9,R7),=C'FFFFFFFFF'
JE FOUND ENTRY FOUND = RC=0
BXLE R7,R8,LOOP1 LOOPING UNTIL OPT FOUND
