DIS Tool is a collector of https://en.wikipedia.org/wiki/Distributed_Interactive_Simulation%|%Distributed Interactive Simulation%|% (DIS) PDU traffic from a network UDP port. Project was started in 2011 and worked only by the author. It has proved useful to listen to simulation data to analyze dis enumerations and simulation activities. It relies on the 32-bit UDP extension to access the network port. See https://code.activestate.com/recipes/langs/tcl/%|%ActiveState TCL Recipes%|% for examples by Frank from 2009.

References:
   * https://www.sisostds.org/productspublications/standards/ieeestandards.aspx%|%IEEE 1278.1 2012%|%
   * https://www.sisostds.org/DigitalLibrary.aspx?Command=Core_Download&EntryId=46171%|%SISO Ref 010 DIS Enumeration standard v31%|%

DIS Tool listens for all PDUs that pass its Exercise and Site filters. It offers reports of the data collected, to include Entities, Fire, Detonations, Aggregates, and more. It supports a home-brew http server to allow remote viewing of reports using a web browser. Currently composed of approx 13,268 lines of TCL code.

On startup, code is read from separate module files. This provides an easy mechanism to read in short updated bits of code and make the new code effective during runtime.

Heavily updated in August 2023 to decode more PDU types and display each PDU decoded to fields and further to textual meaning. The following are the decoders for each PDU using [binary scan] (listed here for reference):

PDU header (common to all PDU types)
======
binary scan $pdu ccu1cu1cu1Iu1Su1B8c \
        d(disver) d(exercise) d(pdukind) d(family) d(time) d(length) d(pdustatus) d(pad)
# PARSE TIMESTAMP
        # right shift integer then compute seconds
        set absolutetime [expr {$d(time) & 1}]
        set tint2 [expr {$d(time) >> 1}]
        set d(time) [expr {int(($tint2 * (0.5 + 3600000.0) / 0x7fffffff) / 1000)}]        ;# seconds
        if {$d(time) < 0} {set d(time) [expr {$d(time) % 3600}]}
        if {$absolutetime} {
                append d(time) " absolute time"
        } else {
                append d(time) " relative time [nice_time $d(time)]"
        }
======

1 Entity State
======
binary scan $pdu ccu1cu1cu1Iu1Su1b8cSu1Su1Su1cu1cu1ccScu1cu1cu1cu1ccScu1cu1cu1cu1IIIWWWIIIIcA39cA11I \
        d(disver) d(exercise) d(pdukind) d(family) d(time) d(length) d(pdustatus) d(pad) \
        d(site) d(host) d(ent) d(force) d(art) \
        d(kind) d(domain) d(country) d(cat) d(subcat) d(spec) d(extra) \
        d(altkind) d(altdomain) d(altcountry) d(altcat) d(altsubcat) d(altspec) d(altextra) \
        d(velx) d(vely) d(velz) d(locx) d(locy) d(locz) d(orientx) d(orienty) d(orientz) \
        d(appearance) d(dra) pad d(charset) d(marking) d(cap)
======

2 Fire
======
binary scan $pdu @12Su1Su1Su1Su1Su1Su1Su1Su1Su1Su1Su1Su1IWWWccSccccSSSSIIII \
        d(site) d(host) d(ent) d(tgtsite) d(tgthost) d(tgtent) \
        d(munsite) d(munhost) d(munent) d(evtsite) d(evthost) d(evtent) \
        d(mission) d(locx) d(locy) d(locz) \
        d(kind) d(domain) d(country) d(cat) d(subcat) d(spec) d(extra) \
        d(warhead) d(fuse) d(quantity) d(rate) d(velx) d(vely) d(velz) d(range)
======

3 Detonation
======
binary scan $pdu @12Su1Su1Su1Su1Su1Su1Su1Su1Su1Su1Su1Su1IIIWWWccSccccSSSSIIIccS \
        d(site) d(host) d(ent) d(tgtsite) d(tgthost) d(tgtent) \
        d(munsite) d(munhost) d(munent) d(evtsite) d(evthost) d(evtent) \
        d(velx) d(vely) d(velz) d(locx) d(locy) d(locz) \
        d(kind) d(domain) d(country) d(cat) d(subcat) d(spec) d(extra) \
        d(warhead) d(fuse) d(quantity) d(rate) d(entx) d(enty) d(entz) d(result) \
        d(parts) d(art)
======

4 Collision
======
binary scan $pdu @12Su1Su1Su1Su1Su1Su1Su1ccIIIIWWW \
        d(site) d(host) d(ent) d(collsite) d(collhost) d(collent) \
        d(eventid) d(colltype) pad d(velx) d(vely) d(velz) d(mass) d(locx) d(locy) d(locz)
======

18 Data Query
======
binary scan $pdu @12Su1Su1Su1Su1Su1Su1Iu1Iu1Iu1Iu1 \
        d(site) d(host) d(ent) d(rcvsite) d(rcvhost) d(rcvent) \
        d(msgnum) d(interval) d(numfixed) d(numvariable)
======

19 Set Data
======
binary scan $pdu @12Su1Su1Su1Su1Su1Su1IIII \
        d(site) d(host) d(entity) d(sitetgt) d(hosttgt) d(enttgt) \
        d(msgnum) d(pad) d(numfixed) d(numvariable)
======

