ASMB,L
* 
*     NAME:   RUNST 
*     SOURCE: 92070-18295 
*     RELOC:  92070-16295 
*     PGMR:   DAVE NEFF 
* 
****************************************************************
* (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 RUNST 92070-1X295 REV.2001  790910  
* 
* THE FOLLOWING TWO EXTERNAL REFERENCES REFER TO A PASCAL LIBRARY ROUTINE 
* @RUNL CONTAINS THE LENGTH OF THE RUN STRING 
* @RUNS IS THE ADDRESS OF THE START OF THE ENTIRE RUN STRING
* 
      EXT @RUNL,@RUNS 
      EXT .ENTR,.MVW
      ENT RUNST 
ARUNS DEF @RUNS+0   GET RUN STRING ADDRESS HERE 
ARUNL NOP           STORAGE FOR LENGTH OF STRING
PARMB BSS 2         BLOCK  FOR PASSED ADDRESSES 
RUNST NOP 
      JSB .ENTR     GET PASSED ADDRESSES
      DEF PARMB     AND PUT THEM IN PARMB 
      LDA @RUNL     GET NUMBER OF CHARACTERS IN BUFFER
      STA PARMB+1,I RETURN COUNT TO CALLING PROGRAM 
      RAR           CONVERT TO WORD COUNT 
      STA ARUNL     STORE WORD COUNT
      LDA ARUNS     ADDRESS OF SOURCE BUFFER
      LDB PARMB     DESTINATION BUFFER ADDRESS
      JSB .MVW      MOVE WORD SUBROUTINE
      DEF ARUNL     NUMBER OF WORDS TO MOVE STORED THERE
      NOP           REQUIRED FOR TEMP STORAGE BY .MVW 
      JMP RUNST,I   RETURN
      END 
                                                                                                                                                                                                                                            