         SYSTEM   SIG5P                                                         
         SYSTEM   OPTIONS                                                       
         DO       #SYMB                                                         
         PAGE                                                                   
*                                                                               
*                                                                               
         DEF      SEX                                                           
         DEF      SYMBSTCB          SYMBIONT TASK STCB                          
         DEF      SYMBSTAK          STACK ADDRESS                               
         DEF      SIZEOS,FPTLP,SIZEIS,FPTCR                                     
         DEF      SYMCRSH,FPTOPEN,XJOB,XFIN,SM:C                                
         DEF      SM:PRIO                                                       
         DEF      BATCHMSG,FPTCLOS,SMSG1,SMSG2,SMSG3,SMSG4,SMSG5                
         DEF      SMSG6,SMSG7,SYMB,FPTDELF,FMALLOT,FPTPRECB                     
         DEF      SMSG8                                                         
         DEF      SYMCOUNT,FPTJOBDL,FPTWEOF,FPTPFILB                            
         DO1      #MEDIA                                                        
         DEF      FPTSTMED                                                      
         DEF      RCDCB,RCLOSE,RCTIMER,WCJOB,WCJOBN,WCDCB                       
         DEF      WCSTART,RCDLTE,RCPOLL,RCPOST,SIZEFPTJ                         
         DEF      FPTJOB,FPTSIG,BFJJJ000,DFLTP                                  
         DEF      STOPME,SEX1,TESTACAL,ADDRRW,ADDRMSC                           
         DEF      FPTSTIM,RCFPT,RCOPEN,XEXU,WCFPT                               
         DEF      SMENDAC,SMCUP3,FPTPREC                                        
         DEF      WCSIG,CKSIG,FPTPOLBK,FPTPSTBK                                 
         DEF      BATCHF,WCBUF,XBKG                                             
         DEF      RCASSIGN,RCGIOBLK,RCAREA,RCACNT,RCPBITS                       
*   EXIT POINTS                                                                 
         DEF      SEXE1                                                         
OLAYFLAG EQU      'SEX'                                                         
         SYSTEM   CPRMON                                                        
         PAGE                                                                   
SEX      EQU      %                                                             
         BOUND    8                                                             
SYMBSTCB GEN,9,1,22  0,1,SYM1               ENTRY PSD                           
         DATA        0                                                          
         DATA        SYMBSTCB+4,0           INTERMEDIATE PSD                    
         STM,R0      SYMBSTCB+10            SAVE R0-R15                         
         BAL,R1      RBMSAVE                SAVE CONTEXT, ENTER EXEC            
         GEN,8,24    X'B0',LMIRTS+SYMBLMID  PCBPOINT                            
         GEN,8,24    SYMBTID,SYMBSTCB       TCBPOINT                            
         DATA        TDRDLRET,0             ENTRY POINT TO DISPATCHER           
         RES         16                     16 WORDS FOR REGISTER SAVE          
         GEN,8,24    1,SYMBAST              AST, 1 WORD LONG                    
         GEN,8,24    16,SYMBACI             ACT, 16 WORDS LONG                  
         DATA        0,0,0,0                RDL,-,ALT PSD                       
*                                                                               
*                                                                               
SYMBACI  RES      16                 ACI FOR SYMBIONT EXEC TASK                 
*                                                                               
*                                                                               
SYMBAST  DATA        RBMSD+ASTACT+ASTFA     AST FOR SYMBIONT JOB PAGES          
*                                                                               
*                                                                               
SYMBSTAK RES         0                      SYMBIONT STACK                      
         LIST        0                                                          
         DO1         SYMBSSZ**(-1)                                              
         TEXT        'SYMBIONT'                                                 
         LIST        1                                                          
         SPACE    3                                                             
STOPME   RES      0                 FPT TO STOP SYMBIONT TASK                   
         GEN,8,24 X'4B',0                                                       
         TITLE    '** SEX - FPTS,DCTS AND CONSTANTS **'                         
