IBM SC34-6814-04 - Manual (Page 551)

* REGISTER CONVENTIONS = *
* R0 used by DFHEICAL expansion *
* R1 -------"-------"------"---- *
* R2 Base for Input parameters *
* R3 Base for code addressability *
* R4 Base for model name list *
* R5 Base for output parameter list *
* R6 Work register *
* R7 -----"------- *
* R8 -----"------- *
* R9 free *
* R10 Internal subroutine linkage return *
* R11 Base for EIB *
* R12 free *
* R13 Base for dynamic storage *
* R14 used by DFHEICAL expansion *
* R15 -------"-------"------"---- *
*
* SELECT MODEL
*
LH R6,TABLEN Number of valid netnames
LA R7,TABLE Address the table
*
LOOP1
CLC NETNAME(4),0(R7) Is this netname in table?
BE VALIDT
*
LA R7,16(R7) Next table entry
BCT R6,LOOP1
*
*
Now we know its not a valid netname
* simply return and the logon is rejected
*
B RETURN
*
Figure 39. Example of how to customize the DFHZATDX sample program (part 1)
Chapter 10. Writing a program to control autoinstall of terminals 529