23 Emission
======
binary scan $pdu @12Su1Su1Su1Su1Su1Su1ccSccSSu1ccIIIccSu1IIIIIIIIIIccccWSSScc \
        d(site) d(host) d(ent) d(siteevt) d(hostevt) d(entevt) \
        d(state) d(sysnum) pad d(syslen) d(beamnum) pad d(emitname) d(funcid) d(emitid) \
        d(locx) d(locy) d(locz) d(beamlen) d(beamid) d(beamndx) d(beamfreq) d(beamrange) \
        d(beamerpdb) d(beampulsefreq) d(beamplusewidth) d(beamazctr) d(beamazsweep) d(beamelctr) \
        d(beamelsweep) d(beamsweepsync) d(beamfunc) d(tgtnum) d(trackhd) pad d(jamtrack) \
        d(sitetrack) d(hosttrack) d(enttrack) d(jamemitid) d(jambeamid)
======

25 Transmitter
======
binary scan $pdu @12Su1Su1Su1Su1ccSu1ccccccSWWWIIISSIIffSSSSSSc \
        d(site) d(host) d(ent) d(radio) \
        d(kind) d(domain) d(country) d(cat) d(subcat) d(spec) d(extra) \
        d(state) d(source) pad \
        d(locx) d(locy) d(locz) d(entx) d(enty) d(entz) \
        d(antenna) d(antlen) d(freqhi) d(freqlo) d(band) d(power) \
        d(spectrum) d(modmajor) d(moddetail) d(system) \
        d(crypto) d(cryptokey) d(lenmod)
======

26 Signal
======
binary scan $pdu @12Su1Su1Su1Su1B16B16ISu1Su1B* \
        d(site) d(host) d(ent) d(radio) \
        d(enctype) d(tdl) d(rate) d(len) d(samples) d(data)
======

28 IFF / ATC / Navigational Aids
======
binary scan $pdu @12Su1Su1Su1Su1Su1Su1IIISScB8SB8cB8B8B16B16B16B16B16B16 \
        d(site) d(host) d(ent) d(eventsite) d(eventhost) d(evententity) \
        d(x) d(y) d(z) d(type) d(name) d(mode) d(option) pad \
        d(status) d(m4alt) d(info) d(modifier) \
        d(m1) d(m2) d(m3) d(m4) d(mcalt) d(ms)
======

33 Aggregate State
======
binary scan $pdu @12SSu1Su1ccccSu1ccccIcA31IIIIIIWWWIIIcccc \
        d(site) d(host) d(ent) d(force) d(state) \
        d(kind) d(domain) d(country) d(cat) d(subcat) d(spec) d(extra) \
        d(formation) d(charset) d(marking) \
        d(extentx) d(extenty) d(extentz) d(orientx) d(orienty) d(orientz) \
        d(locx) d(locy) d(locz) d(velx) d(vely) d(velz) \
        d(numdisaggs) d(numdisentities) d(numaggsystems) d(numentitysystems)
======

63
======
binary scan $pdu @12Su1Su1Su1Su1Su1Su1IccSII \
        d(site) d(host) d(ent)  d(tgtsite) d(tgthost) d(tgtent) \
        d(reqid) d(reliable) pad d(event) d(serial) d(numrecords)
======

67 Entity State Update
======
binary scan $pdu @12Su1Su1Su1IIIIWWWIIIII \
        d(site) d(host) d(ent) pad d(numparam) d(velx) d(vely) d(velz) d(locx) d(locy) d(locz) \
        d(orientx) d(orienty) d(orientz) d(appearance) d(artparams)
======

122 Logistics Resource
======
binary scan $pdu @12SSu1Su1SIIIIccA18IIIIccA18IIIIccA18 \
        d(site) d(host) d(ent) d(supplycount) \
        d(onhand1) d(auth1) d(reorder1) d(stockage1) d(class1) d(use1) d(id1) \
        d(onhand2) d(auth2) d(reorder2) d(stockage2) d(class2) d(use2) d(id2) \
        d(onhand3) d(auth3) d(reorder3) d(stockage3) d(class3) d(use3) d(id3)
======

137 Organizational State
======
binary scan $pdu @12Su1Su1Su1A12SA26A12A12A12A12A12A46A68ISSA12cA3SSA12cA7SSA12cA7 \
        d(site) d(host) d(ent) \
        d(subid) d(country) d(side) d(othechelon) d(othsymbol) d(othtype) \
        d(urn) d(uic) d(subname) d(jcatsname) d(orgid) d(tasksite) d(taskhost) d(taskid) d(numrel) pad \
        d(supsite1) d(suphost1) d(supid1) d(typerel1) pad \
        d(supsite2) d(suphost2) d(supid2) d(typerel2)
======

161 Intercom Signal
======
binary scan $pdu @12Su1Su1Su1Su1B16B16Iu1Su1Su1 \
        d(site1) d(host1) d(ent1) d(intnum) d(enctype) \
        d(tdl) d(sample) d(len) d(samples)
======

194 LOTS
======
binary scan $pdu @12Su1Su1Su1ccScu1cu1cu1cu1ccu1A30IIIWWWIIIA16SRcA32 \
        d(1) d(2) d(3) d(4) d(5) d(6) d(7) d(8) d(9) d(10) d(11) d(12) d(13) d(14) d(15) d(16) d(17) d(18) d(19) d(20) d(21) d(22) d(23) d(24) d(25) d(26) d(27)
======