1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
|
#! /usr/bin/perl -w
use strict;
#
# $Id$
#
#
# Written by Oron Peled <oron@actcom.co.il>
# Copyright (C) 2007, Xorcom
#
# All rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# See the file LICENSE in the top level of this tarball.
#
# This script is run from the xpp kernel module upon detection
# of a new XPD.
#
# Expects the following environment variables to be set:
# XPD_BUS - bus name
# XBUS_CONNECTOR - bus connector id string
# XPD_NAME - xpd name
# XPD_UNIT - xpd unit number
# XPD_TYPE - xpd type number (from protocol reply):
# 3 - FXS
# 4 - FXO
# 6 - BRI_TE
# 7 - BRI_NT
# 8 - PRI_TE
# 9 - PRI_NT
# XPD_REVISION - xpd revision number
#
# Output data format:
# - An optional comment start with ';' or '#' until the end of line
# - Optional Blank lines are ignored
# - Fields are whitespace separated (spaces or tabs)
#
# The fields are (in command line order):
# 1. CHIP select in decimal (ignored, taken from 3 LSB's of subunit number)
# 2. Command word:
# - RD Read Direct register.
# - WD Write Direct register.
# 3. Register number in hexadecimal.
# 4. Subregister number in hexadecimal. (for RS and WS commands).
# 5. Data byte in hexadecimal. (for WD and WS commands only).
#
package main;
use File::Basename;
my $program = basename("$0");
my $init_dir = dirname("$0");
my $unit_id;
sub logit {
print STDERR "$unit_id: @_\n";
}
# Arrange for error logging
if (-t STDERR) {
$unit_id = 'Interactive';
logit "Interactive startup\n";
} else {
$unit_id = "$ENV{XPD_BUS}/$ENV{XPD_NAME}";
open (STDERR, "| logger -t $program -p kern.info") || die;
logit "Non Interactive startup\n";
}
package PRI;
sub gen {
my $fmt = shift;
$| = 1;
printf "$fmt\n", @_;
}
package PRI::Port;
sub new {
my $pack = shift;
my $port = { @_ };
bless $port, $pack;
}
package main;
use Getopt::Std;
BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/zconf"); }
use Zaptel::Config::Defaults;
my %opts;
getopts('o:', \%opts);
$ENV{XPP_BASE} = '/proc/xpp';
#my $cmd = "$ENV{XPP_BASE}/$ENV{XPD_BUS}/command";
my $output;
if ($opts{o}) {
$output = $opts{o};
} else {
$ENV{XPD_BUS} || die "Missing XPD_BUS environment variable\n";
$ENV{XPD_NAME} || die "Missing XPD_NAME environment variable\n";
$ENV{XPD_TYPE} || die "Missing XPD_TYPE environment variable\n";
$ENV{XPD_REVISION} || die "Missing XPD_REVISION environment variable\n";
$ENV{XBUS_CONNECTOR} || die "Missing XBUS_CONNECTOR environment variable\n";
$output = "$ENV{XPP_BASE}/$ENV{XPD_BUS}/$ENV{XPD_NAME}/slics";
}
sub write_pri_info {
my $pri_type = shift || die "Missing pri_type parameter";
my $pri_proto = shift || die "Missing pri_proto parameter";
my $info = "$ENV{XPP_BASE}/$ENV{XPD_BUS}/$ENV{XPD_NAME}/pri_info";
open(INFO, ">$info") || die "Failed to open '$info': $!\n";
print INFO "$pri_type $pri_proto\n" || die "Failed writing to '$info': $!\n";
close INFO || die "Failed during close of '$info': $!\n";
}
my @PRI_SETUP;
sub set_defaults {
my @pri_specs;
my $match;
my $setup;
# For lab tests
my $labfile = "${0}.setup";
# Source default files
$ENV{ZAPTEL_DEFAULTS} = "$labfile" if -r "$labfile";
my $setup_var = 'XPP_PRI_SETUP';
my $setup_string;
my ($default_file, %source_defaults) =
Zaptel::Config::Defaults::source_vars($setup_var);
$setup_string = $source_defaults{$setup_var};
$setup_string =~ s/^\s+//; # trim
$setup_string =~ s/\s+$//; # trim
$setup_string =~ s/\s+/\n/g; # cannonical spaces
logit "From $default_file: $setup_var=\n$setup_string\n";
@pri_specs = split(/\s+/, $setup_string);
push(@pri_specs, 'NUM/*=TE,E1'); # Fall back default (last)
logit "pri_specs: @pri_specs";
SPEC:
for(my $i = 0; $i < @pri_specs; $i++) {
my $spec = $pri_specs[$i];
($match, $setup) = split(/=/, $spec);
next unless defined $match and defined $setup;
# Convert "globs" to regex
$match =~ s/\*/.*/g;
$match =~ s/\?/./g;
#logit "match: $match";
my @patlist = (
"CONNECTOR/$ENV{XBUS_CONNECTOR}/$ENV{XPD_NAME}",
"NUM/$ENV{XPD_BUS}/$ENV{XPD_NAME}"
);
foreach my $pattern (@patlist) {
#logit "testmatch: $pattern =~ $match";
if($pattern =~ $match) {
logit "MATCH($i): '$match' setup=$setup";
last SPEC;
}
}
}
die "No setup matching $ENV{XPD_BUS}/$ENV{XPD_NAME}\n" unless defined $setup;
@PRI_SETUP = split(/,/, $setup);
die "Bad setup string '$setup'\n" unless @PRI_SETUP;
}
set_defaults;
open(REG, ">$output") || die "Failed to open '$output': $!\n";
select REG;
logit "Starting '$0'";
PRI::gen "#--------------------------- start";
# only one of the following loopbacks can be activated in the same time
my $LIM1_RL = 0 << 1; # RL (Remote Loopback)
my $lim1 = 0xB0 | $LIM1_RL;
my $subunits_num = 4;
my $subunit = $ENV{XPD_SUBUNIT};
if($subunit eq 0) {
# Tuning of clocking unit to the 16.384 MHz reference frequence
# by setting Global Clock Mode registers (GCM[1:8]), same for E1 and T1/J1
PRI::gen "0 WD 92 00"; # GCM1
PRI::gen "0 WD 93 18"; # GCM2
PRI::gen "0 WD 94 FB"; # GCM3
PRI::gen "0 WD 95 0B"; # GCM4
PRI::gen "0 WD 96 01"; # GCM5
PRI::gen "0 WD 97 0B"; # GCM6
PRI::gen "0 WD 98 DB"; # GCM7
PRI::gen "0 WD 99 DF"; # GCM8
for(my $i = 0; $i < $subunits_num; $i++) {
PRI::gen "0 WS 26 $i BD"; # XPM0: Pulse Shape Programming for R1=18Ohms (0x54)
PRI::gen "0 WS 27 $i 03"; # XPM1: ...3V Pulse Level at the line (0x02)
PRI::gen "0 WS 28 $i 00"; # XPM2: ~XLT (transmit line is not in the high impedance state)
# if (unchannelized)
#PRI::gen "0 WS 1F $i 22"; # LOOP (Channel Looback):
# ECLB (Enable Channel Loop-Back)
# CLA (Channel Address)
PRI::gen "0 WS 2B $i EF"; # IDL (Idle):
# If channel loopback is enabled than transmit this code on the outgoing
PRI::gen "0 WS 1F $i 00"; # LOOP (Channel Looback):
#if($i eq 0){
# PRI::gen "0 WS 1F $i 00"; # LOOP (Channel Looback):
# # channels (XL1/XL2)
#}else {
# PRI::gen "0 WS 1F $i 20"; # LOOP (Channel Looback):
#}
PRI::gen "0 WS 37 $i %02X", $lim1;
# LIM1: ~RL (Remote Loop bit 0x02),
# ~DRS (Dual Rail Select, latch receive data while trasmit),
# RIL1, RIL0 (Receive Input Treshold 0.62 V),
# CLOS (Clear data in case of LOS)
PRI::gen "0 WS 3A $i 20"; # LIM2: SLT1, SLT0 = 01
# (Receiver Slicer Threshold, the receive slicer
# generates a mark (digital one) if the voltage at
# RL1/2 exceeds 50% of the peak amplitude,
# default, recommended in E1 mode).
PRI::gen "0 WS 38 $i 0A"; # PCD: (Pulse Count Detection, LOS Detection after 176 consecutive 0s)
PRI::gen "0 WS 39 $i 15"; # PCR: (Pulse Count Recovery, LOS Recovery after 22 ones in PCD interval)
# Configure system interface
PRI::gen "0 WS 3E $i C2"; # SIC1: SSC1 (System clock ) is 8.192 Mhz,
# SSD1 (System Data rate) is 8.192 Mbit/s,
# ~BIM (Byte interleaved mode),
# XBS (Transmit Buffer Size) is 2 frames
PRI::gen "0 WS 40 $i 04"; # SIC3: Edges for capture, Synchronous Pulse Receive @Rising Edge
PRI::gen "0 WS 41 $i 04"; # CMR4: RCLK is 8.192 MHz
PRI::gen "0 WS 43 $i 04"; # CMR5: TCLK is 8.192 MHz
PRI::gen "0 WS 44 $i 34"; # CMR6: Receive reference clock generated by channel 1,
# RCLK is at 8.192 Mhz dejittered, Clock recovered from the line
# TCLK is at 8.192 MHz is de-jittered by DCO-R to drive a6.176 MHz
# clock on RCLK.*/
PRI::gen "0 WS 20 $i 9F"; # XSW: XSIS (Spare Bit For International Use fixed to 1),
# XY0, XY1, XY2, XY3, XY4 (Y0, Y1 and Y3-Bits fixed to 1)
# cas = 0x1c;
# if (!(lineconfig & ZT_CONFIG_CCS))
# cas |= 0x40;
PRI::gen "0 WS 22 $i 00"; # XC0: (Transmit Counter Offset = 497/T=2)
PRI::gen "0 WS 23 $i 04"; # XC1:
PRI::gen "0 WS 24 $i 00"; # RC0: (Receive Counter Offset = 497/T=2)
PRI::gen "0 WS 25 $i 05"; # RC1:
my $sic2 = sprintf("%x", 0x00 | ($i << 1));
PRI::gen "0 WS 3F $i $sic2"; # SIC2: No FFS, no center receive elastic buffer, data active at phase ($sic >> 1)
# enable the following interrupt sources
PRI::gen "0 WS 16 $i 00"; # IMR2 (Interrupt Mask Register2): Enable ALL
PRI::gen "0 WS 17 $i 3F"; # IMR3 ~ES, ~SEC (Enable ES and SEC interrupts)
PRI::gen "0 WS 18 $i 00"; # IMR4: Enable ALL
PRI::gen "0 WS 08 $i 04"; # IPC: SYNC is 8 Khz
PRI::gen "0 WS 02 $i 51"; # CMDR (Command Register): RRES, XRES, SRES (Receiver/Transmitter reset)
PRI::gen "0 WS 02 $i 00"; # CMDR
# Configure interrupts
PRI::gen "0 WS 46 $i 40"; # GCR: Interrupt on Activation/Deactivation of AIX, LOS
PRI::gen "0 WS 45 $i 00"; # CMR2: External sources for SYPR, SCLKR, SYPX, SCLKX for TX and RX.
#PRI::gen "0 WS 22 $i 00"; # XC0: Normal operation of Sa-bits
#PRI::gen "0 WS 23 $i 04"; # XC1: X=4 => T=4-X=0 offset
#PRI::gen "0 WS 24 $i 00"; # RC0: 0 offset
#PRI::gen "0 WS 25 $i 00"; # RC1: Remaining part of RC0
# Configure ports
PRI::gen "0 WD 85 80"; # GPC1 (Global Port Configuration 1):
#PRI::gen "0 WD 85 00"; # GPC1 (Global Port Configuration 1):
# SMM (System Interface Multiplex Mode)
PRI::gen "0 WS 80 $i 00"; # PC1: SYPR/SYPX provided to RPA/XPA inputs
PRI::gen "0 WS 84 $i 31"; # PC5: XMFS active low, SCLKR is input, RCLK is output (unused)
PRI::gen "0 WS 86 $i 03"; # PC6: CLK1 is Tx Clock output, CLK2 is 8.192 Mhz from DCO-R
PRI::gen "0 WS 3B $i 00"; # Clear LCR1 - Loop Code Register 1
# printk("TE110P: Successfully initialized serial bus for card\n");
# Initialize PCM and SIG regs
PRI::gen "0 WS A0 $i 00"; # TSEO (Time Slot Even/Odd Select)
PRI::gen "0 WS A1 $i FF"; # TSBS (Time Slot Bit Select)- only selected bits are used for HDLC channel 1
# in selected time slots
PRI::gen "0 WS 03 $i 89"; # Mode Register:
# MDS (Mode Select) = 100 (No address comparison)
# HRAC (Receiver Active - HDLC channel 1)
# RFT2 (HDLC Receive FIFO is 64 byte deep)
PRI::gen "0 WS 09 $i 18"; # CCR1 (Common Configuration Register1)
# EITS (Enable Internal Time Slot 0 to 31 Signalling)
# ITF (Interframe Time Fill)
PRI::gen "0 WS 0A $i 04"; # CCR2 (Common Configuration Register2)
# RCRC (enable CRC - HDLC channel 1enable CRC - HDLC channel 1)
PRI::gen "0 WS 0C $i 00"; # RTR1 (Receive Time Slot register 1)
PRI::gen "0 WS 0D $i 00"; # RTR2 (Receive Time Slot register 2)
PRI::gen "0 WS 0E $i 00"; # RTR3 (Receive Time Slot register 3), TS16 (Enable time slot 16)
PRI::gen "0 WS 0F $i 00"; # RTR4 (Receive Time Slot register 4)
PRI::gen "0 WS 10 $i 00"; # TTR1 (Transmit Time Slot register 1)
PRI::gen "0 WS 11 $i 00"; # TTR2 (Transmit Time Slot register 2)
PRI::gen "0 WS 12 $i 00"; # TTR3 (Transmit Time Slot register 3), TS16 (Enable time slot 16)
PRI::gen "0 WS 13 $i 00"; # TTR4 (Transmit Time Slot register 4)
# configure the best performance of the Bipolar Violation detection for all four channels
PRI::gen "0 WS BD $i 00"; # BFR (Bugfix Register): ~BVP (Bipolar Violations),
# use Improved Bipolar Violation Detection instead
}
PRI::gen "0 WD BB FF"; # REGFP
PRI::gen "0 WD BC AC"; # REGFD
PRI::gen "0 WD BB 2B"; # REGFP
PRI::gen "0 WD BC 00"; # REGFD
PRI::gen "0 WD BB AB"; # REGFP
PRI::gen "0 WD BC 2A"; # REGFD
PRI::gen "0 WD BB FF"; # REGFP
PRI::gen "0 WD BC AA"; # REGFD
PRI::gen "0 WD BB 29"; # REGFP
PRI::gen "0 WD BC FF"; # REGFD
PRI::gen "0 WD BB A9"; # REGFP
PRI::gen "0 WD BC 28"; # REGFD
PRI::gen "0 WD BB 00"; # REGFP
PRI::gen "0 WD BC A8"; # REGFD
PRI::gen "0 WD BB 27"; # REGFP
PRI::gen "0 WD BC FF"; # REGFD
PRI::gen "0 WD BB A7"; # REGFP
PRI::gen "0 WD BC 00"; # REGFD
# PRI::gen "0 WS 80 00 00"; # PC1 (Port configuration 1): RPB_1.SYPR , XPB_1.SYPX
PRI::gen "0 WS 81 00 0B"; # PC2 (Port configuration 2): RPB_1.GPOH (ResetID ), XPB_1.GPOL (MUX_SEL0)
PRI::gen "0 WS 82 00 9B"; # PC3 (Port configuration 3): RPC_1.GPI (nConfig0), XPC_1.GPOL (MUX_SEL1)
PRI::gen "0 WS 83 00 9B"; # PC4 (Port configuration 4): RPD_1.GPI (nConfig1), XPD_1.GPOL (MUX_SEL2)
}
#------------------------------------------- Instance detection
logit "Ending '$0'";
close REG;
write_pri_info @PRI_SETUP;
close STDERR;
exit 0;
|
