From 761201406b377bfbd19af5f5ff5722f012154d16 Mon Sep 17 00:00:00 2001 From: Holger Hans Peter Freyther Date: Sat, 11 Dec 2010 08:42:57 +0100 Subject: [PATCH] GSM: Call Control with a fixed number --- GSMDriver.st | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/GSMDriver.st b/GSMDriver.st index 3495118..6279d88 100644 --- a/GSMDriver.st +++ b/GSMDriver.st @@ -241,6 +241,8 @@ ProcedureBase subclass: CallProcedure [ | cm | cm := GSM48CMServiceReq new. + cm mi imsi: aPhone imsi. + cm keyAndType val: 16r21. self openConnection: cm sapi: 0 phone: aPhone handler: aHandler. ] @@ -248,4 +250,29 @@ ProcedureBase subclass: CallProcedure [ super execute. 'Call Complete' printNl. ] + + serviceAccepted [ + | resp | + 'Accepted' printNl. + + resp := GSM48CCSetup new. + resp bearer1OrDefault data: #(16r60 16r02 0 1 4 16r85) asByteArray. + resp calledOrDefault data: #(16r91 54 25 8 6 4 16) asByteArray. + conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0). + ] + + handleData: aMsg sapi: aSapi [ + aMsg class messageType = GSM48CCMessage msgConnect ifTrue: [ + | resp | + resp := GSM48CCConnectAck new. + conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0). + ]. + + aMsg class messageType = GSM48CCMessage msgDisconnect ifTrue: [ + | resp | + resp := GSM48CCRelease new. + resp causeOrDefault data: #(16rE1 16r90) asByteArray. + conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0) + ]. + ] ]