ASMB,R,Q,C
      HED <#RR7> REROUTING INIT. ROUTINE * (C) HEWLETT-PACKARD CO. 1979*
      NAM #RR7,30 91750-1X199 REV 2013 800207 ALL W/ RR 
      SPC 1 
      EXT $OPSY,#LVSC,#LCNT 
      ENT #RR7
* 
*    NAME:   #RR7 
*    SOURCE: 91750-18199
*    RELOC:  91750-1X199
*    PGMR:   DOUG W. TSUI   JULY 1979 
**
* 
******************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
******************************************************************
* 
* 
* 
* 
*  #RR7 CALLING SEQUENCE: 
* 
* 
*    < A REG. = LU >
*     JSB #RR7      FIND NEIGHBOR NODE FOR THIS LINK
*    < RETURN 1, NOT FOUND, A REG. = LU > 
*    < RETURN 2, FOUND, A REG. = NEIGHBOR NODE # >
* 
#RR7  NOP 
      STA LU        SET UP LU WORDS 
NOP   JSB CONFG 
      LDA #LCNT     RR ENABLE?
      SZA,RSS 
      JMP NOTFD     .NO 
      LDA LU
      JSB #LVSC     FIND SAM ADDR OF LU 
       JMP NOTFD    NOT IN LV 
      ADB =D5       ADD OFFSET TO GET NEIGHBROR # 
      JSB LDWD      LOAD IT 
      SSA 
      JMP NOTFD 
      ISZ #RR7      ADJUST RETURN ADDR
      JMP #RR7,I    RETURN
NOTFD EQU * 
      LDA LU        NOT FOUND, LOAD LU
      JMP #RR7,I
      SKP 
* 
*  CONFIGURE THE SYSTEM ENVIRONMENMT
* 
CONFG NOP 
      CLB 
      STB NOP 
      LDA $OPSY 
      RAR,SLA 
      STB LDMOD 
      JMP CONFG,I 
*** 
* 
*  LDWD LOADS ONE WORD FROM SAME TO LOCAL 
* 
*  CALLING SEQUENCE:
* 
*     <A> = RETURN WORD 
*     <B> ==> SAM BUFFER
* 
LDWD  NOP 
LDMOD JMP LDLDA 
      XLA 1,I 
      JMP LDWD,I
LDLDA LDA 1,I 
      JMP LDWD,I
* 
*** 
      SKP 
* 
*  DATA AREA
* 
LU    NOP 
      END 
                                                                                                                              