blob: 5c1967d38c9707cb49f027c60344c4fef43cf8d0 [file] [log] [blame]
Harald Welte59b04682009-06-10 05:40:52 +08001/* GSM Radio Signalling Link messages on the A-bis interface
2 * 3GPP TS 08.58 version 8.6.0 Release 1999 / ETSI TS 100 596 V8.6.0 */
3
4/* (C) 2008-2009 by Harald Welte <laforge@gnumonks.org>
5 *
6 * All Rights Reserved
7 *
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
12 *
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License along
19 * with this program; if not, write to the Free Software Foundation, Inc.,
20 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21 *
22 */
23
24#include <stdio.h>
25#include <stdlib.h>
26#include <errno.h>
27#include <sys/types.h>
28#include <netinet/in.h>
29#include <arpa/inet.h>
30
31#include <openbsc/gsm_data.h>
32#include <openbsc/gsm_04_08.h>
33#include <openbsc/abis_rsl.h>
34#include <openbsc/chan_alloc.h>
35#include <openbsc/debug.h>
36#include <openbsc/tlv.h>
37#include <openbsc/paging.h>
38#include <openbsc/signal.h>
39
40#define RSL_ALLOC_SIZE 1024
41#define RSL_ALLOC_HEADROOM 128
42
43#define MAX(a, b) (a) >= (b) ? (a) : (b)
44
45static const struct tlv_definition rsl_att_tlvdef = {
46 .def = {
47 [RSL_IE_CHAN_NR] = { TLV_TYPE_TV },
48 [RSL_IE_LINK_IDENT] = { TLV_TYPE_TV },
49 [RSL_IE_ACT_TYPE] = { TLV_TYPE_TV },
50 [RSL_IE_BS_POWER] = { TLV_TYPE_TV },
51 [RSL_IE_CHAN_IDENT] = { TLV_TYPE_TLV },
52 [RSL_IE_CHAN_MODE] = { TLV_TYPE_TLV },
53 [RSL_IE_ENCR_INFO] = { TLV_TYPE_TLV },
54 [RSL_IE_FRAME_NUMBER] = { TLV_TYPE_FIXED, 2 },
55 [RSL_IE_HANDO_REF] = { TLV_TYPE_TV },
56 [RSL_IE_L1_INFO] = { TLV_TYPE_FIXED, 2 },
57 [RSL_IE_L3_INFO] = { TLV_TYPE_TL16V },
58 [RSL_IE_MS_IDENTITY] = { TLV_TYPE_TLV },
59 [RSL_IE_MS_POWER] = { TLV_TYPE_TV },
60 [RSL_IE_PAGING_GROUP] = { TLV_TYPE_TV },
61 [RSL_IE_PAGING_LOAD] = { TLV_TYPE_FIXED, 2 },
62 [RSL_IE_PYHS_CONTEXT] = { TLV_TYPE_TLV },
63 [RSL_IE_ACCESS_DELAY] = { TLV_TYPE_TV },
64 [RSL_IE_RACH_LOAD] = { TLV_TYPE_TLV },
65 [RSL_IE_REQ_REFERENCE] = { TLV_TYPE_FIXED, 3 },
66 [RSL_IE_RELEASE_MODE] = { TLV_TYPE_TV },
67 [RSL_IE_RESOURCE_INFO] = { TLV_TYPE_TLV },
68 [RSL_IE_RLM_CAUSE] = { TLV_TYPE_TLV },
69 [RSL_IE_STARTNG_TIME] = { TLV_TYPE_FIXED, 2 },
70 [RSL_IE_TIMING_ADVANCE] = { TLV_TYPE_TV },
71 [RSL_IE_UPLINK_MEAS] = { TLV_TYPE_TLV },
72 [RSL_IE_CAUSE] = { TLV_TYPE_TLV },
73 [RSL_IE_MEAS_RES_NR] = { TLV_TYPE_TV },
74 [RSL_IE_MSG_ID] = { TLV_TYPE_TV },
75 [RSL_IE_SYSINFO_TYPE] = { TLV_TYPE_TV },
76 [RSL_IE_MS_POWER_PARAM] = { TLV_TYPE_TLV },
77 [RSL_IE_BS_POWER_PARAM] = { TLV_TYPE_TLV },
78 [RSL_IE_PREPROC_PARAM] = { TLV_TYPE_TLV },
79 [RSL_IE_PREPROC_MEAS] = { TLV_TYPE_TLV },
80 [RSL_IE_IMM_ASS_INFO] = { TLV_TYPE_TLV },
81 [RSL_IE_SMSCB_INFO] = { TLV_TYPE_FIXED, 23 },
82 [RSL_IE_MS_TIMING_OFFSET] = { TLV_TYPE_TV },
83 [RSL_IE_ERR_MSG] = { TLV_TYPE_TLV },
84 [RSL_IE_FULL_BCCH_INFO] = { TLV_TYPE_TLV },
85 [RSL_IE_CHAN_NEEDED] = { TLV_TYPE_TV },
86 [RSL_IE_CB_CMD_TYPE] = { TLV_TYPE_TV },
87 [RSL_IE_SMSCB_MSG] = { TLV_TYPE_TLV },
88 [RSL_IE_FULL_IMM_ASS_INFO] = { TLV_TYPE_TLV },
89 [RSL_IE_SACCH_INFO] = { TLV_TYPE_TLV },
90 [RSL_IE_CBCH_LOAD_INFO] = { TLV_TYPE_TV },
91 [RSL_IE_SMSCB_CHAN_INDICATOR] = { TLV_TYPE_TV },
92 [RSL_IE_GROUP_CALL_REF] = { TLV_TYPE_TLV },
93 [RSL_IE_CHAN_DESC] = { TLV_TYPE_TLV },
94 [RSL_IE_NCH_DRX_INFO] = { TLV_TYPE_TLV },
95 [RSL_IE_CMD_INDICATOR] = { TLV_TYPE_TLV },
96 [RSL_IE_EMLPP_PRIO] = { TLV_TYPE_TV },
97 [RSL_IE_UIC] = { TLV_TYPE_TLV },
98 [RSL_IE_MAIN_CHAN_REF] = { TLV_TYPE_TV },
99 [RSL_IE_MR_CONFIG] = { TLV_TYPE_TLV },
100 [RSL_IE_MR_CONTROL] = { TLV_TYPE_TV },
101 [RSL_IE_SUP_CODEC_TYPES] = { TLV_TYPE_TLV },
102 [RSL_IE_CODEC_CONFIG] = { TLV_TYPE_TLV },
103 [RSL_IE_RTD] = { TLV_TYPE_TV },
104 [RSL_IE_TFO_STATUS] = { TLV_TYPE_TV },
105 [RSL_IE_LLP_APDU] = { TLV_TYPE_TLV },
106 [RSL_IE_IPAC_REMOTE_IP] = { TLV_TYPE_FIXED, 4 },
107 [RSL_IE_IPAC_REMOTE_PORT] = { TLV_TYPE_FIXED, 2 },
108 [RSL_IE_IPAC_LOCAL_IP] = { TLV_TYPE_FIXED, 4 },
109 [RSL_IE_IPAC_LOCAL_PORT] = { TLV_TYPE_FIXED, 2 },
110 [0xf4] = { TLV_TYPE_TV },
111 [0xf8] = { TLV_TYPE_FIXED, 2 },
112 [0xfc] = { TLV_TYPE_TV },
113 },
114};
115#define rsl_tlv_parse(dec, buf, len) \
116 tlv_parse(dec, &rsl_att_tlvdef, buf, len, 0, 0)
117
118static u_int8_t mdisc_by_msgtype(u_int8_t msg_type)
119{
120 /* mask off the transparent bit ? */
121 msg_type &= 0xfe;
122
123 if ((msg_type & 0xf0) == 0x00)
124 return ABIS_RSL_MDISC_RLL;
125 if ((msg_type & 0xf0) == 0x10) {
126 if (msg_type >= 0x19 && msg_type <= 0x22)
127 return ABIS_RSL_MDISC_TRX;
128 else
129 return ABIS_RSL_MDISC_COM_CHAN;
130 }
131 if ((msg_type & 0xe0) == 0x20)
132 return ABIS_RSL_MDISC_DED_CHAN;
133
134 return ABIS_RSL_MDISC_LOC;
135}
136
137static inline void init_dchan_hdr(struct abis_rsl_dchan_hdr *dh,
138 u_int8_t msg_type)
139{
140 dh->c.msg_discr = mdisc_by_msgtype(msg_type);
141 dh->c.msg_type = msg_type;
142 dh->ie_chan = RSL_IE_CHAN_NR;
143}
144
145static inline void init_llm_hdr(struct abis_rsl_rll_hdr *dh,
146 u_int8_t msg_type)
147{
148 /* dh->c.msg_discr = mdisc_by_msgtype(msg_type); */
149 dh->c.msg_discr = ABIS_RSL_MDISC_RLL;
150 dh->c.msg_type = msg_type;
151 dh->ie_chan = RSL_IE_CHAN_NR;
152 dh->ie_link_id = RSL_IE_LINK_IDENT;
153}
154
155
156/* encode channel number as per Section 9.3.1 */
157u_int8_t rsl_enc_chan_nr(u_int8_t type, u_int8_t subch, u_int8_t timeslot)
158{
159 u_int8_t ret;
160
161 ret = (timeslot & 0x07) | type;
162
163 switch (type) {
164 case RSL_CHAN_Lm_ACCHs:
165 subch &= 0x01;
166 break;
167 case RSL_CHAN_SDCCH4_ACCH:
168 subch &= 0x07;
169 break;
170 case RSL_CHAN_SDCCH8_ACCH:
171 subch &= 0x07;
172 break;
173 default:
174 /* no subchannels allowed */
175 subch = 0x00;
176 break;
177 }
178 ret |= (subch << 3);
179
180 return ret;
181}
182
183/* determine logical channel based on TRX and channel number IE */
184struct gsm_lchan *lchan_lookup(struct gsm_bts_trx *trx, u_int8_t chan_nr)
185{
186 struct gsm_lchan *lchan;
187 u_int8_t ts_nr = chan_nr & 0x07;
188 u_int8_t cbits = chan_nr >> 3;
189 u_int8_t lch_idx;
190 struct gsm_bts_trx_ts *ts = &trx->ts[ts_nr];
191
192 if (cbits == 0x01) {
193 lch_idx = 0; /* TCH/F */
194 if (ts->pchan != GSM_PCHAN_TCH_F)
195 fprintf(stderr, "chan_nr=0x%02x but pchan=%u\n",
196 chan_nr, ts->pchan);
197 } else if ((cbits & 0x1e) == 0x02) {
198 lch_idx = cbits & 0x1; /* TCH/H */
199 if (ts->pchan != GSM_PCHAN_TCH_H)
200 fprintf(stderr, "chan_nr=0x%02x but pchan=%u\n",
201 chan_nr, ts->pchan);
202 } else if ((cbits & 0x1c) == 0x04) {
203 lch_idx = cbits & 0x3; /* SDCCH/4 */
204 if (ts->pchan != GSM_PCHAN_CCCH_SDCCH4)
205 fprintf(stderr, "chan_nr=0x%02x but pchan=%u\n",
206 chan_nr, ts->pchan);
207 } else if ((cbits & 0x18) == 0x08) {
208 lch_idx = cbits & 0x7; /* SDCCH/8 */
209 if (ts->pchan != GSM_PCHAN_SDCCH8_SACCH8C)
210 fprintf(stderr, "chan_nr=0x%02x but pchan=%u\n",
211 chan_nr, ts->pchan);
212 } else if (cbits == 0x10 || cbits == 0x11 || cbits == 0x12) {
213 lch_idx = 0;
214 if (ts->pchan != GSM_PCHAN_CCCH &&
215 ts->pchan != GSM_PCHAN_CCCH_SDCCH4)
216 fprintf(stderr, "chan_nr=0x%02x but pchan=%u\n",
217 chan_nr, ts->pchan);
218 /* FIXME: we should not return first sdcch4 !!! */
219 } else {
220 fprintf(stderr, "unknown chan_nr=0x%02x\n", chan_nr);
221 return NULL;
222 }
223
224 lchan = &ts->lchan[lch_idx];
225
226 return lchan;
227}
228
229u_int8_t lchan2chan_nr(struct gsm_lchan *lchan)
230{
231 struct gsm_bts_trx_ts *ts = lchan->ts;
232 u_int8_t cbits, chan_nr;
233
234 switch (ts->pchan) {
235 case GSM_PCHAN_TCH_F:
236 cbits = 0x01;
237 break;
238 case GSM_PCHAN_TCH_H:
239 cbits = 0x02;
240 cbits += lchan->nr;
241 break;
242 case GSM_PCHAN_CCCH_SDCCH4:
243 cbits = 0x04;
244 cbits += lchan->nr;
245 break;
246 case GSM_PCHAN_SDCCH8_SACCH8C:
247 cbits = 0x08;
248 cbits += lchan->nr;
249 break;
250 default:
251 case GSM_PCHAN_CCCH:
252 cbits = 0x10;
253 break;
254 }
255
256 chan_nr = (cbits << 3) | (ts->nr & 0x7);
257
258 return chan_nr;
259}
260
261/* As per TS 03.03 Section 2.2, the IMSI has 'not more than 15 digits' */
262u_int64_t str_to_imsi(const char *imsi_str)
263{
264 u_int64_t ret;
265
266 ret = strtoull(imsi_str, NULL, 10);
267
268 return ret;
269}
270
271/* Table 5 Clause 7 TS 05.02 */
272unsigned int n_pag_blocks(int bs_ccch_sdcch_comb, unsigned int bs_ag_blks_res)
273{
274 if (!bs_ccch_sdcch_comb)
275 return 9 - bs_ag_blks_res;
276 else
277 return 3 - bs_ag_blks_res;
278}
279
280/* Chapter 6.5.2 of TS 05.02 */
281unsigned int get_ccch_group(u_int64_t imsi, unsigned int bs_cc_chans,
282 unsigned int n_pag_blocks)
283{
284 return (imsi % 1000) % (bs_cc_chans * n_pag_blocks) / n_pag_blocks;
285}
286
287/* Chapter 6.5.2 of TS 05.02 */
288unsigned int get_paging_group(u_int64_t imsi, unsigned int bs_cc_chans,
289 int n_pag_blocks)
290{
291 return (imsi % 1000) % (bs_cc_chans * n_pag_blocks) % n_pag_blocks;
292}
293
294static struct msgb *rsl_msgb_alloc(void)
295{
296 return msgb_alloc_headroom(RSL_ALLOC_SIZE, RSL_ALLOC_HEADROOM);
297}
298
299#define MACBLOCK_SIZE 23
300static void pad_macblock(u_int8_t *out, const u_int8_t *in, int len)
301{
302 memcpy(out, in, len);
303
304 if (len < MACBLOCK_SIZE)
305 memset(out+len, 0x2b, MACBLOCK_SIZE-len);
306}
307
308static void print_rsl_cause(u_int8_t *cause_tlv)
309{
310 u_int8_t cause_len;
311 int i;
312
313 if (cause_tlv[0] != RSL_IE_CAUSE)
314 return;
315
316 cause_len = cause_tlv[1];
317 DEBUGPC(DRSL, "CAUSE: ");
318 for (i = 0; i < cause_len; i++)
319 DEBUGPC(DRSL, "%02x ", cause_tlv[2+i]);
320}
321
322/* Send a BCCH_INFO message as per Chapter 8.5.1 */
323int rsl_bcch_info(struct gsm_bts_trx *trx, u_int8_t type,
324 const u_int8_t *data, int len)
325{
326 struct abis_rsl_dchan_hdr *dh;
327 struct msgb *msg = rsl_msgb_alloc();
328
329 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof*dh);
330 init_dchan_hdr(dh, RSL_MT_BCCH_INFO);
331 dh->chan_nr = RSL_CHAN_BCCH;
332
333 msgb_tv_put(msg, RSL_IE_SYSINFO_TYPE, type);
334 msgb_tlv_put(msg, RSL_IE_FULL_BCCH_INFO, len, data);
335
336 msg->trx = trx;
337
338 return abis_rsl_sendmsg(msg);
339}
340
341int rsl_sacch_filling(struct gsm_bts_trx *trx, u_int8_t type,
342 const u_int8_t *data, int len)
343{
344 struct abis_rsl_common_hdr *ch;
345 struct msgb *msg = rsl_msgb_alloc();
346
347 ch = (struct abis_rsl_common_hdr *) msgb_put(msg, sizeof(*ch));
348 ch->msg_discr = ABIS_RSL_MDISC_TRX;
349 ch->msg_type = RSL_MT_SACCH_FILL;
350
351 msgb_tv_put(msg, RSL_IE_SYSINFO_TYPE, type);
352 msgb_tl16v_put(msg, RSL_IE_L3_INFO, len, data);
353
354 msg->trx = trx;
355
356 return abis_rsl_sendmsg(msg);
357}
358
Harald Welte91afe4c2009-06-20 18:15:19 +0200359int rsl_chan_bs_power_ctrl(struct gsm_lchan *lchan, unsigned int fpc, int db)
360{
361 struct abis_rsl_dchan_hdr *dh;
362 struct msgb *msg = rsl_msgb_alloc();
363 u_int8_t chan_nr = lchan2chan_nr(lchan);
364
365 db = abs(db);
366 if (db > 30)
367 return -EINVAL;
368
369 lchan->bs_power = db/2;
370 if (fpc)
371 lchan->bs_power |= 0x10;
372
373 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
374 init_dchan_hdr(dh, RSL_MT_BS_POWER_CONTROL);
375 dh->chan_nr = chan_nr;
376
377 msgb_tv_put(msg, RSL_IE_BS_POWER, lchan->bs_power);
378
379 msg->trx = lchan->ts->trx;
380
381 return abis_rsl_sendmsg(msg);
382}
383
384/* determine power control level for given dBm value, as indicated
385 * by the tables in chapter 4.1.1 of GSM TS 05.05 */
386static int ms_pwr_ctl_lvl(struct gsm_bts *bts, unsigned int dbm)
387{
388 switch (bts->band) {
389 case GSM_BAND_400:
390 case GSM_BAND_900:
391 case GSM_BAND_850:
392 if (dbm >= 39)
393 return 0;
394 else if (dbm < 5)
395 return 19;
396 else
397 return 2 + ((39 - dbm) / 2);
398 break;
399 case GSM_BAND_1800:
400 if (dbm >= 36)
401 return 29;
402 else if (dbm >= 34)
403 return 30;
404 else if (dbm >= 32)
405 return 31;
406 else
407 return (30 - dbm) / 2;
408 break;
409 case GSM_BAND_1900:
410 if (dbm >= 33)
411 return 30;
412 else if (dbm >= 32)
413 return 31;
414 else
415 return (30 - dbm) / 2;
416 break;
417 }
418 return -EINVAL;
419}
420
421int rsl_chan_ms_power_ctrl(struct gsm_lchan *lchan, unsigned int fpc, int dbm)
422{
423 struct abis_rsl_dchan_hdr *dh;
424 struct msgb *msg = rsl_msgb_alloc();
425 u_int8_t chan_nr = lchan2chan_nr(lchan);
426 int ctl_lvl;
427
428 ctl_lvl = ms_pwr_ctl_lvl(lchan->ts->trx->bts, dbm);
429 if (ctl_lvl < 0)
430 return ctl_lvl;
431
432 lchan->ms_power = ctl_lvl;
433
434 if (fpc)
435 lchan->ms_power |= 0x20;
436
437 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
438 init_dchan_hdr(dh, RSL_MT_MS_POWER_CONTROL);
439 dh->chan_nr = chan_nr;
440
441 msgb_tv_put(msg, RSL_IE_MS_POWER, lchan->ms_power);
442
443 msg->trx = lchan->ts->trx;
444
445 return abis_rsl_sendmsg(msg);
446}
447
Harald Welte59b04682009-06-10 05:40:52 +0800448/* Chapter 8.4.1 */
449#if 0
450int rsl_chan_activate(struct gsm_bts_trx *trx, u_int8_t chan_nr,
451 u_int8_t act_type,
452 struct rsl_ie_chan_mode *chan_mode,
453 struct rsl_ie_chan_ident *chan_ident,
454 u_int8_t bs_power, u_int8_t ms_power,
455 u_int8_t ta)
456{
457 struct abis_rsl_dchan_hdr *dh;
458 struct msgb *msg = rsl_msgb_alloc();
459
460 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
461 init_dchan_hdr(dh, RSL_MT_CHAN_ACTIV);
462 dh->chan_nr = chan_nr;
463
464 msgb_tv_put(msg, RSL_IE_ACT_TYPE, act_type);
465 /* For compatibility with Phase 1 */
466 msgb_tlv_put(msg, RSL_IE_CHAN_MODE, sizeof(*chan_mode),
467 (u_int8_t *) chan_mode);
468 msgb_tlv_put(msg, RSL_IE_CHAN_IDENT, 4,
469 (u_int8_t *) chan_ident);
470#if 0
471 msgb_tlv_put(msg, RSL_IE_ENCR_INFO, 1,
472 (u_int8_t *) &encr_info);
473#endif
474 msgb_tv_put(msg, RSL_IE_BS_POWER, bs_power);
475 msgb_tv_put(msg, RSL_IE_MS_POWER, ms_power);
476 msgb_tv_put(msg, RSL_IE_TIMING_ADVANCE, ta);
477
478 msg->trx = trx;
479
480 return abis_rsl_sendmsg(msg);
481}
482#endif
483
484int rsl_chan_activate_lchan(struct gsm_lchan *lchan, u_int8_t act_type,
485 u_int8_t ta, u_int8_t mode)
486{
487 struct abis_rsl_dchan_hdr *dh;
488 struct msgb *msg = rsl_msgb_alloc();
489
490 u_int8_t chan_nr = lchan2chan_nr(lchan);
491 u_int16_t arfcn = lchan->ts->trx->arfcn;
492 struct rsl_ie_chan_mode cm;
493 struct rsl_ie_chan_ident ci;
494
495 memset(&cm, 0, sizeof(cm));
496 /* FIXME: what to do with data calls ? */
497 cm.dtx_dtu = 0x00;
498 switch (lchan->type) {
499 case GSM_LCHAN_SDCCH:
500 cm.spd_ind = RSL_CMOD_SPD_SIGN;
501 cm.chan_rt = RSL_CMOD_CRT_SDCCH;
502 cm.chan_rate = 0x00;
503 break;
504 case GSM_LCHAN_TCH_F:
505 cm.chan_rt = RSL_CMOD_CRT_TCH_Bm;
506 switch (mode) {
507 case RSL_CMOD_SPD_SIGN:
508 cm.spd_ind = RSL_CMOD_SPD_SIGN;
509 cm.chan_rate = 0x00;
510 break;
511 case RSL_CMOD_SPD_SPEECH:
512 cm.spd_ind = RSL_CMOD_SPD_SPEECH;
513 cm.chan_rate = RSL_CMOD_SP_GSM2;
514 break;
515 }
516 break;
517 case GSM_LCHAN_TCH_H:
518 DEBUGP(DRSL, "Unimplemented TCH_H activation\n");
519 return -1;
520 case GSM_LCHAN_UNKNOWN:
521 case GSM_LCHAN_NONE:
522 return -1;
523 }
524
525 memset(&ci, 0, sizeof(ci));
526 ci.chan_desc.iei = 0x64;
527 ci.chan_desc.chan_nr = chan_nr;
528 ci.chan_desc.oct3 = (lchan->ts->trx->bts->tsc << 5) | ((arfcn & 0x3ff) >> 8);
529 ci.chan_desc.oct4 = arfcn & 0xff;
530
531 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
532 init_dchan_hdr(dh, RSL_MT_CHAN_ACTIV);
533 dh->chan_nr = chan_nr;
534
535 msgb_tv_put(msg, RSL_IE_ACT_TYPE, act_type);
536 /* For compatibility with Phase 1 */
537 msgb_tlv_put(msg, RSL_IE_CHAN_MODE, sizeof(cm),
538 (u_int8_t *) &cm);
539 msgb_tlv_put(msg, RSL_IE_CHAN_IDENT, 4,
540 (u_int8_t *) &ci);
541#if 0
542 msgb_tlv_put(msg, RSL_IE_ENCR_INFO, 1,
543 (u_int8_t *) &encr_info);
544#endif
545 msgb_tv_put(msg, RSL_IE_BS_POWER, lchan->bs_power);
546 msgb_tv_put(msg, RSL_IE_MS_POWER, lchan->ms_power);
547 msgb_tv_put(msg, RSL_IE_TIMING_ADVANCE, ta);
548
549 msg->trx = lchan->ts->trx;
550
551 return abis_rsl_sendmsg(msg);
552}
553
554/* Chapter 8.4.9 */
555int rsl_chan_mode_modify_req(struct gsm_lchan *lchan)
556{
557 struct abis_rsl_dchan_hdr *dh;
558 struct msgb *msg = rsl_msgb_alloc();
559
560 u_int8_t chan_nr = lchan2chan_nr(lchan);
561 struct rsl_ie_chan_mode cm;
562
563 memset(&cm, 0, sizeof(cm));
564
565 /* FIXME: what to do with data calls ? */
566 cm.dtx_dtu = 0x00;
567 switch (lchan->type) {
568 /* todo more modes */
569 case GSM_LCHAN_TCH_F:
570 cm.spd_ind = RSL_CMOD_SPD_SPEECH;
571 cm.chan_rt = RSL_CMOD_CRT_TCH_Bm;
572 switch(lchan->tch_mode) {
573 case GSM48_CMODE_SPEECH_V1:
574 cm.chan_rate = RSL_CMOD_SP_GSM1;
575 break;
576 case GSM48_CMODE_SPEECH_EFR:
577 cm.chan_rate = RSL_CMOD_SP_GSM2;
578 break;
579 default:
580 DEBUGP(DRSL, "Unimplemented channel modification\n");
581 return -1;
582 }
583 break;
584 default:
585 DEBUGP(DRSL, "Unimplemented channel modification\n");
586 return -1;
587 }
588
589 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
590 init_dchan_hdr(dh, RSL_MT_MODE_MODIFY_REQ);
591 dh->chan_nr = chan_nr;
592
593 msgb_tlv_put(msg, RSL_IE_CHAN_MODE, sizeof(cm),
594 (u_int8_t *) &cm);
595#if 0
596 msgb_tlv_put(msg, RSL_IE_ENCR_INFO, 1,
597 (u_int8_t *) &encr_info);
598#endif
599
600 msg->trx = lchan->ts->trx;
601
602 return abis_rsl_sendmsg(msg);
603}
604
605/* Chapter 9.1.7 of 04.08 */
606int rsl_chan_release(struct gsm_lchan *lchan)
607{
608 struct abis_rsl_dchan_hdr *dh;
609 struct msgb *msg = rsl_msgb_alloc();
610
611 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
612 init_dchan_hdr(dh, RSL_MT_RF_CHAN_REL);
613 dh->chan_nr = lchan2chan_nr(lchan);
614
615 msg->lchan = lchan;
616 msg->trx = lchan->ts->trx;
617
618 DEBUGP(DRSL, "Channel Release CMD channel=%s chan_nr=0x%02x\n",
619 gsm_ts_name(lchan->ts), dh->chan_nr);
620
621 return abis_rsl_sendmsg(msg);
622}
623
624int rsl_paging_cmd(struct gsm_bts *bts, u_int8_t paging_group, u_int8_t len,
625 u_int8_t *ms_ident, u_int8_t chan_needed)
626{
627 struct abis_rsl_dchan_hdr *dh;
628 struct msgb *msg = rsl_msgb_alloc();
629
630 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
631 init_dchan_hdr(dh, RSL_MT_PAGING_CMD);
632 dh->chan_nr = RSL_CHAN_PCH_AGCH;
633
634 msgb_tv_put(msg, RSL_IE_PAGING_GROUP, paging_group);
635 msgb_tlv_put(msg, RSL_IE_MS_IDENTITY, len-2, ms_ident+2);
636 msgb_tv_put(msg, RSL_IE_CHAN_NEEDED, chan_needed);
637
638 msg->trx = bts->c0;
639
640 return abis_rsl_sendmsg(msg);
641}
642
643int rsl_paging_cmd_subscr(struct gsm_bts *bts, u_int8_t chan_need,
644 struct gsm_subscriber *subscr)
645{
646#if 0
647 u_int8_t mi[128];
648 unsigned int mi_len;
649 u_int8_t paging_group;
650#endif
651
652 return -1;
653}
654
655int imsi_str2bcd(u_int8_t *bcd_out, const char *str_in)
656{
657 int i, len = strlen(str_in);
658
659 for (i = 0; i < len; i++) {
660 int num = str_in[i] - 0x30;
661 if (num < 0 || num > 9)
662 return -1;
663 if (i % 2 == 0)
664 bcd_out[i/2] = num;
665 else
666 bcd_out[i/2] |= (num << 4);
667 }
668
669 return 0;
670}
671
672/* Chapter 8.5.6 */
673int rsl_imm_assign_cmd(struct gsm_bts *bts, u_int8_t len, u_int8_t *val)
674{
675 struct msgb *msg = rsl_msgb_alloc();
676 struct abis_rsl_dchan_hdr *dh;
677 u_int8_t buf[MACBLOCK_SIZE];
678
679 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
680 init_dchan_hdr(dh, RSL_MT_IMMEDIATE_ASSIGN_CMD);
681 dh->chan_nr = RSL_CHAN_PCH_AGCH;
682
683 switch (bts->type) {
684 case GSM_BTS_TYPE_BS11:
685 msgb_tlv_put(msg, RSL_IE_IMM_ASS_INFO, len, val);
686 break;
687 default:
688 /* If phase 2, construct a FULL_IMM_ASS_INFO */
689 pad_macblock(buf, val, len);
690 msgb_tlv_put(msg, RSL_IE_FULL_IMM_ASS_INFO, MACBLOCK_SIZE, buf);
691 break;
692 }
693
694 msg->trx = bts->c0;
695
696 return abis_rsl_sendmsg(msg);
697}
698
699/* Send "DATA REQUEST" message with given L3 Info payload */
700/* Chapter 8.3.1 */
701int rsl_data_request(struct msgb *msg, u_int8_t link_id)
702{
703 u_int8_t l3_len = msg->tail - (u_int8_t *)msgb_l3(msg);
704 struct abis_rsl_rll_hdr *rh;
705
706 if (msg->lchan == NULL) {
707 fprintf(stderr, "cannot send DATA REQUEST to unknown lchan\n");
708 return -EINVAL;
709 }
710
711 /* First push the L3 IE tag and length */
712 msgb_tv16_push(msg, RSL_IE_L3_INFO, l3_len);
713
714 /* Then push the RSL header */
715 rh = (struct abis_rsl_rll_hdr *) msgb_push(msg, sizeof(*rh));
716 init_llm_hdr(rh, RSL_MT_DATA_REQ);
717 rh->c.msg_discr |= ABIS_RSL_MDISC_TRANSP;
718 rh->chan_nr = lchan2chan_nr(msg->lchan);
719 rh->link_id = link_id;
720
721 msg->trx = msg->lchan->ts->trx;
722
723 return abis_rsl_sendmsg(msg);
724}
725
726/* Chapter 8.4.2: Channel Activate Acknowledge */
727static int rsl_rx_chan_act_ack(struct msgb *msg)
728{
729 struct abis_rsl_dchan_hdr *rslh = msgb_l2(msg);
730
731 /* BTS has confirmed channel activation, we now need
732 * to assign the activated channel to the MS */
733 if (rslh->ie_chan != RSL_IE_CHAN_NR)
734 return -EINVAL;
735
736 return 0;
737}
738
739/* Chapter 8.4.3: Channel Activate NACK */
740static int rsl_rx_chan_act_nack(struct msgb *msg)
741{
742 struct abis_rsl_dchan_hdr *dh = msgb_l2(msg);
743 struct tlv_parsed tp;
744
745 /* BTS has rejected channel activation ?!? */
746 if (dh->ie_chan != RSL_IE_CHAN_NR)
747 return -EINVAL;
748
749 rsl_tlv_parse(&tp, dh->data, msgb_l2len(msg)-sizeof(*dh));
750 if (TLVP_PRESENT(&tp, RSL_IE_CAUSE))
751 DEBUGPC(DRSL, "CAUSE=0x%02x ", *TLVP_VAL(&tp, RSL_IE_CAUSE));
752
753 return 0;
754}
755
756/* Chapter 8.4.4: Connection Failure Indication */
757static int rsl_rx_conn_fail(struct msgb *msg)
758{
759 struct abis_rsl_dchan_hdr *dh = msgb_l2(msg);
760 struct tlv_parsed tp;
761
762 DEBUGPC(DRSL, "CONNECTION FAIL: ");
763 print_rsl_cause(dh->data);
764
765 rsl_tlv_parse(&tp, dh->data, msgb_l2len(msg)-sizeof(*dh));
766
767 if (msg->trx->bts->type == GSM_BTS_TYPE_BS11) {
768 /* FIXME: we have no idea what cause 0x18 is !!! */
769 if (TLVP_PRESENT(&tp, RSL_IE_CAUSE) &&
770 TLVP_LEN(&tp, RSL_IE_CAUSE) >= 1 &&
771 *TLVP_VAL(&tp, RSL_IE_CAUSE) == 0x18) {
772 if (msg->lchan->use_count > 0) {
773 DEBUGPC(DRSL, "Cause 0x18 IGNORING, lchan in use! (%d times)\n", msg->lchan->use_count);
774 return 0;
775 }
776 }
777 }
778
779 DEBUGPC(DRSL, "RELEASING.\n");
780
781 /* FIXME: only free it after channel release ACK */
782 return rsl_chan_release(msg->lchan);
783}
784
785static int rsl_rx_meas_res(struct msgb *msg)
786{
787 struct abis_rsl_dchan_hdr *dh = msgb_l2(msg);
788 struct tlv_parsed tp;
789
790 DEBUGPC(DRSL, "MEASUREMENT RESULT ");
791 rsl_tlv_parse(&tp, dh->data, msgb_l2len(msg)-sizeof(*dh));
792
793 if (TLVP_PRESENT(&tp, RSL_IE_MEAS_RES_NR))
794 DEBUGPC(DRSL, "NR=%d ", *TLVP_VAL(&tp, RSL_IE_MEAS_RES_NR));
795 if (TLVP_PRESENT(&tp, RSL_IE_UPLINK_MEAS)) {
796 u_int8_t len = TLVP_LEN(&tp, RSL_IE_UPLINK_MEAS);
797 const u_int8_t *val = TLVP_VAL(&tp, RSL_IE_UPLINK_MEAS);
798 if (len >= 3) {
799 if (val[0] & 0x40)
800 DEBUGPC(DRSL, "DTXd ");
801 DEBUGPC(DRSL, "RXL-FULL-up=%d RXL-SUB-up=%d ",
802 val[0] & 0x3f, val[1] & 0x3f);
803 DEBUGPC(DRSL, "RXQ-FULL-up=%d RXQ-SUB-up=%d ",
804 val[2]>>3 & 0x7, val[2] & 0x7);
805 }
806 }
807 if (TLVP_PRESENT(&tp, RSL_IE_BS_POWER))
808 DEBUGPC(DRSL, "BS_POWER=%d ", *TLVP_VAL(&tp, RSL_IE_BS_POWER));
809 if (TLVP_PRESENT(&tp, RSL_IE_MS_TIMING_OFFSET))
810 DEBUGPC(DRSL, "MS_TO=%d ",
811 *TLVP_VAL(&tp, RSL_IE_MS_TIMING_OFFSET));
812 if (TLVP_PRESENT(&tp, RSL_IE_L1_INFO))
813 DEBUGPC(DRSL, "L1 ");
814 if (TLVP_PRESENT(&tp, RSL_IE_L3_INFO)) {
815 DEBUGPC(DRSL, "L3\n");
816 msg->l3h = TLVP_VAL(&tp, RSL_IE_L3_INFO);
817 return gsm0408_rcvmsg(msg);
818 } else
819 DEBUGPC(DRSL, "\n");
820
821 return 0;
822}
823
824static int abis_rsl_rx_dchan(struct msgb *msg)
825{
826 struct abis_rsl_dchan_hdr *rslh = msgb_l2(msg);
827 int rc = 0;
828 char *ts_name;
829
830 msg->lchan = lchan_lookup(msg->trx, rslh->chan_nr);
831 ts_name = gsm_ts_name(msg->lchan->ts);
832
833 DEBUGP(DRSL, "channel=%s chan_nr=0x%02x ", ts_name, rslh->chan_nr);
834
835 switch (rslh->c.msg_type) {
836 case RSL_MT_CHAN_ACTIV_ACK:
837 DEBUGPC(DRSL, "CHANNEL ACTIVATE ACK\n");
838 rc = rsl_rx_chan_act_ack(msg);
839 break;
840 case RSL_MT_CHAN_ACTIV_NACK:
841 DEBUGPC(DRSL, "CHANNEL ACTIVATE NACK\n");
842 rc = rsl_rx_chan_act_nack(msg);
843 break;
844 case RSL_MT_CONN_FAIL:
845 rc = rsl_rx_conn_fail(msg);
846 break;
847 case RSL_MT_MEAS_RES:
848 rc = rsl_rx_meas_res(msg);
849 break;
850 case RSL_MT_RF_CHAN_REL_ACK:
851 DEBUGPC(DRSL, "RF CHANNEL RELEASE ACK\n");
852 lchan_free(msg->lchan);
853 break;
854 case RSL_MT_MODE_MODIFY_ACK:
855 DEBUGPC(DRSL, "CHANNEL MODE MODIFY ACK\n");
856 break;
857 case RSL_MT_MODE_MODIFY_NACK:
858 DEBUGPC(DRSL, "CHANNEL MODE MODIFY NACK\n");
859 break;
860 case RSL_MT_PHY_CONTEXT_CONF:
861 case RSL_MT_PREPROC_MEAS_RES:
862 case RSL_MT_TALKER_DET:
863 case RSL_MT_LISTENER_DET:
864 case RSL_MT_REMOTE_CODEC_CONF_REP:
865 case RSL_MT_MR_CODEC_MOD_ACK:
866 case RSL_MT_MR_CODEC_MOD_NACK:
867 case RSL_MT_MR_CODEC_MOD_PER:
868 DEBUGPC(DRSL, "Unimplemented Abis RSL DChan msg 0x%02x\n",
869 rslh->c.msg_type);
870 break;
871 default:
872 DEBUGPC(DRSL, "unknown Abis RSL DChan msg 0x%02x\n",
873 rslh->c.msg_type);
874 return -EINVAL;
875 }
876
877 return rc;
878}
879
880static int rsl_rx_error_rep(struct msgb *msg)
881{
882 struct abis_rsl_common_hdr *rslh = msgb_l2(msg);
883
884 DEBUGP(DRSL, "ERROR REPORT ");
885 print_rsl_cause(rslh->data);
886 DEBUGPC(DRSL, "\n");
887
888 return 0;
889}
890
891static int abis_rsl_rx_trx(struct msgb *msg)
892{
893 struct abis_rsl_common_hdr *rslh = msgb_l2(msg);
894 int rc = 0;
895
896 switch (rslh->msg_type) {
897 case RSL_MT_ERROR_REPORT:
898 rc = rsl_rx_error_rep(msg);
899 break;
900 case RSL_MT_RF_RES_IND:
901 /* interference on idle channels of TRX */
902 //DEBUGP(DRSL, "TRX: RF Interference Indication\n");
903 break;
904 case RSL_MT_OVERLOAD:
905 /* indicate CCCH / ACCH / processor overload */
906 DEBUGP(DRSL, "TRX: CCCH/ACCH/CPU Overload\n");
907 break;
908 default:
909 DEBUGP(DRSL, "Unknown Abis RSL TRX message type 0x%02x\n",
910 rslh->msg_type);
911 return -EINVAL;
912 }
913 return rc;
914}
915
916/* MS has requested a channel on the RACH */
917static int rsl_rx_chan_rqd(struct msgb *msg)
918{
919 struct gsm_bts *bts = msg->trx->bts;
920 struct abis_rsl_dchan_hdr *rqd_hdr = msgb_l2(msg);
921 struct gsm48_req_ref *rqd_ref;
922 struct gsm48_imm_ass ia;
923 enum gsm_chan_t lctype;
924 enum gsm_chreq_reason_t chreq_reason;
925 struct gsm_lchan *lchan;
926 u_int8_t rqd_ta;
927 int ret;
928
929 u_int16_t arfcn;
930 u_int8_t ts_number, subch;
931
932 /* parse request reference to be used in immediate assign */
933 if (rqd_hdr->data[0] != RSL_IE_REQ_REFERENCE)
934 return -EINVAL;
935
936 rqd_ref = (struct gsm48_req_ref *) &rqd_hdr->data[1];
937
938 /* parse access delay and use as TA */
939 if (rqd_hdr->data[sizeof(struct gsm48_req_ref)+1] != RSL_IE_ACCESS_DELAY)
940 return -EINVAL;
941 rqd_ta = rqd_hdr->data[sizeof(struct gsm48_req_ref)+2];
942
943 /* determine channel type (SDCCH/TCH_F/TCH_H) based on
944 * request reference RA */
945 lctype = get_ctype_by_chreq(bts, rqd_ref->ra);
946 chreq_reason = get_reason_by_chreq(bts, rqd_ref->ra);
947
948 /* check availability / allocate channel */
949 lchan = lchan_alloc(bts, lctype);
950 if (!lchan) {
951 fprintf(stderr, "CHAN RQD: no resources\n");
952 /* FIXME: send some kind of reject ?!? */
953 return -ENOMEM;
954 }
955
956 ts_number = lchan->ts->nr;
957 arfcn = lchan->ts->trx->arfcn;
958 subch = lchan->nr;
959
960 lchan->ms_power = lchan->bs_power = 0x0f; /* 30dB reduction */
961 rsl_chan_activate_lchan(lchan, 0x00, rqd_ta, RSL_CMOD_SPD_SIGN);
962
963 /* create IMMEDIATE ASSIGN 04.08 messge */
964 memset(&ia, 0, sizeof(ia));
965 ia.l2_plen = 0x2d;
966 ia.proto_discr = GSM48_PDISC_RR;
967 ia.msg_type = GSM48_MT_RR_IMM_ASS;
968 ia.page_mode = GSM48_PM_SAME;
969 ia.chan_desc.chan_nr = lchan2chan_nr(lchan);
970 ia.chan_desc.h0.h = 0;
971 ia.chan_desc.h0.arfcn_high = arfcn >> 8;
972 ia.chan_desc.h0.arfcn_low = arfcn & 0xff;
973 ia.chan_desc.h0.tsc = 7;
974 /* use request reference extracted from CHAN_RQD */
975 memcpy(&ia.req_ref, rqd_ref, sizeof(ia.req_ref));
976 ia.timing_advance = rqd_ta;
977 ia.mob_alloc_len = 0;
978
979 DEBUGP(DRSL, "Activating ARFCN(%u) TS(%u) SS(%u) lctype %s "
980 "chan_nr=0x%02x r=%s ra=0x%02x\n",
981 arfcn, ts_number, subch, gsm_lchan_name(lchan->type),
982 ia.chan_desc.chan_nr, gsm_chreq_name(chreq_reason),
983 rqd_ref->ra);
984
985 /* FIXME: Start timer T3101 to wait for GSM48_MT_RR_PAG_RESP */
986
987 /* send IMMEDIATE ASSIGN CMD on RSL to BTS (to send on CCCH to MS) */
988 ret = rsl_imm_assign_cmd(bts, sizeof(ia), (u_int8_t *) &ia);
989
990 return ret;
991}
992
993/* MS has requested a channel on the RACH */
994static int rsl_rx_ccch_load(struct msgb *msg)
995{
996 struct abis_rsl_dchan_hdr *rslh = msgb_l2(msg);
997 u_int16_t pg_buf_space;
998 u_int16_t rach_slot_count = -1;
999 u_int16_t rach_busy_count = -1;
1000 u_int16_t rach_access_count = -1;
1001
1002 switch (rslh->data[0]) {
1003 case RSL_IE_PAGING_LOAD:
1004 pg_buf_space = rslh->data[1] << 8 | rslh->data[2];
1005 paging_update_buffer_space(msg->trx->bts, pg_buf_space);
1006 break;
1007 case RSL_IE_RACH_LOAD:
1008 if (msg->data_len >= 7) {
1009 rach_slot_count = rslh->data[2] << 8 | rslh->data[3];
1010 rach_busy_count = rslh->data[4] << 8 | rslh->data[5];
1011 rach_access_count = rslh->data[6] << 8 | rslh->data[7];
1012 }
1013 break;
1014 default:
1015 break;
1016 }
1017
1018 return 0;
1019}
1020
1021static int abis_rsl_rx_cchan(struct msgb *msg)
1022{
1023 struct abis_rsl_dchan_hdr *rslh = msgb_l2(msg);
1024 int rc = 0;
1025
1026 msg->lchan = lchan_lookup(msg->trx, rslh->chan_nr);
1027
1028 switch (rslh->c.msg_type) {
1029 case RSL_MT_CHAN_RQD:
1030 /* MS has requested a channel on the RACH */
1031 rc = rsl_rx_chan_rqd(msg);
1032 break;
1033 case RSL_MT_CCCH_LOAD_IND:
1034 /* current load on the CCCH */
1035 rc = rsl_rx_ccch_load(msg);
1036 break;
1037 case RSL_MT_DELETE_IND:
1038 /* CCCH overloaded, IMM_ASSIGN was dropped */
1039 case RSL_MT_CBCH_LOAD_IND:
1040 /* current load on the CBCH */
1041 fprintf(stderr, "Unimplemented Abis RSL TRX message type "
1042 "0x%02x\n", rslh->c.msg_type);
1043 break;
1044 default:
1045 fprintf(stderr, "Unknown Abis RSL TRX message type 0x%02x\n",
1046 rslh->c.msg_type);
1047 return -EINVAL;
1048 }
1049
1050 return rc;
1051}
1052
1053static int rsl_rx_rll_err_ind(struct msgb *msg)
1054{
1055 struct abis_rsl_rll_hdr *rllh = msgb_l2(msg);
1056 u_int8_t *rlm_cause = rllh->data;
1057
1058 DEBUGPC(DRLL, "cause=0x%02x", rlm_cause[1]);
1059
1060 return 0;
1061}
1062
1063/* ESTABLISH INDICATION, LOCATION AREA UPDATE REQUEST
1064 0x02, 0x06,
1065 0x01, 0x20,
1066 0x02, 0x00,
1067 0x0b, 0x00, 0x0f, 0x05, 0x08, ... */
1068
1069static int abis_rsl_rx_rll(struct msgb *msg)
1070{
1071 struct abis_rsl_rll_hdr *rllh = msgb_l2(msg);
1072 int rc = 0;
1073 char *ts_name;
1074
1075 msg->lchan = lchan_lookup(msg->trx, rllh->chan_nr);
1076 ts_name = gsm_ts_name(msg->lchan->ts);
1077 DEBUGP(DRLL, "channel=%s chan_nr=0x%02x ", ts_name, rllh->chan_nr);
1078
1079 switch (rllh->c.msg_type) {
1080 case RSL_MT_DATA_IND:
1081 DEBUGPC(DRLL, "DATA INDICATION\n");
1082 if (msgb_l2len(msg) >
1083 sizeof(struct abis_rsl_common_hdr) + sizeof(*rllh) &&
1084 rllh->data[0] == RSL_IE_L3_INFO) {
1085 msg->l3h = &rllh->data[3];
1086 return gsm0408_rcvmsg(msg);
1087 }
1088 break;
1089 case RSL_MT_EST_IND:
1090 DEBUGPC(DRLL, "ESTABLISH INDICATION\n");
1091 if (msgb_l2len(msg) >
1092 sizeof(struct abis_rsl_common_hdr) + sizeof(*rllh) &&
1093 rllh->data[0] == RSL_IE_L3_INFO) {
1094 msg->l3h = &rllh->data[3];
1095 return gsm0408_rcvmsg(msg);
1096 }
1097 break;
1098 case RSL_MT_REL_IND:
1099 DEBUGPC(DRLL, "RELEASE INDICATION ");
1100 break;
1101 case RSL_MT_REL_CONF:
1102 DEBUGPC(DRLL, "RELEASE CONFIRMATION ");
1103 break;
1104 case RSL_MT_ERROR_IND:
1105 DEBUGPC(DRLL, "ERROR INDICATION ");
1106 rc = rsl_rx_rll_err_ind(msg);
1107 break;
1108 case RSL_MT_UNIT_DATA_IND:
1109 DEBUGPC(DRLL, "unimplemented Abis RLL message type 0x%02x ",
1110 rllh->c.msg_type);
1111 break;
1112 default:
1113 DEBUGPC(DRLL, "unknown Abis RLL message type 0x%02x ",
1114 rllh->c.msg_type);
1115 }
1116 DEBUGPC(DRLL, "\n");
1117 return rc;
1118}
1119
1120/* ip.access specific RSL extensions */
1121int rsl_ipacc_bind(struct gsm_lchan *lchan)
1122{
1123 struct msgb *msg = rsl_msgb_alloc();
1124 struct abis_rsl_dchan_hdr *dh;
1125
1126 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
1127 init_dchan_hdr(dh, RSL_MT_IPAC_BIND);
1128 dh->c.msg_discr = ABIS_RSL_MDISC_IPACCESS;
1129 dh->chan_nr = lchan2chan_nr(lchan);
1130
1131 msg->trx = lchan->ts->trx;
1132
1133 return abis_rsl_sendmsg(msg);
1134}
1135
1136int rsl_ipacc_connect(struct gsm_lchan *lchan, u_int32_t ip, u_int16_t port, u_int16_t f8, u_int8_t fc)
1137{
1138 struct msgb *msg = rsl_msgb_alloc();
1139 struct abis_rsl_dchan_hdr *dh;
1140 u_int8_t *att_f8, *att_ip, *att_port;
1141
1142 dh = (struct abis_rsl_dchan_hdr *) msgb_put(msg, sizeof(*dh));
1143 init_dchan_hdr(dh, RSL_MT_IPAC_CONNECT);
1144 dh->c.msg_discr = ABIS_RSL_MDISC_IPACCESS;
1145 dh->chan_nr = lchan2chan_nr(lchan);
1146
1147 att_f8 = msgb_put(msg, sizeof(f8)+1);
1148 att_f8[0] = 0xf8;
1149 att_f8[1] = f8 >> 8;
1150 att_f8[2] = f8 & 0xff;
1151
1152 att_ip = msgb_put(msg, sizeof(ip)+1);
1153 att_ip[0] = RSL_IE_IPAC_REMOTE_IP;
1154 att_ip[1] = ip >> 24;
1155 att_ip[2] = ip >> 16;
1156 att_ip[3] = ip >> 8;
1157 att_ip[4] = ip & 0xff;
1158 //att_ip[4] = 11;
1159
1160 att_port = msgb_put(msg, sizeof(port)+1);
1161 att_port[0] = RSL_IE_IPAC_REMOTE_PORT;
1162 att_port[1] = port >> 8;
1163 att_port[2] = port & 0xff;
1164
1165 msgb_tv_put(msg, 0xf4, 1); /* F4 01 */
1166 msgb_tv_put(msg, 0xfc, fc); /* FC 7F */
1167 msg->trx = lchan->ts->trx;
1168
1169 return abis_rsl_sendmsg(msg);
1170}
1171
1172static int abis_rsl_rx_ipacc_bindack(struct msgb *msg)
1173{
1174 struct abis_rsl_dchan_hdr *dh = msgb_l2(msg);
1175 struct tlv_parsed tv;
1176 struct gsm_bts_trx_ts *ts = msg->lchan->ts;
1177 struct in_addr ip;
1178 u_int16_t port, attr_f8;
1179
1180 /* the BTS has acknowledged a local bind, it now tells us the IP
1181 * address and port number to which it has bound the given logical
1182 * channel */
1183
1184 rsl_tlv_parse(&tv, dh->data, msgb_l2len(msg)-sizeof(*dh));
1185 if (!TLVP_PRESENT(&tv, RSL_IE_IPAC_LOCAL_PORT) ||
1186 !TLVP_PRESENT(&tv, RSL_IE_IPAC_LOCAL_IP) ||
1187 !TLVP_PRESENT(&tv, 0xfc) ||
1188 !TLVP_PRESENT(&tv, 0xf8)) {
1189 DEBUGPC(DRSL, "mandatory IE missing");
1190 return -EINVAL;
1191 }
1192 ip.s_addr = *((u_int32_t *) TLVP_VAL(&tv, RSL_IE_IPAC_LOCAL_IP));
1193 port = *((u_int16_t *) TLVP_VAL(&tv, RSL_IE_IPAC_LOCAL_PORT));
1194 attr_f8 = *((u_int16_t *) TLVP_VAL(&tv, 0xf8));
1195
1196 DEBUGPC(DRSL, "IP=%s PORT=%d FC=%d F8=%d",
1197 inet_ntoa(ip), ntohs(port), *TLVP_VAL(&tv, 0xfc),
1198 ntohs(attr_f8));
1199
1200 /* update our local information about this TS */
1201 ts->abis_ip.bound_ip = ntohl(ip.s_addr);
1202 ts->abis_ip.bound_port = ntohs(port);
1203 ts->abis_ip.attr_f8 = ntohs(attr_f8);
1204 ts->abis_ip.attr_fc = *TLVP_VAL(&tv, 0xfc);
1205
1206 dispatch_signal(SS_ABISIP, S_ABISIP_BIND_ACK, msg->lchan);
1207
1208 return 0;
1209}
1210
1211static int abis_rsl_rx_ipacc_disc_ind(struct msgb *msg)
1212{
1213 struct abis_rsl_dchan_hdr *dh = msgb_l2(msg);
1214 struct tlv_parsed tv;
1215
1216 rsl_tlv_parse(&tv, dh->data, msgb_l2len(msg)-sizeof(*dh));
1217 if (!TLVP_PRESENT(&tv, RSL_IE_CAUSE)) {
1218 DEBUGPC(DRSL, "mandatory IE missing! ");
1219 return -EINVAL;
1220 }
1221
1222 DEBUGPC(DRSL, "cause=0x%02x ", *TLVP_VAL(&tv, RSL_IE_CAUSE));
1223
1224 return 0;
1225}
1226
1227static int abis_rsl_rx_ipacc(struct msgb *msg)
1228{
1229 struct abis_rsl_rll_hdr *rllh = msgb_l2(msg);
1230 int rc = 0;
1231
1232 msg->lchan = lchan_lookup(msg->trx, rllh->chan_nr);
1233 DEBUGP(DRSL, "channel=%s chan_nr=0x%02x ",
1234 gsm_ts_name(msg->lchan->ts), rllh->chan_nr);
1235
1236 switch (rllh->c.msg_type) {
1237 case RSL_MT_IPAC_BIND_ACK:
1238 DEBUGPC(DRSL, "IPAC_BIND_ACK ");
1239 rc = abis_rsl_rx_ipacc_bindack(msg);
1240 break;
1241 case RSL_MT_IPAC_BIND_NACK:
1242 /* somehow the BTS was unable to bind the lchan to its local
1243 * port?!? */
1244 DEBUGPC(DRSL, "IPAC_BIND_NACK ");
1245 break;
1246 case RSL_MT_IPAC_CONNECT_ACK:
1247 /* the BTS tells us that a connect operation was successful */
1248 DEBUGPC(DRSL, "IPAC_CONNECT_ACK ");
1249 break;
1250 case RSL_MT_IPAC_CONNECT_NACK:
1251 /* somehow the BTS was unable to connect the lchan to a remote
1252 * port */
1253 DEBUGPC(DRSL, "IPAC_CONNECT_NACK ");
1254 break;
1255 case RSL_MT_IPAC_DISCONNECT_IND:
1256 DEBUGPC(DRSL, "IPAC_DISCONNECT_IND ");
1257 rc = abis_rsl_rx_ipacc_disc_ind(msg);
1258 break;
1259 default:
1260 DEBUGPC(DRSL, "Unknown ip.access msg_type 0x%02x", rllh->c.msg_type);
1261 break;
1262 }
1263 DEBUGPC(DRSL, "\n");
1264
1265 return rc;
1266}
1267
1268
1269/* Entry-point where L2 RSL from BTS enters */
1270int abis_rsl_rcvmsg(struct msgb *msg)
1271{
1272 struct abis_rsl_common_hdr *rslh = msgb_l2(msg) ;
1273 int rc = 0;
1274
1275 switch (rslh->msg_discr & 0xfe) {
1276 case ABIS_RSL_MDISC_RLL:
1277 rc = abis_rsl_rx_rll(msg);
1278 break;
1279 case ABIS_RSL_MDISC_DED_CHAN:
1280 rc = abis_rsl_rx_dchan(msg);
1281 break;
1282 case ABIS_RSL_MDISC_COM_CHAN:
1283 rc = abis_rsl_rx_cchan(msg);
1284 break;
1285 case ABIS_RSL_MDISC_TRX:
1286 rc = abis_rsl_rx_trx(msg);
1287 break;
1288 case ABIS_RSL_MDISC_LOC:
1289 fprintf(stderr, "unimplemented RSL msg disc 0x%02x\n",
1290 rslh->msg_discr);
1291 break;
1292 case ABIS_RSL_MDISC_IPACCESS:
1293 rc = abis_rsl_rx_ipacc(msg);
1294 break;
1295 default:
1296 fprintf(stderr, "unknown RSL message discriminator 0x%02x\n",
1297 rslh->msg_discr);
1298 return -EINVAL;
1299 }
1300 msgb_free(msg);
1301 return rc;
1302}
1303
1304
1305/* Section 3.3.2.3 . I think this looks like a table */
1306int rsl_ccch_conf_to_bs_cc_chans(int ccch_conf)
1307{
1308 switch (ccch_conf) {
1309 case RSL_BCCH_CCCH_CONF_1_NC:
1310 return 1;
1311 case RSL_BCCH_CCCH_CONF_1_C:
1312 return 1;
1313 case RSL_BCCH_CCCH_CONF_2_NC:
1314 return 2;
1315 case RSL_BCCH_CCCH_CONF_3_NC:
1316 return 3;
1317 case RSL_BCCH_CCCH_CONF_4_NC:
1318 return 4;
1319 default:
1320 return -1;
1321 }
1322}
1323
1324int rsl_ccch_conf_to_bs_ccch_sdcch_comb(int ccch_conf)
1325{
1326 switch (ccch_conf) {
1327 case RSL_BCCH_CCCH_CONF_1_NC:
1328 return 0;
1329 case RSL_BCCH_CCCH_CONF_1_C:
1330 return 1;
1331 case RSL_BCCH_CCCH_CONF_2_NC:
1332 return 0;
1333 case RSL_BCCH_CCCH_CONF_3_NC:
1334 return 0;
1335 case RSL_BCCH_CCCH_CONF_4_NC:
1336 return 0;
1337 default:
1338 return -1;
1339 }
1340}
1341
1342/* From Table 10.5.33 of GSM 04.08 */
1343int rsl_number_of_paging_subchannels(struct gsm_bts *bts)
1344{
1345 if (bts->chan_desc.ccch_conf == RSL_BCCH_CCCH_CONF_1_C) {
1346 return MAX(1, (3 - bts->chan_desc.bs_ag_blks_res))
1347 * (bts->chan_desc.bs_pa_mfrms + 2);
1348 } else {
1349 return (9 - bts->chan_desc.bs_ag_blks_res)
1350 * (bts->chan_desc.bs_pa_mfrms + 2);
1351 }
1352}