ASMB HED S/P IRANG (21MX ONLY) 8/7/76 P. SENANT NAM IRANG,7 . 92080-1X023 REV.2026 800515 * * SOURCE 92080-18023 * 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 IRANG * * THIS SUBPROGRAM COMPARES TWO BUFFERS * BUF1=BUF2 : 0 * BUF1BUF2 : 1 * * BUF1 NOP BUF2 NOP NN NOP * IRANG NOP JSB .ENTR DEF BUF1 LDA BUF1 LDB BUF2 CMW NN,I JMP *+4 CCA,RSS CLA,INA JMP IRANG,I CLA JMP IRANG,I END