Retro1.org codex

*DECK     NVFIITR 
USETEXT          TEXTSS 
USETEXT          TEXTNVF
USETEXT          TXINNVF
PROC NVFIITR; 
# TITLE NVFIITR - INITIALIZE TIMER ROUTINES.                           #
 
      BEGIN # NVFIITR # 
# 
**    NVFIITR - INITIALIZE TIMER ROUTINES.
* 
*     S. H. FISCHER.         81/08/31.
* 
*     THIS ROUTINE IS PART OF THE INITIALIZATION PROCESS FOR NVF. 
*     ITS JOB IS TO TELL THE TIMER ROUTINES WHERE THE TIMER REQUEST 
*     QUEUE IS AND SET OTHER VALUES NEEDED. 
* 
*     PROC NVFIITR
* 
*     ENTRY      NONE.
* 
*     EXIT       ADDRESSES SET IN COMMON. 
* 
# 
 
 
 
# 
****  PROC NVFIITR XREF LIST. 
# 
 
      XREF
        BEGIN 
        PROC SSCUTD;                   # SS- UPDATE TIME OF DAY        #
        END 
 
# 
****
# 
 
 
      P<SSITRQ> = LOC (P<TRQ>); 
 
      P<SSITRQL> = LOC (TRQLNGTH);
 
      SSCRTRW = WWDF"SCRTR";
 
 
      CTM$FTIME[0] = O"7777 7777";
 
 
      SSCUTD; 
 
 
      END # NVFIITR # 
      TERM