John,

>> you still need base+displacement .... desire for an index register;

They come in most cases when there is space in the nibbles for it. But
for the case you cited there is no need to cover code in
"procedure division" with a base. (Dynamic storage and literalpool
do have a base!) -Here is how:

        CALL PROGRAM,(PARM1,PARM2),VL
        CHI  R15,=Y(MAXENTRIES)
        JH   INVALID_RC
        L    R15,=A(RC0,RC4,RC8,RCC)(R15)
        BR   R15

Your addon (check for a valid rc) could also be done with this

        NILL R15,X'000C'

as a result you only have valid combinations left over (Yes I cheated
and added an entry for C).

--
Martin

Pi_cap_CPU - all you ever need around MWLC/SCRT/CMT in z/VSE
more at http://www.picapcpu.de

Reply via email to