Table of Contents

EXMREQ

Table Of Contents

Source Code

EXMREQ.txt 
  1. *DECK EXMREQ
  2.       PROC MEMREQ ( (NMRU) ); 
  3.       BEGIN # MEMREQ #
  4. *IF DEF,IMS 
  5.  #
  6. **
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        MEMREQ              M. D. PICKARD       76/11/19 
  10. * 
  11. *     2. FUNCTION DESCRIPTION 
  12. *        MEMREQ WILL ALTER THE ASSIGNED FIELD LENGTH OF THE CONTROL 
  13. *        POINT BY A SPECIFIED NUMBER OF MEMORY REQUEST UNITS (MRU). 
  14. * 
  15. *     3. METHOD USED
  16. *        MULTIPLY THE NUMBER OF MRU"S REQUESTED BY MRU SIZE, ADD
  17. *        THAT TO THE CURRENT FIELD LENGTH AND MAKE MEMORY REQUEST 
  18. *        TO THE OPERATING SYSTEM. 
  19. * 
  20. *     4. ENTRY PARAMETERS 
  21. *        A. FORMAL PARAMETERS 
  22. *           NMRU             NUMBER OF MEMORY REQUEST UNITS REQUESTED 
  23. * 
  24. *        B. TSBM GLOBAL 
  25. *           CTSBLWA          LOGICAL LAST WORD ADDRESS OF FIELD LENGTH
  26. * 
  27. *     5. EXIT PARAMETERS
  28. *        CTSBLWA             NEW LOGICAL LAST WORD ADDRESS
  29. * 
  30. *     6. COMDECKS CALLED
  31. *        CYBERDEFS           CYBER DEPENDENT VALUES 
  32. * 
  33. *     7. ROUTINES CALLED
  34. *        MEMORY              MAKE MEMORY REQUEST TO OPERATING SYSTEM
  35. * 
  36. *     8. DAYFILE MESSAGES 
  37. *        NONE.
  38. * 
  39. *     ***** NOTE *****
  40. * 
  41. *        THIS ROUTINE IS OPERATING SYSTEM DEPENDENT 
  42. * 
  43.  #
  44. *ENDIF
  45.       CONTROL NOLIST;        # CYBERDEFS, TSBDATA           # 
  46. *CALL CYBERDEFS 
  47. *CALL TSBDATA 
  48.       CONTROL LIST; 
  49.       ITEM
  50.            NMRU U;           # NUMBER OF MEMORY REQUEST UNITS REQUEST  #
  51.                              # MAY BE POSITIVE OR NEGATIVE             #
  52.       XREF
  53.         BEGIN 
  54.         PROC MEMORY;
  55.         END 
  56.       ITEM
  57.            TYPE C(WC) = "CM       "; # TYPE OF MEMORY REQUEST          #
  58.       ARRAY STATIS P(1);     # STATUS WORD PASSED TO MEMORY            #
  59.         ITEM
  60.              REQFL U    (0,0,HWL), # REQUESTED FIELD LENGTH            #
  61.              REQZERO U  (0,HWL,HWL); # LOWER HALF OF STATUS WORD       #
  62.       REQZERO[0] = 0;        # CLEAR PART OF STATUS WORD               #
  63.       REQFL[0] = ( CTSBLWA + 9 ) + ( NMRU * MRU ); # INITIAL FIELD LEN.#
  64.       MEMORY(TYPE,STATIS);   # REQUEST THE NEW FL                      #
  65.       CTSBLWA = REQFL[0] - 9; # SET CURRENT TSB LWA                    #
  66.       RETURN; 
  67.       END TERM # MEMREQ #