ASMB,R,L
      HED RANGE ROUTINE 
*     NAME:   RANGE 
*     SOURCE: 92067-18169 
*     RELOC:  92067-16125 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (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 RANGE,8 92067-16125 REV.1903 740801 
      ENT RANGE 
* 
      EXT .ENTR 
* 
FNUM  NOP 
BUFR  NOP 
* 
RANGE NOP 
      JSB .ENTR 
      DEF FNUM
      LDB FNUM,I
      LDA BUFR,I
      ALF,ALF 
      ADA BUFR,I
      AND B377
      CMA,INA 
      ADA FNUM,I
      ISZ BUFR
      SSA 
      JMP *+3 
      ISZ BUFR
      JMP RANGE+4 
      LDA BUFR,I
      JMP RANGE,I 
* 
B377  OCT 377 
* 
      END 
                                