Table of Contents

NET$MAC

Table Of Contents

  • [00050] NP$CLK - OBTAIN TIME OF DAY.

Source Code

NET$MAC.txt 
  1. *DECK NET$MAC 
  2. *IF DEF,IMS 
  3. *#
  4. *1DC  NET$MAC 
  5. *     1. PROC NAME           AUTHOR              DATE 
  6. *        NP$CLK              S.KRULEVITCH        77/09/29 
  7. *        NP$DATE
  8. *        NP$MSG 
  9. *        NP$TIM 
  10. *        NP$WRTR
  11. *        NP$WRTW
  12. *        NP$XCDD
  13. * 
  14. *     2. FUNCTIONAL DESCRIPTION 
  15. *        THESE COMPASS ROUTINES PROVIDE COMMUNICATION TO AIP"S SYMPL
  16. *        ROUTINES WITH OPERATING SYSTEM MACROS. 
  17. * 
  18. *     3. METHOD USED
  19. *        WHEN CALLING A PROCEDURE,SYMPL PASSES THE ADDRESS OF THE 
  20. *        PARAMETER LIST IN A1. X1 CONTAINS THE ADDRESS OF THE FIRST 
  21. *        PARAMETER. THE ADDRESS OF THE FIRST PARAMETER IS SAVED (IN X5).
  22. *        THE MACRO CALL RETURNS ITS RESULT(TIME,DATE,CPU-TIME,ETC.) 
  23. *        IN X1. ON LEAVING THE COMPASS ROUTINE THE RESULT IS RETURNED 
  24. *        IN X6 AND A1 POINTS TO THE LOCATION OF THE FIRST PARAMETER 
  25. *        (INSTEAD OF THE PARAMETER LIST OF ADDRESSES).
  26. * 
  27. *     4. ENTRY PARAMETERS 
  28. *        SEE BELOW
  29. * 
  30. *     5. EXIT PARAMETERS
  31. *        SEE BELOW
  32. * 
  33. *     6. COMDECKS CALLED
  34. *        NETCLK    NETDATE   NETMSG    NETTIM    NETWRTR   NETWRTW
  35. *        NETXCDD  COMCCDD  NP$CRT  NP$READ  NP$ROUT  NP$RTIM  NP$SLOF 
  36. *        NP$WRTO
  37. * 
  38. *     7. ROUTINES CALLED
  39. *        NONE 
  40. * 
  41. *     8. DAYFILE MESSAGES 
  42. *        NONE 
  43. * 
  44. *     9. MACRO PARAMETERS 
  45. *#
  46. *ENDIF
  47. *CALL NP$CRT
  48.           IDENT  NP$CLK 
  49.           ENTRY  NP$CLK 
  50.           TITLE  NP$CLK - OBTAIN TIME OF DAY. 
  51.           COMMENT   OBTAIN TIME OF DAY. 
  52.  NP$CLK   SPACE  4,10 
  53. *#
  54. *         NP$CLK - OBTAIN TIME OF DAY.
  55. * 
  56. *         CALL NP$CLK(STATUS) 
  57. * 
  58. *         ENTRY  NONE 
  59. * 
  60. *         EXIT   (STATUS) = TIME OF DAY 
  61. *         60/ * HH.MM.SS.*
  62. * 
  63. *         NP$CLK (STATUS);     (SYMPL CALL) 
  64. * 
  65. *         EXIT  - STATUS, A CHARACTER ITEM THAT WILL CONTAIN THE
  66. *                         CLOCK READING 
  67.  
  68. *#
  69.  
  70.  NP$CLK   SUBR   =
  71. *CALL NETCLK
  72.           EQ     NP$CLKX
  73.  
  74.           END