ASMB
      NAM SGET,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-18015
*     RELOC:     24306-60001
* 
* 
* 
******************************************************************
* 
* 
* 
* 
*SGET PICKS UP A CHARACTER FROM A SPECIFIED POSITION IN AN ARRAY
*SGET PICKS UP THE CHARACTER IN JSTR(J) AND RETURNS IT IN JHOLD.
* 
      ENT SGET
      EXT .ENTR 
AR    EQU 0 
JSTR  NOP 
J     NOP 
JHOLD NOP 
SGET  NOP 
      JSB .ENTR     TRANSFER
      DEF JSTR       PARAMETERS 
      CCA 
      ADA J,I       J-1 
      CLE 
      ERA           GET WORD VALUE AND SET E-REG IF ODD 
      ADA JSTR      GET EFFECTIVE ADDRESS 
      LDA AR,I      LOAD PROPER WORD OF JSTR
      SEZ,RSS       EVEN OR ODD?
      ALF,ALF       EVEN
      AND B377      GET CORRECT CHARACTER 
      STA JHOLD,I   STORE 
      JMP SGET,I
B377  OCT 000377
      END 
      END$
ASMB,R,L
*SGET PICKS UP A CHARACTER FROM A SPECIFIED POSITION IN AN ARRAY
*SGET PICKS UP THE CHARACTER IN JSTR(J) AND RETURNS IT IN JHOLD.
* 
      NAM SGET,7
      ENT SGET
      EXT .ENTR 
AR    EQU 0 
JSTR  NOP 
J     NOP 
JHOLD NOP 
SGET  NOP 
      JSB .ENTR     TRANSFER
      DEF JSTR       PARAMETERS 
      CCA 
      ADA J,I       J-1 
      CLE 
      ERA           GET WORD VALUE AND SET E-REG IF ODD 
      ADA JSTR      GET EFFECTIVE ADDRESS 
      LDA AR,I      LOAD PROPER WORD OF JSTR
      SEZ,RSS       EVEN OR ODD?
      ALF,ALF       EVEN
      AND B377      GET CORRECT CHARACTER 
      STA JHOLD,I   STORE 
      JMP SGET,I
B377  OCT 000377
      END 
      END$
                                            