         TITLE    '     A N A L Y Z E   P R I N T   P R O C E S S O R'          
         SPACE    2                                                             
************************************************************************        
*                                                                      *        
#SYSTEM  SET      'CP-R'            SYSTEM ASSEMBLED TO RUN ON         *        
*                                   'CP-R' ==> CPR, RBM; 'CP-V' ==> CPV*        
************************************************************************        
*                                                                               
*                                                                               
         SPACE    2                                                             
         SYSTEM   SIG7                                                          
*                                                                               
        DO       (#SYSTEM='CP-V')                                               
         SYSTEM   BPM                                                           
        ELSE     (#SYSTEM='CP-R')                                               
         SYSTEM   CPR                                                           
        FIN                                                                     
*                                                                               
*                                                                               
         DEF      ANALYSIS          ENTRY POINT TO THE OVERLAY                  
         PAGE                                                                   
         SPACE    2                                                             
*                           EXTERNALLY DEFINED SYMBOLS, ROUTINES, ETC.          
*                                                                               
         REF      M:C               COMMAND INPUT DCB                           
         REF      M:OC              ALTERNATE COMMAND INPUT DCB                 
         REF      M:LO              OUTPUT DCB                                  
         REF      M:LL                                                          
         REF      F:X1              SAVED CRASH INFORMATION DCB                 
         REF      F:X2              GOOD MONITOR FILE DCB                       
         REF      F:X3              MAP FILE DCB                                
*        REF      F:X4              TAPE INPUT DCB IF SAVED ON TAPE             
*                                                                               
*                                                                               
*                                                                               
         REF      U:PCB             TEMP STACK                                  
*                                                                               
*                                                                               
*                                                                               
         REF      CRSHBUF                                                       
         REF      CRSHRROS                                                      
         REF      FCOMMENT                                                      
         REF      LIMITV                                                        
         REF      LIMPTR                                                        
         REF      NOTABLE                                                       
         REF      NOTRACE                                                       
         REF      NODUMP                                                        
         REF      PAGE                                                          
         REF      #LINES            CELL IN ROOT WITH LINES PER PAGE            
         REF      MAPPAGE                                                       
         REF      K:JCP1                                                        
         REF      ERRDCB                                                        
         REF      FGDBKGSW                                                      
         TITLE    '      EQU''S FOR CONSTANTS AND OFFSETS'                      
         SPACE    2                                                             
AETPTROS EQU      8                                                             
*                           DATA FIELD WIDTH CODES                              
BYTE     EQU      1                                                             
HALF     EQU      2                                                             
WORD     EQU      0                                                             
DWRD     EQU      3                                                             
REP2     EQU      4                                                             
DCMNT    EQU      1                                                             
*                           COMPUTER TYPES FOR PSD DISPLAYS                     
SIG7     EQU      -2                A SIGMA 7 COMPUTER                          
SIG9     EQU      -3                A SIGMA 9                                   
C560     EQU      -5                A 550 OR 560                                
ALLC     EQU      -8                ANY AND/OR ALL COMPUTERS                    
MSGLEN   EQU      52                MAX LENGTH OF CRASH MSG TO PRINT            
*                                                                               
OS       EQU      1                 OFFSET INDICES                              
OSLOC    EQU      2                                                             
TIMOS    EQU      5                                                             
TTYPGCOL EQU      64                COLUMN FOR 'PAGE' ON TTY                    
XX       EQU      X'80000'                                                      
*                                                                               
@BWD     EQU      7                 SIZE OF A BWD TABLE                         
@BWDS    EQU      2                 SIZE OF BWD WITH NO TEXT DESCRIPTION        
         PAGE                                                                   
         SPACE    2                                                             
*                           REGISTER DEFINITIONS                                
*                                                                               
R0       EQU       0                                                            
R1       EQU       1                                                            
R2       EQU       2                                                            
R3       EQU       3                                                            
R4       EQU       4                                                            
R5       EQU       5                                                            
R6       EQU       6                                                            
R7       EQU       7                                                            
R8       EQU       8                                                            
R9       EQU       9                                                            
R10      EQU      10                                                            
R11      EQU      11                                                            
R12      EQU      12                                                            
R13      EQU      13                                                            
R14      EQU      14                                                            
R15      EQU      15                                                            
         TITLE    'PROC''S'                                                     
DEFTEXT  CNAME                                                                  
         PROC                                                                   
LF       GEN,8,24 4*(AF(2)-AF(1)),AF(1) BYTE LENGTH,  LOCATION                  
         PEND                                                                   
DEFTEXT1 CNAME                                                                  
         PROC                                                                   
LF       GEN,8,24 AF(2),AF(1)                                                   
         PEND                                                                   
         OPEN     Q,I                                                           
TXTS     CNAME    0                                                             
TXT      CNAME    0                                                             
TXTC     CNAME    1                                                             
         PROC                                                                   
Q        SET      S:UT(AF)                                                      
I        SET      S:NUMC(Q)                                                     
Q(I+1)   SET      ' '                                                           
Q(I+2)   SET      ' '                                                           
Q(I+3)   SET      ' '                                                           
         DO       NAME=0                                                        
LF       TEXT     S:PT(Q(1),Q(2),Q(3),Q(4))                                     
         LIST     0                                                             
         ORG      %-1                                                           
         TEXT     AF                                                            
         ELSE                                                                   
LF       DATA     (((I)**8+Q(1))**8+Q(2))**8+Q(3)                               
         LIST     0                                                             
         ORG      %-1                                                           
         TEXTC    AF                                                            
         FIN                                                                    
         LIST     1                                                             
         PEND                                                                   
         CLOSE    Q,I                                                           
SWS      CNAME                      SINGLE WORD SYSTEM CELL PROCEDURE           
         PROC                                                                   
         BOUND    8                                                             
LF       TEXT     AF(1)             CELL NAME 8 CHARACTERS                      
         GEN,8,24 AF(2),AF(3)       DISPLAY ROUTINE INDEX, CELL LOCATION        
         GEN,8,24 AF(4),AF(5)       #BWD'S',BWD POINTER                         
         PEND                                                                   
BWD      CNAME                      BURST WORD DESCRIPTION PROCEDURE            
         PROC                                                                   
LF       DATA     (((AF(1))**8+AF(2))**8+AF(3))**8+AF(4)                        
*                 ELEMENT LENGTH, 1ST BIT OF FIELD, NUMBER OF BITS,             
*                                 CONVERSION ROUTINE                            
         DATA     (((AF(5))**8+((-AF(6)-1)&X'FF'))**8+0)**8+0                   
*                 BWD LENGTH,   COMPUTER TYPE OR COLUMN WIDTH,                  
         PEND                                                                   
*                                                                               
*                                                                               
*                                                                               
PUSH     CNAME    1,(#SYSTEM='CP-V')                                            
PULL     CNAME    0,(#SYSTEM='CP-V')                                            
         PROC                                                                   
         DO       NUM(AF)=1                                                     
LF       GEN,1,7,4,20        NAME(2),X'8'+NAME(1),AF(1),U:PCB                   
         ELSE                                                                   
LF       LCI      AF(1)&X'F'                                                    
         GEN,1,7,4,20       NAME(2),X'A'+NAME(1),AF(2),U:PCB                    
         FIN                                                                    
         PEND                                                                   
         TITLE    '         S T A R T   O F   A N A L Y Z E   P R I N T'        
*                                                                               
*                                                                               
ANALYSIS EQU      %         ENTRY POINT TO SEGMENT: START PRINTING              
         PUSH     16,R14            SAVE ALL REGISTERS                          
         LI,R1    0                 CLEAR TABLE OF CONTENTS STARTING            
         LI,R2    (DISPLEN+1)/2     PAGE NUMBERS TO ZERO                        
         STW,R1   TOCPAGE-1,R2      WHICH ALSO MEANS IT WAS NOT OUTPUT          
         BDR,R2   %-1                                                           
*                                                                               
MAINLOOP EQU      %         MAIN PROCESSOR LOOP :                               
         STW,R1   ALGCT             STORE CURRENT ALGORITHM INDEX NUM           
         LI,R15   -1                SET STARTING A NEW DISPLAY FOR              
         STW,R15  NEWDISP           OUTHDR TO SAVE PAGE NUMBER                  
         LW,R15   DISPALGS,R1       GET ADDRESS OF ALGORITHM TO DO              
         BAL,R15  *R15              DO IT, MAN, DO IT!!                         
*                                                                               
NEXTALG  EQU      %         RETURN FROM AN ALGORITHM                            
         LW,R1    ALGCT             GET CURRENT ID NUMBER                       
         AI,R1    1                 STEP TO NEXT                                
         CI,R1    DISPLEN           WAS THIS THE LAST ONE ?                     
         BL       MAINLOOP            NO, DO THE NEXT                           
*                                                                               
OKEXIT   RES      0         RETURN TO ROOT WITH NO ERRORS; DO MORE OK           
         M:TRAP   (ABORT,NAO,UI,FP,DEC,FX)     RESET TRAPS TO ABORT             
         PULL     16,R14            RECOVER THE CALLERS REGISTERS               
         AI,R14   1                 SET NO ERRORS                               
         B        *R14              AND RETURN                                  
         PAGE                                                                   
         SPACE    2                                                             
ABORTXIT RES      0         RETURN TO ROOT WITH FATAL ERROR; CODE IN R0         
         M:TRAP   (ABORT,NAO,UI,FP,DEC,FX)     RESET TRAPS TO ABORT             
         PULL     13,R1             RECOVER MOST OF THE REGISTERS               
         LW,R10   R0                SET RETURN CODE                             
         PULL     3,R14             GET REST OF THE REGISTERS                   
         B        *R14              RETURN AT ERROR EXIT                        
         PAGE                                                                   
         SPACE    2                                                             
*        FUNCTION:           ACCESS ALGORITHMS TO BURST A TABLE                 
*                                                                               
*                 EACH ENTRY POINTS TO A ROUTINE THAT WILL PROCESS THE          
*                 PRINTING OF ONE TYPE OF TABLE'S DISPLAY (BURST) OUTPUT        
*                    THE HIGH ORDER BYTE SEEMS TO INDICATE THE MAXIMUM          
*                 NUMBER OF PAGES THAT WILL BE USED FOR THE DISPLAY.            
*                                                                               
*                                                                               
DISPALGS RES      0                                                             
         GEN,8,24 16,AMAPALG                                                    
         GEN,8,24 1,CONTALG         CONTEXT ALGORITHM                           
         GEN,8,24 4,SINGALG                                                     
         GEN,8,24 2,BURSALG                                                     
         GEN,8,24 8,AETALG                                                      
         GEN,8,24 4,BBCTALG                                                     
         GEN,8,24 4,CITALG                                                      
         GEN,8,24 8,COCALG                                                      
         GEN,8,24 24,DCTALG                                                     
         GEN,8,24 8,ECBALG                                                      
         GEN,8,24 4,EDTALG                                                      
         GEN,8,24 4,INTLBALG                                                    
         GEN,8,24 8,IOQTALG                                                     
         GEN,8,24 1,IOLALG                                                      
         GEN,8,24 6,JCBALG                                                      
         GEN,8,24 4,JPTALG                                                      
         GEN,8,24 64,LMITALG                                                    
LNOS     EQU      %-DISPALGS                                                    
         GEN,8,24 8,LNALG                                                       
         GEN,8,24 2,MAPALG          MEMORY MAP                                  
MDOS     EQU      %-DISPALGS                                                    
         GEN,8,24 5,MDALG                                                       
         GEN,8,24 8,OPLBLALG                                                    
         GEN,8,24 8,OVLYALG                                                     
PSDOS    EQU      %-DISPALGS                                                    
         GEN,8,24 16,PSDALG                                                     
         GEN,8,24 16,RDLIALG                                                    
         GEN,8,24 16,RFTALG                                                     
         GEN,8,24 4,RMPALG                                                      
         GEN,8,24 20,SDTALG                                                     
         GEN,8,24 4,SIALG                                                       
         GEN,8,24 10,SJIALG                                                     
         GEN,8,24 30,STIALG                                                     
         GEN,8,24 40,TCBALG                                                     
NOTAOS   EQU      %-DISPALGS-1                                                  
         GEN,8,24 40,TRACEALG                                                   
         GEN,8,24 255,HEXALG        HEX/EBCDIC ALGORITHM                        
         GEN,8,24 2,TOCALG          TABLE OF CONTENTS                           
DISPLGND RES      0                                                             
DISPLEN  EQU      DISPLGND-DISPALGS                                             
         TITLE    '       C O N V E R S I O N   A L G O R I T H M S'            
         SPACE    3                                                             
* INITIALIZATION PROCEDURE - READ MAP FILE, FIND ALL NAMES IN                   
* SINGLE WORD SYSTEM CELL LIST, CONVERT AND STORE THE LOCATION                  
* VALUES                                                                        
*                                                                               
AMAPALG  RES      0                                                             
RMF      RES      0                                                             
         M:READ   F:X3,(BUF,INBUF),(SIZE,80),(ABN,ABNHAND),(WAIT)               
         BAL,R15  GETCHAR0          GET A NAME                                  
         LD,R8    BLANKS                                                        
         MTW,0    FSGIN             STILL IN SYSGEN INPUT                       
         BNEZ     RMF1               UNTIL FSGIN SET                            
         CI,R0    '*'                                                           
         BNE      RMF                                                           
         MTW,1    FSGIN             NOW IN TABLE ALLOCATION                     
         B        RMF                 PART OF MAP                               
RMF1     RES      0                                                             
         MTW,0    FPRAL             WHEN FPRAL SET WE                           
         BNEZ     RMF                 HAVE PASSED TABLE PART OF MAP             
         CI,R0    '*'                                                           
         BNE      RMF3              BRANCH IF IN TABLE PART OF MAP              
         MTW,1    FPRAL                                                         
         B        RMF                                                           
RMF2A    LD,R8    BLANKS                                                        
RMF2     BAL,R15  GETCHAR                                                       
         BEZ      RMF               END OF LINE                                 
RMF3     CI,R0    ' '               GET ANOTHER CHAR IF BLANK                   
         BE       RMF2                                                          
         CI,R0    '='               END OF NAME                                 
         BE       RMF4                                                          
         SCD,R8    8                CONCATENATE CHARACTER                       
         STB,R0   R8                  TO NAME                                   
         B        RMF2                                                          
RMF4     RES      0                                                             
         SCD,R8   8                 FINISH PUTTING NAME                         
         LB,R0    R8                IN PLACE                                    
         CI,R0    ' '                                                           
         BE       %-3                                                           
         BAL,R15  EBCHEXC           CONVERT EBCDIC HEX LOC TO BIN               
         BAL,R15  SEARCHSL          SEARCH SWSC LIST FOR NAME                   
         LW,R1    R1                                                            
         B        RMF2A                                                         
         PAGE                                                                   
ABNHAND  RES      0                                                             
         LB,R0    R10               TEST ERROR CODE FOR END OF FILE             
         CI,R0    X'06'             END-OF-FILE (!CMND) READ ?                  
         BE       SETUPMAX            YES, SET UP TABLE LENGTHS, ETC.           
         CI,R0    X'05'             END-OF-DATA (!EOD) READ ?                   
         BNE      ABORTXIT            NO, GO REPORT AN BAD ERROR                
*                                                                               
SETUPMAX RES      0                 SET UP MAX TABLE LENGTHS                    
         LI,R1    1                 SET FCORFLAG TO REAL                        
         STW,R1   FCORFLAG                                                      
         LI,R0    0                                                             
         STW,R0   CITSTBL+4                                                     
         LW,R11   KDCT1                                                         
         BAL,R15  FINDCORE                                                      
         LH,R11   R11               GET NUMBER OF DCT'S                         
         STW,R11  DCTSTBL+4         AND SAVE                                    
         STW,R1   INDTABLE          SAVE R1                                     
         LI,R1    -60                                                           
CITINDL1 LW,R11   KDCT2                                                         
         AI,R11   60                                                            
         AW,R11   R1                                                            
         BAL,R15  FINDCORE          MOVE A COPY OF DCT2 TO THE                  
         STW,R11  VALTABLE+60,R1    'VALUE TABLE'                               
         BIR,R1   CITINDL1                                                      
         LI,R1    1                                                             
CITINDL2 LB,R12   VALTABLE,R1                                                   
         CW,R12   CITSTBL+4         SCAN DCT2 (IN VALTABLE) FOR HIGHEST         
         BLE      %+2               CIT INDEX, WHICH IS KEPT (AND LEFT)         
         STW,R12  CITSTBL+4         IN CITSTBL+4 AT END OF LOOP                 
         CW,R1    4*60                                                          
         BE       CITINDND                                                      
         AI,R1    1                                                             
         CW,R1    DCTSTBL+4                                                     
         BLE      CITINDL2                                                      
CITINDND RES      0                                                             
         MTW,0    KCOHDN                                                        
         BEZ      COCSUMND                                                      
         LW,R11   KLCOC                                                         
         STW,R11  COCTBL+4                                                      
COCSUMND RES      0         SET MAXIMUM LIMITS FOR:                             
         LW,R11   KIOQ4                       IOQ ENTRIES                       
         BAL,R15  FINDCORE                                                      
         LB,R11   R11                                                           
         STW,R11  IOQSTBL+4                                                     
         LW,R11   KINTLB1                     INTERRUPT LABELS                  
         BAL,R15  FINDCORE                                                      
         LH,R11   R11                                                           
         STW,R11  INTLBTBL+4                                                    
         LW,R11   KLNOL                       COC LINE NUMBERS                  
         AI,R11   -1                                                            
         STW,R11  LNTBL+4                                                       
         LW,R11   KDCT1                                                         
         BAL,R15  FINDCORE                                                      
         LH,R11   R11                                                           
         AI,R11   1                                                             
         STW,R11  LNOSVAL                                                       
         LW,R11   KNUMDA                      AREA NAMES                        
         BAL,R15  FINDCORE                                                      
         STW,R11  MDTBL+4                                                       
         LW,R11   KOL1                        OPLABELS                          
         BAL,R15  FINDCORE                                                      
         LH,R11   R11                                                           
         STW,R11  OPLBLTBL+4                                                    
         LW,R11   KOVI              NUMBER OF OVERLAYS                          
         BAL,R15  FINDCORE                                                      
         LH,R11   R11                                                           
         STW,R11  OVLYTBL+4                                                     
         LW,R11   KHIINT                      HIGHEST INTERRUPT LABEL           
         BAL,R15  FINDCORE                                                      
         STW,R11  PSDTBL+4                                                      
         LI,R11   X'2B'                                                         
         BAL,R15  FINDCORE                                                      
         LW,R15   R11               COPY SYSTEM ID WORD                         
         SLS,R15  -20               AND PICK OUT THE VERSION NUMBER             
         AND,R15  XF                VERSIONS PRIOR TO D00 HAVE AN OLD           
         CI,R15   4                 FORMAT MASTER DICTIONARY                    
         BGE      MDINIT1             NEW FORMAT: KEEP ASSEMBLED MDTBL          
*                                                                               
         LI,R15   MDXSWS            MOVE OLD FORMAT SWS TABLES INTO THE         
         STW,R15  MDTBL             ACCESS TABLES                               
         LI,R15   MDXSWSND                                                      
         STW,R15  MDTBL+1                                                       
         MTW,+1   OLDFRMAT          SET IN OLD, C-LEVEL, FORMAT TABLES          
*                                                                               
MDINIT1  RES      0                                                             
         SCS,R11  -6                GET COMPUTER TYPE AND SET INDEX             
         AND,R11  X3                FOR IT TO CONTROL COMPUTER                  
         LW,R6    R11               DEPENDENT DISPLAYS                          
         LB,R11   CTYPE,R6                                                      
         STW,R11  COMPUTER                                                      
         LW,R11   KRDLI                       DISPATCHER LEVEL INVENTORY        
         BAL,R15  FINDCORE          RDLILVL1 (0)                                
         LH,R11   R11                                                           
         STW,R11  RDLTBL+4                                                      
         LW,R11   KRFT4             GET NUMBER OF RFT ENTRIES                   
         MTW,+00  OLDFRMAT          THIS IS WHERE IT'S AT, NEH?                 
         BEZ      RFTINIT1            YES, GET THE COUNT                        
*                                                                               
*                           IN A PRE D00 VERSION; ALTER SWS & BWD ITEMS         
         LI,R15   RFTCXXND          SET NEW END OF RFT SWS CELLS TO             
         STW,R15  RFTTBL+1          NOT DO EXTENSIBLE FILE INFO                 
         LW,R15   XBRFT23           CHANGE BWD'S FOR RFT2 & 3 TO BE             
         STW,R15  BRFT2             HALFWORD DISPLAYS                           
         STW,R15  BRFT3                                                         
         LW,R15   XKRFT7+1          POINT AT OLD BWD'S                          
         STW,R15  KRFT7+1                                                       
         LW,R11   KRFT2             SET WHERE TO FIND # RFT ENTRIES             
*                                                                               
RFTINIT1 RES      0                                                             
         BAL,R15  FINDCORE                                                      
         LH,R11   R11                                                           
         STW,R11  RFTTBL+4                                                      
         LW,R11   KRMP                        REAL MEMORY PARTITIONS            
         BAL,R15  FINDCORE                                                      
         LB,R10   R11                                                           
         STW,R10  RMPTBL+4                                                      
         STW,R11  KRMPA                                                         
         LW,R11   KPPT                        PARTITION POINTERS                
         BAL,R15  FINDCORE                                                      
         STW,R11  KPPTA                                                         
         LI,R11   DSPRMP                                                        
         STB,R11  KRMPA                                                         
         STB,R11  KPPTA                                                         
         LW,R11   KSJI                        SYSTEM JOB INVENTORIES            
         BAL,R15  FINDCORE                                                      
         LB,R11   R11                                                           
         STW,R11  SJITBL+4                                                      
         LW,R11   KSTI                        SYSTEM TASK INVENTORIES           
         BAL,R15  FINDCORE                                                      
         LB,R11   R11                                                           
         STW,R11  STITBL+4                                                      
         LW,R11   KLMIT                       LOAD MODULE INVENTORIES           
         BAL,R15  FINDCORE                                                      
         LB,R11   R11                                                           
         STW,R11  LMITTBL+4                                                     
*                                                                               
*                 MOVE MAP TO MEMORY.  (THE EXTANT MEMORY MAP AT TIME           
*                                       OF THE SAVE.)                           
*                                                                               
         LI,R0    0                 CLEAR OUR MAP TO ALL ZEROS                  
         LI,R1    256               ALL 256 PAGES WORTH                         
*                                                                               
INIMAP   RES      0         INITIALIZE MAP INFO TO ZERO                         
         STW,R0   MAP-1,R1          ZERO THE PAGE MAP INFO                      
         BDR,R1   INIMAP                                                        
*                                   R1 LEFT = 0, = 1ST MAP PAGE TO GET          
*                                                                               
MMAPLOOP RES      0         MOVE MAP TO MEMORY LOOP                             
         LW,R11   KMAP              GET ADDRESS OF MAP IN CRASH SAVE            
         AW,R11   R1                ADD CURRENT PAGE NUMBER                     
         BAL,R15  FINDCORE          GET MAP INFO                                
         STW,R11  MAP,R1            STORE IN OUR COPY OF THE MAP                
         AI,R1    1                 STEP TO NEXT MAP PAGE                       
         CI,R1    256               HAVE WE DONE ALL PAGES ?                    
         BL       MMAPLOOP            NO, DO ANOTHER                            
*INITIALIZE TRACE AND VIRTUAL LIMITS                                            
         LI,R4    LIMITT                                                        
         LW,R11   STRACE            IF NO TRACE AREA INITIALIZE                 
         AND,R11  XFFFFF            REMOVE CONVERSION FLAGS; IS IT 0 ?          
         BEZ      INITVIRT           VIRTUAL DUMP ONLY                          
         BAL,R15  FINDCORE                                                      
         CI,R11   0                                                             
         BEZ      INITVIRT                                                      
         STW,R11  2,R4              SAVE LOC OF STACK POINTER DWRD              
         BAL,R15  FINDCORE                                                      
         AND,R11  XFFFFF                                                        
         STW,R11  1,R4              STORE DUMP PART 1 BEGIN = TOP OF STACK      
         LW,R11   2,R4              RECOVER ADDRESS OF STACK POINTER            
         AI,R11   1                 DWRD AND POINT AT SECOND WORD               
         BAL,R15  FINDCORE          GET SPACE LEFT, COUNT USED INFO             
         LH,R10   R11                                                           
         AND,R10  X7FFF             EXTRACT OUT SPACE LEFT                      
         AND,R11  X7FFF             AND COUNT OF USED CELLS                     
         AW,R10   1,R4              COMPUTE LAST WORD OF TRACE AREA             
         STW,R10  2,R4              AND SET AS END OF DUMP PART 1               
         LCW,R11  R11               COMPUTE FIRST WORD OF AREA                  
         AW,R11   1,R4              AS TOP OF STACK - WORDS USED,               
         AI,R11   1                 AND ADJUST FOR THE WAY PUSH/PULL            
         STW,R11  3,R4              WORKS. SET AS PART 2 START                  
         LI,R11   24                SET END OF PART 2 OF DUMP AS                
         AW,R11   1,R4              24 WORDS AFTER CURRENT TOP OF STACK         
         STW,R11  4,R4              TO INSURE END PART 2 > BEGIN PART 1         
         AI,R11   1               NOW STEP BEGIN OF PART 1 SOME                 
         STW,R11  1,R4            MORE FOR UNCLEAR REASONS                      
*                           R11 > 0  NOW USED TO SET TRACE DUMP = REAL          
INITVIRT RES      0                                                             
         STW,R11  0,R4              SET DUMPTYPE=REAL, OR SET NO TRACE          
*                                                                               
*                                                                               
         LI,R4    LIMITV            POINT AT DUMP LIMITS TABLE                  
         MTW,0    LIMITV            TEST IF ANY LIMITS INPUT                    
         BNE      INITTRND          IF YES, SKIP DEFAULTING                     
         LI,R11   0                 SET START OF DUMP ADDRESS                   
         STW,R11  1,R4              EQUAL START OF MEMORY                       
         STW,R11  3,R4              AND SET NO MORE LIMIT PAIRS FOLLOW          
         LI,R10   -1                SET DUMP = VIRTUAL                          
         STW,R10  0,R4                                                          
         LI,R11   X'1FFFF'          AND END OF VIRTUAL MEMORY THE               
         STW,R11  2,R4              END OF THE DUMP                             
         LI,R11   X'2B'                                                         
         BAL,R15  FINDCORE                                                      
         LB,R11   R11               GET TYPE OF SYSTEM WE ARE ON                
         CI,R11   X'80'             IS IT A 'CP-R' ?                            
         BE       INITTRND            YES, KEEP PARAMS AS JUST SET              
*                                                                               
         LI,R11   256*512-1         ELSE SET TO ABSOLUTE END OF REAL            
         STW,R11  2,R4              AS END OF THE DUMP                          
         LI,R10   1                 SET TYPE OF DUMP = REAL                     
         STW,R10  0,R4                                                          
*                                                                               
INITTRND RES      0                                                             
         M:TRAP   TRAPROUT,(TRAP,NAO,UI,FP,DEC,FX)   CATCH MOST TRAPS           
         B        NEXTALG                                                       
         PAGE                                                                   
* CONTALG                                                                       
* CONTEXT PAGE ALGORITHM                                                        
* CALL   LW,R1    CONTEXTP                                                      
*        BAL,R15  CONTALG                                                       
CONTALG  RES      0                                                             
         PUSH     R15               SAVE RETURN REGISTER                        
         BAL,R15  OUTHDR            TOP FORM, OUTPUT HEADER                     
         LW,R0    PAGE                                                          
         LI,R1    5                                                             
         BAL,R15  SKIP              SKIP LINES                                  
         BAL,R15  TIMEALG             OUTPUT TIME OF CRASH                      
         BAL,R15  VERSALG             OUTPUT RBM VERSION                        
         BAL,R15  SITEALG                                                       
         BAL,R15  MSGALG              OUTPUT CRASH MESSAGE                      
         BAL,R15  REGSALG                                                       
         LI,R1    2                 SKIP SEVERAL LINES                          
         BAL,R15  SKIP                                                          
         LI,R15   CONTALG1          SET RETURN FROM COLINDEX ROUTINE            
         LI,R7    CURSTBL           SET CURRENT TBL FOR CONTEXT                 
         STW,R7   TABPTR            PCB/TCB/STACK DISPLAY                       
         LI,R0    0                 SET VARIOUS SWITCHES AS SET BY              
         STW,R0   PHASE             ENTRY TO COLINDEX                           
         STW,R0   CURRCOL           AS WE BYPASS ALL INIT AND                   
         STW,R0   #COL              HEADER OUTPUT PROCESSING                    
         MTW,+1   #COL              ONLY 1 COLUMN                               
         LW,R1    0,R7              SET LOC OF CURRENT SWS TABLE                
         STW,R1   CISWSP                                                        
         LW,R2    3,R1              SET POINTER TO 1ST BWD, AND                 
         LB,R0    R2                NUMBER OF BWDS TO PROCESS                   
         PUSH     16,R0             SAVE REGS COLINDEX DOES                     
         B        CILP3A            ENTER TO PROCESS TCB, PCB, ETC...           
*                                                                               
CONTALG1 RES      0         RETURN FROM DISPLAY PROCESSING                      
         MTW,0    NOTABLE                                                       
         BEZ      CONTALG2                                                      
*                                                                               
         LI,R1    NOTAOS                                                        
         STW,R1   ALGCT                                                         
*                                                                               
CONTALG2 RES      0                                                             
         PULL     R15               RECOVER RETURN ADDRESS                      
         B        *R15                                                          
         PAGE                                                                   
* TIME                                                                          
* THE TIME ALGORITHM OUTPUTS THE TIME OF THE CRASH                              
*                                                                               
TIMEALG  RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         LW,R13   TCRSHLEN          TIME OF CRASH MESSAGE DESCRIPTION           
         BAL,R15  LOADBUF                                                       
         LW,R11   KDATE2            CHECK TO SEE IF DATE IN CRASH               
         BAL,R15  FINDCORE                                                      
         LW,R11   R11                                                           
         BEZ      NOTIME                                                        
         LI,R10   0                                                             
         LW,R11   KTIME             GET TIME OF DAY IN SECONDS                  
         BAL,R15  FINDCORE                                                      
         DW,R10   XD3600            CHANGE TO HRS, SECONDS                      
         STW,R10  R6                SAVE SECONDS IN R6                          
         BAL,R8   BINBCD            GO CHANGE HRS TO BCD                        
         STH,R0   R3                SAVE HRS IN R3                              
         LI,R10   0                                                             
         LW,R11   R6                GET SECONDS LEFT                            
         DW,R10   XD60              GET MINUTE OF DAY                           
         BAL,R8   BINBCD            CHANGE MINUTE TO BCD                        
         AND,R0   RJ16                                                          
         AW,R0    TIME90            ADD IN BLANK, COLON IN BCD                  
         SCS,R0   -8                                                            
         LI,R2    1                                                             
         STH,R0   R3,R2                                                         
         STW,R3   PRINTBUF+TIMOS    STORE FIRST WORD OF FOUR                    
         STW,R0   R3                SAVE LH OF WORD 2                           
         LW,R11   KDATE2            LOAD DAY OF YEAR                            
         BAL,R15  FINDCORE                                                      
         CI,R11   365                                                           
         BG       NOTIME                                                        
         CI,R11   0                                                             
         BLE      NOTIME                                                        
         LI,R5    0                                                             
TIMEALG1 RES      0                                                             
         LB,R0    KMONTH,R5                                                     
         SW,R11   R0                                                            
         BLEZ     %+3               FOUND PROPER MONTH                          
         AI,R5    4                                                             
         B        TIMEALG1                                                      
         AW,R11   R0                R11=DAY OF MONTH                            
         SLS,R5   -2                CHANGE TO WORD INDEX                        
         LW,R0    KMONTH,R5         GET BCD CHAR OF MONTH                       
         AND,R0   RJ24                                                          
         SCS,R0   -8                                                            
         AW,R0    TIME91            ADD IN BLANK                                
         STH,R0   R3,R2             STORE FIRST 2 CHAR OF MONTH                 
         STW,R3   PRINTBUF+TIMOS+1  STORE 2ND WORD OF 4                         
         STW,R0   R3                SAVE LH OF WORD 3                           
         BAL,R8   BINBCD            GO CHANGE DAY OF MONTH TO BCD               
         STH,R0   R3,R2                                                         
         STW,R3   PRINTBUF+TIMOS+2  STORE 3RD WORD OF FOUR                      
         LI,R0    ','''             GET COMMA, APOSTROPHE                       
         STH,R0   R3                                                            
         LI,R10   0                                                             
         LW,R11   KDATE1                                                        
         BAL,R15  FINDCORE                                                      
         AND,R11  RJ16              R11=YEAR IN BINARY                          
         BAL,R8   BINBCD            CHANGE YEAR TO BCD                          
         STH,R0   R3,R2                                                         
         STW,R3   PRINTBUF+TIMOS+3  STORE LAST WORD                             
NOTIME   RES      0                                                             
         BAL,R15  PRINT                                                         
         PULL     R15               GET LINK                                    
         B        *R15                                                          
RJ16     DATA     X'FFFF'                                                       
RJ24     DATA     X'FFFFFF'                                                     
TIME90   DATA     X'407A0000'       BLANK, COLON IN EBCDIC                      
TIME91   DATA     X'400000'                                                     
         PAGE                                                                   
*                                                                               
*                                   CONVERT BINARY TO DECIMAL BCD               
*                                   CALL IS   BAL,R8  BINBCD                    
*                                    WHERE                                      
*                                     R11= VALUE TO BE CONVERTED IN RHW         
*                                   EXITS                                       
*                                      R0= VALUE IN BCD, RT. JUSTIFIED          
*                                          WITH LEADING ZEROES                  
*                                   USES R0, R7, R10 AND R11                    
*                                                                               
BINBCD   RES      0                                                             
         LI,R0    0                                                             
         LI,R7    4                 SET FOR FOUR CHAR                           
BINBCD1  LI,R10   0                                                             
         SLS,R0   -8                                                            
         DW,R10   XA                                                            
         AI,R10   X'F0'             CHANGE TO BCD                               
         STB,R10  R0                                                            
         BDR,R7   BINBCD1                                                       
         B        *R8                                                           
         PAGE                                                                   
         SPACE    2                                                             
*                           CONVERT INTEGER TO 4 DIGIT HEX EBCDIC               
*        R15      LINK                                                          
*        R11      INPUT                                                         
*        R10      INTERNAL TEMP                                                 
*        R7       INTERNAL DIGIT COUNTER                                        
*        R0       OUTPUT                                                        
HEXBCD   RES      0         CONVERT NUMBER TO HEX BCD                           
         LI,R7    4                 SET 4 DIGITS                                
HEXBCD1  RES      0         LOOP TO DO IT                                       
         LI,R10   0                 CLEAR NEXT DIGIT STRIPPER REG               
         SCD,R10  -4                MOVE NEXT DIGIT INTO R10, DIGIT 0           
         SCS,R10  4                 MOVE TO RIGHT MOST DIGIT                    
         AI,R10   X'F0'             MAKE IT EBCDIC                              
         CI,R10   X'FA'             IS IT A FUNNY HEX DIGIT ?                   
         BL       HEXBCD2             NO, LEGAL DIGIT                           
         AI,R10   -(X'FA'-X'C1')    YES, CONVERT TO 'A' - 'F'                   
HEXBCD2  RES      0         STORE CONVERTED DIGIT                               
         SLS,R0   -8                MAKE A HOLE IN OUTPUT REGISTER              
         STB,R10  R0                AND SAVE NEW HEX DIGIT                      
         BDR,R7   HEXBCD1           LOOP FOR NEXT                               
         B        *R15              RETURN TO CALLER                            
         PAGE                                                                   
* VERSALG                                                                       
* VERSALG OUTPUTS THE RBM VERSION                                               
* CALL   BAL,R15  VERSALG                                                       
*                                                                               
VERSALG  RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         LW,R13   VERSLEN                                                       
         BAL,R15  LOADBUF                                                       
         LW,R11   KVERS                                                         
         BAL,R15  FINDCORE                                                      
         LW,R13   MOVE3F11          MOVE 3 BYTES FROM REGISTER 11               
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT                                                         
         PULL     R15               RECOVER LINK                                
         B        *R15                                                          
         PAGE                                                                   
* MODALG                                                                        
* MODALG OUTPUTS THE MODEL NUMBER-SIGMA 5,6,7,8,9 OR XEROX 560                  
*                                                                               
MODALG   RES      0                                                             
         PAGE                                                                   
*                                                                               
* MSGALG                                                                        
* MSGALG OUTPUTS THE CRASH MESSAGE                                              
MSGALG   RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         LW,R13   CMSGLEN                                                       
         BAL,R15  LOADBUF                                                       
         LI,R7    -MSGLEN/4                                                     
MSGALGLP RES      0                                                             
         LW,R11   KMSG                                                          
         AI,R11   MSGLEN/4                                                      
         AW,R11   R7                                                            
         BAL,R15  FINDCORE                                                      
         LW,R13   MOVE4F11                                                      
         BAL,R15  LOADBUF                                                       
         BIR,R7   MSGALGLP                                                      
         BAL,R15  PRINT                                                         
         PULL     R15               RECOVER LINK                                
         B        *R15                                                          
         PAGE                                                                   
*SITEALG                                                                        
* SITEALG OUTPUTS THE SITE MESSAGE                                              
*                                                                               
SITEALG  RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         LW,R13   SMSGLEN                                                       
         BAL,R15  LOADBUF                                                       
         LI,R7    -14                                                           
SITELP   RES      0                                                             
         LW,R11   KSITE                                                         
         AI,R11   14                                                            
         AW,R11   R7                                                            
         BAL,R15  FINDCORE                                                      
         LW,R13   MOVE4F11                                                      
         BAL,R15  LOADBUF                                                       
         BIR,R7   SITELP                                                        
         BAL,R15  PRINT                                                         
         PULL     R15               RECOVER LINK                                
         B        *R15                                                          
         PAGE                                                                   
* REGSALG                                                                       
* REGSALG OUTPUTS THE REGISTER CONTENTS.  A DISPLAY HEADER IS OUTPUT            
* FOLLOWED BY A LINE OF INDICES, FOLLOWED BY THE REGISTER CONTENTS.             
*                                                                               
REGSALG  RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         LI,R15   1                                                             
         STW,R15  FCORFLAG                                                      
         MTW,0    COMMENT           CHECK IF DISPLAY TITLE TO BE OUTPUT         
         BEZ      REGS1                                                         
         BAL,R15  PRINT                                                         
         LW,R13   REGDTLEN                                                      
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT                                                         
         BAL,R15  PRINT                                                         
REGS1    RES      0                                                             
         LI,R0    0                 LOWER LIMIT                                 
         LI,R1    X'F'              UPPER LIMIT                                 
         LI,R2    0                 FLAGS- TOP INDICES ONLY                     
         BAL,R15  DISPCORE                                                      
         PULL     R15               RECOVER LINK                                
         B        *R15                                                          
         PAGE                                                                   
         SPACE    2                                                             
* MAPALG                                                                        
*        DISPLAY THE MEMORY MAP, COMPLETE WITH ACCESS PROTECTION CODES          
*        AND WRITE LOCKS, EXTANT AT THE TIME OF THE MEMORY SAVE.                
*                                                                               
*        THIS ALGORITHM DOES NOT FOLLOW THE NORMAL PROCEDURE FOR A              
*        DISPLAY AS WE CAN AND DO USE THE MAP AS MOVED TO OUR MEMORY            
*        DURING THE AMAP ALGORITHM ABOVE.                                       
*        (ALSO, THE SWS/BWD CONCEPT DOES NOT ALLOW OUTPUTTING TWO LINES         
*        IN DIFFERENT FORMATS USING THE SAME DATA WORD, AND NEITHER             
*        ROW NOR COLUMN INDEX FORMAT OVERSEERS DO THE PROPER TYPE OF            
*        SCANNING OF THE TABLE.)                                                
*                                                                               
MAPALG   RES      0         DISPLAY THE MAP                                     
         PUSH     R15               SAVE THE RETURN ADDRESS                     
         BAL,R15  OUTHDR            OUT TITLE LINE ON A NEW PAGE                
         LW,R13   MAPTXTLN          OUT COLUMN HEADERS                          
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT             PRINT HEADER                                
         BAL,R15  PRINT             AND SPACE ANOTHER LINE                      
         LI,R7    0                 SET PAGE NUMBER OF 1ST ON A LINE            
*                                                                               
MAPAL1   RES      0         OUT A LINE OF MAP INFO                              
         LW,R11   R7                COPY PAGE NUMBER, AND                       
         SLS,R11  9                 CONVERT TO PAGE ADDRESS                     
         LI,R1    15                SET TO OUT 17 BITS (5 DIGITS) FROM          
         LI,R2    17                RIGHT HAND END OF ADDRESS INTO AN           
         LI,R14   8                 8 CHARACTER FIELD                           
         BAL,R15  HEXROUT           ENTER ADDRESS OF 1ST PAGE ON LINE           
         LI,R6    -16               SET TO DO 16 PAGES PER LINE                 
         MTW,+1   PRBFNDX           INSERT EXTRA SPACE AFTER PAGE ADDR          
*                                                                               
MAPAL2   RES      0         OUT THE REAL PAGE ADDRESS IN MAP                    
         LI,R14   7                 SET FIELD WIDTH                             
         LI,R1    15                START WITH BIT 15 IN MAP WORD               
         LI,R2    9                 AND USE 9 (THIS GETS PAGE NUMBER)           
         LI,R11   MAP+16            SET LOC OF BASE OF MAP OFFSET ONE           
         AW,R11   R7                LINE; ADD CURRENT LINE; INDEX BACK          
         LW,R11   *R11,R6           TO GET NEXT WORD IN ORDER                   
         BAL,R15  HEXROUT           CONVERT AND ENTER PAGE NUMBER               
         BIR,R6   MAPAL2            DO ANOTHER UNTIL LINE DONE                  
*                                                                               
         BAL,R15  PRINT             PRINT MAP PAGE INFO                         
         AI,R7    16                STEP TO NEXT ROW'S PAGES' INDEX             
         CI,R7    256               HAVE WE DONE ENTIRE MAP YET ?               
         BL       MAPAL1              NO, DO ANOTHER LINE'S WORTH               
*                                                                               
         BAL,R15  OUTHDR            OUT TITLE LINE ON A NEW PAGE                
         LW,R13   MAPTXTLN          OUT COLUMN HEADERS                          
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT             PRINT HEADER                                
         BAL,R15  PRINT             AND SPACE ANOTHER LINE                      
         LI,R7    0                 SET PAGE NUMBER OF 1ST ON A LINE            
*                                                                               
MAPAL3   RES      0         OUT A LINE OF MAP INFO                              
         LW,R11   R7                COPY PAGE NUMBER, AND                       
         SLS,R11  9                 CONVERT TO PAGE ADDRESS                     
         LI,R1    15                SET TO OUT 17 BITS (5 DIGITS) FROM          
         LI,R2    17                RIGHT HAND END OF ADDRESS INTO AN           
         LI,R14   8                 8 CHARACTER FIELD                           
         BAL,R15  HEXROUT           ENTER ADDRESS OF 1ST PAGE ON LINE           
         LI,R6    -16               SET TO DO 16 PAGES PER LINE                 
*                                                                               
MAPAL4   RES      0         DO ACCESS PROTECTION & WRITE LOCKS FOR SAME         
         MTW,+1   PRBFNDX           SPACE 1 POSITION TO SEPARATE COLS           
         LI,R14   3                 FIELD WIDTH = 3                             
         LI,R1    2                                                             
         LI,R2    2                                                             
         LI,R11   MAP+16                                                        
         AW,R11   R7                                                            
         LW,R11   *R11,R6           REACCESS THE MAP WORD                       
         LW,R10   R11               SAVE THE INFO                               
         BAL,R15  APCROUT           GET ACCESS CODES AND ENTER                  
         LW,R11   R10               RESET MAP WORD                              
         LI,R14   3                 SET TO DO WRITE LOCKS                       
         LI,R1    6                                                             
         LI,R2    4                 ASSUME 4 BIT LOCKS                          
         BAL,R15  HEXROUT                                                       
         BIR,R6   MAPAL4            DO 16 PAGES WORTH                           
*                                                                               
         BAL,R15  PRINT             PRINT THE ACC & LOCK INFO LINE              
         AI,R7    16                STEP TO NEXT ROW'S PAGES' INDEX             
         CI,R7    256               HAVE WE DONE ENTIRE MAP YET ?               
         BL       MAPAL3              NO, DO ANOTHER LINE'S WORTH               
*                                                                               
         PULL     R15               RECOVER RETURN                              
         B        *R15              AND DO JUST THAT                            
         PAGE                                                                   
         SPACE    2                                                             
SINGALG  RES      0                                                             
         PUSH     3,R15             SAVE  LINK, WORK REGISTERS                  
         LW,R1    LPFLAG                                                        
         AI,R1    1                                                             
         STW,R1   SWSTABLE+1                                                    
         LI,R1    SWSTABLE                                                      
         BAL,R15  MULTICOL                                                      
         PULL     3,R15             RECOVER CHANGED REGISTERS, LINK             
         B        *R15                                                          
         PAGE                                                                   
         SPACE    2                                                             
BURSALG  RES      0                                                             
         LI,R1    BURTBL                                                        
         B        COLINDEX                                                      
AETALG   RES      0                                                             
         LI,R1    AETTBL                                                        
         B        COLINDEX                                                      
BBCTALG  RES      0                                                             
         LI,R1    BBCTABLE                                                      
         B        ROWINDEX   ***** ROW *****                                    
CITALG   RES      0                                                             
         LI,R1    CITSTBL                                                       
         B        COLINDEX                                                      
COCALG   RES      0                                                             
         LI,R1    COCTBL                                                        
         B        COLINDEX                                                      
DCTALG   RES      0                                                             
         LI,R1    DCTSTBL                                                       
         B        COLINDEX                                                      
ECBALG   RES      0                                                             
         LI,R1    ECBTBL                                                        
         B        COLINDEX                                                      
EDTALG   RES      0                                                             
         LI,R1    EDTTBL                                                        
         B        ROWINDEX   ***** ROW *****                                    
INTLBALG RES      0                                                             
         LI,R1    INTLBTBL                                                      
         B        COLINDEX                                                      
IOQTALG  RES      0                                                             
         LI,R1    IOQSTBL                                                       
         B        COLINDEX                                                      
IOLALG   RES      0                                                             
         LI,R1    IOLTABLE                                                      
         B        ROWINDEX   ***** ROW *****                                    
JCBALG   RES      0                                                             
         LI,R1    JCBTBL                                                        
         B        COLINDEX                                                      
JPTALG   RES      0                                                             
         LI,R1    JPTTBL                                                        
         B        ROWINDEX   ***** ROW *****                                    
LMITALG  RES      0                                                             
         LI,R1    LMITTBL                                                       
         B        COLINDEX                                                      
LNALG    RES      0                                                             
         LI,R1    LNTBL                                                         
         B        COLINDEX                                                      
MDALG    RES      0                                                             
         LI,R1    MDTBL                                                         
         B        COLINDEX                                                      
OPLBLALG RES      0                                                             
         LI,R1    OPLBLTBL                                                      
         B        COLINDEX                                                      
OVLYALG  RES      0                                                             
         LI,R1    OVLYTBL                                                       
         B        COLINDEX                                                      
PSDALG   RES      0                                                             
         LI,R1    PSDTBL                                                        
         B        COLINDEX                                                      
RDLIALG  RES      0                                                             
         LI,R1    RDLTBL                                                        
         B        COLINDEX                                                      
RFTALG   RES      0                                                             
         LI,R1    RFTTBL                                                        
         B        COLINDEX                                                      
RMPALG   RES      0                                                             
         LI,R1    RMPTBL                                                        
         B        COLINDEX                                                      
SDTALG   RES      0                                                             
         LI,R1    SDTTBL                                                        
         B        COLINDEX                                                      
SIALG    RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         BAL,R15  OUTHDR            OUT A PAGE HEADER                           
         PULL     R15               RECOVER LINK                                
         B        *R15                                                          
SJIALG   RES      0                                                             
         LI,R1    SJITBL                                                        
         B        COLINDEX                                                      
STIALG   RES      0                                                             
         LI,R1    STITBL                                                        
         B        COLINDEX                                                      
TCBALG   RES      0                                                             
         LI,R1    TCBTBL                                                        
         B        COLINDEX                                                      
         PAGE                                                                   
         SPACE    2                                                             
*                           DISPLAY TRACE                                       
*                                                                               
TRACEALG RES      0         DISPLAY TRACE TABLES                                
         PUSH     R15               SAVE LINK                                   
         LI,R4    LIMITT                                                        
         MTW,0    0,R4                                                          
         BEZ      TALGEXIT                                                      
         MTW,0    NOTRACE                                                       
         BNEZ     TALGEXIT                                                      
         LI,R1    1                                                             
         STW,R1   FCORFLAG                                                      
         LW,R0    1,R4                                                          
         LW,R1    2,R4                                                          
         LI,R2    1                                                             
         BAL,R15  DISPCORE                                                      
         LI,R4    LIMITT                                                        
         LW,R0    3,R4                                                          
         LW,R1    4,R4                                                          
         LI,R2    1                                                             
         BAL,R15  DISPCORE                                                      
TALGEXIT RES      0                                                             
         PULL     R15               RECOVER LINK                                
         B        *R15              RETURN TO ALGORITHM CONTROL                 
         PAGE                                                                   
         SPACE    2                                                             
*                           DISPLAY CORE DUMP                                   
*                                                                               
HEXALG   RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         MTW,+00  NODUMP            DUMP SUPRESSED ?                            
         BNEZ     TALGEXIT            YES, EXIT NOW                             
*                                                                               
         LI,R4    LIMITV            SET POINTER TO ADDR OF 1ST                  
         STW,R4   ORDERNDX          DUMP LIMIT TRIAD                            
*                                                                               
HEXALOOP RES      0         PROCESS A DUMP LIMIT TRIAD                          
         LW,R4    ORDERNDX          GET POINTER TO NEXT TRIAD                   
         LW,R1    0,R4              IS IT NON-ZERO (REAL,VIRT) ?                
         BEZ      TALGEXIT            ZERO: END LIMITS: EXIT                    
*                                                                               
         STW,R1   FCORFLAG          NON-ZERO: SET ACCESS MODE                   
         LW,R0    1,R4              GET START ADDRESS                           
         LW,R1    2,R4              AND END ADDRESS                             
         LI,R2    1                 SET TO OUT HEADERS                          
         MTW,3    ORDERNDX          STEP POINTER TO NEXT TRIAD                  
         BAL,R15  DISPCORE          AND DO THE DISPLAY                          
         B        HEXALOOP          GO TEST IF MORE TO DO                       
         PAGE                                                                   
*TOCALG                                                                         
*THIS ALGORITHM OUTPUTS THE TABLE OF CONTENTS                                   
*                                                                               
TOCALG   RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         LW,R14   MAPPAGE                                                       
         STH,R14  TOCPAGE                                                       
         BAL,R15  OUTHDR                                                        
         LI,R14   PRPGCOL/2                                                     
         STW,R14  PRBFNDX                                                       
         LW,R13   PTXTLEN                                                       
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT                                                         
         LI,R4    0                                                             
         STW,R4   VALBASE                                                       
*                                                                               
TOCLP    RES      0         OUT A LINE OF THE TABLE                             
         MTH,+0   TOCPAGE,R4        WAS THE INFO OUTPUT ?                       
         BEZ      TOCLP4              NO, DON'T PRINT THE LINE                  
*                                                                               
         LW,R13   DTXTLEN,R4                                                    
         BAL,R15  LOADBUF                                                       
         LH,R11   TOCPAGE,R4                                                    
         AND,R11  X7FFF             REMOVE POSSIBLE ERROR FLAG                  
         LI,R1    22                                                            
         LI,R2    10                                                            
         LI,R14   PRPGCOL/2                                                     
         STW,R14  PRBFNDX                                                       
         LI,R14   4                                                             
         BAL,R15  DECROUT                                                       
         LW,R4    VALBASE           REFETCH INDEX                               
         MTH,+00  TOCPAGE,R4        WAS IT FLAGGED ?                            
         BGEZ     TOCLP3              NO, PRINT LINE                            
*                                                                               
         LI,R0    C'*'              YES, FLAG PAGE NUMBER WITH TWO              
         BAL,R15  LOADCHAR          '*'S TO INDICATE IT WAS NOT                 
         BAL,R15  LOADCHAR          COMPLETELY OUTPUT                           
*                                                                               
TOCLP3   RES      0         PRINT LINE                                          
         BAL,R15  PRINT                                                         
*                                                                               
TOCLP4   RES      0         STEP TO NEXT LINE                                   
         LW,R4    VALBASE                                                       
         AI,R4    1                                                             
         STW,R4   VALBASE                                                       
         CW,R4    ALGCT                                                         
         BLE      TOCLP                                                         
         PULL     R15               RECOVER LINK                                
         B        *R15                                                          
         PAGE                                                                   
         SPACE    2                                                             
*        FUNCTION:          USED TO ACCESS SINGLE WORD SYSTEM CELLS,            
*                           COLUMNS INDICIES COMPUTING ROUTINES, AND            
*                           AN ITEMS VALUE ACCESSING FUNCTION.                  
*                                                                               
*                                                                               
*        FORMAT:     WRD 1: ADDRESS OF BEGIN OF SWS TABLE                       
*                    WRD 2: ADDRESS OF END   OF SWS TABLE                       
*                    WRD 3: ADDRESS OF INDICIES ROUTINE                         
*                    WRD 4: ADDRESS OF VALUE ROUTINE                            
*                    WRD 5: MAX INDEX VALUE THE TABLE WILL HAVE                 
*                                                                               
*                                                                               
*                                                                               
SWSTABLE DATA     SWSCSUB           TABLE FOR THE SINGLE WORD SYSTEM            
         DATA     2                 CELLS' BURST OUTPUT                         
         DATA     SWSHDLEN                                                      
         DATA     SWSCLEN                                                       
AETTBL   DATA     AETSWS                                                        
         DATA     AETSWSND                                                      
         DATA     AETIND                                                        
         DATA     PSDVAL                                                        
         DATA     0                                                             
BBCTABLE DATA     BBCSWS     ***** ROW *****                                    
         DATA     BBCSWSND                                                      
         DATA     BBCIND                                                        
         DEFTEXT  BBCTXT,BBCTXTND                                               
         DATA     0                                                             
BURTBL   DATA     BURSWS                                                        
         DATA     BURSWSND                                                      
         DATA     BURIND                                                        
         DATA     BURVAL                                                        
         DATA     0                                                             
CITSTBL  DATA     CITSWS                                                        
         DATA     CITSWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
COCTBL   DATA     COCSWS                                                        
         DATA     COCSWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
DCTSTBL  DATA     DCTSWS                                                        
         DATA     DCTSWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
ECBTBL   DATA     ECBSWS                                                        
         DATA     ECBSWSND                                                      
         DATA     ECBIND                                                        
         DATA     SDTVAL                                                        
         DATA     0                                                             
EDTTBL   DATA     EDTSWS     ***** ROW *****                                    
         DATA     EDTSWSND                                                      
         DATA     EDTIND                                                        
         DEFTEXT  EDTTXT,EDTTXTND                                               
         DATA     0                                                             
INTLBTBL DATA     ILSWS                                                         
         DATA     ILSWSND                                                       
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
IOLTABLE DATA     IOLSWS     ***** ROW *****                                    
         DATA     IOLSWSND                                                      
         DATA     IOLIND                                                        
         DEFTEXT  IOLTXT,IOLTXTND                                               
         DATA     0                                                             
IOQSTBL  DATA     IOQSWS                                                        
         DATA     IOQSWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
JCBTBL   DATA     JCBSWS                                                        
         DATA     JCBSWSND                                                      
         DATA     JCBIND                                                        
         DATA     SDTVAL                                                        
         DATA     0                                                             
JPTTBL   DATA     JPTSWS     ***** ROW *****                                    
         DATA     JPTSWSND                                                      
         DATA     JPTIND                                                        
         DEFTEXT  JPTTXT,JPTTXTND                                               
         DATA     0                                                             
LMITTBL  DATA     LMITSWS                                                       
         DATA     LMITSWSND                                                     
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
LNTBL    DATA     LNSWS                                                         
         DATA     LNSWSND                                                       
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
MDTBL    DATA     MDSWS                                                         
         DATA     MDSWSND                                                       
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
OPLBLTBL DATA     OLSWS                                                         
         DATA     OLSWSND                                                       
         DATA     OPLBIND                                                       
         DATA     OPLBVAL                                                       
         DATA     0                                                             
OVLYTBL  DATA     OVSWS                                                         
         DATA     OVSWSND                                                       
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
PSDTBL   DATA     PSDSWS                                                        
         DATA     PSDSWSND                                                      
         DATA     PSDIND                                                        
         DATA     PSDVAL                                                        
         DATA     0                                                             
RDLTBL   DATA     RDLSWS                                                        
         DATA     RDLSWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
RFTTBL   DATA     RFTSWS                                                        
         DATA     RFTSWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
RMPTBL   DATA     RMPSWS                                                        
         DATA     RMPSWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
SDTTBL   DATA     SDTSWS                                                        
         DATA     SDTSWSND                                                      
         DATA     SDTIND                                                        
         DATA     SDTVAL                                                        
         DATA     0                                                             
SJITBL   DATA     SJISWS                                                        
         DATA     SJISWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
STITBL   DATA     STISWS                                                        
         DATA     STISWSND                                                      
         DATA     DECIND                                                        
         DATA     DCTVAL                                                        
         DATA     0                                                             
TCBTBL   DATA     TCBSWS                                                        
         DATA     TCBSWSND                                                      
         DATA     TCBIND                                                        
         DATA     SDTVAL                                                        
         DATA     0                                                             
*                                                                               
CURSTBL  DATA     CSTSWS            CURRENT STATUS INFO DISPLAY                 
         DATA     CSTSWSND                                                      
         DATA     NOPR15                                                        
         DATA     CSTVAL                                                        
         DATA     1                                                             
         TITLE    'BUFFERS'                                                     
         SPACE    2                                                             
INBUF    RES      80/4                                                          
INBUFEND RES      0                                                             
         BOUND    8                                                             
PRINTBUF RES      0                 BUFFER FOR LINE PRINTER OUTPUT              
         DO       136/4                                                         
         TEXT     '    '                                                        
         FIN                                                                    
SECBUF   RES      136/4                                                         
         TITLE    'DATA'                                                        
         SPACE    2                                                             
ALGCT    DATA     0                 INDEX NUMBER OF CURRENT DISPLAY ALG         
*                                                                               
ASTBASE  DATA     0                                                             
ORDERNDX DATA     0                                                             
         BOUND    8                                                             
SAVE     DATA     0                                                             
         DATA     0                                                             
SECBHEAD EQU      ASTBASE                                                       
BIT5     DATA     X'04000000'                                                   
BUFNDEX  DATA     0                                                             
         BOUND    8                                                             
CIBWPCT  DATA     0                                                             
CIBWPP   DATA     0                                                             
CISWSP   DATA     0                                                             
#COL     DATA     12                                                            
COLCT    DATA     0                                                             
COMPUTER RES      1                                                             
CURRCOL  DATA     0                                                             
CURRPAGE DATA     5                                                             
COMMENT  DATA     1                 COMMENT MODE IF NOT = 0                     
COUNT    DATA     0                                                             
CTYPE    DATA     X'00010204'                                                   
CURRBFWA DATA     X'FFF00'   MEM ADDRESS OF 1ST WORD IN CRSHBUF                 
DFILEKEY DATA     0            DATA FILE GRANULE (OR CP-V KEY) TO READ          
DATEWOS  EQU      44/4              WORD POS OF CURRENT DATE IN BFR             
D128     DATA     128                                                           
D3       DATA,2   3,3                                                           
FCORFLAG DATA     0          CORE ACCESS MODE: -1 => VIRT; +1 => REAL           
FLAGDC   DATA     0                                                             
FPRAL    DATA     0                                                             
FSGIN    DATA     0                                                             
II       DATA     0                                                             
         BOUND    8                                                             
INDTABLE RES      30                                                            
JJ       DATA     0                                                             
K10      DATA     10                                                            
KMONTH   DATA,1   31,'J','A','N'    TABLE OF # DAYS/MONTH AND BCD NAMES         
         DATA,1   28,'F','E','B'                                                
         DATA,1   31,'M','A','R'      MUST BE CHANGED FOR LEAP YEARS(?)         
         DATA,1   30,'A','P','R'                                                
         DATA,1   31,'M','A','Y'                                                
         DATA,1   30,'J','U','N'                                                
         DATA,1   31,'J','U','L'                                                
         DATA,1   31,'A','U','G'                                                
         DATA,1   30,'S','E','P'                                                
         DATA,1   31,'O','C','T'                                                
         DATA,1   30,'N','O','V'                                                
         DATA,1   31,'D','E','C'                                                
LASTCC   DATA     X'FF'             INITIAL VALUE                               
LIMITT   DATA     0                                                             
         DATA     0,0               LIMITS, PART 1 OF TRACE DUMP                
         DATA     0,0               LIMITS, PART 2                              
         BOUND    8                                                             
LIMITS   RES      2                                                             
LINECT   DATA     0                 LINE # ON PAGE                              
LKAHEAD  DATA     0                                                             
LNOSVAL  DATA     0                                                             
LPFLAG   DATA     1                                                             
LP#LINES DATA     0                                                             
MAP      RES      256                                                           
MASK     DATA     0                                                             
MAXCOL   DATA     0                                                             
MCPAGE#  DATA     0                                                             
MCTABPTR DATA     0                                                             
MC#EPP   DATA     0                                                             
MC#LINES DATA     0                                                             
MC#PAGES DATA     0                                                             
MOVEBUF  DATA     0                                                             
M1       DATA     -1                                                            
M16      DATA     -16                                                           
M24      DATA     -24                                                           
M256     DATA     -256                                                          
NEWDISP  DATA     -1                FIRST PAGE OF DISPLAY TYPE FLAG             
NEWPAGE  DATA     0                                                             
OCMASK   DATA     X'7F000000'                                                   
OLDFRMAT DATA     0                 0 => D00+ ; 1 => BEFORE D00 CPR             
PHASE    DATA     0                                                             
PRBFNDX  DATA     0                 COLUMN # OF NEXT CHAR POS IN PR BFR         
PRPGCOL  EQU      98                COLUMN FOR 'PAGE ###' ON LP                 
RIDONE   DATA     0                                                             
TABLENDX DATA     0                                                             
WORD1    RES      0                                                             
SWSCTEMP RES      1                                                             
TABPTR   DATA     0                 CURRENT SWS ACCESS TABLE POINTER            
VALBASE  DATA     0                 ADDR OF START OF A TABLE                    
VALSIZE  DATA     0                BIT SIZE OF CURRENT CELL, FROM BELOW         
         DATA     32                   FULL WORD                                
         DATA     8                    BYTE                                     
         DATA     16                   HALF WORD                                
         DATA     32                   HALF OF A DOUBLE WORD                    
         BOUND    8                                                             
VALTABLE RES      60                                                            
RITOS    EQU      VALTABLE+2                                                    
RITDELTA EQU      VALTABLE+3                                                    
RITN     EQU      VALTABLE+4                                                    
RITM     EQU      VALTABLE+5                                                    
RPT      DATA     0                                                             
TOCPAGE  RES      (DISPLEN+1)/2                                                 
WORDVAL  DATA     0                                                             
WORDADDR DATA     0                                                             
X3       DATA     3                                                             
X30      DATA     X'30'                                                         
X3F      DATA     X'3F'                                                         
XA       DATA     X'A'                                                          
XD60     DATA     60                                                            
XD3600   DATA     3600                                                          
XF       DATA     X'F'                                                          
XFF      DATA     X'FF'                                                         
X7FFF    DATA     X'7FFF'                                                       
XFFF00   DATA     X'FFF00'                                                      
X1FE00   DATA     X'1FE00'                                                      
X1FFFF   DATA     X'1FFFF'                                                      
XFFFFF   DATA     X'FFFFF'                                                      
XPSDCODE DATA     X'0F000000'                                                   
ZEROS    DATA     '0000'                                                        
*                                                                               
*                                                                               
*                 PROTOTYPE BWD'S THAT DISPLAY AN ENTIRE CELL, A BYTE,          
*                 HALF WORD, WORD, OR HALF A DOUBLE WORD.  THEY ARE             
*                 USED TO SUPPRESS PRINTING THE HEX ON THE SWS TITLE            
*                 LINE OF A CELL IF THE 1ST BWD DOES THE SAME.                  
BYTEDISP BWD      BYTE,0,8,HEX                                                  
HALFDISP BWD      HALF,0,16,HEX                                                 
WORDDISP BWD      WORD,0,32,HEX                                                 
DWRDDISP BWD      DWRD,0,32,HEX                                                 
*                                                                               
*                                                                               
*                 BWD FOR RFT2 AND RFT3 IN PRE-D00 SYSTEMS                      
XBRFT23  BWD      HALF,0,16,DEC                                                 
*                                                                               
*                                                                               
*                 POINTER BWD'S FOR RFT7 IN PRE-D00 SYSTEMS                     
XKRFT7   EQU      %+2                                                           
         SWS      'RFT7    ',DSPRFT,,@RFT7X,BRFT7X                              
         TITLE    'TEXT DEFINITIONS'                                            
         SPACE    2                                                             
AETNDXLN DEFTEXT1 AETNDTXT,20                                                   
CMSGLEN  DEFTEXT1 CMSGTXT,16                                                    
*                                                                               
*                                                                               
*                           TITLES FOR BURST DISPLAYS                           
*                                   (EACH TABLE THAT IS DISPLAYED)              
*                                                                               
DTXTLEN  DEFTEXT  DTX00,DTX01       SYSGEN MAP                                  
         DEFTEXT  DTX01,DTX02       CONTEXT - CRASH INFO                        
         DEFTEXT  DTX02,DTX03       SINGLE WORS SYSTEM CELLS                    
         DEFTEXT  DTX03,DTX04       K:CTST, K:JCP1, AND K:SYSTEM                
         DEFTEXT  DTX04,DTX05       AET                                         
         DEFTEXT  DTX05,DTX06       BBCT                                        
         DEFTEXT  DTX06,DTX06A      CIT                                         
         DEFTEXT  DTX06A,DTX07      COC                                         
         DEFTEXT  DTX07,DTX08       DCT                                         
         DEFTEXT  DTX08,DTX09       ECB                                         
         DEFTEXT  DTX09,DTX10       EDT                                         
         DEFTEXT  DTX10,DTX11       INTLB                                       
         DEFTEXT  DTX11,DTX11A      IOQT                                        
         DEFTEXT  DTX11A,DTX12      IOLOCK                                      
         DEFTEXT  DTX12,DTX13       JCB                                         
         DEFTEXT  DTX13,DTX14       JPT                                         
         DEFTEXT  DTX14,DTX15       LMI                                         
         DEFTEXT  DTX15,DTX15A      LN                                          
         DEFTEXT  DTX15A,DTX16      MAP                                         
         DEFTEXT  DTX16,DTX17       MASTER DICTIONARY                           
         DEFTEXT  DTX17,DTX17A      OPLABL                                      
         DEFTEXT  DTX17A,DTX18      OVLY INDEX                                  
         DEFTEXT  DTX18,DTX18A      PSD                                         
         DEFTEXT  DTX18A,DTX18B     RDLI                                        
         DEFTEXT  DTX18B,DTX19      RFT                                         
         DEFTEXT  DTX19,DTX20       RMPT                                        
         DEFTEXT  DTX20,DTX21       SDT                                         
         DEFTEXT  DTX21,DTX22       SI                                          
         DEFTEXT  DTX22,DTX23       SYSTEM JOB INVENTORY                        
         DEFTEXT  DTX23,DTX24       SYSTEM TASK INVENTORY                       
         DEFTEXT  DTX24,DTX24T      TCB                                         
         DEFTEXT  DTX24T,DTX25      TRACE                                       
         DEFTEXT  DTX25,DTX26       CORE DUMP                                   
         DEFTEXT  DTX26,DTXND       TABLE OF CONTENTS                           
INBUFLEN DEFTEXT  INBUF,INBUFEND                                                
LMIECBLN DEFTEXT1    LMIECBTX,20                                                
LPIND    DEFTEXT  LPTEXT,LPTXTND                                                
MAPTXTLN DEFTEXT  MAPTXT,MAPTXTND        MAP COLUMN HEADERS                     
MOVE3F11 DEFTEXT1 11,3                                                          
MOVE4F11 DEFTEXT1 11,4                                                          
NALEN    DEFTEXT1 NATEXT,16                                                     
OPJOBXLN DEFTEXT1 OPJOBTXT,20                                                   
OPLBDXLN DEFTEXT1 OPLBTXT,13                                                    
PAGLIMGT DEFTEXT1 PAGLMTXT,38                                                   
PSDNDXLN DEFTEXT1 PSDNDTXT,20                                                   
PTXTLEN  DEFTEXT1 EBCPAGE,4                                                     
REGDTLEN DEFTEXT1 REGCTXT,20                                                    
TPIND    DEFTEXT  TPTEXT,TPTXTND                                                
RPLEN    DEFTEXT1 RPTXT,16                                                      
SJINDXLN DEFTEXT1 SJINDTXT,20                                                   
SMSGLEN  DEFTEXT1 SMSGTXT,16                                                    
SPACEJLN DEFTEXT1 SPACEJTX,2                                                    
SPACELLN DEFTEXT1 SPACELTX,2                                                    
STIASTLN DEFTEXT1 STIASTXT,20                                                   
STINDXLN DEFTEXT1 STINDTXT,20                                                   
SWSHDLEN DEFTEXT1 SWSHDR,66                                                     
TCRSHLEN DEFTEXT  TCRTXT,TCRTXTND                                               
TOLEN    DEFTEXT1 EBCTO,4                                                       
VERSLEN  DEFTEXT  VERTXT,VERTXTND                                               
YNLEN    DATA     2                                                             
         DATA     3                                                             
         TITLE    'TEXT'                                                        
         SPACE    2                                                             
AETNDTXT TXT      'SJI OR LMI NDX/ORDER'                                        
BBCTXT   TXT      'JOBNAME  SJI BBCW-LOC RFT-NDX ',;                            
                  ' FILENAME ALTERED  BFR-ADDR'                                 
BBCTXTND RES      0                                                             
CMSGTXT  TXT      'CRASH MESSAGE-'                                              
         BOUND    8                                                             
BLANKS   TXT      '        '                                                    
ASTERS   TXT      '********'                                                    
DTX00    TXT      'SYSGEN MAP'                                                  
DTX01    TXT      'CONTEXT'                                                     
DTX02    TXT      'SINGLE WORD SYSTEM CELLS'                                    
DTX03    TXT      'BURST FIELD SYSTEM CELLS'                                    
DTX04    TXT      'AET   - ASSOCIATIVE ENQUEUE TABLES'                          
DTX05    TXT      'BBCT  - BLOCKING BUFFER CONTROL TABLES'                      
DTX06    TXT      'CIT   - CHANNEL INFORMATION TABLES'                          
DTX06A   TXT      'COC   - CHARACTER ORIENTED COMM TABLES'                      
DTX07    TXT      'DCT   - DEVICE CONTROL TABLES'                               
DTX08    TXT      'ECB   - EVENT CONTROL BLOCKS'                                
DTX09    TXT      'EDT   - ENQUEUE DEFINITION TABLES'                           
DTX10    TXT      'INTLB - INTERRUPT LABEL TABLE'                               
DTX11    TXT      'IOQT  - I/O QUEUE TABLES'                                    
DTX11A   TXT      'IOLOCK- I/O LOCK TABLES'                                     
DTX12    TXT      'JCB   - JOB CONTROL BLOCKS'                                  
DTX13    TXT      'JPT   - JOB PROGRAM TABLES'                                  
DTX14    TXT      'LMI   - LOAD MODULE INVENTORY (TASK)'                        
DTX15    TXT      'LN    - COMMUNICATION LINE TABLES'                           
DTX15A   TXT      'MAP   - MEMORY MAP'                                          
DTX16    TXT      'MD    - MASTER DICTIONARY'                                   
DTX17    TXT      'OPLBL - OPERATIONAL LABEL TABLE'                             
DTX17A   TXT      'OVI   - OVERLAY INVENTORY'                                   
DTX18    TXT      'PSD   - PROGRAM STATUS DOUBLE WORDS'                         
DTX18A   TXT      'RDLI  - RBM DISPATCHER LEVEL INVENTORY'                      
DTX18B   TXT      'RFT   - RAD FILE TABLES'                                     
DTX19    TXT      'RMPT  - RMPT AND PPT PARTITION TABLES'                       
DTX20    TXT      'SDT   - SEGMENT DESCRIPTOR TABLES'                           
DTX21    TXT      'SI    - SEGMENT IMAGES'                                      
DTX22    TXT      'SJI   - SYSTEM JOB INVENTORY'                                
DTX23    TXT      'STI   - SYSTEM TASK INVENTORY'                               
DTX24    TXT      'TCB   - TASK CONTROL BLOCKS'                                 
DTX24T   TXT      'TRACE'                                                       
DTX25    TXT      'HEX/EBCDIC DUMP'                                             
DTX26    TXT      'TABLE OF CONTENTS'                                           
DTXND    RES      0                                                             
         BOUND    8                 NEEDED FOR EBCCLOC                          
EBCCLOC  TXT      'HLOCCRAS'        WORD ORDER REVERSED                         
EBCINT   TXT      ' INT'                                                        
EBCKFP   TXT      'K:FPOOL '                                                    
EBCPAGE  TXT      'PAGE'                                                        
EBCSED   TXT      'S:ED'                                                        
EBCTASK  TXT      'TASK'                                                        
EBCTO    TXT      ' TO '                                                        
EBCTRAP  TXT      'TRAP'                                                        
EDTTXT   TXT      'EDT-PTR   EDT-LOC EDT-NAME  AET-LVL  EDT'                    
         TXT      '-LVL SHARABLE #WAITING NEXT-EDT USE-CT ECB-HEAD'             
EDTTXTND RES      0                                                             
HEXTEXT  TXT      '0123456789ABCDEF'                                            
JPTTXT   TXT      'JOBNAME  SJI JPT-LOC  TSK-NAME LMI-NAME '                    
JPTTXTND RES      0                                                             
IOLTXT   TXT      '           0     1     2     3     4     5     6',;          
                  '     7     8     9     A     B     C     D     E',;          
                  '     F'                                                      
IOLTXTND RES      0                                                             
MAPTXT   TXT      '           000    200    400    600',;                       
                         '    800    A00    C00    E00',;                       
                         '   1000   1200   1400   1600',;                       
                         '   1800   1A00   1C00   1E00'                         
MAPTXTND RES      0                                                             
LMIECBTX TXT      'LMI INDEX/ECB INDEX '                                        
LPTEXT   TXT      '  0/8      1/9      2/A      3/B  '                          
         TXT      '  4/C      5/D      6/E      7/F  '                          
LPTXTND  RES      0                                                             
NATEXT   TXT      ' NO ACCESS FROM '                                            
OKTEXT   RES      0                                                             
 TXTC  '. ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890()=!#%%''*+,/;:-'                 
OPJOBTXT TXT      '  JOB NAME   JOB ID '                                        
OPLBTXT  TXT      'OPLABEL INDEX'                                               
PAGLMTXT TXT      'DISPLAY STOPPED - PAGE LIMIT EXCEEDED. '                     
PSDNDTXT TXT      'SAVED PSD FOR:      '                                        
REGCTXT  TXT      'REGISTER CONTENTS'                                           
RPTXT    TXT      ' REAL PAGE ADDR '                                            
STIASTXT TXT      'STI INDEX/AST INDEX '                                        
SJINDTXT TXT      'SJI INDEX           '                                        
SMSGTXT  TXT      'SITE MESSAGE -'                                              
SPACEJTX TXT      ' J  '                                                        
SPACELTX TXT      ' L  '                                                        
STINDTXT TXT      'STI INDEX           '                                        
SWSHDR   TXT      'LABEL     LOC  CONTENTS       SIGNIF'                        
         TXT      'ICANCE                            '                          
SWSHDND  RES      0                                                             
TCRTXT   TXT      'TIME OF CRASH   '                                            
TCRTXTND RES      0                                                             
TPTEXT   TXT      ' 0/4/8/C  1/5/9/D  2/6/A/E  3/7/B/F '                        
TPTXTND  RES      0                                                             
VERTXT   TXT      'CPR VERSION- '                                               
VERTXTND RES      0                                                             
YNCODE   DATA     'NO  '                                                        
         DATA     'YES '                                                        
         TITLE    'BURST WORD DESCRIPTOR PROCS'                                 
         SPACE    2                                                             
*        FUNCTION:           DESCRIBES WHAT EACH SUBFIELD IN A FIELD            
*                            (CELL, CONSISTING OF A WORD, BYTE, ETC)            
*                            MEANS AND HOW TO EXTRACT IT FROM THE CELL          
*                                                                               
*                                                                               
*        FORMAT OF THE  BWD  TABLE OPERANDS:                                    
*                                                                               
*                 FIELD, 1ST BIT, #BITS, CONV                                   
*                 CODE1,  CODE2,  0, 0                                          
*                                                                               
*        FIELD:   DOUBLE WORD, WORD, HALF WORD, BYTE                            
*        1ST BIT: BIT NUMBER OF FIRST BIT IN 'FIELD'                            
*        #BITS:   NUMBER OF BITS TO TAKE AS THE DATA ITEM                       
*        CONV:    INDEX INTO 'BASEL' TABLE OF THE CONVERSION ROUTINE            
*        CODE1:   NUMBER OF LEADING SPACES IN OUTPUT FIELD, OR                  
*                 (UNKNOWN AT THIS TIME)                                        
*        CODE2:   COMPUTER TYPE FOR PSD WORDS; OR                               
*                 NUMBER OF PRINT POSITIONS TO USE IN OUTPUT LINE               
*                                                                               
*                                                                               
*                 THE BWD IS FOLLOWED BY A 20 CHARACTER DESCRIPTION             
*                 THAT GOES ON THE LINE TO THE LEFT TO DESCRIBE THAT            
*                 LINE OF OUTPUT.                                               
*                                                                               
BAET     BWD      DWRD,32,32,HEX                                                
         TXTS     '                    '                                        
         BWD      DWRD,0,1,YNC                                                  
         TXTS     '  SYS LEVEL AET     '                                        
         BWD      DWRD,1,1,YNC                                                  
         TXTS     '  SYS LEVEL EDT     '                                        
         BWD      DWRD,2,1,YNC                                                  
         TXTS     '  IMMEDIATE ENQUEUE '                                        
         BWD      DWRD,3,1,YNC                                                  
         TXTS     '  SHARABLE ENQUEUE  '                                        
         BWD      DWRD,4,1,YNC                                                  
         TXTS     '  ENQUEUE GRANTED   '                                        
         BWD      DWRD,5,1,YNC                                                  
         TXTS     '  ENTRY IN USE      '                                        
         BWD      DWRD,6,1,YNC                                                  
         TXTS     '  DEQUEUEING        '                                        
         BWD      DWRD,7,1,YNC                                                  
         TXTS     '  ENQUEUEING        '                                        
         BWD      DWRD,8,24,HEX                                                 
         TXTS     '  EDT ADDRESS       '                                        
         BWD      DWRD,32,8,DEC                                                 
         TXTS     '  JOB ID (DEC)      '                                        
         BWD      DWRD,40,24,HEX                                                
         TXTS     '  ECB ADDRESS       '                                        
@AET     EQU      (%-BAET)/@BWD                                                 
*                                                                               
*                                                                               
***********************************************                                 
*                                                                               
*                                                                               
BBBCT    RES      0                                                             
         BWD      WORD,0,8,DEC                                                  
         BWD      WORD,0,8,FILN                                                 
         BWD      WORD,8,1,YNC                                                  
         BWD      WORD,15,17,HEX                                                
@BBCT    EQU      (%-BBBCT)/@BWDS                                               
*                                                                               
*                                                                               
************************************************                                
*                                                                               
*                                                                               
BCIT1    BWD      BYTE,0,8,DEC                                    CIT1          
         TXTS     '     FORWARD Q HEAD '         CIT1                           
@CIT1    EQU      (%-BCIT1)/@BWD                                                
*                                                                               
BCIT2    BWD      BYTE,0,8,DEC                                    CIT2          
         TXTS     '     BACKWARD Q TAIL'           CIT2                         
@CIT2    EQU      (%-BCIT2)/@BWD                                                
*                                                                               
BCIT3    BWD      BYTE,0,8,HEX,,5                                CIT3           
         TXTS     '     VALUE          '                          CIT3          
         BWD      BYTE,0,1,YNC,,4    YES, NO                     CIT3,80        
         TXTS     ' 80 PRIM BUSY       '                          CIT3          
         BWD      BYTE,1,1,YNC,,4                                CIT3,40        
         TXTS     ' 40 ALT BUSY        '                          CIT3          
         BWD      BYTE,2,1,YNC,,4                                CIT3,20        
         TXTS     ' 20 PRIM HELD       '                          CIT3          
         BWD      BYTE,3,1,YNC,,4                                CIT3,10        
         TXTS     ' 10 ALT HELD        '                          CIT3          
         BWD      BYTE,4,1,YNC,,4                                CIT3,08        
         TXTS     ' 08 DUAL ACCESS     '                          CIT3          
         BWD      BYTE,5,1,YNC,,4                                CIT3,04        
         TXTS     ' 04 PREF CHAN       '                          CIT3          
@CIT3    EQU      (%-BCIT3)/@BWD                                                
*                                                                               
BCIT5    BWD      BYTE,0,8,DEC,,4                                CIT5           
         TXTS     '     PRIM HOLD REQ. '                          CIT5          
@CIT5    EQU      (%-BCIT5)/@BWD                                                
*                                                                               
BCIT6    BWD      BYTE,0,8,DEC,,4                                CIT6           
         TXTS     '     ALT HOLD REQ.  '                          CIT6          
@CIT6    EQU      (%-BCIT6)/@BWD                                                
*                                                                               
*                                                                               
************************************************                                
*                                                                               
*                                                                               
BCODLPC  BWD      DWRD,0,32,HEX                                                 
         TXTS     '  LOWEST LOG LINE # '                                        
         BWD      DWRD,32,32,HEX                                                
         TXTS     '  HIGHEST LOG LINE #'                                        
@CODLPC  EQU      (%-BCODLPC)/@BWD                                              
*                                                                               
BCODHWL  BWD      DWRD,0,32,HEX                                                 
         TXTS     '  BITS SET REPRESENT'                                        
         BWD      DWRD,32,32,HEX                                                
         TXTS     '   HARD WIRED LINES '                                        
@CODHWL  EQU      (%-BCODHWL)/@BWD                                              
*                                                                               
BCOHDN   BWD      HALF,0,16,HEX                                                 
         TXTS     '  DEVICE ADDRESS    '                                        
@COHDN   EQU      (%-BCOHDN)/@BWD                                               
*                                                                               
BCOLST   BWD      WORD,0,32,HEX                                                 
         TXTS     '  OFFSET TO NXT CHAR'                                        
@COLST   EQU      (%-BCOLST)/@BWD                                               
*                                                                               
BCORINGE BWD      WORD,0,32,HEX                                                 
         TXTS     '  PTR TO RING LWA+1 '                                        
@CORINGE EQU      (%-BCORINGE)/@BWD                                             
*                                                                               
BCOHRBS  BWD      HALF,0,16,DEC                                                 
         TXTS     '  RING BUF SIZE     '                                        
@COHRBS  EQU      (%-BCOHRBS)/@BWD                                              
*                                                                               
BCOOUT   BWD      WORD,0,32,HEX                                                 
         TXTS     '  OUTPUT PSD ADDR   '                                        
@COOUT   EQU      (%-BCOOUT)/@BWD                                               
*                                                                               
BCOHII   BWD      HALF,0,16,HEX                                                 
         TXTS     '  INPUT INT ADDR    '                                        
@COHII   EQU      (%-BCOHII)/@BWD                                               
*                                                                               
BCOHIO   BWD      HALF,0,16,HEX                                                 
         TXTS     '  OUTPUT INT ADDR   '                                        
@COHIO   EQU      (%-BCOHIO)/@BWD                                               
*                                                                               
*                                                                               
***********************************************                                 
*                                                                               
*                                                                               
BDCT1    BWD      HALF,0,16,HEX                                  DCT1           
         TXTS     '  ACTIVE DEVICE     '                          DCT1          
@DCT1    EQU      (%-BDCT1)/@BWD                                                
*                                                                               
BDCT1A   BWD      HALF,0,16,HEX                                  DCT1A          
         TXTS     '  ALT I/O ADDRESS   '                          DCT1A         
@DCT1A   EQU      (%-BDCT1A)/@BWD                                               
*                                                                               
BDCT1P   BWD      HALF,0,16,HEX                                  DCT1P          
         TXTS     '  PRIM I/O ADDRESS  '                          DCT1P         
@DCT1P   EQU      (%-BDCT1P)/@BWD                                               
*                                                                               
BDCT2    BWD      BYTE,0,8,DEC                                   DCT2           
         TXTS     '  CIT INDEX (DEC)   '                                        
@DCT2    EQU      (%-BDCT2)/@BWD                                                
*                                                                               
BDCT3    BWD      BYTE,0,1,YNC                                   DCT3           
         TXTS     '  OUTPUT LEGAL      '                          DCT3          
         BWD      BYTE,1,1,YNC                                   DCT3           
         TXTS     '  INPUT LEGAL       '                          DCT3          
         BWD      BYTE,2,1,YNC                                   DCT3           
         TXTS     '  INOPERATIVE       '                          DCT3          
         BWD      BYTE,3,1,YNC                                   DCT3           
         TXTS     '  TIMED OUT         '                          DCT3          
         BWD      BYTE,4,1,YNC                                   DCT3           
         TXTS     '  SIO FAILURE       '                          DCT3          
         BWD      BYTE,5,1,YNC                                   DCT3           
         TXTS     '  I/O ABORTED       '                          DCT3          
         BWD      BYTE,6,2,SCU       NEITHER, PRIM, ALT, EITHER  DCT3           
         TXTS     '  SUB-CHANNELS RDY  '                          DCT3          
@DCT3    EQU      (%-BDCT3)/@BWD                                                
*                                                                               
BDCT4    BWD      BYTE,0,8,DTC       NONE, TY, PR, PP, CR ETC.   DCT4           
         TXTS     '  DEVICE TYPE       '                          DCT4          
@DCT4    EQU      (%-BDCT4)/@BWD                                                
*                                                                               
BDCT4A   BWD      BYTE,0,8,DEC                                                  
         TXT      '  DISC TABLE INDEX  '                                        
@DCT4A   EQU      (%-BDCT4A)/@BWD                                               
*                                                                               
BDCT5    BWD      BYTE,0,1,YNC                                   DCT5           
         TXTS     '  DEVICE BUSY       '                          DCT5          
         BWD      BYTE,1,1,YNC                                   DCT5           
         TXTS     '  AWAITING CLEAN-UP '                          DCT5          
         BWD      BYTE,2,1,YNC                                   DCT5           
         TXTS     '  INTER-OP          '                          DCT5          
         BWD      BYTE,3,1,YNC                                   DCT5           
         TXTS     '  DATA TRANSFER     '                          DCT5          
         BWD      BYTE,4,1,YNC                                   DCT5           
         TXTS     '  KEY-IN PENDING    '                          DCT5          
         BWD      BYTE,5,1,YNC                                   DCT5           
         TXTS     '  DEFER SIO         '                                        
         BWD      BYTE,6,1,YNC                                   DCT5           
         TXTS     '  SIO WHILE MANUAL  '                          DCT5          
         BWD      BYTE,7,1,YNC                                   DCT5           
         TXTS     '  IOEX ON DEVICE    '                          DCT5          
@DCT5    EQU      (%-BDCT5)/@BWD                                                
*                                                                               
BDCT6    BWD      BYTE,0,8,DEC                                   DCT6           
         TXTS     '  IOQ POINTER       '                          DCT6          
@DCT6    EQU      (%-BDCT6)/@BWD                                                
*                                                                               
BDCT7    BWD      HALF,0,16,DHX                                  DCT7           
         TXTS     '  COMMAND LIST WA   '                          DCT7          
@DCT7    EQU      (%-BDCT7)/@BWD                                                
*                                                                               
BDCT8    BWD      WORD,0,32,HEX                                  DCT8           
         TXTS     '  HANDLER START     '                          DCT8          
@DCT8    EQU      (%-BDCT8)/@BWD                                                
*                                                                               
BDCT9    BWD      WORD,0,32,HEX                                  DCT9           
         TXTS     '  HANDLER CLEANUP   '                          DCT9          
@DCT9    EQU      (%-BDCT9)/@BWD                                                
*                                                                               
BDCT10   BWD      HALF,0,16,DEC                                  DCT10          
         TXTS     '  REENTRANCE CT(DEC)'                                        
@DCT10   EQU      (%-BDCT10)/@BWD                                               
*                                                                               
BDCT11   BWD      WORD,8,24,DEC                                  DCT11          
         TXTS     '  5*TIMEOUT VAL(DEC)'                                        
         BWD      WORD,8,24,CLKT                                                
         TXTS     '  SECS SINCE TIMEOUT'                                        
@DCT11   EQU      (%-BDCT11)/@BWD                                               
*                                                                               
BDCT12   BWD      WORD,0,32,HEX                                  DCT12          
         TXTS     '  AIO STATUS        '                          DCT12         
         BWD      WORD,0,8,HEX                                                  
         TXTS     '  DEV SPECIFIC      '                                        
         BWD      WORD,8,1,YNC                                   DCT12          
         TXTS     '   INCORR LENGTH    '                          DCT12         
         BWD      WORD,9,1,YNC                                   DCT12          
         TXTS     '   XMISSION DATA ERR'                          DCT12         
         BWD      WORD,10,1,YNC                                  DCT12          
         TXTS     '   ZERO BYTE CT INT '                          DCT12         
         BWD      WORD,11,1,YNC                                  DCT12          
         TXTS     '   CHANNEL END INT  '                          DCT12         
         BWD      WORD,12,1,YNC                                  DCT12          
         TXTS     '   UNUSUAL END INT  '                          DCT12         
         BWD      WORD,18,14,HEX                                 DCT12          
         TXTS     '   DEVICE ADDRESS   '                          DCT12         
@DCT12   EQU      (%-BDCT12)/@BWD                                               
*                                                                               
BDCT13   BWD      DWRD,0,32,HEX                                  DCT13          
         TXTS     '  TDV STATUS 1      '                          DCT13         
         BWD      DWRD,32,32,HEX                                 DCT13          
         TXTS     '  TDV STATUS 2      '                          DCT13         
         BWD      DWRD,1,1,YNC                                                  
         TXTS     '  BUS CHECK FAULT   '                                        
         BWD      DWRD,2,1,YNC                                                  
         TXTS     '  CONTROL CHK FAULT '                                        
         BWD      DWRD,11,21,DHX                                                
         TXTS     '  CURR COMMAND WA   '                                        
         BWD      DWRD,32,1,YNC                                                 
         TXTS     '  DATA OVERRUN      '                                        
         BWD      DWRD,33,1,YNC                                                 
         TXTS     '  DEV STATUS BYTE 1 '                                        
         BWD      DWRD,34,1,YNC                                                 
         TXTS     '  DEV STATUS BYTE 2 '                                        
         BWD      DWRD,35,1,YNC                                                 
         TXTS     '  DEV STATUS BYTE 3 '                                        
         BWD      DWRD,36,1,YNC                                                 
         TXTS     '  DEV STATUS BYTE 4 '                                        
         BWD      DWRD,37,1,YNC                                                 
         TXTS     '  DEV STATUS BYTE 5 '                                        
         BWD      DWRD,38,1,YNC                                                 
         TXTS     '  DEV STATUS BYTE 6 '                                        
         BWD      DWRD,39,1,YNC                                                 
         TXTS     '  DEV STATUS BYTE 7 '                                        
         BWD      DWRD,40,1,YNC                                   DCT21         
         TXTS     '   INCORRECT LENGTH '                          DCT21         
         BWD      DWRD,41,1,YNC                                   DCT21         
         TXTS     '   XMISSION DATA ERR'                          DCT21         
         BWD      DWRD,42,1,YNC                                   DCT21         
         TXTS     '   XMISSION MEM ERR '                          DCT21         
         BWD      DWRD,43,1,YNC                                   DCT21         
         TXTS     '   MEMORY ADDR ERROR'                          DCT21         
         BWD      DWRD,44,1,YNC                                   DCT21         
         TXTS     '   IOP MEMORY ERROR '                          DCT21         
         BWD      DWRD,45,1,YNC                                   DCT21         
         TXTS     '   IOP CONTROL ERROR'                          DCT21         
         BWD      DWRD,46,1,YNC                                   DCT21         
         TXTS     '   IOP HALT         '                                        
         BWD      DWRD,47,1,YNC                                   DCT21         
         TXTS     '   SELECTOR IOP BUSY'                          DCT21         
         BWD      DWRD,48,16,DEC                                                
         TXTS     '  REM. BYTE CT (DEC)'                                        
@DCT13   EQU      (%-BDCT13)/@BWD                                               
*                                                                               
BDCT14   BWD      BYTE,0,8,DEC                                   DCT14          
         TXTS     '  BKG STOPIO CT(DEC)'                          DCT14         
@DCT14   EQU      (%-BDCT14)/@BWD                                               
*                                                                               
BDCT15   BWD      BYTE,0,8,DEC                                   DCT15          
         TXTS     '  ALL STOPIO CT(DEC)'                                        
@DCT15   EQU      (%-BDCT15)/@BWD                                               
*                                                                               
BDCT16   BWD      DWRD,0,64,EBC                                                 
         TXTS     '  DEVICE NAME       '                          DCT16         
@DCT16   EQU      (%-BDCT16)/@BWD                                               
*                                                                               
BDCT17   BWD      BYTE,0,8,HEX    ?                              DCT17          
         TXTS     '  RETRY CODE        '                                        
@DCT17   EQU      (%-BDCT17)/@BWD                                               
*                                                                               
BDCT18   BWD      BYTE,0,8,DEC                                                  
         TXTS     '  TIME-OUT INCREMENT'                                        
@DCT18   EQU      (%-BDCT18)/@BWD                                               
*                                                                               
BDCT19   BWD      BYTE,0,4,HEX                                                  
         TXT      '  AIO CONDITION CODE'                                        
@DCT19   EQU      (%-BDCT19)/@BWD                                               
*                                                                               
BDCT20   BWD      BYTE,0,4,HEX                                                  
         TXT      '  TDV CONDITION CODE'                                        
@DCT20   EQU      (%-BDCT20)/@BWD                                               
*                                                                               
BDCT20A  BWD      BYTE,0,4,HEX                                                  
         TXT      '  TIO CONDITION CODE'                                        
@DCT20A  EQU      (%-BDCT20A)/@BWD                                              
*                                                                               
BDCT21   BWD      HALF,0,16,HEX                                   DCT21         
         TXTS     '  TIO STATUS        '                          DCT21         
         BWD      HALF,0,1,YNC                                    DCT21         
         TXTS     '   INTERRUPT PENDING'                          DCT21         
         BWD      HALF,1,2,DVC      READY, NOT OP, UNAVAIL, BUSY  DCT21         
         TXTS     '   DEVICE STATUS    '                          DCT21         
         BWD      HALF,3,1,YNC                                    DCT21         
         TXTS     '   DEVICE AUTOMATIC '                          DCT21         
         BWD      HALF,4,1,YNC                                    DCT21         
         TXTS     '   UNUSUAL END      '                          DCT21         
         BWD      HALF,5,2,DVC                                    DCT21         
         TXTS     '   DEV CONTR STATUS '                          DCT21         
         BWD      HALF,8,1,YNC                                    DCT21         
         TXTS     '   INCORRECT LENGTH '                          DCT21         
         BWD      HALF,9,1,YNC                                    DCT21         
         TXTS     '   XMISSION DATA ERR'                          DCT21         
         BWD      HALF,10,1,YNC                                   DCT21         
         TXTS     '   XMISSION MEM ERR '                          DCT21         
         BWD      HALF,11,1,YNC                                   DCT21         
         TXTS     '   MEMORY ADDR ERROR'                          DCT21         
         BWD      HALF,12,1,YNC                                   DCT21         
         TXTS     '   IOP MEMORY ERROR '                          DCT21         
         BWD      HALF,13,1,YNC                                   DCT21         
         TXTS     '   IOP CONTROL ERROR'                          DCT21         
         BWD      HALF,14,1,YNC                                   DCT21         
         TXTS     '   IOP HALT         '                                        
         BWD      HALF,15,1,YNC                                   DCT21         
         TXTS     '   SELECTOR IOP BUSY'                          DCT21         
@DCT21   EQU      (%-BDCT21)/@BWD                                               
*                                                                               
BDCTDCB  BWD      BYTE,0,8,DEC                                                  
         TXTS     '  # OPEN DCBS       '                                        
@DCTDCB  EQU      (%-BDCTDCB)/@BWD                                              
*                                                                               
BDCTJID  BWD      BYTE,0,8,HEX                                                  
         TXTS     '  JOB ID            '                                        
         BWD      BYTE,0,8,JOB                                                  
         TXTS     '  JOB NAME          '                                        
@DCTJID  EQU      (%-BDCTJID)/@BWD                                              
*                                                                               
BDCTMOD  BWD      WORD,0,32,EBC                               DCTMOD            
         TXTS     '   DEV MODEL NUMBER '                          DCTMOD        
@DCTMOD  EQU      (%-BDCTMOD)/@BWD                                              
*                                                                               
BDCTMODX BWD      HALF,0,16,DEC                                                 
         TXTS     '  DEV MODEL #       '                                        
@DCTMODX EQU      (%-BDCTMODX)/@BWD                                             
*                                                                               
BDCTSDB  BWD      WORD,0,32,HEX                                                 
         TXTS     '  SIDE BUFFER ADDR  '                                        
@DCTSDB  EQU      (%-BDCTSDB)/@BWD                                              
*                                                                               
BDCTRBM  BWD      BYTE,0,1,YNC                                                  
         TXTS     '80 SYMB REQUEST DEV '                                        
         BWD      BYTE,1,1,YNC                                                  
         TXTS     '40 MEDIA USING DEV  '                                        
         BWD      BYTE,2,1,YNC                                                  
         TXTS     '20 SYMB USING DEV   '                                        
         BWD      BYTE,3,1,YNC                                                  
         TXTS     '10 MEDIA REQUEST DEV'                                        
         BWD      BYTE,6,1,YNC                                                  
         TXTS     '02 DED DPNDD,R KEYIN'                                        
@DCTRBM  EQU      (%-BDCTRBM)/@BWD                                              
*                                                                               
BDCTSYM1 BWD      BYTE,0,1,YNC                                                  
         TXTS     '  ON LINE           '                                        
         BWD      BYTE,1,1,YNC                                                  
         TXTS     '  LOCKED OUT NO REL '                                        
         BWD      BYTE,2,1,YNC                                                  
         TXTS     '  LOCKED OUT RELEASE'                                        
         BWD      BYTE,3,1,YNC                                                  
         TXTS     '  SYM SUSPENDED     '                                        
         BWD      BYTE,4,1,YNC                                                  
         TXTS     '  SYMBIONT DEVICE   '                                        
         BWD      BYTE,5,1,YNC                                                  
         TXTS     '  IN USE BY SYMBIONT'                                        
         BWD      BYTE,6,1,YNC                                                  
         TXTS     '  CURR JOB RELEASED '                                        
         BWD      BYTE,7,1,YNC                                                  
         TXTS     '  SYNDD,Q IN EFFECT '                                        
@DCTSYM1 EQU      (%-BDCTSYM1)/@BWD                                             
*                                                                               
BDCTSYM2 BWD      WORD,0,32,HEX                                                 
         TXTS     '  TSPACE POINTER    '                                        
@DCTSYM2 EQU      (%-BDCTSYM2)/@BWD                                             
*                                                                               
BDCTSYM3 BWD      BYTE,7,1,YNC                                                  
         TXTS     '01 BACKUP OR REWIND '                                        
@DCTSYM3 EQU      (%-BDCTSYM3)/@BWD                                             
*                                                                               
BDCTTJE  BWD      BYTE,2,1,YNC,OS                                               
         TXTS     '20 INIT WITH DEBUG  '                                        
         BWD      BYTE,3,1,YNC,OS                                               
         TXTS     '10 PERFORM LOGOFF   '                                        
         BWD      BYTE,4,1,YNC,OS                                               
         TXTS     '08 ACTIVE LINE      '                                        
         BWD      BYTE,5,1,YNC,OS                                               
         TXTS     '04 PERFORM INIT     '                                        
         BWD      BYTE,6,1,YNC,OS                                               
         TXTS     '02 LOGGING ON       '                                        
         BWD      BYTE,7,1,YNC,OS                                               
         TXTS     '01 PERFORM LOGON    '                                        
@DCTTJE  EQU      (%-BDCTTJE)/@BWD                                              
*                                                                               
BDCT#ERR BWD      WORD,8,24,DEC                               DCT#ERR           
         TXTS     '   NUM ERRORS (DEC) '                         DCT#ERR        
@DCT#ERR EQU      (%-BDCT#ERR)/@BWD                                             
*                                                                               
BDCT#IO  BWD      WORD,8,24,DEC                               DCT#IO            
         TXTS     '   NUM STARTS (DEC) '                          DCT#IO        
@DCT#IO  EQU      (%-BDCT#IO)/@BWD                                              
*                                                                               
*                                                                               
*************************************************                               
*                                                                               
*                                                                               
BECBXX   BWD      WORD,8,24,HEX                                                 
         TXTS     '  ECB LOC           '                                        
@ECBXX   EQU      (%-BECBXX)/@BWD                                               
*                                                                               
BECB0    BWD      WORD,1,7,DEC                                    ECB0          
         TXTS     '  DATA AREA LENGTH  '                          ECB0          
         BWD      WORD,8,24,HEX                                   ECB0          
         TXTS     '  DATA AREA ADDRESS '                          ECB0          
@ECB0    EQU      (%-BECB0)/@BWD                                                
*                                                                               
BECB1    BWD      WORD,0,1,YNC                                    ECB1          
         TXTS     '  LOAD AND SET LOCK '                          ECB1          
         BWD      WORD,1,1,YNC                                    ECB1          
         TXTS     '  BUSY              '                          ECB1          
         BWD      WORD,2,1,YNC                                    ECB1          
         TXTS     '  BEING PROCESSED   '                          ECB1          
         BWD      WORD,3,1,YNC                                    ECB1          
         TXTS     '  DECREMENT WAIT CT '                          ECB1          
         BWD      WORD,4,1,YNC                                    ECB1          
         TXTS     '  DELETE AFTER POST '                          ECB1          
         BWD      WORD,5,1,YNC                                    ECB1          
         TXTS     '  BEING CHECKED     '                          ECB1          
         BWD      WORD,6,1,YNC                                    ECB1          
         TXTS     '  BEING POSTED      '                          ECB1          
         BWD      WORD,7,1,YNC                                                  
         TXTS     '  TIMING 0UT        '                                        
         BWD      WORD,8,24,RVADDR                                ECB1          
         TXTS     '  FPT/DCB ADDRESS   '                          ECB1          
@ECB1    EQU      (%-BECB1)/@BWD                                                
*                                                                               
BECB2    BWD      WORD,0,8,DEC                                    ECB2          
         TXTS     '  SOLICITING LMI    '                          ECB2          
         BWD      WORD,0,8,LMN                                                  
         TXTS     '  LOAD MODULE NAME  '                                        
         BWD      WORD,8,24,HEX                                   ECB2          
         TXTS     '  S-ECB CHAIN LINK  '                          ECB2          
@ECB2    EQU      (%-BECB2)/@BWD                                                
*                                                                               
BECB3    BWD      WORD,0,8,DEC                                    ECB3          
         TXTS     '  RESPONSIBLE LMI   '                          ECB3          
         BWD      WORD,0,8,LMN                                                  
         TXTS     '  LOAD MODULE NAME  '                                        
         BWD      WORD,8,24,HEX                                   ECB3          
         TXTS     '  R-ECB CHAIN LINK  '                          ECB3          
@ECB3    EQU      (%-BECB3)/@BWD                                                
*                                                                               
BECB4    BWD      WORD,0,16,DEC                                   ECB4          
         TXTS     '  PRIORITY          '                          ECB4          
         BWD      WORD,16,16,HEX                                  ECB4          
         TXTS     '  CLASS             '                          ECB4          
@ECB4    EQU      (%-BECB4)/@BWD                                                
*                                                                               
BECB5    BWD      WORD,0,8,HEX                                    ECB5          
         TXTS     '  TYPE OF END ACTION'                          ECB5          
         BWD      WORD,8,24,HEX                                   ECB5          
         TXTS     '  ADDRESS OF INT    '                          ECB5          
@ECB5    EQU      (%-BECB5)/@BWD                                                
*                                                                               
BECB6    BWD      WORD,0,24,DEC                                   ECB6          
         TXTS     '  TIMEOUT VALUE(DEC)'                          ECB6          
         BWD      WORD,0,8,TCC      TYPE COMPLETION CODE          ECB6          
         TXTS     '  TYPE COMPLETION   '                          ECB6          
         BWD      WORD,8,1,YNC                                    ECB6          
         TXTS     '  BUSY              '                          ECB6          
         BWD      WORD,9,23,HEX                                   ECB6          
         TXTS     '  COMPLETION STATUS '                          ECB6          
@ECB6    EQU      (%-BECB6)/@BWD                                                
*                                                                               
BECB7    BWD      WORD,0,16,HEX                                   ECB7          
         TXTS     '  CONTROLS          '                          ECB7          
         BWD      WORD,16,16,ECBTC  ECB TYPE CODE                 ECB7          
         TXTS     '  TYPE              '                          ECB7          
@ECB7    EQU      (%-BECB7)/@BWD                                                
*                                                                               
*                                                                               
**********************************************                                  
*                                                                               
*                                                                               
BEDTEDT  BWD      WORD,0,1,SJL                                                  
         BWD      WORD,1,1,SJL                                                  
         BWD      WORD,3,1,YNC                                                  
         BWD      WORD,4,4,DEC                                                  
         BWD      WORD,8,24,HEX                                                 
@EDTEDT  EQU      (%-BEDTEDT)/@BWDS                                             
*                                                                               
BEDTRECB BWD      WORD,0,8,DEC                                    EDT1          
         BWD      WORD,8,24,HEX                                   EDT1          
@EDTRECB EQU      (%-BEDTRECB)/@BWDS                                            
*                                                                               
BEDTNAME BWD      DWRD,0,64,EBC                                   EDT2,3        
@EDTNAME EQU      (%-BEDTNAME)/@BWDS                                            
*                                                                               
*                                                                               
************************************************                                
*                                                                               
*                                                                               
BINTLB1  BWD      HALF,0,16,EBC                                                 
         TXTS     '  INTERRUPT LABEL   '                                        
@INTLB1  EQU      (%-BINTLB1)/@BWD                                              
*                                                                               
BINTLB2  BWD      HALF,0,16,HEX                                                 
         TXTS     '  INTERRUPT POSITION'                                        
@INTLB2  EQU      (%-BINTLB2)/@BWD                                              
*                                                                               
BIOL     BWD      WORD,0,8,DEC                                                  
         BWD      WORD,8,8,DEC                                                  
         BWD      WORD,16,8,DEC                                                 
         BWD      WORD,24,8,DEC                                                 
@IOL     EQU      (%-BIOL)/@BWDS                                                
*                                                                               
*                                                                               
************************************************                                
*                                                                               
*                                                                               
BIOQ1    BWD      BYTE,0,8,DEC                                    IOQ1          
         TXTS     '  BACKWARD LINK     '                          IOQ1          
@IOQ1    EQU      (%-BIOQ1)/@BWD                                                
*                                                                               
BIOQ2    BWD      BYTE,0,8,DEC                                    IOQ2          
         TXTS     '  FORWARD LINK      '                          IOQ2          
@IOQ2    EQU      (%-BIOQ2)/@BWD                                                
*                                                                               
BIOQ3    BWD      BYTE,0,1,YNC                                    IOQ3          
         TXTS     '  REQUEST BUSY      '                          IOQ3          
         BWD      BYTE,5,3,SCU      SUB CHANNEL USAGE             IOQ3          
         TXTS     '  SUBCHANNEL USAGE  '                          IOQ3          
@IOQ3    EQU      (%-BIOQ3)/@BWD                                                
*                                                                               
BIOQ4    BWD      BYTE,0,8,HEX      FUNCTION CODE                 IOQ4          
         TXTS     '  INITIAL FCN CODE  '                          IOQ4          
@IOQ4    EQU      (%-BIOQ4)/@BWD                                                
*                                                                               
BIOQ5    BWD      BYTE,0,8,HEX      FUNCTION CODE                 IOQ5          
         TXTS     '  CURRENT FCN CODE  '                          IOQ5          
@IOQ5    EQU      (%-BIOQ5)/@BWD                                                
*                                                                               
BIOQ7    BWD      BYTE,0,8,DEC                                    IOQ7          
         TXTS     '  DEVICE INDEX (DEC)'                          IOQ7          
         BWD      BYTE,0,8,DEV                                                  
         TXTS     '  DEVICE ADDRESS    '                                        
@IOQ7    EQU      (%-BIOQ7)/@BWD                                                
*                                                                               
BIOQ8    BWD      WORD,0,1,YNC                                                  
         TXTS     '  DATA CHAIN ADDR OR'                                        
         BWD      WORD,1,1,YNC                                                  
         TXTS     '  COMM CHAIN ADDR OR'                                        
         BWD      WORD,11,21,QHX                                                
         TXTS     '  BUFFER ADDRESS/BTD'                                        
@IOQ8    EQU      (%-BIOQ8)/@BWD                                                
*                                                                               
BIOQ9    BWD      HALF,0,16,DEC                                   IOQ9          
         TXTS     '  BYTE COUNT (DEC)  '                          IOQ9          
@IOQ9    EQU      (%-BIOQ9)/@BWD                                                
*                                                                               
BIOQ10   BWD      BYTE,0,8,DEC                                    IOQ10         
         TXTS     '  MAX RETRY CT (DEC)'                          IOQ10         
@IOQ10   EQU      (%-BIOQ10)/@BWD                                               
*                                                                               
BIOQ11   BWD      BYTE,0,8,DEC                                    IOQ11         
         TXTS     '  CUR RETRY CT (DEC)'                          IOQ11         
@IOQ11   EQU      (%-BIOQ11)/@BWD                                               
*                                                                               
BIOQ12   BWD      WORD,0,32,HEX                                   IOQ12         
         TXTS     '  MISC (SEEK ADDR)  '                          IOQ12         
@IOQ12   EQU      (%-BIOQ12)/@BWD                                               
*                                                                               
BIOQ13   BWD      DWRD,0,32,HEX                                   IOQ13         
         TXTS     '  END ACTION DATA   '                          IOQ13         
         BWD      DWRD,32,32,HEX                                  IOQ13         
         TXTS     '   (2 WORDS)        '                          IOQ13         
         BWD      DWRD,0,8,IOCC     I/O CLEAN UP CODES                          
         TXTS     '     CLEAN-UP TYPE  '                                        
@IOQ13   EQU      (%-BIOQ13)/@BWD                                               
*                                                                               
BIOQ14   BWD      BYTE,0,8,DEC      (?)                           IOQ14         
         TXTS     '  PRIORITY          '                          IOQ14         
@IOQ14   EQU      (%-BIOQ14)/@BWD                                               
*                                                                               
BIOQECB  BWD      WORD,0,32,HEX                                   IOQECB        
         TXTS     '  ECB POINTER       '                          IOQECB        
@IOQECB  EQU      (%-BIOQECB)/@BWD                                              
*                                                                               
BIOQERR  BWD      WORD,0,32,HEX                                   IOQERR        
         TXTS     '  ERROR LOG BFR PTR '                          IOQERR        
@IOQERR  EQU      (%-BIOQERR)/@BWD                                              
*                                                                               
*                                                                               
*************************************************                               
*                                                                               
*                                                                               
*                                                                               
BJCBLOC  BWD      WORD,8,24,HEX                                                 
         TXTS     '  JCB LOC           '                                        
         BWD      WORD,32,32,JOB                                                
         TXTS     '  JOB NAME          '                                        
@JCBLOC  EQU      (%-BJCBLOC)/@BWD                                              
*                                                                               
BJCB0    BWD      WORD,0,1,YNC                                    JCB0          
         TXTS     '  JCB BEING ALTERED '                          JCB0          
         BWD      WORD,1,1,YNC                                    JCB0          
         TXTS     '  UNDER DEBUG       '                                        
         BWD      WORD,2,1,YNC                                    JCB0          
         TXTS     '  AET EXTERNAL      '                          JCB0          
         BWD      WORD,3,1,YNC                                    JCB0          
         TXTS     '  JPT EXTERNAL      '                          JCB0          
         BWD      WORD,6,2,DBGC     DEBUG INITIATION CODE.        JCB0          
         TXTS     '  DEBUG INITIATION  '                          JCB0          
         BWD      WORD,14,1,YNC                                   JCB0          
         TXTS     '  JOB TERMINATING   '                          JCB0          
         BWD      WORD,15,1,YNC                                   JCB0          
         TXTS     '  JOB STARTED       '                          JCB0          
         BWD      WORD,16,8,DEC                                   JCB0          
         TXTS     '  PRIORITY (DEC)    '                          JCB0          
         BWD      WORD,24,8,DEC                                   JCB0          
         TXTS     '  JOB IDENT (DEC)   '                          JCB0          
@JCB0    EQU      (%-BJCB0)/@BWD                                                
*                                                                               
BJCB1    BWD      WORD,0,16,DEC                                   JCB1          
         TXTS     '  MAX MEM(DEC)      '                          JCB1          
         BWD      WORD,16,16,DEC                                  JCB1          
         TXTS     '  TOT MEM     (DEC) '                          JCB1          
@JCB1    EQU      (%-BJCB1)/@BWD                                                
*                                                                               
BJCB2    BWD      WORD,0,1,YNC                                    JCB2          
         TXTS     '  USER ABORT        '                          JCB2          
         BWD      WORD,1,1,YNC                                    JCB2          
         TXTS     '  WATCHDOG TIMER    '                          JCB2          
         BWD      WORD,2,1,YNC                                    JCB2          
         TXTS     '  NONALLOWED OPER   '                          JCB2          
         BWD      WORD,3,1,YNC                                    JCB2          
         TXTS     '  UNIMPLEMENTED INS '                          JCB2          
         BWD      WORD,4,1,YNC                                    JCB2          
         TXTS     '  PUSHDOWN STACK LIM'                          JCB2          
         BWD      WORD,5,1,YNC                                    JCB2          
         TXTS     '  FLOATING PT ARITH '                          JCB2          
         BWD      WORD,6,1,YNC                                    JCB2          
         TXTS     '  DECIMAL ARITH     '                          JCB2          
         BWD      WORD,7,1,YNC                                    JCB2          
         TXTS     '  FIXED PT ARITH    '                          JCB2          
         BWD      WORD,8,24,HEX                                   JCB2          
         TXTS     '  TRAP ADDRESS      '                          JCB2          
@JCB2    EQU      (%-BJCB2)/@BWD                                                
*                                                                               
BJCB3    BWD      WORD,0,1,YNC                                    JCB3          
         TXTS     '  USER ABORT        '                          JCB3          
         BWD      WORD,1,1,YNC                                    JCB3          
         TXTS     '  WATCHDOG TIMER    '                          JCB3          
         BWD      WORD,2,1,YNC                                    JCB3          
         TXTS     '  NONALLOWED OPER   '                          JCB3          
         BWD      WORD,3,1,YNC                                    JCB3          
         TXTS     '  UNIMPLEMENTED INS '                          JCB3          
         BWD      WORD,4,1,YNC                                    JCB3          
         TXTS     '  PUSHDOWN STACK LIM'                          JCB3          
         BWD      WORD,5,1,YNC                                    JCB3          
         TXTS     '  FLOATING PT ARITH '                          JCB3          
         BWD      WORD,6,1,YNC                                    JCB3          
         TXTS     '  DECIMAL ARITH     '                          JCB3          
         BWD      WORD,7,1,YNC                                    JCB3          
         TXTS     '  FIXED PT ARITH    '                          JCB3          
         BWD      WORD,8,24,HEX                                   JCB3          
         TXTS     '  TRAP ADDRESS      '                          JCB3          
@JCB3    EQU      (%-BJCB3)/@BWD                                                
*                                                                               
BJCB4    BWD      WORD,1,7,DEC                                    JCB4          
         TXTS     '  NUM OP LABELS(DEC)'                          JCB4          
         BWD      WORD,8,24,HEX                                   JCB4          
         TXTS     '  OP LABEL MNEM PTR '                          JCB4          
@JCB4    EQU      (%-BJCB4)/@BWD                                                
*                                                                               
BJCB5    BWD      WORD,1,7,DEC                                    JCB5          
         TXTS     '  NUM OP LABELS(DEC)'                          JCB5          
         BWD      WORD,8,24,HEX                                   JCB5          
         TXTS     '  INDEX VALUE PTR   '                          JCB5          
@JCB5    EQU      (%-BJCB5)/@BWD                                                
*                                                                               
BJCB6    BWD      WORD,1,7,DEC                                    JCB6          
         TXTS     '  NUM BLKG BFRS(DEC)'                          JCB6          
         BWD      WORD,8,24,HEX                                   JCB6          
         TXTS     '  BLKG BFR CONTR TBL'                          JCB6          
@JCB6    EQU      (%-BJCB6)/@BWD                                                
*                                                                               
BJCB7    BWD      WORD,1,7,DEC                                    JCB7          
         TXTS     '  MAX LEN JPT (DEC) '                          JCB7          
         BWD      WORD,8,24,HEX                                   JCB7          
         TXTS     '  JOB PROG TBL PTR  '                          JCB7          
@JCB7    EQU      (%-BJCB7)/@BWD                                                
*                                                                               
BJCB8    BWD      WORD,1,7,DEC                                    JCB8          
         TXTS     '  MAX LEN AET (DEC) '                          JCB8          
         BWD      WORD,8,24,HEX                                   JCB8          
         TXTS     '  ASSOC ENQ TBL PTR '                          JCB8          
@JCB8    EQU      (%-BJCB8)/@BWD                                                
*                                                                               
BJCB9    BWD      WORD,8,24,HEX                                   JCB9          
         TXTS     '  ENQ DEF CHAIN HEAD'                          JCB9          
@JCB9    EQU      (%-BJCB9)/@BWD                                                
*                                                                               
BJCB10   BWD      WORD,8,24,HEX                                   JCB10         
         TXTS     '  ENQ DEF CHAIN TAIL'                          JCB10         
@JCB10   EQU      (%-BJCB10)/@BWD                                               
*                                                                               
BJCB11   BWD      WORD,8,24,HEX                                   JCB11         
         TXTS     '  SEG DESC TBL PTR  '                          JCB11         
@JCB11   EQU      (%-BJCB11)/@BWD                                               
*                                                                               
BJCB12   BWD      WORD,0,32,HEX                                                 
         TXTS     '  DEBUG CONTR WORD 1'                                        
@JCB12   EQU      (%-BJCB12)/@BWD                                               
*                                                                               
BJCB13   BWD      WORD,0,32,HEX                                                 
         TXTS     '  DEBUG CONTR WORD 2'                                        
@JCB13   EQU      (%-BJCB13)/@BWD                                               
*                                                                               
BJCB14   BWD      WORD,0,8,HEX                                                  
         TXTS     '  TASK ID           '                                        
         BWD      WORD,8,24,HEX                                                 
         TXTS     '  BREAK RECVR ADDR  '                                        
@JCB14   EQU      (%-BJCB14)/@BWD                                               
*                                                                               
BJCB15   BWD      WORD,0,32,HEX                                                 
         TXTS     '  TJE CONTR WORD 1  '                                        
@JCB15   EQU      (%-BJCB15)/@BWD                                               
*                                                                               
BJCB16   BWD      WORD,0,32,HEX                                                 
         TXTS     '  TJE CONTR WORD 2  '                                        
@JCB16   EQU      (%-BJCB16)/@BWD                                               
*                                                                               
BJCB17   BWD      WORD,0,32,HEX                                                 
         TXTS     '  TJE CONTR WORD 3  '                                        
@JCB17   EQU      (%-BJCB17)/@BWD                                               
*                                                                               
BJCB18   BWD      WORD,0,32,EBC                                                 
         TXTS     '  PART 1 USER ACCT #'                                        
@JCB18   EQU      (%-BJCB18)/@BWD                                               
*                                                                               
BJCB19   BWD      WORD,0,32,EBC                                                 
         TXTS     '  PART 2 USER ACCT #'                                        
@JCB19   EQU      (%-BJCB19)/@BWD                                               
*                                                                               
BJCB20   BWD      WORD,0,32,EBC                                                 
         TXTS     '  PART 1 USER NAME  '                                        
@JCB20   EQU      (%-BJCB20)/@BWD                                               
*                                                                               
BJCB21   BWD      WORD,0,32,EBC                                                 
         TXTS     '  PART 2 USER NAME  '                                        
@JCB21   EQU      (%-BJCB21)/@BWD                                               
*                                                                               
BJCB22   BWD      WORD,0,32,EBC                                                 
         TXTS     '  PART 3 USER NAME  '                                        
@JCB22   EQU      (%-BJCB22)/@BWD                                               
*                                                                               
BJCB23   BWD      WORD,8,24,DEC                                                 
         TXTS     '  TOTAL CPU MSECS   '                                        
@JCB23   EQU      (%-BJCB23)/@BWD                                               
*                                                                               
*                                                                               
*************************************************                               
*                                                                               
*                                                                               
BJPT     BWD      DWRD,0,64,EBC                                   JPT           
@JPT     EQU      (%-BJPT)/@BWDS                                                
*                                                                               
*                                                                               
*********************************************                                   
*                                                                               
*                                                                               
BKCTST   BWD      WORD,0,1,YNC                             KCTST 11             
         TXTS     'EXECUTE CHECKPOINT  '                   KCTST  1             
         BWD      WORD,1,1,YNC                             KCTST  2             
         TXTS     'EXECUTE FGD LOAD/REL'                   KCTST  2             
         BWD      WORD,2,1,YNC                             KCTST  3             
         TXTS     'EXECUTE RESTART     '                   KCTST  3             
         BWD      WORD,3,1,YNC                             KCTST  4             
         TXTS     'SERVICE ALL DEVICES '                   KCTST  4             
         BWD      WORD,4,1,YNC                             KCTST  5             
         TXTS     'EXECUTE ABORT/EXIT  '                   KCTST  5             
         BWD      WORD,5,1,YNC                             KCTST  6             
         TXTS     'EXECUTE KEYIN       '                   KCTST  6             
         BWD      WORD,6,1,YNC                             KCTST  7             
         TXTS     'EXECUTE PMD         '                   KCTST  7             
         BWD      WORD,7,1,YNC                             KCTST  8             
         TXTS     'BACKGROUND IS IDLE  '                   KCTST  8             
         BWD      WORD,8,1,YNC                             KCTST  9             
         TXTS     'EXECUTE BCKG LOAD   '                   KCTST  9             
         BWD      WORD,9,1,YNC                             KCTST 10             
         TXTS     'LOAD JCP            '                   KCTST 10             
         BWD      WORD,10,1,YNC                            KCTST 11             
         TXTS     'LOAD BACKGROUND PROG'                   KCTST 11             
         BWD      WORD,11,1,YNC                            KCTST 12             
         TXTS     'KEYIN REQUIRED      '                   KCTST 12             
         BWD      WORD,12,1,YNC                            KCTST 13             
         TXTS     'RECYCLE FGL1/2      '                   KCTST 13             
         BWD      WORD,13,1,YNC                            KCTST 14             
         TXTS     'EXECUTE ERROR LOGGER'                   KCTST 14             
         BWD      WORD,14,1,YNC                            KCTST 15             
         TXTS     'CKPT DEFERRED       '                   KCTST 15             
         BWD      WORD,15,1,YNC                                                 
         TXTS     'BKG IN WAIT AFTER AB'                                        
         BWD      WORD,25,1,YNC                                                 
         TXTS     'DO HOURLY LOG       '                                        
         BWD      WORD,26,1,YNC                            KCTST 16             
         TXTS     'KEY2 DOING OPEN/CLOS'                   KCTST 16             
         BWD      WORD,27,1,YNC                            KCTST 17             
         TXTS     'FGL1 CALLED BY FGL2 '                   KCTST 17             
         BWD      WORD,28,1,YNC                            KCTST 18             
         TXTS     'CONTROL TASK RUNNING'                   KCTST 18             
         BWD      WORD,29,1,YNC                            KCTST 19             
         TXTS     'EXECUTE EXIT        '                   KCTST 19             
         BWD      WORD,30,1,YNC                            KCTST 20             
         TXTS     'PMD FROM KEYIN REQ  '                   KCTST 20             
         BWD      WORD,31,1,YNC                                                 
         TXTS     'PMD FROM JCL        '                   KCTST 21             
@KCTST   EQU      (%-BKCTST)/@BWD                                               
*                                                                               
BKJCP1   BWD      WORD,0,1,YNC                            KJCP1  1              
         TXTS     'JCP IS EXECUTING    '              KJCP1  1                  
         BWD      WORD,1,1,YNC                            KJCP1  2              
         TXTS     'BACKGROUND IS ACTIVE'              KJCP1  2                  
         BWD      WORD,2,1,YNC                            KJCP1  3              
         TXTS     'BCKG IS CHECKPOINTED'              KJCP1  3                  
         BWD      WORD,3,1,YNC                            KJCP1  4              
         TXTS     'FGD USING BACKGROUND'              KJCP1  4                  
         BWD      WORD,4,1,YNC                            KJCP1  5              
         TXTS     'WAITING FOR KEYIN   '              KJCP1  5                  
         BWD      WORD,5,1,YNC                            KJCP1  6              
         TXTS     'SKIP TO NEXT JOB    '              KJCP1  6                  
         BWD      WORD,6,1,YNC                            KJCP1  7              
         TXTS     'ATTEND ILLEGAL      '                                        
         BWD      WORD,7,1,YNC                            KJCP1  8              
         TXTS     'PAUSE ILLEGAL       '                                        
         BWD      WORD,8,8,DCRF                           KJCP1  9              
         TXTS     'PREV ASSIGN OF C DEV'              KJCP1  9                  
         BWD      WORD,22,1,YNC                           KJCP1 10              
         TXTS     'SYST PROC EXECUTING '              KJCP1 10                  
         BWD      WORD,23,1,YNC                           KJCP1 11              
         TXTS     'EXECUTE BCKG DEBUG  '              KJCP1 11                  
         BWD      WORD,24,1,YNC                           KJCP1 12              
         TXTS     'CONDITIONAL PMD     '              KJCP1 12                  
         BWD      WORD,25,1,YNC                           KJCP1 13              
         TXTS     'UNCONDITIONAL PMD   '              KJCP1 13                  
         BWD      WORD,26,1,YNC                           KJCP1 14              
         TXTS     'FLAG THAT ALARM TYPD'                                        
         BWD      WORD,27,1,YNC                                                 
         TXTS     'INITIALIZING CPR    '                                        
         BWD      WORD,28,1,YNC                                                 
         TXTS     'FG KEYIN ACTIVE     '                                        
         BWD      WORD,29,1,YNC                                                 
         TXTS     'TY KEYIN ACTIVE     '                                        
         BWD      WORD,30,1,YNC                                                 
         TXTS     'ATTEND COMMAND INPUT'                                        
         BWD      WORD,31,1,YNC                                                 
         TXTS     'JOB COMMAND INPUT   '                                        
@KJCP1   EQU      (%-BKJCP1)/@BWD                                               
*                                                                               
BKSYSTEM BWD      WORD,0,8,HEX                             KSYS 1               
         TXTS     'SYSTEM ID(X''80''=CPR)'                   KSYS 1             
         BWD      WORD,8,4,HEX                             KSYS 2               
         TXTS     'VERSION(C=3,D=4,ETC)'                     KSYS 2             
         BWD      WORD,12,4,DEC                            KSYS 3               
         TXTS     'UPDATE LEVEL        '                     KSYS 3             
         BWD      WORD,24,2,CTC     COMPUTER TYPE CODE     KSYS 4               
         TXTS     'COMPUTER TYPE       '                     KSYS 4             
         BWD      WORD,29,1,YNC                            KSYS 5               
         TXTS     'REAL TIME ROUTINES  '                     KSYS 5             
         BWD      WORD,31,1,YNC                            KSYS 6               
         TXTS     'SYMBIONTS INCLUDED  '                     KSYS 6             
@KSYSTEM EQU      (%-BKSYSTEM)/@BWD                                             
*                                                                               
BLMI1    BWD      DWRD,32,32,HEX                                                
         TXTS     '                    '                                        
         BWD      DWRD,0,64,EBC                                   LMI1          
         TXTS     '  TASK NAME         '                          LMI1          
@LMI1    EQU      (%-BLMI1)/@BWD                                                
*                                                                               
BLMI2    BWD      WORD,0,1,YNC                                    LMI2          
         TXTS     '  CPR PRIVILEGES    '                          LMI2          
         BWD      WORD,1,1,YNC                                    LMI2          
         TXTS     '  BACKGROUND TASK   '                          LMI2          
         BWD      WORD,2,1,YNC                                    LMI2          
         TXTS     '  SECONDARY TASK    '                          LMI2          
         BWD      WORD,3,1,YNC                                    LMI2          
         TXTS     '  MAPPED            '                                        
         BWD      WORD,7,1,YNC                                    LMI2          
         TXTS     '  RUNNING WITH DEBUG'                          LMI2          
         BWD      WORD,8,24,HEX                                   LMI2          
         TXTS     '  PCB ADDRESS       '                          LMI2          
@LMI2    EQU      (%-BLMI2)/@BWD                                                
*                                                                               
BLMI3    BWD      WORD,0,8,DEC                                    LMI3          
         TXTS     '  JOB ID (DEC)      '                          LMI3          
         BWD      WORD,0,8,JOB                                                  
         TXTS     '  JOB NAME          '                                        
         BWD      WORD,8,24,HEX                                   LMI3          
         TXTS     '  PRIVATE PART LWA  '                          LMI3          
@LMI3    EQU      (%-BLMI3)/@BWD                                                
*                                                                               
BLMI4    BWD      WORD,0,8,DEC                                    LMI4          
         TXTS     '  PUB LIB LMI INDEX '                          LMI4          
         BWD      WORD,8,8,DEC                                    LMI4          
         TXTS     '  PUB LIB LMI INDEX '                          LMI4          
         BWD      WORD,16,8,DEC                                   LMI4          
         TXTS     '  PUB LIB LMI INDEX '                          LMI4          
         BWD      WORD,24,8,DEC                                   LMI4          
         TXTS     '  PUB LIB LMI INDEX '                          LMI4          
@LMI4    EQU      (%-BLMI4)/@BWD                                                
*                                                                               
BLMI5    BWD      HALF,0,1,YNC                                    LMI5          
         TXTS     '  ENTERED AT TTFINAL'                          LMI5          
         BWD      HALF,1,1,YNC                                    LMI5          
         TXTS     '  CONNECTED TO CAL2 '                          LMI5          
         BWD      HALF,2,1,YNC                                    LMI5          
         TXTS     '  CONNECTED TO CAL3 '                          LMI5          
         BWD      HALF,3,1,YNC                                    LMI5          
         TXTS     '  CONNECTED TO CAL4 '                          LMI5          
         BWD      HALF,4,1,YNC                                    LMI5          
         TXTS     '  BKG OR PUBLIB LM  '                          LMI5          
         BWD      HALF,5,1,YNC                                    LM5           
         TXTS     '  SEC OR VIRTUAL LM '                          LMI5          
         BWD      HALF,6,1,YNC                                    LMI5          
         TXTS     '  AWAITING ABORT    '                          LMI5          
         BWD      HALF,7,1,YNC                                    LMI5          
         TXTS     '  BEING LOADED      '                                        
         BWD      HALF,8,1,YNC                                    LMI5          
         TXTS     '  AWAITING LOAD     '                          LMI5          
         BWD      HALF,9,1,YNC                                    LMI5          
         TXTS     '  FOREGROUND PUBLIB '                          LMI5          
         BWD      HALF,10,1,YNC                                   LMI5          
         TXTS     '  BACKGROUND PUBLIB '                          LMI5          
         BWD      HALF,11,1,YNC                                   LMI5          
         TXTS     '  TERMINATING       '                          LMI5          
         BWD      HALF,12,1,YNC                                   LMI5          
         TXTS     '  CONTROL Y OCCURRED'                                        
         BWD      HALF,13,1,YNC                                   LMI5          
         TXTS     '  RUNNING-LOADED    '                          LMI5          
         BWD      HALF,14,1,YNC                                   LMI5          
         TXTS     '  RUN QUEUING-QUEUED'                          LMI5          
         BWD      HALF,15,1,YNC                                   LMI5          
         TXTS     '  BREAK HAS OCCURRED'                                        
@LMI5    EQU      (%-BLMI5)/@BWD                                                
*                                                                               
BLMI6    BWD      WORD,0,8,DEC                                    LMI6          
         TXTS     '  TASK ID(STI INDEX)'                                        
         BWD      WORD,8,24,HEX                                                 
         TXTS     '  SDT CHAIN HEAD    '                          LMI6          
@LMI6    EQU      (%-BLMI6)/@BWD                                                
*                                                                               
BLMI7    BWD      DWRD,32,32,HEX                                                
         TXTS     '                    '                                        
         BWD      DWRD,10,22,HEX                                                
         TXTS     '  TOP OF RTS TEMP   '                        LMI7            
         BWD      DWRD,32,1,YNC                                 LMI7            
         TXTS     '  TS                '                        LMI7            
         BWD      DWRD,33,15,DEC                                LMI7            
         TXTS     '  SPACE CT (DEC)    '                        LMI7            
         BWD      DWRD,48,1,YNC                                 LMI7            
         TXTS     '  TW                '                        LMI7            
         BWD      DWRD,49,15,DEC                                LMI7            
         TXTS     '  WORD CT (DEC)     '                        LMI7            
@LMI7    EQU      (%-BLMI7)/@BWD                                                
*                                                                               
BLMI8    BWD      BYTE,0,8,DEC                                    LMI9          
         TXTS     '  MAX S-ECB''S (DEC) '                         LMI9          
@LMI8    EQU      (%-BLMI8)/@BWD                                                
*                                                                               
BLMI9    BWD      BYTE,0,8,DEC                                    LMI9          
         TXTS     '  MAX R-ECB''S (DEC) '                         LMI9          
         BWD      BYTE,0,8,DEC                                    LMI9          
         TXTS     '  PUBLIB USERS (DEC)'                          LMI9          
@LMI9    EQU      (%-BLMI9)/@BWD                                                
*                                                                               
BLMIAET  BWD      WORD,0,8,DEC                                                  
         TXTS     '  #AET''S (DEC)      '                                       
         BWD      WORD,8,24,HEX                                                 
         TXTS     '  AET ADDRESS       '                                        
@LMIAET  EQU      (%-BLMIAET)/@BWD                                              
*                                                                               
BLMIRECB RES      0                                                             
BLMI12   BWD      WORD,0,8,DEC                                    LMI12         
         TXTS     '  CURR # R-ECBS(DEC)'                          LMI12         
         BWD      WORD,8,24,HEX                                   LMI12         
         TXTS     '  R-ECB CHAIN HEAD  '                          LMI12         
@LMIRECB EQU      (%-BLMIRECB)/@BWD                                             
*                                                                               
BLMIRFT  BWD      WORD,0,8,DEC                                                  
         TXTS     '  SIZE OF RFT TABLE '                                        
         BWD      WORD,8,24,HEX                                                 
         TXTS     '  RFT INDEX TBL PTR '                                        
@LMIRFT  EQU      (%-BLMIRFT)/@BWD                                              
*                                                                               
BLMISECB RES      0                                                             
BLMI11   BWD      WORD,0,8,DEC                                    LMI11         
         TXTS     '  CURR # S-ECBS(DEC)'                          LMI11         
         BWD      WORD,8,24,HEX                                   LMI11         
         TXTS     '  S-ECB CHAIN HEAD  '                          LMI11         
@LMISECB EQU      (%-BLMISECB)/@BWD                                             
*                                                                               
BDCT2L   BWD      BYTE,0,8,DEC,OS                                               
         TXTS     '  COC INDEX (DEC)   '                                        
@DCT2L   EQU      (%-BDCT2L)/@BWD                                               
*                                                                               
BDCT3L   BWD      BYTE,0,8,HEX,OS                                               
         TXTS     '  SHOULD BE X''CO''   '                                      
@DCT3L   EQU      (%-BDCT3L)/@BWD                                               
*                                                                               
BDCT4L   BWD      BYTE,0,8,DTC,OS                                               
         TXTS     '  DEVICE TYPE       '                                        
@DCT4L   EQU      (%-BDCT4L)/@BWD                                               
*                                                                               
BDCT5L   BWD      BYTE,0,8,HEX,OS                                               
         TXTS     '  SHOULD BE ZERO    '                                        
@DCT5L   EQU      (%-BDCT5L)/@BWD                                               
*                                                                               
BDCT6L   BWD      BYTE,0,8,DEC,OS                                               
         TXTS     '  INPUT Q PTR (DEC) '                                        
@DCT6L   EQU      (%-BDCT6L)/@BWD                                               
*                                                                               
BDCT14L  BWD      BYTE,0,8,DEC,OS                                               
         TXTS     '  LINE INDEX  (DEC) '                                        
@DCT14L  EQU      (%-BDCT14L)/@BWD                                              
*                                                                               
BDCT16L  BWD      DWRD,0,64,EBC,OS                                              
         TXTS     '  DEVICE NAME       '                                        
@DCT16L  EQU      (%-BDCT16L)/@BWD                                              
*                                                                               
BDCT18L  BWD      BYTE,0,8,DEC,OS                                               
         TXTS     '  OUTPUT Q PTR (DEC)'                                        
@DCT18L  EQU      (%-BDCT18L)/@BWD                                              
*                                                                               
BDCTJIDL BWD      BYTE,0,8,HEX,OS                                               
         TXTS     '  SHOULD BE ZERO    '                                        
@DCTJIDL EQU      (%-BDCTJIDL)/@BWD                                             
*                                                                               
BDCTMODL BWD      WORD,0,32,EBC,OS                                              
         TXTS     '  SHOULD BE 7611    '                                        
@DCTMODL EQU      (%-BDCTMODL)/@BWD                                             
*                                                                               
BCOCOC   BWD      BYTE,0,8,DEC                                                  
         TXTS     '  OUTPUT CHAR CT    '                                        
@COCOC   EQU      (%-BCOCOC)/@BWD                                               
*                                                                               
BLB:UN   BWD      BYTE,0,8,DEC                                                  
         TXTS     '  DCT INDEX    (DEC)'                                        
         BWD      BYTE,0,8,DEV                                                  
         TXTS     '  DEVICE NAME       '                                        
@LB:UN   EQU      (%-BLB:UN)/@BWD                                               
*                                                                               
BARSZ    BWD      BYTE,0,8,DEC                                                  
         TXTS     '  ACT REC SIZE (DEC)'                                        
@ARSZ    EQU      (%-BARSZ)/@BWD                                                
*                                                                               
BBUFCNT  BWD      BYTE,0,8,DEC                                                  
         TXTS     '  # BUFS IN USE(DEC)'                                        
@BUFCNT  EQU      (%-BBUFCNT)/@BWD                                              
*                                                                               
BMODE    BWD      BYTE,0,1,YNC                                                  
         TXTS     '80 ECHOPLEX         '                                        
         BWD      BYTE,1,1,YNC                                                  
         TXTS     '40 ESCAPE SEQUENCE  '                                        
         BWD      BYTE,3,1,YNC                                                  
         TXTS     '10 READ PENDING     '                                        
         BWD      BYTE,4,1,YNC                                                  
         TXTS     '08 TAB SIMULATION   '                                        
@MODE    EQU      (%-BMODE)/@BWD                                                
*                                                                               
BMODE2   BWD      BYTE,0,1,YNC                                                  
         TXTS     '80 TURNOFF SIGNAL   '                                        
         BWD      BYTE,1,1,YNC                                                  
         TXTS     '40 PAPER TAPE MODE  '                                        
         BWD      BYTE,2,1,YNC                                                  
         TXTS     '20 SPACE INSERTION  '                                        
         BWD      BYTE,4,1,YNC                                                  
         TXTS     '08 SHIFT TO L.C.    '                                        
         BWD      BYTE,5,1,YNC                                                  
         TXTS     '04 CHECK PARITY     '                                        
@MODE2   EQU      (%-BMODE2)/@BWD                                               
*                                                                               
BMODE3   BWD      BYTE,0,1,YNC                                                  
         TXTS     '80 TAB RELATIVE     '                                        
         BWD      BYTE,1,1,YNC                                                  
         TXTS     '40 PAPER TAPE MODE  '                                        
         BWD      BYTE,4,1,YNC                                                  
         TXTS     '08 INPUT LOST       '                                        
@MODE3   EQU      (%-BMODE3)/@BWD                                               
*                                                                               
BMODE4   BWD      BYTE,5,3,RATE      0-10, 11-15, 16-30, 31-60, 60-             
         TXTS     '  RATE              '                                        
@MODE4   EQU      (%-BMODE4)/@BWD                                               
*                                                                               
BMODECPR BWD      BYTE,0,1,HEX                                                  
         TXTS     '80 NON-TJE LINE     '                                        
@MODECPR EQU      (%-BMODECPR)/@BWD                                             
*                                                                               
BCOCTERM BWD      BYTE,6,2,TMOD      M33,M35,M37, 7015                          
         TXTS     '  MODEL NUMBER      '                                        
@COCTERM EQU      (%-BCOCTERM)/@BWD                                             
*                                                                               
BRSZ     BWD      BYTE,0,8,DEC                                                  
         TXTS     '  RECORD SIZE  (DEC)'                                        
@RSZ     EQU      (%-BRSZ)/@BWD                                                 
*                                                                               
BCPI     BWD      BYTE,0,8,DEC                                                  
         TXTS     '  INP CARR POS (DEC)'                                        
@CPI     EQU      (%-BCPI)/@BWD                                                 
*                                                                               
BCPOS    BWD      BYTE,0,8,DEC                                                  
         TXTS     '  PRES CARR POS(DEC)'                                        
@CPOS    EQU      (%-BCPOS)/@BWD                                                
*                                                                               
BCOCII   BWD      HALF,0,16,HEX                                                 
         TXTS     '  INPUT INSERT PT   '                                        
@COCII   EQU      (%-BCOCII)/@BWD                                               
*                                                                               
BCOCIR   BWD      HALF,0,16,HEX                                                 
         TXTS     '  INPUT REMOVAL PT  '                                        
@COCIR   EQU      (%-BCOCIR)/@BWD                                               
*                                                                               
BCOCOI   BWD      HALF,0,16,HEX                                                 
         TXTS     '  OUTPUT INSERT PT  '                                        
@COCOI   EQU      (%-BCOCOI)/@BWD                                               
*                                                                               
BCOCOR   BWD      HALF,0,16,HEX                                                 
         TXTS     '  OUTPUT REMOVAL PT '                                        
@COCOR   EQU      (%-BCOCOR)/@BWD                                               
*                                                                               
BTL      BWD      HALF,0,16,HEX                                                 
         TXTS     '  TAB LINK          '                                        
@TL      EQU      (%-BTL)/@BWD                                                  
*                                                                               
BEOMTIME BWD      HALF,0,16,HEX                                                 
         TXTS     '  TIME OUT VALUE    '                                        
@EOMTIME EQU      (%-BEOMTIME)/@BWD                                             
*                                                                               
*                                                                               
***********************************************************************         
*                                                                               
*        OLD FORMAT MASTER DICTIONARY TABLE BURST DESCRIPTORS                   
*                                                                               
BMD1     BWD      DWRD,32,32,HEX                                                
         TXTS     '                    '                                        
         BWD      DWRD,0,7,DEC                                    MD1           
         TXTS     '  SECTORS/TRACK(DEC)'                          MD1           
         BWD      DWRD,7,9,DEC                                    MD1           
         TXTS     '  WORDS/SECTOR(DEC) '                          MD1           
         BWD      DWRD,16,1,YNC                                   MD1           
         TXTS     '  AREA ALLOCATED?   '                          MD1           
         BWD      DWRD,17,1,YNC                                                 
         TXTS     '  IN USE            '                                        
         BWD      DWRD,21,3,WPC                                   MD1           
         TXTS     '  WRITE PERMISSION  '                          MD1           
         BWD      DWRD,24,8,DEC                                   MD1           
         TXTS     '  DCT INDEX         '                          MD1           
         BWD      DWRD,24,8,DEV                                                 
         TXTS     '  DEVICE NAME       '                                        
         BWD      DWRD,32,16,DEC                                  MD2           
         TXTS     '  RAD START ADDRESS '                          MD2           
         BWD      DWRD,48,16,DEC                                  MD2           
         TXTS     '  RAD END ADDRESS   '                          MD2           
@MD1     EQU      (%-BMD1)/@BWD                                                 
*                                                                               
BMD2     BWD      HALF,0,16,EBC                                                 
         TXTS     '  AREA NAMES        '                                        
@MD2     EQU      (%-BMD2)/@BWD                                                 
*                                                                               
*        END OF OLD FORMAT BWD'S                                                
*                                                                               
***********************************************************************         
*                                                                               
*        NEW FORMAT MASTER DICTIONARY TABLE BURST DESCRIPTORS                   
*                                                                               
*                                                                               
BMDNAME  BWD      HALF,0,16,EBC                                                 
         TXT      '  AREA NAMES        '                                        
@MDNAME  EQU      (%-BMDNAME)/@BWD                                              
*                                                                               
BMDFLAG  BWD      BYTE,0,8,HEX                                                  
         TXT      '  AREA STATUS FLAGS '                                        
         BWD      BYTE,0,1,YNC                                                  
         TXT      '  ALLOCATED         '                                        
         BWD      BYTE,1,1,YNC                                                  
         TXT      '  USER DEFINABLE    '                                        
         BWD      BYTE,5,3,WPC                                                  
         TXT      '  WRITE PROTECT CODE'                                        
@MDFLAG  EQU      (%-BMDFLAG)/@BWD                                              
*                                                                               
BMDDCTI  BWD      BYTE,0,8,DEC                                                  
         TXT      '  DCT INDEX         '                                        
         BWD      BYTE,0,8,DEV                                                  
         TXT      '  DEVICE NAME       '                                        
@MDDCTI  EQU      (%-BMDDCTI)/@BWD                                              
*                                                                               
BMDBOA   BWD      WORD,8,24,DEC                                                 
         TXT      '  DISC START ADDRESS'                                        
@MDBOA   EQU      (%-BMDBOA)/@BWD                                               
*                                                                               
BMDEOA   BWD      WORD,8,24,DEC                                                 
         TXT      '  DISC  END  ADDRESS'                                        
@MDEOA   EQU      (%-BMDEOA)/@BWD                                               
*                                                                               
BMDDISCI BWD      BYTE,0,8,DEC                                                  
         TXT      '  DISC TABLE INDEX  '                                        
@MDDISCI EQU      (%-BMDDISCI)/@BWD                                             
*                                                                               
*                                                                               
***********************************************************************         
*                                                                               
*                                                                               
BOPLB1   BWD      HALF,0,16,EBC                                                 
         TXT      '  OPERATIONAL LABELS'                                        
@OPLB1   EQU      (%-BOPLB1)/@BWD                                               
*                                                                               
BOPLB2   BWD      BYTE,0,8,DCRF                                                 
         TXTS     '  DEVICE OR RFT NDX '                                        
@OPLB2   EQU      (%-BOPLB2)/@BWD                                               
*                                                                               
BOPLB3   BWD      BYTE,0,8,DCRF                                                 
         TXTS     '                    '                                        
@OPLB3   EQU      (%-BOPLB3)/@BWD                                               
*                                                                               
*                                                                               
*                                                                               
***********************************************************************         
*                                                                               
*                                                                               
BOVINAM  BWD      WORD,0,32,EBC                                                 
         TXTS     '  OVERLAY NAME      '                                        
@OVINAM  EQU      (%-BOVINAM)/@BWD                                              
*                                                                               
BOVILEN  BWD      BYTE,0,8,DEC                                                  
         TXTS     '  OVERLAY LEN (DEC) '                                        
@OVILEN  EQU      (%-BOVILEN)/@BWD                                              
*                                                                               
BOVIMA   BWD      HALF,0,16,HEX                                                 
         TXTS     '  PAGE ADDRESS      '                                        
@OVIMA   EQU      (%-BOVIMA)/@BWD                                               
*                                                                               
BOVICT   BWD      BYTE,0,8,DEC                                                  
         TXTS     '  USE COUNT         '                                        
@OVICT   EQU      (%-BOVICT)/@BWD                                               
*                                                                               
BOVISK   BWD      WORD,0,32,HEX                                                 
         TXTS     '  SEEK ADDRESS      '                                        
@OVISK   EQU      (%-BOVISK)/@BWD                                               
*                                                                               
BPSD1    BWD      DWRD,0,32,HEX,,ALLC                                           
         TXTS     '  FIRST WORD        '                                        
         BWD      DWRD,32,32,HEX,,ALLC                                          
         TXTS     '  SECOND WORD       '                                        
         BWD      DWRD,0,4,BIN,,ALLC                             PSD1           
         TXTS     '  COND CODES        '                          PSD1          
         BWD      DWRD,4,1,YNC,,C560                             PSD1           
         TXTS     '  FLOATING ROUND    '                          PSD1          
         BWD      DWRD,5,1,YNC,,ALLC                             PSD1           
         TXTS     '  FLOATING SIGNIF   '                          PSD1          
         BWD      DWRD,6,1,YNC,,ALLC                             PSD1           
         TXTS     '  FLOATING ZERO     '                          PSD1          
         BWD      DWRD,7,1,YNC,,ALLC                             PSD1           
         TXTS     '  FLOATING NORM     '                          PSD1          
         BWD      DWRD,8,1,YNC,,ALLC                             PSD1           
         TXTS     '  SLAVE MODE        '                                        
         BWD      DWRD,9,1,YNC,,ALLC                             PSD1           
         TXTS     '  MEMORY MAP MODE   '                          PSD1          
         BWD      DWRD,10,1,YNC,,SIG7&SIG9                                      
         TXTS     '  DEC ARITH TRAP MSK'                          PSD1          
         BWD      DWRD,11,1,YNC,,ALLC                            PSD1           
         TXTS     '  FXD PT OV TRAP MSK'                          PSD1          
         BWD      DWRD,12,1,YNC,,SIG9                            PSD1           
         TXTS     '  ASCII MASK        '    9 ONLY                PSD1          
         BWD      DWRD,15,1,YNC,,SIG9                                           
         TXTS     '  EXTENSION SELECTOR'  9                                     
         BWD      DWRD,16,16,HEX,,SIG9                                          
         TXTS     '  INSTRUCTION ADDR  '  9                                     
         BWD      DWRD,15,17,HEX,,SIG7&C560                                     
         TXTS     '  INSTRUCTION ADDR  '  7 560                                 
@PSD1    EQU      (%-BPSD1)/@BWD                                                
*                                                                               
BPSD2    BWD      DWRD,34,2,HEX,,SIG7&SIG9                       PSD2           
         TXTS     '  WRITE KEY         ' 7,9                      PSD2          
         BWD      DWRD,32,4,HEX,,C560                            PSD2           
         TXTS     '  WRITE KEY         ' 560                      PSD2          
         BWD      DWRD,37,1,YNC,,ALLC                            PSD2           
         TXTS     '  CTR INTERRUPT INH '                          PSD2          
         BWD      DWRD,38,1,YNC,,ALLC                            PSD2           
         TXTS     '  I/O INTERRUPT INH '                          PSD2          
         BWD      DWRD,39,1,YNC,,ALLC                            PSD2           
         TXTS     '  EXT INTERRUPT INH '                          PSD2          
         BWD      DWRD,55,5,DEC,,SIG7                            PSD2           
         TXTS     '  REGISTER POINTER  ' 7                        PSD2          
         BWD      DWRD,40,1,YNC,,SIG9                            PSD2           
         TXTS     '  MODE ALTERED      ' 9                        PSD2          
         BWD      DWRD,42,6,HEX,,SIG9                            PSD2           
         TXTS     '  EXTENSION ADDRESS ' 9                        PSD2          
         BWD      DWRD,48,8,HEX,,SIG9                            PSD2           
         TXTS     '  TRAPPED STATUS FLD' 9                        PSD2          
         BWD      DWRD,56,4,DEC,,SIG9&C560                       PSD2           
         TXTS     '  REGISTER POINTER  ' 9 AND 560                PSD2          
         BWD      DWRD,60,1,YNC,,SIG9&C560                       PSD2           
         TXTS     '  REGISTER ALTERED  ' 9 AND 560                PSD2          
         BWD      DWRD,61,1,YNC,,C560                            PSD2           
         TXTS     '  MODE ALTERED      ' 560                      PSD2          
@PSD2    EQU      (%-BPSD2)/@BWD                                                
*                                                                               
BRDLPRIO BWD      BYTE,0,8,DEC                                                  
         TXTS     '  PRIORITY          '                                        
@RDLPRIO EQU      (%-BRDLPRIO)/@BWD                                             
*                                                                               
BRDLSTI  BWD      BYTE,0,8,DEC                                                  
         TXTS     '  STI SUBCHAIN HEAD '                                        
@RDLSTI  EQU      (%-BRDLSTI)/@BWD                                              
*                                                                               
BRDLTCB  BWD      WORD,0,8,DEC                                                  
         TXTS     '  STI INDEX (DEC)   '                                        
         BWD      WORD,8,24,HEX                                                 
         TXTS     '  TCB ADDRESS       '                                        
@RDLTCB  EQU      (%-BRDLTCB)/@BWD                                              
*                                                                               
BRDLADD  BWD      HALF,0,16,HEX                                                 
         TXTS     '  INTERRUPT LOCATION'                                        
@RDLADD  EQU      (%-BRDLADD)/@BWD                                              
*                                                                               
BRDLLVL1 BWD      HALF,0,16,HEX                                                 
         TXTS     '  LEVEL BITS (RDL)  '                                        
@RDLLVL1 EQU      (%-BRDLLVL1)/@BWD                                             
*                                                                               
BRDLGRP1 BWD      HALF,12,4,DEC                                                 
         TXTS     '  GROUP (DEC)       '                                        
@RDLGRP1 EQU      (%-BRDLGRP1)/@BWD                                             
*                                                                               
BRDLLVL2 BWD      HALF,0,16,HEX                                                 
         TXTS     '  LEVEL BITS (STL)  '                                        
@RDLLVL2 EQU      (%-BRDLLVL2)/@BWD                                             
*                                                                               
BRDLGRP2 BWD      HALF,12,4,DEC                                                 
         TXTS     '  GROUP (DEC)       '                                        
@RDLGRP2 EQU      (%-BRDLGRP2)/@BWD                                             
*                                                                               
*                                                                               
***********************************************                                 
*                                                                               
*                                                                               
BRFT1    BWD      DWRD,0,64,EBC                                   RFT1          
         TXTS     '  FILE NAME         '                          RFT1          
@RFT1    EQU      (%-BRFT1)/@BWD                                                
*                                                                               
BRFT2    BWD      WORD,8,24,DEC                                                 
         TXT      '  BEGIN SECTOR (DEC)'                                        
@RFT2    EQU      (%-BRFT2)/@BWD                                                
*                                                                               
BRFT3    BWD      WORD,8,24,DEC                                                 
         TXT      '  END   SECTOR (DEC)'                                        
@RFT3    EQU      (%-BRFT3)/@BWD                                                
*                                                                               
BRFT4    BWD      HALF,0,16,DEC                                   RFT4          
         TXTS     '  #BYTES/GRAN (DEC) '                          RFT4          
@RFT4    EQU      (%-BRFT4)/@BWD                                                
*                                                                               
BRFT5    BWD      HALF,0,16,DEC                                   RFT5          
         TXTS     '  #BYTES/REC (DEC)  '                          RFT5          
@RFT5    EQU      (%-BRFT5)/@BWD                                                
*                                                                               
BRFT6    BWD      WORD,8,24,DEC                                   RFT6          
         TXTS     '  FILE SIZE (DEC)   '                          RFT6          
@RFT6    EQU      (%-BRFT6)/@BWD                                                
*                                                                               
*                                                                               
BRFT7    BWD      BYTE,0,1,YNC                                                  
         TXT      '  SEQUENTIAL        '                                        
         BWD      BYTE,1,1,YNC                                                  
         TXT      '  DIRECT            '                                        
         BWD      BYTE,3,1,YNC                                                  
         TXT      '  FIX SPECIFIED     '                                        
         BWD      BYTE,6,2,ORGC                                                 
         TXT      '  FILE ORGANIXATION '                                        
@RFT7    EQU      (%-BRFT7)/@BWD                                                
*                                                                               
*                                                                               
**********************************************************************          
*                                                                               
*                 OLD FORMAT OF RFT7 BWD'S                                      
*                                                                               
BRFT7X   BWD      BYTE,0,1,YNC                                                  
         TXTS     '  SEQUENTIAL        '                                        
         BWD      BYTE,1,1,YNC                                                  
         TXTS     '  DIRECT            '                                        
         BWD      BYTE,3,1,YNC                                                  
         TXTS     '  COMPRESSED        '                                        
         BWD      BYTE,7,1,YNC                                                  
         TXTS     '  BLOCKED           '                                        
@RFT7X   EQU      (%-BRFT7X)/@BWD                                               
*                                                                               
*                 END OF OLD FORMAT RFT7 BWD'S                                  
*                                                                               
**********************************************************************          
*                                                                               
*                                                                               
BRFT8    BWD      BYTE,0,8,DEC                                    RFT8          
         TXTS     '  M D INDEX (DEC)   '                          RFT8          
         BWD      BYTE,0,8,AREA                                                 
         TXTS     '  AREA NAME         '                                        
@RFT8    EQU      (%-BRFT8)/@BWD                                                
*                                                                               
BRFT9    BWD      BYTE,0,8,DEC                                    RFT9          
         TXTS     '  JOB INDEX (DEC)   '                          RFT9          
         BWD      BYTE,0,8,JOB                                                  
         TXTS     '  JOB NAME          '                                        
@RFT9    EQU      (%-BRFT9)/@BWD                                                
*                                                                               
BRFT10   BWD      HALF,0,16,DEC                                   RFT10         
         TXTS     '  BB CURR BYTE (DEC)'                          RFT10         
@RFT10   EQU      (%-BRFT10)/@BWD                                               
*                                                                               
BRFT11   BWD      HALF,0,16,DEC                                   RFT11         
         TXTS     '  CURR SECTOR (DEC) '                          RFT11         
@RFT11   EQU      (%-BRFT11)/@BWD                                               
*                                                                               
BRFT12   BWD      WORD,8,24,DEC                                   RFT12         
         TXTS     '  CURR REC (DEC)    '                          RFT12         
@RFT12   EQU      (%-BRFT12)/@BWD                                               
*                                                                               
BRFT13   BWD      BYTE,0,8,DEC                                    RFT13         
         TXTS     '  OPEN DCB CT (DEC) '                          RFT13         
@RFT13   EQU      (%-BRFT13)/@BWD                                               
*                                                                               
BRFT14   BWD      BYTE,0,8,HEX                                    RFT14         
         TXTS     '  JOB USING BLK BUFR'                                        
         BWD      BYTE,0,8,JOB                                                  
         TXTS     '                    '                                        
@RFT14   EQU      (%-BRFT14)/@BWD                                               
*                                                                               
BRFT15   BWD      BYTE,0,8,DEC                                    RFT15         
         TXTS     '  BGND DCB CT (DEC) '                          RFT15         
@RFT15   EQU      (%-BRFT15)/@BWD                                               
*                                                                               
BRFT16   BWD      BYTE,0,1,YNC                                    RFT16         
         TXTS     '  SEQUENTIAL WRITE  '                          RFT16         
         BWD      BYTE,1,1,YNC                                    RFT16         
@RFT16   EQU      (%-BRFT16)/@BWD                                               
*                                                                               
BRFT17   BWD      WORD,15,17,HEX                               RFT17            
         TXTS     '  B B CTRL WRD LOC  '                          RFT17         
@RFT17   EQU      (%-BRFT17)/@BWD                                               
*                                                                               
BRFTE#   BWD      HALF,0,16,DEC                                                 
         TXT      '  CURRENT EXTENT NO.'                                        
@RFTE#   EQU      (%-BRFTE#)/@BWD                                               
*                                                                               
BRFTESZ  BWD      WORD,12,20,DEC                                                
         TXT      '  EXTEND SIZE (SCTR)'                                        
@RFTESZ  EQU      (%-BRFTESZ)/@BWD                                              
*                                                                               
*                                                                               
*********************************************************************           
*                                                                               
*                                                                               
BRMP     BWD      DWRD,32,32,HEX                                                
         TXTS     '                    '                                        
         BWD      DWRD,8,24,HEX                                                 
         TXTS     '  PARTITION FWA     '                                        
         BWD      DWRD,40,24,HEX                                                
         TXTS     '  PARTITION LWA     '                                        
@RMP     EQU      (%-BRMP)/@BWD                                                 
*                                                                               
BPPT     BWD      WORD,3,1,YNC                                                  
         TXTS     '  STM MODE          '                                        
         BWD      WORD,5,3,PTC                                                  
         TXTS     '  PARTITION TYPE    '                                        
         BWD      WORD,8,24,HEX                                                 
         TXTS     '  PCT ADDRESS       '                                        
@PPT     EQU      (%-BPPT)/@BWD                                                 
*                                                                               
*                                                                               
************************************************                                
*                                                                               
*                                                                               
BSDTLMN  BWD      WORD,56,8,LMC                                                 
         TXTS     '    LOAD MODULE NAME'                                        
@SDTLMN  EQU      (%-BSDTLMN)/@BWD                                              
*                                                                               
*                                                                               
*********************************************                                   
*                                                                               
*                                                                               
BAST     BWD      WORD,1,1,YNC                                                  
         TXTS     '  SEG ACTIVE        '                                        
         BWD      WORD,2,1,YNC                                                  
         TXTS     '  FIRST ACTIVATE    '                                        
         BWD      WORD,3,1,YNC                                                  
         TXTS     '  ROLL-OUT DEACTIVE '                                        
         BWD      WORD,4,1,YNC                                                  
         TXTS     '  DISPATCHER SKIP   '                                        
         BWD      WORD,8,24,HEX                                                 
         TXTS     '  SEG DESCRIPTOR ADR'                                        
@AST     EQU      (%-BAST)/@BWD                                                 
*                                                                               
BSDT0    BWD      WORD,0,1,YNC                                    SDT0          
         TXTS     '  DISPATCHER SKP FLG'                          SDT0          
         BWD      WORD,1,2,SGC                                    SDT0          
         TXTS     '  SEGMENT STATUS    '                          SDT0          
         BWD      WORD,6,2,APM                                    SDT0          
         TXTS     '  ACC PROT MASK INDX'                          SDT0          
         BWD      WORD,8,24,HEX                                   SDT0          
         TXTS     '  MAP IMAGE ADDRESS '                          SDT0          
@SDT0    EQU      (%-BSDT0)/@BWD                                                
*                                                                               
BSDT1    BWD      WORD,0,8,DEC                                    SDT1          
         TXTS     '  MAP IMAGE LEN(DEC)'                          SDT1          
         BWD      WORD,15,9,HEX                                 SDT1            
         TXTS     '  SEG 1ST VIRT PAGE '                        SDT1            
@SDT1    EQU      (%-BSDT1)/@BWD                                                
*                                                                               
BSDT2    BWD      WORD,0,1,YNC                                    SDT2          
         TXTS     '  LAS LOCK          '                          SDT2          
         BWD      WORD,1,1,YNC                                    SDT2          
         TXTS     '  REAL ADDR CORR REQ'                          SDT2          
         BWD      WORD,2,1,YNC                                                  
         TXTS     '  SEC TASK MEM ONLY '                          SDT2          
         BWD      WORD,3,2,APC                                    SDT2          
         TXTS     '  ACCESS PROT LEVEL '                          SDT2          
         BWD      WORD,6,3,SDTYP                                  SDT2          
         TXTS     '  SEGMENT TYPE      '                          SDT2          
         BWD      WORD,9,3,SDSTAT                                 SDT2          
         TXTS     '  SEGMENT STATE     '                          SDT2          
         BWD      WORD,16,1,YNC                                                 
         TXT      '  SYSTEM SEGMENT    '                                        
         BWD      WORD,17,3,SDSS                                                
         TXT      '  USE IF SYS SEGMENT'                                        
         BWD      WORD,20,12,DEC                                                
         TXTS     '  SEGMENT NUMBER    '                          SDT2          
@SDT2    EQU      (%-BSDT2)/@BWD                                                
*                                                                               
BSDT3    BWD      WORD,0,8,DEC                                    SDT3          
         TXTS     '  LOAD MOD INV INDEX'                          SDT3          
         BWD      WORD,8,24,HEX                                   SDT3          
         TXTS     '  SDT FWD LINK ADDR '                          SDT3          
@SDT3    EQU      (%-BSDT3)/@BWD                                                
*                                                                               
BSDT4    BWD      WORD,0,8,DEC                                    SDT4          
         TXTS     '  TASKS ACTIVE (DEC)'                          SDT4          
         BWD      WORD,8,8,DEC                                    SDT4          
         TXTS     '  TASKS ERASED (DEC)'                          SDT4          
         BWD      WORD,16,8,DEC                                   SDT4          
         TXTS     '  TASKS USING (DEC) '                          SDT4          
         BWD      WORD,24,8,DEC                                   SDT4          
         TXTS     '  TASKS LOCKED (DEC)'                          SDT4          
@SDT4    EQU      (%-BSDT4)/@BWD                                                
*                                                                               
BSDT5    BWD      WORD,0,8,DEC                                    SDT5          
         TXTS     '  REAL PAGES (DEC)  '                          SDT5          
         BWD      WORD,8,8,DEC                                    SDT5          
         TXTS     '  VIRT PAGES (DEC)  '                          SDT5          
         BWD      WORD,16,8,DEC                                   SDT5          
         TXTS     '  WORDS ACI (DEC)   '                          SDT5          
         BWD      WORD,24,8,DEC                                   SDT5          
         TXTS     '  PAGES ROLLED OUT  '                          SDT5          
@SDT5    EQU      (%-BSDT5)/@BWD                                                
*                                                                               
BSI      BWD      WORD,0,32,DEC,,8                                SI            
         TXTS     'AST%INDEX           '      SEGMENT IMAGE       SI            
         BWD      REP2,0,1,DEC,,6                                 SI            
         TXTS     'PAGE%ACCESS         '                          SI            
         BWD      BYTE,0,1,DEC,,4                                 SI            
         TXTS     'FGD%PREF%PAGE       '                          SI            
         BWD      BYTE,1,1,YNC,,5                                 SI            
         TXTS     'FILE%SPACE%ALLOC    '                          SI            
         BWD      BYTE,2,1,YNC,,4                                 SI            
         TXTS     'REAL%PAGE%PRES      '                          SI            
         BWD      BYTE,3,1,YNC,,5                                 SI            
         TXTS     'PAGE%REQST%UNSAT    '                          SI            
         BWD      BYTE,6,2,APC,,6                                 SI            
         TXTS     'ACCESS%PROT%CODE    '                          SI            
         BWD      HALF,0,16,HEX,,8                                SI            
         TXTS     'REAL%PAGE%ADDR      '                          SI            
         BWD      HALF,0,16,HEX                                   SI            
         TXTS     'VIRT%PAGE%ADDR      '                          SI            
@SI      EQU      (%-BSI)/@BWD                                                  
*                                                                               
BSJI1    BWD      WORD,1,7,DEC                                    SJI1          
         TXTS     '  JCB LENGTH (DEC)  '                          SJI1          
         BWD      WORD,8,24,HEX                                   SJI1          
         TXTS     '  JCB ADDRESS       '                          SJI1          
         BWD      DWRD,32,32,HEX                                                
         TXTS     '                    '                                        
@SJI1    EQU      (%-BSJI1)/@BWD                                                
*                                                                               
BSJI2    BWD      DWRD,32,32,HEX        PRINT 2ND HALF OF NAME IN HEX           
         TXT      '                    '                                        
         BWD      DWRD,0,64,EBC                                                 
         TXT      '  EBCDIC JOB NAME   '                                        
@SJI2    EQU      (%-BSJI2)/@BWD                                                
*                                                                               
BSJI3    BWD      BYTE,0,1,YNC                                    SJI3          
         TXTS     '  GAMMA             '                          SJI3          
         BWD      BYTE,1,1,YNC                                    SJI3          
         TXTS     '  JOB INITIATING    '                                        
@SJI3    EQU      (%-BSJI3)/@BWD                                                
*                                                                               
BSTIJID  BWD      BYTE,1,7,DEC                                  STIJID          
         TXTS     '  JOB ID            '                        STIJID          
         BWD      BYTE,1,7,JOB                                                  
         TXTS     '  JOB NAME          '                                        
@STIJID  EQU      (%-BSTIJID)/@BWD                                              
*                                                                               
BSTILMID BWD      BYTE,0,8,DEC                                  STILMID         
         TXTS     '  LOAD MOD ID       '                        STILMID         
         BWD      BYTE,0,8,LMN                                                  
         TXTS     '  LMN NAME          '                                        
@STILMID EQU      (%-BSTILMID)/@BWD                                             
*                                                                               
BSTIPRIO BWD      WORD,0,8,H4F                                  STIPRIO         
         TXTS     '  INTERRUPT ADDRESS '                        STIPRIO         
         BWD      WORD,8,8,HEX                                                  
         TXTS     '  SOFTWARE PRIORITY '                        STIPRIO         
         BWD      WORD,16,1,YNC                                 STIPRIO         
         TXTS     '  DISP SKIP OVERRIDE'                        STIPRIO         
         BWD      WORD,17,1,YNC                                 STIPRIO         
         TXTS     '  START IS PENDING  '                        STIPRIO         
         BWD      WORD,18,1,YNC                                 STIPRIO         
         TXTS     '  DISP WITH ALT PSD '                        STIPRIO         
         BWD      WORD,24,8,DEC                                                 
         TXTS     '  RDLI INDEX (DEC)  '                                        
@STIPRIO EQU      (%-BSTIPRIO)/@BWD                                             
*                                                                               
BSTITCB  BWD      WORD,1,1,YNC                                  STITCB          
         TXTS     '  ENTRY IN USE      '                        STITCB          
         BWD      WORD,2,1,YNC                                                  
         TXTS     '  TERMINAL WAIT     '                                        
         BWD      WORD,3,1,YNC                                  STITCB          
         TXTS     '  TASK IN LONG WAIT '                        STITCB          
         BWD      WORD,4,1,YNC                                  STITCB          
         TXTS     '  TASK LOCKED IN MEM'                        STITCB          
         BWD      WORD,5,1,YNC                                  STITCB          
         TXTS     '  CHAIN AFTER       '                        STITCB          
         BWD      WORD,6,1,YNC                                  STITCB          
         TXTS     '  TERM IN PROCESS   '                        STITCB          
         BWD      WORD,7,1,YNC                                                  
         TXTS     '  TASK BLOCKED      '                                        
         BWD      WORD,8,24,HEX                                 STITCB          
         TXTS     '  TCB/STCB ADDRESS  '                        STITCB          
@STITCB  EQU      (%-BSTITCB)/@BWD                                              
*                                                                               
BSTIOVID BWD      HALF,0,1,YNC                                  STIOVID         
         TXTS     '  OV ACTIVE         '                        STIOVID         
         BWD      HALF,1,1,YNC                                  STIOVID         
         TXTS     '  OV PENDING        '                        STIOVID         
         BWD      HALF,2,14,DEC                                 STIOVID         
         TXTS     '  MONITOR OV ID(DEC)'                        STIOVID         
         BWD      HALF,2,14,LUN                                                 
         TXTS     '  MONITOR OV NAME   '                                        
@STIOVID EQU      (%-BSTIOVID)/@BWD                                             
*                                                                               
BSTICNT  BWD      BYTE,0,8,DEC                                  STICOUNT        
         TXTS     '  WAIT COUNT        '                        STICOUNT        
@STICNT  EQU      (%-BSTICNT)/@BWD                                              
*                                                                               
BSTITIME BWD      WORD,8,24,DEC                                 STITIME         
         TXTS     '  TIMEOUT THRSH(DEC)'                        STITIME         
@STITIME EQU      (%-BSTITIME)/@BWD                                             
*                                                                               
BSTIDNXT BWD      BYTE,0,8,DEC                                  STIDNXT         
         TXTS     '  DISP CHAIN LINK   '                        STIDNXT         
@STIDNXT EQU      (%-BSTIDNXT)/@BWD                                             
*                                                                               
BSTIQMIN BWD      BYTE,0,8,DEC                                                  
         TXTS     '  TICKS REMAINING   '                                        
@STIQMIN EQU      (%-BSTIQMIN)/@BWD                                             
*                                                                               
BSTIQMAX BWD      BYTE,0,8,DEC                                                  
         TXTS     '  TICKS USED        '                                        
@STIQMAX EQU      (%-BSTIQMAX)/@BWD                                             
*                                                                               
BSTIRNXT BWD      BYTE,0,8,DEC                                  STIRNXT         
         TXTS     '  ROLL OUT CH LINK  '                        STIRNXT         
@STIRNXT EQU      (%-BSTIRNXT)/@BWD                                             
*                                                                               
BSTIRTCB BWD      DWRD,32,32,HEX                                STIRTCB         
         TXTS     '                    '                                        
         BWD      DWRD,10,22,HEX                                                
         TXTS     '  TOP OF RBM TEMP   '                        STIRTCB         
         BWD      DWRD,32,1,YNC                                 STIRTCB         
         TXTS     '  TS                '                        STIRTCB         
         BWD      DWRD,33,15,DEC                                STIRTCB         
         TXTS     '  SPACE CT (DEC)    '                        STIRTCB         
         BWD      DWRD,48,1,YNC                                 STIRTCB         
         TXTS     '  TW                '                        STIRTCB         
         BWD      DWRD,49,15,DEC                                STIRTCB         
         TXTS     '  WORD CT (DEC)     '                        STIRTCB         
@STIRTCB EQU      (%-BSTIRTCB)/@BWD                                             
*                                                                               
BSTISTAT BWD      BYTE,0,1,YNC                                  STISTAT         
         TXTS     '  PRIMARY TASK      '                        STISTAT         
         BWD      BYTE,1,1,YNC                                  STISTAT         
         TXTS     '  ROLLED OUT TASK   '                        STISTAT         
         BWD      BYTE,2,1,YNC                                  STISTAT         
         TXTS     '  STOPPED TASK      '                                        
         BWD      BYTE,3,1,YNC                                  STISTAT         
         TXTS     '  TASK IN EXECUTION '                        STISTAT         
         BWD      BYTE,4,1,YNC                                                  
         TXTS     '  TASK INITIALIZING '                                        
         BWD      BYTE,5,1,YNC                                                  
         TXTS     '  SUSPENDED TASK    '                                        
         BWD      BYTE,6,1,YNC                                                  
         TXTS     '  TIME-SLICED TASK  '                                        
         BWD      BYTE,7,1,YNC                                                  
         TXTS     '  SWAPPED TASK      '                                        
@STISTAT EQU      (%-BSTISTAT)/@BWD                                             
*                                                                               
BSTISPCE BWD      WORD,0,8,DEC                                  STISPCE         
         TXTS     '  LENGTH (DEC)      '                        STISPCE         
         BWD      WORD,8,24,HEX                                 STISPCE         
         TXTS     '  TSPACE LINK HEAD  '                        STISPCE         
@STISPCE EQU      (%-BSTISPCE)/@BWD                                             
*                                                                               
BSTITICK BWD      BYTE,0,8,DEC                                                  
         TXTS     '  TICKS RECEIVED    '                                        
@STITICK EQU      (%-BSTITICK)/@BWD                                             
*                                                                               
BSTIXRTS BWD      WORD,0,32,HEX                                                 
         TXTS     '  XRTS POINTER      '                                        
@STIXRTS EQU      (%-BSTIXRTS)/@BWD                                             
*                                                                               
*                                                                               
************************************************                                
*                                                                               
*                                                                               
BTCB1    BWD      WORD,0,32,HEX                                 TCB1            
         TXTS     'FLAGS/PCB ADDRESS   '                        TCB1            
         BWD      WORD,0,1,YNC                                  TCB1            
         TXTS     '  CPR TASK          '                        TCB1            
         BWD      WORD,1,1,YNC                                  TCB1            
         TXTS     '  BACKGROUND TASK   '                        TCB1            
         BWD      WORD,2,1,YNC                                  TCB1            
         TXTS     '  SECONDARY TASK    '                        TCB1            
         BWD      WORD,3,1,YNC                                  TCB1            
         TXTS     '  VIRTUAL ADDRESSING'                        TCB1            
         BWD      WORD,4,1,YNC                                  TCB1            
         TXTS     '  REENTER TASK      '                        TCB1            
         BWD      WORD,5,1,YNC                                  TCB1            
         TXTS     '  JOB CRITICAL      '                        TCB1            
         BWD      WORD,6,1,YNC                                  TCB1            
         TXTS     '  DEBUG LOADED      '                        TCB1            
         BWD      WORD,7,1,YNC                                  TCB1            
         TXTS     '  A FLAG            '                                        
         BWD      WORD,8,24,HEX                                 TCB1            
         TXTS     '  PCB ADDRESS       '                        TCB1            
@TCB1    EQU      (%-BTCB1)/@BWD                                                
*                                                                               
BTCB2    BWD      WORD,8,24,HEX                                 TCB2            
         TXTS     'TCB ADDRESS         '                        TCB2            
@TCB2    EQU      (%-BTCB2)/@BWD                                                
*                                                                               
BTCBR    BWD      WORD,0,32,HEXX   16X                          TCBR            
         TXTS     'SAVED REGISTER 0    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 1    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 2    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 3    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 4    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 5    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 6    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 7    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 8    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 9    '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 10   '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 11   '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 12   '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 13   '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 14   '                        TCBR            
         BWD      WORD,0,32,HEXX                                TCBR            
         TXTS     'SAVED REGISTER 15   '                        TCBR            
@TCBR    EQU      (%-BTCBR)/@BWD                                                
*                                                                               
BTCBAST  BWD      WORD,0,32,HEX                                 TCBAST          
         TXTS     'AST                 '                        TCBAST          
         BWD      WORD,0,8,DEC                                  TCBAST          
         TXTS     '  LENGTH            '                        TCBAST          
         BWD      WORD,8,24,HEX                                 TCBAST          
         TXTS     '  ADDRESS           '                        TCBAST          
@TCBAST  EQU      (%-BTCBAST)/@BWD                                              
*                                                                               
BTCBACI  BWD      WORD,0,32,HEX                                 TCBACI          
         TXTS     'ACI ADDRESS         '                        TCBACI          
@TCBACI  EQU      (%-BTCBACI)/@BWD                                              
*                                                                               
BTCBRDL  BWD      WORD,0,32,HEX                                 TCBRDL          
         TXTS     'RDL                 '                        TCBRDL          
         BWD      WORD,12,4,HEX                                 TCBRDL          
         TXTS     '  GROUP CODE        '                        TCBRDL          
         BWD      WORD,16,16,HEX                                TCBRDL          
         TXTS     '  LEVEL             '                        TCBRDL          
@TCBRDL  EQU      (%-BTCBRDL)/@BWD                                              
*                                                                               
BPCBPNT  BWD      WORD,0,32,HEX                                                 
         TXTS     ' PCB POINT = X''4E'' ='                                      
@PCBPNT  EQU      (%-BPCBPNT)/@BWD                                              
*                                                                               
BRTS     RES      0         START OF STACK                                      
         BWD      DWRD,32,32,HEX    OUT 2ND HALF IN HEX TOO                     
         TXTS     'STACK POINTER DWRD: '                                        
         BWD      DWRD,10,22,HEX                                                
         TXTS     '    TOP CURR STACK ='                                        
         BWD      DWRD,32,16,HEX                                                
         TXTS     '       SPACE COUNT ='                                        
         BWD      DWRD,48,16,HEX                                                
         TXTS     '        WORD COUNT ='                                        
@RTS     EQU      (%-BRTS)/@BWD                                                 
*                                                                               
BTCBPNT  BWD      WORD,0,32,HEX                                                 
         TXTS     ' TCB POINT = X''4F'' ='                                      
         BWD      WORD,0,8,LMC                                                  
         TXTS     '       LOAD MODULE ='                                        
@TCBPNT  EQU      (%-BTCBPNT)/@BWD                                              
         TITLE    'FORMAT TABLES'                                               
*                                                                               
*        ADDRESS OF CONVERSION ROUTINES FOR THE 'BWD' TABLES.                   
*        THEY ARE ACCESSED THROUGH THE INDEX DEFINED IN THE EQU TABLE           
*        THAT FOLLOWS.                                                          
*        INDEX 'XXXX' IS DEFINED AS 'XXXXP-BASEL'                               
*                                                                               
BASEL    RES      0                                                             
DECP     DATA        DECROUT                                                    
EBCP     DATA        EBCROUT                                                    
HEXP     DATA        HEXROUT                                                    
H4FP     DATA     H4FROUT                                                       
APCP     DATA     APCROUT                                                       
APMP     DATA     APMROUT                                                       
AREAP    DATA     AREAROUT                                                      
BINP     DATA        BINROUT                                                    
CLKTP    DATA     CLKTROUT                                                      
CTCP     DATA     CTCROUT                                                       
ECBTP    DATA     ECBTROUT                                                      
DBGCP    DATA        DBGCROUT                                                   
DCRFP    DATA     DCRFROUT                                                      
DEVP     DATA     DEVROUT                                                       
DHXP     DATA     DHXROUT                                                       
DTCP     DATA        DTCROUT                                                    
DVCP     DATA        DVCROUT                                                    
FILNP    DATA     FILNROUT                                                      
HEXXP    DATA     HEXXROUT                                                      
IOCCP    DATA     IOCCROUT          I/O CLEAN-UP CODES                          
JOBP     DATA     JOBROUT           FIND JOBNAME                                
LMCP     DATA     LMCROUT           LOAD MODULE NAME FOR CONTEXT DISPLAY        
LMNP     DATA     LMNROUT           FIND LOAD MODULE NAME                       
LUNP     DATA     LUNROUT                                                       
ORGCP    DATA     ORGCROUT                                                      
PTCP     DATA     PTCROUT                                                       
QDECP    DATA        QDECROUT                                                   
QHXP     DATA     QHXROUT                                                       
RATEP    DATA     RATEROUT                                                      
RVADDRP  DATA        RVAROUT                                                    
SCUP     DATA        SCUROUT                                                    
SDSSP    DATA     SDSSROUT                                                      
SDSTP    DATA     SDSTROUT                                                      
SDTYPP   DATA        SDTYROUT                                                   
SGCP     DATA        SGCROUT                                                    
SJLP     DATA     SJLROUT                                                       
TCCP     DATA        TCCROUT                                                    
TMODP    DATA     TMODROUT                                                      
WPCP     DATA     WPCROUT                                                       
YNCP     DATA     YNCROUT                                                       
         PAGE                                                                   
         SPACE    2                                                             
*                 DEFINE CONVERSION ROUTINE INDEX NUMBERS FOR USE               
*                 IN  BWD  TABLES.                                              
*                                                                               
APC      EQU      APCP-BASEL                                                    
APM      EQU      APMP-BASEL                                                    
AREA     EQU      AREAP-BASEL                                                   
BIN      EQU      BINP-BASEL                                                    
CLKT     EQU      CLKTP-BASEL                                                   
CTC      EQU      CTCP-BASEL                                                    
DBGC     EQU      DBGCP-BASEL                                                   
DCRF     EQU      DCRFP-BASEL                                                   
DEC      EQU      DECP-BASEL                                                    
DEV      EQU      DEVP-BASEL                                                    
DHX      EQU      DHXP-BASEL                                                    
DTC      EQU      DTCP-BASEL                                                    
DVC      EQU      DVCP-BASEL                                                    
EBC      EQU      EBCP-BASEL                                                    
ECBTC    EQU      ECBTP-BASEL                                                   
FILN     EQU      FILNP-BASEL                                                   
HEX      EQU      HEXP-BASEL                                                    
HEXX     EQU      HEXXP-BASEL                                                   
H4F      EQU      H4FP-BASEL                                                    
IOCC     EQU      IOCCP-BASEL                                                   
JOB      EQU      JOBP-BASEL                                                    
LMC      EQU      LMCP-BASEL                                                    
LMN      EQU      LMNP-BASEL                                                    
LUN      EQU      LUNP-BASEL                                                    
ORGC     EQU      ORGCP-BASEL                                                   
PTC      EQU      PTCP-BASEL                                                    
QDEC     EQU      QDECP-BASEL                                                   
QHX      EQU      QHXP-BASEL                                                    
RATE     EQU      RATEP-BASEL                                                   
RVADDR   EQU      RVADDRP-BASEL                                                 
SCU      EQU      SCUP-BASEL                                                    
SDSS     EQU      SDSSP-BASEL                                                   
SDSTAT   EQU      SDSTP-BASEL                                                   
SDTYP    EQU      SDTYPP-BASEL                                                  
SGC      EQU      SGCP-BASEL                                                    
SJL      EQU      SJLP-BASEL                                                    
TCC      EQU      TCCP-BASEL                                                    
TMOD     EQU      TMODP-BASEL                                                   
WPC      EQU      WPCP-BASEL                                                    
YNC      EQU      YNCP-BASEL                                                    
         TITLE    'SINGLE WORD SYSTEM CELL DEFINITION TABLES'                   
         SPACE    2                                                             
*        FUNCTIONS:          DEFINE THE ADDRESSES OF THE VARIOUS SYSTEM         
*                            CELLS;  DESCRIBE THESE CELLS FOR THE SWS           
*                            PART OF THE OUTPUT                                 
*                                                                               
*        THE ADDRESSES OF THE CELLS IS FILLED IN BY THE MAP ALGORITHM           
*        FOR THE SECOND PART OF THE TABLE.  THE FIRST PART CONSISTS OF          
*        CELLS WHOSE ADDRESSES ARE FIXED BY THE HARDWARE OR SYSTEM              
*        STANDARDS (CLOCK2 AND K:SYSTEM, RESPECTIVELY).                         
*                                                                               
*                                                                               
*        FORMAT:                                                                
*                 WORD   BYTE       MEANING/DESCRIPTION                         
*                 0-1               TEXT OF NAME OF CELL                        
*                   2      0        HOW TO DISPLAY (DEC, HEX, CIT, ETC)         
*                        1-3        ADDRESS OF ITEM IN MEMORY                   
*                   3               HOW TO BREAK IT APART (BURST)               
*                                WORD 3  =  0                                   
*                                   A 40 CHARACTER DESCRIPTION FOLLOWS.         
*                                WORD 3  NOT= 0                                 
*                          0        #BWD'S TO SCAN IN BWD TABLE                 
*                        1-3        ADDRESS OF FIRST BWD                        
*                                                                               
*                                                                               
*                                                                               
         PAGE                                                                   
         BOUND    8                                                             
         SPACE    2                                                             
SWSCBASE RES      0                                                             
         SWS      'K:ABTLOC',DSPHEX,X'18E'                                      
         TXTS     'ABORT LOCATION                          '                    
SWSC1    RES      0         END OF 1ST ENTRY; USED TO COMPUTE ENTRY SIZE        
         SWS      'K:ACCNAM',DSPMUL,X'11B'                                      
         TXTS     'ACCOUNT ENTRY FOR AL FILE               '                    
         SWS      'K:ACCNT ',DSPHEX,X'14D'                                      
         TXTS     'JOB ACCOUNTING FLAG                     '                    
         SWS      'K:ASSIGN',DSPHEX,X'159'                                      
         TXTS     'ADDRESS OF ASSIGN TABLE                 '                    
         SWS      'K:BACKBG',DSPHEX,X'140'                                      
         TXTS     'BACKGROUND START ADDRESS                '                    
         SWS      'K:BAREA ',DSPHEX,X'158'                                      
         TXTS     'AREA TO LOAD BACKGROUND PROG GROM       '                    
         SWS      'K:BCKEND',DSPHEX,X'141'                                      
         TXTS     'BACKGROUND ENDING ADDRESS               '                    
         SWS      'K:BLOAD ',DSPHEX,X'156'                                      
         TXTS     'NAME OF BACKGROUND PROGRAM TO LOAD      '                    
         SWS      'K:BMEM  ',DSPHEX,X'20F'                                      
         TXTS     'MAX. # OF BACKGROUND PAGES              '                    
         SWS      'K:BPEND ',DSPHEX,X'153'                                      
         TXTS     'END OF BACKGROUND PROG LGAD AREA        '                    
         SWS      'K:BTFILE',DSPHEX,X'173'                                      
         TXTS     'STATUS OF BT FILES                      '                    
         SWS      'K:CCBUF ',DSPHEX,X'144'                                      
         TXTS     'ADDRESS OF CONTROL CARD BUFFER          '                    
         SWS      'K:CLK1  ',DSPHEX,X'188'                                      
         TXTS     'CLOCK 1 COUNTER                         '                    
         SWS      'K:CLK1R ',DSPHEX,X'189'                                      
         TXTS     'CLOCK 1 INITIAL VALUE                   '                    
         SWS      'K:CLK2  ',DSPHEX,X'18A'                                      
         TXTS     'CLOCK 2 COUNTER                         '                    
         SWS      'K:CLK2R ',DSPHEX,X'18B'                                      
         TXTS     'CLOCK 2 INITIAL VALUE                   '                    
         SWS      'K:CLK3  ',DSPHEX,X'18C'                                      
         TXTS     'CLOCK 3 COUNTER                         '                    
         SWS      'K:CLK3R ',DSPHEX,X'18D'                                      
         TXTS     'CLOCK 3 INITIAL VALUE                   '                    
         SWS      'K:CPGL  ',DSPHEX,X'20C'                                      
         TXTS     'CONTROL PANEL GROUP LEVEL               '                    
         SWS      'K:CPWD  ',DSPHEX,X'20B'                                      
         TXTS     'CONTROL PANEL WRITE DIRECT              '                    
         SWS      'K:CTGL  ',DSPHEX,X'155'                                      
         TXTS     'CONTROL TASK GROUP LEVEL                '                    
         SWS      'K:CTWD  ',DSPHEX,X'154'                                      
         TXTS     'CONTROL TASK WRITE DIRECT               '                    
         SWS      'K:CTST  ',DSPHEX,X'151'                                      
         TXTS     'CONTROL TASK EXECUTION FLAGS **         '                    
KDATE1   EQU      %+2                                                           
         SWS      'K:DATE1 ',DSPHEX,X'1F6'                                      
         TXTS     'MAX. # DAYS IN YEAR, YEAR-1960          '                    
KDATE2   EQU      %+2                                                           
         SWS      'K:DATE2 ',DSPHEX,X'1F7'                                      
         TXTS     'DAY OF YEAR                             '                    
         SWS      'K:DCB   ',DSPMUL,X'162'                                      
         TXTS     'CONTROL TASK OLAY LOADER DCB            '                    
         SWS      'K:DCT1  ',DSPHEX,X'176'                                      
         TXTS     'DCT1 ADDRESS                            '                    
         SWS      'K:DCT16 ',DSPHEX,X'177'                                      
         TXTS     'DCT16 ADDRESS                           '                    
         SWS      'K:DEBUG ',DSPHEX,X'216'                                      
         TXTS     'DEBUG COMMUNICATION LOCATION            '                    
         SWS      'K:DELTA ',DSPHEX,X'170'                                      
         TXTS     'ENTRY POINT FOR DELTA                   '                    
         SWS      'K:ELTIM1',DSPHEX,X'1F9'                                      
         TXTS     'BACKGROUND ELAPSED TIME BY FOREGROUND   '                    
         SWS      'K:ELTIM2',DSPHEX,X'202'                                      
         TXTS     'ELAPSED TIME                            '                    
         SWS      'K:FGDBG1',DSPHEX,X'142'                                      
         TXTS     'CURRENT BEGINNING OF FOREGROUND         '                    
         SWS      'K:FGDBG2',DSPHEX,X'146'                                      
         TXTS     'BEGINNING OF FOREGROUND (SET AT SYSGEN) '                    
         SWS      'K:FGDBG3',DSPHEX,X'15C'                                      
         TXTS     'BEGINNING OF FOREGROUND (FMEM KEYIN)    '                    
         SWS      'K:FGDBG4',DSPHEX,X'16F'                                      
         TXTS     'PAGE CONTAINING FWA OF FGD BEFORE CHKPT '                    
         SWS      'K:FGDBG4',DSPHEX,X'16F'                                      
         TXTS     'K:BCKEND PRIOR TO CHKPT                 '                    
         SWS      'K:FGDEND',DSPHEX,X'143'                                      
         TXTS     'FGD ENDING ADDRESS                      '                    
         SWS      'K:FGLD  ',DSPHEX,X'17F'                                      
         TXTS     'BYTE 0 NONZERO MEANS XEQ FGD LOAD/RLS   '                    
KFPOOL   EQU      %+2                                                           
         SWS      'K:FPOOL ',DSPHEX,X'148'                                      
         TXTS     'START ADDR OF FGD BLOCKING BUFFER POOL  '                    
         SWS      'K:FSMM  ',DSPHEX,X'217'                                      
         TXTS     'FOREGROUND SMM:  NUMBER OF PAGES AND LWA'                    
         SWS      'K:GO    ',DSPHEX,X'173'                                      
         TXTS     'CONTROL TASK INTERRUPT #                '                    
KHIINT   EQU      %+2                                                           
         SWS      'K:HIINT ',DSPHEX,X'15B'                                      
         TXTS     'HIGHEST ADDRESS USED FOR INTERRUPT      '                    
         SWS      'K:INITX ',DSPHEX,X'17E'                                      
         TXTS     'RETURN ADDRESS FOR AFTER RUN OF INIT    '                    
         SWS      'K:IOGL  ',DSPHEX,X'20A'                                      
         TXTS     'I/O INTERRUPT GROUP LEVEL               '                    
         SWS      'K:IOLOCK',DSPHEX,X'20D'                                      
         TXTS     'IOLOCK TABLE ADDRESS                    '                    
         SWS      'K:IOWD  ',DSPHEX,X'209'                                      
         TXTS     'IO INTERRUPT WRITE DIRECT               '                    
         SWS      'K:JAET  ',DSPHEX,X'210'                                      
         TXTS     '#OF ALLOCATABLE DEVICES                 '                    
         SWS      'K:JCP1  ',DSPHEX,X'150'                                      
         TXTS     'JCP AND CONTROL TASK FLAGS              '                    
         SWS      'K:KEYIN ',DSPMUL,X'169'                                      
         TXTS     'KEYIN RESPONSE BUFFER                   '                    
         SWS      'K:KEYST ',DSPHEX,X'14F'                                      
         TXTS     'KEYIN STATUS                            '                    
         SWS      'K:INITX ',DSPHEX,X'17E'                                      
         TXTS     'AFTER INIT RUNS, GO HERE                '                    
*                                                                               
KMASTD   EQU      %+2                                                           
         SWS      'K:MASTD ',DSPHEX,X'14A'                                      
         TXTS     'MASTER DIRECTORY START ADDRESS          '                    
KMASTDA  EQU      %+2                                                           
         SWS      'K:MASTDA',DSPHEX,X'212'                                      
         TXTS     'NUMBER OF AREAS; ADDRESS OF NAME TABLE  '                    
*                                                                               
KNUMDA   EQU      %+2                                                           
         SWS      'K:NUMDA ',DSPHEX,X'14B'                                      
         TXTS     'HIGHEST VALID MASTD DW INDEX            '                    
         SWS      'K:OPLBS1',DSPHEX,X'178'                                      
         TXTS     'ADDRESS OF OP LABEL MNEMONICS           '                    
         SWS      'K:OPLBS3',DSPHEX,X'179'                                      
         TXTS     'ADDR OF BKGD OP LABEL VALUES            '                    
         SWS      'K:OV    ',DSPHEX,X'14E'                                      
         TXTS     'PERM AND CURR SIZES OF OV               '                    
         SWS      'K:PAGE  ',DSPHEX,X'174'                                      
         TXTS     'NUMBER LINES PER PAGE                   '                    
         SWS      'K:PMD   ',DSPMUL,X'15D'                                      
         TXTS     'CELLS TO DUMP FOR PMD 5 WORDS           '                    
         SWS      'K:PMD1  ',DSPHEX,X'180'                                      
         TXTS     'FORMAT, FWA, # CELLS                    '                    
         SWS      'K:CTDR7 ',DSPHEX,X'181'                                      
         TXTS     'SAVED R7 DURING BREAK IN CTRL TASK DUMP '                    
         SWS      'K:DBTS  ',DSPHEX,X'182'                                      
         TXTS     'POINTER TO TSPACE FOR BACKGROUND PMD    '                    
         SWS      'K:PPGMOT',DSPHEX,X'1E8'                                      
         TXTS     'UNIMP INST MEM PROT ERROR RETURN        '                    
KPPT     EQU      %+2                                                           
         SWS      'K:PPT   ',DSPHEX,X'216'                                      
         TXTS     'POINTER TO PARTITION POINTER TABLE      '                    
         SWS      'K:PTCH  ',DSPHEX,X'207'                                      
         TXTS     'BEGINNING ADDR OF PATCH AREA            '                    
         SWS      'K:PTCHND',DSPHEX,X'208'                                      
         TXTS     'ENDING ADDR OF PATCH AREA               '                    
         SWS      'K:QUEUE ',DSPHEX,X'171'                                      
         TXTS     'ADDRESS OF QUEUE ROUTINE                '                    
         SWS      'K:RBMEND',DSPHEX,X'214'                                      
         TXTS     'RESIDENT RBM LWA                        '                    
         SWS      'K:RDBOOT',DSPHEX,X'175'                                      
         TXTS     'FWA AND DEV # OF RADBOOT                '                    
         SWS      'K:REQCOM',DSPHEX,X'17D'                                      
         TXTS     'ADDRESS OF REQUEST COMPLETE             '                    
         SWS      'K:RFT4  ',DSPHEX,X'17A'                                      
         TXTS     'RAD FILE TABLE 4 LOC/ GRAN SIZES        '                    
         SWS      'K:RFT5  ',DSPHEX,X'17B'                                      
         TXTS     'RAD FILE TABLE 5 LOC/ REC SIZES         '                    
KRMP     EQU      %+2                                                           
         SWS      'K:RMPT  ',DSPHEX,X'20E'                                      
         TXTS     'REAL MEMORY PARTITION TABLE AND LENGTH  '                    
         SWS      'K:RTS   ',DSPHEX,X'211'                                      
         TXTS     'CPR STACK POINTER                       '                    
         SWS      'K:RUNBPL',DSPMUL,X'185'                                      
         TXTS     'BACKGROUND PUB LIB LOAD STATUS- 3 WORDS '                    
         SWS      'K:RUNF  ',DSPHEX,X'15A'                                      
         TXTS     'FOREGROUND LOAD RUN STATUS              '                    
         SWS      'K:RUNJ  ',DSPHEX,X'215'                                      
         TXTS     'JCP RUN CAL STATUS                      '                    
         SWS      'K:SERDEV',DSPHEX,X'17C'                                      
         TXTS     'ADDRESS OF SERVICE DEVICE ROUTINE       '                    
         SWS      'K:SY    ',DSPHEX,X'152'                                      
         TXTS     'NON-ZERO IF SY KEY-IN ACTIVE            '                    
KTIME    EQU      %+2                                                           
         SWS      'K:TIME  ',DSPHEX,X'1F8'                                      
         TXTS     'TIME OF DAY IN SECONDS                  '                    
         SWS      'K:TRPSIM',DSPHEX,X'1E7'                                      
         TXTS     'UNIMPLEMENTED INSTRUCTION TRAP RETURN   '                    
KUNAVBG  EQU      %+2                                                           
         SWS      'K:UNAVBG',DSPHEX,X'149'                                      
         TXTS     'BEGINNING ADDRESS OF UNAVAILABLE MEMORY '                    
KVERS    EQU      %+2                                                           
         SWS      'K:VRSION',DSPEBC,X'14C'                                      
         TXTS     'CPR VERSION                             '                    
         SWS      'K:XITSIM',DSPHEX,X'1E6'                                      
         TXTS     'UNIMPLEMENTED INSTRUCTION, NORMAL RETURN'                    
SWSCEND  RES      0                                                             
*                           END OF SINGLE WORD SYSTEM CELLS WHOSE               
*                 ADDRESS IS FIXED BY HARDWARE OR SOFTWARE                      
         PAGE                                                                   
         SPACE    2                                                             
*                 WORDS WHICH GET ADDRESSES THAT AREN'T DISPLAYED BUT           
*                 ARE NEEDED FOR OTHER TABLE'S OUTPUT.                          
*                                                                               
KIOCLOCK EQU      %+2                                                           
         SWS      'IOCLOCK '                                                    
         PAGE                                                                   
         SPACE    2                                                             
*                           BEGIN SINGLE WORD SYSTEM CELLS WHOSE                
*                 ADDRESSES ARE FILLED IN BY THE MAP ALGORITHM.                 
*                                                                               
*                                                                               
CITSWS   RES      0                                                             
         SWS      'CIT1    ',DSPCIT,,@CIT1,BCIT1                                
         SWS      'CIT2    ',DSPCIT,,@CIT2,BCIT2                                
         SWS      'CIT3    ',DSPCIT,,@CIT3,BCIT3                                
         SWS      'CIT5    ',DSPCIT,,@CIT5,BCIT5                                
         SWS      'CIT6    ',DSPCIT,,@CIT6,BCIT6                                
CITSWSND RES      0                                                             
KCRSHLOC EQU      %+2                                                           
         SWS      'CRASHLOC',DSPMUL                                             
KMAP     EQU      %+2                                                           
         SWS      'CRASHMAP',DSPMUL                                             
KMSG     EQU      %+2                                                           
         SWS      'CRASHMSG',DSPMUL                                             
         SWS      'CRASHPSD',DSPMUL                                             
         SWS      'CRASHREG',DSPMUL                                             
DCTSWS   RES      0                                                             
KDCT1    EQU      %+2                                                           
         SWS      'DCT1    ',DSPDCT,,@DCT1,BDCT1                                
         SWS      'DCT1A   ',DSPDCT,,@DCT1A,BDCT1A                              
         SWS      'DCT1P   ',DSPDCT,,@DCT1P,BDCT1P                              
KDCT2    EQU      %+2                                                           
         SWS      'DCT2    ',DSPDCT,,@DCT2,BDCT2                                
         SWS      'DCT3    ',DSPDCT,,@DCT3,BDCT3                                
         SWS      'DCT4    ',DSPDCT,,@DCT4,BDCT4                                
         SWS      'DCT4A   ',DSPDCT,,@DCT4A,BDCT4A                              
         SWS      'DCT5    ',DSPDCT,,@DCT5,BDCT5                                
         SWS      'DCT6    ',DSPDCT,,@DCT6,BDCT6                                
         SWS      'DCT7    ',DSPDCT,,@DCT7,BDCT7                                
         SWS      'DCT8    ',DSPDCT,,@DCT8,BDCT8                                
         SWS      'DCT9    ',DSPDCT,,@DCT9,BDCT9                                
         SWS      'DCT10   ',DSPDCT,,@DCT10,BDCT10                              
         SWS      'DCT11   ',DSPDCT,,@DCT11,BDCT11                              
         SWS      'DCT12   ',DSPDCT,,@DCT12,BDCT12                              
         SWS      'DCT13   ',DSPDCT,,@DCT13,BDCT13                              
         SWS      'DCT14   ',DSPDCT,,@DCT14,BDCT14                              
         SWS      'DCT15   ',DSPDCT,,@DCT15,BDCT15                              
KDCT16   EQU      %+2                                                           
         SWS      'DCT16   ',DSPDCT,,@DCT16,BDCT16                              
         SWS      'DCT17   ',DSPDCT,,@DCT17,BDCT17                              
         SWS      'DCT18   ',DSPDCT,,@DCT18,BDCT18                              
         SWS      'DCT19   ',DSPDCT,,@DCT19,BDCT19                              
         SWS      'DCT20   ',DSPDCT,,@DCT20,BDCT20                              
         SWS      'DCT20A  ',DSPDCT,,@DCT20A,BDCT20A                            
         SWS      'DCT21   ',DSPDCT,,@DCT21,BDCT21                              
         SWS      'DCTDCB  ',DSPDCT,,@DCTDCB,BDCTDCB                            
         SWS      'DCTJID  ',DSPDCT,,@DCTJID,BDCTJID                            
         SWS      'DCTMOD  ',DSPDCT,,@DCTMOD,BDCTMOD                            
         SWS      'DCTMODX ',DSPDCT,,@DCTMODX,BDCTMODX                          
         SWS      'DCTRBM  ',DSPDCT,,@DCTRBM,BDCTRBM                            
         SWS      'DCTSDBUF',DSPDCT,,@DCTSDB,BDCTSDB                            
         SWS      'DCTSYM1 ',DSPDCT,,@DCTSYM1,BDCTSYM1                          
         SWS      'DCTSYM2 ',DSPDCT,,@DCTSYM2,BDCTSYM2                          
         SWS      'DCTSYM3 ',DSPDCT,,@DCTSYM3,BDCTSYM3                          
         SWS      'DCTTJE  ',DSPDCT,,@DCTTJE,BDCTTJE                            
         SWS      'DCT#ERR ',DSPDCT,,@DCT#ERR,BDCT#ERR                          
         SWS      'DCT#IO  ',DSPDCT,,@DCT#IO,BDCT#IO                            
DCTSWSND RES      0                                                             
*                                                                               
*                                                                               
***********************************************************************         
*                                                                               
*                                                                               
EPSWS    RES      0                                                             
         SWS      'EPIB    ',DSPEP                                              
ILSWS    RES      0                                                             
KINTLB1  EQU      %+2                                                           
         SWS      'INTLB1  ',DSPINT,,@INTLB1,BINTLB1                            
         SWS      'INTLB2  ',DSPINT,,@INTLB2,BINTLB2                            
ILSWSND  RES      0                                                             
IOQSWS   RES      0                                                             
         SWS      'IOQ1    ',DSPIOQ,,@IOQ1,BIOQ1                                
         SWS      'IOQ2    ',DSPIOQ,,@IOQ2,BIOQ2                                
         SWS      'IOQ3    ',DSPIOQ,,@IOQ3,BIOQ3                                
KIOQ4    EQU      %+2                                                           
         SWS      'IOQ4    ',DSPIOQ,,@IOQ4,BIOQ4                                
         SWS      'IOQ5    ',DSPIOQ,,@IOQ5,BIOQ5                                
         SWS      'IOQ7    ',DSPIOQ,,@IOQ7,BIOQ7                                
         SWS      'IOQ8    ',DSPIOQ,,@IOQ8,BIOQ8                                
         SWS      'IOQ9    ',DSPIOQ,,@IOQ9,BIOQ9                                
         SWS      'IOQ10   ',DSPIOQ,,@IOQ10,BIOQ10                              
         SWS      'IOQ11   ',DSPIOQ,,@IOQ11,BIOQ11                              
         SWS      'IOQ12   ',DSPIOQ,,@IOQ12,BIOQ12                              
         SWS      'IOQ13   ',DSPIOQ,,@IOQ13,BIOQ13                              
         SWS      'IOQ14   ',DSPIOQ,,@IOQ14,BIOQ14                              
         SWS      'IOQECB  ',DSPIOQ,,@IOQECB,BIOQECB                            
         SWS      'IOQERROR',DSPIOQ,,@IOQERR,BIOQERR                            
IOQSWSND RES      0                                                             
*                                                                               
LMITSWS  RES      0                                                             
KLMINAME EQU      %+2                                                           
         SWS      'LMINAME ',DSPLMI,,@LMI1,BLMI1                                
         SWS      'LMIFWA  ',DSPLMI,,@LMI2,BLMI2                                
         SWS      'LMIJID  ',DSPLMI,,@LMI3,BLMI3                                
         SWS      'LMIPL   ',DSPLMI,,@LMI4,BLMI4                                
         SWS      'LMISTAT ',DSPLMI,,@LMI5,BLMI5                                
         SWS      'LMISDT  ',DSPLMI,,@LMI6,BLMI6                                
         SWS      'LMIRTS  ',DSPLMI,,@LMI7,BLMI7                                
         SWS      'LMIMAXS ',DSPLMI,,@LMI8,BLMI8                                
KLMIT    EQU      %+2                                                           
         SWS      'LMIMAXR ',DSPLMI,,@LMI9,BLMI9                                
KLMIAET  EQU      %+2                                                           
         SWS      'LMIAET  ',DSPLMI,,@LMIAET,BLMIAET                            
         SWS      'LMIRECB ',DSPLMI,,@LMIRECB,BLMIRECB                          
KLMISECB EQU      %+2                                                           
         SWS      'LMISECB ',DSPSECB,,@LMISECB,BLMISECB                         
         SWS      'LMIRFT  ',DSPRFT,,@LMIRFT,BLMIRFT                            
LMITSWSND RES     0                                                             
*                                                                               
*                                                                               
***********************************************************************         
*                                                                               
*                 OLD FORMAT MASTER DICTIONARY TABLES                           
*                                                                               
MDXSWS   RES      0         OLD FORMAT MASTER DICTIONARY TABLES                 
         SWS      'MDNAME  ',DSPHEX,,@MD2,BMD2                                  
         SWS      'MASTD   ',DSPHEX,,@MD1,BMD1                                  
MDXSWSND RES      0                                                             
*                                                                               
*                 END OLD FORMAT TABLES SWS                                     
*                                                                               
***********************************************************************         
*                                                                               
*                                                                               
MDSWS    RES      0         NEW FORMAT MASTER DICTIONARY TABLES                 
         SWS      'MDNAME  ',DSPHEX,,@MDNAME,BMDNAME                            
         SWS      'MDFLAG  ',DSPHEX,,@MDFLAG,BMDFLAG                            
         SWS      'MDDCTI  ',DSPHEX,,@MDDCTI,BMDDCTI                            
         SWS      'MDBOA   ',DSPHEX,,@MDBOA,BMDBOA                              
         SWS      'MDEOA   ',DSPHEX,,@MDEOA,BMDEOA                              
         SWS      'MDDISCI ',DSPHEX,,@MDDISCI,BMDDISCI                          
MDSWSND  RES      0                                                             
*                                                                               
OVSWS    RES      0                                                             
KOVLOAD2 EQU      %+2                                                           
         SWS      'OVLOAD2 ',DSPOVL,,@OVINAM,BOVINAM                            
KOVI     EQU      %+2                                                           
         SWS      'OVLOAD1 ',DSPOVL,,@OVILEN,BOVILEN                            
         SWS      'OVIMA   ',DSPOVL,,@OVIMA,BOVIMA                              
         SWS      'OVICT   ',DSPOVL,,@OVICT,BOVICT                              
         SWS      'OVISK   ',DSPOVL,,@OVISK,BOVISK                              
OVSWSND  RES      0                                                             
*                                                                               
*                                                                               
***********************************************************************         
*                                                                               
*                                                                               
OLSWS    RES      0                                                             
KOL1     EQU      %+2                                                           
         SWS      'OPLB1   ',DSPHEX,,@OPLB1,BOPLB1                              
OLSWS2   RES      0                                                             
         SWS      '        ',DSPHEX,,@OPLB2,BOPLB2                              
OLSWS3   RES      0         SWS FOR OTHER JOB'S OPLB2 TABLE DISPLAYS            
         SWS      '        ',DSPHEX,,@OPLB3,BOPLB3                              
OLSWSND  RES      0                                                             
*                                                                               
*                                                                               
***********************************************************************         
*                                                                               
*                                                                               
RDLSWS   RES      0                                                             
         SWS      'RDLIPRIO',DSPRDLI,,@RDLPRIO,BRDLPRIO                         
         SWS      'RDLISTI ',DSPRDLI,,@RDLSTI,BRDLSTI                           
         SWS      'RDLITCB ',DSPRDLI,,@RDLTCB,BRDLTCB                           
         SWS      'RDLIADD ',DSPRDLI,,@RDLADD,BRDLADD                           
KRDLI    EQU      %+2                                                           
         SWS      'RDLILVL1',DSPRDLI,,@RDLLVL1,BRDLLVL1                         
         SWS      'RDLIGRP1',DSPRDLI,,@RDLGRP1,BRDLGRP1                         
         SWS      'RDLILVL2',DSPRDLI,,@RDLLVL2,BRDLLVL2                         
         SWS      'RDLIGRP2',DSPRDLI,,@RDLGRP2,BRDLGRP2                         
RDLSWSND RES      0                                                             
*                                                                               
RFTSWS   RES      0                                                             
KRFT1    EQU      %+2                                                           
         SWS      'RFT1    ',DSPRFT,,@RFT1,BRFT1                                
KRFT2    EQU      %+2                                                           
         SWS      'RFT2    ',DSPRFT,,@RFT2,BRFT2                                
         SWS      'RFT3    ',DSPRFT,,@RFT3,BRFT3                                
KRFT4    EQU      %+2                                                           
         SWS      'RFT4    ',DSPRFT,,@RFT4,BRFT4                                
         SWS      'RFT5    ',DSPRFT,,@RFT5,BRFT5                                
         SWS      'RFT6    ',DSPRFT,,@RFT6,BRFT6                                
KRFT7    EQU      %+2                                                           
         SWS      'RFT7    ',DSPRFT,,@RFT7,BRFT7                                
         SWS      'RFT8    ',DSPRFT,,@RFT8,BRFT8                                
         SWS      'RFT9    ',DSPRFT,,@RFT9,BRFT9                                
         SWS      'RFT10   ',DSPRFT,,@RFT10,BRFT10                              
         SWS      'RFT11   ',DSPRFT,,@RFT11,BRFT11                              
         SWS      'RFT12   ',DSPRFT,,@RFT12,BRFT12                              
         SWS      'RFT13   ',DSPRFT,,@RFT13,BRFT13                              
         SWS      'RFT14   ',DSPRFT,,@RFT14,BRFT14                              
         SWS      'RFT15   ',DSPRFT,,@RFT15,BRFT15                              
         SWS      'RFT16   ',DSPRFT,,@RFT16,BRFT16                              
         SWS      'RFT17   ',DSPRFT,,@RFT17,BRFT17                              
*                                                                               
RFTCXXND RES      0         END OF SWS CELLS FOR PRE-D00 VERSIONS               
         SWS      'RFTE#   ',DSPRFT,,@RFTE#,BRFTE#                              
         SWS      'RFTESZ  ',DSPRFT,,@RFTESZ,BRFTESZ                            
RFTSWSND RES      0                                                             
*                                                                               
SJISWS   RES      0                                                             
KSJIJCB  EQU      %+2                                                           
         SWS      'SJI1    ',DSPSJI,,@SJI1,BSJI1                                
KSJI2    EQU      %+2                                                           
         SWS      'SJI2    ',DSPSJI,,@SJI2,BSJI2                                
KSJI     EQU      %+2                                                           
         SWS      'SJI3    ',DSPSJI,,@SJI3,BSJI3                                
SJISWSND RES      0                                                             
STISWS   RES      0                                                             
         SWS      'STICOUNT',DSPSTI,,@STICNT,BSTICNT                            
         SWS      'STIDNXT ',DSPSTI,,@STIDNXT,BSTIDNXT                          
         SWS      'STIJID  ',DSPSTI,,@STIJID,BSTIJID                            
KSTI     EQU      %+2                                                           
         SWS      'STILMID ',DSPSTI,,@STILMID,BSTILMID                          
         SWS      'STIOVID ',DSPSTI,,@STIOVID,BSTIOVID                          
         SWS      'STIQMIN ',DSPSTI,,@STIQMIN,BSTIQMIN                          
         SWS      'STIQMAX ',DSPSTI,,@STIQMAX,BSTIQMAX                          
         SWS      'STIPRIO ',DSPSTI,,@STIPRIO,BSTIPRIO                          
         SWS      'STIRNXT ',DSPSTI,,@STIRNXT,BSTIRNXT                          
         SWS      'STIRTSB ',DSPSTI,,@STIRTCB,BSTIRTCB                          
         SWS      'STISPCE',DSPSTI,,@STISPCE,BSTISPCE                           
KSTISTAT EQU      %+2                                                           
         SWS      'STISTAT ',DSPSTI,,@STISTAT,BSTISTAT                          
KSTITCB  EQU      %+2                                                           
         SWS      'STITCB  ',DSPSTI,,@STITCB,BSTITCB                            
         SWS      'STITICK ',DSPSTI,,@STITICK,BSTITICK                          
         SWS      'STITIME ',DSPSTI,,@STITIME,BSTITIME                          
         SWS      'STIXRTS ',DSPSTI,,@STIXRTS,BSTIXRTS                          
STISWSND RES      0                                                             
SEDT     EQU      %+2                                                           
         SWS      'S:EDT   ',DSPHEX                                             
STRACE   EQU      %+2                                                           
         SWS      'S:TRACE ',DSPHEX                                             
         SWS      'WLOCK   ',DSPMUL                                             
AETSWS   RES      0                                                             
         SWS      'AET     ',DSPAET,0,@AET,BAET                                 
AETSWSND RES      0                                                             
BBCSWS   RES      0                                                             
         SWS      'BBCT    ',DSPBBCT,,@BBCT,BBBCT                               
BBCSWSND RES      0                                                             
BURSWS   RES      0                                                             
         SWS      'K:CTST  ',DSPBUR,X'151',@KCTST,BKCTST                        
         SWS      'K:JCP1  ',DSPBUR,X'150',@KJCP1,BKJCP1                        
         SWS      'K:SYSTEM',DSPBUR,X'2B',@KSYSTEM,BKSYSTEM                     
BURSWSND RES      0                                                             
KLCOC    EQU      %+2                                                           
         SWS      'LCOC    '                                                    
COCSWS   RES      0                                                             
         SWS      'COD:LPC ',DSPCOC,,@CODLPC,BCODLPC                            
         SWS      'COD:HWL ',DSPCOC,,@CODHWL,BCODHWL                            
KCOHDN   EQU      %+2                                                           
         SWS      'COH:DN  ',DSPCOC,,@COHDN,BCOHDN                              
         SWS      'CO:OUT  ',DSPCOC,,@COOUT,BCOOUT                              
         SWS      'COH:II  ',DSPCOC,,@COHII,BCOHII                              
         SWS      'COH:IO  ',DSPCOC,,@COHIO,BCOHIO                              
COCSWSND RES      0                                                             
ECBSWS   RES      0                                                             
         SWS      'ECB LOC ',DSPECB,XX,@ECBXX,BECBXX                            
         SWS      'ECB0    ',DSPECB,0,@ECB0,BECB0                               
         SWS      'ECB1    ',DSPECB,1,@ECB1,BECB1                               
         SWS      'ECB2    ',DSPECB,2,@ECB2,BECB2                               
         SWS      'ECB3    ',DSPECB,3,@ECB3,BECB3                               
         SWS      'ECB4    ',DSPECB,4,@ECB4,BECB4                               
         SWS      'ECB5    ',DSPECB,5,@ECB5,BECB5                               
         SWS      'ECB6    ',DSPECB,6,@ECB6,BECB6                               
         SWS      'ECB7    ',DSPECB,7,@ECB7,BECB7                               
ECBSWSND RES      0                                                             
EDTSWS   RES      0                                                             
         SWS      'EDTNAME ',DSPEDT,0,@EDTNAME,BEDTNAME                         
         SWS      'EDTEDT  ',DSPEDT,2,@EDTEDT,BEDTEDT                           
         SWS      'EDTRECB ',DSPEDT,3,@EDTRECB,BEDTRECB                         
EDTSWSND RES      0                                                             
KIOLOCK  EQU      %+2                                                           
         SWS      'IOLOCK  '                                                    
IOLSWS   RES      0                                                             
         SWS      'IOL0    ',DSPIOL,0,@IOL,BIOL                                 
         SWS      'IOL1    ',DSPIOL,1,@IOL,BIOL                                 
         SWS      'IOL2    ',DSPIOL,2,@IOL,BIOL                                 
         SWS      'IOL3    ',DSPIOL,3,@IOL,BIOL                                 
IOLSWSND RES      0                                                             
JCBSWS   RES      0                                                             
         SWS      'JCB LOC ',DSPJCB,XX,@JCBLOC,BJCBLOC                          
         SWS      'JCB0    ',DSPJCB,0,@JCB0,BJCB0                               
         SWS      'JCB1    ',DSPJCB,1,@JCB1,BJCB1                               
         SWS      'JCB2    ',DSPJCB,2,@JCB2,BJCB2                               
         SWS      'JCB3    ',DSPJCB,3,@JCB3,BJCB3                               
         SWS      'JCB4    ',DSPJCB,4,@JCB4,BJCB4                               
         SWS      'JCB5    ',DSPJCB,5,@JCB5,BJCB5                               
JCBBBCOS EQU      6                                                             
         SWS      'JCB6    ',DSPJCB,6,@JCB6,BJCB6                               
JCBJPTOS EQU      7                                                             
         SWS      'JCB7    ',DSPJCB,7,@JCB7,BJCB7                               
         SWS      'JCB8    ',DSPJCB,8,@JCB8,BJCB8                               
JCBEDTOS EQU      9                                                             
         SWS      'JCB9    ',DSPJCB,9,@JCB9,BJCB9                               
         SWS      'JCB10   ',DSPJCB,10,@JCB10,BJCB10                            
         SWS      'JCB11   ',DSPJCB,11,@JCB11,BJCB11                            
         SWS      'JCB12   ',DSPJCB,12,@JCB12,BJCB12                            
         SWS      'JCB13   ',DSPJCB,13,@JCB13,BJCB13                            
         SWS      'JCB14   ',DSPJCB,14,@JCB14,BJCB14                            
         SWS      'JCB15   ',DSPJCB,15,@JCB15,BJCB15                            
         SWS      'JCB16   ',DSPJCB,16,@JCB16,BJCB16                            
         SWS      'JCB17   ',DSPJCB,17,@JCB17,BJCB17                            
         SWS      'JCB18   ',DSPJCB,18,@JCB18,BJCB18                            
         SWS      'JCB19   ',DSPJCB,19,@JCB19,BJCB19                            
         SWS      'JCB20   ',DSPJCB,20,@JCB20,BJCB20                            
         SWS      'JCB21   ',DSPJCB,21,@JCB21,BJCB21                            
         SWS      'JCB22   ',DSPJCB,22,@JCB22,BJCB22                            
         SWS      'JCB23   ',DSPJCB,23,@JCB23,BJCB23                            
JCBSWSND RES      0                                                             
JPTSWS   RES      0                                                             
         SWS      'JPT     ',DSPJPT,0,@JPT,BJPT                                 
         SWS      'JPT1    ',DSPJPT,2,@JPT,BJPT                                 
JPTSWSND RES      0                                                             
KLNOL    EQU      %+2                                                           
         SWS      'LNOL    '                                                    
LNSWS    RES      0                                                             
         SWS      'DCT2    ',DSPLNT,,@DCT2L,BDCT2L                              
         SWS      'DCT3    ',DSPLNT,,@DCT3L,BDCT3L                              
         SWS      'DCT4    ',DSPLNT,,@DCT4L,BDCT4L                              
         SWS      'DCT5    ',DSPLNT,,@DCT5L,BDCT5L                              
         SWS      'DCT6    ',DSPLNT,,@DCT6L,BDCT6L                              
         SWS      'DCT14   ',DSPLNT,,@DCT14L,BDCT14L                            
         SWS      'DCT16   ',DSPLNT,,@DCT16L,BDCT16L                            
         SWS      'DCT18   ',DSPLNT,,@DCT18L,BDCT18L                            
         SWS      'DCTMOD  ',DSPLNT,,@DCTMODL,BDCTMODL                          
*        SWS      'DCTJID  ',DSPLNT,,@DCTJID,BDCTJID                            
         SWS      'DCTJID  ',DSPLNT,,@DCTJIDL,BDCTJIDL                          
         SWS      'DCTTJE  ',DSPLNT,,@DCTTJE,BDCTTJE                            
LNDCTEND EQU      %                                                             
         SWS      'COCOC   ',DSPLNT,,@COCOC,BCOCOC                              
         SWS      'LB:UN   ',DSPLNT,,@LB:UN,BLB:UN                              
         SWS      'ARSZ    ',DSPLNT,,@ARSZ,BARSZ                                
         SWS      'BUFCNT  ',DSPLNT,,@BUFCNT,BBUFCNT                            
         SWS      'MODE    ',DSPLNT,,@MODE,BMODE                                
         SWS      'MODE2   ',DSPLNT,,@MODE2,BMODE2                              
         SWS      'MODE3   ',DSPLNT,,@MODE3,BMODE3                              
         SWS      'MODE4   ',DSPLNT,,@MODE4,BMODE4                              
         SWS      'MODECPR ',DSPLNT,,@MODECPR,BMODECPR                          
         SWS      'COCTERM ',DSPLNT,,@COCTERM,BCOCTERM                          
         SWS      'RSZ     ',DSPLNT,,@RSZ,BRSZ                                  
         SWS      'CPI     ',DSPLNT,,@CPI,BCPI                                  
         SWS      'CPOS    ',DSPLNT,,@CPOS,BCPOS                                
         SWS      'COCII   ',DSPLNT,,@COCII,BCOCII                              
         SWS      'COCIR   ',DSPLNT,,@COCIR,BCOCIR                              
         SWS      'COCOI   ',DSPLNT,,@COCOI,BCOCOI                              
         SWS      'COCOR   ',DSPLNT,,@COCOR,BCOCOR                              
         SWS      'TL      ',DSPLNT,,@TL,BTL                                    
         SWS      'EOMTIME ',DSPLNT,,@EOMTIME,BEOMTIME                          
LNSWSND  RES      0                                                             
*                                                                               
PSDSWS   RES      0                                                             
         SWS      'PSD     ',DSPPSD,,@PSD1,BPSD1                                
PSDSWSND RES      0                                                             
RMPSWS   RES      0                                                             
KRMPA    EQU      %+2                                                           
         SWS      'RMPT    ',,,@RMP,BRMP                                        
KPPTA    EQU      %+2                                                           
         SWS      'PPT     ',,,@PPT,BPPT                                        
RMPSWSND RES      0                                                             
SDTSWS   RES      0                                                             
         SWS      'SDT LOC ',DSPSDT,XX,@SDTLMN,BSDTLMN                          
         SWS      'ASTFLAGS',DSPSDT,XX,@AST,BAST                                
         SWS      'SDT0    ',DSPSDT,0,@SDT0,BSDT0                               
         SWS      'SDT1    ',DSPSDT,1,@SDT1,BSDT1                               
         SWS      'SDT2    ',DSPSDT,2,@SDT2,BSDT2                               
         SWS      'SDT3    ',DSPSDT,3,@SDT3,BSDT3                               
         SWS      'SDT4    ',DSPSDT,4,@SDT4,BSDT4                               
         SWS      'SDT5    ',DSPSDT,5,@SDT5,BSDT5                               
SDTSWSND RES      0                                                             
         SWS      'SI      ',DSPSI,,@SI,BSI                                     
KSITE    EQU      %+2                                                           
         SWS      'SITE    '                                                    
TCBSWS   RES      0                                                             
         SWS      'SAVEDPSD',DSPTCB,0,@PSD1,BPSD1                               
         SWS      '        ',DSPTCB,6,@TCB1,BTCB1                               
         SWS      '        ',DSPTCB,7,@TCB2,BTCB2                               
         SWS      'TCBR    ',DSPTCB,10+XX,@TCBR,BTCBR                           
         SWS      'ENTRYPSD',DSPTCB,8,@PSD1,BPSD1                               
         SWS      'TCBAST  ',DSPTCB,26,@TCBAST,BTCBAST                          
         SWS      'TCBACI  ',DSPTCB,27,@TCBACI,BTCBACI                          
         SWS      'TCBRDL  ',DSPTCB,28,@TCBRDL,BTCBRDL                          
TCBSWSND RES      0                                                             
*                                                                               
*                                                                               
CSTSWS   SWS      '        ',DSPTCB,X'4E',@PCBPNT,BPCBPNT                       
         SWS      '        ',DSPTCB,X'4F',@TCBPNT,BTCBPNT                       
CSTRTSWS SWS      '        ',DSPTCB,X'211',@RTS,BRTS                            
CSTSWSND EQU      %                                                             
*                                                                               
*                                                                               
*                                                                               
SWS2END  RES      0                                                             
SWSCSIZE EQU      SWSC1-SWSCBASE                                                
SWS2SIZE EQU      4                 LENGTH OF A SWS CELL W/ 8 CHAR NAME         
SWSCLEN  EQU      (SWSCEND-SWSCBASE)/SWSCSIZE                                   
SWS2LEN  EQU      (SWS2END-SWSCEND)/4                                           
*                                                                               
*                                                                               
*                                                                               
*                           END OF SINGLE WORD SYSTEM CELLS                     
         PAGE                                                                   
         SPACE    2                                                             
DBASE    RES      0                                                             
DSPCON   EQU      %-DBASE                                                       
         DATA     DISPHEX                                                       
DSPDEC   EQU      %-DBASE                                                       
         DATA     DISPDEC                                                       
DSPEBC   EQU      %-DBASE                                                       
         DATA     DISPEBC                                                       
DSPHEX   EQU      %-DBASE                                                       
         DATA     DISPHEX                                                       
DSPMUL   EQU      %-DBASE                                                       
DSPN     EQU      %-DBASE                                                       
         DATA     DISPMUL                                                       
DSPAET   EQU      %-DBASE                                                       
         DATA     DSPAET                                                        
DSPBBCT  EQU      %-DBASE                                                       
         DATA     DSPBBCT                                                       
DSPBUR   EQU      %-DBASE                                                       
         DATA     DSPBUR                                                        
DSPCIT   EQU      %-DBASE                                                       
         DATA     DSPCIT                                                        
DSPCOC   EQU      %-DBASE                                                       
         DATA     DSPCOC                                                        
DSPDCT   EQU      %-DBASE                                                       
         DATA     DSPDCT                                                        
DSPECB   EQU      %-DBASE                                                       
         DATA     DSPECB                                                        
DSPEDT   EQU      %-DBASE                                                       
         DATA     DSPEDT                                                        
DSPEP    EQU      %-DBASE                                                       
         DATA     DSPEP                                                         
DSPINT   EQU      %-DBASE                                                       
         DATA     DSPINT                                                        
DSPIOL   EQU      %-DBASE                                                       
         DATA     DSPIOL                                                        
DSPIOQ   EQU      %-DBASE                                                       
         DATA     DSPIOQ                                                        
DSPJCB   EQU      %-DBASE                                                       
         DATA     DSPJCB                                                        
DSPJPT   EQU      %-DBASE                                                       
         DATA     DSPJPT                                                        
DSPLMI   EQU      %-DBASE                                                       
         DATA     DSPLMI                                                        
DSPLNT   EQU      %-DBASE                                                       
         DATA     DSPLNT                                                        
DSPOPL   EQU      %-DBASE                                                       
         DATA     DSPOPL                                                        
DSPOVL   EQU      %-DBASE                                                       
         DATA     DSPOVL                                                        
DSPMD    EQU      %-DBASE                                                       
         DATA     DSPMD                                                         
DSPPMD   EQU      %-DBASE                                                       
         DATA     DSPPMD                                                        
DSPPSD   EQU      %-DBASE                                                       
         DATA     DSPPSD                                                        
DSPRDLI  EQU      %-DBASE                                                       
         DATA     DSPRDLI                                                       
DSPRFT   EQU      %-DBASE                                                       
         DATA     DSPRFT                                                        
DSPRMP   EQU      %-DBASE                                                       
         DATA     DSPRMP                                                        
DSPSDT   EQU      %-DBASE                                                       
         DATA     DSPSDT                                                        
DSPSECB  EQU      %-DBASE                                                       
         DATA     DSPSECB                                                       
DSPSI    EQU      %-DBASE                                                       
         DATA     DSPSI                                                         
DSPSJI   EQU      %-DBASE                                                       
         DATA     DSPSJI                                                        
DSPSTI   EQU      %-DBASE                                                       
         DATA     DSPSTI                                                        
DSPTCB   EQU      %-DBASE                                                       
         DATA     DSPTCB                                                        
         PAGE                                                                   
* SWSCSUB                                                                       
* SUBROUTINE CALLED BY MULTICOL FOR DISPLAYING SINGLE WORD SYSTEM               
* CELLS                                                                         
SWSCSUB  RES      0                                                             
         PUSH     11,R11            SAVE A LOT OF REGISTERS                     
         MI,R11   SWSCSIZE                                                      
         STW,R11  SWSCTEMP                                                      
         LW,R13   R11                                                           
         AI,R13   SWSCBASE                                                      
         LI,R12   8                                                             
         STB,R12  R13                                                           
         BAL,R15  LOADBUF                                                       
         LW,R4    SWSCTEMP                                                      
         LW,R11   2+SWSCBASE,4                                                  
         LI,R1    15                                                            
         LI,R2    17                                                            
         LI,R14   6                                                             
         BAL,R15  HEXROUT                                                       
         LW,R4    SWSCTEMP                                                      
         LW,R11   2+SWSCBASE,4                                                  
         BAL,R15  FINDCORE                                                      
         LW,R4    SWSCTEMP                                                      
         LW,R5    2+SWSCBASE,4                                                  
         LB,R5    R5                                                            
         LI,R1    0                                                             
         LI,R2    32                                                            
SWSUBCON LI,R14   10                                                            
         CI,R5    DSPN              CHECK SPECIAL CONVERSION                    
         BG       SWSUBBL                                                       
         LW,R15   DBASE,5           OUTPUT THE CONTENTS                         
         BAL,R15  *R15                                                          
SWSUBSIG LI,R12   40                                                            
         LW,R13   SWSCTEMP                                                      
         AI,R13   4+SWSCBASE                                                    
         STB,R12  R13                                                           
         BAL,R15  LOADBUF           OUTPUT THE SIGNIFICANCE TEXT                
         MTW,2    PRBFNDX                                                       
         PULL     11,R11            RECOVER SAVED REGISTERS                     
         B        *R15                                                          
SWSUBBL  RES      0                                                             
         LW,R12   PRBFNDX                                                       
         AI,R12   10                                                            
         STW,R12  PRBFNDX                                                       
         B        SWSUBSIG                                                      
         TITLE    'INDICES ROUTINES'                                            
         SPACE    2                                                             
*AET INDICES ROUTINE                                                            
*SYSTEM LEVEL AET'S ARE POINTED TO BY JCBAET WORDS.  THE SYSTEM JOB             
*INVENTORY IS SEARCHED FOR JCB POINTERS. THE INDICES ARE PRINTED AS             
*                                                                               
*'JXXX YYY' WHERE XXX IS THE SJI INDEX OF THE JOB, AND YYY IS THE               
* ORDINAL NUMBER OF THE AET ENTRY IN THE JCB.                                   
*                                                                               
*JOB LEVEL AET'S ARE POINTED TO BY LMIAET WORDS.  THE LOAD MODULE               
*INVENTORY IS EXHAUSTVELY SEARCHED. THE INDICES ARE PRINTED AS                  
*'LXXX YYY' WHERE XXX IS THE LMI INDEX AND YYY IS THE ORDINAL NUMBER            
* OF THE ENTRY IN THE JOB.                                                      
AETIND   RES      0                                                             
         PUSH     16,R0             SAVE ALL REGISTERS                          
         LW,R1    CURRCOL           TEST IF STILL IN SAME INDICES               
         CW,R1    LASTCC             RANGE                                      
         BE       PRINTSEC            BRANCH IF YES.                            
         STW,R1   LASTCC            ESTABLISH NEW INDICES RANGE                 
         LW,R13   AETNDXLN          PLACE 'SJI OR LMI NDX/ORDER'                
         BAL,R15  LOADBUF            IN BUFFER                                  
         LI,R1    0                 INITIALIZE COLUMN CT                        
         STW,R1   COLCT                                                         
         LW,R1    PHASE             PHASE INITIALLY ZERO                        
         B        %+1,1                                                         
         B        AETSJI                                                        
         B        AETSJIC                                                       
         B        AETLMIC                                                       
AETSJI   RES      0                 HERE TO BEGIN SYS LEVEL AET'S               
         MTW,1    PHASE             -ADVANCE PHASE                              
         LI,R1    0                 -INITIALIZE TABLENDX.                       
         STW,R1   TABLENDX                                                      
AETSJILP RES      0                                                             
         LI,R1    0                 INITIALIZE ORDERNDX FOR JOB                 
         STW,R1   ORDERNDX                                                      
         MTW,1    TABLENDX          -ADVANCE TO NEXT JOB                        
         LW,R1    TABLENDX                                                      
         CW,R1    SJITBL+4          -WAS LAST JOB END OF JOBS                   
         BG       AETLMI             BRANCH IF YES TO DO JOB LEVEL AET'S        
         LW,R11   KSJIJCB           -GET                                        
         AW,R11   R1                --JCB                                       
         BAL,R15  FINDCORE          ---ADDRESS                                  
         LW,R11   R11               -IS THERE A JCB                             
         BEZ      AETSJILP          -BRANCH IF NO                               
         AI,R11   AETPTROS          -GET AET PTR                                
         BAL,R15  FINDCORE          --FROM JCB                                  
         STW,R11  SAVE+2            SAVE PTR AND # OF AETS                      
AETSJIL2 BAL,R15  FINDCORE           GET AET WORD 0                             
         LB,R10   R11               -CHECK LENGTH OF AET                        
         BEZ      AETSJILP           BRANCH IF ZERO                             
         CW,R11   BIT5                                                          
         BAZ      AETSJINX                                                      
         STW,R11  SAVE                                                          
         LW,R11   SAVE+2                                                        
         AI,R11   1                                                             
         BAL,R15  FINDCORE                                                      
         STW,R11  SAVE+1                                                        
AETSJIC  LW,R4    COLCT                                                         
         CW,R4    #COL                                                          
         BE       STIANDON                                                      
         LD,R10   SAVE                                                          
         STD,R10  VALTABLE,R4                                                   
         LW,R13   SPACEJLN                                                      
         BAL,R15  LOADBUF                                                       
         LI,R14   3                                                             
         LI,R1    24                                                            
         LI,R2    8                                                             
         LW,R11   TABLENDX                                                      
         BAL,R15  DECROUT                                                       
         LI,R14   4                                                             
         LI,R2    8                                                             
         LI,R1    24                                                            
         LW,R11   ORDERNDX                                                      
         BAL,R15  DECROUT                                                       
         MTW,1    COLCT                                                         
AETSJINX RES      0                                                             
         MTW,2    SAVE+2                                                        
         MTW,1    ORDERNDX                                                      
         MTB,-2   SAVE+2                                                        
         LW,R11   SAVE+2                                                        
         B        AETSJIL2                                                      
AETLMI   RES      0                 HERE TO BEGIN JOB LEVEL AET'S               
         MTW,1    PHASE             -ADVANCE PHASE                              
         LI,R1    0                 -INITIALIZE TABLENDX                        
         STW,R1   TABLENDX                                                      
AETLMILP RES      0                                                             
         LI,R1    0                 -INITIALIZE AET INDEX FOR LMI               
         STW,R1   ORDERNDX                                                      
         MTW,1    TABLENDX          -ADVANCE TO NEXT LOAD MODULE                
         LW,R1    TABLENDX                                                      
         CW,R1    LMITTBL+4         -WAS LAST LMI END OF LMIS                   
         BG       STIADONE            BRANCH IF YES (DONE)                      
         STW,R11  SAVE+2            -SAVE POINTER AND # OF AET'S                
AETLMIL2 RES      0                                                             
         LB,R10   R11               CHECK LENGTH OF AET                         
         BEZ      AETLMILP            BRANCH IF ZERO                            
         BAL,R15  FINDCORE          GET AET WORD 0                              
         CW,R11   BIT5              -IS AET IN USE                              
         BAZ      AETLMINX            BRANCH IF NO-(GET NEXT)                   
         STW,R11  SAVE                                                          
         LW,R11   SAVE+2                                                        
         AI,R11   1                 GET AET WORD 1                              
         BAL,R15  FINDCORE                                                      
         STW,R11  SAVE+1                                                        
AETLMIC  LW,R4    COLCT             CHECK IF ROOM LEFT ON                       
         CW,R4    #COL              --OUTPUT LINE FOR THIS PAGE                 
         BE       STIANDON          ---BRANCH IF NO                             
         LD,R10   SAVE                                                          
         STD,R10  VALTABLE,R4       -PUT AET DOUBLE WORD IN VALTABLE            
         LW,R13   SPACELLN          -OUTPUT ' L'                                
         BAL,R15  LOADBUF                                                       
         LI,R14   3                 -OUTPUT                                     
         LI,R1    24                --LOAD                                      
         LI,R2    8                 ---MODULE                                   
         LW,R11   TABLENDX          ----INDEX                                   
         BAL,R15  DECROUT           -AND ORDINAL                                
         LI,R14   4                 --NUMBER                                    
         LI,R2    8                 ---OF                                       
         LI,R1    24                ----ASSOCIATIVE ENQUEUE                     
         LW,R11   ORDERNDX          -----TABLE                                  
         BAL,R15  DECROUT           ------IN DECIMAL                            
         MTW,1    COLCT                                                         
AETLMINX RES      0                                                             
         MTW,2    SAVE+2            INCREMENT AET POINTER                       
         MTW,1    ORDERNDX          -AND AET ORDINAL INDEX                      
         MTB,-2   SAVE+2            DECREMENT # OF AET'S TO BE DONE             
         LW,R11   SAVE+2                                                        
         B        AETLMIL2          --IF NONE GO TO NEXT LMI                    
**                                                                              
         PAGE                                                                   
*BLOCKING BUFFER CONTROL TABLE INDICES                                          
*     BLOCKING BUFFER CONTROL TABLES ARE POINTED TO BY K:FPOOL                  
*     AND EACH JCB.                                                             
BBCIND   RES      0                                                             
         PUSH     16,R0             SAVE REGISTERS                              
         MTW,0    PHASE                                                         
         BNE      BBCPH1                                                        
         MTW,1    PHASE                                                         
         LW,R11   EBCKFP            PUT 'K:FP' IN VALTABLE                      
         STW,R11  VALTABLE                                                      
         LW,R11   EBCKFP+1          THEN  'OOL '                                
         STW,R11  VALTABLE+1                                                    
         LW,R11   KFPOOL                                                        
         BAL,R15  FINDCORE          GET ADDR OF BBCW TABLE                      
         STW,R11  INDTABLE                                                      
         BAL,R15  FINDCORE          GET NUMBER OF CONTROL WORDS                 
         STB,R11  INDTABLE                                                      
         LI,R10   JCBBBCOS          GET JCB BBCT PTR OS                         
         LI,R11   1                 AND LENGTH OF BBCT TABLE ENTRY              
         STD,R10  RITOS                                                         
         LI,R1    0                                                             
         STW,R1   RITM              INITIALIZE JOB INDEX                        
BBCLP1   RES      0                 --HERE FOR NEXT JOB                         
         LI,R1    0                                                             
         STW,R1   RITN                                                          
BBCPH1   RES      0                                                             
         MTW,1    RITN              INCREMENT 'WITHIN' JOBINDEX                 
         LB,R10   INDTABLE                                                      
         LW,R11   INDTABLE                                                      
         AW,R11   RITDELTA          MOVE TABLE POINTER TO NEXT TABLE            
         STW,R11  INDTABLE                                                      
         SW,R10   RITDELTA                                                      
         STB,R10  INDTABLE                                                      
         BL       BBCNJOB           IF NONE, GO TO NEXT JOB                     
         BAL,R15  FINDCORE                                                      
         CI,R11   0                                                             
         BE       BBCPH1                                                        
*                                                                               
BBCXIT   RES      0                 EXIT                                        
BBCRTN   RES      0                 RETURN TO ROWINDEX ROUTINE                  
         PULL     16,R0             RECOVER ALL REGISTERS                       
         B        *R15                                                          
*                                                                               
BBCNJOB  RES      0                 --HERE TO MOVE TO NEXT JOB                  
         MTW,1    RITM              BUMP JOB INDEX                              
         LW,R1    RITM                                                          
         CW,R1    SJITBL+4          COMPARE WITH # SJI                          
         BG       SETRIDON                                                      
         LW,R11   KSJIJCB                                                       
         AW,R11   R1                                                            
         BAL,R15  FINDCORE          GET JCB POINTER                             
         CI,R11   0                                                             
         BEZ      BBCNJOB                                                       
         AW,R11   RITOS                                                         
         BAL,R15  FINDCORE                                                      
         CI,R11   0                                                             
         BEZ      BBCNJOB                                                       
         LB,R10   R11                                                           
         SW,R11   RITDELTA                                                      
         STB,R11  R10                                                           
         STW,R11  INDTABLE                                                      
         LW,R3    RITM              MOVE JOBNAME FROM SJI                       
         AW,R3    R3                                     (RITM)                 
         AW,R3    KSJI2             TO VALTABLE +0, +1                          
         LW,R11   R3                SET ADDRESS TO FETCH                        
         BAL,R15  FINDCORE          GET FIRST 4 CHARACTERS OF NAME              
         STW,R11  VALTABLE+0        AND SAVE                                    
         LW,R11   R3                                                            
         AI,R11   1                 POINT AT SECOND HALF                        
         BAL,R15  FINDCORE          AND GET IT                                  
         STW,R11  VALTABLE+1        AND SAVE IT                                 
         B        BBCLP1                                                        
*                                                                               
SETRIDON RES      0                                                             
         MTW,1    RIDONE                                                        
         B        BBCRTN                                                        
         PAGE                                                                   
* BURST WORD INDICES ROUTINE.  SETS #COL AND MAXCOL.                            
BURIND   RES      0                                                             
         PUSH     R0                SAVE THE WORK REGISTER                      
         LI,R0    0                                                             
         STW,R0   MAXCOL                                                        
         LI,R0    1                                                             
         STW,R0   #COL                                                          
         PULL     R0                RECOVER THE REGISTER                        
         B        *R15                                                          
         PAGE                                                                   
*DECIMAL INDICES SUBROUTINE                                                     
* ENTRY  R0       MAX NUMBER COLUMNS                                            
*        R15      RETURN                                                        
*ROUTINE PRINTS THE INDICES LINE                                                
* AND COMPUTES A TABLE OF INDICES FOR THE VALUE SUBROUTINE.                     
DECIND   RES      0                                                             
         PUSH     9,R11             SAVE REGISTERS ALTERED IN ROUTINE           
         LI,R3    20                START INDICIES IN COLUMN 20                 
         STW,R3   PRBFNDX                                                       
         LW,R1    TABPTR                                                        
         LW,R0    4,R1                                                          
         STW,R0   MAXCOL                                                        
         SW,R0    CURRCOL                                                       
         AI,R0    1                                                             
         CW,R0    #COL                                                          
         BG       DILM                                                          
*                                                                               
         STW,R0   #COL                                                          
*                                                                               
DILM     RES      0                                                             
         LCW,R6   #COL                                                          
         LW,R11   CURRCOL                                                       
DILP     LI,R14   9                                                             
         LI,R1    20                                                            
         LI,R2    12                                                            
         LW,R4    #COL                                                          
         AW,R4    R6                                                            
         STW,R11  INDTABLE,R4                                                   
         BAL,R15  DECROUT                                                       
         AI,R11   1                 STEP TO NEXT INDEX VALUE                    
         BIR,R6   DILP                                                          
         BAL,R15  PRINT                                                         
         PULL     9,R11             RECOVER THE REGISTERS                       
         B        *15                                                           
         PAGE                                                                   
*ECB INDICES ROUTINE                                                            
*THE FOLLOWING INFORMATION IS GENERATED:                                        
*  A PRINT LINE CONTAINING A TWO PART INDEX ABOVE EACH                          
*  COLUMN.  THE FIRST PART IS THE LMI INDEX OF THE SEC-                         
*  ONDARY TASK; THE SECOND PART IS THE ORDINAL NUMBER OF                        
*  THE ECB IN THE CHAIN.                                                        
*                                                                               
*  THE ECB LOCATION VECTOR IS LEFT IN INDTABLE.                                 
*                                                                               
*  THE VALUE OF THE LAST LMI INDEX, THE LAST ECB INDEX,                         
*  THE NUMBER OF ECB ENTRIES LEFT FOR THIS LMI,  AND THE                        
*  ADDRESS OF THE ECB ARE RETAINED FOR THE NEXT ENTRY TO                        
*  TO THIS SUBROUTINE.                                                          
*                                                                               
*  #COL IS REDUCED IF #COL COLUMNS ARE NOT GENERATED BY                         
*  THIS ENTRY.  CURRCOL AND MAXCOL ARE SET TO INDICATE IF                       
*  ANOTHER ENTRY IS TO BE MADE.                                                 
*                                                                               
ECBIND   RES      0                                                             
         PUSH     16,R0             SAVE ALL THE REGISTERS                      
         LW,R1    CURRCOL           GET LAST COL INDEX ON PREV PAGE             
         CW,R1    LASTCC            SAME AS ON LAST PAGE HEADER ?               
         BE       PRINTSEC            YES, REPEAT LAST PAGE HEADER              
         STW,R1   LASTCC            NO, SET NEW LAST COL INDEX ON PAGE          
         LW,R13   LMIECBLN          OUT INDEX LINE DESCRIPTOR LINE              
         BAL,R15  LOADBUF           SAYING WHAT THE INDICIES ARE                
         LI,R1    0                 SET TI START WITH 1ST COL FOR DATA          
         STW,R1   COLCT             ON A NEW PAGE OF INDICIES                   
         LW,R1    TABLENDX          GET ITEM INDEX: 1ST TIME HERE ?             
         BNEZ     ECBILP2             NO, USE SAVED VALUES FROM BEFORE          
*                                                                               
ECBILP1  RES      0         LOOK FOR NEXT LM TO DISPLAY                         
         LW,R1    TABLENDX          GET PREVIOUS INDEX                          
         AI,R1    1                 BUMP IT                                     
         STW,R1   TABLENDX          AND SAVE FOR NEXT TIME                      
         LI,R11   0                 INIT ECB IN CHAIN COUNTER                   
         STW,R11  ORDERNDX          TO AT THE FIRST ONE                         
         CW,R1    LMITTBL+4         HAVE WE LOOKED AT LAST TASK ?               
         BG       STIADONE            YES, ALL DONE: EXIT                       
         LW,R11   KLMISECB          GET ADDRESS OF HEAD OF SECB CHAIN           
         AW,R11   R1                FOR THIS LM                                 
         BAL,R15  FINDCORE          FROM MEMORY                                 
         STW,R11  SECBHEAD          SAVE CHAIN HEAD                             
         STW,R11  SAVE                                                          
         LW,R11   R11               DOES THE LM HAVE ANY ECB ?                  
         BEZ      ECBILP1             NO, STEP TO NEXT LM                       
*                                                                               
ECBILP2  RES      0         FIND NEXT ECB ON LM'S SECB CHAIN                    
         LW,R4    COLCT             ROOM FOR DISPLAY ON THIS PAGE ?             
         CW,R4    #COL              (ANOTHER COLUMN FREE ?)                     
         BE       STIANDON            NO, DO ON NEXT PAGE                       
         LW,R10   SAVE              GET SAVES ECB ADDRESS                       
         LW,R11   TABLENDX          GET LM INDEX FOR VALTABLE                   
         STW,R10  INDTABLE,R4       SAVE IT                                     
         STD,R10  VALTABLE,R4       AND IT WITH INDEX IN WORD 1                 
         LI,R14   6                 OUT THE COLUMN HEADER IN                    
         LI,R1    24                6 PRINT POSITIONS                           
         LI,R2    8                                   THUSLY:                   
         BAL,R15  DECROUT               '  XXX '                                
         LI,R14   3                 AND THEN OUT A                              
         LI,R1    23                3 DIGIT ECB ON THE                          
         LI,R2    9                 CHAIN INDEX                                 
         LW,R11   ORDERNDX          FROM ORDERNDX THUSLY:                       
         BAL,R15  DECROUT                                 'XXX'                 
         MTW,1    ORDERNDX          STEP ECB ON THE CHAIN INDEX                 
         MTW,1    COLCT             STEP NUMBER OF COLS ON PAGE USED            
         MTB,-1   SECBHEAD          DEC COUNT OF ECB'S ON CHAIN: DONE ?         
         BEZ      ECBILP1             YES, TEST NEXT LM                         
         LW,R11   SAVE              NO, GET ADDR OF CURRENT ECB                 
         AI,R11   2                 INDEX INTO IT TO                            
         BAL,R15  FINDCORE          GET LINK TO NEXT ON CHAIN                   
         LW,R11   R11               IS THERE A NEXT ?                           
         BEZ      ECBILP1             NO, TEST NEXT LM                          
         STW,R11  SAVE              YES, SAVE ITS LOCATION                      
         B        ECBILP2           GO SEE IF ROOM ON THIS PAGE                 
         PAGE                                                                   
*ENQUEUE DEFINITION      TABLE INDICES                                          
*     ENQUEUE DEFINITION      TABLES ARE POINTED TO BY S:EDT                    
*     AND EACH JCB.                                                             
EDTIND   RES      0                                                             
         PUSH     16,R0             SAVE ALL THE REGISTERS                      
         MTW,0    PHASE                                                         
         BNE      EDTPH1                                                        
         MTW,1    PHASE                                                         
         LW,R11   EBCSED            PUT 'S:ED' IN VALTABLE                      
         STW,R11  VALTABLE                                                      
         LW,R11   SEDT                                                          
         BAL,R15  FINDCORE                                                      
         STW,R11  INDTABLE+1                                                    
         LI,R10   JCBEDTOS          GET JCB BBCT PTR OS                         
         LI,R11   1                 AND LENGTH OF EDTT TABLE ENTRY              
         STD,R10  RITOS                                                         
         LI,R1    0                                                             
         STW,R1   RITM              INITIALIZE JOB INDEX                        
EDTLP1   RES      0                 --HERE FOR NEXT JOB                         
         LI,R1    0                                                             
         STW,R1   RITN                                                          
EDTPH1   RES      0                                                             
         MTW,1    RITN              INCREMENT 'WITHIN' JOBINDEX                 
         LW,R11   INDTABLE+1                                                    
         AND,R11  XFFFFF                                                        
         BEZ      EDTNJOB                                                       
         STW,R11  INDTABLE                                                      
         AI,R11   2                                                             
         BAL,R15  FINDCORE                                                      
         STW,R11  INDTABLE+1                                                    
         B        BBCXIT                                                        
*                                                                               
EDTNJOB  RES      0                 --HERE TO MOVE TO NEXT JOB                  
         MTW,1    RITM              BUMP JOB INDEX                              
         LW,R1    RITM                                                          
         CW,R1    SJITBL+4          COMPARE WITH # SJI                          
         BG       SETRIDON                                                      
         LW,R11   KSJIJCB                                                       
         AW,R11   R1                                                            
         BAL,R15  FINDCORE          GET JCB POINTER                             
         CI,R11   0                                                             
         BEZ      EDTNJOB                                                       
         AW,R11   RITOS                                                         
         BAL,R15  FINDCORE                                                      
         CI,R11   0                                                             
         BEZ      EDTNJOB                                                       
         STW,R11  INDTABLE+1                                                    
         LW,R3    RITM              MOVE JOBNAME FROM  SJI                      
         AW,R3    R3                                      (RITM)                
         AW,R3    KSJI2             TO VALTABLE +0, +0                          
         LW,R11   R3                SET ADDRESS TO FIND                         
         BAL,R15  FINDCORE          GET VALUE                                   
         STW,R11  VALTABLE+0        AND SAVE IT                                 
         LW,R11   R3                GET SECOND HALF OF NAME                     
         AI,R11   1                                                             
         BAL,R15  FINDCORE                                                      
         STW,R11  VALTABLE+1        AND SAVE THAT TOO                           
         B        EDTLP1                                                        
*                                                                               
         PAGE                                                                   
* IOLOCK TABLE INDICES ROUTINE                                                  
*  I/O LOCK TABLE IS POINTED TO BY CELL IOLOCK.  LENGTH IS                      
*  RELATED TO K:UNAVBG (IE. ONE BYTE PER 512 WORDS).                            
*  16 BYTES ARE DISPLAYED PER LINE                                              
IOLIND   RES      0                                                             
         PUSH     16,R0             SAVE THE REGISTERS                          
         MTW,0    PHASE                                                         
         BNE      IOLPH1            DO NOT BRANCH FIRST TIME                    
         LW,R1    KIOLOCK                                                       
         BEZ      SETRIDON                                                      
         AI,R1    -4                                                            
         STW,R1   INDTABLE          SET TABLE LOC                               
         LW,R11   KUNAVBG                                                       
         BAL,R15  FINDCORE                                                      
         SLS,R11  -13               COMPUTE # OF LINES                          
         STW,R11  RITM                                                          
         LI,R1    0                                                             
         STW,R1   RITN                                                          
         MTW,-1   PHASE                                                         
IOLPH1   LW,R1    RITN                                                          
         CW,R1    RITM                                                          
         BE       SETRIDON                                                      
         MTW,4    INDTABLE                                                      
         MTW,1    RITN                                                          
         LW,R11   R1                COPY LINE (PAGE) NUMBER                     
         SLS,R11  4                 ADJUST BACK TO ACTUAL NUMBER                
         BAL,R15  HEXBCD            CONVERT TO A 4 CHAR EBCDIC VALUE            
         LW,R1    BLANKS            GET SPACES FOR OTHER 5 PLACES               
         STB,R1   R0                MAKE NUMBER 3 DIGITS                        
         SCD,R0   -16               FIX TO BE '  DDD   '                        
         STD,R0   VALTABLE          AND SAVE AWAY                               
         B        BBCRTN                                                        
         PAGE                                                                   
*JCB INDICES ROUTINE                                                            
*THE FOLLOWING INFORMATION IS GENERATED:                                        
*                                                                               
*  THE JCB LOCATION VECTOR IS LEFT IN INDTABLE.                                 
*                                                                               
*  #COL IS REDUCED IF #COL COLUMNS ARE NOT GENERATED BY                         
*  THIS ENTRY.  CURRCOL AND MAXCOL ARE SET TO INDICATE IF                       
*  ANOTHER ENTRY IS TO BE MADE.                                                 
*                                                                               
JCBIND   RES      0                                                             
         PUSH     16,R0             SAVE THE REGISTERS                          
         LW,R1    CURRCOL           GET LAST COL INDEX ON PAGE                  
         CW,R1    LASTCC            SAME AS LAST HEADER PRINTER ?               
         BE       PRINTSEC            YES, OUTPUT SAME HEADER AGAIN             
         STW,R1   LASTCC            NO, SET NEW LAST COL INDEX ON PAGE          
         LW,R13   SJINDXLN          OUT INDEX LINE DESCRIPTION                  
         BAL,R15  LOADBUF                                                       
         LI,R1    0                 SET TO START IN 1ST COL FOR DATA            
         STW,R1   COLCT             ON THE PAGE                                 
         LW,R1    TABLENDX          GET ITEM INDEX. 1ST TIME HERE ?             
         BNEZ     JCBI2               NO, USED SAVE VALUE FROM LAST TIME        
*                                                                               
JCBILP1  LW,R1    TABLENDX          STEP INDEX TO NEXT JOB                      
         AI,R1    1                                                             
         STW,R1   TABLENDX          AND SAVE INDEX FOR NEXT PASS                
         CW,R1    SJITBL+4          DONE YET ?                                  
         BG       STIADONE            YES, SET SO AND EXIT                      
         LW,R11   KSJIJCB           ADD INDEX TO GET ONE TO DO                  
         AW,R11   R1                ADD INDEX TO GET ONE TO DO                  
         BAL,R15  FINDCORE          GET THE JCB'S ADDRESS                       
         STW,R11  SAVE              AND SAVE FOR LATER USE                      
         LW,R11   R11               IS IT USED ? (VALID ADDRESS ?)              
         BEZ      JCBILP1             NO, TRY NEXT                              
JCBI2    RES      0         ENTRY FOR COLUMN OVERFLOW OFF RIGHT EDGE            
         LW,R4    COLCT             ROOM ON THIS PAGE FOR JCB ?                 
         CW,R4    #COL              ENOUGH ROWS LEFT ?                          
         BE       STIANDON            NO, WAIT FOR NEXT GROUP                   
         LW,R10   SAVE              YES, GET SAVED ADDRESS                      
         LW,R11   TABLENDX          SET SJI INDEX AS RIGHT HALF OF DW           
         STW,R10  INDTABLE,R4       AND SET THE TWO TABLE ENTRIES               
         STD,R10  VALTABLE,R4                                                   
         LI,R14   9                 OUT COLUMN HEADER INDEX                     
         LI,R1    24                                                            
         LI,R2    8                                                             
         BAL,R15  DECROUT           OUT SJI INDEX AS COL HEADER INDEX           
         MTW,1    COLCT             STEP COUNT OF COLS THIS PAGE                
         B        JCBILP1           LOOP FOR ANOTHER JCB                        
         PAGE                                                                   
*JOB PROGRAM TABLE INDICES                                                      
*     JOB PROGRAM TABLES ARE POINTED                                            
*     TO BY JCB7 WHOSE UPPER BYTE DEFINES                                       
*     THE MAXIMUM NUMBER OF ENTRIES                                             
JPTIND   RES      0                                                             
         PUSH     16,R0             SAVE THE REGISTERS                          
         MTW,0    PHASE             A LITTLE INITIALIZATION IF                  
         BNE      BBCPH1            PHASE IS 0. ELSE USE BBCTIND.               
         MTW,1    PHASE                                                         
         LI,R10   JCBJPTOS                                                      
         LI,R11   4                 SET TABLE DELTA                             
         STD,R10  RITOS                                                         
         LI,R1    0                                                             
         STW,R1   RITM                                                          
         B        BBCNJOB           NOW TO BBCTIND                              
         PAGE                                                                   
*                                                                               
*  OPLABEL INDICIES ROUTINE                                                     
*                                                                               
*  ROUTINE INITIALIZES THE JOB (JCB) INDEX POINTER AND RESETS THE START         
*        SWS POINTER IN OPLBLTBL TO POINT AT THE OPLB1 SWS ITEM.                
*                                                                               
*                                                                               
OPLBIND  RES      0                                                             
         PUSH     9,R11             SAVE REGS                                   
         LW,R13   OPLBDXLN          OUT INDICIES TITLE                          
         BAL,R15  LOADBUF                                                       
         LI,R0    0                 INITIALIZE JOB (JCB) INDEX TO BEGIN         
         STW,R0   TABLENDX          WITH JOB BEFORE JOB 1, A SUDO JOB           
         LW,R11   KSJI              GET NUMBER OF JOB ENTRIES AVAILABLE         
         BAL,R15  FINDCORE          IN TABLE SPACE                              
         LB,R11   R11                                                           
         STW,R11  SAVE                                                          
         PULL     9,R11                                                         
         B        DECIND            GO OUT DECIMAL INDICIES AS USUAL            
         PAGE                                                                   
*PSD INDICES ROUTINE                                                            
*                                                                               
*THE FIRST PSD TO BE OUTPUT IS THE PSD SAVED AT CRASHLOC.                       
*                                                                               
*THEN ALL OF THE LOCATIONS FROM X'40' TO C(K:HIINT) ARE                         
*CHECKED TO SEE IF THEY CONTAIN AN XPSD.  IF SO, THE PSD AT THE                 
*LOC POINTED TO BY THE XPSD IS OUTPUT.                                          
*                                                                               
*THEN ALL OF THE PSD'S IN THE TCB'S POINTED TO FROM THE STI ARE                 
*OUTPUT.                                                                        
*                                                                               
PSDIND   RES      0                                                             
         PUSH     16,R0             SAVE THE REGISTERS                          
         LW,R1    CURRCOL                                                       
         CW,R1    LASTCC                                                        
         BE       PRINTSEC                                                      
         STW,R1   LASTCC                                                        
         LW,R13   PSDNDXLN                                                      
         BAL,R15  LOADBUF                                                       
         LI,R1    0                                                             
         STW,R1   COLCT                                                         
         LW,R1    PHASE                                                         
         B        %+1,1                                                         
         B        PSDCLOC                                                       
         B        PSDTRPC                                                       
         B        PSDTCBC                                                       
PSDTRAP  MTW,1    PHASE                                                         
         LI,R1    X'3F'                                                         
         STW,R1   TABLENDX                                                      
PSDTRPLP RES      0                                                             
         MTW,1    TABLENDX                                                      
         LW,R11   TABLENDX                                                      
         CW,R11   PSDTBL+4                                                      
         BG       PSDTCB                                                        
         BAL,R15  FINDCORE                                                      
         LW,R1    R11                                                           
         AND,R11  OCMASK                                                        
         CW,R11   XPSDCODE                                                      
         BNE      PSDTRPLP                                                      
         LW,R11   R1                                                            
         BAL,R15  FINDCORE                                                      
         STW,R11  SAVE                                                          
         LW,R11   R1                                                            
         AI,R11   1                                                             
         BAL,R15  FINDCORE                                                      
         STW,R11  SAVE+1                                                        
PSDTRPC  LW,R4    COLCT                                                         
         CW,R4    #COL                                                          
         BE       STIANDON                                                      
         LD,R10   SAVE                                                          
         STD,R10  VALTABLE,R4                                                   
         LI,R14   5                                                             
         LI,R1    0                                                             
         LI,R2    32                                                            
         LW,R11   EBCINT                                                        
         LW,R5    TABLENDX                                                      
         STW,R5   INDTABLE,R4                                                   
         CI,R5    X'4F'                                                         
         BG       %+2                                                           
         LW,R11   EBCTRAP                                                       
         BAL,R15  EBCROUT                                                       
         LI,R14   4                                                             
         LI,R1    20                                                            
         LI,R2    12                                                            
         LW,R11   TABLENDX                                                      
         BAL,R15  HEXROUT                                                       
         MTW,1    COLCT                                                         
         B        PSDTRPLP                                                      
PSDTCB   MTW,1    PHASE                                                         
         LI,R1    0                                                             
         STW,R1   TABLENDX                                                      
PSDTCBLP RES      0                                                             
         MTW,1    TABLENDX                                                      
         LW,R1    TABLENDX                                                      
         CW,R1    STITBL+4                                                      
         BG       STIADONE                                                      
         LW,R11   KSTITCB                                                       
         AW,R11   R1                                                            
         BAL,R15  FINDCORE                                                      
         LW,R1    R11                                                           
         BEZ      PSDTCBLP                                                      
         BAL,R15  FINDCORE                                                      
         LW,R10   R11                                                           
         STW,R11  SAVE                                                          
         LW,R11   R1                                                            
         AI,R11   1                                                             
         BAL,R15  FINDCORE                                                      
         STW,R11  SAVE+1                                                        
         AW,R10   R11                                                           
         BEZ      PSDTCBLP                                                      
PSDTCBC  LW,R4    COLCT                                                         
         CW,R4    #COL                                                          
         BE       STIANDON                                                      
         LD,R10   SAVE                                                          
         STD,R10  VALTABLE,R4                                                   
         LI,R14   5                                                             
         LI,R1    0                                                             
         LI,R2    32                                                            
         LW,R11   EBCTASK                                                       
         BAL,R15  EBCROUT                                                       
         LI,R14   4                                                             
         LI,R1    23                                                            
         LI,R2    9                                                             
         LW,R11   TABLENDX                                                      
         BAL,R15  DECROUT                                                       
         MTW,1    COLCT                                                         
         B        PSDTCBLP                                                      
PSDCLOC  RES      0                                                             
         LI,R14   9                                                             
         LI,R1    0                                                             
         LI,R2    64                                                            
         LD,R10   EBCCLOC                                                       
         BAL,R15  EBCROUT                                                       
         LW,R11   KCRSHLOC                                                      
         BAL,R15  FINDCORE                                                      
         LW,R10   R11                                                           
         LW,R11   KCRSHLOC                                                      
         AI,R11   1                                                             
         BAL,R15  FINDCORE                                                      
         LW,R4    COLCT                                                         
         STD,R10  VALTABLE,R4                                                   
         MTW,1    COLCT                                                         
         B        PSDTRAP                                                       
         PAGE                                                                   
*SDT INDICES ROUTINE                                                            
*THE FOLLOWING INFORMATION IS GENERATED:                                        
*  A PRINT LINE CONTAINING A TWO PART INDEX ABOVE EACH                          
*  COLUMN.  THE FIRST PART IS THE STI INDEX OF THE SEC-                         
*  ONDARY TASK; THE SECOND PART IS THE ORDINAL NUMBER OF                        
*  THE AST.                                                                     
*                                                                               
*  THE AST ENTRY VECTOR IS LEFT IN INDTABLE.                                    
*                                                                               
*  THE VALUE OF THE LAST STI INDEX, THE LAST AST INDEX,                         
*  THE NUMBER OF AST ENTRIES LEFT FOR THIS STCB, AND THE                        
*  ADDRESS OF THE AST ARE RETAINED FOR THE NEXT ENTRY TO                        
*  TO THIS SUBROUTINE.                                                          
*                                                                               
*  #COL IS REDUCED IF #COL COLUMNS ARE NOT GENERATED BY                         
*  THIS ENTRY.  CURRCOL AND MAXCOL ARE SET TO INDICATE IF                       
*  ANOTHER ENTRY IS TO BE MADE.                                                 
*                                                                               
SDTIND   RES      0                                                             
         PUSH     16,R0             SAVE THE REGISTERS                          
         LW,R1    CURRCOL           GET LAST COL INDEX ON LAST PAGE             
         CW,R1    LASTCC            SAME AS ON LAST PAGE HEADER ?               
         BE       PRINTSEC            YES, REPRINT HEADER LINE                  
         STW,R1   LASTCC            NO, SET NEW LAST COL INDEX ON PAGE          
         LW,R13   STIASTLN          OUT INDEX LINE DESCRIPTION LINE             
         BAL,R15  LOADBUF                                                       
         LI,R1    0                 SET TO START IN 1ST COL FOR DATA            
         STW,R1   COLCT              ON THE NEW PAGE                            
         LW,R1    TABLENDX          GET ITM INDEX. FIRST TIME HERE ?            
         BNEZ     SDTALP3             NO, USED SAVED VALUE FROM LAST            
*                                                                               
SDTALP1  RES      0         FIND NEXT TASK WITH SEGMENTS (SECNDARY)             
         LW,R1    TABLENDX          STEP TO NEXT ITME                           
         AI,R1    1                                                             
         STW,R1   TABLENDX          AND SAVE IT                                 
         CW,R1    STITBL+4          HAVE WE REACHED LAST ?                      
         BG       STIADONE            YES, SAY WE ARE DONE                      
         LW,R2    R1                NO, COPY INDEX AND CONVERT TO A             
         LI,R3    0                 WORD AND BYTE WITHIN A WORD INDEX           
         SCD,R2   -2                                                            
         SCS,R3   2                                                             
         LW,R11   KSTISTAT          GET THE TASK'S STATUS BYTE                  
         AW,R11   R2                                                            
         BAL,R15  FINDCORE                                                      
         LB,R11   11,R3             AND TEST IF IT IS                           
         AND,R11  D128              A PRIMARY TASK ?                            
         BNEZ     SDTALP1             IT IS: NO AST TO OUTPUT: SKIP IT          
         LW,R11   KSTITCB           FIND THE TCB FOR THE TASK                   
         AW,R11   R1                                                            
         BAL,R15  FINDCORE                                                      
         LB,R10   R11               GET TCB FLAG BYTE AND SEE IF IT             
         CI,R10   X'40'             MARKED IN USE ?                             
         BAZ      SDTALP1             NOT IN USE: SKIP IT                       
*                                                                               
         AND,R11  X1FFFF            EXTRACT OUT ADDRESS; IS  IT VALID ?         
         BEZ      SDTALP1             NO, SKIP IT                               
*                                                                               
         AI,R11   26                INDEX IN TCB TO AST TABLE ADDRESS           
         BAL,R15  FINDCORE          AND GET IT                                  
         STW,R11  ASTBASE           SAVE IT FOR MULTIPLE SEGMENTS               
         LW,R11   R11               DOES IT HAVE ANY SEGMENTS ?                 
         BEZ      SDTALP1             NO, SKIP TO NEXT TASK                     
*                                                                               
         LI,R2    0                 SET INDEX TO SEGMENT WITHIN TASK            
         STW,R2   ORDERNDX          TO START WITH THE ZEROTH                    
*                                                                               
SDTALP2  RES      0         FIND NEXT SEGMENT DESCRIPTOR FOR CURR TASK          
         LW,R2    ORDERNDX          GET NEXT SEGMENT TO LOOK AT                 
         LB,R3    ASTBASE           GET NUMBER OF SEGMENTS IN TASK              
         BEZ      SDTALP1             NONE, STEP TO NEXT TASK                   
         CW,R2    R3                HAVE WE DONE ALL IN THIS TASK ?             
         BGE      SDTALP1             YES, DO NEXT TASK                         
         LW,R11   ASTBASE           NO, GET ADDR OF NEXT SD TABLE               
         AW,R11   R2                IN THE AET LIST                             
         BAL,R15  FINDCORE                                                      
         MTW,1    ORDERNDX          STEP SEGMENT INDEX                          
         CI,R11   0                 DOES THIS SEGMENT EXIST ?                   
         BLE      SDTALP2             NO, TRY NEXT                              
         STW,R11  SAVE              YES, SAVE ITS ADDRESS                       
*                                                                               
SDTALP3  RES      0         PUT NEXT ITEM IN NEXT COL ON PAGE IF ROOM           
         LW,R4    COLCT             ANOTHER COLUMN AVAILABLE ON PAGE ?          
         CW,R4    #COL              (ARE THE 'N'  ALREADY FOUND ?)              
         BE       STIANDON            NO ROOM; OUT THOSE FOUND ALREADY          
         LW,R10   SAVE              GET ADDRESS OF SD TABLE                     
         LW,R11   TABLENDX          GET STI INDEX                               
         STW,R10  INDTABLE,R4       COPY LOC TO IND TABLE                       
         STD,R10  VALTABLE,R4       COPY LOC & INDEX TO VAL TABLE               
         MTW,-1   ORDERNDX          ADJUST SEG INDEX FOR DISPLAY                
         LI,R14   6                                                             
         LI,R1    24                AND OUT AS A 3 DIGIT NUMBER                 
         LI,R2    8                 IN THE FIELD THUSLY:                        
         BAL,R15  DECROUT           '  XXX '                                    
         LI,R14   3                 NOW OUT THE AST INDEX                       
         LI,R1    24                IN A 3 DIGIT FIELD                          
         LI,R2    8                 THUSLY:                                     
         LW,R11   ORDERNDX                                                      
         BAL,R15  DECROUT                   'XXX'                               
         MTW,1    ORDERNDX          READJUST SEG INDEX TO TRUE VALUE            
         MTW,1    COLCT             STEP COUNT OF COLS USED THIS PAGE           
         B        SDTALP2           GO LOOK FOR ANOTHER SEG DESCRIPTOR          
         PAGE                                                                   
         SPACE    2                                                             
STIANDON RES      0         PAGE FULL (COLUMN WISE); MARK MORE TO GO            
         LW,R1    D128              MARK AS NEEDING MULTIPLE PAGES              
         AW,R1    CURRCOL           FOR ALL COLUMNS OF INFORMATION              
         STW,R1   MAXCOL                                                        
         B        STIAEXIT          EXIT TO PRINT INFO FOR 12 HAVE NOW          
*                                                                               
*                                                                               
STIADONE RES      0         NO MORE COLUMNS NEEDED: SET DONE                    
         LI,R1    0                 MARK DONE WITH INDICIES FINDING             
         STW,R1   TABLENDX          AND NO MORE COLUMNS NEEDED                  
         STW,R1   MAXCOL                                                        
         LW,R4    COLCT                                                         
         STW,R4   #COL              RESET COLUMN INDICIES TEMPS                 
*                                                                               
*                                                                               
STIAEXIT LI,R1    136/4             COPY INDICIES PRINT LINE FOR                
         LW,R2    PRINTBUF-1,R1     FOLLOWING PAGES IF WE NEED 2                
         STW,R2   SECBUF-1,R1       OR MORE PAGES FOR AN ITEM                   
         BDR,R1   %-2                                                           
*                                                                               
PRINTXIT RES      0                                                             
         BAL,R15  PRINT                                                         
         PULL     16,R0             RECOVER THE REGISTERS                       
         B        *R15                                                          
*                                                                               
PRINTSEC LI,R1    136/4                                                         
         LW,R2    SECBUF-1,R1                                                   
         STW,R2   PRINTBUF-1,R1                                                 
         BDR,R1   %-2                                                           
         B        PRINTXIT                                                      
         PAGE                                                                   
*TCB INDICES ROUTINE                                                            
*THE FOLLOWING INFORMATION IS GENERATED:                                        
*                                                                               
*  #COL IS REDUCED IF #COL COLUMNS ARE NOT GENERATED BY                         
*  THIS ENTRY.  CURRCOL AND MAXCOL ARE SET TO INDICATE IF                       
*  ANOTHER ENTRY IS TO BE MADE.                                                 
*                                                                               
TCBIND   RES      0                                                             
         PUSH     16,R0             SAVE THE REGISTERS                          
         LW,R1    CURRCOL           GET LAST COL INDEX ON PREV PAGE             
         CW,R1    LASTCC            SAME AS ON LAST PAGE HEADER ?               
         BE       PRINTSEC            YES, REPEAT LAST PAGE HEADER              
         STW,R1   LASTCC            NO, SET NEW LAST COL INDEX ON PAGE          
         LW,R13   STINDXLN          OUT INDEX DESCRIPTOR LINE                   
         BAL,R15  LOADBUF           SAYING WHAT THE INDICIES ARE                
         LI,R1    0                 SET TO START WITH 1ST COL ON PAGE           
         STW,R1   COLCT             FOR NEW INDICIES FOR DATA                   
         LW,R1    TABLENDX          GET ITEM INDEX: 1ST TIME HERE ?             
         BNEZ     TCBILP2             NO, USED SAVE INFO FROM PREVIOUS          
*                                                                               
TCBILP1  RES      0         FIND NEXT TCB TO DISPLAY                            
         LW,R1    TABLENDX          GET INDEX USED LAST TIME                    
         AI,R1    1                 BUMP IT                                     
         STW,R1   TABLENDX          AND SAVE FOR NEXT TIME                      
         CW,R1    STITBL+4          HAVE WE LOOKED AT LAST TASK ?               
         BG       STIADONE            YES, SAY WE ARE DONE                      
         LW,R11   KSTITCB           GET ADDRESS OF THE TASK' TCB                
         AW,R11   R1                FROM TABLE OF ALL TCB'S                     
         BAL,R15  FINDCORE          IN MEMORY                                   
         STW,R11  SAVE              SAVE ADDRESS OF THE TCB                     
         LB,R10   R11               CHECK FLAG BYTE FOR 'IN USE' BIT            
         CI,R10   X'40'             IS IT SET ?                                 
         BAZ      TCBILP1             NO, SKIP IT                               
*                                                                               
         AND,R11  X1FFFF            ADDRESS VALID (NOT A PRIMARY) ?             
         BEZ      TCBILP1             NO, NO TCB: SKIP IT                       
*                                                                               
TCBILP2  RES      0         PROCESS NEXT TCB ADDRESS                            
         LW,R4    COLCT             ROOM FOR DISPLAY ON THIS PAGE ?             
         CW,R4    #COL              (ANOTHER COLUMN FREE ?)                     
         BE       STIANDON            NO, DO ON NEXT PAGE                       
         LW,R10   SAVE              YES, GET ADDRESS OF THE TCB                 
         LW,R11   TABLENDX          SET STI INDEX IN WORD 1                     
         STW,R10  INDTABLE,R4       SAVE IT FOR BWD ROUTINES                    
         STD,R10  VALTABLE,R4                                                   
         LI,R14   9                 OUT COLUMN HEADERS WITH                     
         LI,R1    24                THE TASK'S INDEX AS THE                     
         LI,R2    8                 HEADER SO:                                  
         BAL,R15  DECROUT                     '   XXX   '                       
         MTW,1    COLCT             STEP COUNT OF COLS USED THIS PAGE           
         B        TCBILP1           AND GO LOOK FOR NEXT TCB                    
         TITLE    'HEXADECIMAL EBCDIC DUMP'                                     
* DISPCORE                                                                      
* DISPCORE IS A STANDARD HEX/EBCDIC DUMP BETWEEN LIMITS.  OUTPUT IS             
* 4 WORDS PER LINE TO THE TTY AND 8 WORDS PER LINE TO THE LINE PRINTER.         
* A HEADER LINE IS OUTPUT AT THE TOP OF EACH PAGE, FOLLOWED BY A LINE           
* OF COLUMN INDICES, FOLLOWED BY A SECTION OF THE DUMP WITH A LINE OF           
* INDICES AT THE BOTTOM.                                                        
* CALL   LW,R0    LOWER-LIMIT                                                   
*        LW,R1    UPPER-LIMIT                                                   
*        LW,R2    FLAG              IF FLAG=0 DO NOT OUTPUT HEADER              
*                                             OR BOTTOM INDICES                 
*                                                                               
DISPCORE RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         STW,R2   FLAGDC                                                        
         LI,R3    X'FFFF8'          LINE PRINTER MASK                           
         MTW,0    LPFLAG                                                        
         BNEZ     %+2                                                           
         LI,R3    X'FFFFC'          TYPEWRITER MASK                             
         STW,R3   MASK                                                          
         AND,R0   R3                EXTEND LIMITS TO ENDS OF LINES              
         EOR,R3   M1                                                            
         OR,R1    R3                                                            
         STD,R0   LIMITS                                                        
DISPCLP1 MTW,0    FLAGDC                                                        
         BEZ      %+2                                                           
         BAL,R15  OUTHDR                                                        
         BAL,R15  OUTCDIND          OUTPUT CORE DUMP INDICES                    
DISPCLP2 RES      0                                                             
         MTW,0    FLAGDC                                                        
         BEZ      DSPCLP2A          BRANCH IF JUST REGISTER DUMP                
         LW,R4    LIMITS                                                        
         AND,R4   X1FE00                                                        
         CW,R4    CURRPAGE                                                      
         BE       DSPCLP2A          BRANCH IF NOT NEW PAGE                      
         MTW,0    FCORFLAG                                                      
         BL       DSPTSTAC          TEST PAGE ACCESS IF VIRTUAL DUMP            
DSPCLP2A RES      0                                                             
         LI,R14   9                 COLUMN WIDTH FOR ADDRESS                    
         LI,R1    15                FIRST BIT                                   
         LI,R2    17                NUMBER BITS                                 
         LW,R11   LIMITS                                                        
         BAL,R15  HEXROUT                                                       
         LW,R0    LPFLAG            -1 IF LP                                    
         STW,R0   RPT                                                           
         STW,R0   COUNT                                                         
         LW,R11   LIMITS            LOOK AHEAD FROM LOWER LIMIT                 
         STW,R11  LKAHEAD            FOR NON-VARIANCE                           
         BAL,R15  FINDCORE                                                      
         STW,R11  WORD1             FIRST WORD IN CURRENT LINE                  
DISPCLP3 MTW,1    LKAHEAD                                                       
         LW,R11   LKAHEAD                                                       
         CW,R11   LIMITS+1                                                      
         BG       DISPCELA          END LOOK AHEAD IF UPPER LIM EXCEEDED        
         BAL,R15  FINDCORE                                                      
         CW,R11   WORD1                                                         
         BE       DISPCLP3          CONTINUE LOOKING AHEAD IF WORDS =           
DISPCELA RES      0                                                             
         LW,R11   LKAHEAD           COMPUTE IF AT LEAST ONE LINE ALL            
         AND,R11  MASK               THE SAME                                   
         AI,R11   -1                                                            
         STW,R11  LKAHEAD                                                       
         CW,R11   LIMITS                                                        
         BG       DISPCSL           IF SO, GO OUTPUT SPECIAL LINE               
         LW,R11   LIMITS                                                        
         STW,R11  LKAHEAD                                                       
DISPCLP4 RES      0                                                             
         LI,R0    4                 HERE IF STANDARD LINE                       
         STW,R0   COUNT                                                         
DISPCLP5 RES      0                                                             
         LW,R11   LKAHEAD           GET ADDRESS OF WORD TO OUTPUT               
         BAL,R15  FINDCORE          GET ITS VALUE FROM THE CRASH                
         LI,R14   9                 COLUMN WIDTH                                
         LI,R1    0                 FIRST BIT                                   
         LI,R2    32                NUMBER BITS                                 
         BAL,R15  HEXROUT           CONVERT TO EBCDIC REPRESENTATION            
         MTW,1    LKAHEAD                                                       
         MTW,-1   COUNT             HAVE 4 WORDS BEEN DONE                      
         BNEZ     DISPCLP5                                                      
         LI,R0    X'40'             OUTPUT A SPACE                              
         BAL,R15  LOADCHAR                                                      
         MTW,-1   RPT               LOOP BACK IF LINE PRINTER AND FIRST         
         BEZ      DISPCLP4                                                      
         LW,R0    LPFLAG                                                        
         STW,R0   RPT                                                           
DISPCLP6 RES      0                                                             
         LI,R0    4                 NOW                                         
         STW,R0   COUNT               OUTPUT                                    
DISPCLP7 LW,R11   LIMITS                EBCDIC                                  
         BAL,R15  FINDCORE                IMAGES                                
         LI,R14   5                                                             
         LI,R1    0                                                             
         LI,R2    32                                                            
         BAL,R15  EBCROUT                                                       
         MTW,1    LIMITS                                                        
         MTW,-1   COUNT                                                         
         BNEZ     DISPCLP7                                                      
         LI,R0    X'40'                                                         
         BAL,R15  LOADCHAR                                                      
         MTW,-1   RPT               LOOP BACK IF LINE PRINTER AND FIRST         
         BEZ      DISPCLP6                                                      
DISPCPR  BAL,R15  PRINT                                                         
         LW,R0    #LINES            GET NUMBER OF LINES/PAGE - 1                
         AI,R0    -1                TO SEE IF WE ARE NEAR BOTTOM OF             
         CW,R0    LINECT            THE PAGE. ARE WE ?                          
         BG       DISPCLIM            NO, TEST IF AT END OF THE DUMP            
*                                                                               
DISPCFIN LW,R0    LPFLAG                                                        
         AW,R0    FLAGDC                                                        
         BEZ      %+2                                                           
         BAL,R15  OUTCDIND            YES OUTPUT INDICES                        
         LW,R0    LIMITS              THEN TEST END OF DUMP                     
         CW,R0    LIMITS+1                                                      
         BL       DISPCLP1                                                      
         PULL     R15               RECOVER LINK                                
         B        *R15                                                          
DISPCLIM RES      0                                                             
         LW,R0    LIMITS                                                        
         CW,R0    LIMITS+1                                                      
         BG       DISPCFIN          IF FINISHED, OUTPUT INDICES                 
         B        DISPCLP2          OTHERWISE DO NEXT LINE                      
DISPCSL  RES      0                 OUTPUT A SPECIAL LINE                       
         LW,R13   TOLEN               OUTPUT TO                                 
         BAL,R15  LOADBUF                                                       
         LI,R14   9                   OUTPUT UPPER LIMIT                        
         LI,R1    15                                                            
         LI,R2    17                                                            
         LW,R11   LKAHEAD                                                       
         BAL,R15  HEXROUT                                                       
         LI,R0    '='                 OUTPUT =                                  
         BAL,R15  LOADCHAR                                                      
         LW,R11   LKAHEAD             OUTPUT HEX VALUE                          
         BAL,R15  FINDCORE                                                      
         LI,R14   10                                                            
         LI,R1    0                                                             
         LI,R2    32                                                            
         BAL,R15  HEXROUT                                                       
         LI,R14   12                  OUTPUT EBCDIC VALUE                       
         LI,R1    0                                                             
         LI,R2    32                                                            
         LW,R3    R11                                                           
         BAL,R15  EBCROUT                                                       
         LW,R0    LKAHEAD                                                       
         AI,R0    1                                                             
         STW,R0   LIMITS                                                        
         B        DISPCPR                                                       
OUTCDIND RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         LW,R12   PRBFNDX                                                       
         AI,R12   12                                                            
         STW,R12  PRBFNDX                                                       
         LW,R13   LPIND                                                         
         MTW,0    LPFLAG                                                        
         BNEZ     %+2                                                           
         LW,R13   TPIND                                                         
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT                                                         
         PULL     R15               GET LINK                                    
         B        *R15                                                          
DSPTSTAC RES      0                 HERE FOR VIRTUAL NEW PAGES                  
         STW,R4   CURRPAGE          UPDATE CURRENT PAGE                         
         SAS,R4   -9                LOOK IN MAP FOR LRA WORD                    
         LW,R11   MAP,R4                                                        
         LB,R6    R11               AND CHECK WP CODE                           
         SAS,R6   -4                                                            
         AND,R6   D3                                                            
         CI,R6    3                                                             
         BE       DSPNOACC                                                      
         LW,R13   RPLEN                                                         
         BAL,R15  LOADBUF           OUTPUT REAL PAGE ADDRESS                    
         LI,R14   9                                                             
         LI,R1    12                                                            
         LI,R2    20                                                            
         AND,R11  XFFFFF                                                        
         BAL,R15  HEXROUT                                                       
         LW,R11   R6                                                            
         LI,R1    30                                                            
         LI,R2    2                                                             
         LI,R14   4                                                             
         BAL,R15  APCROUT                                                       
         B        DISPCPR                                                       
DSPNOACC RES      0                                                             
         LW,R13   NALEN                                                         
         BAL,R15  LOADBUF                                                       
         LW,R11   LIMITS                                                        
         LI,R14   9                                                             
         LI,R1    15                                                            
         LI,R2    17                                                            
         BAL,R15  HEXROUT                                                       
         LW,R13   TOLEN                                                         
         BAL,R15  LOADBUF                                                       
DSPNOALP RES      0                                                             
         LW,R4    LIMITS                                                        
         AI,R4    512                                                           
         STW,R4   LIMITS                                                        
         CW,R4    LIMITS+1                                                      
         BG       DSPENDM                                                       
         SAS,R4   -9                                                            
         LW,R11   MAP,R4                                                        
         LB,R6    R11                                                           
         SAS,R6   -4                                                            
         AND,R6   D3                                                            
         CI,R6    3                                                             
         BE       DSPNOALP                                                      
DSPENDM  LW,R11   LIMITS                                                        
         AI,R11   -1                                                            
         LI,R14   9                                                             
         LI,R1    15                                                            
         LI,R2    17                                                            
         BAL,R15  HEXROUT                                                       
         B        DISPCPR                                                       
         TITLE    'OUTPUT FORMATTING ROUTINES'                                  
* CONVERSION ROUTINES WILL PRESPACE (C+1-N)/2 SPACES WHERE C IS                 
* THE COLUMN WIDTH AND N IS THE NUMBER OF CHARACTERS TO GO IN                   
* THE COLUMN.                                                                   
* CALL:  LW,R14   COLWIDTH.                                                     
*        BAL,R15  CONVROUT                                                      
*                                                                               
*        R12 HAS THE NUMBER OF CHARACTERS TO OUTPUT                             
*        R13 HAS THE WORD ADDRESS OF THE FIRST CHAR                             
*                                                                               
CNVCOMM  RES      0                                                             
         LW,R15   R14               C        COMPUTE                            
         AI,R15   1                 +1       PRE                                
         SW,R15   R12               -N       SPACE                              
         SAS,R15  -1                /2       COUNT                              
         SW,R14   R15                        COMPUTE POST                       
         SW,R14   R12                        SPACE COUNT                        
         AWM,R15  PRBFNDX           PRE-SPACE                                   
         STB,R12  R13                                                           
         BAL,R15  LOADBUF             MOVE CODE                                 
         AWM,R14  PRBFNDX           POST-SPACE                                  
         PULL     4,R12             RECOVER THE REGISTERS WE USED               
         B        *R15                                                          
         PAGE                                                                   
         SPACE    2                                                             
*                           FIND AND OUTPUT AN 8 CHARACTER NAME                 
*                                                                               
*        R12:     NAME OF TABLE TO GET NAME FROM                                
*        R11:     INDEX INTO TABLE OF NAME                                      
*                      IF INDEX = 0, OUTPUT 8 BLANKS                            
*                                                                               
*                                                                               
COM8CHAR RES      0                                                             
         CI,R11   X'FF'             IS THE INDEX WITHIN REASON ?                
         BAZ      BLANKNAM            NOT IF ZERO OR GREATER THAN 255:          
         BGE      BLANKNAM              OUT BLANKS FOR THESE INDICIES           
*                                                                               
         AW,R11   R12               COMPUTE ADDRESS OF INDEXED TABLE            
         LW,R12   R11               ENTRY AND SAVE IT                           
         BAL,R15  FINDCORE          GET FIRST HALF OF NAME                      
         LW,R10   R11               AND SAVE IT                                 
         LW,R11   R12               GET ADDRESS AND                             
         AI,R11   1                 STEP TO SECOND HALF                         
         BAL,R15  FINDCORE          GET THE NAME                                
*                                                                               
OUT8CHAR RES      0         OUT AN 8 CHARACTER NAME STRING                      
         LI,R12   8                 SET LENGTH                                  
         LI,R13   R10               AND WHERE                                   
         B        CNVCOMM           OUT IT                                      
*                                                                               
*                                                                               
BLANKNAM RES      0         GET BLANK NAME FOR AN INDEX OF ZERO                 
         LD,R10   BLANKS                                                        
         B        OUT8CHAR          GO OUT PUT IT                               
         PAGE                                                                   
         SPACE    2                                                             
HEXXROUT SAS,R5   1                                                             
         MTW,1    VALTABLE+1,R5                                                 
         SAS,R5   -1                                                            
         AW,R11   R10                                                           
         PUSH     R15                                                           
         BAL,R15  FINDCORE                                                      
         PULL     R15                                                           
         B        HEXROUT                                                       
*                                                                               
*                                                                               
QHXROUT  RES      0                                                             
         LB,R0    R11                                                           
         BNEZ     DHXROUT           OUT AS A DOUBLE WORD VALUE                  
*                                                                               
         PUSH     4,R12             DO STANDARD ENTRY POINT SAVE                
         PUSH     2,R3              ALSO SAVE REGS USED IN HEXROUT              
         SLS,R11  0,R1              SHIFT LEFT AND THEN RIGHT TO REMOVE         
         SLS,R11  -32,R2            OTHER FIELDS AND RIGHT JUSTIFY OURS         
         LW,R3    R11               COPY FOR 'HEXROUT' ROUTINE                  
         SLS,R3   -2                CONVERT BYTE ADDRESS TO WORD ADDR           
         AND,R11  X3                GET BYTE DISPLACEMENT VALUE                 
         AI,R11   C'0'              MAKE AN EBCDIC INTEGER                      
         STB,R11  R0                STORE BTD FIELD                             
         SLD,R0   -8                MOVE IT RIGHT A CHARACTER                   
         LI,R11   C'/'              ENTER THE '/' SEPARATER                     
         STB,R11  R0                IN THE OUTPUT STRING                        
         SLS,R2   -2                GET NUM DIGITS IN ADDR TO CONVERT           
         STW,R2   R12               SET AS FIELD WIDTH                          
         AI,R12   +2                INCLUDE THE '/D' CHARACTERS                 
         LI,R13   R0                SET LOC OF OUTPUT STRING                    
         B        HEXLOOP           CONVERT THE WORD ADDRESS NORMALLY           
*                                                                               
DHXROUT  RES      0                                                             
         SAS,R11  1                                                             
         AI,R1    -1                                                            
         AI,R2    1                                                             
         B        HEXROUT                                                       
H4FROUT  LB,R11   R11                                                           
         AI,R11   X'4F'                                                         
         LI,R1    23                                                            
         LI,R2    9                                                             
         B        HEXROUT                                                       
         PAGE                                                                   
         SPACE    2                                                             
*                          DO NOTHING ROUTINES                                  
*                                                                               
NOPR15   B        *R15              RETURN ON REGISTER 15                       
NOPR14   B        *R14                                 14                       
NOPR8    B        *R8                                   8                       
*                                                                               
*                                                                               
*                                                                               
*                                                                               
*                      CURRENTLY UNDEFINED ROUTINES                             
*                                                                               
*                 ALL ARE EQUATED TO 'HEXROUT' BELOW                            
*                                                                               
DISPHEX  RES      0                                                             
APMROUT  RES      0                                                             
DBGCROUT RES      0                                                             
QDECROUT RES      0                                                             
RATEROUT RES      0                                                             
RVAROUT  RES      0                                                             
SGCROUT  RES      0                                                             
TCCROUT  RES      0                                                             
TMODROUT RES      0                                                             
         PAGE                                                                   
* HEXROUT                                                                       
* HEX CONVERTS A FIELD INTO AN EBCDIC REPRESENTATION OF THE HEX VALUE           
* AND PLACES THE VALUE IN THE PRINT BUFFER                                      
* CALL:  LW,R1    FIRSTBIT                                                      
*        LW,R2    NUMBITS                                                       
*        LW,R11   WORD                                                          
*        BAL,R15  HEXROUT                                                       
* R0 IS DESTROYED                                                               
HEXROUT  RES      0                                                             
         PUSH     4,R12             SAVE NEEDED REGISTERS                       
         PUSH     2,R3              SAVE SOME WORK REGISTERS                    
         LW,R3    R11                                                           
         SLS,R3   0,R1              LEFT JUSTIFY FIELD                          
         SLS,R3   -32,R2                                                        
         AI,R2    3                                                             
         SAS,R2  -2                 HOW MANY HEX DIGITS                         
         LW,R12   R2                OUTPUT COUNT                                
         LI,R13   R0                OUTPUT ADDRESS                              
HEXLOOP  RES      0                                                             
         LW,R4    R3                                                            
         SAS,R3   -4                                                            
         AND,R4   XF                                                            
         AI,R4    X'F0'             CONVERT                                     
         CI,R4    X'F9'              TO                                         
         BLE      %+2                 EBCDIC                                    
         AI,R4    X'FFFC7'                                                      
         SLD,R0   -8                MAKE SPACE IN OUTPUT STRING                 
         STB,R4   R0                  AND CONCATENATE CHAR                      
         BDR,R2   HEXLOOP                                                       
         PULL     2,R3              RESTORE WORK REGISTERS                      
         B        DLEADZS                                                       
         PAGE                                                                   
         SPACE    2                                                             
*  AREAROUT                                                                     
*                 ROUTINE FOR CONVERTING AN AREA INDEX INTO AREA NAME           
*        R1  <==  START BIT OF INDEX IN R11                                     
*        R2  <==  NUMBER OF BITS IN THE INDEX FIELD                             
*        R11 <==  WORD CONTAINING THE INDEX                                     
*                                                                               
AREAROUT RES      0         CONVERT INDEX TO AREA NAME                          
         PUSH     4,R12                                                         
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         SCS,R11  -1                CONVERT TO HW INDEX                         
         LB,R7    R11               SAVE WHICH HALF WORD                        
         SLS,R7   -7                RIGHT JUSTIFY THE HALF-WORD INDEX           
         AND,R11  XFFFFF            REMOVE THAT INFO INCASE A 1                 
         LW,R10   R11               SAVE AREA INDEX                             
         LW,R11   KMASTDA           GO FIND ADDRESS OF MD NAME TABLE            
         BAL,R15  FINDCORE                                                      
         AW,R11   R10               SET INDEX INTO THE NAMES, AND               
         BAL,R15  FINDCORE          GET WORD WITH NAME IN IT                    
         LH,R10   R11,R7            MOVE NAME TO R10                            
         STH,R10  R10               LEFT JUSTIFIED                              
         LI,R12   2                 SET 2 CHARS TO OUT                          
         LI,R13   R10               SET LOC OF STRING                           
         B        CNVCOMM           CENTER AND ENTER IT                         
         PAGE                                                                   
* APCROUT                                                                       
* APCROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE             
* FOR THE ACCESS PROTECTION CODE                                                
APCROUT  RES      0                                                             
         PUSH     4,R12             SAVE USED REGISTERS                         
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   2                                                             
         LI,R13   ACCEBC                                                        
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
ACCEBC   TEXT     'WR  '                                                        
         TEXT     'XQ  '                                                        
         TEXT     'RD  '                                                        
         TEXT     'NO  '                                                        
         PAGE                                                                   
* BINROUT                                                                       
* BINROUT CONVERTS A FIELD OF UP TO 8 BITS TO THE EBCDIC REPRESENTATION         
* OF THE BINARY.                                                                
* CALL   LW,R1    FIRSTBIT                                                      
*        LW,R2    NUMBITS                                                       
*        LW,R3    WORD                                                          
*        BAL,R15  BINROUT                                                       
BINROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2            RT JUSTIFY FIELD                            
         LW,R12   R2                                                            
BINLOOP  RES      0                                                             
         LI,R4    '1'                                                           
         CI,R11   1                 BRANCH IF LEAST SIG BIT                     
         BANZ     %+2               IS A 1                                      
         LI,R4    '0'                                                           
         SLS,R11  -1                MOVE TO NEXT BIT                            
         SLD,R0   -8                                                            
         STB,R4   R0                                                            
         BDR,R2   BINLOOP                                                       
         LI,R13   R0                                                            
         B        CNVCOMM                                                       
         PAGE                                                                   
*                                                                               
* CLKTROUT                                                                      
*        CONVERT DCT17 CLOCK TIMEOUT TIME TO RELATIVE SECS TO TIMEOUT           
*                                                                               
*                                                                               
CLKTROUT RES      0                                                             
         PUSH     4,R12             SAVE                                        
         SLS,R11  0,R1              EXTRACT OUT THE DESIRED FIELD               
         SLS,R11  -32,R2                                                        
         LW,R10   R11               SAVE TIME-OUT TIME                          
         LW,R11   KIOCLOCK          GET CURRENT TIME                            
         BAL,R15  FINDCORE                                                      
         SW,R11   R10               GET RELATIVE TIME                           
         LW,R12   BLANKS                                                        
         MI,R11   5                 CONVERT TIME TO ACTUAL SECONDS              
         BGEZ     CLKTRUT1          IF PASSED, OUT POSITIVE NUMBER              
*                                                                               
         AI,R12   C'-'-C' '         ELSE OUT '-' TO INDICATE IN FUTURE          
         LAW,R11  R11               AND INSURE TIME IS POSITIVE                 
*                                                                               
CLKTRUT1 RES      0         CONVERT TIME TO EBCDIC                              
         BAL,R8   BINBCD                                                        
         LW,R11   R0                COPY TIME                                   
         LW,R10   R12               COPY SIGN                                   
         B        OUT8CHAR          AND OUT THE TIME                            
         PAGE                                                                   
* CTCROUT                                                                       
* CTCROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE             
* FOR THE COMPUTER TYPE CODE                                                    
CTCROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGIDSTERS                     
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   8                                                             
         LI,R13   CTCEBC                                                        
         AW,R13   R11                                                           
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
CTCEBC   RES      0                                                             
         TEXT     'SIGMA 5 '                                                    
         TEXT     'SIGMA 7 '                                                    
         TEXT     'SIGMA 9 '                                                    
         TEXT     'XEROX550'                                                    
         PAGE                                                                   
* DCRFROUT                                                                      
*        OUTS OPLABLE INDICIES CONVERTED TO: DEVICE NAME FOR DEVICES;           
*                                            'RFTXX' FOR FILES                  
*                                                                               
DCRFROUT RES      0                                                             
         PUSH     4,R12             SAVE NEEDED AND ALTERED REGISTERS           
         SLS,R11  0,R1              EXTRACT OUT THE INDEX AND                   
         SLS,R11  -32,R2            RIGHT JUSTIFY IT                            
         CI,R11   X'80'             IS IT A DCT INDEX ?                         
         BL       DCRFRUT1            YES, GO OUT A DEVICE NAME                 
*                                                                               
         AI,R11   -X'80'            NO, RFT; REMOVE RFT FLAG                    
         PUSH     10,R0             SAVE REST OT THE REGS                       
         BAL,R8   BINBCD            CONVERT INDEX TO EBCDIC                     
         LW,R11   R0                MOVE TO OUTPUT REGISTER AND REMOVE          
         SLS,R11  16                LEADING ZEROS; FORM 'RFT XX'                
         LW,R10   DTX18B            USE 'RFT ' FROM TABLE'S TITLE LINE          
         LI,R12   6                                                             
         LI,R13   R10                                                           
         PULL     10,R0             RECOVER SAVED REGS                          
         B        CNVCOMM           AND ENTER THE NAME                          
*                                                                               
DCRFRUT1 RES      0         DCT INDEX                                           
         AW,R11   R11               CONVERT TO A DWRD INDEX                     
         B        DEVROUT1          AND THEN OUT DEVICE NAME                    
         PAGE                                                                   
* DECROUT                                                                       
* DECROUT CONVERTS A FIELD INTO AN EBCDIC REPRESENTATION OF ITS DECIMAL         
* EQUIVALENT AND PLACES THE VALUE IN THE PRINT BUFFER.                          
*        LW,R1    FIRSTBIT                                                      
*        LW,R2    NUMBITS                                                       
*        LW,R11   WORD                                                          
*        BAL,R15  DECROUT                                                       
DISPDEC  RES      0                                                             
DECROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         LW,R3    R11                                                           
         SLS,R3   0,R1                                                          
         LW,R12   R2                LEFT JUSTIFY FIELD                          
         AI,R12   2                 ONE DEC DIGIT PER 3 BITS OF FIELD           
         DH,R12   D3                OUTPUT CHAR LENGTH                          
         LI,R13   R0                OUTPUT ADDRESS                              
         SLS,R3   -32,R2                                                        
         LW,R4    R12                                                           
DECLOOP  RES      0                                                             
         LI,R2    0                                                             
         DW,R2    K10                                                           
         SLD,R0   -8                                                            
         STB,R2   R0                                                            
         BDR,R4   DECLOOP                                                       
         OR,R0    ZEROS                                                         
         OR,R1    ZEROS                                                         
DLEADZS  B        CNVCOMM                                                       
         PAGE                                                                   
         SPACE    2                                                             
*  DEVROUT                                                                      
*                 ROUTINE FOR CONVERTING A DCT16 INDEX INTO A                   
*                 DEVICE NAME FOR VARIOUS TABLES                                
*        R1  <==  START BIT OF INDEX IN R11                                     
*        R2  <==  NUMBER OF BITS IN THE INDEX FIELD                             
*        R11 <==  WORD CONTAINING THE INDEX                                     
*                                                                               
DEVROUT  RES      0         CONVERT INDEX TO DEVICE NAME                        
         PUSH     4,R12                                                         
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2            EXTRACT OUT THE INDEX                       
         SLS,R11  1                 CONVERT TO DOUBLE WORD INDEX                
DEVROUT1 RES      0                                                             
         MTW,+00  R11               IS THE INDEX 0 ?                            
         BEZ      BLANKNAM            YES, OUT BLANKS INSTEAD                   
*                                                                               
         AW,R11   KDCT16            ADD BASE OF NAME TABLE                      
         LW,R12   R11               SAVE ADDRESS OF NAME                        
         BAL,R15  FINDCORE          GET FIRST PART OF NAME                      
         LW,R10   R11                                                           
         LW,R11   R12                                                           
         AI,R11   1                 POINT AT SECOND HALF                        
         BAL,R15  FINDCORE          AND GET IT                                  
         SLD,R10  24                SHIFT OFF  THE  N/L, BANG, BANG             
         OR,R11   BLANKS            FILL IN ZEROS WITH BLANKS                   
         SCD,R10  -16                                                           
         B        OUT8CHAR          AND GO OUT THE 8 CHARACTERS                 
         PAGE                                                                   
* DTCROUT                                                                       
* DTCROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE             
* FOR THE DEVICE TYPE CODE                                                      
DTCROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   4                                                             
         LI,R13   DTCEBC                                                        
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
DTCEBC   TEXT     'NONE'                                                        
         TEXT     ' TY '                                                        
         TEXT     ' PR '                                                        
         TEXT     ' PP '                                                        
         TEXT     ' CR '                                                        
         TEXT     ' CP '                                                        
         TEXT     ' LP '                                                        
         TEXT     ' DC '                                                        
         TEXT     ' 9T '                                                        
         TEXT     ' 7T '                                                        
         TEXT     'CPLC'                                                        
         TEXT     'LPLC'                                                        
         TEXT     ' DP '                                                        
         TEXT     ' PL '                                                        
         TEXT     ' NO '                                                        
         TEXT     ' NO '                                                        
         TEXT     ' NO '                                                        
         PAGE                                                                   
* DVCROUT                                                                       
* DVCROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE             
* FOR THE DEVICE CONDITION CODE                                                 
DVCROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   8                                                             
         LI,R13   DVCEBC                                                        
         AW,R13   R11                                                           
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
DVCEBC   TEXT     '  READY '                                                    
         TEXT     ' NOT OP '                                                    
         TEXT     'UNAVAIL '                                                    
         TEXT     '  BUSY  '                                                    
         PAGE                                                                   
         SPACE    2                                                             
*  ECBTROUT                                                                     
*                 COMPUTES AND ENTERS ECB TYPE COMPLETION CODES                 
*                                                                               
ECBTROUT RES      0                                                             
         PUSH     4,R12                                                         
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2            EXTRACT OUT INDEX VALUE                     
         LI,R13   ECBTEBC           SET ADDR OF NAME TABLE AND                  
         AW,R13   R11               INDEX INTO IT                               
         LI,R12   4                 SET NUMBER OF CHARS TO OUTPUT               
         B        CNVCOMM           AND GO DO JUST THAT                         
*                                                                               
ECBTEBC  RES      0  TEXT   INDEX   WHAT IT MEANS                               
         TEXT     ' NA '      0     NOT APPLICABLE                              
         TEXT     'I/O '      1     I/O REQUEST                                 
         TEXT     'SIG '      2     SIGNAL                                      
         TEXT     'STIM'      3     STIMER                                      
         TEXT     'POLL'      4     POLL                                        
         TEXT     'INIT'      5     INIT A TASK                                 
         TEXT     'ENQ '      6     ENQUEUE                                     
         TEXT     ' MM '      7     MEMORY MANAGEMENT                           
         TEXT     'STDL'      8     STANDARD LABEL                              
         PAGE                                                                   
* EBCROUT                                                                       
* EBCROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE             
*        LW,R2    FIRSTBIT                                                      
*        LW,R3    NUMBITS                                                       
*        BAL,R15  EBCROUT                                                       
DISPEBC  RES      0                                                             
EBCROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SCD,R10  32,R1                                                         
         SAS,R2   -3                                                            
         LW,R12   R2                COUNT                                       
         LI,R13   R10               ADDRESS                                     
         B        CNVCOMM                                                       
         PAGE                                                                   
         SPACE    2                                                             
*  FILNROUT                                                                     
*                 ROUTINE TO CONVERT AN RFT INDEX INTO THE FILENAME             
*        R1  <==  START BIT OF INDEX IN R11                                     
*        R2  <==  NUMBER OF BITS IN THE INDEX FIELD                             
*        R11 <==  WORD CONTAINING THE INDEX                                     
*                                                                               
FILNROUT RES      0         CONVERT INDEX TO FILENAME                           
         PUSH     4,R12                                                         
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         SLS,R11  1                 CONVERT TO DOUBLE WORD INDEX                
         LW,R12   KRFT1             SET BASE OF RFT TABLE                       
         B        COM8CHAR          AND GO GET THE NAME                         
         PAGE                                                                   
         SPACE    2                                                             
*  IOCCROUT                                                                     
*                 ROUTINE FOR CONVERTING I/O CLEAN-UP CODES TO                  
*                 MNEMONICS                                                     
*                                                                               
IOCCROUT RES      0                                                             
         PUSH     4,R12                                                         
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R13   IOCCEBC           POINT TO BASE OF MNEMONICS TABLE            
         AW,R13   R11               INDEX INTO IT BY IOCC INDEX NUM             
         AW,R13   R11                                                           
         LI,R12   8                 SET LENGTH OF STRING = 8 CHARS              
         B        CNVCOMM           GO PUT IN THE OUTPUT LINE                   
*                                                                               
IOCCEBC  RES      0    TEXT  INDEX  WHAT IT MEANS                               
         TXTS     ' UNUSED '   0    UNUSED ENTRY                                
         TXTS     '   FPT  '   1    FPT CLEAN-UP, SET REC SIZE                  
         TXTS     '   DCB  '   2    DCB CLEAN-UP, SET REC SIZE                  
         TXTS     '   BAL  '   3    END ACTION BAL                              
         TXTS     ' NO POST'   4    DO NOT POST COMPLETION                      
         TXTS     '   FPT *'   5    FPT, COMPUTE REC SIZE FROM RBC              
         TXTS     '   DCB *'   6    DCB, COMPUTE REC SIZE                       
         TXTS     'ILLEGAL '   7    ILLEGAL SETTING                             
         PAGE                                                                   
         SPACE    2                                                             
*JOBROUT                                                                        
*JOBROUT COMPUTES THE LOCATION OF THE JOB NAME IN THE SAVED CORE.               
*                                                                               
JOBROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1              RT JUSTIFY                                  
         SLS,R11  -32,R2              R11                                       
         SLS,R11  1                     AND THEN ADJUST TO DW INDEX             
         LW,R12   KSJI2             SET NAME OF TABLE TO GET NAME FROM          
         B        COM8CHAR          GO TEST INDEX AND ENTER NAME                
         PAGE                                                                   
*LMNROUT                                                                        
*LMNROUT COMPUTES THE LOCATION OF THE LMN NAME IN THE SAVED CORE.               
*                                                                               
LMNROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1              RT JUSTIFY                                  
         SLS,R11  -32,R2              R11                                       
         SLS,R11  1                     AND THEN ADJUST TO DW INDEX             
         LW,R12   KLMINAME          SET NAME OF TABLE TO ACCESS                 
         B        COM8CHAR          GO GET NAME                                 
         PAGE                                                                   
*                                                                               
*LMCROUT                                                                        
*        LOAD MODULE NAME ROUTINE FROM STI INDEX DISPLAY                        
*                                                                               
LMCROUT  RES      0                                                             
         PUSH     4,R12             DO STANDARD PUSH OF REGS                    
         SLS,R11  0,R1              EXTRACT OUT THE FIELD WE ARE                
         SLS,R11  -32,R2            TO USE                                      
         SCS,R11  -2                CONVERT TO BYTE INDEX; R11 = WORD           
         LB,R7    R11               R7 = BYTE WITHIN THE WORD                   
         SLS,R7   -6                                                            
         AND,R11  XFFFFF            REMOVE BYTE INDEX FROM WORD INDEX           
         AW,R11   KSTI              ADD BASE OF STILMID TABLE                   
         BAL,R15  FINDCORE          GET WORD WITH LMID INDEX IN IT              
         LB,R11   R11,R7            AND GET IT AS LMINAME INDEX                 
         SLS,R11  1                 CONVERT TO A DOUBLE WORD INDEX              
         LW,R12   KLMINAME          SET NAME (LOC) OF TABLE TO ACCESS           
         B        COM8CHAR          GO ENTER 8 CHARACTER NAME                   
         PAGE                                                                   
*LUNROUT                                                                        
*LUNROUT COMPUTES THE LOCATION OF THE OVID NAME IN THE SAVED CORE.              
*                                                                               
LUNROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         CI,R11   X'FF'             IS INDEX WITHIN LIMITS ?                    
         BAZ      BLANKNAM            ZERO: IT ISN'T, SO OUT BLANKS             
         BGE      BLANKNAM            TOO BIG: OUT BLANKS FOR THIS TOO          
*                                                                               
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2            R11 RT JUSTIFIED                            
         AW,R11   KOVLOAD2          ADD TABLE BASE                              
         BAL,R15  FINDCORE                                                      
         LI,R12   4                                                             
         LI,R13   R11                                                           
         B        CNVCOMM                                                       
         PAGE                                                                   
*                                                                               
*ORCGROUT                                                                       
*        OUTPUT A FILE'S ORGAINZATION CODE FOR RFT ET AL. ENTRIES               
*                                                                               
ORGCROUT RES      0                                                             
         PUSH     4,R12             SAVE NEEDED REGISTERS                       
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         SLS,R11  1                 CONVERT TO A DOUBLE WORD INDEX              
         LW,R13   R11               COMPUTE ADDRESS OF TEXT TO PRINT            
         AI,R13   ORGCEBC                                                       
         LI,R12   8                                                             
         B        CNVCOMM           OUT NAME                                    
*                                                                               
ORGCEBC  TXT      'UNBLOCKD'    0                                               
         TXT      'BLOCKED '    1                                               
         TXT      'COMPRESD'    2                                               
         TXT      'ILLEGAL '    3                                               
         PAGE                                                                   
* PTCROUT                                                                       
* PTCROUT  COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE            
* FOR THE SEGMENT DESCRIPTOR CODE                                               
PTCROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   8                                                             
         LI,R13   PTCEBC                                                        
         AW,R13   R11                                                           
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
PTCEBC   TXTS     ' SYSTEM  PRIVATE MAILBOX B BFRS '                            
         TXTS     '  PREF  SEC TASK ILLEGAL ILLEGAL'                            
         PAGE                                                                   
* SCUROUT                                                                       
* SCUROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE             
* FOR THE SUB CHANNE USAGE CODE                                                 
SCUROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   4                                                             
         LI,R13   SCUEBC                                                        
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
SCUEBC   TEXT     'NONE'                                                        
         TEXT     'PRIM'                                                        
         TEXT     ' ALT'                                                        
         TEXT     'BOTH'                                                        
         TXTS     'BOTHILLGILLGILLG'                                            
         PAGE                                                                   
* SDSTROUT                                                                      
* SDSTROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE            
* FOR THE SEGMENT DESCRIPTOR STATE CODE                                         
SDSTROUT RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   8                                                             
         LI,R13   SDSTEBC                                                       
         AW,R13   R11                                                           
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
SDSTEBC  TEXT     'UNAVAIL '                                                    
         TEXT     'ERASED  '                                                    
         TEXT     'INACTIVE'                                                    
         TEXT     'ACTIVE  '                                                    
         TEXT     'GOINGOUT'                                                    
         TEXT     'ROLD OUT'                                                    
         TEXT     'COMINGIN'                                                    
         TEXT     'LOADING '                                                    
         PAGE                                                                   
* SDTYROUT                                                                      
* SDTYROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE            
* FOR THE SEGMENT DESCRIPTOR CODE                                               
SDTYROUT RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         LI,R13   SDTYEBC                                                       
SDTYA    SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   8                                                             
         AW,R13   R11                                                           
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
SDTYEBC  TEXT     'TASK LVL'                                                    
         TEXT     'JOB LVL '                                                    
         TEXT     'SYST LVL'                                                    
         TEXT     'PUB LIB '                                                    
         TEXT     'NOT ASSN'                                                    
         TEXT     'T RESRVD'                                                    
         TEXT     'J RESRVD'                                                    
         TXTS     '        '        7    NOT USED                               
         PAGE                                                                   
*  SDSSROUT                                                                     
*                                                                               
*  SEGMENT DESCRIPTOR 'SYSTEM SEGMENT' USE DISPLAY                              
*                                                                               
*                                                                               
SDSSROUT RES      0                                                             
         PUSH     4,R12             SAVE STANDARD REGISTERS                     
         LI,R13   SDSSEBC           POINT AT TABLE TO GET NAME FROM             
         B        SDTYA             GO ENTER DESCRIPTION                        
*                                                                               
SDSSEBC  RES      0         DESCRIPTION OF 'SYSTEM SEGMENT USE'                 
         TXT      'SYS OVLY'     0  SYSTEM OVERLAY                              
         TXT      'SPEC SYS'     1  SPECIAL SYSTEM USE (LIKE BUFFERS ?)         
         TXT      ' PUBLIB '     2  PUBLIC LIBRARY SEGMENT                      
         TXT      'ILLEGAL '     3  ILLEGAL VALUE OF FILED                      
         DO1      4                                                             
         TXT      'ILLEGAL '    4-7 ILLEGAL VALUES                              
         PAGE                                                                   
SJLROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         LI,R13   SDTYEBC+2                                                     
         B        SDTYA                                                         
         PAGE                                                                   
*SPDEC CONVERTS A DEC NUMBER AND FORMS A STRING NXXX ZERO SUPPRESSED            
*LEFT JUSTIFIED IN R0,  THE CHARACTER N IS AN ENTRY PARAMETER.                  
*ENTRY                                                                          
*        R3       THE DECIMAL NUMBER                                            
*        R4       THE EBCDIC PREFIX                                             
*        R15      THE RETURN ADDR                                               
*                                                                               
*EXIT                                                                           
*        R0       'NXXX'                                                        
*        R1-R3    DESTROYED                                                     
SPDEC    RES      0                                                             
         LW,R0    BLANKS                                                        
         LI,R1    -3                                                            
SPDECLP  LI,R2    0                                                             
         CI,R3    0                                                             
         BE       SPDECND                                                       
         DW,R2    K10                                                           
         SLS,R0   -8                                                            
         AI,R2    X'F0'                                                         
         STB,R2   R0                                                            
         BIR,R1   SPDECLP                                                       
SPDECND  SLS,R0   -8                                                            
         STB,R4   R0                                                            
         B        *R15                                                          
         PAGE                                                                   
* WPCROUT                                                                       
* WPCROUT COMPUTES THE PARAMETERS FOR THE COMMON CONVERSION ROUTINE             
* FOR THE WRITE PERMISSION CODE                                                 
WPCROUT  RES      0                                                             
         PUSH     4,R12             SAVE ALTERED REGISTERS                      
         SLS,R11  0,R1                                                          
         SLS,R11  -32,R2                                                        
         LI,R12   4                                                             
         LI,R13   WPCEBC                                                        
         AW,R13   R11                                                           
         B        CNVCOMM                                                       
WPCEBC   TEXT     'ERR '                                                        
         TEXT     ' FG '                                                        
         TEXT     'ANY '                                                        
         TEXT     ' SY '                                                        
         TEXT     ' NO '                                                        
         TEXT     'IOEX'                                                        
         TEXT     'ERR '                                                        
         TEXT     'ERR '                                                        
         TEXT     'ERR '                                                        
         PAGE                                                                   
* YNCROUT                                                                       
* YNC PLACES A YES OR A NO IN THE COLUMN BASED ON WHETHER R7 IS A               
* 1 OR A ZERO. R7 IS DESTROYED.                                                 
YNCROUT  RES      0                                                             
         PUSH     4,R12                                                         
         LW,R3    R11                                                           
         SLS,R3   0,R1                                                          
         SLS,R3   -32,R2                                                        
         LW,R12   YNLEN,R3                                                      
         LI,R13   YNCODE                                                        
         AW,R13   R3                                                            
         B        CNVCOMM                                                       
         PAGE                                                                   
*DISPMUL PLACES ASTERISKS IN VALUE OF MULTI WORD CELLS                          
DISPMUL  RES      0                                                             
         PUSH     4,R12                                                         
         LI,R12   8                                                             
         LI,R13   ASTERS            POINT AT '********' STRING                  
         B        CNVCOMM                                                       
         TITLE    'OUTPUT ROUTINES'                                             
         PAGE                                                                   
* LOADBUF                                                                       
* SUBROUTINE TO PLACE A TEXT STRING IN THE PRINT BUFFER                         
* CALL:  LW,R13   WA(SRING)                                                     
*        LW,R12   LENGTH            IN BYTES                                    
*        BAL,R15  LOADBUF                                                       
LOADBUF  RES      0                                                             
         LB,R12   R13                                                           
LOADBUF1 RES      0                                                             
         PUSH     4,R5              SAVE WORK REGISTERS                         
         LI,R7    0                 SOURCE STRING INDEX                         
         LW,R6    PRBFNDX           PRINT BUFFER                                
LOADB1   RES      0                                                             
         LB,R8    *R13,R7           MOVE                                        
         CI,R6    133                                                           
         BLE      LOADB2                                                        
         PUSH     R15               SAVE RETURN LINK                            
         BAL,R15  PRINT             PRINT LINE AS WE HAVE IT NOW                
         PULL     R15               RECOVER LINE                                
         LI,R6    17                SET CONTINUATION COLUMN                     
*                                                                               
LOADB2   RES      0                                                             
         LB,R5    OKTEXT            PRINT PRINTABLES OR A PERIOD                
LOADB3   CB,R8    OKTEXT,R5                                                     
         BE       %+3                                                           
         BDR,R5   LOADB3                                                        
         AI,R5    1                                                             
         LB,R8    OKTEXT,R5                                                     
         STB,R8   PRINTBUF,R6         BYTE                                      
         AI,R6    1                 BUMP                                        
         AI,R7    1                   INDICES                                   
         CW,R7    R12                                                           
         BL       LOADB1            LOOP TILL DONE                              
         STW,R6   PRBFNDX           UPDATE PRINT BUF INDEX                      
         PULL     4,R5              RESTORE WORK REGISTERS                      
         B        *R15              RETURN                                      
         PAGE                                                                   
* LOADCHAR                                                                      
* SUBROUTINE TO PLACE A CHARACTER IN THE PRINT BUFFER                           
*        LB,R0    CHAR                                                          
*        BAL,R15  LOADCHAR                                                      
LOADCHAR RES      0                                                             
         PUSH     R7                                                            
         LW,R7    PRBFNDX                                                       
         STB,R0   PRINTBUF,R7                                                   
         MTW,1    PRBFNDX                                                       
         PULL     R7                                                            
         B        *R15                                                          
         PAGE                                                                   
* OUTHDR                                                                        
* OUTHDR OUTPUTS THE HEADER AT THE TOP OF EACH PAGE                             
* CALL   BAL,R15  OUTHDR                                                        
*                                                                               
OUTHDR   RES      0                                                             
         PUSH     9,R11             SAVE WORK REGISTERS                         
         LW,R1    ALGCT             GET INDEX TO TABLE DISPLAYING               
         MTW,+1   NEWDISP           STEP PAGE COUNT FOR THIS ALGORITHM          
         LW,R2    DISPALGS,R1       GET MAX PAGES ALLOWED THIS ALG              
         LB,R2    R2                FROM ALG TABLE BYTE ZERO                    
         SW,R2    NEWDISP           HAVE WE EXCEEDED COUNT ?                    
         BGE      OUTHDR1             NO, OUT ANOTHER HEADER AND CONTINU        
*                                                                               
         STW,R2   NEWDISP           YES, SET PAGE LIMIT EXCEEDED                
         BAL,R15  PRINT             CLEAR LINE AND SPACE 1                      
         LW,R13   PAGLIMGT          OUT 'LIMIT EXCEEDED FOR TABLES'             
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT             AND PRINT THE LINE                          
         LH,R0    TOCPAGE,R1        MARK DISPLAY AS TRUNCATED                   
         AI,R0    X'8000'                                                       
         STH,R0   TOCPAGE,R1                                                    
         B        OUTHX             AND EXIT TO STEP TO A NEW ALG               
*                                                                               
OUTHDR1  RES      0         OUT PAGE HEADER                                     
         LI,R14   0                 RESET LINE COUNT FOR NEW PAGE               
         STW,R14  LINECT                                                        
         LI,R14   C'1'              PUT PAGE EJECT CHARACTER IN THE             
         STB,R14  PRINTBUF          LINE'S VFC BYTE                             
         MTW,+2   PRBFNDX           INDENT TO COLUMN 2 FOR HEADER               
         LW,R13   DTXTLEN,R1        GET LEN, LOC OF MESSAGE AND                 
         BAL,R15  LOADBUF           MOVE TO PRINT LINE                          
         M:TIME   PRINTBUF+DATEWOS  PUT CURRENT TIME IN PRINT BUFFER            
         LI,R14   TTYPGCOL          PUT PAGE NUMBER IN RIGHT HAND               
         MTW,0    LPFLAG             CORNER OF PAGE.                            
         BEZ      %+2                                                           
         LI,R14   PRPGCOL                                                       
         STW,R14  PRBFNDX                                                       
         LW,R13   PTXTLEN           PUT THE WORD 'PAGE' IN THE BUFFER           
         BAL,R15  LOADBUF                                                       
         MTW,1    PRBFNDX                                                       
         MTW,1    PAGE              INCREMENT THE PAGE COUNT                    
         LW,R11   PAGE                                                          
         MTW,0    NEWDISP           IF FIRST PAGE OF DISPLAY TYPE               
         BNEZ     %+2                PUT THE PAGE NUMBER IN THE                 
         STH,R11  TOCPAGE,R1         THE TABLE OF CONTENTS                      
         LI,R1    22                FIRST BIT                                   
         LI,R2    10                # BITS                                      
         LI,R14   5                                                             
         BAL,R15  DECROUT                                                       
         BAL,R15  PRINT                                                         
         BAL,R15  PRINT                                                         
         MTW,+00  FGDBKGSW          ARE WE RUNNING ON-LINE ?                    
         BEZ      OUTHX               NO, NOTHING SPECIAL                       
         MTW,+00  NEWDISP           IS THIS 1ST PAGE OF NEW DISPLAY ?           
         BNEZ     OUTHX               NO, DON'T OUT LINE ON-LINE                
*                                                                               
*                                                                               
         M:TIME   PRINTBUF          GET TIME AGAIN                              
         LD,R14   PRINTBUF          MOVE TIME RIGHT 1 SPACE TO MAKE ROOM        
         SLD,R14  -8                FOR THE VFC BYTE                            
         STD,R14  PRINTBUF                                                      
         MTW,+6   PRBFNDX           SET POSITION POINTER PAST HH:MM             
         LW,R1    ALGCT             REFETCH ALGORITHM (DISPLAY) INDEX           
         LW,R13   DTXTLEN,R1        GET TITLE LINE POINTER AGAIN AND            
         BAL,R15  LOADBUF           ENTER IT AFTER THE TIME                     
         LI,R0    X'15'             PUT A CARRIAGE RETURN (NL) AFTER            
         BAL,R15  LOADCHAR          LAST CHARACTER                              
*        MTW,+2   PRBFNDX           STEP POINTER TO INCLUDE IT                  
         M:WRITE  M:LL,(BUF,PRINTBUF),(SIZE,*PRBFNDX),(WAIT)                    
         BAL,R15  CLRBFR            RECLEAR LINE                                
*                                                                               
OUTHX    RES      0                                                             
         PULL     9,R11             RESTORE WORK REGISTERS                      
         B        *R15                                                          
* SKIP                                                                          
* SKIP SKIPS N LINES                                                            
* CALL   LI,RI    #LINES                                                        
*        BAL,R15  SKIP                                                          
*                                                                               
SKIP     RES      0                                                             
         PUSH     R15                                                           
         BAL,R15  PRINT                                                         
         BDR,R1   %-1                                                           
         PULL     R15                                                           
         B        *R15                                                          
         PAGE                                                                   
PRINT    RES      0                                                             
         PUSH     R15                                                           
         M:WRITE  M:LO,(BUF,PRINTBUF),(SIZE,133),(WAIT)                         
         MTW,1    LINECT                                                        
         BAL,R15  CLRBFR            CLEAR PRINT BUFFER                          
         PULL     R15                                                           
         B        *R15              RETURN                                      
*                                                                               
*                                                                               
CLRBFR   RES      0         CLEAR PRINT BUFFER                                  
         PUSH     2,R0              SAVE CLEARING REGS                          
         LW,R0    BLANKS            CLEAR BUFFER                                
         LI,R1    136/4                                                         
         STW,R0   PRINTBUF-1,R1                                                 
         BDR,R1   %-1                                                           
         LI,R0    1                                                             
         STW,R0   PRBFNDX                                                       
         PULL     2,R0              RECOVER USED REGISTERS                      
         B        *R15                                                          
         TITLE    'OVERSEER   ROUTINES'                                         
         PAGE                                                                   
* COLINDEX                                                                      
* THIS SUBROUTINE IS AN OVERSEER SUBROUTINE FOR OUTPUTTING COLUMN               
* INDEXED TABLES.  FOR EACH TABLE TYPE AN INPUT PARAMETER LIST                  
* IS PASSED (POINTED TO BY R1) CONTAINING                                       
* WORD                                                                          
* 0      FIRST SWS                                                              
* 1      LAST SWS+SWSCSIZE                                                      
* 2      INDICE SUBROUTINE POINTER                                              
* 3      VALUE SUBROUTINE POINTER                                               
* 4      MAX VALUE OF INDICIES FOR THE TABLE                                    
* THE INDICES SUBROUTINE GENERATES A PRINT LINE AND A TABLE FOR LOCATING        
* VALUES. THE VALUE SUBROUTINE USES THE CURRENT SWS TO GENERATE A               
* VALUE TABLE                                                                   
*                                                                               
COLINDEX RES      0                                                             
         PUSH     16,R0             SAVE REGISTERS                              
*                          ADD CHECK TO TEST IF TABLE ACTUALLY EXISTS           
*                          AND SUPPRESS ALL OUTPUT IF NOT.                      
         STW,R1   TABPTR            SAVE LOCATION OF CURRENT TABLE              
         STW,R1   R7                AND SET ITS ACCESS INDEX REGISTER           
         LI,R0    0                                                             
         STW,R0   CURRCOL                                                       
         STW,R0   PHASE                                                         
         STW,R0   TABLENDX                                                      
         STW,R0   MAXCOL                                                        
         LI,R0    12                                                            
         STW,R0   #COL                                                          
*                                                                               
CILP1    RES      0      START LOOP: UP TO 12 COLS ON A PAGE FOR A TABLE        
         LW,R1    0,R7              SET SWS POINTER TO 1ST FOR TABLE            
         STW,R1   CISWSP                                                        
*                                                                               
CILP2    RES      0         OUT PAGE HEADER FOR NEW OR CONTINUED TABLE          
         BAL,R15  OUTHDR            OUT HEADER; TEST FOR TOO MANY               
         MTW,0    NEWDISP                                                       
         BL       CIEND                                                         
         LW,R7    TABPTR            GET ADDRESS                                 
         LW,R15   2,R7                OF THE INDICIES'                          
         BAL,R15  *R15              ROUTINE AND DO IT                           
         MTW,0    #COL                                                          
         BEZ      CIEND                                                         
*                                                                               
*                        START LOOP: EACH SWS FOR A TABLE                       
CILP3    RES      0         PROCESS NEXT SWS CELL TABLE                         
         LW,R1    CISWSP            CHECK IF ALL OF NEXT SWS CELL WILL          
         LW,R2    3,R1              FIT ON THE CURRENT PAGE                     
         LB,R0    R2                GET # BWD'S IN THIS SWS                     
         LW,R15   ALGCT             DO NOT TEST BOTTOM OF PAGE IF               
         CI,R15   PSDOS             DOING PSD'S                                 
         BE       CILP3A              AS THEY MAY NEVER FIT                     
*                                                                               
         LW,R15   #LINES            LINES AVAIL ON PAGE                         
         SW,R15   LINECT            - LINES USED = LINES LEFT                   
         CW,R15   R0                ENOUGH FOR BWD LEFT ?                       
         BLE      CILP2               NO, PRINT ON A NEW PAGE                   
*                                                                               
CILP3A   RES      0         ROOM ON THE PAGE: SET UP TO DO BWD PROCESSING       
         BAL,R15  PRINT             PRINT COLUMN INDICIES OR SPACE A LINE       
         STW,R2   CIBWPP            SET CURRENT BWD POINTER                     
         STW,R0   CIBWPCT           SET NUMBER OF BWD'S TO DO                   
         LW,R3    0,R2              GET FIRST BWD AND EXTRACT OUT ITEM          
         LB,R4    R3                LENGTH                                      
         STW,R4   VALSIZE                                                       
         LW,R13   CISWSP            OUT NAME OF CELL DESCRIBED BY THIS          
         LI,R12   8                 SWS ITEM                                    
         BAL,R15  LOADBUF1                                                      
         LW,R15   3,R7              GET NAME OF, AND CALL ITS VALUE             
         BAL,R15  *R15              ROUTINE TO GET DATA TO DISPLAY              
*                                                                               
         CW,R3    BYTEDISP          IF 1ST BWD DISPLAYS THE ENTIRE CELL         
         BE       CILP4A            IN HEX, SUPPRESS PRINTING OF THE            
         CW,R3    HALFDISP          DATA ON THE SWS CELL'S NAME LINE            
         BE       CILP4A                                                        
         CW,R3    WORDDISP                                                      
         BE       CILP4A                                                        
         CW,R3    DWRDDISP                                                      
         BE       CILP4A                                                        
*                                                                               
         LI,R6    21                START DATA IN COLUMN 21                     
         STW,R6   PRBFNDX                                                       
         LCW,R6   #COL              #COL DEPENDS ON LP OR TTY                   
*                                                                               
CILP4    LI,R14   9                 DISPLAY FULL WORD HEX VALUES                
         LI,R1    0                 FOR EACH VALUE IN VALTABLE                  
         LW,R2    VALSIZE                                                       
         LW,R2    VALSIZE+1,R2                                                  
         LW,R5    #COL                                                          
         AW,R5    R6                                                            
         LD,R10   VALTABLE,R5                                                   
         SCD,R10  32                                                            
         BAL,R15  HEXROUT                                                       
         BIR,R6   CILP4                                                         
*                                                                               
CILP4A   RES      0                                                             
         BAL,R15  PRINT             PRINT THE LINE                              
*                                   NOW DO BWD'S--BURST WORD DESCRIPTORS        
CILP5    RES      0      START LOOP: EACH BWD FOR A SWS ITEM                    
         LW,R6    CIBWPP                                                        
         LW,R13   1,R6                                                          
         SCS,R13  -16                                                           
         AND,R13  XF                                                            
         CW,R13   COMPUTER                                                      
         BAZ      CILP5B                                                        
CILP5A   RES      0                                                             
         LW,R13   CIBWPP                                                        
         AI,R13   2                 POINT TO TEXT STRING                        
         LI,R12   20                                                            
         BAL,R15  LOADBUF1                                                      
         LCW,R6   #COL              SET UP NUMBER OF COLUMNS                    
*                                                                               
*                        START LOOP: A BWD FOR EACH COLUMN ON PAGE              
CILP6    RES      0                                                             
         LI,R14   9                                                             
         LW,R5    #COL                                                          
         AW,R5    R6                                                            
         LD,R10   VALTABLE,R5                                                   
         SCD,R10  32                                                            
         LW,R4    *CIBWPP           GET 1ST WORD OF CURRENT BWD                 
         SLS,R4   8                 LEFT JUSTIFY 1ST BIT NUMBER                 
         LB,R1    R4                AND SET                                     
         CI,R1    32                IS IT WITHIN THE 1ST WORD ?                 
         BL       %+3                 YES, VALID WORD BIT INDEX                 
*                                                                               
         AI,R1    -32               IN 2ND HALF OF A DOUBLE WORD: FIX           
         XW,R10   R11               INDEX AND VALUES                            
*                                                                               
         SLS,R4   8                 SHIFT TO NUMBER OF BITS                     
         LB,R2    R4                AND SET                                     
         SLS,R4   8                 SHIFT TO CONVERSION ROUTINE                 
         LB,R4    R4                AND GET ITS INDEX                           
         LW,R4    BASEL,R4          GET ADDRESS OF ROUTINE                      
         BAL,R15  *R4                                                           
         BIR,R6   CILP6                                                         
*                        END LOOP: BWD FOR EACH COLUMN ON PAGE                  
*                                                                               
         BAL,R15  PRINT             PRINT BURST LINE                            
*                                                                               
CILP5B   RES      0                                                             
         LW,R7    CIBWPP                                                        
         AI,R7    @BWD              STEP POINTER BY BWD SIZE                    
         STW,R7   CIBWPP                                                        
         MTW,-1   CIBWPCT                                                       
         BGZ      CILP5             LOOP UNTIL FULL WORD IS BURST               
*                                                                               
*                        END LOOP: EACH BWD FOR AN SWS ITEM                     
*                                                                               
         LW,R1    CISWSP            STEP SWS POINTER TO NEXT SWS                
         AI,R1    SWS2SIZE                                                      
         CI,R1    SWSCEND           PAST END OF LONG SWS ENTRIES ?              
         BG       %+2                 YES                                       
         AI,R1    SWSCSIZE-SWS2SIZE  NO, ADJUST FOR THEIR LENGTH                
         LW,R7    TABPTR            POINT AT CURRENT TABLE ENTRY                
         CW,R1    1,R7              HAVE WE DONE ALL SWS ITEMS YET ?            
         STW,R1   CISWSP            (SET LOC OF NEXT SWS 1ST)                   
         BL       CILP3               NO, DO NEXT SWS FOR THE TABLE             
*                                                                               
*                        END LOOP: EACH SWS FOR A TABLE (SWS=SWSEND)            
*                                                                               
         LW,R1    CURRCOL           HAVE ALL INDICIES FOR THE TABLE             
         AW,R1    #COL              BEEN PROCESSED YET ?                        
         STW,R1   CURRCOL           (SET NEW 1ST COL (INDEX) ON PAGE)           
         CW,R1    MAXCOL            I.E., CURR INDEX >= MAX INDEX ?             
         BL       CILP1               NO, DO ANOTHER #COL INDICIES              
*                                                                               
*                        END LOOP: #COL ITEMS ON A PAGE FOR A TABLE             
*                                                                               
CIEND    RES      0                                                             
         LI,R1    XF                                                            
         STW,R1   LASTCC                                                        
         PULL     16,R0             RESTORE REGISTERS                           
         B        *R15                                                          
         PAGE                                                                   
* MULTICOL                                                                      
* MULTICOLUMN IS AN OVERSEER SUBROUTINE THAT MAKES CALLS ON A                   
* SUBROUTINE WHOSE ENTRY POINT IS AN INPUT PARAMETER. EACH CALL                 
* IS FOR THE OUTPUT OF 1 PIECE OF DATA.  THE SUBROUTINE IS PASSED               
* THE PROPER NEXT INDEX FOR THE DATA SUCH THAT THE ENTRIES ON A                 
* PRINTED PAGE WILL BE SEQUENTIALLY INDEXED WITHIN EACH COLUMN                  
* WITH THE FIRST ENTRY OF A COLUMN TO THE RIGHT FOLLOWING THE LAST              
* ENTRY  OF THE COLUMN ON ITS LEFT.  PAGES FOLLOW EACH OTHER WITH               
* THE LAST PAGE  AS SHORT AS POSSIBLE.                                          
* ON  ENTRY TO MULTICOL R1 POINTS TO A TABLE CONTAINING                         
* WORD                                                                          
*  0     ADDRESS OF SUBROUTINE                                                  
*  1     # COLUMNS PAGE                                                         
*  2     COLUMN HEADER LABEL POINTER                                            
*  3     TOTAL NUMBER OF ENTRIES N                                              
*                                                                               
* ON ENTRY TO THE PASSED SUBROUTINE R11 CONTAINS THE ENTRY INDEX 0-N            
* R15 IS USED FOR LINKAGE.                                                      
*                                                                               
MULTICOL RES      0                                                             
         PUSH     8,R12             SAVE ENOUGH REGISTERS FOR WORKING           
         STW,R1   MCTABPTR          SAVE POINTER TO PARAMETER TBL               
         LW,R3    #LINES            GET LINES ON A PAGE                         
         AI,R3    -4                MINUS ALREADY PRINTED HEADERS               
         STW,R3   MC#LINES                                                      
         MW,R2    1,R1              COMPUTE # ENTRIES/PAGE                      
         STW,R3   MC#EPP                                                        
         LW,R3    3,R1              COMPUTE #PAGES - # ENTRIES LAST PAGE        
         LI,R2    0                                                             
         DW,R2    MC#EPP                                                        
         STW,R3   MC#PAGES                                                      
         LW,R3    R2                                                            
         LI,R2    0                                                             
         DW,R2    1,R1              COMPUTE # LINES LAST PAGE                   
         STW,R3   LP#LINES                                                      
         MTW,1    MC#PAGES                                                      
         LI,R3    0                                                             
         STW,R3   MCPAGE#                                                       
MCPAGELP MTW,-1   MC#PAGES          START EACH PAGE HERE                        
         BLZ      MCEXIT                                                        
         BG       %+3                                                           
         LW,R2    LP#LINES          FEWER LINES LAST PAGE                       
         STW,R2   MC#LINES                                                      
         BAL,R15  OUTHDR            OUTPUT HEADER                               
         LW,R1    MCTABPTR          OUTPUT THE COLUMN HEADERS                   
         LW,R2    1,R1                                                          
         LW,R1    2,R1                                                          
         LW,R13   0,R1                                                          
         BAL,R15  LOADBUF                                                       
         BDR,R2   %-2                                                           
         BAL,R15  PRINT                                                         
         BAL,R15  PRINT                                                         
         LI,R1    0                                                             
         STW,R1   II                                                            
MCLINELP LI,R1    0                                                             
         STW,R1   JJ                                                            
MCCOLLP  LI,R12   0                                                             
         LW,R13   MC#EPP                                                        
         MW,R12   MCPAGE#                                                       
         LI,R10   0                                                             
         LW,R11   JJ                                                            
         MW,R10   MC#LINES                                                      
         AW,R11   R13                                                           
         AW,R11   II                                                            
         LW,R1    MCTABPTR                                                      
         CW,R11   3,R1                                                          
         BG       MCEXIT                                                        
         LW,R15   0,R1                                                          
         BAL,R15  *R15                                                          
         MTW,1    JJ                                                            
         LW,R11   JJ                                                            
         CW,R11   1,R1                                                          
         BL       MCCOLLP                                                       
         BAL,R15  PRINT                                                         
         MTW,1    II                                                            
         LW,R11   II                                                            
         CW,R11   MC#LINES                                                      
         BL       MCLINELP                                                      
         MTW,1    MCPAGE#                                                       
         B        MCPAGELP                                                      
MCEXIT   RES      0                                                             
         PULL     8,R12             RECOVER THE REGISTERS WE USED               
         B        *R15                                                          
         PAGE                                                                   
*ROWINDEX                                                                       
*ROWINDEX PRINTS THE HEADER LINE AT THE TOP OF EACH PAGE, AND THEN              
*A SUB HEADER.  FOR EACH LINE, AN INDEX ROUTINE IS CALLED, WHICH FILLS          
*IN THE FIRST FIELD AND THEN THE SWS'S AND THEIR BWD'S ARE USED TO              
*ACCESS AND DISPLAY THE INFORMATION FOR A FULL TABLE ON EACH LINE.              
*THE INDICE ROUTINE POINTS TO THE FIRST WORD OF THE TABLE.                      
ROWINDEX RES      0                                                             
         PUSH     16,R0             SAVE ALL REGS                               
         STW,R1   TABPTR                                                        
         LI,R0    0                 CLEAR AND RESET SWITCHES AND                
         STW,R0   PHASE             INDICIES                                    
         STW,R0   TABLENDX                                                      
         STW,R0   MAXCOL                                                        
RILP0    RES      0                                                             
         LI,R1    1                                                             
         STW,R1   NEWPAGE                                                       
RILP1    RES      0                                                             
         LW,R1    TABPTR            GET ADDRESS                                 
         LW,R15   2,R1              -OF INDICE                                  
         BAL,R15  *R15              --ROUTINE AND DO IT                         
         MTW,0    RIDONE            WAS THIS THE END                            
         BNE      RIEND                                                         
         MTW,-1   NEWPAGE                                                       
         BNE      RILP1A                                                        
         BAL,R15  OUTHDR                                                        
         MTW,0    NEWDISP                                                       
         BL       RIEND                                                         
         LW,R13   3,R1              LENGTH OF SUBHEADER AND LOC                 
         BAL,R15  LOADBUF           --PUT IT IN BUFFER                          
         BAL,R15  PRINT             ----AND PRINT IT                            
RILP1A   RES      0                                                             
         LI,R12   8                                                             
         LI,R13   VALTABLE          OUTPUT NAME                                 
         BAL,R15  LOADBUF1          FOR LINE                                    
         MTW,0    PHASE                                                         
         BL       RILP1AA           NO LOC FOR IOLOCK TABLE                     
         LW,R11   RITM              OUT SJI INDEX FOR BBCWT, JPT, EDT           
         LI,R14   4                 4 SPACES FOR IT                             
         LI,R1    25                USING LAST 7 BITS IN THE WORD               
         LI,R2    7                                                             
         BAL,R15  DECROUT           CONVERT AND ENTER                           
         LW,R11   INDTABLE                                                      
         LI,R14   9                 OUTPUT TABLE                                
         LI,R1    12                                                            
         LI,R2    20                -LOCATION                                   
         BAL,R15  HEXROUT           --IN HEX                                    
RILP1AA  RES      0                                                             
         LW,R1    TABPTR                                                        
         LW,R2    0,R1                                                          
RILP1B   RES      0                                                             
         STW,R2   CISWSP            SET SWS PTR                                 
         LW,R7    3,R2                                                          
         LB,R6    R7                GET # OF BWD'S                              
         STD,R6   CIBWPCT           -AND ALSO INITIALIZE BWD PTR                
         LW,R1    2,R2              OFFSET FOR TABLE ENTRY IN SWS WORD 2        
         AND,R1   XFFFFF                                                        
         LW,R11   RITM              PLACE JOB INDEX IN                          
         STW,R11  VALTABLE+7        VALTABLE                                    
         CI,R1    XFFFFF            IF REQUESTED                                
         BE       RILP1C            BY SWS                                      
         AW,R1    INDTABLE                                                      
         LW,R11   R1                                                            
         BAL,R15  FINDCORE                                                      
         STW,R11  VALTABLE+7        DOUBLE WORD STORED BACKWARD                 
         LW,R11   R1                                                            
         AI,R11   1                                                             
         BAL,R15  FINDCORE                                                      
         STW,R11  VALTABLE+6                                                    
RILP1C   RES      0                                                             
         LD,R10   VALTABLE+6                                                    
         LW,R4    *CIBWPP                                                       
         SLS,R4   8                                                             
         LB,R1    R4                                                            
         CI,R1    32                                                            
         BL       %+3                                                           
         AI,R1    -32                                                           
         SCD,R10  32                                                            
         SLS,R4   8                                                             
         LB,R2    R4                                                            
         SLS,R4   8                                                             
         LB,R4    R4                                                            
         LW,R4    BASEL,R4                                                      
         LI,R14   9                                                             
         MTW,0    PHASE                                                         
         BGE      %+2                                                           
         LI,R14   6                 SET FIELD WIDTH = 6 FOR IOLOCK TABLE        
         BAL,R15  *R4                                                           
         LW,R7    CIBWPP            BUMP TO NEXT                                
         AI,R7    @BWDS             BURST WORD DESCRIPTOR                       
         STW,R7   CIBWPP            --DESCRIPTOR                                
         MTW,-1   CIBWPCT                                                       
         BNEZ     RILP1C            LOOP TILL FULL WORD BURST                   
         LW,R2    CISWSP                                                        
         AI,R2    4                                                             
         STW,R2   CISWSP                                                        
         LW,R1    TABPTR                                                        
         CW,R2    1,R1                                                          
         BL       RILP1B            LOOP TILL FULL TABLE DONE                   
         BAL,R15  PRINT                                                         
         LW,R1    #LINES            TEST IF AT END OF THE PAGE                  
*##%%*   AI,R1    -1                                                            
         CW,R1    LINECT                                                        
         BGE      RILP1             NO, DO NEXT LINE                            
         B        RILP0                                                         
RIEND    RES      0                                                             
         LI,R1    0                                                             
         STW,R1   PHASE                                                         
         STW,R1   RIDONE                                                        
         PULL     16,R0             RESTORE ALL THE SAVE REGISTERS              
         B        *R15                                                          
         TITLE    'SEARCH ROUTINES'                                             
*SEARCHSL                                                                       
*SEARCHSL SEARCHES THE SINGLE WORD SYSTEM CELL LIST FOR THE NAME GIVEN          
*IN R8,R9.                                                                      
*                                                                               
* IT PUTS THE VALUE (AN ADDRESS) IN R0 IN BYTES 1-3 OF THE                      
* FOLLOWING WORD (WORD 2 OF AN SWS TABLE ENTRY).                                
*                                                                               
*                                                                               
SEARCHSL RES      0                                                             
         LI,R1    SWSCBASE                                                      
         LI,R2    -SWSCLEN-SWS2LEN                                              
SSLLOOP  CW,R8    0,R1                                                          
         BNE      SSLCONT                                                       
         CW,R9    1,R1                                                          
         BNE      SSLCONT                                                       
         OR,R0    OSLOC,1                                                       
         STW,R0   OSLOC,1                                                       
SSLCONT  RES      0                                                             
         AI,R1    4                                                             
         CI,R1    SWSCEND                                                       
         BG       %+2                                                           
         AI,R1    SWSCSIZE-4                                                    
         BIR,R2   SSLLOOP                                                       
         B        *R15                                                          
         PAGE                                                                   
* FINDCORE                                                                      
* THE FINDCORE SUBROUTINE READS THE CRASH FILE 256 WORDS AT A TIME.  THE        
* CURRENT BLOCK FIRST WORD ADDRESS IS KEPT IN CURRBFWA.                         
* CALL   LW,R11   ADDRESS                                                       
*        BAL,R15  FINDCORE                                                      
* THE WORD AT THAT ADDRESS IS RETURNED IN R11.                                  
*                                                                               
FINDCORE RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         AND,R11  XFFFFF                                                        
         MTW,0    FCORFLAG                                                      
         BG       FINDC1                                                        
         PUSH     2,R6                                                          
         LW,R6    R11                                                           
         SAS,R6   -9                                                            
         LW,R6    MAP,R6                                                        
         LI,R7    -512                                                          
         STS,R6   R11                                                           
         AND,R11  XFFFFF                                                        
         PULL     2,R6                                                          
FINDC1   RES      0                                                             
         STW,R11  WORDADDR                                                      
         SW,R11   CURRBFWA                                                      
         BL       %+3                                                           
         AI,R11   -256                                                          
         BL       FINDCBOK          BUFFER IS OK                                
         LW,R11   WORDADDR                                                      
         AND,R11  XFFF00                                                        
         STW,R11  CURRBFWA                                                      
        DO       (#SYSTEM='CP-V')                                               
         AI,R11   X'200'                                                        
         SAS,R11  -8                                                            
         MI,R11   1000                                                          
         STW,R11  DFILEKEY          SET RECORD KEY NUMBER                       
         LI,R11   X'03'             MOVE IN THE KEY-LENGTH                      
         STB,R11  DFILEKEY                                                      
         LW,R11   DFILEKEY          IS THE KEY WE ARE TO READ                   
         CW,R11   CRSHRROS          LARGER THAN THE LAST WE MOVED               
         BG       FINDCERR            YES, CORE NON-EXISTANT; GIVE 0            
*                                                                               
         M:READ   F:X1,(BUF,CRSHBUF),(SIZE,1024),(KEY,DFILEKEY),(WAIT)          
        ELSE     (#SYSTEM='CP-R')                                               
         AI,R11   X'100'            ?? STEP OVER SHORT MAP AT START ??          
         SAS,R11  -8                CONVERT TO BLOCK THE ADDRESS IS IN          
         STW,R11  DFILEKEY          AND SET FOR THE READ                        
         CW,R11   CRSHRROS          IS ADDRESS LARGER THAN SAVED ?              
         BG       FINDCERR            YES, NON-EXISTANT; GIVE ZEROS             
*                                                                               
         M:READ   F:X1,(BUF,CRSHBUF),(SIZE,1024),(BLOCK,*DFILEKEY),;            
                  (WAIT)                                                        
        FIN                                                                     
*                                                                               
*                                                                               
FINDCBOK LW,R11   WORDADDR                                                      
         AND,R11  XFF                                                           
         AI,R11   CRSHBUF                                                       
         LW,R11   *R11                                                          
         PULL     R15               GET LINK                                    
         B        *R15                                                          
*                                                                               
FINDCERR RES      0         FINDING NON-EXISTANT CORE;  RETURN ZEROS            
         LW,R11   XFFFFF            SET LAST ADDRESS TOO BIG                    
         STW,R11  CURRBFWA          SO IT WILL NOT BE IN MEMORY                 
         LI,R11   0                 GET A ZERO AS THE RESULT                    
         PULL     R15               GET RETURN LINK                             
         B        *R15              AND EXIT                                    
         PAGE                                                                   
* EBCHEXC                                                                       
* EBCHEXC READS INPUT CHARACTERS AND CONVERTS EBCDIC HEX CHARACTERS             
* TO BINARY.                                                                    
EBCHEXC  RES      0                                                             
         PUSH     R15               SAVE LINK                                   
         LI,R1    0                                                             
EBCH1    BAL,R15  GETCHAR                                                       
         CI,R0    X'F9'                                                         
         BG       EBCH4                                                         
         CI,R0    X'F0'                                                         
         BL       EBCH3                                                         
EBCH2    AND,R0      XF                                                         
         SLS,R1   4                                                             
         OR,R1    R0                                                            
         B        EBCH1                                                         
EBCH3    CI,R0    X'C6'                                                         
         BG       EBCH4                                                         
         CI,R0    X'C1'                                                         
         BL       EBCH4                                                         
         AI,R0    X'FFF49'                                                      
         B        EBCH2                                                         
*                                                                               
EBCH4    LW,R0    R1                                                            
         PULL     R15               GET LINK                                    
         B        *R15                                                          
         PAGE                                                                   
* GETCHAR                                                                       
* GETCHAR GETS A CHARACTER FROM THE INPUT BUFFER. GETCHAR0 INITIALIZES          
* THE COUNTER. THE CONDITION CODE SETTING WILL BE 'EQUAL' IF END OF             
* LINE IS REACHED.                                                              
GETCHAR0 RES      0                                                             
         LI,R0    0                                                             
         STW,R0   BUFNDEX                                                       
GETCHAR  RES      0                                                             
         LW,R0    BUFNDEX                                                       
         CW,R0    INBUFLEN                                                      
         BE       GETCHX                                                        
         PUSH     R1                FREE R1 FOR WORK                            
         LW,R1    R0                                                            
         LB,R0    INBUF,R1                                                      
         PULL     R1                RESTORE R1                                  
         MTW,1    BUFNDEX                                                       
         CI,R0    0                                                             
GETCHX   RES      0                                                             
         B        *R15                                                          
         TITLE    'VALUE ROUTINES'                                              
         PAGE                                                                   
*ROUTINE FOR GETTING VALUES FOR BURST WORD DISPLAY.                             
BURVAL   RES      0                                                             
         PUSH     16,R0                                                         
         LW,R1    CISWSP                                                        
         LW,R11   2,R1              GET THE ADDRESS OF THE CELL                 
         BAL,R15  FINDCORE                                                      
         STW,R11  VALTABLE                                                      
         PULL     16,R0                                                         
         B        *R15                                                          
         PAGE                                                                   
*                                                                               
* ROUTINE TO GET VALUES FOR CONTEXT PCB/TCP/RTS DISPLAY                         
*                                                                               
CSTVAL   RES      0                                                             
         PUSH     16,R0             SAVE REGS                                   
         LW,R1    CISWSP            GET ADDRESS OF CELL TO DISPLAY FROM         
         LW,R11   2,R1              FROM CURRENT SWS PACKET                     
         BAL,R15  FINDCORE          GET THE WORRD                               
         STW,R11  VALTABLE          AND STORE IT                                
         CI,R1    CSTRTSWS          DOING CURRENT STACK ?                       
         BNE      CSTVAL1             NO, WE ARE DONE                           
*                                                                               
         LW,R1    R11               YES, VALUE IS ADDRESS OF STACK              
         BAL,R15  FINDCORE          GET 1ST WORD OF STACK DWORD                 
         STW,R11  VALTABLE          AND STORE                                   
         LW,R11   R1                GET 2ND HALF OF DOUBLE WORD                 
         AI,R11   1                                                             
         BAL,R15  FINDCORE                                                      
         STW,R11  VALTABLE+1                                                    
*                                                                               
CSTVAL1  PULL     16,R0             RECOVER REGS AND                            
         B        *R15                               EXIT ...........           
         PAGE                                                                   
*ROUTINE FOR GETTING VALUES OF VARIABLES SPECIFIED IN                           
*INDTABLE WITH PROPER SIZE.                                                     
DCTVAL   RES      0                                                             
         PUSH     16,R0             SAVE ALL REGS                               
*        LW,R1    CISWSP            CISWSP LOADED IN COLINDEX ROUTINE           
         LW,R3    VALSIZE           GET ITEM SIZE INDEX                         
         LCW,R6   #COL              PRELOAD INDEX ADJUSTMENT                    
         LW,R11   2,R1              GET LOC OF START OF DATA                    
         STW,R11  VALBASE           AND SAVE                                    
         LW,R8    ALGCT             GET ALG INDEX FOR SPECIAL 'LN' TEST         
*                                                                               
DCTVALLP LW,R7    #COL                                                          
         AW,R7    R6                                                            
         LI,R5    0                                                             
         LW,R4    INDTABLE,R7                                                   
         CI,R8    LNOS                                                          
         BNE      DCTVAL1                                                       
         CI,R1    LNDCTEND                                                      
         BGE      DCTVAL1                                                       
         AW,R4    LNOSVAL                                                       
DCTVAL1  RES      0                                                             
         EXU      SHIFT1,R3                                                     
         EXU      SHIFT2,R3                                                     
         AW,R4    VALBASE                                                       
         LW,R11   R4                                                            
         BAL,R15  FINDCORE                                                      
         LW,R10   R11                                                           
         LW,R11   R4                                                            
         AI,R11   1                                                             
         BAL,R15  FINDCORE                                                      
         EXU      LDINSTR,R3                                                    
         EXU      STINSTR,R3                                                    
         LW,R7    #COL                                                          
         AW,R7    R6                                                            
         STD,R10  VALTABLE,R7                                                   
         BIR,R6   DCTVALLP                                                      
         PULL     16,R0             RECOVER ALL REGISTERS                       
         B        *R15                                                          
LDINSTR  NOP                                                                    
         LB,R10   R10,R5                                                        
         LH,R10   R10,R5                                                        
         LD,R10   R10                                                           
SHIFT1   NOP                                                                    
         SLD,R4   -2                                                            
         SLD,R4   -1                                                            
         SLD,R4   1                                                             
SHIFT2   NOP                                                                    
         SCS,R5   2                                                             
         SCS,R5   1                                                             
         NOP                                                                    
STINSTR  NOP                                                                    
         STB,R10  R10                                                           
         STH,R10  R10                                                           
         NOP                                                                    
         PAGE                                                                   
*                                                                               
*  OPLABEL VALUE ROUTINE:  GETS OPLABEL NAMES ON THE INITIAL ENTRY, AND         
*        THEN GETS THE OPLB2 TABLE FROM THE JCB FOR EACH ACTIVE JOB.            
*                                                                               
*        ON INITIAL ENTRY: TABLENDX = 0, AND THE CURRENT SWS POINTS TO          
*        THE OPLB1 TABLE - OPLABEL NAMES. THIS IS PROCESSED IN THE              
*        NORMAL MANNER.                                                         
*                                                                               
*        ON THE SECOND ENTRY: TABLENDX = 1, THE PRINT LINE IS RESET             
*        AND THE COLUMN TITLE 'JOB NAME   JOB ID' IS OUTPUT TO IDENTIFY         
*        THAT INFO IN COLS 1-20.                                                
*                                                                               
*        AFTER THE INITIAL ENTRY: TABLENDX > 0, THE JOB NAME AND ID             
*        NUMBER FOR JOB 'TABLENDX' IS OUTPUT, ITS OPLB2 ADDRESS FROM            
*        THE JCB PUT IN THE ADDRESS OF THE CURRENT SWS ITEM.  THEN THE          
*        SJI IS SEARCHED FOR THE NEXT ACTIVE JOB.  IF ONE IS FOUND,             
*        TABLENDX GETS ITS VALUE AND THE SWS POINTER IS BACKED UP ONE           
*        ENTRY SO THE SAME SWS WILL BE REPROCESSED.  IF NO NEXT ACTIVE          
*        JOB IS FOUND, THE SWS POINTER IS LEFT UNCHANGED, AND WILL              
*        REACH SWSND AFTER THE CURRENT ENTRY IS PROCESSED.                      
*                                                                               
*                                                                               
OPLBVAL  RES      0                                                             
         PUSH     16,R2             SAVE REGS SO R1 = CISWSP IS ON TOP          
         LW,R0    TABLENDX          GET JOB INDEX / ENTRY COUNT                 
         BNEZ     OPLBV1              NOT INITIAL ENTRY; DO NEXT JOB            
*                                                                               
*                           INITIAL ENTRY                                       
         MTW,+1   TABLENDX          POINT JOB INDEX TO CPR (RBM)                
         B        OPLBV5            GO EXIT TO DO OPLABEL NAMES                 
*                                                                               
OPLBV1   RES      0         SUBSEQUENT ENTRIES: PROCESS 2ND ENTRY               
         CI,R0    1                 IS IT 2ND ENTRY, FOR THE 1ST JOB ?          
         BNE      OPLBV2              NO, JUST DO THE NEXT JOB                  
*                                                                               
         LI,R0    1                 RESET PRINT COLUMN TO COL 1                 
         STW,R0   PRBFNDX                                                       
         LW,R13   OPJOBXLN          OUT 'JOB NAME   JOB ID' TITLE               
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT             PRINT THE TITLE LINE AND                    
         BAL,R15  PRINT             SPACE A LINE                                
*                                                                               
OPLBV2   RES      0         POINT AT OPLB2 TABLE FOR THE CURRENT JOB            
         LW,R11   KSJIJCB           GET ADDR OF OPLB2 TABLE FROM WORD 5         
         AW,R11   TABLENDX          OF THE JCB, WHOSE ADDRESS IS IN SJI1        
         BAL,R15  FINDCORE                                                      
         AI,R11   5                                                             
         BAL,R15  FINDCORE                                                      
         LW,R0    R11                                                           
         LW,R1    X1FFFF                                                        
         LW,R2    CISWSP            STORE IN SWS                                
         STS,R0   2,R2              THIS IS UPDATED FOR EACH JOB                
         LI,R0    3                 SET PRINT LINE POINTER BACK                 
         STW,R0   PRBFNDX           BACK TO COLUMN 3 (INDENTED 2)               
         LW,R11   KSJI2             GET THE JOB'S NAME FROM THE SJI             
         AW,R11   TABLENDX          ADJUST INDEX TO DWRD INDEX                  
         AW,R11   TABLENDX                                                      
         LW,R10   R11                 SJI2                                      
         BAL,R15  FINDCORE                (JOB INDEX)                           
         XW,R10   R11                                                           
         AI,R11   1                    AND                                      
         BAL,R15  FINDCORE              OUT                                     
         LI,R12   8                      NAME                                   
         LI,R13   R10                     TO                                    
         BAL,R15  LOADBUF1                 PRINTLINE                            
         MTW,+7   PRBFNDX           SET CP TO JOB INDEX POSITION                
         LW,R11   TABLENDX                                                      
         BAL,R8   BINBCD            CONVERT TO EBCDIC                           
         CI,R0    X'0F00'           IS IT A ONE DIGIT NUMBER ?                  
         BANZ     %+2                 NO, TWO; KEEP TENS DIGIT                  
         AI,R0    -(X'F000'-X'4000') 1 DIGIT: CONVERT TENS DIGIT TO BLANK       
         SLS,R0   16                AND                                         
         LI,R12   2                  ENTER IT                                   
         LI,R13   R0                  INTO THE                                  
         BAL,R15  LOADBUF1             PRINT LINE                               
*                                                                               
OPLBV3   RES      0         FIND INDEX TO NEXT ACTIVE JOB                       
         LW,R11   TABLENDX          GET INDEX TO JOB PROCESSING NOW             
         AI,R11   1                 ATEP TO NEXT                                
         CW,R11   SAVE              HAVE WE SCANNED THEM ALL ?                  
         BG       OPLBV5              YES, EXIT TO PROCESS LAST SWS             
*                                                                               
         STW,R11  TABLENDX          SAVE NEW INDEX                              
         AW,R11   KSJIJCB                                                       
         BAL,R15  FINDCORE          GET ADDRESS OF THE JCB                      
         CI,R11   0                 DOES JOB HAVE AN JCB ?                      
         BE       OPLBV3              NO, SKIP THE ENTRY HOLE                   
*                                                                               
         AI,R11   5                 GET ITS OPLB2 POINTER                       
         BAL,R15  FINDCORE                                                      
         CI,R11   0                 DOES IT HAVE A TABLE ?                      
         BE       OPLBV3              NO, SKIP JOB                              
*                                                                               
         LI,R0    OLSWS2            NEXT FOUND: RESET SWS PTR TO                
         STW,R0   CISWSP            REPROCESS THE LAST SWS ITEM.                
*                                                                               
OPLBV5   RES      0         EXIT TO PROCESS THE CURRENT JOB'S OPLB2 TABLE       
         PULL     16,R2                                                         
         B        DCTVAL            PROCESS IT LIKE A NORMAL TABLE NOW          
*                                                                               
*                                                                               
*                                                                               
PSDVAL   B        *R15              VALUE ALREADY IN VALTABLE.                  
         PAGE                                                                   
SDTVAL   RES      0                                                             
         PUSH     16,R0             SAVE THE REGS                               
         LCW,R6   #COL                                                          
         LW,R4    CISWSP                                                        
         LW,R5    2,R4                                                          
         AND,R5   XFFFFF                                                        
         LW,R11   R5                                                            
         AI,R11   -XX                                                           
         BGE      SDTVXIT           IF JUST 'XX', WE ARE DONE                   
*                                                                               
SDTVALLP RES      0         GET VALUE AT INDEX + (LOC FIELD IN SWS CELL)        
         LW,R7    #COL                                                          
         AW,R7    R6                FIX INDEX TO COUNT 1, 2, ...                
         LD,R10   VALTABLE,R7       GET INDEX VALUE FROM SECOND HALF            
         LW,R10   R11               OF VALTABLE (SET BY INDEX ROUTINE)          
         LW,R11   INDTABLE,R7                                                   
         AW,R11   R5                                                            
         BAL,R15  FINDCORE                                                      
         XW,R10   R11               VAL TO R10; INDEX TO R11                    
         STD,R10  VALTABLE,R7                                                   
         BIR,R6   SDTVALLP                                                      
SDTVXIT  RES      0                                                             
         PULL     16,R0             RESTORE ALL REGISTERS                       
         B        *R15                                                          
         TITLE    'ANALYZE ERROR RECOVERY PROCESSOR'                            
         SPACE    2                                                             
TRAPROUT RES      0         CATCH AND PROCESS TRAPS                             
         LW,R3    R1                SAVE STACK LOCATION OF STATUS               
         BAL,R15  PRINT             PRINT CURRENT PARTIAL LINE                  
         LI,R1    4                 AND SPACE SEVERAL LINES                     
         BAL,R15  SKIP              TO SEPARATE OUTPUT FROM DIAGNOSTICS         
         LW,R2    18,R3             GET TRAP LOCATION                           
         AI,R2    -X'40'            RELATIVISE TO MESSAGE INDEX                 
         BLZ      %+3               LESS THAN TRAP 40;                          
         CI,R2    X'45'-X'40'       BIGGER THAN MAX WE EXPECT ?                 
         BLE      %+2                 NO, USE AS INDEX TO MESSAGES              
         LI,R2    6                 SET DUMMY INDEX FOR BAD TRAP LOCS           
*                                                                               
         LW,R13   TRAPMSGS,R2       SET LOC OF MESSAGE                          
         BAL,R15  LOADBUF           OUT 'TRAP OF SOME SORT AT'                  
         LI,R1    12                SET TO OUTPUT TRAP ADDRESS                  
         LI,R2    20                                                            
         LW,R11   0,R3              GET ADDRESS FROM PSD                        
         AND,R11  X1FFFF            GET JUST ADDRESS PART                       
         AI,R11   -(ANALYSIS)       MAKE MODULE RELATIVE                        
         LI,R14   5                 SET FIELD WIDTH                             
         BAL,R15  HEXROUT           CONVERT AND ENTER ADDRESS                   
         LI,R1    3                 PRINT AND SKIP 2 LINES                      
         BAL,R15  SKIP                                                          
         LW,R13   TRAPMSGX          SAY 'UNABLE TO COMPLETE TABLE'              
         BAL,R15  LOADBUF                                                       
         BAL,R15  PRINT                                                         
*                                                                               
         LW,R1    R3                RESTORE SAVED STATUS POINTER                
         LI,R14   TRAPCONT          SET CONTINUE ADDRESS IN PSD                 
         LW,R15   X1FFFF                                                        
         STS,R14  0,R1                                                          
         M:TRTN                     AND CLEAR STACK, RETURN FOLLOWING..         
*                                                                               
         NOP      0                                                             
TRAPCONT NOP      0        RETURN HERE AFTER STACK CLEAN-UP                     
         LW,R1    ALGCT             MARK PAGE NUMBER TO SAY TABLE               
         LH,R0    TOCPAGE,R1        ANALYSIS WAS NOT COMPLETED                  
         AI,R0    X'8000'           BY                                          
         STH,R0   TOCPAGE,R1        SETTING MINUS SIGN BIT                      
        DO       (#SYSTEM='CP-V')                                               
         LW,R1    U:PCB             GET ADDRESS OF STACK DBLE WORD              
         LW,R0    1,R1              GET COUNT/SPACE WORD                        
        ELSE     (#SYSTEM='CP-R')                                               
         LW,R0    U:PCB+1           GET CP-R'S COUNT/SPACE STACK WORD           
        FIN                                                                     
         AND,R0   X7FFF             GET CURRENT SIZE OF STACK                   
         CI,R0    16                JUST THE ENTRY REGISTERS IN IT ?            
         BLE      NEXTALG             YES, (OR FEWER; GET ERROR LATER)          
*                                                                               
         AI,R0    -16               LEAVE THE ENTRY 16 IN STACK                 
         LCW,R0   R0                                                            
        DO       (#SYSTEM='CP-V')                                               
         MSP,R0   *U:PCB            POP ALL OTHER STUFF OUT                     
        ELSE     (#SYSTEM='CP-R')                                               
         MSP,R0   U:PCB             POP FOR CP-R                                
        FIN                                                                     
         B        NEXTALG           CONTINUE WITH NEXT ALG                      
         PAGE                                                                   
         SPACE    2                                                             
TRAPMSGS DEFTEXT  TRAP40,TRAP41     TRAP 40 MESSAGE                             
         DEFTEXT  TRAP41,TRAP42                                                 
         DEFTEXT  TRAP42,TRAP43                                                 
         DEFTEXT  TRAP43,TRAP44                                                 
         DEFTEXT  TRAP44,TRAP45                                                 
         DEFTEXT  TRAP45,TRAPXX                                                 
         DEFTEXT  TRAPXX,TRAPZZ                                                 
*                                                                               
TRAP40   TXTS     'NON-ALLOWED OPERATION TRAP AT '                              
TRAP41   TXTS     'UNIMPLEMENTED INSTRUCTION TRAP AT '                          
TRAP42   TXTS     'STACK ERROR AT '                                             
TRAP43   TXTS     'FIXED POINT ARITHMETIC TRAP AT '                             
TRAP44   TXTS     'FLOATING POINT ARITHMETIC TRAP AT '                          
TRAP45   TXTS     'DECIMAL ARITHMETIC TRAP AT '                                 
TRAPXX   TXTS     'OTHER FATAL ERROR TRAP AT '                                  
TRAPZZ   RES      0                                                             
*                                                                               
TRAPMSGX DEFTEXT  TRAPAMSG,TRAPAMND                                             
*                                                                               
TRAPAMSG TXTS     'UNABLE TO COMPLETE ANALYSIS OF THIS TABLE: SEE DUMP'         
TRAPAMND RES      0                                                             
         PAGE                                                                   
         SPACE    2                                                             
         END      ANALYSIS                                                      
