(주)다이아커뮤니케이션즈



	홈 > FAQ

[K12xx] PC-4 Installation Guide

[K12xx] Internet Explorer 사용 시 한글 지원

PC4,PC5 Display Driver

[G20] MAP, CAP 시험 시 에뮬레이션 스택 (MTP3, SCCP)을 구성을 쉽게 할 수 있나요 ?

MAP, CAP 시험 시 에뮬레이션 스택 (MTP3, SCCP)을 구성하는 스크립의 예
( --------------------------------------------------------- -*- forth -*- )
( Name: cfg_1.4th )
( Purpose: )
( Author: KyoSoon Lee )
( Date: )
( Comment: )
( History: )
( ----------------------------------------------------------------------- )

variable $num

( ---------------------------------------------------------------------------- )

: -! ( value / adrs -- )
DUP >R @ SWAP - R> !
;

\ : +C! ( value / adrs -- ) ---> See C+!
\ DUP >R @ SWAP + R> C!
\ ;

\ : *! ( value / adrs -- )
\ DUP >R @ * R> !
\ ;

( ---------------------------------------------------------------------------- )

0x08 constant #BS ( Back Space )
0x0D constant #ENTER

variable $base
variable buf[] 200 allot
variable $digit
variable $key

: GetStr ( -- adrs )
0 $digit !
0 buf[] C!
20
1
DO
KEY $key !
$key @ #ENTER = ( ENTER )
IF
LEAVE
ELSE
$key @ DUP EMIT #BS = ( BakcSpace )
IF
$digit @ 0 > IF
1 $digit -!
THEN
ELSE
1 $digit +!
$key @ buf[] $digit @ + C!
THEN
THEN
LOOP

( buf[] 10 DUMP for debug )
$digit @ buf[] C!

buf[] ( leave adrs of string )
;

: get_num ( -- )
GetStr
DROP ( remove return-value )

$digit @ 0 =
IF
." No digit entered !!!" CR
0 $num !
ELSE
base @ $base !
$digit @ buf[] C!
$digit @ 2 >
IF
buf[] 1 + C@ 0x30 =
buf[] 2 + C@ 0x78 = AND ( check if it is hexavalue )
IF
( Hexadecimal Value )
16 base ! ( change hex-value mode )
buf[] C@ 2 - buf[] 2 + C!
buf[] 2 + NUMBER?
ELSE
( Decimal Value )
buf[] NUMBER?
THEN
ELSE
( Decimal Value )
buf[] NUMBER?
THEN

IF
DROP
$num !
ELSE
DROP DROP DROP
0 $num !
THEN
THEN

$base @ base ! ( change back to the original mode )

( CR ." $num = " $num @ . ." " CR for debug )
;

( ---------------------------------------------------------------------------- )

variable $opc
variable $dpc
variable $slc
variable $ssn
variable $ssn_your

: emu_admin_1 ( adrs -- )
DUP >R
EMU_ADMIN
R> COUNT TYPE CR
;

: emu_admin_2 ( adrs -- )
buf[] 1+ sprintf buf[] C! buf[] EMU_ADMIN
buf[] COUNT TYPE CR
;

: emu_admin_3 ( adrs -- )
buf[] 1+ sprintf buf[] C! buf[] EMU_ADMIN
;

( *************** Configuration SS7_MTP3 ******************* )
: %CONF_MTP3
." %CONF_MTP3" CR
$opc @ " config ss7mtp3a.General.SPC=%i" emu_admin_2

" config ss7mtp3a.Layer 4.SAP[0].SIO=131" emu_admin_1

$dpc @ " config ss7mtp3a.Layer 2 links.Link[0].DPC=%i" emu_admin_2
$slc @ " config ss7mtp3a.Layer 2 links.Link[0].Test SLC=%i" emu_admin_2
" config ss7mtp3a.Layer 2 links.Link[0].SSF=National" emu_admin_1

$dpc @ " config ss7mtp3a.Layer 2 link sets.Set[0].DPC=%i" emu_admin_2

