         PAGE                                                                   
         PSYS     0                                                             
         SYSTEM    SIG5P           CRASH REQUIRES PRIVLEDGED INST               
         PSYS     1                                                             
         LIST     0                                                             
         PAGE                                                                   
:#OLAY   SET      0                                                             
:#OLAY   SET      :#OLAY+(OLAYFLAG='DBDW')                                      
         LIST     :#OLAY                                                        
:#OLAY   SET      :#OLAY+(OLAYFLAG='DBC1')                                      
:#OLAY   SET      :#OLAY+(OLAYFLAG='DBC2')                                      
:#OLAY   SET      :#OLAY+(OLAYFLAG='DBC3')                                      
:#OLAY   SET      :#OLAY+(OLAYFLAG='DBS1')                                      
:#OLAY   SET      :#OLAY+(OLAYFLAG='DBS2')                                      
:#OLAY   SET      :#OLAY+(OLAYFLAG='DBS3')                                      
         DO       :#OLAY                                                        
         PAGE                                                                   
********************                                                            
********************                                                            
UTS      EQU      0                                                             
********************                                                            
********************                                                            
NEXT     EQU      0                                                             
LAST     EQU      1                                                             
NEW      EQU      2                                                             
LASTN    EQU      3                                                             
IGN      EQU      0                                                             
SYM      EQU      1                                                             
NUM      EQU      2                                                             
SYMNUM   EQU      3                                                             
HEX      EQU      1                                                             
DEC      EQU      2                                                             
SYS      EQU      1                                                             
USR      EQU      2                                                             
BOTH     EQU      3                                                             
OPC      EQU      4                                                             
COM      EQU      5                                                             
STR      EQU      6                                                             
EBCD     EQU      7                                                             
SBLK     EQU      0                                                             
BLK      EQU      1                                                             
NL       EQU      X'15'                                                         
WT       EQU      1                                                             
COMP     EQU      0                                                             
TRMPSD   EQU      0                 PSD TO BE USED FOR ABORT TERM               
TRMPSD2  EQU      1                                                             
         PAGE                                                                   
**********************                                                          
*        IPTS ID.     *                                                         
**********************                                                          
:#GETNS  EQU      0                                                             
:#GETHEX EQU      1                                                             
:#GETOP  EQU      2                                                             
:#GETEBC EQU      3                                                             
:#GETOPC EQU      4                                                             
:#SETBCK EQU      5                                                             
:#GETCOM EQU      6                                                             
:#GETEB  EQU      7                                                             
         PAGE                                                                   
*************************                                                       
*          PROCS         *                                                      
*************************                                                       
         PAGE                                                                   
*NAME    RDFPT,WT DCBADRS,BYTE,BUFADRS,BTD,ERROR,ABNOR,END,ENDM,COMPLT,         
*                 KEY,BLKBUF,FLG,PROMPT                                         
RDFPT    CNAME    X'10'                                                         
WRFPT    CNAME    X'11'                                                         
         PROC                                                                   
         LOCAL    B1,RT,ND,FLG,P1                                               
         LOCAL    P2,P3,P4,P6,P7,P8,P9                                          
         LOCAL    P10,P11                                                       
         LOCAL    B2,B3,B4,B5,B5A,B6,B7                                         
         LOCAL    B8,B9,B10                                                     
P1       SET      0                                                             
P2       SET      0                                                             
P3       SET      0                                                             
P4       SET      0                                                             
P6       SET      0                                                             
P7       SET      0                                                             
P8       SET      0                                                             
P9       SET      0                                                             
P10      SET      0                                                             
P11      SET      0                                                             
         BOUND    4                                                             
         DO       (OLAYFLAG='DBDW')&(UTS=1)                                     
LF       GEN,8,24  NAME,M:UC                                                    
         ELSE                                                                   
LF       GEN,8,24 NAME,AF(1)        WORD 0                                      
         FIN                                                                    
RT       SET      %                                                             
         ORG      %+1                                                           
         GOTO,NUM(AF)<5   B1                                                    
         GOTO,AFA(5)=1  B1          WORD 2                                      
         DATA     AF(5)             ERROR ADDRESS                               
P1       SET      1                                                             
B1       BOUND    1                                                             
         GOTO,NUM(AF)<6   B2                                                    
         GOTO,AFA(6)=1  B2          WORD 3                                      
         DATA     AF(6)             ABNORMAL ADDRESS                            
P2       SET      1                                                             
B2       BOUND    1                                                             
         GOTO,NUM(AF)<3   B3                                                    
         GOTO,AFA(3)=1  B3          WORD 4                                      
         DATA     AF(3)             BUFFER ADDRESS                              
P3       SET      1                                                             
B3       BOUND    1                                                             
         GOTO,NUM(AF)<2   B4                                                    
         GOTO,AFA(2)=1  B4          WORD 5                                      
         DATA     AF(2)             BYTE COUNT                                  
P4       SET      1                                                             
B4       BOUND    1                                                             
         GOTO,NUM(AF)<4   B5                                                    
         GOTO,AFA(4)=1  B5          WORD 6                                      
         DATA     AF(4)&3           BYTE DISPLACEMENT                           
P6       SET      1                                                             
B5       BOUND    1                                                             
         GOTO,NUM(AF)<13 B5A        PROMPT PARAMETER                            
         GOTO,AFA(13)=1 B5A                                                     
         DATA     BIT0+AF(13)       PROMPT RJ IN ADDRESS SUPPLIED               
P7       SET      1                                                             
B5A      BOUND    1                                                             
         GOTO,NUM(AF)<10  B6                                                    
         GOTO,AFA(10)=1   B6        WORD 7                                      
ENDTELIN EQU      ABSVAL(%)                                                     
         DATA     AF(10)            KEY-INSERT IF PRESENT                       
P8       SET      1                                                             
B6       BOUND    1                                                             
         GOTO,NUM(AF)<7   B7                                                    
         GOTO,AFA(7)=1  B7          WORD 8                                      
**                                                                              
         GEN,2,30 AF(8),AF(7)       END ACTION                                  
P9       SET      1                                                             
B7       BOUND    1                                                             
         GOTO,NUM(AF)<9   B8                                                    
         GOTO,AFA(9)=1  B8          WORD 9                                      
         DATA     AF(9)             COMPLETION STATUS                           
P10      SET      1                                                             
B8       BOUND    1                                                             
         GOTO,NUM(AF)<11  B9                                                    
         GOTO,AFA(11)=1 B9          WORD10                                      
         DATA     AF(11)            BLOCKING BUFFER ADDRESS                     
P11      SET      1                                                             
B9       BOUND    1                                                             
ND       SET      %                                                             
         ORG      RT                                                            
FLG      SET      0                                                             
         GOTO,NUM(AF)<12  B10                                                   
         GOTO,AFA(12)=1  B10                                                    
FLG      SET      AF(12)                                                        
B10      GEN,1,1,1,1,2,1,1,1,1,1,21 ;WORD 2                                     
                  P1,P2,P3,P4,P6,;  GENERATE P BITS AND FLAGS                   
                  P7,P8,P9,P10,P11,;                                            
                  FLG|(CF(2)**4)                                                
         ORG      ND                                                            
         PEND                                                                   
         PAGE                                                                   
*IPTNAME DOIPT    SCAN MODE,BUFFER ADDRESS,FIELD MODE,NUMBER MODE,              
*                 SYMBOL MODE,BLANK MODE,DELIMITERS                             
DOIPT    CNAME                      GENERATE INPUT PARAMETER TABLES             
         PROC                       FOR SCAN CALLS-GIVE EACH IPT A NAME         
         BOUND    4                                                             
