ASMB,R,L
      HED STRING UNPACK SUBROUTINE
      NAM UNPAK,7 92425-16039 REV.1841 780927 
* 
*-------------------------------------------------------------
* 
* 
*     F. WARREN         17MAY76    REV. A 
* 
*     "C" COPYRIGHT HEWLETT-PACKARD COMPANY 1976. 
*     ALL RIGHTS RESERVED.  NO PART OF THIS PROGRAM 
*     MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED
*     TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR 
*     WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. 
* 
*-------------------------------------------------------------
* 
* 
      ENT UNPAK,UPBUF 
* 
* 
* 
***************************************************** 
**
*       STRING UNPACK SUBROUTINE
* 
*       ADELE M. GADOL
* 
*       8/31/73 (REV.A) 
* 
****************************************************
* 
* 
* 
*     *****  EXTERNAL SYMBOLS  *****
* 
* 
* 
*  THE FOLLOWING ROUTINE UNPACKS A CHARACTER FROM A PACKED
*  ASCII BUFFER ACCORDING TO THE POINTER UPBUF.  UPBUF
*  CONTAINS THE ADDRESS OF THE WORD TO UNPACK FROM; THE 
*  SIGN BIT, IF SET, INDICATES A FETCH FROM THE LOW ORDER 
*  BITS OF THE WORD.  UNPAK UPDATES UPBUF, SO THAT IT 
*  MAY BE CALLED SUCCESSIVELY TO SEARCH THROUGH A BUFFER. 
* 
*  CALLING SEQUENCE:  LDA VALUE FOR UPBUF 
*                     STA UPBUF 
*                     JSB UNPAK 
*                     NORMAL RETURN     CHAR. IN A-REGISTER 
* 
* 
UPBUF BSS 1 
* 
UNPAK NOP 
      LDB UPBUF 
      CLE 
      ELB,RBR 
      LDA 1,I 
      SEZ,RSS 
      ALF,ALF 
      AND B177
      SEZ,CME 
      INB,RSS 
      ELB,RBR 
      STB UPBUF 
      JMP UNPAK,I 
B177  OCT 177 
* 
      END 
                                                                                                                                