diff options
| -rw-r--r-- | tools/DoTags/DoTags.exe | bin | 0 -> 56708 bytes | |||
| -rw-r--r-- | tools/DoTags/DoTags.pas | 26 | ||||
| -rwxr-xr-x | tools/DoTags/DoTags_linux | bin | 0 -> 257319 bytes | |||
| -rwxr-xr-x | tools/DoTags/DoTags_macosx | bin | 0 -> 241992 bytes |
4 files changed, 26 insertions, 0 deletions
diff --git a/tools/DoTags/DoTags.exe b/tools/DoTags/DoTags.exe Binary files differnew file mode 100644 index 00000000..48ee1285 --- /dev/null +++ b/tools/DoTags/DoTags.exe 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 Binary files differnew file mode 100755 index 00000000..0aaea9f4 --- /dev/null +++ b/tools/DoTags/DoTags_linux diff --git a/tools/DoTags/DoTags_macosx b/tools/DoTags/DoTags_macosx Binary files differnew file mode 100755 index 00000000..8858e351 --- /dev/null +++ b/tools/DoTags/DoTags_macosx |