ASMB HED ** S/P IGET1 (21MX ONLY) P. SENANT 10/10/75 NAM IGET1,7 . 92903-16001 REV.1805 760907 * * SOURCE 92903-18018 * SPC 2 ************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * ************************************************************** SPC 2 EXT .ENTR ENT IGET1 * * THIS PROGRAM GETS A BYTE IN A STRING * THE RETURNED WORD : - LEFT : THIS BYTE * - RIGHT : ONE BLANK * DM1 DEC -1 * .BUFF NOP BUFFER ADDRESS .N NOP REL. ADDR. OF BYTE * IGET1 NOP JSB .ENTR DEF .BUFF LDB .BUFF CLE,ELB ADB DM1 ADB .N,I LBT ALF,ALF IOR O40 JMP IGET1,I * O40 OCT 40 END