{ PRIMARY DATA CONVERSION FUNCTIONS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX }
  function  __main(b: longint; w: word): longint;
  function  __max(v1, v2: longint): longint;
  function  __min(v1, v2: longint): longint;
  function  __power(x,y: integer): longint;



  function __2longsup(hiword,loword : word): longint;
  inline($58 { pop ax } /$5A); { pop dx          }

  function __hiwrdsup(intvalue : longint) : word;
  inline($58 { pop ax } /$58); { pop ax }

        function __lowrdsup(intvalue : longint) : word;
  inline($58 { pop ax } /$5A); { pop dx }

  function  __2wordsup(hibyte,lobyte : byte) : word;
  inline($58 { pop ax } /$5A { pop dx } /$8A/$E2); { mov ah,dl }

  function __2bytesup(hinybble,lonybble : byte) : byte;
  inline(
    $5B/      { pop bx     }  $58/          { pop ax     }
    $32/$E4/  { xor ah,ah  }  $b1/$04/      { mov cl,4   }
    $d3/$E0/  { shl ax,cl  }  $80/$e3/$0f/  { and bl,0fh }
    $0A/$C3   { or  al,bl  }
  );

  function  __hinybsup(bytevalue : byte) : byte;
  inline(
    $58 { pop ax } /$32/$E4  { xor ah,ah }
    /$B1/$04 { mov cl,4 } /$D3/$E8 { shr ax,cl }
  );

        function __lonybsup(bytevalue : byte) : byte;
  inline($58 { pop ax } /$25/$0F/$00); { and ax,000fh }

  procedure __fcallsup(procptr : pointer; var reg : registers);
  inline(
    $8B/$DC/ { mov  bx,sp } $83/$C3/$04/  { add  bx,4 }
    $36/$FF/$1F/ { call dword ptr ss:[bx] } $83/$C4/$04 { add  sp,4 }
  );

  procedure __ncallsup(procptr : pointer; var reg : registers);
  inline(
    $8B/$DC { mov  bx,sp } /$83/$C3/$04 { add  bx,4 }
    /$36/$FF/$17 { call word ptr ss:[bx] } /$83/$C4/$04 { add  sp,4 }
  );

        function  __caddrsup : pointer;
        inline(
    $8B/$46/$02 { mov ax,[bp + 2] } /$2D/$03/$00 { sub ax,3 }
    /$8B/$56/$04 { mov dx,[bp + 4] }
  );

  procedure __iptrsup (var p : pointer; n : longint);
  procedure __dptrsup (var p : pointer; n : longint);
  function  __nptrsup (thisptr : pointer) : pointer;
  function  __ptr2lsup(thisptr : pointer) : longint;
  procedure __fillwsup(var target; count : longint; fillword : word);
  procedure __fillbsup(var target; count : longint; fillbyte : byte);
  procedure __repmsup (var target,source; count : longint; sourcesize : word);
  function  __alphasup(ch : char) : boolean;