ASMB,R,Q,C
      HED <#RR5> REROUTING INIT. ROUTINE * (C) HEWLETT-PACKARD CO. 1979*
      NAM #RR5,7 91750-1X031 REV 2013 791206 ALL W/ RR
      SPC 1 
      EXT XLUEX,$OPSY 
      EXT #LV,#LCNT 
      ENT #RR5
* 
*    NAME:   #RR5 
*    SOURCE: 91750-18031
*    RELOC:  91750-1X031
*    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.       *
******************************************************************
* 
* 
* 
* 
* 
*  #RR5 CALLING SEQUENCE: 
* 
* 
*     JSB #RR5      DISABLE ALL RR LINKS
* 
#RR5  NOP 
NOP   JSB CONFG 
      LDA #LCNT 
      SZA,RSS 
      JMP #RR5,I
      CMA,INA 
      STA J         SET UP LOOP INDEX 
      LDB #LV 
      STB @LV       SET UP LV ADDR
LOOP  EQU * 
      JSB LDWD      GET LU WORD 
      AND =B377 
      IOR =B100000
      STA CONWD 
      JSB XLUEX     DISABLE CALL
       DEF *+3
       DEF D3 
       DEF CONWD
      ISZ J 
      RSS 
      JMP #RR5,I
      LDB @LV 
      ADB LVSZ
      STB @LV 
      JMP LOOP
      JMP #RR5,I
      SKP 
*** 
* 
*  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
* 
*** 
* 
*  CONFIGURE THE SYSTEM ENVIRONMENT 
* 
CONFG NOP 
      CLB 
      STB NOP 
      LDA $OPSY 
      RAR,SLA 
      STB LDMOD 
      JMP CONFG,I 
      SKP 
* 
*  DATA AREA
* 
CONWD NOP 
      OCT 3100
J     NOP 
D3    DEC 3 
@LV   NOP 
LVSZ  DEC 6 
      END 
                                                                                                                                                    