!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!
!!Auto_Find_MS !!
!! 查找用戶當前登陸基站的CGI !!
!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

@CONNECT
@ASK {MSISDN} THE NUMBER OF MSISDN [8613901234567]
@GOSUB FIND_CGI
@GOSUB FIND_CELL
@RELEASE
@END

@LABEL FIND_CGI
@LABEL WAIT
CTRAI:MSISDN={MSISDN};
@SET {STATE}=0
@COPY {_LINE7} {MTV} 9 6
@COPY {_LINE10} {STATE} 1 3
@IF {STATE}="END" THEN SET {STATE}=1
@IF {STATE}=1 THEN GOTO TEST_SYSTEM
@CONFIRM THE MSISDN IS CALLING NOW, CONTINUE OR STOP?
@IF {STATE}=0 THEN GOTO WAIT
@LABEL TEST_SYSTEM
TEST SYSTEM;
PRINT VAR MTV {MTV}:327;!CI!
@COPY {_LINE3} {BIT} 31 1
@GOSUB CHANGE_DATA
@SET {CI}={BIT}*4096
@COPY {_LINE3} {BIT} 32 1
@GOSUB CHANGE_DATA
@SET {BIT}={BIT}*256
@SET {CI}={CI}+{BIT}
@COPY {_LINE3} {BIT} 33 1
@GOSUB CHANGE_DATA
@SET {BIT}={BIT}*16
@SET {CI}={CI}+{BIT}
@COPY {_LINE3} {BIT} 34 1
@GOSUB CHANGE_DATA
@SET {CI}={CI}+{BIT}
PRINT VAR MTV {MTV}:328;!LAC!
@COPY {_LINE3} {BIT} 31 1
@GOSUB CHANGE_DATA
@SET {LAC}={BIT}*4096
@COPY {_LINE3} {BIT} 32 1
@GOSUB CHANGE_DATA
@SET {BIT}={BIT}*256
@SET {LAC}={LAC}+{BIT}
@COPY {_LINE3} {BIT} 33 1
@GOSUB CHANGE_DATA
@SET {BIT}={BIT}*16
@SET {LAC}={LAC}+{BIT}
@COPY {_LINE3} {BIT} 34 1
@GOSUB CHANGE_DATA
@SET {LAC}={LAC}+{BIT}
PRINT VAR MTV {MTV}:329;!MCC=460!
@COPY {_LINE3} {MCC_1} 34 1
@COPY {_LINE3} {MCC_2} 33 1
@COPY {_LINE3} {MCC_3} 32 1
@CONCAT {MCC} {MCC_1} {MCC_2} {MCC_3}
PRINT VAR MTV {MTV}:330;!MNC=00!
@COPY {_LINE3} {MNC_1} 34 1
@COPY {_LINE3} {MNC_2} 33 1
@CONCAT {MNC} {MNC_1} {MNC_2}
END TEST;
@RETURN

@LABEL CHANGE_DATA
@IF {BIT}="A" THEN SET {BIT}=10
@IF {BIT}="B" THEN SET {BIT}=11
@IF {BIT}="C" THEN SET {BIT}=12
@IF {BIT}="D" THEN SET {BIT}=13
@IF {BIT}="E" THEN SET {BIT}=14
@IF {BIT}="F" THEN SET {BIT}=15
@RETURN

@LABEL FIND_CELL
@CONCAT {FIND_CGI} {MCC} "-" {MNC} "-" {LAC} "-" {CI}
MGCEPAI={MCC}-{MNC}-{LAC};
@SET {I}=4
@LABEL FIND
@SET {STATE}=0
@COPY {_LINES[{I}]} {CGI} 10 18
@IF {CGI}={FIND_CGI} THEN SET {STATE}=1
@IF {STATE}=1 THEN GOTO END
@INC {I}
@IF {STATE}=0 THEN GOTO FIND
@LABEL END
@COPY {_LINES[{I}]} {CELL} 1 7
@COPY {_LINES[{I}]} {BSC} 30 7
@COPY {_LINES[{I}]} {EA} 54 2
@BEEP
@COMMENT MS={MSISDN} LOCATION STATE:
@COMMENT CELL={CELL}
@COMMENTCGI={CGI}
@COMMENTBSC={BSC}
@COMMENTEA={EA}
@RETURN