Retro1.org codex

*DECK     CSIIAM
USETEXT          TEXTCS 
USETEXT          TEXTSS 
PROC CSIIAM;
# TITLE CSIIAM - INITIALIZE AIP MONITOR.                              # 
 
      BEGIN  # CSIIAM # 
# 
**    CSIIAM - INITIALIZE AIP MONITOR.
* 
*     A. LIM.    81/10/06 
* 
*     THIS ROUTINE IS PART OF THE INITIALIZATION PROCESS FOR CS.
*     ITS JOB IS TO TELL THE AIP MONITOR WHERE THE OUTGOING TRAFFIC 
*     QUEUE IS. 
* 
*     PROC CSIIAM 
* 
*     ENTRY      NONE.
* 
*     EXIT       OUTGOING TRAFFIC QUEUE ADDRESSES SET IN COMMON.
* 
# 
 
      P<SSIOTQ> = LOC(P<OTQ>);
 
      P<SSIOTQL> = LOC(OTQL); 
 
      END  # CSIIAM # 
      TERM