adding new tps upload feature for mb 2

Beispiele/Tone.tps

@@ -2,6 +2,6 @@
 0x00,4,0,""
 0x01,0,3,""
 0x02,7,1,""
-0x03,2,3,""
+0x03,2,8,""
 0x04,3,3,""
 0x05,F,F,""

SPS_EMU.000

@@ -2,8 +2,8 @@
 LSUTextFile=1
 Copyrigth=MCS Media Computer Software
 [LSUInfo]
-CompileDate=05.05.2021
-CompileTime=21:37:25
+CompileDate=08.05.2021
+CompileTime=19:03:07
 Name=Wilfried Klaas
 LSUBinFile=H:\privat\git-sourcen\SPS_Emulator\SPS_Emu.lsu
 LSUTextFile=H:\privat\git-sourcen\SPS_Emulator\SPS_Emu.

SPS_Emu.lpi

@@ -22,7 +22,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="83"/>
+      <BuildNr Value="87"/>
       <Language Value="0407"/>
       <StringTable CompanyName="MCS" FileDescription="TPS/SPS Emulator" InternalName="SPS_EMU" LegalCopyright="MCS (C) Wilfried Klaas" OriginalFilename="SPS_EMU.exe" ProductName="TPS/SPS Emulator" ProductVersion="0.2"/>
     </VersionInfo>

lcc.cmd

@@ -0,0 +1 @@
+..\LCC_Compiler\lcc.exe SPS_Emu.exe

ugui.pas

@@ -1023,11 +1023,18 @@ begin
       if (return = mrOk) then
       begin
         hexFile := serialUpload;
+        SdpoSerial1.BaudRate:= br__9600;
+
+        if cbTPSVersion.ItemIndex = 5 then
+        begin
+          // Micro:bit V2 auto programm
+          SdpoSerial1.BaudRate:= br115200;
+        end;
 
         SdpoSerial1.Device := comService;
         SdpoSerial1.Active := True;
 
-        SdpoSerial1.WriteData('h');
+        SdpoSerial1.WriteData('p');
         if (not readString(line)) then
         begin
           error := True;
@@ -1417,16 +1424,16 @@ begin
 
   if (cbTPSVersion.ItemIndex = 5) then
   begin
-    // micro:bit
+    // micro:bit v2
     sps.setTPSVersion(MicroBitV2);
 
     Label2.Visible := True;
     ADC2.Visible := True;
     PWM2.Visible := True;
-    Label16.Visible := False;
-    RC1.Visible := False;
-    Label17.Visible := False;
-    RC2.Visible := False;
+    Label16.Visible := True;
+    RC1.Visible := True;
+    Label17.Visible := True;
+    RC2.Visible := True;
     Servo1.Visible := True;
     Servo2.Visible := True;
     Shape1.Visible := True;

usps.pas

@@ -134,7 +134,7 @@ const
   F_LIST_AT: array[0..15] of string = ('A=ADC.1', 'A=ADC.2', 'A=RCin.1', 'A=RCin.2',
     'PWM.1=A', 'PWM.2=A', 'Servo.1=A', 'Servo.2=A', 'Tone=A', '', '', '',
     '', 'LED off', 'LED on', 'PrgEnd');
-  F_LIST_MB: array[0..15] of string = ('A=ADC.1', 'A=ADC.2', '', '',
+  F_LIST_MB: array[0..15] of string = ('A=ADC.1', 'A=ADC.2', 'A=RCin.1', 'A=RCin.2',
     'PWM.1=A', 'PWM.2=A', 'Servo.1=A', 'Servo.2=A', 'Tone=A',
     'A,E,F=Acc', 'A=Compass', 'A=Sound',
     'A=Light', 'A=Logo', 'A=Gesture', 'PrgEnd');
@@ -1171,10 +1171,10 @@ begin
         ATTiny84, Arduino, MicroBitV2: a := adc2;
       end;
     2: case version of
-        ATTiny84, Arduino: a := rc1;
+        ATTiny84, Arduino, MicroBitV2: a := rc1;
       end;
     3: case version of
-        ATTiny84, Arduino: a := rc2;
+        ATTiny84, Arduino, MicroBitV2: a := rc2;
       end;
     4: pwm1 := a;
     5: pwm2 := a;