LF       GEN,8,24 AF(1),AF(2)                                                   
         GEN,8,8,8,8    AF(3),AF(4),AF(5),AF(6)                                 
         GEN,8,24 NUM(AF)-6,%+1                                                 
N        DO       NUM(AF)-6                                                     
         DATA,1   AF(6+N)                                                       
         FIN                                                                    
         BOUND    4                                                             
         PEND                                                                   
         PAGE                                                                   
*        :#MOVE   SIZE,FROM,TO      SIZE IS IN WORDS  --   ADDRESSES ARE        
*                                   WORD ADDRESSES                              
*  REGISTERS USED                                                               
*    R4,R5,R6,R8                                                                
:#MOVE   CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         ADRS,R4  AF(1)                                                         
         ADRS,R5  AF(2),R2                                                      
         ADRS,R6  AF(3),R2                                                      
         BAL,R8   CF(1)                                                         
         PEND                                                                   
         PAGE                                                                   
*REGISTERS USED                                                                 
*  R7,R8                                                                        
:#CNIFS  CNAME                                                                  
:#RLSPC  CNAME                                                                  
:#CNIFX  CNAME                                                                  
:#CNIFD  CNAME                                                                  
:#CNIFB  CNAME                                                                  
:#CNIFE  CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         ADRS,R7  AF(1),R2                                                      
         BAL,R8   CF(1)                                                         
         PEND                                                                   
*                                                                               
*                                                                               
:#GTSPC  CNAME                                                                  
:#DBERR1 CNAME                                                                  
:#DBERR2 CNAME                                                                  
:#DBERR3 CNAME                                                                  
:#DBERR4 CNAME                                                                  
:#DBERR5 CNAME                                                                  
:#DBERR6 CNAME                                                                  
:#DBERRA CNAME                                                                  
:#DBERRB CNAME                                                                  
:#DBERRC CNAME                                                                  
:#DBERRD CNAME                                                                  
:#SCAN   CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         ADRS,R7  AF(1)                                                         
         BAL,R8   CF(1)                                                         
         PEND                                                                   
*                                                                               
*                                                                               
:#DBERRX CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         ADRS,R7  AF(1)                                                         
         B        *:#CALERR                                                     
         PEND                                                                   
         PAGE                                                                   
*  RETURN IN R6                                                                 
*  REGISTERS USED                                                               
*    R6,R10                                                                     
* GET STATUS RETURNED FROM SCAN                                                 
GETSTS   CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         LB,R6    R10                                                           
         PEND                                                                   
         PAGE                                                                   
* GET ERROR RETURNED FROM SCAN                                                  
*  RETURN IN R6                                                                 
*  REGISTERS USED                                                               
*   R6                                                                          
GETERR   CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         LI,R6    1                                                             
         LB,R6    R10,R6                                                        
         PEND                                                                   
         PAGE                                                                   
* GET DELIMITER RETURNED FROM SCAN                                              
*  RETURN IN R6                                                                 
*  REGISTERS USED                                                               
*    R6                                                                         
GETDLM   CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         LI,R6    3                                                             
         LB,R6    R10,R6                                                        
         PEND                                                                   
         PAGE                                                                   
*  GET EMPTY FIELD STATUS RETURNED FROM SCANLOC AND SCANWRD                     
*  RETURN IN R6                                                                 
*  REGISTERS USED                                                               
*    R6                                                                         
GETEMF   CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         LI,R6    1                                                             
         LB,R6    R7,R6                                                         
         CI,R6    X'10'                                                         
         PEND                                                                   
         PAGE                                                                   
*        ADRS,R   AF(N)             GENERATES EITHER:                           
*                                   LI,R  AF(N) IF AFA(N)=0                     
*                                   LW,R  AF(N) IF AFA(N)=1                     
ADRS     CNAME                                                                  
         PROC                                                                   
         LOCAL    B1,B2,X                                                       
X        SET      S:UFV(AF(1))                                                  
         GOTO,AFA(1)=1 B1                                                       
         LI,CF(2) X                                                             
         DO1      NUM(AF(2))>0                                                  
         AW,CF(2)  AF(2)                                                        
         GOTO     B2                                                            
B1       LW,CF(2) X                                                             
B2       BOUND    1                                                             
         PEND                                                                   
         PAGE                                                                   
*        :#STORE  SIZE,START,CONTENT                                            
*                                    STORES  CONTENT IN SIZE WORDS BEGIN        
*                                     NING WITH START                           
*REGISTERS USED                                                                 
* R5,R6,R7,R8                                                                   
:#STORE  CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         ADRS,R5  AF(1)                                                         
         ADRS,R6  AF(2),R2                                                      
         ADRS,R7  AF(3)                                                         
         BAL,R8   CF(1)                                                         
         PEND                                                                   
         PAGE                                                                   
*        SETBUF   BUFFER,BYTE COUNT                                             
*                  STORES  BUFFER IN WRTFPT+4                                   
*                  STORES  BYTE COUNT IN WRTFPT+5                               
*        REGISTERS USED                                                         
*        R6                                                                     
SETBUF   CNAME                                                                  
         PROC                                                                   
LF       RES      0                                                             
         ADRS,R6  AF(1),R2                                                      
         STW,R6   :#WRFPT+4,R2                                                  
         ADRS,R6  AF(2)                                                         
         STW,R6   :#WRFPT+5,R2                                                  
         PEND                                                                   
         PAGE                                                                   
WD       COM,1,7,4,3,17    AFA(1),X'6D',CF(2),AF(2),AF(1)                       
         PAGE                                                                   
*****************0) *                                                           
BEGINLOC EQU     %                                                              
*  GENERAL   LOCALS                                                             
         BOUND    8                                                             
REG0       RES    0                                                             
:#REG0   EQU      ABSVAL(REG0)                                                  
         DATA     X'F0'             REGISTER     0                              
         DATA     X'F1'             REGISTER     1                              
         DATA     X'F2'             REGISTER     2                              
         DATA     X'F3'             REGISTER     3                              
         DATA     X'F4'             REGISTER     4                              
         DATA     X'F5'             REGISTER     5                              
         DATA     X'F6'             REGISTER     6                              
         DATA     X'F7'             REGISTER     7                              
         DATA     X'F8'             REGISTER     8                              
         DATA     X'F9'             REGISTER     9                              
         DATA     X'C1'             REGISTER     10                             
         DATA     X'C2'             REGISTER     11                             
         DATA     X'C3'             REGISTER     12                             
         DATA     X'C4'             REGISTER     13                             
         DATA     X'C5'             REGISTER     14                             
         DATA     X'C6'             REGISTER     15                             
         BOUND    8                                                             
INBF     RES      0                 INPUT BUFFER-1 RECORD                       
:#INBF   EQU      ABSVAL(INBF)                                                  
         RES      20                                                            
ENDINBF  RES      0                                                             
         ORG      INBF                                                          
***********************************                                             
*                                                                               
*        USE INPUT RESERVE AREA(20 CELLS) FOR INITIALIZATION                    
*        ERROR MESSAGES WITH TYPE CAL.                                          
*                                                                               
***********************************                                             
ERRMSG   RES      0                                                             
:#ERRMSG EQU      ABSVAL(ERRMSG)                                                
         DATA     X'02000000'                                                   
         DATA     X'80000010'                                                   
         DATA     3                                                             
         DATA,1   36,':','D','E'                                                
         TEXT     'BUG ABORT/NO B-BUF FOR  '                                    
OPLBMSG  RES      0                                                             
:#OPLMSG EQU      ABSVAL(OPLBMSG)                                               
         DATA,1   35,':','A','B'                                                
         TEXT     'ORT - BAD DEVICE ID FOR '                                    
LBERRT   DATA     0,0               TASK NAME HERE                              
:#LBERRT EQU      ABSVAL(LBERRT)                                                
         ORG      ENDINBF                                                       
