demo96.plm

来自「用单片机实现的总线比较的2取2功能的安全计算机」· PLM 代码 · 共 30 行

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;