mobile_sys.pr

通信软件设计基础实验报告 简易手机软件系统

input /*#E*/ 
up_keystroke;
grst9:
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),149(15,115))*/
task {/*#E*/ 
smesarr!smessarr(j)!sn:=a;
j:=j-1;
a:=a-1;};
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),146(15,130))*/
decision /*#E*/ 
j<0;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),188(10,145))*/
(false):
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),197(27,145))*/
(true):
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),140(25,165))*/
task /*#E*/ 
j:=9;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),146(15,130))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),143(10,150))*/
decision /*#E*/ 
smesarr!smessarr(j)!sn=a;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),191(7,65))*/
(true):
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),158(15,65))*/
join /*#E*/ 
grst8;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),194(52,115))*/
(false):
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),149(15,115))*/
join /*#E*/ 
grst9;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),143(10,150))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),137(50,100))*/
input /*#E*/ 
left_keystroke;
grst10:
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),134(80,125))*/
return /*#E*/ 
;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),131(90,100))*/
input /*#E*/ 
right_keystroke;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),134(80,125))*/
join /*#E*/ 
grst10;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),128(135,100))*/
input /*#E*/ 
down_keystroke;
grst11:
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),125(130,120))*/
task {/*#E*/ 
smesarr!smessarr(j)!sn:=a;
j:=j+1;
a:=a-1;};
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),122(140,135))*/
decision /*#E*/ 
j>9;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),224(127,142))*/
(false):
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),233(167,142))*/
(true):
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),116(155,160))*/
task /*#E*/ 
j:=0;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),122(140,135))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),119(125,150))*/
decision /*#E*/ 
smesarr!smessarr(j)!sn=a;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),227(167,67))*/
(true):
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),158(15,65))*/
join /*#E*/ 
grst8;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),230(115,120))*/
(false):
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),125(130,120))*/
join /*#E*/ 
grst11;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),119(125,150))*/
enddecision;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd(1),155(20,80))*/
endstate;
/*#SDTREF(SDL,D:\122\editsmesarr_connected.spd,4)*/
endprocedure editsmesarr_connected;
/*#SDTREF(SDL,D:\122\message_control.spr,4)*/
process message_control;
/*#SDTREF(SDL,D:\122\message_control.spr(1),602(130,20))*/
Dcl
Shortmesaage charstring,
shortmesage_sent charstring,
message_phonenumber charstring, 
short_message charstring;
/*#SDTREF(SDL,D:\122\message_control.spr(2),626(60,10))*/
dcl    j   idx10,a idx10;
dcl  rsmes  charstring;
dcl  smesarr shortmessagearr;
/*#SDTREF(SDL,D:\122\message_control.spr(2),629(125,10))*/
Dcl
Will_receive charstring,
 receive_shortmessage charstring;

/*#SDTREF(SDL,D:\122\message_control.spr(1),608(140,5))*/
procedure editsmes referenced;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1265(5,100))*/
procedure editsmesarr referenced;
/*#SDTREF(SDL,D:\122\message_control.spr(1),596(45,10))*/
start /*#E*/ 
;
/*#SDTREF(SDL,D:\122\message_control.spr(1),515(15,25))*/
task /*#E*/ 
Shortmesaage:= 'shortmesaage', 
shortmesage_sent:= 'shortmesage sent', 
message_phonenumber:= 'message phonenumber',
short_message:='short message is not sent'
Will_receive:= 'will receive shortmessage!
 but shortmessage full!',
 receive_shortmessage:= 'receive shortmessage'