*                                                                               
*                                                                               
*                                                                               
***************************************************************                 
*                                                                               
*                                                                               
*                                                                               
SYLPCNTX EQU      %-TSRWFPT         RELATIVE START OF CONTEXT                   
*                                   USED TO VERIFY THESE FPT'S ARE              
*                                   LOCATED WHERE CPREQU THINKS THEY            
*                                   ARE.  THE EQU'S SHOULD CORRESPOND           
*                                                                               
WRITEP   EQU      %-SYLPCNTX        WRITE A LINE FROM PRIMARY BUFFER            
FPTLP    RES      0                 FPT TO WRITE TO A LINE PRINTER              
         GEN,8,24 X'11',TSRWDCB                                                 
         DATA     X'F0400000'                                                   
         DATA     SEXE1             ERR                                         
         DATA     SEXE1             ABN                                         
         DATA     TSRWBUF           BUFFER ADDRESS                              
         DATA     0                 BYTE COUNT TO WRITE                         
         DATA     0                 TYC, BYTES ACTUALLY WRITTEN                 
*                                                                               
WRITEDCB EQU      %-SYLPCNTX        DCB FOR THE LINE PRINTER DEVICE             
DCBLP    RES      0                 DCB TO WRITE TO A LINE PRINTER              
         DATA     X'05000303'       PACK (FOR 9T),VFC                           
         DATA     X'03008000'                                                   
         DATA     TSRWBUF           BUFFER ADDR                                 
         GEN,15,17 LPSIZE,SEXE1     RSIZE,ERA                                   
         DATA     SEXE1             ABA                                         
*                                                                               
READP    EQU      %-SYLPCNTX        READ A LINE TO PRIMARY BUFFER               
FPTROSF  RES      0                 FPT TO READ OUTPUT SYMBIONT                 
         GEN,8,24 X'10',TSRWFDCB                                                
         DATA     X'F0400010'                                                   
         DATA     SEXE1             ERROR                                       
         DATA     SEXE1             ABNORMAL                                    
         DATA     TSRWBUF           BUFFER ADDRESS                              
         DATA     133               BYTE COUNT                                  
         DATA     0                 TYC, BYTES ACTUALLY READ                    
*                                                                               
READDCB  EQU      %-SYLPCNTX        DCB FOR THE INPUT FILE                      
DCBROSF  RES      0                 DCB TO READ OUTPUT SYMBIONT FILE            
         DATA     X'07000001'                                                   
         DATA     X'03000000'                                                   
         DATA     TSRWBUF           BUFF                                        
         GEN,15,17 LPSIZE,SEXE1     RSIZE,ERA                                   
         DATA     SEXE1             ABA                                         
         DATA     0,0               FILE NAME                                   
*                                                                               
*                                                                               
READA    EQU      %-SYLPCNTX        READ A LINE TO ALTERNATE BUFFER             
         RES      0                 READ FILE TO ALT BUFFER                     
         GEN,8,24 X'10',TSRWFDCB                                                
         DATA     X'F0400010'                                                   
         DATA     SEXE1             ERROR                                       
         DATA     SEXE1             ABNORMAL                                    
         DATA     TSRWBUFA          BUFFER ADDRESS                              
         DATA     133               BYTE COUNT                                  
         DATA     0                 TYC, BYTES ACTUALLY READ                    
*                                                                               
*                                                                               
WRITEA   EQU      %-SYLPCNTX        WRITE A LINE FROM ALTERNATE BUFFER          
         RES      0                 WRITE PRINTER FROM ALT BUFFER               
         GEN,8,24 X'11',TSRWDCB                                                 
         DATA     X'F0400000'                                                   
         DATA     SEXE1             ERR                                         
         DATA     SEXE1             ABN                                         
         DATA     TSRWBUFA          BUFFER ADDRESS                              
         DATA     0                 BYTE COUNT TO WRITE                         
         DATA     0                 TYC, BYTES ACTUALLY WRITTEN                 
MISCFPT  EQU      %-SYLPCNTX        MISC FPT / START UNINIT'ED MEMORY           
RWCAL    EQU      MISCFPT+SYMFPT    CAL TO RETRY ON ERRORS ADDRESS              
RWBUF    EQU      RWCAL+SYRTCAL     START OF PRIMARY BUFFER                     
*                                                                               
*                                                                               
SIZEOS   EQU      %-FPTLP           # OF WORDS TO MOVE TO TSPACE                
***************************************************************                 
         PAGE                                                                   
         SPACE    2                                                             
***************************************************************                 
FPTCR    RES      0                 FPT TO READ A CARD READER                   
         GEN,8,24 X'10',TSRWDCB                                                 
         DATA     X'C0000000'                                                   
         DATA     SEXE1             ERROR                                       
         DATA     SEXE1             ABNORMAL                                    
         DATA     0,0,0             FILLER; BUFFER, BYTE COUNT, TYC             
