*COMDECK COMTFL 
 NOS      IF     DEF,NOS
TFL       SPACE  4,10 
**        TFL - TEST IF (A) ARE WITHIN USERS FIELD LENGTH 
* 
*         ENTRY  (A) = RELATIVE ADDRESS TO BE TESTED
* 
*         EXIT   (A) = 0, ADDRESS NOT WITHIN USERS FIELD LENGTH 
*                    .GT. 0, ABSOLUTE ADDRESS 
* 
*         USES   NONE 
* 
*         CALLS  NONE 
  
  
 TFL      ENM    X
          SHN    17 
          MJN    TFL2              IF VALUE IS ODD
          SHN    13                POSITION TO VALUE/100B 
          SBD    D.FL 
          SHN    5
          MJN    TFL3              IF VALUE IN RANGE
 TFL1     LDN    0                 OUT OF RANGE 
          UJN    TFLX 
  
 TFL2     SHN    13                POSITION TO VALUE/100B 
          SBD    D.FL 
          SHN    5
          MJN    TFL1              IF VALUE TOO BIG 
 TFL3     SHN    13                REPOSITION TO VALUE/100B 
          ADD    D.FL              RESTORE VALUE
          ADD    D.RA              ADD RA 
          SHN    6                 REPOSTION VALUE
          UJN    TFLX 
 NOS      ENDIF 