;
/*#SDTREF(SDL,D:\122\message_control.spr(1),512(40,55))*/
nextstate /*#E*/ 
idle;
/*#SDTREF(SDL,D:\122\message_control.spr(1),512(40,55))*/
state /*#E*/ 
idle;
/*#SDTREF(SDL,D:\122\message_control.spr(1),509(15,70))*/
input /*#E*/ 
left_keystroke;
grst12:
/*#SDTREF(SDL,D:\122\message_control.spr(1),506(40,90))*/
output /*#E*/ 
display(shortmesaage)
via hardware_ssmes;
grst13:
/*#SDTREF(SDL,D:\122\message_control.spr(1),503(45,105))*/
call /*#E*/ 
editsmes;
/*#SDTREF(SDL,D:\122\message_control.spr(1),500(35,125))*/
nextstate /*#E*/ 
wait_phonenumber;
/*#SDTREF(SDL,D:\122\message_control.spr(1),485(60,70))*/
input /*#E*/ 
right_keystroke;
/*#SDTREF(SDL,D:\122\message_control.spr(1),506(40,90))*/
join /*#E*/ 
grst12;
/*#SDTREF(SDL,D:\122\message_control.spr(1),512(40,55))*/
endstate;
/*#SDTREF(SDL,D:\122\message_control.spr(1),500(35,125))*/
state /*#E*/ 
wait_phonenumber;
/*#SDTREF(SDL,D:\122\message_control.spr(1),497(40,145))*/
input /*#E*/ 
digit(code)
;
/*#SDTREF(SDL,D:\122\message_control.spr(1),494(30,165))*/
task /*#E*/ 
cd_num(cd_no):=code,
cd_no:=cd_no+1;
/*#SDTREF(SDL,D:\122\message_control.spr(1),491(50,185))*/
join /*#E*/ 
2;
/*#SDTREF(SDL,D:\122\message_control.spr(1),488(85,145))*/
input /*#E*/ 
hangup;
/*#SDTREF(SDL,D:\122\message_control.spr(1),503(45,105))*/
join /*#E*/ 
grst13;
/*#SDTREF(SDL,D:\122\message_control.spr(1),500(35,125))*/
endstate;
/*#SDTREF(SDL,D:\122\message_control.spr(1),473(125,65))*/
state /*#E*/ 
wait_callout;
/*#SDTREF(SDL,D:\122\message_control.spr(1),470(105,85))*/
input /*#E*/ 
hangup;
/*#SDTREF(SDL,D:\122\message_control.spr(1),467(100,105))*/
task /*#E*/ 
messsage:='';
/*#SDTREF(SDL,D:\122\message_control.spr(1),464(110,120))*/
stop /*#E*/ 
;
/*#SDTREF(SDL,D:\122\message_control.spr(1),461(140,85))*/
input /*#E*/ 
callout;
/*#SDTREF(SDL,D:\122\message_control.spr(1),458(135,100))*/
output /*#E*/ 
phonember(cd_num)
via ssmes_base;
/*#SDTREF(SDL,D:\122\message_control.spr(1),455(140,115))*/
output /*#E*/ 
send(messsage)
via ssmes_base;
/*#SDTREF(SDL,D:\122\message_control.spr(1),452(130,130))*/
output /*#E*/ 
display(shortmesage_sent)
via hardware_ssmes;
/*#SDTREF(SDL,D:\122\message_control.spr(1),449(140,145))*/
nextstate /*#E*/ 
wait_hangup;
/*#SDTREF(SDL,D:\122\message_control.spr(1),473(125,65))*/
endstate;
/*#SDTREF(SDL,D:\122\message_control.spr(1),449(140,145))*/
state /*#E*/ 
wait_hangup;
/*#SDTREF(SDL,D:\122\message_control.spr(1),446(140,160))*/
input /*#E*/ 
hangup;
/*#SDTREF(SDL,D:\122\message_control.spr(1),443(130,180))*/
task /*#E*/ 
 messsage:='';
