Retro1.org codex

*DECK     NVFIBOT 
USETEXT TEXTNVF 
USETEXT TXCMDNV 
PROC NVFIBOT; 
# TITLE NVFIBOT - BUILD OPERATOR TABLE AND FLAGS.   # 
 
      BEGIN  # NVFIBOT #
# 
**    NVFIBOT - BUILD OPERATOR TABLE AND FLAGS. 
* 
*     D. G. DEPEW.           82/04/23.
* 
*     THIS PROC ESTABLISHES THE ACN LIST (MANAGED TABLE *ACN*) ENTRY
*     FOR THE HOP AND INITIALIZES CERTAIN OPERATOR RELATED FLAGS. 
* 
*     PROC NVFIBOT
* 
*     ENTRY   NONE. 
* 
*     EXIT    1. THE HOP ACN LIST ENTRY HAS BEEN BUILT (IT REMAINS AS 
*                LONG AS NVF REMAINS).
*             2. ALL REQUIRED FLAGS HAVE BEEN INITIALIZED.
# 
 
# 
****  PROC NVFIBOT - XREF LIST. 
# 
      XREF
        BEGIN 
        PROC SSTATS;         # ALLOCATE TABLE SPACE                    #
        END 
# 
****
# 
 
 
 
 
 
# 
*     BUILD THE HOP ACN LIST ENTRY.  STORE AN ACN OF 1.  SINCE NVF NETS 
*     ON WITH A MINIMUM ACN OF 2, THIS WILL PREVENT THE C-LAYER (MAINLY 
*     THE SEARCH ROUTINE *NVFCFCE*) FROM CONFUSING THE HOP ENTRY WITH 
*     ANY REAL ACN ENTRY. 
# 
      SSTATS (P<ACN>, ACNLSIZ$);       # MUST (SHOULD) BE FIRST ENTRY  #
      ACN$WORD0[HOPORD$] = 0; 
      ACN$WORD1[HOPORD$] = 0; 
      ACN$ACN[HOPORD$] = 1; 
 
 
# 
*     INITIALIZE RELEVANT FLAGS AND COUNTERS. 
# 
      ABORTCMDF = FALSE;     # INIT ABORT-COMMAND FLAG TO FALSE        #
      CMDINPGF = FALSE;      # INIT COMMAND-IN-PROGRESS FLAG TO FALSE  #
      HOPENDWF = FALSE;      # INIT HOP/END-WARNING FLAG TO FALSE      #
      HSBCNT = 0;            # INIT HISTORY BUFFER LINE COUNT TO 0     #
      INVPSR = 0;            # INIT INTERRUPT CELL FOR *NVFVPSR* TO 0  #
      NVFSTATE = FALSE;      # INIT IDLE/DISABLE HOST TO FALSE         #
      SSBUSYF = FALSE;       # INIT SERIAL-SEARCHER-BUSY FLAG TO FALSE #
 
 
      END  # NVFIBOT #
 
      TERM