*                                                                               
DCBCR    RES      0                 DCB TO READ A CARD READER                   
         DATA     X'05000003'                                                   
         DATA     X'03008000'                                                   
         DATA     TSRWBUF                                                       
         GEN,15,17 120,SEXE1        RSIZE,ERA                                   
         DATA     SEXE1             ABA                                         
*                                                                               
FPTWISF  RES      0                 FPT TO WRITE INPUT SYMBIONT FILE            
         GEN,8,24 X'11',TSRWFDCB                                                
         DATA     X'C0000010'                                                   
         DATA     SEXE1                                                         
         DATA     SEXE1             ABNORMAL                                    
         DATA     0,0,0             FILLER; BUFFER, BYTE COUNT, TYC             
*                                                                               
DCBWISF  RES      0                 DCB TO WRITE INPUT SYMBIONT FILE            
         DATA     X'07000001'                                                   
         DATA     X'03000000'                                                   
         DATA     TSRWBUF                                                       
         GEN,15,17 120,SEXE1        RSIZE,ERA                                   
         DATA     SEXE1             ABA                                         
*        DATA     0,0               FILE NAME                                   
*                                                                               
*                                                                               
SIZEIS   EQU      %-FPTCR           # OF WORDS TO MOVE TO TSPACE                
****************************************************************                
         PAGE                                                                   
         SPACE    2                                                             
FPTOPEN  RES      0                 FPT TO OPEN DEVICE DCB                      
         DATA     X'9400000E'                                                   
         DATA     X'C0000000'                                                   
         DATA     SEXE1             ERROR                                       
         DATA     SEXE1             ABN                                         
*                                                                               
FPTCLOS  RES      0                 FPT TO CLOSE DEVICE/FILE DCB                
         DATA     X'9500000E'       R14 CONTAINS DCB ADDRESS                    
         DATA     X'C0000000'                                                   
         DATA     SEXE1             ERROR ADDRESS                               
         DATA     SEXE1             ABNORMAL ADDRESS                            
*                                                                               
FPTJOB   RES      0                 FPT TO DEFINE A JOB FILE                    
         GEN,8,1,23 X'67',1,0                                                   
         DATA     X'A9000058'                                                   
         DATA     SEXE1             ERROR ADDR                                  
         DATA     X'8000000F'       R15 CONTAINS JOB FILE NAME ADDRESS          
         DATA     0                 RETURN JOB# HERE                            
         DATA     0                 PRIORITY SUPPLIED HERE                      
SIZEFPTJ EQU      %-FPTJOB          SIZE OF FPT                                 
*                                                                               
         DO       #MEDIA                                                        
FPTSTMED RES      0                 FPT TO START MEDIA TASK                     
         DATA     X'4A800000'                                                   
         DATA     X'30200001'       P3,P4,P11,F7                                
         TEXT     'MEDIA'                                                       
         TEXT     'CPR'                                                         
         FIN      #MEDIA                                                        
*                                                                               
FPTJOBDL RES      0                 FPT TO DELETE (M:JOB) A JOB'S FILES         
         DATA     X'67800000'                                                   
         DATA     X'88000030'       ERR,JOB#,DELETE INDICATOR                   
*        DATA     ERROR ADDRESS SUPPLIED BY CALLER                              
*        DATA     ADDR TO STORE JOB# SUPPLIED BY CALLER                         
*                                                                               
FPTSTIM  RES      0                 STIMER FPT                                  
         DATA     X'44800000'                                                   
         DATA     X'80080000'                                                   
         DATA     SEXE1             ERROR                                       
         DATA     7                 # OF SECONDS BEFORE TIMEOUT                 
*                                                                               
FPTDELF  RES      0                 FPT TO DELETE (M:DELETE) A JOB FILE         
         GEN,16,16 X'5B80',0        FILE NAME SUPPLIED BY CALLER                
         DATA     X'B0000010'       P'S AND F'S                                 
*        DATA     ERROR ADDRESS SUPPLIED BY CALLER                              
*        DATA     FILE NAME SUPPLIED BY CALLER                                  
*                                                                               
FPTSIG   RES      0                 FPT TO SIGNAL BACKGROUND TASK               
         DATA     X'43800000'                                                   
         DATA     X'A0200000'                                                   
         DATA     SEXE1             ERROR                                       
         TEXT     'BKG'             TASK NAME                                   
         TEXT     'BKG'             JOB NAME                                    