/*#SDTREF(SDL,D:\122\message_control.spr(1),440(140,200))*/
nextstate /*#E*/ 
idle;
/*#SDTREF(SDL,D:\122\message_control.spr(1),449(140,145))*/
endstate;
/*#SDTREF(SDL,D:\122\message_control.spr(1),482(105,25))*/
connection /*#E*/ 
2:
/*#SDTREF(SDL,D:\122\message_control.spr(1),479(95,40))*/
decision /*#E*/ 
cd_no<3;
/*#SDTREF(SDL,D:\122\message_control.spr(1),557(112,52))*/
(true):
/*#SDTREF(SDL,D:\122\message_control.spr(1),476(100,65))*/
nextstate /*#E*/ 
-;
/*#SDTREF(SDL,D:\122\message_control.spr(1),560(137,47))*/
(false):
/*#SDTREF(SDL,D:\122\message_control.spr(1),473(125,65))*/
nextstate /*#E*/ 
wait_callout;
/*#SDTREF(SDL,D:\122\message_control.spr(1),479(95,40))*/
enddecision;
/*#SDTREF(SDL,D:\122\message_control.spr(1),482(105,25))*/
endconnection 2;
/*#SDTREF(SDL,D:\122\message_control.spr(2),920(115,65))*/
state /*#E*/ 
wait_read;
/*#SDTREF(SDL,D:\122\message_control.spr(2),902(155,75))*/
input /*#E*/ 
down_keystroke;
grst14:
/*#SDTREF(SDL,D:\122\message_control.spr(2),914(120,100))*/
output /*#E*/ 
display
(receive_shortmessage)
via hardware_rsmes;
/*#SDTREF(SDL,D:\122\message_control.spr(2),911(145,120))*/
output /*#E*/ 
smes_tone_off
via hardware_rsmes;
/*#SDTREF(SDL,D:\122\message_control.spr(2),908(140,145))*/
call /*#E*/ 
editsmesarr;
/*#SDTREF(SDL,D:\122\message_control.spr(2),905(150,170))*/
nextstate /*#E*/ 
idle;
/*#SDTREF(SDL,D:\122\message_control.spr(2),917(115,80))*/
input /*#E*/ 
up_keystroke;
/*#SDTREF(SDL,D:\122\message_control.spr(2),914(120,100))*/
join /*#E*/ 
grst14;
/*#SDTREF(SDL,D:\122\message_control.spr(2),899(140,185))*/
input /*#E*/ 
hangup;
/*#SDTREF(SDL,D:\122\message_control.spr(2),896(145,205))*/
join /*#E*/ 
4;
/*#SDTREF(SDL,D:\122\message_control.spr(2),920(115,65))*/
endstate;
/*#SDTREF(SDL,D:\122\message_control.spr(2),953(75,35))*/
state /*#E*/ 
idle;
/*#SDTREF(SDL,D:\122\message_control.spr(2),950(70,60))*/
input /*#E*/ 
smes,
phonenumber;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1253(65,80))*/
decision /*#E*/ 
smesarr!mesnum<10;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1259(55,97))*/
(false):
/*#SDTREF(SDL,D:\122\message_control.spr(2),1229(35,105))*/
output /*#E*/ 
smes_full
via rsmes_base;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1226(30,130))*/
output /*#E*/ 
display
(Will_receive)
via hardware_rsmes;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1223(30,155))*/
nextstate /*#E*/ 
wait_delete_smes;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1256(87,92))*/
(true):
/*#SDTREF(SDL,D:\122\message_control.spr(2),1253(65,80))*/
enddecision;
grst15:
/*#SDTREF(SDL,D:\122\message_control.spr(2),947(70,105))*/
task {/*#E*/ 
j:=j+1;
};
/*#SDTREF(SDL,D:\122\message_control.spr(2),944(75,125))*/
decision /*#E*/ 
j>10;
/*#SDTREF(SDL,D:\122\message_control.spr(2),974(117,132))*/
(true):
/*#SDTREF(SDL,D:\122\message_control.spr(2),941(105,140))*/
task /*#E*/ 
j:=j-10;
/*#SDTREF(SDL,D:\122\message_control.spr(2),992(87,137))*/
(false):
/*#SDTREF(SDL,D:\122\message_control.spr(2),944(75,125))*/
enddecision;
/*#SDTREF(SDL,D:\122\message_control.spr(2),938(70,155))*/
decision /*#E*/ 
smesarr!smessarr(j)!sn=0;
/*#SDTREF(SDL,D:\122\message_control.spr(2),980(70,105))*/
(false):
/*#SDTREF(SDL,D:\122\message_control.spr(2),983(107,170))*/
(true):
/*#SDTREF(SDL,D:\122\message_control.spr(2),935(80,180))*/
task {/*#E*/ 
smesarr!smessarr(j)!mes:=rsmes;
smesarr!mesnum:=smesarr!mesnum+1;};
/*#SDTREF(SDL,D:\122\message_control.spr(2),932(85,200))*/
task {/*#E*/ 
a:=a+1;
smesarr!smessarr(j)!sn:=a;};
/*#SDTREF(SDL,D:\122\message_control.spr(2),929(100,215))*/
join /*#E*/ 
2;
/*#SDTREF(SDL,D:\122\message_control.spr(2),938(70,155))*/
enddecision;
/*#SDTREF(SDL,D:\122\message_control.spr(2),947(70,105))*/
join /*#E*/ 
grst15;
/*#SDTREF(SDL,D:\122\message_control.spr(2),953(75,35))*/
endstate;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1223(30,155))*/
state /*#E*/ 
wait_delete_smes;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1220(5,175))*/
input /*#E*/ 
up_keystroke;
grst16:
/*#SDTREF(SDL,D:\122\message_control.spr(2),1217(20,195))*/
call /*#E*/ 
editsmesarr;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1214(30,210))*/
nextstate /*#E*/ 
idle;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1211(40,175))*/
input /*#E*/ 
down_keystroke;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1217(20,195))*/
join /*#E*/ 
grst16;
/*#SDTREF(SDL,D:\122\message_control.spr(2),1223(30,155))*/
endstate;
/*#SDTREF(SDL,D:\122\message_control.spr(2),926(150,30))*/
connection /*#E*/ 
2:
/*#SDTREF(SDL,D:\122\message_control.spr(2),923(140,55))*/
output /*#E*/ 
smes_tone_on
via hardware_rsmes;
/*#SDTREF(SDL,D:\122\message_control.spr(2),920(115,65))*/
nextstate /*#E*/ 
wait_read;
/*#SDTREF(SDL,D:\122\message_control.spr(2),926(150,30))*/
endconnection 2;
/*#SDTREF(SDL,D:\122\message_control.spr(3),1307(60,50))*/
connection /*#E*/ 
4:
/*#SDTREF(SDL,D:\122\message_control.spr(3),1304(55,65))*/
task /*#E*/ 
j:=0;
grst17:
/*#SDTREF(SDL,D:\122\message_control.spr(3),1301(55,85))*/