Ver Fonte

Bug: servo will evaluate the register in 8 bit, and not in 4 bit

Klaas, Wilfried há 3 anos atrás
pai
commit
2865092bbf
2 ficheiros alterados com 5 adições e 9 exclusões
  1. 3 7
      SPS_Emu.lpi
  2. 2 2
      usps.pas

+ 3 - 7
SPS_Emu.lpi

@@ -10,7 +10,8 @@
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <XPManifest>
-        <DpiAware Value="True"/>
+        <DpiAware Value="True/PM"/>
+        <ExecutionLevel Value="highestAvailable"/>
       </XPManifest>
       <Icon Value="0"/>
     </General>
@@ -22,7 +23,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="91"/>
+      <BuildNr Value="93"/>
       <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>
@@ -158,11 +159,6 @@
         </Win32>
       </Options>
     </Linking>
-    <Other>
-      <ExecuteAfter>
-        <Command Value="C:\e-platte\daten\git-sourcen\LCC_Compiler\lcc.exe /B /C /Q &quot;$TargetFile()&quot;"/>
-      </ExecuteAfter>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="7">

+ 2 - 2
usps.pas

@@ -1010,12 +1010,12 @@ begin
     11:
     begin
       if (servo1.attached()) then
-        servo1.Write((a * 10) + 10);
+        servo1.Write(((a and 15)  * 10) + 10);
     end;
     12:
     begin
       if (servo2.attached()) then
-        servo2.Write((a * 10) + 10);
+        servo2.Write(((a and 15) * 10) + 10);
     end;
     13: e := a;
     14: f := a;