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