aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--tools/DoTags/DoTags.exebin0 -> 56708 bytes
-rw-r--r--tools/DoTags/DoTags.pas26
-rwxr-xr-xtools/DoTags/DoTags_linuxbin0 -> 257319 bytes
-rwxr-xr-xtools/DoTags/DoTags_macosxbin0 -> 241992 bytes
4 files changed, 26 insertions, 0 deletions
diff --git a/tools/DoTags/DoTags.exe b/tools/DoTags/DoTags.exe
new file mode 100644
index 00000000..48ee1285
--- /dev/null
+++ b/tools/DoTags/DoTags.exe
Binary files differ
diff --git a/tools/DoTags/DoTags.pas b/tools/DoTags/DoTags.pas
new file mode 100644
index 00000000..1e18ea12
--- /dev/null
+++ b/tools/DoTags/DoTags.pas
@@ -0,0 +1,26 @@
+program DoTags;
+var
+ four_letters: string;
+ tag: int32;
+begin
+ writeln ('Program for the calculation of 4 letter tags, little and big endian.');
+ writeln ('Enter 4 letters:');
+ readln (four_letters);
+ while length(four_letters) <> 4 do
+ begin
+ writeln ('This were ', length(four_letters), ' letter(s). Enter exactly 4 letters:');
+ readln (four_letters);
+ end;
+ tag := ord(four_letters[4]) or (ord(four_letters[3]) shl 8) or (ord(four_letters[2]) shl 16) or (ord(four_letters[1]) shl 24);
+ writeln ('BE-TAG: $', hexStr(tag, 8));
+ tag := ord(four_letters[1]) or (ord(four_letters[2]) shl 8) or (ord(four_letters[3]) shl 16) or (ord(four_letters[4]) shl 24);
+ writeln ('LE-TAG: $', hexStr(tag, 8));
+ if four_letters[1] = '0' then
+ begin
+ writeln ('Maybe you want a digital zero in the first position. Here you go:');
+ tag := ord(four_letters[4]) or (ord(four_letters[3]) shl 8) or (ord(four_letters[2]) shl 16);
+ writeln ('BE-TAG: $', hexStr(tag, 8));
+ tag := (ord(four_letters[2]) shl 8) or (ord(four_letters[3]) shl 16) or (ord(four_letters[4]) shl 24);
+ writeln ('LE-TAG: $', hexStr(tag, 8));
+ end;
+end.
diff --git a/tools/DoTags/DoTags_linux b/tools/DoTags/DoTags_linux
new file mode 100755
index 00000000..0aaea9f4
--- /dev/null
+++ b/tools/DoTags/DoTags_linux
Binary files differ
diff --git a/tools/DoTags/DoTags_macosx b/tools/DoTags/DoTags_macosx
new file mode 100755
index 00000000..8858e351
--- /dev/null
+++ b/tools/DoTags/DoTags_macosx
Binary files differ