September 2017 Update

Task/Memory-layout-of-a-data-structure/Kotlin/memory-layout-of-a-data-structure.kotlin

@@ -0,0 +1,42 @@
+// version 1.0.6
+
+const val OFF = false
+const val ON  = true
+
+fun toOnOff(b: Boolean) = if (b) "ON" else "OFF"
+
+data class Rs232Pins9(
+    var carrierDetect     : Boolean = OFF,
+    var receivedData      : Boolean = OFF,
+    var transmittedData   : Boolean = OFF,
+    var dataTerminalReady : Boolean = OFF,
+    var signalGround      : Boolean = OFF,
+    var dataSetReady      : Boolean = OFF,
+    var requestToSend     : Boolean = OFF,
+    var clearToSend       : Boolean = OFF,
+    var ringIndicator     : Boolean = OFF
+) {
+    fun setPin(n: Int, v: Boolean) {
+        when (n) {
+            1 -> carrierDetect     = v
+            2 -> receivedData      = v
+            3 -> transmittedData   = v
+            4 -> dataTerminalReady = v
+            5 -> signalGround      = v
+            6 -> dataSetReady      = v
+            7 -> requestToSend     = v
+            8 -> clearToSend       = v
+            9 -> ringIndicator     = v
+        }
+    }
+}
+
+fun main(args: Array<String>) {
+    val plug = Rs232Pins9(carrierDetect = ON, receivedData = ON) // set first two pins, say
+    println(toOnOff(plug.component2()))                          // print value of pin 2 by number
+    plug.transmittedData = ON                                    // set pin 3 by name
+    plug.setPin(4, ON)                                           // set pin 4 by number
+    println(toOnOff(plug.component3()))                          // print value of pin 3 by number
+    println(toOnOff(plug.dataTerminalReady))                     // print value of pin 4 by name
+    println(toOnOff(plug.ringIndicator))                         // print value of pin 9 by name
+}

Task/Memory-layout-of-a-data-structure/Phix/memory-layout-of-a-data-structure.phix

@@ -0,0 +1,8 @@
+constant CD=1, RD=2, TD=3, DTR=4, ...
+atom addr = allocate(2)  -- or wherever
+--read
+sequence bits = int_to_bits(peek2u(addr),16)
+integer dtr = bits[DTR]
+--write
+bits[DTR] = 1
+poke2(addr,bits_to_int(bits))