************************                                                        
*        END OF RESERVE AREA                                                    
*******************************                                                 
NLCODE   RES      0                                                             
         DATA     X'15151515'                                                   
PRTBF    DATA,1   ':',0,0,0                                                     
:#PRTBF  EQU      ABSVAL(PRTBF)                                                 
         BOUND    4                                                             
T0       DATA     0                                                             
T1       DATA     0                                                             
CSMAD    DATA     0                 ADDRESS OF CLOSEST SYMBOL FOR :#CNIF        
:#CSMAD  EQU      ABSVAL(CSMAD)                                                 
CSMVL    DATA     0                 VALUE OF CLOSEST SYMBOL                     
:#CSMVL  EQU      ABSVAL(CSMVL)                                                 
CURLC    DATA     0                 CURRENT LOCATION FOR :#INSRT  OR MOD        
:#CURLC  EQU      ABSVAL(CURLC)                                                 
CCSV     DATA     0                 LAST USER   CONDITION CODES                 
:#CCSV   EQU      ABSVAL(CCSV)                                                  
:#QCCSV  EQU      BA(CCSV)-BA(BEGINLOC)                                         
FLSV     DATA     0                 LAST USER   FLOATIN CODES                   
:#FLSV   EQU      ABSVAL(FLSV)                                                  
:#DBP    EQU      :#INBF+400                                                    
DBERR    DATA     0                 ENTRY INTO OLAYDBS5                         
:#DBERR  EQU      ABSVAL(DBERR)         ON ERROR CONDITION                      
USRIN    DATA     0                 ENTRY INTO OLAY-DBS5                        
:#USRIN  EQU      ABSVAL(USRIN)          ON NEW REQUEST                         
DBCALERR DATA     0                 RETURN LOC.OF CAL                           
:#CALERR EQU      ABSVAL(DBCALERR)                                              
S3LINK   DATA     0                 LINK REG. INTO DBS3                         
:#S3LINK EQU      ABSVAL(S3LINK)                                                
WRFPT    WRFPT,WT :#FDL,80,:#INBF,*,; DO WRITE                                  
                  :#WRER,:#WRER,*,*,COMP                                        
:#WRFPT  EQU      ABSVAL(WRFPT)                                                 
******************************                                                  
******************************                                                  
*  LOCAL FOR :#USRIN                                                            
RDFPT    RDFPT,WT :#FDI,80,:#INBF,*,;  DO READ                                  
                  :#RDER,:#RDER,*,*,COMP,*,*,*,R10                              
:#RDFPT  EQU      ABSVAL(RDFPT)                                                 
:#RDCMP  EQU      :#RDFPT+7                                                     
******************************                                                  
******************************                                                  
*  LOCAL FOR :#SCAN                                                             
*  IN ALL OF THE POSITION AND COUNT PARAMETERS                                  
*        0 IS THE FIRST POSITION - BYTE 0                                       
*        THE FIRST COUNT WILL BE 1                                              
CHRPS    DATA     0                 CURRENT CHARACTER   POSITION                
:#CHRPS  EQU      ABSVAL(CHRPS)                                                 
FLDCT     DATA    0                 CURRENT FIELD COUNT                         
:#FLDCT  EQU      ABSVAL(FLDCT)                                                 
SCHPS    DATA     0                 FIRST CHARACTER   IN FIELD-POSITION         
:#SCHPS  EQU      ABSVAL(SCHPS)                                                 
ECHPS    DATA     0                 LAST CHARACTER   IN FIELD-POSITION          
:#ECHPS  EQU      ABSVAL(ECHPS)                                                 
CHRCT     DATA    0                 CURRENT CHARACTER   COUNT IN FIELD          
:#CHRCT  EQU      ABSVAL(CHRCT)                                                 
SYCCT    DATA     0                 COUNT OF CHARACTERS   IN THE :#SYMBL        
:#SYCCT  EQU      ABSVAL(SYCCT)                                                 
*  ALL MODE PARAMETERS   ARE SET TO 0 TO INDICATE THAT THE MODE                 
*        IS NOT SET AND SET TO 1 TO INDICATE THAT THE MODE IS SET.              
SYMOD    DATA     0                 CONVERT   AS A EBCDIC :#SYMBL               
:#SYMOD  EQU      ABSVAL(SYMOD)                                                 
HXMOD    DATA     0                 CONVERT   AS HEX                            
:#HXMOD  EQU      ABSVAL(HXMOD)                                                 
RETRN    DATA     0                 RETURN FOR :#SCAN                           
:#RETRN  EQU      ABSVAL(RETRN)                                                 
SSMOD    DATA     0                 DO A SYSTEM :#SYMBL SEARCH                  
:#SSMOD  EQU      ABSVAL(SSMOD)                                                 
         BOUND    8                                                             
SYMBL    DATA     0,0,0             UP TO EIGHT CHAR OF EBCDIC                  
:#SYMBL  EQU      ABSVAL(SYMBL)                                                 
DELIM    DATA     0                 DELIMITER   FOUND BY :#SCAN                 
:#DELIM  EQU      ABSVAL(DELIM)                                                 
FLDST    DATA     0                 FIELD STATUS-:#RETRN TO USER                
:#FLDST  EQU      ABSVAL(FLDST)                                                 
SERET     DATA    0                 :#RETRN FOR ALL SEARCH ROUTINES             
:#SERET  EQU      ABSVAL(SERET)                                                 
ERCOD     DATA    0                 ERROR CODE TO BE :#RETRNED                  
:#ERCOD  EQU      ABSVAL(ERCOD)                                                 
******************************                                                  
******************************                                                  
*  LOCAL FOR :#SCNLC                                                            
SCLRT    DATA     0                 :#RETRN FROM :#SCNLC                        
:#SCLRT  EQU      ABSVAL(SCLRT)                                                 
OPFG     DATA     0                       OPERATOR   FLAG                       
:#OPFG   EQU      ABSVAL(OPFG)                                                  
*                                      STATUS FROM :#SCAN                       
VALUE    DATA     0                 PARTIAL SUM FOR SCNLOC                      
:#VALUE  EQU      ABSVAL(VALUE)                                                 
ADVAL    DATA     0                 PLACE TO SAVE ADDRESS                       
:#ADVAL  EQU      ABSVAL(ADVAL)                                                 
ADOPF    DATA     0                 PLACE TO SAVE OP FLAG                       
:#ADOPF  EQU      ABSVAL(ADOPF)                                                 
ADML     DATA     0                 ADDRESS RESOLUTION MULT                     
:#ADML   EQU      ABSVAL(ADML)                                                  
INDFG    DATA     0                 INDIRECT BIT FLAG                           
:#INDFG  EQU      ABSVAL(INDFG)                                                 
******************************                                                  
******************************                                                  
*  LOCAL FOR :#SCNWD                                                            
REG      DATA     0                 :#VALUE OF REGISTER                         
:#REG    EQU      ABSVAL(REG)                                                   
INDX     DATA     0                 :#VALUE FOR INDEX                           
:#INDX   EQU      ABSVAL(INDX)                                                  
XADRS    DATA     0                 :#VALUE OF ADDRESS FIELD                    
:#ADRS   EQU      ABSVAL(XADRS)                                                 
OPCD     DATA     0                 :#VALUE OF OPCODE FIELD                     
:#OPCD   EQU      ABSVAL(OPCD)                                                  
INDRC    DATA     0                 INDIRECT FLAG                               
:#INDRC  EQU      ABSVAL(INDRC)                                                 
CLASS    DATA     0                 CLASS OF INSTRUCTION                        
:#CLASS  EQU      ABSVAL(CLASS)                                                 
SCWRT    DATA     0                 :#RETRN FOR :#SCNWD                         
:#SCWRT  EQU      ABSVAL(SCWRT)                                                 
SLWRT    DATA     0                 :#RETRN FOR :#SCNLW                         
:#SLWRT  EQU      ABSVAL(SLWRT)                                                 
******************************                                                  
******************************                                                  
* LOCAL STORAGE FOR :#SCNDR                                                     
SCDRT    DATA     0                 :#RETRN FOR :#SCNDR                         
:#SCDRT  EQU      ABSVAL(SCDRT)                                                 
******************************                                                  
******************************                                                  
*  LOCAL FOR :#DUMP                                                             
DMPMD    DATA     0                 MODE--0 FOR DL-1 FOR D                      
:#DMPMD  EQU      ABSVAL(DMPMD)                                                 
DMPRT    DATA     0                 :#RETRN FROM DODUMP                         
:#DMPRT  EQU      ABSVAL(DMPRT)                                                 
:#DMPDL  EQU      ABSVAL(T1)        :#DELIMITER   :#RETRNED FROM :#SCNDR        
DMPLC    DATA     0                 LAST LOC :#DUMPED + 1                       
:#DMPLC  EQU      ABSVAL(DMPLC)                                                 
         BOUND    8                                                             
