Common COMKBST

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comkbst +++|          CTEXT  COMKBST - BINARY SEARCH TABLE.
00002  M01S00002.comkbst +++|          SPACE  4
00003  M01S00003.comkbst +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comkbst +++|          QUAL   COMKBST
00005  M01S00005.comkbst +++|          BASE   D

Line S00006 Modification History
`M01` (Added by)	`comkbst`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP.  1976.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comkbst +++|          SPACE  4
00009  M01S00008.comkbst +++|***       BST - BINARY SEARCH TABLE.
00010  M01S00009.comkbst +++|*         G. W. PROPP.  76/05/01.
00011  M01S00010.comkbst +++| BST      SPACE  4,20
00012  M01S00011.comkbst +++|**        BST - BINARY SEARCH TABLE.
00013  M01S00012.comkbst +++|*
00014  M01S00013.comkbst +++|*         ENTRY  (X1) = CRITERION.
00015  M01S00014.comkbst +++|*                (X2) = MASK.
00016  M01S00015.comkbst +++|*                (B4) = FWA OF TABLE.
00017  M01S00016.comkbst +++|*                (B3) = LENGTH OF TABLE.
00018  M01S00017.comkbst +++|*
00019  M01S00018.comkbst +++|*         EXIT   (X1) = CRITERION.
00020  M01S00019.comkbst +++|*                (X2) = MASK.
00021  M01S00020.comkbst +++|*                (X3) = 0 IF ENTRY NOT FOUND.
00022  M01S00021.comkbst +++|*                     = ENTRY IF FOUND.
00023  M01S00022.comkbst +++|*                (A3) = ADDRESS OF FOUND ENTRY.
00024  M01S00023.comkbst +++|*
00025  M01S00024.comkbst +++|*         USES   A - 3.
00026  M01S00025.comkbst +++|*                X - 3, 4, 6.
00027  M01S00026.comkbst +++|*                B - 3, 4.
00028  M01S00027.comkbst +++|
00029  M01S00028.comkbst +++|
00030  M01S00029.comkbst +++| BST3     SX3    0           RETURN *NOT FOUND*
00031  M01S00030.comkbst +++| BST      SUBR               ENTRY/EXIT
00032  M01S00031.comkbst +++|          SB3    B3+B4       LWA+1 OF TABLE
00033  M01S00032.comkbst +++|          SX3    B0
00034  M01S00033.comkbst +++|          EQ     BST2        ENTER LOOP
00035  M01S00034.comkbst +++| BST1     SB4    A3+         SET NEW LOW LIMIT
00036  M01S00035.comkbst +++| BST2     SX4    B3-B4       FIND MIDDLE
00037  M01S00036.comkbst +++|          AX4    1
00038  M01S00037.comkbst +++|          SA3    X4+B4       READ ENTRY
00039  M01S00038.comkbst +++|          BX6    X2*X3       MASK ENTRY
00040  M01S00039.comkbst +++|          IX6    X6-X1       ENTRY - CRITERION
00041  M01S00040.comkbst +++|          ZR     X6,BST      IF FOUND RETURN
00042  M01S00041.comkbst +++|          ZR     X4,BST3     IF TABLE EXHAUSTED
00043  M01S00042.comkbst +++|          NG     X6,BST1     IF ENTRY .LT. CRITERION
00044  M01S00043.comkbst +++|          SB3    A3          SET UPPER LIMIT
00045  M01S00044.comkbst +++|          EQ     BST2        CONTINUE SEARCH
00046  M01S00045.comkbst +++|
00047  M01S00046.comkbst +++|          BASE   *
00048  M01S00047.comkbst +++| QUAL$    IF     -DEF,QUAL$
00049  M01S00048.comkbst +++|          QUAL   *
00050  M01S00049.comkbst +++| BST      EQU    /COMKBST/BST
00051  M01S00050.comkbst +++| QUAL$    ENDIF
00052  M01S00051.comkbst +++|          ENDX