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