SPL,L,O,"" NAME GET(7) "92425-16035 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. ! !------------------------------------------------------------- ! ! ! GET: PURPOSE: TO GET A SPECIFIED CHARACTER FROM A STANDARD ! STRING. ON ENTRY, THE A-REGISTER CONTAINS THE INDEX ! OF THE CHARACTER (1-N) AND THE B-REGISTER CONTAINS ! THE WORD ADDRESS OF THE STRING (THE ADDRESS OF THE ! COUNT WORD). UPON EXIT, THE CHARACTER IS RIGHT-JUSTIFIED ! IN THE A-REGISTER WITH HIGH-ORDER ZEROS. ! ! GET (A=CHAR INDEX, B=STRING ADDR) ! GET: FUNCTION GLOBAL,DIRECT GADDR_.A. ! SAVE ADDRESS LEFT_ .A. AND 1 ! RIGHT OR LEFT CHAR? GCHR_ $(((GADDR + 1) >- 1 ) + .B.) ! COMPUTE ADDR & GET WORD IF LEFT THEN GCHR _ (GCHR -< 8) ! SHIFT IF NECESSARY GETV _ GCHR AND 377K ! MASK OFF HIGH BITS RETURN GETV ! RETURN THE CHAR END ! END END$