Retro1.org codex

User Tools

Site Tools

Trace: • LIMITS
cdc:nos2.source:opl871:limits

Table of Contents

LIMITS

Table Of Contents

  • [00004] LIMITS - CHANGE TASK LIMITS.
  • [00008] CHANGE TASK LIMITS.

Source Code

LIMITS.txt 
  1.           IDENT  LIMITS
  2.           ENTRY  ITL
  3.           ENTRY  IIO
  4.           TITLE  LIMITS - CHANGE TASK LIMITS.
  5. *COMMENT  LIMITS - CHANGE TASK LIMITS.
  6.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  7.           SPACE  4
  8. ***       LIMITS - CHANGE TASK LIMITS.
  9. *         G.R.HUNTER. 73/06/29.
  10.           SPACE 4
  11. *CALL     COMKMAC
  12. *CALL     COMSPRD
  13.           SPACE  4
  14. ***       ITL - CHANGE CPU TIME LIMIT.
  15. *
  16. *         CALL FORMAT
  17. *
  18. *         FORTRAN EXTENDED
  19. *                CALL ITL(NTL)
  20. *         COBOL
  21. *                ENTER ITL USING NTL.
  22. *
  23. *         WHERE NTL = NEW TIME LIMIT IN XJ TIME UNITS
  24.  
  25.  
  26. ITL       PS
  27.           SX1    X1          GET NEW TIME LIMIT
  28.           ITL    X1          CHANGE TIME LIMIT
  29.           EQ     ITL         RETURN
  30.  IIO      SPACE  4
  31. ***       IIO - CHANGE TASK I/O LIMIT.
  32. *
  33. *         CALL FORMAT
  34. *
  35. *         FORTRAN EXTENDED
  36. *                CALL IIO(NIO)
  37. *         COBOL
  38. *                ENTER IIO USING NIO.
  39. *
  40. *         WHERE NIO = NEW I/O LIMIT
  41.  
  42.  
  43. IIO       PS
  44.           SX1    X1          GET NEW I/O LIMIT
  45.           IIO    X1          CHANGE I/O LIMIT
  46.           EQ     IIO         RETURN
  47.  
  48.           END
cdc/nos2.source/opl871/limits.txt · Last modified: 2023/08/05 17:24 by Site Administrator