*DECK ZD30
_ 
*********************************************************************** 
*                                                                     * 
*     COPYRIGHT CONTROL DATA CORPORATION, 1975, 1976, 1977, 1978,     * 
*     1979, 1980, 1981, 1982, 1983, 1984, 1985.                       * 
*                                                                     * 
*********************************************************************** 
? 
_ 
********************************************* 
*                                           * 
*        CONSTANTS                          * 
*                                           * 
********************************************* 
? 
CONST 
      /TRUE  =  1;
      /FALSE =  0;
  
*CALL ZCNBDL
*CALL ZCONUSER
_?
_ 
********************************************* 
*                                           * 
*        VARIABLE DECLARATIONS              * 
*                                           * 
********************************************* 
? 
VAR 
      /I;               _ GENERAL LOOP INDEX                    ? 
      /I1;              _ GENERAL LOOP INDEX                           ?
      /I2;              _ GENERAL LOOP INDEX                           ?
      /I3;              _ GENERAL USE VARIABLE                         ?
      /P;               _ WORK POINTER FOR MODEM STATE PROGRAMS        ?
      /J;               _ GENERAL INDEX LOOP                           ?
      /L;               _WORK-POINTER FOR TIP-INPUT-STATES? 
      /LSAVE;           _ SAVE WORK PTR IN TEXT PROCR HDR STATE PROGRAM?
      /PSNPARM; 
      /K;               _VARIABLE INDEX KQCNTRTBL                      ?
*CALL ZVRBDL
*CALL ZVARUSR 
_ 
********************************************* 
*                                           * 
*     ARRAY DECLARATIONS - BASE AND CCP     * 
*     TABLES                                * 
*                                           * 
********************************************* 
? 
ARRAY 
*CALL ZARBDL
*CALL ZARRUSR 
_ 
****************************************
*                                      *
*     DEFINE PSEUD0 VARIABLES          *
*                                      *
****************************************
? 
BEGIN 
*CALL ZBLDID
      /TRACE := 0;                          _ TURN OFF TRACE           ?
      /ESL$  := 0;                          _ TURN OFF SYMBOL TABLE    ?
      /DMP$  := 0;                          _ TURN OFF DUMP            ?
*CALL ZEXBDL
*CALL ZEXUSR
END.
