*DECK     SSSAOR
USETEXT          TEXTSS 
PROC SSSAOR( OVN, OEN );
# TITLE SSSAOR - ACCEPT OVERLAY REQUEST.                               #
      BEGIN # SSSAOR #
# 
**    SSSAOR - ACCEPT WORKLIST REQUEST. 
* 
*     S. H. FISCHER.         82/05/05.
* 
*     THIS ROUTINE ACCEPTS OVERLAY ENTRY POINT EXECUTION REQUESTS.
* 
*     PROC SSSAOR( OVN, OEN ) 
* 
*     ENTRY:  
*       OVN = OVERLAY NUMBER. 
*       OEN = OVERLAY ENTRY POINT NUMBER. 
* 
*     EXIT: 
*       OVERLAY REQUEST COUNTER INCREMENTED AND OVERLAY ENTRY 
*       BIT SET.
* 
# 
  
  
  
  
# 
****  PROC SSSAOR XREF LIST.
# 
      XREF
        BEGIN 
        PROC SSBSBW;         # SET BIT IN WORD                         #
        END 
# 
****
# 
  
  
  
  
      ITEM I       I;        # SCRATCH CELL                            #
      ITEM OEN     I;        # OVERLAY ENTRY POINT NUMBER              #
      ITEM OVN     I;        # OVERLAY NUMBER                          #
  
  
  
  
      ORC = ORC + 1;         # INCREMENT OVERLAY REQUEST COUNTER       #
  
      I = OEN  + 1 ;
      SSBSBW( ORT[OVN], I ); # SET BIT CORRESPONDING TO ENTRY DESIRED  #
  
      RETURN; 
  
  
  
  
      END # SSSAOR #
      TERM