ASMB,R,Q,C
*     NAME:   RMPAR 
*     SOURCE: 92070-18213 
*     RELOC:  92070-1X213 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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.        * 
*  **************************************************************** 
* 
* 
      NAM RMPAR,7  92070-1X213  REV.1941  790205
      ENT RMPAR 
* 
      EXT $TMP1 
      EXT .MVW
A     EQU 0 
B     EQU 1 
* 
RMPAR NOP 
      LDA RMPAR,I 
      ISZ RMPAR 
      LDB RMPAR 
      STA RMPAR     RETURN ADDRESS
      LDB B,I 
      RBL,CLE,SLB,ERB CLEAR INDIRECTS 
      JMP *-2 
      LDA $TMP1     SOURCE ADDRESS
      JSB .MVW      MOVE 5 WORDS
      DEF D5
      NOP 
      JMP RMPAR,I 
* 
D5    DEC 5 
      END 
                  