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