       5.3.16. 32-razrqdnaq arifmetika



       funkcii  dannoj  gruppy  pozwolq`t  rabotatx  s   dannymi   tipa
  INTEGER*4.



  A=AJFLT(JARG)
         - preobrazuet zna~enie tipa INTEGER*4 iz JARG w zna~enie  tipa
           REAL*4 i wozwra}aet polu~ennyj rezulxtat, kak zna~enie funk-
           cii.

  D=DJFLT(JARG)
         - preobrazuet zna~enie tipa INTEGER*4 iz JARG w zna~enie  tipa
           REAL*8 i wozwra}aet polu~ennyj rezulxtat, kak zna~enie funk-
           cii.

  I=IAJFLT(JARG,ARES)
         - preobrazuet zna~enie tipa INTEGER*4 iz JARG w zna~enie  tipa
           REAL*4 i zapominaet rezulxtat w ukazannoj peremennoj ARES.

       funkciq wozwra}aet zna~enie:

           -2   - pri preobrazowanii poterqny zna~a}ie cifry;

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

  I=IDJFLT(JARG,DRES)
         - preobrazuet zna~enie tipa INTEGER*4 iz JARG w zna~enie  tipa
           REAL*8 i zapominaet rezulxtat w ukazannoj peremennoj DRES.

       funkciq wozwra}aet zna~enie:

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

  I=IJCVT(JARG[,IRES])
         - preobrazuet zna~enie tipa INTEGER*4 iz JARG w zna~enie  tipa
           INTEGER*2 w IRES. esli IRES ne ukazano, to rezulxtat zapisy-
           waetsq w JARG.

       funkciq wozwra}aet zna~enie:

           -2   - wo wremq preobrazowaniq proizo{lo perepolnenie;

                                 - 193 -




           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

  J=JADD(JARG1,JARG2,JRES)
         - wy~islqet summu dwuh zna~enij tipa  INTEGER*4,  ukazannyh  w
           JARG1 i JARG2, i pome}aet rezulxtat w JRES.

       funkciq wozwra}aet zna~enie:

           -2   - wo wremq wy~isleniq summy proizo{lo perepolnenie;

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

  I=JAFIX(AARG,JRES)
         - preobrazuet zna~enie tipa REAL*4 iz  AARG  w  zna~enie  tipa
           INTEGER*4 w JRES.

       funkciq wozwra}aet zna~enie:

           -2   - wo wremq preobrazowaniq proizo{lo perepolnenie;

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

  I=JCMP(JARG1,JARG2)
         - srawniwaet dwa ~isla tipa INTEGER*4 iz JARG1 i JARG2 i wozw-
           ra}aet znakowyj rezulxtat srawneniq w INTEGER*2 kak zna~enie
           funkcii.

       funkciq wozwra}aet zna~enie:

           -1   - JARG1<JARG2;

            0   - JARG1=JARG2;

            1   - JARG1>JARG2.

  J=JDFIX(DARG,JRES)
         - preobrazuet zna~enie tipa REAL*8 iz  DARG  w  zna~enie  tipa
           INTEGER*4 w JRES.

       funkciq wozwra}aet zna~enie:

           -2   - wo wremq preobrazowaniq proizo{lo perepolnenie;

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

                                 - 194 -




            1   - rezulxtat polovitelxnyj.

  J=JDIV(JARG1,JARG2,JRES[,JREM])
         - wypolnqet delenie dwuh ~isel tipa INTEGER*4.  JARG1  delitsq
           na JARG2 s polu~eniem rezulxtata tipa  INTEGER*4  w  JRES  i
           ostatka tipa INTEGER*4 w JREM.

       funkciq wozwra}aet zna~enie:

           -3   - predprinqta popytka deleniq na nulx;

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

  I=JICVT(IARG,JRES)
         - preobrazuet zna~enie tipa INTEGER*2 iz JARG w zna~enie  tipa
           INTEGER*4 w JRES.

       funkciq wozwra}aet zna~enie:

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

  CALL JJCVT (JARG)
         - preobrazuet zna~enie wo wnutrennem formate (2 slowa) sistem-
           nogo tajmera iz JARG w format INTEGER*4 i naoborot.

  I=JMOV(JARG,JRES)
         - priswaiwaet zna~enie tipa INTEGER*4 iz JARG peremennoj  JRES
           tipa INTEGER*4 i wozwra}aet znak priswoennogo zna~eniq.

       funkciq wozwra}aet zna~enie:

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

  I=JMUL(JARG1,JARG2,JRES)
         - wy~islqet proizwedenie dwuh ~isel tipa INTEGER*4 iz JARG1  i
           JARG2 i pome}aet rezulxtat w peremennu` JRES tipa INTEGER*4.

       funkciq wozwra}aet zna~enie:

           -2   - wo wremq umnoveniq proizo{lo perepolnenie;

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.

                                 - 195 -




  I=JSUB(JARG1,JARG2,JRES)
         - wy~islqet raznostx dwuh ~isel tipa INTEGER*4. wy~itaet JARG2
           iz  JARG1  i  pome}aet  rezulxtat  w  peremennu`  JRES  tipa
           INTEGER*4.

       funkciq wozwra}aet zna~enie:

           -2   - wo wremq wy~isleniq proizo{lo perepolnenie;

           -1   - rezulxtat otricatelxnyj;

            0   - rezulxtat rawen nul`;

            1   - rezulxtat polovitelxnyj.



                                     