*                                                                               
FPTPOLBK RES      0                 FPT TO POLL FOR BKGD SIGNALS                
         DATA     X'45800000'                                                   
         DATA     X'80000020'       ERR, IMMEDIATE IND.                         
         DATA     SEXE1             ERROR RETURN                                
*                                                                               
FPTPSTBK RES      0                 FPT TO POST BKG                             
         DATA     X'46800000'                                                   
         DATA     X'80000000'                                                   
         DATA     SEXE1             ERROR RETURN                                
*                                                                               
FPTWEOF  RES      0                 FPT TO WRITE AN EOF                         
         DATA     X'8280000E'       DCB ADDR IN R14                             
         DATA     X'00000011'       F3,F7                                       
*                                                                               
FPTPFILB RES      0                 FPT TO SKIP BACK ONE FILE                   
         DATA     X'9C80000E'       DCB ADDR IN R14                             
         DATA     X'40000038'       P2,SKIP,BACK,WAIT                           
         DATA     SEXE1             ERR/ABN RETURN                              
*                                                                               
TESTACAL RES      0                 FPT TO TEST NO-WAIT CALL IN SYMBIONTS       
         DATA     X'42800000'                                                   
         DATA     X'C0000000'                                                   
         DATA     SEXE1             ERROR                                       
         DATA     SEXE1             ABNORMAL                                    
*                                                                               
FPTPREC  RES      0         FPT TO SKIP RECORDS FOR 'B', 'R' FUNCTIONS          
         DATA     X'9D80000E'       DCB ADDRESS IS IN R14                       
         DATA     X'C0400000'       'N', ABN, TYC                               
         PZE      *R2               'N' IN R2                                   
         DATA     SEXE1             ABN ROUTINE                                 
         DATA     0                 TYC                                         
*                                                                               
FPTPRECB RES      0                 FPT TO SKIP BACK ONE RECORD                 
         DATA     X'9D80000E'       DCB ADDR IN R14                             
         DATA     X'C0400018'       'N',ERR,BACK,WAIT                           
         DATA     1                 N (NUMBER OF RECORDS)                       
         DATA     SEXE1             ERROR ADDRESS                               
         DATA     0                 COMPLETION STATUS (TYPE II)                 
*                                                                               
*                                                                               
         SPACE    5                                                             
SEXE1    B        *R9                                                           
         PAGE                                                                   
