BSSMAP: Be able to dissect a assignment complete

1 files changed, 50 insertions, 0 deletions

diff --git a/BSSMAP.st b/BSSMAP.st
index a4ab7b4..3b69b18 100644
--- a/BSSMAP.st
+++ b/BSSMAP.st
@@ -511,3 +511,53 @@ GSM0808IE subclass: GSM0808CICIE [
         aMsg putByteArray: cic.
     ]
 ]
+
+GSM0808IE subclass: GSM0808CauseIE [
+    | cause |
+
+    GSM0808CauseIE class >> elementId [ ^ 21 ]
+    GSM0808CauseIE class >> length: aByteArray [ ^ 1 ]
+    GSM0808CauseIE class >> initWith: aCause [
+        ^ self new
+            cause: aCause;
+            yourself
+    ]
+
+    GSM0808CauseIE class >> parseFrom: aByteArray [
+        ^ self initWith: (aByteArray at: 2)
+    ]
+
+    cause [ ^ cause ]
+    cause: aCause [ cause := aCause ]
+
+    writeOnDirect: aMsg [
+        aMsg putByte: cause.
+    ]
+]
+
+GSM0808IE subclass: GSM0808SpeechVerIE [
+    | speech |
+
+    GSM0808SpeechVerIE class >> elementId [ ^ 64 ]
+    GSM0808SpeechVerIE class >> length: aByteArray [ ^ 1 ]
+    GSM0808SpeechVerIE class >> initWith: aVersion [
+        ^ self new
+            speechVersion: aVersion;
+            yourself
+    ]
+
+    GSM0808SpeechVerIE class >> parseFrom: aByteArray [
+        ^ self initWith: (aByteArray at: 2)
+    ]
+
+    speechVersion: aVersion [
+        speech := aVersion
+    ]
+
+    speechVersion [ ^ speech ]
+
+
+    writeOnDirect: aMsg [
+        aMsg putByte: speech.
+    ]
+]