imsi detach: Implement the IMSI detach procedure

GSMDriver.st

@@ -252,6 +252,29 @@ Object subclass: ProcedureBase [
     ]
 ]
 
+ProcedureBase subclass: IMSIDetachProcedure [
+    initialMessage [
+        | detach |
+
+        detach := GSM48IMSIDetachInd new.
+        detach mi imsi: conn phone imsi.
+        ^ detach
+    ]
+
+    name [
+        ^ 'IMSI Detach Procedure'
+    ]
+
+    status [
+        ^ self success
+            ifTrue:  ['IMSI Detach succeeded']
+            ifFalse: ['IMSI Detach failed'].
+    ]
+
+    connectionConfirmed [
+        "Nothing. No classmark change needed here."
+    ]
+]
 
 ProcedureBase subclass: LUProcedure [
     initialMessage [

TestPhone.st

@@ -135,6 +135,17 @@ Object subclass: IPAConfig [
 
     semaphore [ ^ sem ]
 
+    doIMSIDetach: aPhone [
+        ^ (GSMConnection on: connection sccpHandler withPhone: aPhone)
+            setProc: IMSIDetachProcedure new;
+            yourself
+    ]
+
+    sendIMSIDetach: aPhone [
+        ^ (self doIMSIDetach: aPhone)
+            openConnection; waitForTermination; yourself
+    ]
+
     doLU: aPhone [
         ^ (GSMConnection on: connection sccpHandler withPhone: aPhone)
             setProc: LUProcedure new;