*                                                                               
*                                                                               
*   MISCELLANEOUS CONSTANTS, MESSAGES, ETC...                                   
*                                                                               
*                                                                               
DFLTP    RES      0                                                             
         DATA,1   BA(DFLTP%)-BA(DFLTP)-1                                        
         DATA,S:NUMC(#NOACNT) #NOACNT                                           
         DATA,3   ',,1'                                                         
DFLTP%   RES      0                                                             
         BOUND    4                                                             
XMEDIA   TEXT     'MEDIA'                                                       
XEXU     TEXT     'EXU'                                                         
XJOB     TEXT     'JOB'                                                         
XFIN     TEXT     'FIN'                                                         
BATCHMSG RES      9                 9 WORDS FOR JOB SELECTED MSG                
SYMB     DATA     0                 CUR JOB#, DO BIT, (C S) BIT                 
SYMCOUNT DATA     0                 COUNT OF ACTIVE ASYNCHRONOUS SERVICES*      
*                                    IN THE SYMBIONT TASK                       
SM:C     DATA     0                 CONTAINS RFT INDEX OF SYMBIONT FILE         
*                                    CURRENTLY BEING USED AS THE C DEVICE.      
SM:PRIO  DATA     0                 'IS' FILE PRIORITY                          
*                                   INDEX IS IN SM:C                            
*                                                                               
*   DOUBLE WORD CONSTANTS...MUST BE ON DOUBLEWORD BOUNDARY...                   
*                                                                               
         BOUND    8                                                             
BATCHF   DATA,8   0                 NAME OF BATCH FILE IN BFJJJEEE              
BFJJJ000 TEXT     'BFJJJ000'                                                    
XBKG     TEXT     'BKG     '                                                    
*                                                                               
*   END OF DOUBLE WORD CONSTANTS                                                
*                                                                               
*                                    FORMAT. USED TO SAVE JOB NUMBER OF         
*                                    A USER BATCH FILE.                         
ADDRRW   LW,R0    TSRWDCB,R7        DUMMY INSTRUCTIONS FOR ANLZ INSTR.          
         LW,R0    WRITEP,R7         DUMMY INSTRUCTIONS FOR ANLZ                 
         LW,R0    WRITEA,R7         TO GET ADDRESSES OF THE FPT'S               
ADDRMSC  LW,R0    TSMSCFPT,R7                                                   
*                                                                               
SMSG1    TEXTC    '!SYYNDD UNAVAILABLE '                                        
SMSG2    TEXTC    '!SYYNDD IDLE '                                               
SMSG3    TEXTC    '!SYYNDD ERR XX '                                             
SMSG4    TEXTC    '!SYYNDD SUSPENDED '                                          
SMSG5    TEXTC    '!IS AREA FULL '                                              
SMSG6    TEXTC    '!OS AREA FULL;IN DO MODE '                                   
SMSG7    TEXTC    '!JOB STILL ACTIVE '                                          
SMSG8    TEXTC    '!SYYNDD EOT REACHED'                                         
SYMCRSH  CRASH    'SYMBIONT/COOP ERROR'                                         
         PAGE                                                                   
*                                                                               
RCFPT    RES      0                 FPT TO READ IS AREA FILE                    
         GEN,8,24  X'10',RCDCB                                                  
         DATA     X'C0000010'       P1,P2,F3                                    
         DATA     SEXE1             ERR                                         
         DATA     SEXE1             ABN                                         
*                                                                               
RCDCB    RES      0                 DCB TO READ IS AREA FILE                    
         DATA     X'0B000001'                                                   
         DATA     0                                                             
         DATA     0                 TYC,BUF                                     
         DATA     SEXE1             RSZ,ERA                                     
         DATA     SEXE1             ARS,ABA                                     
         DATA     0,0               FILE NAME                                   
         DATA     0,0,0,0           DCB EXTENSION                               
*                                                                               
RCASSIGN RES      0                                                             
         GEN,8,1,23 8,1,RCDCB                                                   
         DATA     P1+P4+P14                                                     
         DATA     SEXE1             ERROR                                       
         DATA     RCAREA            AREA & FILE NAME PTR                        
         DATA     RCACNT            ACCOUNT NAME PTR                            
*                                                                               
RCGIOBLK RES      0                 GETIOID BLOCK                               
         DATA     P1+P4+P14                                                     
RCAREA   RES      3                 AREA & FILE NAME BLOCK                      
RCACNT   RES      2                 ACCOUNT NAME BLOCK                          
*                                                                               
RCPBITS  DATA     P1+P4+P14         (USED TO INITIALIZE RCGIOBLK)               
*                                                                               
*                                                                               
RCOPEN   RES      0                 FPT TO OPEN IS AREA FILE DCB                
         GEN,8,24 X'14',RCDCB                                                   
         DATA     X'C0000000'                                                   
         DATA     SEXE1             ERROR RETURN                                
         DATA     SEXE1             ABNORMAL RETURN                             
*                                                                               
RCLOSE   RES      0                 FPT TO CLOSE IS AREA FILE DCB               
         GEN,8,24  X'15',RCDCB                                                  
         DATA     X'C0000000'                                                   
         DATA     SEXE1                                                         
         DATA     SEXE1                                                         
*                                                                               
RCDLTE   RES      0                 FPT TO DELETE ONE IS AREA FILE              
         GEN,8,1,7,16  X'5B',1,0,'IS'                                           
         DATA     X'B0000010'       ERR, FILE NAME                              
         DATA     SEXE1             ERROR ADDRESS                               
*   FILE NAME SUPPLIED BY CALLER                                                
*                                                                               
RCPOLL   RES      0                 FPT TO POLL FOR SYMBIONT SIGNAL             
         DATA     X'45800000'                                                   
         DATA     X'80000020'       ERR,IMMEDIATE IND.                          
         DATA     SEXE1             ERROR ADDRESS                               
*                                                                               
RCPOST   RES      0                 FPT TO POST A SIGNAL ECB                    
         DATA     X'46800000'                                                   
         DATA     X'80000000'                                                   
         DATA     SEXE1             ERR                                         
*                                                                               
RCTIMER  RES      0                 STIMER FOR WAITING 5 SEC                    
         DATA     X'44800000'                                                   
         DATA     X'80080010'                                                   
         DATA     SEXE1             ERR                                         
         DATA     10                # OF SECONDS                                
*                                                                               
WCJOB    RES      0                 FPT TO DEFINE A NEW JOB FILE                
         GEN,8,1,23  X'67',1,0                                                  
         DATA     X'A0000050'                                                   
         DATA     SEXE1             ERR                                         
         DATA     WCJOBN            ADDRESS TO STORE AREA/FILE NAME             
WCJOBN   DATA     0,0,0             3 LITTLE WORDS TO STORE AREA/FILE           
*                                                                               
WCDCB    RES      0                 DCB TO WRITE TO AN OS AREA FILE             
         DATA     X'07000001'                                                   
         DATA     0                                                             
         DATA     WCBUF             TYC, BUF                                    
         DATA     SEXE1             RSZ,ERA                                     
         DATA     SEXE1             ARS,ABA                                     
         DATA     0,0               FILE NAME                                   
*                                                                               
WCFPT    RES      0                 FPT TO WRITE TO AN OS AREA FILE             
         GEN,8,24 X'11',WCDCB                                                   
         DATA     X'C0000010'                                                   
         DATA     SEXE1                                                         
         DATA     SEXE1                                                         
*                                                                               
WCBUF    RES      34                BUFFER FOR OUTPUT COOPERATIVE               
*                                                                               
WCSTART  RES      0                 FPT TO START SYMBIONT TASK                  
         GEN,8,1,23  X'4A',1,0                                                  
         DATA     X'B0200000'       P1,P3,P4,P11                                
         DATA     SEXE1             ERROR                                       
         TEXT     'SYMBIONT'        TASK NAME                                   
         TEXT     'CPR'             JOB NAME                                    
*                                                                               
WCSIG    RES      0                 FPT TO SIGNAL SYMBIONT TASK                 
*                                    INDICATING NEED FOR FILE SPACE.            
         DATA     X'43800000'                                                   
         DATA     X'B0200000'                                                   
         DATA     SEXE1             ERROR                                       
         TEXT     'SYMBIONT'        TASK NAME                                   
         TEXT     'CPR'             JOB NAME                                    
*                                                                               
CKSIG    RES      0                 FPT TO CHECK SIGNAL CAL                     
         GEN,8,24 X'29',WCSIG                                                   
         DATA     X'C0400000'       ERR,ABN,FPT ADDRESS                         
         DATA     SEXE1             ERROR RETURN                                
         DATA     SEXE1             ABN RETURN                                  
*                                                                               
FMALLOT  RES      0                 FPT TO ALLOT EXTENSION FILES                
         GEN,8,1,23   X'5A',1,0     AREA STORED LATER                           
         DATA     X'F8400010'       ERR,ORG,FILE,FSI,TYC                        
         DATA     SEXE1             ERROR                                       
         DATA     2                 ORG= COMPRESSED                             
*  FILE NAME, FILE SIZE, TYC WORD SUPPLIED                                      
         PAGE                                                                   
*                                                                               
*                                                                               
SEX1     RES      0                 RETURN TO HERE WHEN NOTHING TO DO           
*                                    IN THE SYMBIONT TASK.                      
         CAL1,7   STOPME            STOP SYMBIONT TASK                          
         B        SYM1              RETURN TO EXEC WHEN STARTED                 
         TITLE    '** SEX - CLEANUP ROUTINE TO RELEASE BB TSPACE **'            
***************                                                                 
*   SMENDAC   *                                                                 
***************                                                                 
*                                                                               
*   ROUTINE RELEASES TSPACE OBTAINED FOR A MESSAGE BUFFER                       
*   ROUTINE ENTERED AT I/O CLEANUP TIME VIA SIMULATED BAL,R14                   
*   FROM REQCOM.                                                                
*                                                                               
*   AT ENTRY:     R2       ECB I.D.                                             
*                 R5-R9    I/O STATUS                                           
*                 R10,R11  END-ACTION DOUBLEWORD (R11= TSPACE PTR.)             
*                 R12      TYPE COMPLETION                                      
*                 R13      REMAINING BYTE COUNT                                 
*                 R14      RETURN LINK                                          
*                 R15      REAL BUFFER ADDRESS                                  
*                                                                               
SMENDAC  RES      0                                                             
         PUSH     R14               SAVE RETURN LINK                            
         LW,R7    R11               ADDRESS OF TSPACE TO RELEASE                
         BAL,R8   RELTEMP           RELEASE TSPACE                              
         PULL     R14               RESTORE LINK                                
         B        *R14              RETURN TO REQCOM                            
*                                                                               
*                                                                               
SMCUP3   GEN,8,24 3,SMENDAC         CUPCOD TYPE, BRANCH ADDRESS                 
         FIN      #SYMB                                                         
         END                                                                    