DMPBF    RES      0                 :#DUMP BUFFER-1   LINE LONG                 
:#DMPBF  EQU      ABSVAL(DMPBF)                                                 
:#QDMPBF EQU      BA(DMPBF)-BA(BEGINLOC)                                        
*********************************                                               
*                                                                               
*        DUMP LINE BUFFER AREA OF 22 CELLS IS USED DURING                       
*        DEBUG INITIALIZATION FOR DEVICE/OPLABEL/DCB                            
*        MANIPULATIONS.                                                         
*                                                                               
*********************************                                               
DVTYPE   DATA     0                 DEBUG DEVICE TYPE ID.                       
         DATA     0                 DEFAULT OF ZERO IMPLIES OC                  
:#DVTYPE EQU      ABSVAL(DVTYPE)                                                
WKNGAREA DATA     0                 ADDRESS OF WORKING AREA                     
:#WKAREA EQU      ABSVAL(WKNGAREA)                                              
DEVFPT   DATA     0,P2,0            FPT TO LINKUP DCB                           
:#DEVFPT EQU      ABSVAL(DEVFPT)                                                
:#DEVDCB EQU      ABSVAL(%)         LIST FOR DEVFPT                             
         DATA,2   X'0880',:#FDI     IN WORKING AREA                             
         DATA,2   X'0880',:#FDL     IN WORKING AREA                             
         DATA,2   X'0880',:#FDP     IN DATA AREA                                
         DATA,2   X'0880',:#FP1     IN DATA AREA                                
         DATA,2   X'0880',:#FP2     IN DATA AREA                                
:#DBOPLB EQU      ABSVAL(%)         LIST OF DEBUG OPLABELS                      
         DATA,2   X'6280','DI'                                                  
         DATA,2   X'6280','DL'                                                  
         DATA,2   X'6280','DP'                                                  
         DATA,2   X'6280','P1'                                                  
         DATA,2   X'6280','P2'                                                  
ENDTEMP  RES      0                                                             
:#NUMOPL EQU      :#DBOPLB-:#DEVDCB                                             
         RES      DMPBF+22-ENDTEMP                                              
**************************************                                          
*                                                                               
DMPBFE   RES      0                                                             
:#DPBFS   EQU     DMPBFE-DMPBF                                                  
:#DPBYS  EQU      4*:#DPBFS                                                     
         BOUND    8                                                             
CONVL     RES     8                 RESULT OF NUMBER   CONVERSION               
:#CONVL  EQU      ABSVAL(CONVL)                                                 
:#QCONVL EQU      BA(CONVL)-BA(BEGINLOC)                                        
NCCT     DATA     0                 NUMBER   OF CHARACTERS/ELEMENT              
:#NCCT   EQU      ABSVAL(NCCT)                                                  
SPCT     DATA     1                 NUMBER   OF SPACES AFTER EACH ELEMEN        
:#SPCT   EQU      ABSVAL(SPCT)                                                  
NLCT     DATA     0                 NUMBER   OF ELEMENTS/LINE                   
:#NLCT   EQU      ABSVAL(NLCT)                                                  
SPMD     DATA     0                 SPACER   MODE FLAG                          
:#SPMD   EQU      ABSVAL(SPMD)                                                  
DPFPT    WRFPT,WT :#FDL,:#DPBYS,:#DMPBF,0,; DO DUMP                             
                  :#DPER,:#DPER,*,*,COMP                                        
***************************                                                     
***************************                                                     
*  LOCAL FOR :#DBERR                                                            
:#ERBF   EQU      ABSVAL(DMPBF)                                                 
:#ERNTX  EQU      :#ERBF+1                                                      
:#ERFTX  EQU      :#ERBF+5                                                      
:#DPFPT  EQU      ABSVAL(DPFPT)                                                 
******************************                                                  
******************************                                                  
*  LOCAL FOR MODIFY                                                             
:#MDBF   EQU      :#DMPBF                                                       
:#MDBFS  EQU      :#DPBFS                                                       
******************************                                                  
******************************                                                  
*  LOCAL FOR :#INSRT                                                            
:#INTYP  EQU      ABSVAL(T0)        TYPE OF :#INSRT  SPECIFIED                  
**************************                                                      
**************************                                                      
*  LOCAL FOR NAME                                                               
FRSYM    DATA     ABSVAL(DBGSYM)    POINTER   TO FIRST :#SYMBL                  
:#FRSYM  EQU      ABSVAL(FRSYM)                                                 
CUSYM    DATA     ABSVAL(CUSYMPT)   POINTER   TO CURRENT :#SYMBL                
:#CUSYM  EQU      ABSVAL(CUSYM)                                                 
         BOUND    8                                                             
VLBF     TEXT     '     = .'                                                    
:#VLBF   EQU      ABSVAL(VLBF)                                                  
VL       DATA     0,0                                                           
:#VL     EQU      ABSVAL(VL)                                                    
*************************                                                       
*************************                                                       
* ADDITIONS TO SNAP FOR OVERLAY STRUTURE                                        
BASEAD   DATA     0                  ADDRESS OF BASE TABLE                      
:#BASEAD EQU      ABSVAL(BASEAD)                                                
SBLPT    DATA     :#SYMBL           POINTER TO SYMBOL                           
:#SBLPT  EQU      ABSVAL(SBLPT)                                                 
TEMP1DB  DATA     0                  TEMP CELL ONLY                             
:#TEMP1  EQU      ABSVAL(TEMP1DB)                                               
SNAPIN   RES      0                  ENTER OVERLAY HERE                         
:#SNAPIN EQU      ABSVAL(SNAPIN)                                                
         STCF     :#CCSV                                                        
         LW,R2    :#BASEAD                                                      
         DO       OLAYFLAG='DBDW'                                               
         B        :#DOSNAP                                                      
         ELSE                                                                   
         DATA     0                                                             
         FIN                                                                    
SNPOUT   RES      0                  EXIT OVERLAY HERE                          
:#SNPOUT EQU      ABSVAL(SNPOUT)                                                
         LW,R2    :#REG0+2                                                      
         LCF      :#CCSV                                                        
         B        *:#SNPSV                                                      
         LW,R2    :#REG0+2                                                      
         LCF      :#CCSV                                                        
         EXU      :#OLINS          DO EXU LAST IN CASE OF :#BRNCH               
         B        *:#SNPSV                                                      
