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