+604,606          S29899 C.W. 9-28-77 F03                               COBOL41L
*        SIDR 29899 F03 CHG/INSERT NEXT FOUR INST.                      COBOL41L
         BLEZ     ADC20B            NO SKIP 1 INST                      COBOL41L
*        SIDR 32488 F04 CHG TO BINARY SEARCH    R.L.R. 2-28-80 F04         COBOL41L
         LW,V1    TDBKYODR          SKIP CHG IF TDBKYODR = 0            COBOL41L
         BEZ      $+4                                                   COBOL41L
         LH,7     JTDB              CHG TDBKYODR FOR INDEXED OBJECT     COBOL41L
         AND,7    L(X'FF00')                                            COBOL41L
         STH,7    TDBKYODR                                              COBOL41L
         CI,7     0                                                     COBOL41L
         BLEZ     ADC20B            NO SKIP 1 INST                      COBOL41L
         BAL,L1   KEYINFOR          TO GET KEY INFOR                    COBOL41L
ADC20B   LH,V1    ADCIJCT                                               COBOL41L
+734              S29527 C.W. F03 6-14-77                               COBOL41L
         CI,R4    -4                SEE IF EXPRESSION                   COBOL41L
         BG       $+2               NO                                  COBOL41L
         AI,R4    8                 YES--ADJUST                         COBOL41L
+1408             S31196 R. L. R. F04 2-2-79                            COBOL41L
         B        ADC94                                                 COBOL41L
+END                                                                    COBOL41L
