         PCC      0                                                             
          SYSTEM   SIG5P                                                        
         SYSTEM   OPTIONS                                                       
          DEF      A:CRS2,CRS2XIT                                               
         DEF      CPRSYMBL,CRS2XIT2                                             
OLAYFLAG EQU      'CRS2'                                                        
         TITLE    '** CRS2 - CRASH SYMBOL TABLE AND SUBROUTINES **'             
         TITLE    '** CRS2 - PROCS  AND STUFF **'                               
*                                                                               
*                                                                               
* SYMBOL TABLE GENERATOR                                                        
*                                                                               
SYMBOL   CNAME                                                                  
         PROC                                                                   
LF       TEXT     AF(1)                                                         
         DATA     AF(2)                                                         
         PEND                                                                   
*                                                                               
         SYSTEM   CPRMON                                                        
         TITLE    '** CRS2 - CRS2 SUBROUTINE **'                                
*                                                                               
* THIS  FILLS  A BLOCKING BUFFER    WITH    THE CRASH SYMBOL MAP                
*                                                                               
* USES R0 AND R6                                                                
*                                                                               
* R5     LINK                                                                   
* R12    BUFFER PTR                                                             
* R15    BUFFER PTR PTR                                                         
*                                                                               
CRS2     RES      0                                                             
A:CRS2   EQU      CRS2                                                          
*                                                                               
          LI,R6    SYMBOLEND-SYMBOL-1 MOVE SYMBOLS TO BUFFER                    
          LW,R0    SYMBOL,R6                                                    
          STW,R0   *R12,R6                                                      
          BDR,R6   %-2                                                          
*                                                                               
         LW,R0    SYMBOL            MOVE IN COUNT                               
         STW,R0   *R12                                                          
*                                                                               
CRS2XIT  B        0,R5              RETURN                                      
         TITLE    '** CRS2 - CPRSYMBOL SUBROUTINE **'                           
*                                                                               
* THIS SUBROUTINE RETURNS THE VALUE OF A SYMBOL                                 
*                                                                               
*                                                                               
* INPUT:                                                                        
* R7     LINK                                                                   
* R8/R9  8 BYTES OF TEXT OF SYMBOL                                              
*                                                                               
* OUTPUT:                                                                       
* R8     VALUE OF SYMBOL                                                        
*                                                                               
* SKIP EXIT IF FOUND                                                            
* EXIT NORMAL IF CANT FIND                                                      
*                                                                               
CPRSYMBL RES      0                                                             
         PSW,R7   *PCBPOINT         SAVE LINK ON USER STACK                     
*                                                                               
         LI,R7    SYMBOL+1          START OF SYMBOL TABLE                       
*                                                                               
SYMBLOOP CW,R8    0,R7              IS IT THIS SYMBOL                           
         BNE      %+3               NO                                          
*                                   MAYBE                                       
         CW,R9    1,R7              IS THE SECOND HALF THE SAME                 
         BE       GOTIT             YES                                         
*                                   NO                                          
         AI,R7    3                 GO TO NEXT SYMBOL                           
         CI,R7    MAXSYMBL          DONE                                        
         BL       SYMBLOOP          GO LOOP                                     
*                                   CANT FIND, SEARCH OVERLAY TABLE             
         LH,R7    OVLOAD1           GET OLOAD LENGTH                            
         CW,R8    OVLOAD2,R7        IS IT THIS OVERLAY                          
         BE       OLAYNAME          YES                                         
         BDR,R7   %-2               NO, LOOP                                    
         B        NOTOLAY           CANT FIND HERE EITHER                       
*                                                                               
OLAYNAME RES      0                                                             
         LW,R9    EPIEP,R7          IS IT A SSOLAY OR JCP                       
         BEZ      SSOLAY            YES                                         
*                                   NO                                          
         AND,R9   Y007F             IS IT RESIDENT                              
         BNEZ     NROLAY            NO                                          
*                                   YES                                         
         LW,R8    OVISK,R7          GET BASE ADDRESS                            
         SLS,R8   -2                FORM WORD ADDRESS                           
         B        GOTEXIT                                                       
