demo96.plm

PIC实用子程序,51实用子程序,96实用子程序

Demo96: do;

$INCLUDE(MATH.DCL)

  declare I word;
  declare J word;
  declare R real;
  declare Arr(10) byte;


loop:
  call InitRealMathUnit; 

  J = 0;
  call time(100);
  do I = 1 to 10;
    J = I+J;
    Arr(I) = J;
  end;

  R = 1.0; 
  R = R+1.0; 
  R = sin(1.57);  
  R = cos(1.57);  

  goto Loop;

end Demo96;