Retro1.org codex

*DECK NS$SLT
USETEXT NAT$NS
USETEXT DEF$NS
 
PROC NS$SLT;                 # START RESPONSE TIMER                    #
 
# TITLE NS$SLT - START LOCAL TIMER.                                    #
 
      BEGIN    # NS$SLT # 
# 
**    NS$SLT - START LOCAL TIMER. 
* 
*     J.C. LEE    1981
* 
*     THIS ROUTINE STARTS THE LOCAL TIMER.
* 
*     PROC NS$SLT 
* 
*     ENTRY:  
*       NONE. 
* 
*     EXIT: 
*       NONE. 
* 
*     METHOD: 
*       GET REAL TIME CLOCK.
*       SET LOCAL TIME IN NAT TO CURRENT TIME + RESPONSE TIME.
* 
# 
 
      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$LTIMER[0] = RSECS[0] + RTIMER; # START RESPONSE TIMER        #
 
      RETURN; 
      END   # NS$SLT #
      TERM