ANY_ANY_SB

FUNCTION "ANY_ANY_SB" : DWORD
TITLE =
//RET_VAL = any1 - any2, precision of  1 bit
VERSION : 0.1


VAR_INPUT
  any1 : ANY ;
  any2 : ANY ;
END_VAR
BEGIN
NETWORK
TITLE =

      L     P##any1;
      LAR1  ;
      L     P##any2;
      LAR2  ;
// sama Memory Area?
      L     B [AR1,P#6.0];
      L     B [AR2,P#6.0];
      <>I   ;
      JC    fail;
// sama DB?
      L     W [AR1,P#4.0];
      L     W [AR2,P#4.0];
      <>I   ;
      JC    fail;

//  byte 6's are equal so they make 0 on substraction

      L     D [AR1,P#6.0];
      L     D [AR2,P#6.0];
      -D    ;
      T     #RET_VAL;
      BEU   ;

fail: NOP   0;
      L     0;
      T     #RET_VAL;


END_FUNCTION