Retro1.org codex

*DECK NET$MAC 
*IF DEF,IMS 
*#
*1DC  NET$MAC 
*     1. PROC NAME           AUTHOR              DATE 
*        NP$CLK              S.KRULEVITCH        77/09/29 
*        NP$DATE
*        NP$MSG 
*        NP$TIM 
*        NP$WRTR
*        NP$WRTW
*        NP$XCDD
* 
*     2. FUNCTIONAL DESCRIPTION 
*        THESE COMPASS ROUTINES PROVIDE COMMUNICATION TO AIP"S SYMPL
*        ROUTINES WITH OPERATING SYSTEM MACROS. 
* 
*     3. METHOD USED
*        WHEN CALLING A PROCEDURE,SYMPL PASSES THE ADDRESS OF THE 
*        PARAMETER LIST IN A1. X1 CONTAINS THE ADDRESS OF THE FIRST 
*        PARAMETER. THE ADDRESS OF THE FIRST PARAMETER IS SAVED (IN X5).
*        THE MACRO CALL RETURNS ITS RESULT(TIME,DATE,CPU-TIME,ETC.) 
*        IN X1. ON LEAVING THE COMPASS ROUTINE THE RESULT IS RETURNED 
*        IN X6 AND A1 POINTS TO THE LOCATION OF THE FIRST PARAMETER 
*        (INSTEAD OF THE PARAMETER LIST OF ADDRESSES).
* 
*     4. ENTRY PARAMETERS 
*        SEE BELOW
* 
*     5. EXIT PARAMETERS
*        SEE BELOW
* 
*     6. COMDECKS CALLED
*        NETCLK    NETDATE   NETMSG    NETTIM    NETWRTR   NETWRTW
*        NETXCDD  COMCCDD  NP$CRT  NP$READ  NP$ROUT  NP$RTIM  NP$SLOF 
*        NP$WRTO
* 
*     7. ROUTINES CALLED
*        NONE 
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
*     9. MACRO PARAMETERS 
*#
*ENDIF
*CALL NP$CRT
          IDENT  NP$CLK 
          ENTRY  NP$CLK 
          TITLE  NP$CLK - OBTAIN TIME OF DAY. 
          COMMENT   OBTAIN TIME OF DAY. 
 NP$CLK   SPACE  4,10 
*#
*         NP$CLK - OBTAIN TIME OF DAY.
* 
*         CALL NP$CLK(STATUS) 
* 
*         ENTRY  NONE 
* 
*         EXIT   (STATUS) = TIME OF DAY 
*         60/ * HH.MM.SS.*
* 
*         NP$CLK (STATUS);     (SYMPL CALL) 
* 
*         EXIT  - STATUS, A CHARACTER ITEM THAT WILL CONTAIN THE
*                         CLOCK READING 
 
*#
 
 NP$CLK   SUBR   =
*CALL NETCLK
          EQ     NP$CLKX
 
          END