diff --git a/AsyncPro_D2007.bpl b/AsyncPro_D2007.bpl new file mode 100644 index 0000000..53b1a3f Binary files /dev/null and b/AsyncPro_D2007.bpl differ diff --git a/CAN_Terminal.dcu b/CAN_Terminal.dcu index c8d03e4..0c7bc23 100644 Binary files a/CAN_Terminal.dcu and b/CAN_Terminal.dcu differ diff --git a/CAN_Terminal.dfm b/CAN_Terminal.dfm index 666824c..f7e2579 100644 --- a/CAN_Terminal.dfm +++ b/CAN_Terminal.dfm @@ -1,8 +1,8 @@ object CANTerminal: TCANTerminal - Left = 992 + Left = 100 Top = 100 Width = 801 - Height = 538 + Height = 600 Caption = 'CANTerminal "Hunderitter" v.07.04.2025' Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -36,13 +36,14 @@ object CANTerminal: TCANTerminal 000380800003C000000FC000000FF000001FF000001FF80000FFF80000FFF800 00FFFC0001FFFC0001FFFF800FFFFF800FFFFF800FFFFF800FFFFFFFFFFF} OldCreateOrder = False + Visible = True OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object RxLabel1: TRxLabel - Left = 245 - Top = 440 + Left = 429 + Top = 464 Width = 39 Height = 13 Caption = 'CAN on' @@ -63,7 +64,7 @@ object CANTerminal: TCANTerminal Left = 10 Top = 48 Width = 765 - Height = 337 + Height = 355 Caption = ' '#1055#1088#1086#1077#1082#1090' ' TabOrder = 1 object Label1: TLabel @@ -139,16 +140,16 @@ object CANTerminal: TCANTerminal end object Memo1: TMemo Left = 10 - Top = 390 - Width = 225 - Height = 100 + Top = 410 + Width = 400 + Height = 140 Lines.Strings = ( '') TabOrder = 2 end object CANswitch: TRxSwitch - Left = 248 - Top = 390 + Left = 432 + Top = 410 Width = 33 Height = 49 Caption = 'CANswitch' @@ -156,8 +157,8 @@ object CANTerminal: TCANTerminal OnClick = CANswitchClick end object GroupBox1: TGroupBox - Left = 472 - Top = 400 + Left = 672 + Top = 448 Width = 273 Height = 169 Caption = 'UART' @@ -288,24 +289,24 @@ object CANTerminal: TCANTerminal end end object RadioGroup1: TRadioGroup - Left = 296 - Top = 390 + Left = 480 + Top = 410 Width = 73 Height = 65 Caption = ' Can Speed ' TabOrder = 5 end object Button125: TRadioButton - Left = 304 - Top = 408 + Left = 487 + Top = 427 Width = 50 Height = 17 Caption = '125K' TabOrder = 6 end object Button250: TRadioButton - Left = 304 - Top = 432 + Left = 487 + Top = 451 Width = 50 Height = 17 Caption = '250K' diff --git a/CAN_Terminal.pas b/CAN_Terminal.pas index d62df46..00296e5 100644 --- a/CAN_Terminal.pas +++ b/CAN_Terminal.pas @@ -95,7 +95,8 @@ type BaseAdr: longword; PlusAdr: integer; CommAdr: longword; - UKSS: array[0..15] of TUKSS; + UKSS: array[0..16] of TUKSS; + Name: string; DigiButNames: array[0..16] of string; DigiButNameChange: boolean; @@ -122,7 +123,6 @@ type ProjectQua : integer = 0; ProjectNum : integer = 0; - Boxx : Tboxx; const @@ -146,21 +146,21 @@ begin Project.Bars.Name := TPanel.Create(self); Project.Bars.Name.Parent := GroupBox; Project.Bars.Name.Left :=10; - Project.Bars.Name.Top :=15; - Project.Bars.Name.Width :=100; + Project.Bars.Name.Top :=15; + Project.Bars.Name.Width :=100; Project.Bars.Name.Height := 30; Project.Bars.BaseAdr := TPanel.Create(self); Project.Bars.BaseAdr.Parent := GroupBox; Project.Bars.BaseAdr.Left :=10+100+10; - Project.Bars.BaseAdr.Top :=15; + Project.Bars.BaseAdr.Top :=15; Project.Bars.BaseAdr.Width :=100; Project.Bars.BaseAdr.Height := 30; Project.Bars.CommAdr := TPanel.Create(self); Project.Bars.CommAdr.Parent := GroupBox; Project.Bars.CommAdr.Left :=10+100+10+100+10; - Project.Bars.CommAdr.Top :=15; + Project.Bars.CommAdr.Top :=15; Project.Bars.CommAdr.Width :=100; Project.Bars.CommAdr.Height := 30; @@ -169,14 +169,14 @@ begin Label1.Top := Project.Bars.Name.Top + Project.Bars.Name.Height + tab*3; Label2.Top := Label1.Top; Label3.Top := Label1.Top; Label4.Top := Label1.Top; Label5.Top := Label1.Top; Label6.Top := Label1.Top; Label7.Top := Label1.Top; - Label8.Top := Label1.Top; Label9.Top := Label1.Top; Label10.Top := Label1.Top; + Label8.Top := Label1.Top; Label9.Top := Label1.Top; Label10.Top := Label1.Top; - for i:= 0 to 15 do - begin + for i:= 0 to 16 do + begin hei := 25; - top := Label1.Top + Label1.Height + tab + (hei+tab)*(i mod 8); - lef := 10 + (i div 8)*(lev); + top := Label1.Top + Label1.Height + tab + (hei+tab)*((i mod 8)+8*(i div 16)); + lef := 10 + ((i div 8) and 1)*(lev); wid := hei; Project.UKSS[i].Bar.RSadr := TPanel.Create(self); @@ -236,18 +236,18 @@ begin Project.UKSS[i].Bar.Go.Width :=wid; Project.UKSS[i].Bar.Go.Height := hei; Project.UKSS[i].Bar.Go.Left :=lef; - Project.UKSS[i].Bar.Go.Top :=top; - Project.UKSS[i].Bar.Go.Caption :='S'; + Project.UKSS[i].Bar.Go.Top :=top; + Project.UKSS[i].Bar.Go.Caption :='S'; Project.UKSS[i].Bar.Go.Font.Style:=[fsBold]; Project.UKSS[i].Bar.Go.Tag := i; Project.UKSS[i].Bar.Go.OnClick := ShoWinClick; if i=0 then Label5.Left := lef; - if i=8 then Label10.Left := lef; + if i=8 then Label10.Left := lef; - if i<8 then lev := lef + wid + tab*2; + if i<8 then lev := lef + wid + tab*2; - end; + end; PathExe:=ExtractFileDir(ParamStr(0))+'\'; @@ -281,7 +281,7 @@ begin then Project.Bars.CommAdr.Caption := '' else Project.Bars.CommAdr.Caption := '0x'+inttohex(Project.CommAdr,8); - for i:=0 to 15 do + for i:=0 to 16 do begin Project.UKSS[i].Bar.RXadr.Tag:=0; Project.UKSS[i].Bar.TXadr.Tag:=0; @@ -332,7 +332,7 @@ begin begin Project.BaseAdr := 0; Project.PlusAdr := 1 shl 28; - left:=24; + left:=20; end else begin Project.BaseAdr := Inifile.ReadInteger(ProjID,'BaseAdr',0); Project.PlusAdr := Inifile.ReadInteger(ProjID,'PlusAdr',16); @@ -342,7 +342,7 @@ begin Project.CommAdr := Inifile.ReadInteger(ProjID,'CommAdr',0); adr:=-1; - for i:=0 to 15 do + for i:=0 to 16 do begin nom := 'Use_'+inttostr(i); @@ -417,7 +417,7 @@ begin if Project.Protokol=3 - then adr := ArrCanMessage[pak].m_dwID and $1F000000 + then adr := ArrCanMessage[pak].m_dwID and $1FF00000 else adr := ArrCanMessage[pak].m_dwID; if boxx.qua = 0 then @@ -469,7 +469,8 @@ begin end end; - for i:=0 to 15 do + for i:=0 to 16 do + begin if Project.UKSS[i].Use then begin if Project.UKSS[i].RXadr = adr then @@ -523,10 +524,11 @@ begin if(Project.UKSS[i].RXadr = adr) then mess.Surs := 1; if Project.UKSS[i].Exist then - Project.UKSS[i].Wind.ReceiveCanData(mess); + Project.UKSS[i].Wind.ReceiveCanData(mess,i); end end + end end; newstring:=''; @@ -542,7 +544,7 @@ begin end; if CANswitch.StateOn then - for i:=0 to 15 do + for i:=0 to 16 do if Project.UKSS[i].Use then begin if Project.UKSS[i].Bar.RXadr.Tag = 0 @@ -581,7 +583,7 @@ begin CloseSlavna(); CanTimer.Enabled:=false; boxx.qua := 0; - for i:=0 to 15 do + for i:=0 to 16 do begin Project.UKSS[i].Bar.RXadr.Color := clBtnFace; Project.UKSS[i].Bar.TXadr.Color := clBtnFace; @@ -643,7 +645,7 @@ var i : integer; nom, num: string; begin - for i:=0 to 15 do + for i:=0 to 16 do if Project.UKSS[i].Exist then begin Project.UKSS[i].Wind.Close; diff --git a/Projects.ini b/Projects.ini index f534346..76f64d1 100644 --- a/Projects.ini +++ b/Projects.ini @@ -1,6 +1,6 @@ [Projects] ProjectQua=9 -ProjectNum=6 +ProjectNum=7 Project1=Áóêñèð Project2=ÑÝÄÁÌ Project3=Ëåäîêîë @@ -340,8 +340,7 @@ DigiBut_15=Reset DigiBut_16=Nothing at all [23550.2] -BaseAdr=$00235500 -PlusAdr=$10 +Protokol=3 Use_0=1 Use_1=1 Use_2=1 @@ -351,6 +350,7 @@ Use_5=1 Use_11=1 Use_12=1 Use_13=1 +Use_16=1 CANadr_0=0 CANadr_1=1 CANadr_2=2 @@ -360,6 +360,7 @@ CANadr_5=8 CANadr_11=5 CANadr_12=7 CANadr_13=9 +CANadr_16=$1f RSadr_0=1 RSadr_1=2 RSadr_2=3 @@ -378,6 +379,7 @@ Name_5= Name_11=ÓÊÑÑ ÑÈ ÑÁ2 Name_12=ÓÊÑÑ ÑÂÔ ÑÁ2 Name_13=ÓÊÑÂÝÏ ÑÁ2 +Name_16=BroadCast DigiBut_0=Test DigiBut_1=Def DigiBut_2=Save diff --git a/SetTerminal_UKSS_CAN.cfg b/SetTerminal_UKSS_CAN.cfg index f9f1cd7..bbe2fb5 100644 --- a/SetTerminal_UKSS_CAN.cfg +++ b/SetTerminal_UKSS_CAN.cfg @@ -12,7 +12,7 @@ -$L+ -$M- -$N+ --$O+ +-$O- -$P+ -$Q- -$R- diff --git a/SetTerminal_UKSS_CAN.dof b/SetTerminal_UKSS_CAN.dof index 28237ab..b4b6236 100644 --- a/SetTerminal_UKSS_CAN.dof +++ b/SetTerminal_UKSS_CAN.dof @@ -15,7 +15,7 @@ K=0 L=1 M=0 N=1 -O=1 +O=0 P=1 Q=0 R=0 diff --git a/SetTerminal_UKSS_CAN.exe b/SetTerminal_UKSS_CAN.exe index 39bb389..e27efed 100644 Binary files a/SetTerminal_UKSS_CAN.exe and b/SetTerminal_UKSS_CAN.exe differ diff --git a/Terminal.ini b/Terminal.ini new file mode 100644 index 0000000..57f1182 --- /dev/null +++ b/Terminal.ini @@ -0,0 +1,10 @@ +[Modbus] +FormVersion=0 +Flags=0 +ShowCmd=1 +PixelsPerInch=96 +MinMaxPos(2560x1440)=-1,-1,-1,-1 +MinMaxPos=-1,-1,-1,-1 +NormPos(2560x1440)=-877,143,-15,782 +NormPos=-877,143,-15,782 +Visible=0 diff --git a/UNiiefa.dcu b/UNiiefa.dcu index a829e7e..00895c1 100644 Binary files a/UNiiefa.dcu and b/UNiiefa.dcu differ diff --git a/UNiiefa.dfm b/UNiiefa.dfm index 73916c4..a96866a 100644 Binary files a/UNiiefa.dfm and b/UNiiefa.dfm differ diff --git a/UNiiefa.pas b/UNiiefa.pas index b7d9700..87ae6e7 100644 --- a/UNiiefa.pas +++ b/UNiiefa.pas @@ -125,22 +125,22 @@ type procedure Renamido(Sender: TObject; var Key: Char); procedure SaveProjectComms(ProjID: string); - procedure ReceiveCanData(Mess: TMessag); - procedure DataLenEditChange(Sender: TObject); - procedure DataGridKeyPress(Sender: TObject; var Key: Char); - procedure DataGridSetEditText(Sender: TObject; ACol, ARow: Integer; - const Value: String); - procedure DataGridDrawCell(Sender: TObject; ACol, ARow: Integer; - Rect: TRect; State: TGridDrawState); - procedure DataGridSelectCell(Sender: TObject; ACol, ARow: Integer; - var CanSelect: Boolean); - procedure DataGridGetEditText(Sender: TObject; ACol, ARow: Integer; - var Value: String); - procedure AutoTimeEditChange(Sender: TObject); + procedure DataLenEditChange(Sender: TObject); + procedure DataGridKeyPress(Sender: TObject; var Key: Char); + procedure DataGridSetEditText(Sender: TObject; ACol, ARow: Integer; + const Value: String); + procedure DataGridDrawCell(Sender: TObject; ACol, ARow: Integer; + Rect: TRect; State: TGridDrawState); + procedure DataGridSelectCell(Sender: TObject; ACol, ARow: Integer; + var CanSelect: Boolean); + procedure DataGridGetEditText(Sender: TObject; ACol, ARow: Integer; + var Value: String); + procedure AutoTimeEditChange(Sender: TObject); private { Private declarations } + Unites : Array[0..127] of TUnit; Anapan : Array[0..63] of TPanel; Digipan : Array[0..511] of Tpanel; Digibox : Array[0..15] of TCheckBox; @@ -151,18 +151,54 @@ type DigiLab: Array[0..31] of TLabel; AnaLab: Array[0..7] of TLabel; + kownt: integer; + waiste: integer; + fade: cardinal; + auto: cardinal; + reColor: integer; + doReColor: boolean; + AnalogStart : Integer; AnalogLength : Integer; DigitalStart : Integer; DigitalLength : Integer; - Unites : Array[0..127] of TUnit; + rData2, rData3 : double; + FIniFile : TRegIniFile; + FRegFile : TIniFile; + Temper1,Temper2 : Array [0..12] of Real; - kownt: integer; - waiste: integer; - fade: integer; - reColor: integer; - doReColor: boolean; +{ InsideFUst : boolean = False; + InsideSet : boolean = False; + InsideComm : boolean = False; +} + LastSender : TObject; + + KT1,KT2,KT3 : Array [0..12] of Real; + + UNew : SmallInt; + MomentNew : SmallInt; + + UNewZ : Integer; + + NameEdit: TEdit; + + ArrNiiefaAnalog : Array [0..100] of Word; + ArrNiiefaDigital : Array [0..100] of Word; + + AutoMoment: cardinal; + RecolorMoment: cardinal; + + Wordt: word; + +// ProjectQua : integer = 0; +// ProjectNum : integer = 0; + + clBlueGradient : array[0..20,0..1] of TColor; + clRedGradient : array[0..20] of TColor; + clGreenGradient : array[0..20,0..1] of TColor; + + EmptyCell:TGridRect; public @@ -172,51 +208,15 @@ type TXadr: longword; Protokol: integer; + procedure ReceiveCanData(Mess: TMessag; dev:integer); { Public declarations } end; var + ModbusForm : TModbusForm; - rData2, rData3 : double; - FIniFile : TRegIniFile; - FRegFile : TIniFile; - Temper1,Temper2 : Array [0..12] of Real; - InsideFUst : boolean = False; - InsideSet : boolean = False; - InsideComm : boolean = False; - - LastSender : TObject; - - ErrorCmd : boolean = False; - - KT1,KT2,KT3 : Array [0..12] of Real; - - UNew : SmallInt; - MomentNew : SmallInt; - - UNewZ : Integer; - - Count1 : Integer = 0; - Count2 : Integer = 0; - - NameEdit: TEdit; - - ArrNiiefaAnalog : Array [0..100] of Word; - ArrNiiefaDigital : Array [0..100] of Word; - flaganalogdigital : boolean = false; - - Wordt: word; - - ProjectQua : integer = 0; - ProjectNum : integer = 0; - - clBlueGradient : array[0..20,0..1] of TColor; - clRedGradient : array[0..20] of TColor; - clGreenGradient : array[0..20,0..1] of TColor; - - EmptyCell:TGridRect; const @@ -253,10 +253,10 @@ end; procedure TModbusForm.Memo1Change(Sender: TObject); var - i : Integer; + i : Integer; begin - i:=Memo1.Lines.Count; - if i>100 then Memo1.Clear; + i:=Memo1.Lines.Count; + if i>100 then Memo1.Clear; end; { procedure TModbusForm.btnAnalogClick(Sender: TObject); @@ -297,7 +297,7 @@ end; procedure TModbusForm.FormCreate(Sender: TObject); var i: integer; - inifile : TIniFile; + inifile : TIniFile; nom,num: string; begin @@ -452,62 +452,34 @@ begin Bitbut[i].OnClick:=BitButClick; end; - inifile := TIniFile.Create(PathExe+'Terminal.ini'); - +{ inifile := TIniFile.Create(PathExe+'Terminal.ini'); ProjectQua := strtoint(Inifile.ReadString('Projects','ProjectQua','0')); ProjectNum := strtoint(Inifile.ReadString('Projects','ProjectNum','0')); - inifile.Free; - +} FadeSpinChange(Sender); end; procedure TModbusForm.myTimerTimer(Sender: TObject); -var - i : integer; - doIt: boolean; +var i : integer; begin - if(AutoBox.Checked) then - if(AutoTimeEdit.Value > 0) then - begin - if(AutoBox.Tag > 0) then AutoBox.Tag:= AutoBox.Tag-1; + if(GetTickCount - RecolorMoment)>(Fade * 1000 / (clGrad-1)) + then begin doReColor := true; RecolorMoment:= GetTickCount end; - if(AutoBox.Tag = 0) then - begin - SetButtonDo(Sender); - AutoBox.Tag:= trunc(AutoTimeEdit.Value); - end; - end; - - if myTimer.Tag > 0 then myTimer.Tag:= myTimer.Tag-1 - else begin - - myTimer.Tag:=10; - - Fade:=trunc(FadeSpin.Value); - - inc(waiste); - if Waiste >= Fade then - begin - waiste :=1; - doIt := true; - end else doIt := false; - - if doIt or doReColor then + if doReColor then for i:= 0 to 127 do if Unites[i].Age > 0 then begin dec(Unites[i].Age); if Fade = 0 then Unites[i].Age := 0; - if Fade = 1 then dec(Unites[i].Age); // åùå ðàç if Fade = 10 then Unites[i].Age := reColor; if Unites[i].Age <0 then Unites[i].Age:=0; // áûâàåò if (i>= AnalogStart) and(i< AnalogStart + AnalogLength) - then Anapan[i-AnalogStart].Color := clBlueGradient[Unites[i].Age][Unites[i].Surs]; + then Anapan[i-AnalogStart].Color := clBlueGradient[Unites[i].Age][Unites[i].Surs]; if (i>= DigitalStart) and(i< DigitalStart + DigitalLength) @@ -517,7 +489,12 @@ begin doReColor:=false; - end; + if(AutoBox.Checked) then + if(GetTickCount - AutoMoment)>(myTimer.Interval*Auto) + then begin + SetButtonDo(Sender); + AutoMoment:= GetTickCount; + end; end; @@ -528,8 +505,14 @@ var begin + if Protokol=3 then DataLenEdit.MaxValue:=4 + else DataLenEdit.MaxValue :=3; + myTimer.Enabled:=True; + AutoMoment:= GetTickCount; + RecolorMoment:= GetTickCount; + AnalogStart := trunc(AnaStart.Value); DigitalStart:= trunc(DigiStart.Value); AnalogLength:= trunc(AnaLen.Value); @@ -543,9 +526,7 @@ begin AnaStartChange(Sender); DigiStartChange(Sender); FadeSpinChange(Sender); - - if Protokol=3 then DataLenEdit.MaxValue:=4 - else DataLenEdit.MaxValue :=3; + AutoTimeEditChange(Sender); DataLenEditChange(Sender); BitBut[0].Checked:=true; @@ -581,10 +562,6 @@ begin exit; end; - if (what=0) - then Memo1.Lines.Add('Ok!') - else Memo1.Lines.Add('Well...'); - inc(Count2); If what=0 then begin @@ -761,7 +738,7 @@ begin WriteMessageCanID(1, CanStr); - ReceiveCanData(mess); + ReceiveCanData(mess,Numer); end; @@ -792,24 +769,28 @@ begin mess.Data[2] := 0; mess.Surs := 1; - ArrCanMessageSend[0].m_dwID := RXadr; - ArrCanMessageSend[0].m_bDLC := 8; + if Protokol=3 then + begin + ArrCanMessageSend[0].m_dwID := RXadr + mess.Addr; + ArrCanMessageSend[0].m_bDLC := 2; + ArrCanMessageSend[0].m_bData[1] := HB(mess.Data[0]); + ArrCanMessageSend[0].m_bData[2] := LB(mess.Data[0]); + end else begin + ArrCanMessageSend[0].m_dwID := RXadr; + ArrCanMessageSend[0].m_bDLC := 8; + ArrCanMessageSend[0].m_bData[5] := mess.Mask shl 5; + ArrCanMessageSend[0].m_bData[6] := LB(mess.Addr); + ArrCanMessageSend[0].m_bData[8] := LB(mess.Data[0]); + ArrCanMessageSend[0].m_bData[7] := HB(mess.Data[0]); + ArrCanMessageSend[0].m_bData[2] := LB(mess.Data[1]); + ArrCanMessageSend[0].m_bData[1] := HB(mess.Data[1]); + ArrCanMessageSend[0].m_bData[4] := LB(mess.Data[2]); + ArrCanMessageSend[0].m_bData[3] := HB(mess.Data[2]); + end; - ArrCanMessageSend[0].m_bData[5] := mess.Mask shl 5; - ArrCanMessageSend[0].m_bData[6] := LB(mess.Addr); - - ArrCanMessageSend[0].m_bData[8] := LB(mess.Data[0]); - ArrCanMessageSend[0].m_bData[7] := HB(mess.Data[0]); - - ArrCanMessageSend[0].m_bData[2] := LB(mess.Data[1]); - ArrCanMessageSend[0].m_bData[1] := HB(mess.Data[1]); - - ArrCanMessageSend[0].m_bData[4] := LB(mess.Data[2]); - ArrCanMessageSend[0].m_bData[3] := HB(mess.Data[2]); - - WriteMessageCanID(1, CanStr); + WriteMessageCanID(1, CanStr); - ReceiveCanData(mess); + ReceiveCanData(mess,Numer); end; @@ -1018,7 +999,7 @@ begin NameEdit.setfocus; end; -procedure TModbusForm.ReceiveCanData(Mess: TMessag); +procedure TModbusForm.ReceiveCanData(Mess: TMessag; dev:integer); var Ananum, Diginum, Boxnum: integer; i, j, byte: integer; @@ -1239,15 +1220,11 @@ begin end; end; - - procedure TModbusForm.AutoTimeEditChange(Sender: TObject); begin - if trunc(AutoTimeEdit.Value) = 0 + Auto:=trunc(AutoTimeEdit.Value); + if Auto = 0 then AutoBox.Checked:= false; - - AutoBox.Tag:= trunc(AutoTimeEdit.Value); - end; end. diff --git a/dbrtl70.bpl b/dbrtl70.bpl new file mode 100644 index 0000000..c929bd4 Binary files /dev/null and b/dbrtl70.bpl differ diff --git a/proj copy.ini b/proj copy.ini new file mode 100644 index 0000000..f905001 --- /dev/null +++ b/proj copy.ini @@ -0,0 +1,87 @@ +[Projects] +ProjectQua=3 +ProjectNum=1 +Project1=Áóêñèð +Project2=ÑÝÄÁÌ +Project2=Ëåäîêîë + + +[Áóêñèð] +BaseAdr=$00318200 +Use_0=1 +Use_1=1 +Use_2=1 +Use_3=1 +RSadr_0=1 +RSadr_1=2 +RSadr_2=3 +RSadr_3=4 +Name_0=ÓÊÑÑ ÑÁ +Name_1=ÁÊÑÑ ÃÄ +Name_2=ÓÊÑÂÝÏ +Name_3=Çàäàò÷èê + + +[ÑÝÄÁÌ] +BaseAdr=$1051020 +Use_0=1 +Use_1=1 +Use_2=1 +Use_3=1 +Use_4=1 +Use_5=1 +Use_6=1 +Use_8=1 +Use_9=1 +Use_10=1 +Use_11=1 +Use_12=1 +Use_13=1 +Use_14=1 +Use_15=1 +Name_0=ÓÊÑÑ ÑÊ1 ÑÁ1 +Name_1=ÓÊÑÑ ÑÊ2 ÑÁ1 +Name_2=ÓÊÑÑ ÑÊ3 ÑÁ1 +Name_3=ÓÊÑÑ ÑÊ4 ÑÁ1 +Name_4=ÓÊÑÑÂÝÏ ÑÁ1 +Name_5=Çàäàò÷èê ÑÁ1 +Name_6=ÁÒÐ ÈÒÝÑ +Name_8=ÓÊÑÑ ÑÊ1 ÑÁ2 +Name_9=ÓÊÑÑ ÑÊ2 ÑÁ2 +Name_10=ÓÊÑÑ ÑÊ3 ÑÁ2 +Name_11=ÓÊÑÑ ÑÊ4 ÑÁ2 +Name_12=ÓÊÑÑÂÝÏ ÑÁ2 +Name_13=Çàäàò÷èê ÑÁ2 +Name_14=ÓÊÑÑ ÁÎÈÍ +Name_15=ÓÊÑÂÝÏ ÁÎÈÍ + +[Ëåäîêîë] +BaseAdr=$01CE000 +Use_0=1 +Use_1=1 +Use_2=1 +Use_3=1 +Use_4=1 +Use_5=1 +Use_6=1 +Use_8=1 +Use_9=1 +Use_10=1 +Use_11=1 +Name_0=ÓÊÑÑ ÁÂ1 Ï×1 +Name_1=ÓÊÑÑ ÁÂ1 Ï×2 +Name_2=ÓÊÑÑ ÁÂ1 Ï×1 +Name_3=ÓÊÑÑ ÁÂ2 Ï×2 +Name_4=ÓÊÑÑ ÁÈ1 Ï×1 +Name_5=ÓÊÑÑ ÁÈ1 Ï×2 +Name_6=ÓÊÑÑ ÁÈ2 Ï×1 +Name_8=ÓÊÑÑ ÁÈ2 Ï×2 +Name_9=ÓÊÑÑÂÝÏ1 Ï×1 +Name_10=ÓÊÑÑÂÝÏ1 Ï×2 +Name_11=ÓÊÑÑÂÝÏ2 Ï×1 +Name_12=ÓÊÑÑÂÝÏ2 Ï×2 + + + + + diff --git a/rtl70.bpl b/rtl70.bpl new file mode 100644 index 0000000..ea28d0b Binary files /dev/null and b/rtl70.bpl differ diff --git a/tee70.bpl b/tee70.bpl new file mode 100644 index 0000000..b7538f3 Binary files /dev/null and b/tee70.bpl differ diff --git a/vcl70.bpl b/vcl70.bpl new file mode 100644 index 0000000..572cb25 Binary files /dev/null and b/vcl70.bpl differ diff --git a/vcldb70.bpl b/vcldb70.bpl new file mode 100644 index 0000000..ba330a1 Binary files /dev/null and b/vcldb70.bpl differ diff --git a/vcldbx70.bpl b/vcldbx70.bpl new file mode 100644 index 0000000..610427f Binary files /dev/null and b/vcldbx70.bpl differ diff --git a/vclsmp70.bpl b/vclsmp70.bpl new file mode 100644 index 0000000..bb36967 Binary files /dev/null and b/vclsmp70.bpl differ diff --git a/vclx70.bpl b/vclx70.bpl new file mode 100644 index 0000000..e7afad8 Binary files /dev/null and b/vclx70.bpl differ