ASMB
      NAM S.GET,7 24306-60001 REV.2026 791207 
* 
* 
******************************************************************* 
* (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. 
******************************************************************* 
* 
* 
*     SOURCE:    24306-18022
*     RELOC:     24306-60001
* 
* 
* 
******************************************************************
* 
* 
* 
* 
*S.GET PICKS UP A CHARACTER FROM A SPECIFIED POSITION IN AN ARRAY 
*S.GET PICKS UP THE CHARACTER IN JSTR(J) AND RETURNS IT IN JHOLD. 
* 
      ENT S.GET 
      EXT .ENTR,SGET
JSTR  NOP 
J     NOP 
JHOLD NOP 
S.GET NOP 
      JSB .ENTR     TRANSFER
      DEF JSTR       PARAMETERS 
* 
      JSB SGET
      DEF *+4 
      DEF JSTR,I
      DEF J,I 
      DEF JHOLD,I 
* 
      LDB JHOLD,I 
      STB A 
      ALF,ALF 
      SSA 
      ADB HIBYT 
      STB JHOLD,I 
      JMP S.GET,I 
* 
* 
A     EQU 0 
B     EQU 1 
HIBYT OCT 177400
      END 
                                                                                                        