*************************                                                       
*************************                                                       
*  LOCAL FOR SNAP                                                               
LOCSV    DATA     0                 LOCATION WHERE   SNAP IS TO BE :#MOV        
:#LOCSV  EQU      ABSVAL(LOCSV)                                                 
SNPSV    DATA     0                 LOCATION WHERE   SNAP WAS                   
:#SNPSV  EQU      ABSVAL(SNPSV)                                                 
OLSNP    DATA     0                 LOCATION WHERE   SNAP WAS                   
:#OLSNP  EQU      ABSVAL(OLSNP)                                                 
OLINS    DATA     0                 OLD INSTRUCTION                             
:#OLINS  EQU      ABSVAL(OLINS)                                                 
:#SNPTP  EQU      ABSVAL(T0)        INDICATES SNAP AND BREAK OR NOT             
IDBF     TEXT     ':SNP AT '                                                    
:#IDBF   EQU      ABSVAL(IDBF)                                                  
IDLOC    DATA     0,0,0,0                                                       
:#IDLOC  EQU      ABSVAL(IDLOC)                                                 
IDBFE    RES      0                                                             
:#IDBFE  EQU      ABSVAL(IDBFE)                                                 
:#IDSZ   EQU      BA(IDBFE)-BA(IDBF)                                            
************************                                                        
*************************                                                       
*  LOCAL FOR REMOVE                                                             
:#ELTYP  EQU      ABSVAL(T0)        CONTAINS TYPE OF PATCH TO REMOVE            
:#RMRET  EQU      ABSVAL(T1)        :#RETRN FROM REMOVE   PATCH ROUTINE         
*************************                                                       
*************************                                                       
* LOCAL FOR :#TINIT                                                             
TRAPIN   RES      0                 ENTRY UPON TRAPING                          
         LW,R2    :#BASEAD                                                      
         DO       OLAYFLAG='DBDW'                                               
         B        :#DOTRAP                                                      
         ELSE                                                                   
         DATA     0                                                             
         FIN                                                                    
:#TRAP   EQU      ABSVAL(TRAPIN)                                                
TRPBF    TEXT     ':TRA'                                                        
:#TRPBF  EQU      ABSVAL(TRPBF)                                                 
TRPNM    DATA     'P   '                                                        
:#TRPNM  EQU      ABSVAL(TRPNM)                                                 
         TEXT     '/    AT '                                                    
TRPAD    TEXT     '                '                                            
:#TRPAD  EQU      ABSVAL(TRPAD)                                                 
TRPBE    RES      0                                                             
:#TRPBE  EQU      ABSVAL(TRPBE)                                                 
:#TRPBS  EQU      BA(TRPBE)-BA(TRPBF)                                           
INMSG    TEXT     'TASK IS '                                                    
:#INMSG  EQU      ABSVAL(INMSG)                                                 
TSNAM    DATA     0,0               NAME OF CURRENT TASK                        
:#TSNAM  EQU      ABSVAL(TSNAM)                                                 
INMSE    RES      0                                                             
:#INMSE  EQU      ABSVAL(INMSE)                                                 
:#INMSZ  EQU      BA(INMSE)-BA(INMSG)                                           
*************************                                                       
*************************                                                       
*  LOCAL FOR :#LOOK                                                             
LOKBF    RES      0                                                             
:#LOKBF  EQU      ABSVAL(LOKBF)                                                 
         DATA     0,0,0,0                                                       
         DATA     '   .'                                                        
LOKWD    DATA     0,0               CONTENTS THAT MATCH                         
:#LOKWD  EQU      ABSVAL(LOKWD)                                                 
LOKBE    RES      0                                                             
:#LOKBE  EQU      ABSVAL(LOKBE)                                                 
:#LOKBS  EQU      BA(LOKBE)-BA(LOKBF)                                           
*************************                                                       
*************************                                                       
* LOCAL FOR CONSEG                                                              
:#CNSMD  EQU      ABSVAL(T0)        MODE FOR SEG CAL A,D,E                      
SGFPT    DATA     0                 FPT FOR SEG CAL                             
:#SGFPT  EQU      ABSVAL(SGFPT)                                                 
:#QSGFPT EQU      BA(SGFPT)-BA(BEGINLOC)                                        
         DATA     X'00400000'                                                   
         DATA     0                 COPPLETION STATUS                           
*************************                                                       
*************************                                                       
*   LOCAL FOR :#ASSGN                                                           
DBSTDLB  GEN,8,1,23    X'62',1,0    DO ASSIGN                                   
:#STDLB  EQU      ABSVAL(DBSTDLB)                                               
         DATA     P1+P3+F3                                                      
         DATA     :#SDER            STANDARD LABEL ERROR                        
STDNM    DATA     :#DVTYPE          FILE OR RESOURCE NAME                       
:#STDNM  EQU      ABSVAL(STDNM)                                                 
:#STDPRM EQU      ABSVAL(STDNM)                                                 
:#AREANM EQU      ABSVAL(DMPBF)     AREA NAME ADDRESS FOR FPT                   
:#DORFNM EQU      ABSVAL(DMPBF+1)   DEVICE OR FILE NAME ADDRESS                 
******************************                                                  
******************************                                                  
*  LOCAL FOR :#PATCH                                                            
BATMD    DATA     0                 0 FOR ON LINE-1 FOR BATCH                   
:#BATMD  EQU      ABSVAL(BATMD)                                                 
         PAGE                                                                   
******************************                                                  
******************************                                                  
*   LOCAL FOR WORK SPACE                                                        
SPCRT    DATA     0                 :#RETRN FOR SPACE ROUTINES                  
:#SPCRT  EQU      ABSVAL(SPCRT)                                                 
WTAB     DATA     ABSVAL(WORK)      POINTER   TO CURRENT WORK SPACE             
:#WTAB   EQU      ABSVAL(WTAB)                                                  
PCBVPT   DATA     :#PCBVL                                                       
:#PCBVPT EQU      ABSVAL(PCBVPT)                                                
*************************                                                       
*************************                                                       
*   DCBS IN LOCAL CONTEXT                                                       
FDP      GEN,8,24  X'7',X'103'                                                  
         GEN,8,24  X'2',0           OP LABEL INDEX                              
         DATA     0                                                             
         GEN,15,17  80,:#RDER                                                   
         GEN,15,17  0,:#RDER                                                    
         DATA     0,0                                                           
:#FDP    EQU      ABSVAL(FDP)                                                   
FDO      GEN,8,24  X'7',X'103'                                                  
         GEN,8,24  X'2',5           OP LABEL INDEX                              
         DATA     0                                                             
         GEN,15,17  80,0                                                        
         GEN,15,17  0,0                                                         
         DATA     0,0                                                           
:#FDO    EQU      ABSVAL(FDO)                                                   
FP1      GEN,8,24  X'7',X'103'                                                  
         GEN,8,24  X'2',0           OP LABEL INDEX                              
         DATA     0                                                             
         GEN,15,17  80,0                                                        
         GEN,15,17  0,0                                                         
         DATA     0,0                                                           
:#FP1    EQU      ABSVAL(FP1)                                                   
FP2      GEN,8,24  X'7',X'103'                                                  
         GEN,8,24  X'2',0           OP LABEL INDEX                              
         DATA     0                                                             
         GEN,15,17  80,0                                                        
         GEN,15,17  0,0                                                         
         DATA     0,0                                                           
:#FP2    EQU      ABSVAL(FP2)                                                   
FDI      GEN,8,24  X'7',X'103'                                                  
         GEN,8,24  X'2',0           OP LABEL INDEX                              
         DATA     0                                                             
         GEN,15,17  80,:#RDER                                                   
         GEN,15,17  0,:#RDER                                                    
         DATA     0,0                                                           
