ASMB,Q,C
* 
*  ***************************************************************
*  * (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 PART NUMBER :92067-18401 
* 
*     RELOCATABLE PART NUMBER : 92067-16361 
* 
*     PROGRAMER(S)   : J.M.N. 
* 
* 
      NAM ACFID,7 92067-16361 REV.1940 781116 
      ENT ACFID 
      EXT .ENTR 
* 
A     EQU 0 
IVAL  NOP 
IDELI NOP 
KDEL  NOP 
ACFID NOP 
      JSB .ENTR 
      DEF IVAL
* 
      LDA IVAL,I    FETCH VALUE 
      RAL           ROTATE OFFSET FLAG TO LSB 
      SZA,RSS       IF ZERO DONT ADJUST 
      JMP ACFID,I 
* 
*     SEARCH FOR APPROPRIATE DELTA
* 
LOOP  LDB KDEL,I    GET RECORD NUMBER (64 WORDS/RECORD) 
      ISZ KDEL
      SSB,RSS       IF END OF TABLE 
      JMP FDEL      GO USE DELTA
      ADB A         COMPARE WITH RECORD # TO FIXED
      SSB           IF VALUE LESS THAN TABLE ENTRY
      JMP FDEL      THEN GO USE DELTA 
      ISZ KDEL      ELSE LOOK FOR NEXT TABLE ENTRY
      JMP LOOP
* 
*     FOUND DELTA 
FDEL  ADA KDEL,I    ADD TABLE OFFSET
      ADA IDELI,I   ADD INITIAL OFFSET
      RAR           ROTATE BACK 
      STA IVAL,I    PUT BACK CORRECTED VALUE
      JMP ACFID,I    AND RETURN 
      END 
              