*********                                                                       
SSOLAY   RES      0                                                             
         LW,R8    K:BACKBG          GET START OF BKG AS BASE                    
         B        GOTEXIT                                                       
*********                                                                       
NROLAY   RES      0                                                             
         LI,R8    OLAYFWA           GET OVERLAY BASE                            
         B        GOTEXIT                                                       
*********                                                                       
NOTOLAY  RES      0                                                             
         PLW,R7   *PCBPOINT         RECOVER LINK                                
CRS2XIT2 B        0,R7              EXIT, SYMBOL NOT FOUND                      
********                                                                        
GOTIT    RES      0                                                             
         LW,R8    2,R7              GET VALUE                                   
*                                                                               
GOTEXIT  RES      0                                                             
         PLW,R7   *PCBPOINT         RECOVER LINK                                
         AI,R7    1                                                             
         B        CRS2XIT2          AND EXIT                                    
         TITLE    '** CRS2 - SYMBOL TABLE **'                                   
*                                                                               
SYMBOL   RES      256                                                           
         ORG      SYMBOL                                                        
         DATA     SYMBOLEND-SYMBOL-1                                            
         SYMBOL   'CPR     ',RBM                                                
         SYMBOL   'OLAYFWA ',OLAYFWA                                            
         SYMBOL   'MDDCTI  ',MDDCTI                                             
         SYMBOL   'MDBOA   ',MDBOA                                              
         SYMBOL   'MDEOA   ',MDEOA                                              
         SYMBOL   'MDFLAG  ',MDFLAG                                             
         SYMBOL   'MDNAME  ',MDNAME                                             
         SYMBOL   'S:TRACE ',S:TRACE                                            
         SYMBOL   'DCT1    ',DCT1                                               
         SYMBOL   'DCT2    ',DCT2                                               
         SYMBOL   'DCT3    ',DCT3                                               
         SYMBOL   'DCT5    ',DCT5                                               
         SYMBOL   'DCT6    ',DCT6                                               
         SYMBOL   'DCT7    ',DCT7                                               
         SYMBOL   'DCT11   ',DCT11                                              
         SYMBOL   'DCT12   ',DCT12                                              
         SYMBOL   'DCT13   ',DCT13                                              
         SYMBOL   'DCT16   ',DCT16                                              
         SYMBOL   'DCT19   ',DCT19                                              
         SYMBOL   'DCT20   ',DCT20                                              
         SYMBOL   'DCT21   ',DCT21                                              
         SYMBOL   'IOQ1    ',IOQ1                                               
         SYMBOL   'IOQ2    ',IOQ2                                               
         SYMBOL   'IOQ3    ',IOQ3                                               
         SYMBOL   'IOQ4    ',IOQ4                                               
         SYMBOL   'IOQ5    ',IOQ5                                               
         SYMBOL   'IOQ7    ',IOQ7                                               
         SYMBOL   'IOQ8    ',IOQ8                                               
         SYMBOL   'IOQ9    ',IOQ9                                               
         SYMBOL   'IOQ10   ',IOQ10                                              
         SYMBOL   'IOQ11   ',IOQ11                                              
         SYMBOL   'IOQ12   ',IOQ12                                              
         SYMBOL   'IOQ13   ',IOQ13                                              
         SYMBOL   'IOQ14   ',IOQ14                                              
         SYMBOL   'IOQECB  ',IOQECB                                             
         DO1      #ERRORLOG                                                     
         SYMBOL   'IOQERROR',IOQERROR                                           
         SYMBOL   'CIT1    ',CIT1                                               
         SYMBOL   'CIT2    ',CIT2                                               
         SYMBOL   'CIT3    ',CIT3                                               
         SYMBOL   'RFT1   ',RFT1                                                
         SYMBOL   'RFT2   ',RFT2                                                
         SYMBOL   'RFT3   ',RFT3                                                
         SYMBOL   'RFT4   ',RFT4                                                
         SYMBOL   'RFT5   ',RFT5                                                
         SYMBOL   'RFT6   ',RFT6                                                
         SYMBOL   'RFT7   ',RFT7                                                
         SYMBOL   'RFT8   ',RFT8                                                
         SYMBOL   'RFT10  ',RFT10                                               
         SYMBOL   'RFT11  ',RFT11                                               
         SYMBOL   'RFT12  ',RFT12                                               
         SYMBOL   'RFT13  ',RFT13                                               
         SYMBOL   'RFT14  ',RFT14                                               
         SYMBOL   'RFT15  ',RFT15                                               
         SYMBOL   'RFT16  ',RFT16                                               
         SYMBOL   'RFT17  ',RFT17                                               
         SYMBOL   'RFTESZ  ',RFTESZ                                             
         SYMBOL   'RFTE#   ',RFTE#                                              
         SYMBOL   'RFTACNT ',RFTACNT                                            
         SYMBOL   'LMINAME ',LMINAME                                            
         SYMBOL   'LMISTAT ',LMISTAT                                            
         SYMBOL   'LMISDT  ',LMISDT                                             
         SYMBOL   'LMIRTS  ',LMIRTS                                             
         DO       #ECB                                                          
         SYMBOL   'LMIMAXS ',LMIMAXS                                            
         SYMBOL   'LMIAET  ',LMIAET                                             
         FIN      #ECB                                                          
         SYMBOL   'STIRTSB ',STIRTSB                                            
         SYMBOL   'STIOVID ',STIOVID                                            
         SYMBOL   'STIJID ',STIJID                                              
         SYMBOL   'STILMID ',STILMID                                            
         SYMBOL   'STIPRIO ',STIPRIO                                            
         SYMBOL   'STITCB ',STITCB                                              
         SYMBOL   'STICOUNT',STICOUNT                                           
         SYMBOL   'STISTAT ',STISTAT                                            
         SYMBOL   'STISPCE ',STISPCE                                            
         SYMBOL   'SJI1    ',SJI1                                               
         SYMBOL   'SJI2    ',SJI2                                               
         SYMBOL   'SJI3    ',SJI3                                               
         SYMBOL   'OVLOAD1 ',OVLOAD1                                            
         SYMBOL   'OVLOAD2 ',OVLOAD2                                            
         SYMBOL   'OVLOAD3 ',OVLOAD3                                            
         SYMBOL   'EPIEP   ',EPIEP                                              
         DO1      #CRASH                                                        
         SYMBOL   'CRASHMSG',CRASHMSG                                           
