ASMB,R,Q,C
*     NAME:   RMPAR 
*     SOURCE: 92071-18213 
*     RELOC:  92071-1X213 
*     PGMR:   HLC,DJN 
* 
* 
*  **************************************************************** 
*  * (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.        * 
*  **************************************************************** 
* 
* 
      NAM RMPAR,7  92071-1X213  REV.2041  800409
      ENT RMPAR 
* 
      EXT $TMP1 
      EXT .MWF,.XLA,.CAX
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 D5        PUT COUNT IN X REG
      JSB .CAX
      JSB .XLA      SOURCE ADDRESS
      DEF $TMP1 
      JSB .MWF      MOVE 5 WORDS
      JMP RMPAR,I 
* 
D5    DEC 5 
      END 
                                                                                                                                                                                                                    