NBPrg40. (*TWriteLn). dirinfo. MiniOS. OpenSource.

NBPrg40. (*TWriteLn). dirinfo. MiniOS. OpenSource.
**************************************

+----------+
+ TWriteLn +
+----------+

  Nikita Beloshenko (GNU) 2013.
  
  NBPRG40.

  TWriteLn.

NBPrg40. (*info). dirinfo. MiniOS. OpenSource.

NBPrg40. (*info). dirinfo. MiniOS. OpenSource.
**************************************

+------+
+ info +
+------+

  NBPRG40.

NBPrg40. (*inc). dirinfo. MiniOS. OpenSource.

NBPrg40. (*inc). dirinfo. MiniOS. OpenSource.
**************************************

+-----+
+ inc +
+-----+

  NBPRG40.

NBPrg40. (*inc). (**CalcWS). dirinfo. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). dirinfo. MiniOS. OpenSource.
**************************************

+------------+
+ inc\CalcWS +
+------------+

  NBPRG40.

NBPrg40. (*inc). (**CalcWS). csub.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). csub.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.csub(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('sub',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=a-r;

NBPrg40. (*inc). (**CalcWS). csqrt.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). csqrt.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.csqrt(s:String);
Label derr,norm,ex;
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('sqrt',s); delete(s,i,5); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If r<0 Then Goto derr;

NBPrg40. (*inc). (**CalcWS). csin.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). csin.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.csin(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('sin',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=sin(r);

NBPrg40. (*inc). (**CalcWS). cset.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). cset.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.cset(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('set',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=r;
     If (ch='b') Or (ch='B') Then b:=r;

NBPrg40. (*inc). (**CalcWS). cmul.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). cmul.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.cmul(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('add',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=a*r;

NBPrg40. (*inc). (**CalcWS). cmov.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). cmov.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.cmov(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('mov',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=a*r;
Синдикация материалов