         SYSTEM   OPTIONS                                                       
         DO       #TJE                                                          
         PSYS     0                                                             
OLAYFLAG EQU      'TEX'                                                         
         SYSTEM   CPRMON                                                        
         PAGE                                                                   
         DEF      A:TEX                                                         
         DEF      TEXSTCB           SEC. TASK CONTROL BLOCK                     
         DEF      TEXSTACK          TEMP STACK FOR TEX-TEX                      
         DEF      TEXWORKS          POINTER TO TEX WORKSPACE                    
         DEF      TJE:NUM           VALUE, MAX. NUMBER OF LINES                 
         DEF      TJE:NOW           CURRENT NUMBER OF LINES                     
*        REF      TEXEXEC           ENTRY TO TEX OVERLAYS                       
         PAGE                                                                   
TEXWORKS DATA     0                 POINTER TO TEX WORKSPACE                    
TJE:NUM  DATA     0                 MAX. NUMBER OF LINES ALLOWED                
TJE:NOW  DATA     0                 CURRENT NUMBER OF LINES ON                  
TEXENTRY B        TEXEXEC           ENTRY TO TEX OVERLAYS                       
*                                                                               
*                                                                               
         BOUND    16                                                            
*                                                                               
*                                                                               
TEXSTCB  GEN,9,1,22       0,1,TEXENTRY     ENTRY PSD, START ADDR                
         DATA     0                                                             
         DATA     TEXSTCB+4,0       INTERMEDIATE PSD                            
         STM,R0   TEXSTCB+10        SAVE REGISTERS                              
         BAL,R1   RBMSAVE           ENTER EXEC                                  
         GEN,8,24 X'B0',LMIRTS+TEXLMID    PCB POINT                             
         GEN,8,24 TEXTID,TEXSTCB          TCB POINT                             
         DATA     TDRDLRET,0        ENTRY POINT TO DISPATCHER                   
         RES      16                REGISTERS                                   
         GEN,8,24 1,TEXAST          AST, 1 WORD LONG                            
         GEN,8,24 16,TEXACI         ACT, 16 WORDS LONG                          
         DATA     0,0,0,0           RDL, -, ALT PSD                             
*                                                                               
*                                                                               
TEXACI   RES      16                TEX ACI TABLE                               
TEXAST   DATA     RBMSD+ASTACT+ASTFA   AST FOR TEX   JOB PAGES                  
         PAGE                                                                   
         SPACE    2                                                             
TEXSTACK RES      TEXSSZ            STACK AREA FOR THE TASK                     
A:TEX    TEXT     'TEX '                                                        
         FIN      #TJE                                                          
         END                                                                    
