You forgot to BCTR after the compare fails.

Tony Thigpen

Randy Schafer wrote on 10/02/2015 02:02 PM:
You probably meant  'L  R14,6(R4)' before the BALR.

-----Original Message-----
From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On 
Behalf Of Scott Ford
Sent: Friday, October 02, 2015 12:58 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Branch table

All:

I am building a branch table like this:

FUNC         DS    CL10

FUNCTBL   DS   0H
                     DC  'INIT      'A(INIT_DSP)
......etc
TBLENT      DS   F'5'

------------------------------------------------------------------------------

                     LA        R4,FUNCTBL
                     L          R5,TBLENT
LOOPTBL   DS       0H
                    CLC     FUNC,0(R4)
                    BE       FOUND_IT

FOUND_IT DS       0H
                    LA        R4,10(R4)
                    L          R14,R4
                    BALR  R14,R15


Is my logic correct ? or did i miss something ?

Regards,
Scott


Reply via email to