:#FDI    EQU      ABSVAL(FDI)                                                   
FDL      GEN,8,24  X'7',X'003'                                                  
         GEN,8,24  X'2',0           OP LABEL INDEX                              
         DATA     0                                                             
         GEN,15,17  80,0                                                        
         GEN,15,17  0,0                                                         
         DATA     0,0                                                           
:#FDL    EQU      ABSVAL(FDL)                                                   
**************************                                                      
*      FPT ERRORS         *                                                     
**************************                                                      
*                                                                               
WRER     RES      0                 WRITE ERROR OR ABNORMAL                     
:#WRER   EQU      ABSVAL(WRER)                                                  
         :#DBERRX X'1F1'                                                        
*                                                                               
RDER     RES      0                 READ ERROR OR ABNORMAL                      
:#RDER   EQU      ABSVAL(RDER)                                                  
         DO       OLAYFLAG='DBDW'                                               
         B        :#RERCHK                                                      
         ELSE                                                                   
         DATA     0                                                             
         FIN                                                                    
*                                                                               
DPER     RES      0                 DUMP ERROR OR ABNORMAL                      
:#DPER   EQU      ABSVAL(DPER)                                                  
         :#DBERRX X'1F3'                                                        
*                                                                               
SDER     RES      0                 STDLB ASSIGN ERROR                          
:#SDER   EQU      ABSVAL(SDER)                                                  
         :#DBERRX X'134'                                                        
************************                                                        
:#DBTEST EQU      ABSVAL(WTAB)                                                  
TBFLAG   DATA     0                 FLAGS TRAP/BREAK PROCESS OR PENDING         
:#TBFLAG EQU      ABSVAL(TBFLAG)                                                
INTODB   DATA     0                 0-EXEC. EXTERNAL TO DEBUG                   
:#INTODB EQU      ABSVAL(INTODB)    NZ- EXEC. INTERNAL TO DEBUG                 
*        ENDING OF DATA BLOCK AREA, BEGIN WORK AREA                             
         PAGE                                                                   
WKAREA   ORG      BEGINLOC+256                                                  
         RES      1                 OFF SET BY SOMETHING                        
         PAGE                                                                   
*************************                                                       
*************************                                                       
*   WORK SPACE REALLY BEGINS HERE                                               
WORK     RES      0                                                             
         DATA     ABSVAL(WORKS)     THIS BUFFER   CURRENT                       
         DATA     WORKE             THIS BUFFER   END                           
         DATA     0                 LAST BUFFER   START                         
         DATA     0                 NEXT BUFFER   START                         
DBGSYM   GEN,8,16,8  X'11',0,6                                                  
         DATA     0                 POINTER TO LAST SYMBOL                      
         DATA     ABSVAL(PCBSYM)                                                
TSKSTRT  DATA     REG0              TASK STARTING ADDRESS                       
:#START  EQU      ABSVAL(TSKSTRT)                                               
         TEXT     'DEBUG   '                                                    
PCBSYM   GEN,8,16,8  X'11',0,6                                                  
         DATA     ABSVAL(DBGSYM)                                                
         DATA     ABSVAL(BLKSYM)    POINTER TO NEXT SYMBOL                      
PCBVL    DATA     0                                                             
:#PCBVL  EQU      ABSVAL(PCBVL)                                                 
         TEXT     'PCBADDRS'                                                    
CUSYMPT  RES      0                 START OF CURRENT SYMBOL                     
BLKSYM   GEN,8,16,8   X'11',0,6     BLANK SYMBOL=0                              
         DATA     ABSVAL(PCBSYM)    LAST SYMBOL                                 
         DATA     0                 NEXT SYMBOL                                 
         DATA     0                 SYMBOL VALUE                                
         TEXT     '        '                                                    
WORKS    RES      0                                                             
WORKE    EQU      512                                                           
         FIN      :#OLAY                                                        
         LIST     0                                                             
:#OLAY   SET      0                                                             
:#OLAY   SET      :#OLAY+(OLAYFLAG='TEX1')                                      
:#OLAY   SET      :#OLAY+(OLAYFLAG='TEX2')                                      
         LIST     :#OLAY                                                        
         DO       :#OLAY                                                        
DCBMAX   EQU      11                                                            
QUELIMIT EQU      DCBMAX                                                        
         PAGE                                                                   
WKAREA   RES      0                                                             
ERROR    EQU      ABSVAL(%)         FILLED WITH TEX1 OLAY RETURN                
         RES      1                                                             
ENDING1  EQU      ABSVAL(%)         RETURN ADDRESS OF ACCFAIL                   
         DATA     0                                                             
ENDING2  EQU      ABSVAL(%)         RETURN ADDRESS FOR LINEOFF                  
         DATA     0                                                             
ENDING3  EQU      ABSVAL(%)         RETURN ADDRESS FOR TEL INIT                 
         DATA     0                                                             
ENDING4  EQU      ABSVAL(%)         RETURN LINK FOR TEL INIT(TEST)              
         DATA     0                                                             
*                 THE ABOVE FIVE CELL MUST STAY TOGETHER                        
POWERS   EQU      ABSVAL(%)         POWER OF 2 COVERING BLOCKS OF AI            
         DATA     0                                                             
BLOCKSZ  EQU      ABSVAL(%)         CURRENT BLOCK SIZE (CONTENT)                
         DATA     0                                                             
SQTEMP1  EQU      ABSVAL(%)         TEMP. FOR ACC. SEARCH                       
         DATA     0                                                             
SQTEMP2  EQU      ABSVAL(%)         TEMP. FOR ACC. SEARCH                       
         DATA     0                                                             
REGISTR1 EQU      ABSVAL(%)         TEMP. FOR ERROR PROCESSING                  
         DATA     0                                                             
REGISTR8 EQU      ABSVAL(%)         REMP. FOR ERROR PROCESSING                  
         DATA     0                                                             
RTNLINK  EQU      ABSVAL(%)         SUBROUTINE LINKAGE RETURN                   
         DATA     0                                                             
EMERGCY  EQU      ABSVAL(%)                                                     
         RES      4                                                             
LINEFEED EQU      ABSVAL(%)         NEWLINE FOR SPACING                         
         TEXT     '    '                                                        
         PAGE                                                                   
TESTING  EQU      ABSVAL(%)                                                     
         DATA     0,P1+P2,ERROR,ERROR                                           
         DATA     0                                                             
*                                                                               
*                                                                               
OCQUEUE  EQU      ABSVAL(%)                                                     
         DATA     0                 OC MESSAGE QUEUE                            
         DO1      QUELIMIT/4                                                    
         DATA     0                                                             
DCBLIST  EQU      ABSVAL(%)                                                     
         DATA,1   DCBCOUNT,0,0,0    LIST OF DCBS IN USE                         
         DO1      DCBMAX/4                                                      
         DATA     0                                                             
ENDCHECK EQU      ABSVAL(%)                                                     
LOGERCNT EQU      ABSVAL(%)                                                     
         DATA     0                 PARALLEL TO DCBLIST, ERROR COUNT            
         DO1      DCBMAX/4                                                      
         DATA     0                                                             
*                                                                               
*                                                                               
RITEFPT  EQU      ABSVAL(%)                                                     
         GEN,8,24 X'91',1                                                       
         DATA     P1+P2+P3+P4                                                   
         DATA     ERROR,ERROR                                                   
         GEN,1,31 1,2                                                           
         GEN,1,31 1,3                                                           
*                                                                               
*                                                                               
READFPT  EQU      ABSVAL(%)                                                     
         GEN,8,24 X'90',1           GENERAL READ FPT                            
         DATA     P1+P2+P3+P4                                                   
         DATA     ERROR,ERROR                                                   
         GEN,1,31 1,2                                                           
         GEN,1,31 1,3                                                           
