      SUBROUTINE PLU.IP.AND(ADDR1,ADDR2,RES)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      OPEN 'WWW.CTRL,TBL.MATH' TO TBL.FD ELSE CALL PLXX.STOP(201,'WWW.CTRL,TBL.MATH')
*
      A1X = PL_IPTOHEX(ADDR1)
      A2X = PL_IPTOHEX(ADDR2)
*
      AX = ''
      FOR I = 1 TO 8
         READV A FROM TBL.FD , A1X[I,1] : A2X[I,1] , 3 ELSE STOP 'X'
         AX = AX : A
      NEXT I
*
      RES = PL_HEXTOIP(AX)
*
      RETURN
   END
