Retro1.org codex

*DECK NS$SGT
USETEXT NAT$NS
USETEXT DEF$NS
 
PROC NS$SGT;                 # START ACTIVITY TIMER                    #
 
# TITLE NS$SGT - START ACTIVITY TIMER.                                 #
 
      BEGIN    # NS$SGT # 
# 
**    NS$SGT - START ACTIVITY TIMER.
* 
*     J.C. LEE    1981
* 
*     THIS ROUTINE STARTS THE ACTIVITY TIMER. 
* 
*     PROC NS$SGT 
* 
*     ENTRY:  
*       NONE. 
* 
*     EXIT: 
*       NONE. 
* 
*     METHOD: 
*       GET REAL TIME CLOCK.
*       START ACTIVITY TIMER. 
* 
# 
 
      XREF
        BEGIN 
        PROC RTIME;          # GET REAL TIME CLOCK                     #
        END 
 
      ARRAY STAT [0:0] S(1);
        BEGIN                          # PARAMETER WORD FOR RTIME CALL #
        ITEM STATWORD   U(00,00,60);   # REAL TIME CLOCK READING       #
        ITEM RSECS      U(00,00,24);   # SECONDS SINCE DEADSTART       #
        ITEM RMSECS     U(00,24,36);   # MILLISECONDS SINCE DEADSTART  #
        END 
 
CONTROL EJECT;
      RTIME(STAT);                       # GET REAL TIME CLOCK         #
      NAT$GTIMER[0] = RSECS[0] + ATIMER; # START ACTIVITY TIMER        #
 
      RETURN; 
      END   # NS$SGT #
      TERM