Retro1.org codex

*DECK     NVFIIAM 
USETEXT          TEXTNVF
USETEXT          TEXTSS 
PROC NVFIIAM; 
# TITLE NVFIIAM - INITIALIZE AIP MONITOR.                              #
 
      BEGIN  # NVFIIAM #
# 
**    NVFIIAM - INITIALIZE AIP MONITOR. 
* 
*     S. H. FISCHER.         81/08/25.
* 
*     THIS ROUTINE IS PART OF THE INITIALIZATION PROCESS FOR NVF. 
*     ITS JOB IS TO TELL THE AIP MONITOR WHERE THE OUTGOING TRAFFIC 
*     QUEUE IS. 
* 
*     PROC NVFIIAM
* 
*     ENTRY      NONE.
* 
*     EXIT       OUTGOING TRAFFIC QUEUE ADDRESSES SET IN COMMON.
* 
# 
 
      P<SSIOTQ> = LOC(P<OTQ>);
 
      P<SSIOTQL> = LOC(OTQLNGTH); 
 
      END  # NVFIIAM #
      TERM