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: * * = RETURN WORD * ==> 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