ASMB HED S/P IGET2 (15/10/75) F. GAULLIER NAM IGET2,7 . 92903-16001 REV.1805 760907 * * SOURCE 92903-18019 * 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 IGET2 * * THIS PROGRAM GETS 2 BYTES IN A STRING * .BUFF NOP BUFFER ADDRESS .N NOP REL. ADDRESS OF FIRST BYTE * IGET2 NOP JSB .ENTR DEF .BUFF CCB ADB .N,I CLE,ERB ADB .BUFF DLD 1,I SEZ RRL 8 JMP IGET2,I END