*                                                                               
*                                                                               
*                                                                               
OCWRITE  EQU      ABSVAL(%)                                                     
         GEN,8,24 X'11',OCDCB                                                   
         DATA     P1+P2+P3+P4                                                   
         DATA     ERROR,ERROR                                                   
         GEN,1,31 1,2                                                           
         GEN,1,31 1,3                                                           
*                                                                               
*                                                                               
         DATA     0                 CONTINUATION WORD                           
OCDCB    EQU      ABSVAL(%)                                                     
         GEN,8,16,8 5,1,3                                                       
         GEN,8,16,8   5,X'41',2                                                 
         DATA     0                                                             
         DATA     ERROR,ERROR                                                   
*                                                                               
SJOBFPT  EQU      ABSVAL(%)                                                     
         DATA     X'63800000'       SJOB FPT                                    
         DATA     P1+P11+P12+P14+F7                                             
         DATA     0                 ERROR ADDRESS                               
         DATA     0,0               JOB NAME                                    
         DATA     ABSVAL(%+1)       POINTER TO ACCOUNT/NAME                     
         DATA     0,0,0,0,0         ACCOUNT AND USER NAME                       
*                                                                               
DCBLOCKS EQU      ABSVAL(%)                                                     
         DATA     0                 CONTINUATION WORD                           
DCBADRS  EQU      ABSVAL(%)                                                     
         GEN,8,16,8  5,1,3                                                      
         GEN,8,16,8 3,X'C1',0                                                   
         DATA     0,ERROR,ERROR                                                 
JCBPOINT EQU      ABSVAL(%)-DCBADRS                                             
         DATA     0                                                             
RWDCBSZ  EQU      ABSVAL(%)-DCBADRS                                             
OPTIDMSG EQU      RWDCBSZ                                                       
         DATA     0                                                             
TIDMSG   EQU      ABSVAL(%)-DCBADRS                                             
LOGMSG   EQU      TIDMSG                                                        
BBERRMSG DATA     X'02000000'                                                   
         DATA     P1+F3                                                         
         DATA     8                                                             
         GEN,8,24 27,'!!A'                                                      
         TEXT     'BORT TEX, NO BLK. BUF.  '                                    
         DATA     0,0,0,0                                                       
         DATA     0,0,0,0                                                       
ACCBLK   EQU      TIDMSG+5                                                      
ENDIDMSG EQU      ACCBLK+6                                                      
INITBLK  EQU      ENDIDMSG+1                                                    
*                                                                               
*                                                                               
ENDBLOCK EQU      INITBLK+10+DCBLOCKS                                           
ENDCBLKS RES      0                                                             
ACCLESSC EQU      TIDMSG                                                        
DCBLKSZ    EQU    ENDBLOCK-DCBLOCKS SIZE OF DCB BLOCK AREA                      
DCBCOUNT EQU      (256-DCBLOCKS)/DCBLKSZ                                        
         FIN      :#OLAY                                                        
         LIST     0                                                             
:#OLAY   SET      0                                                             
:#OLAY   SET      :#OLAY+(OLAYFLAG='TEL1')                                      
:#OLAY   SET      :#OLAY+(OLAYFLAG='TEL2')                                      
:#OLAY   SET      :#OLAY+(OLAYFLAG='TEL3')                                      
         LIST     :#OLAY                                                        
         DO       :#OLAY                                                        
UTS      EQU      0                 1 FOR TESTING                               
WKAREA   RES      0                 START IF TEL WORKSPACE                      
LOOKSEE  EQU      ABSVAL(%)         PLACE FOR DEBUG SSNAPPING                   
         B        *R8                                                           
JOBNAME  EQU      ABSVAL(%)                                                     
TELNAME  TEXT     'TEL     '                                                    
CLEARBLK EQU      ABSVAL(%)                                                     
GIOCT    EQU      ABSVAL(%)                                                     
         DATA     0                                                             
FILEAREA EQU      ABSVAL(%)                                                     
DEVNAME  EQU      ABSVAL(%)                                                     
OPLBNAME EQU      ABSVAL(%)                                                     
         DATA     0                                                             
LDMODULE EQU      ABSVAL(%)                                                     
FILENAME EQU      ABSVAL(%)                                                     
         TEXT     '        '        8 BLANKS                                    
ACNTNAME EQU      ABSVAL(%)                                                     
         TEXT     '        '        8 BLANKS                                    
TASKNAME EQU      ABSVAL(%)                                                     
         TEXT     '        '        8 BLANKS                                    
SCRATCH  RES      0                 SCRARCH AREA - TEL1 DATA                    
OPLABEL  EQU      ABSVAL(%)                                                     
MSGPTR   EQU      ABSVAL(%)                                                     
         DATA     0                                                             
ENDFLAG  EQU      ABSVAL(%)                                                     
         DATA     0                                                             
DBUGFLAG EQU      ABSVAL(%)                                                     
         DATA     0                                                             
PRISEC   EQU      ABSVAL(%)                                                     
         DATA     0                                                             
HEXVALUE EQU      ABSVAL(%)                                                     
INITPRTY EQU      HEXVALUE                                                      
JOBNUMB  EQU      HEXVALUE                                                      
         DATA     0                                                             
JBSTATUS EQU      ABSVAL(%)                                                     
         DATA     0                                                             
JOBSWAIT EQU      ABSVAL(%)                                                     
         DATA     0                                                             
JOBPRITY EQU      ABSVAL(%)                                                     
         DATA     0                                                             
TABSET   EQU      ABSVAL(%)                                                     
         DATA     0,0,0,0                                                       
TYPECMND EQU      ABSVAL(%)                                                     
         DATA     0                                                             
SCRATCHX RES      0                                                             
         PAGE                                                                   
         ORG      SCRATCH                                                       
OPLBLIST EQU      ABSVAL(%)                                                     
         DATA,2   HA(OPLSTEND)-HA(%)-1                                          
         DATA,2   'SI','LL','LO','DO'                                           
         DO1      #DEBUG                                                        
         DATA,2   'DI','DL','DP','P1','P2'                                      
         DATA,2   'C '                                                          
OPLSTEND RES      0                                                             
         BOUND    4                                                             
         ERROR,7,(%-SCRATCH)>(SCRATCHX-SCRATCH)  ;                              
                  '***BUFFER OVERLAY OVERFLOW***'                               
         PAGE                                                                   
         ORG      SCRATCHX                                                      
ENDCLEAR EQU      ABSVAL(%)                                                     
*                                                                               
*                                                                               
TELJCBAD EQU      ABSVAL(%)         JCB ADDRESS                                 
         DATA     0                                                             
LINEINDX EQU      ABSVAL(%)                                                     
         DATA     0                 LINE INDEX FOR THIS JOB                     
CNTRLFLG EQU      ABSVAL(%)                                                     
         DATA     0                 NZ - CONTROL/BREAK TEL ENTRY                
INTELFLG EQU      ABSVAL(%)                                                     
         DATA     0                 NZ - INDICATES TEL IN PROCESS               
ERROR    EQU      ABSVAL(%)                                                     
         DATA     0                 TO BE FILLED WITH ERROR LINKAGE             
TELTPRTN EQU      ABSVAL(%)         TRAP RETRY RETURN                           
         CAL1,7   TELTPRTN+1                                                    
         DATA     X'5E000000'                                                   
         PAGE                                                                   
POSTBTCH EQU      ABSVAL(%)                                                     
         TEXT     'JOB='                                                        
BCDJOBID EQU      ABSVAL(%)                                                     
         DATA     0                                                             
         TEXT     ' SUBMITTED  '                                                
BCDTIME  EQU      ABSVAL(%)                                                     
         DATA     0,0,0,0                                                       
