Lines Matching refs:_
47 sub pkt_LI { return ($_[$[] >> 6) & 0x3; }
48 sub pkt_VN { return ($_[$[] >> 3) & 0x7; }
49 sub pkt_MODE { return ($_[$[] ) & 0x7; }
52 sub pkt_R { return ($_[$[] & 0x80) == 0x80; }
53 sub pkt_E { return ($_[$[] & 0x40) == 0x40; }
54 sub pkt_M { return ($_[$[] & 0x20) == 0x20; }
55 sub pkt_OP { return $_[$[] & 0x1f; }
61 local($id,$key) = @_;
79 local($fh,$opcode, $associd, $data,$address) = @_;
133 local($val,*list) = @_;
144 sub ssw_LI { return ($_[$[] >> 14) & 0x3; }
145 sub ssw_CS { return ($_[$[] >> 8) & 0x3f; }
146 sub ssw_SECnt { return ($_[$[] >> 4) & 0xf; }
147 sub ssw_SECode { return $_[$[] & 0xf; }
183 &getval(&ssw_LI($_[$[]),*LI);
187 &getval(&ssw_CS($_[$[]),*ClockSource);
192 &getval(&ssw_SECode($_[$[]),*SystemEvent);
197 return sprintf("%s, %s, %d event%s, %s", &LI($_[$[]), &ClockSource($_[$[]),
198 &ssw_SECnt($_[$[]), ((&ssw_SECnt($_[$[])==1) ? "" : "s"),
199 &SystemEvent($_[$[]));
205 sub psw_PStat_config { return ($_[$[] & 0x8000) == 0x8000; }
206 sub psw_PStat_authenable { return ($_[$[] & 0x4000) == 0x4000; }
207 sub psw_PStat_authentic { return ($_[$[] & 0x2000) == 0x2000; }
208 sub psw_PStat_reach { return ($_[$[] & 0x1000) == 0x1000; }
209 sub psw_PStat_bcast { return ($_[$[] & 0x0800) == 0x0800; }
210 sub psw_PStat { return ($_[$[] >> 10) & 0x3f; }
211 sub psw_PSel { return ($_[$[] >> 8) & 0x3; }
212 sub psw_PCnt { return ($_[$[] >> 4) & 0xf; }
213 sub psw_PCode { return $_[$[] & 0xf; }
246 &getval(&psw_PSel($_[$[]),*PeerSelection);
251 &getval(&psw_PCode($_[$[]),*PeerEvent);
257 $x .= "config," if &psw_PStat_config($_[$[]);
258 $x .= "authenable," if &psw_PStat_authenable($_[$[]);
259 $x .= "authentic," if &psw_PStat_authentic($_[$[]);
260 $x .= "reach," if &psw_PStat_reach($_[$[]);
261 $x .= "bcast," if &psw_PStat_bcast($_[$[]);
263 $x .= sprintf(" %s, %d event%s, %s", &PeerSelection($_[$[]),
264 &psw_PCnt($_[$[]), ((&psw_PCnt($_[$[]) == 1) ? "" : "s"),
265 &PeerEvent($_[$[]));
273 sub csw_CStat { return ($_[$[] >> 8) & 0xff; }
274 sub csw_CEvnt { return $_[$[] & 0xff; }
289 &getval(&csw_CStat($_[$[]),*ClockStatus),
290 &getval(&csw_CEvnt($_[$[]),*ClockStatus));
298 sub esw_Err { return ($_[$[] >> 8) & 0xff; }
312 return sprintf("%s", &getval(&esw_Err($_[$[]),*ErrorStatus));
338 return &getval($_[$[],*CntrlOpName);
356 local($pkt,$from) = @_; # parameters
484 local($id) = @_;
503 return $_[$[+1] * int(($_[$[] + $_[$[+1] - 1) / $_[$[+1]);