SYMBOLEND RES     0                                                             
*                                                                               
* THERE IS NO MORE ROOM FOR SYMBOLS BEFORE THIS                                 
*                                                                               
* SYMBOLS AFTER THIS ARE AVAILABLE FOR CPRSYMBL BUT NOT FOR                     
* THE CRS SHORT MAP RECORD                                                      
*                                                                               
         DO1      (AP+META)>0                                                   
         ERROR,7,((SYMBOLEND-SYMBOL-1)>256) 'TOO MANY SYMBOLS'                  
*                                                                               
*                                                                               
         DO       #SYMB                                                         
         SYMBOL   'DCTSYM1 ',DCTSYM1                                            
         SYMBOL   'DCTSYM2 ',DCTSYM2                                            
         SYMBOL   'DCTSYM3 ',DCTSYM3                                            
         FIN      #SYMB                                                         
         DO       #DUALFLG                                                      
         SYMBOL   'DCT1A   ',DCT1A                                              
         SYMBOL   'DCT1P   ',DCT1P                                              
         FIN      #DUALFLG                                                      
         SYMBOL   'DCT4    ',DCT4                                               
         SYMBOL   'DCT8    ',DCT8                                               
         SYMBOL   'DCT9    ',DCT9                                               
         SYMBOL   'DCT10   ',DCT10                                              
         SYMBOL   'DCT14   ',DCT14                                              
         SYMBOL   'DCT15   ',DCT15                                              
         SYMBOL   'DCT17   ',DCT17                                              
         SYMBOL   'DCT18   ',DCT18                                              
         SYMBOL   'DCT20A  ',DCT20A                                             
         SYMBOL   'DCTRBM  ',DCTRBM                                             
         SYMBOL   'DCTDCB  ',DCTDCB                                             
         SYMBOL   'DCTJID  ',DCTJID                                             
         SYMBOL   'CIT5    ',CIT5                                               
         SYMBOL   'CIT6    ',CIT6                                               
         SYMBOL   'RFT9    ',RFT9                                               
         SYMBOL   'LMIPCB  ',LMIPCB                                             
         SYMBOL   'LMIFWA  ',LMIFWA                                             
         SYMBOL   'LMIJID  ',LMIJID                                             
         SYMBOL   'LMILWA  ',LMILWA                                             
         SYMBOL   'LMIPL   ',LMIPL                                              
         SYMBOL   'LMICTXT ',LMICTXT                                            
         SYMBOL   'LMIMAXR ',LMIMAXR                                            
         SYMBOL   'LMIUSERS',LMIUSERS                                           
         SYMBOL   'LMI#    ',LMI#                                               
         SYMBOL   'LMISECB ',LMISECB                                            
         SYMBOL   'LMIRECB ',LMIRECB                                            
         SYMBOL   'STISTAT ',STISTAT                                            
         SYMBOL   'STIXRTS ',STIXRTS                                            
         SYMBOL   'STIPRIO ',STIPRIO                                            
         SYMBOL   'STITICK ',STITICK                                            
         SYMBOL   'STITIME ',STITIME                                            
         SYMBOL   'RDLIPRIO',RDLIPRIO                                           
         SYMBOL   'RDLITCB ',RDLITCB                                            
         SYMBOL   'RDLIADD ',RDLIADD                                            
         SYMBOL   'RDLILVL1',RDLILVL1                                           
         SYMBOL   'RDLIGRP1',RDLIGRP1                                           
         SYMBOL   'RDLILVL2',RDLILVL2                                           
         SYMBOL   'RDLIGRP2',RDLIGRP2                                           
         SYMBOL   'OPLB1   ',OPLB1                                              
         SYMBOL   'OPLB2   ',OPLB2                                              
         SYMBOL   'OPLB3   ',OPLB3                                              
         SYMBOL   'ALARMREC',ALARMREC                                           
         SYMBOL   'OVISK   ',OVISK                                              
         SYMBOL   'EPIB    ',EPIB                                               
         SYMBOL   'WLOCK   ',WLOCK                                              
         SYMBOL   'GTBL    ',GTBL                                               
         DO1      #ERRORLOG                                              267.010
         SYMBOL   'LOGSTACK',LOGSTACK                                           
         SYMBOL   'INTLB1  ',INTLB1                                             
         SYMBOL   'INTLB2  ',INTLB2                                             
         SYMBOL   'RMPT    ',RMPT                                               
         SYMBOL   'PPT     ',PPT                                                
         SYMBOL   'S:TRACE ',S:TRACE                                            
         SYMBOL   'S:TRACES',S:TRACES                                           
         SYMBOL   'MDDISCI ',MDDISCI                                            
         SYMBOL   'DISCNSPT',DISCNSPT                                           
         SYMBOL   'DISCNWPS',DISCNWPS                                           
         SYMBOL   'DISCMAXS',DISCMAXS                                           
         SYMBOL   'DISCMINS',DISCMINS                                           
         SYMBOL   'DISCSSFT',DISCSSFT                                           
         SYMBOL   'DISCTSFT',DISCTSFT                                           
         SYMBOL   'DISCCSFT',DISCCSFT                                           
         SYMBOL   'DISCNTPC',DISCNTPC                                           
         SYMBOL   'DISCNCYL',DISCNCYL                                           
         DO1      #ERRORLOG                                                     
         SYMBOL   'LOGFLAG ',LOGFLAG                                            
         SYMBOL   'K:UNAVBG',K:UNAVBG                                           
         SYMBOL   'K:JCP1  ',K:JCP1                                             
         SYMBOL   'K:CTST  ',K:CTST                                             
         SYMBOL   'MMTPAGES',MMTPAGES                                           
         SYMBOL   'MMRLEVEL',MMRLEVEL                                           
         SYMBOL   'MMRPRIO ',MMRPRIO                                            
MAXSYMBL RES      0                                                             
*                                                                               
* END OF EXTENDED SYMBOL TABLE                                                  
*                                                                               
         OLAYEND                                                                
*                                                                               
         END                                                                    