$opc @ " config ss7mtp3a.Routing.Route[0].DPC=%i" emu_admin_2
" config ss7mtp3a.Routing.Route[0].Linkset ID=0" emu_admin_1
" config ss7mtp3a.Routing.Route[0].Direction=Inbound Route" emu_admin_1
$dpc @ " config ss7mtp3a.Routing.Route[1].DPC=%i" emu_admin_2
" config ss7mtp3a.Routing.Route[1].Linkset ID=1" emu_admin_1
" config ss7mtp3a.Routing.Route[1].Direction=Outband Route" emu_admin_1

;

( *************** Configuration SCCP ******************* )
: %CONF_SCCP
." %CONF_SCCP" CR
$opc @ " config ss7sccp1.Local_SS.Subsystem[0].SPC=%i" emu_admin_2
$ssn @ " config ss7sccp1.Local_SS.Subsystem[0].SSN=%i" emu_admin_2
" config ss7sccp1.Local_SS.Subsystem[0].Protocol_Class=CLASS 0" emu_admin_1

$dpc @ " config ss7sccp1.Remote_SS.Subsystem[0].SPC=%i" emu_admin_2
$ssn_your @ " config ss7sccp1.Remote_SS.Subsystem[0].SSN=%i" emu_admin_2
" config ss7sccp1.Remote_SS.Subsystem[0].Protocol_Class=CLASS 0" emu_admin_1

" config ss7sccp1.Local_Sccp_Users.Users[0].Address_Len=4" emu_admin_1
$ssn @ $opc @ 0xff00 AND 256 / $opc @ 0x00ff AND
" config ss7sccp1.Local_Sccp_Users.Users[0].Address=43%02x%02x%02x" emu_admin_2

" config ss7sccp1.Remote_Sccp_Users.Users[0].Address_Len=4" emu_admin_1
$ssn_your @ $dpc @ 0xff00 AND 256 / $dpc @ 0x00ff AND
" config ss7sccp1.Remote_Sccp_Users.Users[0].Address=43%02x%02x%02x" emu_admin_2

( configure again )
$opc @ " config ss7sccp1.Local_SS.Subsystem[0].SPC=%i" emu_admin_3
$ssn @ " config ss7sccp1.Local_SS.Subsystem[0].SSN=%i" emu_admin_3
" config ss7sccp1.Local_SS.Subsystem[0].Protocol_Class=CLASS 0" EMU_ADMIN
;

( ---------------------------------------------------------------------------- )

: emul_config ( -- )
CR
." OPC --> " get_num $num @ $opc ! CR
." DPC --> " get_num $num @ $dpc ! CR
." SLC --> " get_num $num @ $slc ! CR
." MY_SSN --> " get_num $num @ $ssn ! CR
." YOUR_SSN --> " get_num $num @ $ssn_your ! CR CR

." OPC = " $opc @ DUP . ." / 0x" .H2 CR
." DPC = " $dpc @ DUP . ." / 0x" .H2 CR
." SLC = " $slc @ . CR
." SSN_MY = " $ssn @ DUP . ." / 0x" .H2 CR
." SSN_YOUR = " $ssn_your @ DUP . ." / 0x" .H2 CR
." Are yor sure to configure ? ---> (y/n) " KEY DUP EMIT
UPC 0x59 = ( check if Y/y is entered ? )
IF
CR ." Now making a configuration acc. to above parameters " CR
ELSE
CR ." Try again !!! You need to enter the command, emul_config " CR
EXIT
THEN

%CONF_MTP3

%CONF_SCCP
;

( ---------------------------------------------------------------------------- )

[G20] Text로 변환된 로그파일을 편하게 볼 수 있는 방법은 ?

[G20] Internal User Only

[G20] Set Time & Date in M.S.C.

[K12xx] FORTH Script regarding SA7 Bit

[K12xx] License Check

[K12xx] Serial Number Check

[G20] STP를 경유할 때, MTP3 (MTP3B)의 구성(Emulation Scenario)은 ?

[K12xx] J1/JT1 인터페이스 지원 여부 ?

[G20] KTF ISUP 시험 설명서

[G20] V1.11에서 Monitoring Window의 Short View Pane에서 ProcedureCode를 보려면 ?

ITU-T Q-Series Recommendations

[G20] Iub 모니터링 어플리케이션 노트 (V2.40)