         SYSTEM   OPTIONS                                                       
         DO       #TJE                                                          
         DEF      A:TEL                                                         
*                                                                               
*                                                                               
         REF      TEL3              ENTRY TO INITIALIZE WORKSPACE               
*                                                                               
*                                                                               
         PCC      0                                                             
         PSYS     0                                                             
         SYSTEM   SIG5                                                          
         TITLE    '** TEL **'                                                   
*                 LOAD MODULE HEADER                                            
*                                                                               
         GEN,8,24 X'84',TEL         FLAGS,FWA                                   
         GEN,8,24 X'FF',TELBEGIN    MAX. SOLICITED ECBS,LWA                     
         GEN,8,24 X'FF',TELBEGIN    MAX. RESP. ECBS, ENYRY                      
         GEN,8,24 X'FF',TOTBYTES    MAX. ENQUEUES, ROOT MEM. LENGTH             
         GEN,8,24 2,TEL             NR. SEGS., PCB ADDRESS                      
         DATA     TOTBYTES          ROOT LM LENGTH                              
         DATA     0,0,0,0,0,0       NO ROOT PART 2                              
         GEN,32,16,16 RTS,RTS1-RTS,0 RBM TEMP STACK SCD PROTOTYPE               
         DATA     0                 NR. ENTRIES IN DCBTAB                       
         DATA     0                 NR. PUBLIBS                                 
         PAGE                                                                   
         ORG      0                 CUE SYSTEM FOR END-OF-SECTOR                
*        PROGRAM CONTROL BLOCK                                                  
*                                                                               
TEL      RES      0                                                             
         DATA     TSTACK-1          LOADED AT START OF BKG                      
         DATA,2   TSTACK1-TSTACK,0                                              
         DATA     0                 NOT USED BY TEL                             
         DATA     0                 NOTUSED BY TEL                              
         DATA     0                 TRAP HANDLING - NONE                        
         DATA     0                 M:SL OCB FOR TEL OVERLAYS                   
ENTRY    DATA     TELBEGIN,0,0,0    ENTRY ADDRESS FOR TEL                       
         DATA     0,0,0                                                         
TSTACK   RES      50                USER TEMP STACK                             
TSTACK1  RES      0                                                             
RTS      RES      150               RBM TEMP STACK                              
RTS1     RES      0                                                             
TELBEGIN B        TEL3              B TO INITIALIZE WORKSPACE                   
A:TEL    DATA     'TEL '                                                        
TOTBYTES EQU      BA(A:TEL)-BA(TEL)                                             
         FIN      #TJE                                                          
         END                                                                    
