From d3d4a62a392954ff8199b7cb4b7a155fb9eab915 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 20 Oct 2015 12:30:45 +0200
Subject: gibAlleBefehle neu in irdecoderunit.pas

---
 irdecoderunit.pas | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'irdecoderunit.pas')

diff --git a/irdecoderunit.pas b/irdecoderunit.pas
index edf981c..c9917a7 100644
--- a/irdecoderunit.pas
+++ b/irdecoderunit.pas
@@ -32,6 +32,7 @@ type
     destructor destroy; override;
     function zeileVerarbeitet: boolean;
     function befehlVerarbeitet: boolean;
+    function gibAlleBefehle: string;
   end;
 
   tBefehl = record
@@ -183,5 +184,21 @@ begin
   dec(eingabeLaenge);
 end;
 
+function tIRDecoder.gibAlleBefehle: string;
+var
+  bw:    tBefehlsWort;
+  lw:    longword;
+  b1,b2: boolean;
+begin
+  result:='';
+  for bw:=low(tBefehlsWort) to high(tBefehlsWort) do begin
+    lw:=zeichenTabelle[bw];
+    lw:=((lw and not 1) shl 1) or byte(odd(lw));
+    for b1:=false to true do
+      for b2:=false to true do
+        result:=result+base64Encode(lw or (byte(b1) shl 1) or (byte(b2) shl 4),3)+#10;
+  end;
+end;
+
 end.
 
-- 
cgit v1.2.3-70-g09d2