ISAUTH EDCPRLG DSALEN=CDSALEN,BASEREG=NONE
*
TESTAUTH FCTN=1
*
SRL R15,2 4 => 1
LCR R15,R15 1 => -1
AHI R15,1 1 => 0; 0 => 1
*
EDCEPIL ,---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
