Table of Contents

SSSAOR

Table Of Contents

  • [00003] PROC SSSAOR( OVN, OEN )
  • [00004] SSSAOR - ACCEPT OVERLAY REQUEST.
  • [00007] ACCEPT WORKLIST REQUEST.
  • [00033] PROC SSBSBW

Source Code

SSSAOR.txt 
  1. *DECK     SSSAOR
  2. USETEXT          TEXTSS 
  3. PROC SSSAOR( OVN, OEN );
  4. # TITLE SSSAOR - ACCEPT OVERLAY REQUEST.                               #
  5.       BEGIN # SSSAOR #
  6. # 
  7. **    SSSAOR - ACCEPT WORKLIST REQUEST. 
  8. * 
  9. *     S. H. FISCHER.         82/05/05.
  10. * 
  11. *     THIS ROUTINE ACCEPTS OVERLAY ENTRY POINT EXECUTION REQUESTS.
  12. * 
  13. *     PROC SSSAOR( OVN, OEN ) 
  14. * 
  15. *     ENTRY:  
  16. *       OVN = OVERLAY NUMBER. 
  17. *       OEN = OVERLAY ENTRY POINT NUMBER. 
  18. * 
  19. *     EXIT: 
  20. *       OVERLAY REQUEST COUNTER INCREMENTED AND OVERLAY ENTRY 
  21. *       BIT SET.
  22. * 
  23. # 
  24.  
  25.  
  26.  
  27.  
  28. # 
  29. ****  PROC SSSAOR XREF LIST.
  30. # 
  31.       XREF
  32.         BEGIN 
  33.         PROC SSBSBW;         # SET BIT IN WORD                         #
  34.         END 
  35. # 
  36. ****
  37. # 
  38.  
  39.  
  40.  
  41.  
  42.       ITEM I       I;        # SCRATCH CELL                            #
  43.       ITEM OEN     I;        # OVERLAY ENTRY POINT NUMBER              #
  44.       ITEM OVN     I;        # OVERLAY NUMBER                          #
  45.  
  46.  
  47.  
  48.  
  49.       ORC = ORC + 1;         # INCREMENT OVERLAY REQUEST COUNTER       #
  50.  
  51.       I = OEN  + 1 ;
  52.       SSBSBW( ORT[OVN], I ); # SET BIT CORRESPONDING TO ENTRY DESIRED  #
  53.  
  54.       RETURN; 
  55.  
  56.  
  57.  
  58.  
  59.       END # SSSAOR #
  60.       TERM