*                                                                               
*                                                                               
SCRATCH2 RES      0                                                             
TELINPUT EQU      ABSVAL(%)                                                     
         RES      20                                                            
ENDTELIN EQU      ABSVAL(%)                                                     
SCRA2X   RES      0                                                             
         ORG      SCRATCH2                                                      
BBERRMSG DATA     X'02000000'                                                   
         DATA     P1+F3                                                         
         DATA     8                                                             
         GEN,8,24 27,'!!A'                                                      
         TEXT     'BORT        NO BLK. BUF.'                                    
         TEXT     'TEMP. SPACE '    PROBLEM FINDING TEMP SPACE                  
         TEXT     'BOGUS LINE  '    LINE VERSE JOB ID                           
         TEXT     'CANT SET UP'                                                 
         ERROR,7,(%-SCRATCH2)>(SCRA2X-SCRATCH2)  ;                              
                  '***BUFFER OVERLAY OVERFLOW***'                               
         ORG      SCRA2X                                                        
*                                                                               
*                                                                               
STATRUN  EQU      ABSVAL(%)                                                     
         TEXT     'JOB='                                                        
         DATA     0                 JOB ID                                      
         TEXT     ' RUNNING'                                                    
*                                                                               
STATCOMP EQU      ABSVAL(%)                                                     
         TEXT     'JOB='                                                        
         DATA     0                 JOB JOB                                     
         TEXT     ' COMPLETED  '                                                
*                                                                               
STATWAIT EQU      ABSVAL(%)                                                     
         TEXT     'JOB='                                                        
         DATA     0                 JOB JOB                                     
         TEXT     ' WAITING'                                                    
STATWCNT EQU      ABSVAL(%)                                                     
         DATA     0                                                             
         TEXT     '  TO RUN'                                                    
*                                                                               
STATNONE EQU      ABSVAL(%)                                                     
         TEXT     'JOB='                                                        
         DATA     0                                                             
         TEXT     ' DOES NOT EXIST '                                            
         PAGE                                                                   
READFPT  EQU      ABSVAL(%)                                                     
         DO       UTS                                                           
         GEN,8,24 X'10',M:UC                                                    
         ELSE                                                                   
         GEN,8,24 X'10',LINEDCB                                                 
         FIN      UTS                                                           
         DATA     P1+P2+P3+P4+P7+F3                                             
         DATA     ERROR,ERROR                                                   
         DATA     TELINPUT                                                      
         DATA     80                                                            
         DATA,1   0,0,0,'!'         PROMPT A BANG                               
*                                                                               
*                                                                               
LINEDCB  EQU      ABSVAL(%)                                                     
         DATA     X'05000003'                                                   
         DATA     X'0300C100'                                                   
         DATA     0,ERROR,ERROR                                                 
*                                                                               
*                                                                               
WRITEFPT EQU      ABSVAL(%)                                                     
         DO       UTS                                                           
         GEN,8,24 X'11',M:UC                                                    
         ELSE                                                                   
         GEN,8,24 X'11',LINEDCB                                                 
         FIN      UTS                                                           
         DATA     P1+P2+P3+P4+F3                                                
         DATA     ERROR,ERROR                                                   
         GEN,1,31 1,R8                                                          
         GEN,1,31 1,R9                                                          
*                                                                               
*                                                                               
         PAGE                                                                   
OPERFPT  EQU      ABSVAL(%)         OPERATOR CONSOLE OUTPUT                     
         GEN,8,24 X'11',OPERDCB                                                 
         DATA     P1+P2+P3+P4+F3                                                
         DATA     ERROR,ERROR                                                   
         GEN,1,31 1,R8                                                          
         GEN,1,31 1,R9                                                          
*                                                                               
*                                                                               
OPERDCB  EQU      ABSVAL(%)                                                     
         DATA     X'05000003'                                                   
         DATA     X'03004002'                                                   
         DATA     0,ERROR,ERROR                                                 
*                                                                               
*                                                                               
RUNDCB   EQU      ABSVAL(%)         DCB TO OPEN RUN FILE IN                     
         GEN,8,24 11,0                                                          
         DATA     0,0                                                           
         DATA     ERROR,ERROR                                                   
         DATA     0,0,0,0,0,0                                                   
*                                                                               
*                                                                               
RUNASN   EQU      ABSVAL(%)         FPT TO ASSIGN RUN FILE TO DCB               
         GEN,8,1,23  8,1,RUNDCB                                                 
         DATA     0                                                             
         PZE      ERROR                                                         
         PZE      FILEAREA                                                      
         PZE      ACNTNAME                                                      
*                                                                               
*                                                                               
RUNOPEN  EQU      ABSVAL(%)         FPT TO OPEN RUN FILE DCB                    
         GEN,8,24 X'14',RUNDCB                                                  
         DATA     F3                                                            
*                                                                               
*                                                                               
RUNCLOSE EQU      ABSVAL(%)         FPT TO CLOSE RUN FILE DCB                   
         GEN,8,24 X'15',RUNDCB                                                  
         DATA     F3+F7                                                         
*                                                                               
*                                                                               
INITFPT  EQU      ABSVAL(%)         FPT TO INIT A PARALLEL TASK                 
         GEN,8,1,23  X'48',1,0                                                  
         DATA     0                                                             
         PZE      ERROR                                                         
         DATA     0,0               TASK NAME                                   
         PZE      *INITPRTY                                                     
         PZE      ACNTNAME                                                      
*                                                                               
*                                                                               
MEDFPT   EQU      ABSVAL(%)         FPT TO MEDIA OUT A FILE                     
         GEN,8,1,1,1,21  X'59',1,0,1,0    NO VFC                                
         DATA     0                                                             
         PZE      ERROR                                                         
         PZE      FILEAREA                                                      
         PZE      ACNTNAME                                                      
*                                                                               
*                                                                               
STDLBFPT EQU      ABSVAL(%)         FPT TO CHANGE AN OPLABEL ASSIGNMENT         
         GEN,1,7,1,23  1,X'62',1,OPLABEL                                        
         DATA     0                                                             
         PZE      ERROR                                                         
         PZE      FILEAREA                                                      
         PZE      ACNTNAME                                                      
*                                                                               
*                                                                               
BATCHFPT EQU      ABSVAL(%)         FPT TO BATCH A FILE                         
         GEN,8,1,23  X'67',1,0                                                  
         DATA     0                                                             
         PZE      ERROR                                                         
         PZE      FILEAREA                                                      
         PZE      *JOBNUMB                                                      
         PZE      *JBSTATUS                                                     
         PZE      *JOBSWAIT                                                     
         PZE      *JOBPRITY                                                     
         PZE      ACNTNAME                                                      
*                                                                               
*                                                                               
JSTATFPT EQU      ABSVAL(%)         FPT TO GET A BATCH JOB STATUS               
         GEN,8,1,23  X'67',1,0                                                  
         DATA     P1+P5+P6+P7+F3                                                
         PZE      ERROR                                                         
         PZE      *JOBNUMB                                                      
         PZE      *JBSTATUS                                                     
         PZE      *JOBSWAIT                                                     
*                                                                               
*                                                                               
JDELFPT  EQU      ABSVAL(%)         FPT TO CANCEL A BATCH JOB                   
         GEN,8,1,23  X'67',1,0                                                  
         DATA     P1+P5+F2+F3                                                   
         PZE      ERROR                                                         
         PZE      *JOBNUMB                                                      
*                                                                               
*                                                                               
ENDBLOCK EQU      ABSVAL(%)                                                     
TELOUT   EQU      ABSVAL(%)                                                     
         RES      23                                                            
         ERROR,7,ABSVAL(%)>X'FF'    '***CONTEXT OVERFLOW***'                    
         FIN      :#OLAY                                                        
         LIST     1                                                             
         END                                                                    
