ASMB
      HED S/P ISBTW      (15/10/75)    F. GAULLIER
      NAM ISBTW,7 . 92903-16001 REV.1805  760907
* 
*     SOURCE 92903-18025
* 
      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 
      ENT ISBTW 
      EXT .ENTR 
  SPC 1 
*      LOGICAL FUNCTION ISBTW(I,MIN,MAX)
* 
*   ISBTW =  0 / .FALSE. (E=1)  IF I IS INSIDE THE LIMITS.
*                               (LIMITS INCLUDED.)
* 
*     THE SAME AS FTN4 STATEMENT: 
* 
*                    ISBTW = I.LT.MIN .OR. I.GT.MAX 
  SPC 2 
I     NOP 
MIN   NOP 
MAX   NOP 
ISBTW NOP 
      JSB .ENTR 
      DEF I 
* 
      LDA MIN,I 
      CMA,INA 
      ADA I,I 
      STA 1 
      LDA I,I 
      CMA,INA 
      ADA MAX,I 
      IOR 1 
      SSA 
      CCA,CLE,RSS   OUTSIDE LIMIT ---> .TRUE.  E=0
      CLA,CCE       INSIDE LIMIT  ---> .FALSE. / 0  E=1 
      JMP ISBTW,I 
      END 
                                                