From 50b9f6013a507cc2687de59b1f235698fd0fd058 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sun, 5 Dec 2010 10:10:02 +0100
Subject: [PATCH] GSMDriver: Reply with an Assignment Complete message...

---
 BSSMAP.st    |  2 ++
 GSMDriver.st | 12 ++++++++++++
 2 files changed, 14 insertions(+)

diff --git a/BSSMAP.st b/BSSMAP.st
index 179db03..1d58547 100644
--- a/BSSMAP.st
+++ b/BSSMAP.st
@@ -15,6 +15,8 @@ Object subclass: GSM0808Helper [
     GSM0808Helper class >> msgClearComp [ <category: 'spec'> ^ 16r21 ]
     GSM0808Helper class >> msgCipherModeCmd  [ <category: 'spec'> ^ 16r53 ]
     GSM0808Helper class >> msgCipherModeCmpl [ <category: 'spec'> ^ 16r55 ]
+    GSM0808Helper class >> msgAssRequest  [ <category: 'spec'> ^ 16r1 ]
+    GSM0808Helper class >> msgAssComplete [ <category: 'spec'> ^ 16r2 ]
 ]
 
 Object subclass: LAI [
diff --git a/GSMDriver.st b/GSMDriver.st
index 3eb727c..42fe550 100644
--- a/GSMDriver.st
+++ b/GSMDriver.st
@@ -85,6 +85,18 @@ classes.'>
             ^ true
         ].
 
+        aMsg type = GSM0808Helper msgAssRequest ifTrue: [
+            | resp |
+            "Reply with a AMR halfrate statement"
+            resp := IEMessage initWith: GSM0808Helper msgAssComplete.
+            resp addIe: (GSM0808CauseIE initWith: 0).
+            resp addIe: (GSM0808ChosenChannel initWith: 16r98).
+            resp addIe: (GSM0808ChosenEncrIE initWith: 1).
+            resp addIe: (GSM0808SpeechVerIE initWith:  16r25).
+            sccp nextPutData: (BSSAPManagement initWith: resp).
+            ^ true
+        ].
+
         'Unhandled message' printNl.
         aMsg inspect.
     ]