SPL,L,O,"<GET>" 
     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$
                                                                                  