1 /******************************************************************************
3 * (C)Copyright 1998,1999 SysKonnect,
4 * a business unit of Schneider & Koch & Co. Datensysteme GmbH.
6 * See the file "skfddi.c" for further information.
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * The information in this file is provided "AS IS" without warranty.
15 ******************************************************************************/
18 * *******************************************************************
19 * This SBA code implements the Synchronous Bandwidth Allocation
20 * functions described in the "FDDI Synchronous Forum Implementer's
21 * Agreement" dated December 1th, 1993.
22 * *******************************************************************
24 * PURPOSE: The purpose of this function is to control
25 * synchronous allocations on a single FDDI segment.
26 * Allocations are limited to the primary FDDI ring.
27 * The SBM provides recovery mechanisms to recover
28 * unused bandwidth also resolves T_Neg and
29 * reconfiguration changes. Many of the SBM state
30 * machine inputs are sourced by the underlying
31 * FDDI sub-system supporting the SBA application.
33 * *******************************************************************
47 static const char ID_sccs
[] = "@(#)ess.c 1.10 96/02/23 (C) SK" ;
50 #define LINT_USE(x) (x)=(x)
52 #define MS2BCLK(x) ((x)*12500L)
55 -------------------------------------------------------------
57 -------------------------------------------------------------
60 static const u_short plist_raf_alc_res
[] = { SMT_P0012
, SMT_P320B
, SMT_P320F
,
61 SMT_P3210
, SMT_P0019
, SMT_P001A
,
64 static const u_short plist_raf_chg_req
[] = { SMT_P320B
, SMT_P320F
, SMT_P3210
,
67 static const struct fddi_addr smt_sba_da
= {{0x80,0x01,0x43,0x00,0x80,0x0C}} ;
68 static const struct fddi_addr null_addr
= {{0,0,0,0,0,0}} ;
71 -------------------------------------------------------------
73 -------------------------------------------------------------
78 -------------------------------------------------------------
80 -------------------------------------------------------------
83 static void ess_send_response(struct s_smc
*smc
, struct smt_header
*sm
,
85 static void ess_config_fifo(struct s_smc
*smc
);
86 static void ess_send_alc_req(struct s_smc
*smc
);
87 static void ess_send_frame(struct s_smc
*smc
, SMbuf
*mb
);
90 -------------------------------------------------------------
92 -------------------------------------------------------------
96 -------------------------------------------------------------
98 -------------------------------------------------------------
101 void ess_timer_poll(struct s_smc
*smc
);
102 void ess_para_change(struct s_smc
*smc
);
103 int ess_raf_received_pack(struct s_smc
*smc
, SMbuf
*mb
, struct smt_header
*sm
,
105 int process_bw_alloc(struct s_smc
*smc
, long int payload
, long int overhead
);
109 * --------------------------------------------------------------------------
110 * End Station Support (ESS)
111 * --------------------------------------------------------------------------
115 * evaluate the RAF frame
117 int ess_raf_received_pack(struct s_smc
*smc
, SMbuf
*mb
, struct smt_header
*sm
,
120 void *p
; /* universal pointer */
121 struct smt_p_0016
*cmd
; /* para: command for the ESS */
123 u_long msg_res_type
; /* recource type */
124 u_long payload
, overhead
;
129 * Message Processing Code
131 local
= ((fs
& L_INDICATOR
) != 0) ;
134 * get the resource type
136 if (!(p
= (void *) sm_to_para(smc
,sm
,SMT_P0015
))) {
137 DB_ESS("ESS: RAF frame error, parameter type not found\n",0,0) ;
140 msg_res_type
= ((struct smt_p_0015
*)p
)->res_type
;
143 * get the pointer to the ESS command
145 if (!(cmd
= (struct smt_p_0016
*) sm_to_para(smc
,sm
,SMT_P0016
))) {
147 * error in frame: para ESS command was not found
149 DB_ESS("ESS: RAF frame error, parameter command not found\n",0,0);
153 DB_ESSN(2,"fc %x ft %x\n",sm
->smt_class
,sm
->smt_type
) ;
154 DB_ESSN(2,"ver %x tran %lx\n",sm
->smt_version
,sm
->smt_tid
) ;
155 DB_ESSN(2,"stn_id %s\n",addr_to_string(&sm
->smt_source
),0) ;
157 DB_ESSN(2,"infolen %x res %x\n",sm
->smt_len
, msg_res_type
) ;
158 DB_ESSN(2,"sbacmd %x\n",cmd
->sba_cmd
,0) ;
161 * evaluate the ESS command
163 switch (cmd
->sba_cmd
) {
166 * Process an ESS Allocation Request
168 case REQUEST_ALLOCATION
:
170 * check for an RAF Request (Allocation Request)
172 if (sm
->smt_type
== SMT_REQUEST
) {
174 * process the Allocation request only if the frame is
175 * local and no static allocation is used
177 if (!local
|| smc
->mib
.fddiESSPayload
)
180 p
= (void *) sm_to_para(smc
,sm
,SMT_P0019
) ;
181 for (i
= 0; i
< 5; i
++) {
182 if (((struct smt_p_0019
*)p
)->alloc_addr
.a
[i
]) {
188 * Note: The Application should send a LAN_LOC_FRAME.
189 * The ESS do not send the Frame to the network!
191 smc
->ess
.alloc_trans_id
= sm
->smt_tid
;
192 DB_ESS("ESS: save Alloc Req Trans ID %lx\n",sm
->smt_tid
,0);
193 p
= (void *) sm_to_para(smc
,sm
,SMT_P320F
) ;
194 ((struct smt_p_320f
*)p
)->mib_payload
=
195 smc
->mib
.a
[PATH0
].fddiPATHSbaPayload
;
196 p
= (void *) sm_to_para(smc
,sm
,SMT_P3210
) ;
197 ((struct smt_p_3210
*)p
)->mib_overhead
=
198 smc
->mib
.a
[PATH0
].fddiPATHSbaOverhead
;
199 sm
->smt_dest
= smt_sba_da
;
201 if (smc
->ess
.local_sba_active
)
202 return(fs
| I_INDICATOR
) ;
204 if (!(db
= smt_get_mbuf(smc
)))
207 db
->sm_len
= mb
->sm_len
;
208 db
->sm_off
= mb
->sm_off
;
209 memcpy(((char *)(db
->sm_data
+db
->sm_off
)),(char *)sm
,
212 (struct smt_header
*)(db
->sm_data
+db
->sm_off
),
214 smt_send_frame(smc
,db
,FC_SMT_INFO
,0) ;
219 * The RAF frame is an Allocation Response !
220 * check the parameters
222 if (smt_check_para(smc
,sm
,plist_raf_alc_res
)) {
223 DB_ESS("ESS: RAF with para problem, ignoring\n",0,0) ;
228 * VERIFY THE FRAME IS WELL BUILT:
230 * 1. path index = primary ring only
231 * 2. resource type = sync bw only
232 * 3. trans action id = alloc_trans_id
233 * 4. reason code = success
235 * If any are violated, discard the RAF frame
237 if ((((struct smt_p_320b
*)sm_to_para(smc
,sm
,SMT_P320B
))->path_index
239 (msg_res_type
!= SYNC_BW
) ||
240 (((struct smt_p_reason
*)sm_to_para(smc
,sm
,SMT_P0012
))->rdf_reason
241 != SMT_RDF_SUCCESS
) ||
242 (sm
->smt_tid
!= smc
->ess
.alloc_trans_id
)) {
244 DB_ESS("ESS: Allocation Responce not accepted\n",0,0) ;
249 * Extract message parameters
251 p
= (void *) sm_to_para(smc
,sm
,SMT_P320F
) ;
253 printk(KERN_ERR
"ESS: sm_to_para failed");
256 payload
= ((struct smt_p_320f
*)p
)->mib_payload
;
257 p
= (void *) sm_to_para(smc
,sm
,SMT_P3210
) ;
259 printk(KERN_ERR
"ESS: sm_to_para failed");
262 overhead
= ((struct smt_p_3210
*)p
)->mib_overhead
;
264 DB_ESSN(2,"payload= %lx overhead= %lx\n",payload
,overhead
) ;
267 * process the bandwidth allocation
269 (void)process_bw_alloc(smc
,(long)payload
,(long)overhead
) ;
272 /* end of Process Allocation Request */
275 * Process an ESS Change Request
277 case CHANGE_ALLOCATION
:
279 * except only replies
281 if (sm
->smt_type
!= SMT_REQUEST
) {
282 DB_ESS("ESS: Do not process Change Responses\n",0,0) ;
287 * check the para for the Change Request
289 if (smt_check_para(smc
,sm
,plist_raf_chg_req
)) {
290 DB_ESS("ESS: RAF with para problem, ignoring\n",0,0) ;
295 * Verify the path index and resource
296 * type are correct. If any of
297 * these are false, don't process this
298 * change request frame.
300 if ((((struct smt_p_320b
*)sm_to_para(smc
,sm
,SMT_P320B
))->path_index
301 != PRIMARY_RING
) || (msg_res_type
!= SYNC_BW
)) {
302 DB_ESS("ESS: RAF frame with para problem, ignoring\n",0,0) ;
307 * Extract message queue parameters
309 p
= (void *) sm_to_para(smc
,sm
,SMT_P320F
) ;
310 payload
= ((struct smt_p_320f
*)p
)->mib_payload
;
311 p
= (void *) sm_to_para(smc
,sm
,SMT_P3210
) ;
312 overhead
= ((struct smt_p_3210
*)p
)->mib_overhead
;
314 DB_ESSN(2,"ESS: Change Request from %s\n",
315 addr_to_string(&sm
->smt_source
),0) ;
316 DB_ESSN(2,"payload= %lx overhead= %lx\n",payload
,overhead
) ;
319 * process the bandwidth allocation
321 if(!process_bw_alloc(smc
,(long)payload
,(long)overhead
))
325 * send an RAF Change Reply
327 ess_send_response(smc
,sm
,CHANGE_ALLOCATION
) ;
330 /* end of Process Change Request */
333 * Process Report Response
335 case REPORT_ALLOCATION
:
337 * except only requests
339 if (sm
->smt_type
!= SMT_REQUEST
) {
340 DB_ESS("ESS: Do not process a Report Reply\n",0,0) ;
344 DB_ESSN(2,"ESS: Report Request from %s\n",
345 addr_to_string(&(sm
->smt_source
)),0) ;
348 * verify that the resource type is sync bw only
350 if (msg_res_type
!= SYNC_BW
) {
351 DB_ESS("ESS: ignoring RAF with para problem\n",0,0) ;
356 * send an RAF Change Reply
358 ess_send_response(smc
,sm
,REPORT_ALLOCATION
) ;
361 /* end of Process Report Request */
367 DB_ESS("ESS: ignoring RAF with bad sba_cmd\n",0,0) ;
375 * determines the synchronous bandwidth, set the TSYNC register and the
376 * mib variables SBAPayload, SBAOverhead and fddiMACT-NEG.
378 int process_bw_alloc(struct s_smc
*smc
, long int payload
, long int overhead
)
381 * determine the synchronous bandwidth (sync_bw) in bytes per T-NEG,
382 * if the payload is greater than zero.
383 * For the SBAPayload and the SBAOverhead we have the following
387 * SBAPayload = | 8000 ------ |
392 * SBAOverhead = | ------ |
396 * T-NEG is discribed by the equation:
399 * T-NEG = -------------------
402 * The number of bytes we are able to send is the payload
405 * bytes T-NEG SBAPayload 8000 bytes/s
406 * sync_bw = SBAOverhead ------ + -----------------------------
411 * sync_bw = SBAOverhead + ---- (-)fddiMACT-NEG * SBAPayload
417 * set the mib attributes fddiPATHSbaOverhead, fddiPATHSbaPayload
419 /* if (smt_set_obj(smc,SMT_P320F,payload,S_SET)) {
420 DB_ESS("ESS: SMT does not accept the payload value\n",0,0) ;
423 if (smt_set_obj(smc,SMT_P3210,overhead,S_SET)) {
424 DB_ESS("ESS: SMT does not accept the overhead value\n",0,0) ;
429 if (payload
> MAX_PAYLOAD
|| overhead
> 5000) {
430 DB_ESS("ESS: payload / overhead not accepted\n",0,0) ;
435 * start the iterative allocation process if the payload or the overhead
436 * are smaller than the parsed values
438 if (smc
->mib
.fddiESSPayload
&&
439 ((u_long
)payload
!= smc
->mib
.fddiESSPayload
||
440 (u_long
)overhead
!= smc
->mib
.fddiESSOverhead
)) {
441 smc
->ess
.raf_act_timer_poll
= TRUE
;
442 smc
->ess
.timer_count
= 0 ;
446 * evulate the Payload
449 DB_ESSN(2,"ESS: turn SMT_ST_SYNC_SERVICE bit on\n",0,0) ;
450 smc
->ess
.sync_bw_available
= TRUE
;
452 smc
->ess
.sync_bw
= overhead
-
453 (long)smc
->mib
.m
[MAC0
].fddiMACT_Neg
*
457 DB_ESSN(2,"ESS: turn SMT_ST_SYNC_SERVICE bit off\n",0,0) ;
458 smc
->ess
.sync_bw_available
= FALSE
;
459 smc
->ess
.sync_bw
= 0 ;
463 smc
->mib
.a
[PATH0
].fddiPATHSbaPayload
= payload
;
464 smc
->mib
.a
[PATH0
].fddiPATHSbaOverhead
= overhead
;
467 DB_ESSN(2,"tsync = %lx\n",smc
->ess
.sync_bw
,0) ;
469 ess_config_fifo(smc
) ;
470 set_formac_tsync(smc
,smc
->ess
.sync_bw
) ;
474 static void ess_send_response(struct s_smc
*smc
, struct smt_header
*sm
,
477 struct smt_sba_chg
*chg
;
482 * get and initialize the responce frame
484 if (sba_cmd
== CHANGE_ALLOCATION
) {
485 if (!(mb
=smt_build_frame(smc
,SMT_RAF
,SMT_REPLY
,
486 sizeof(struct smt_sba_chg
))))
490 if (!(mb
=smt_build_frame(smc
,SMT_RAF
,SMT_REPLY
,
491 sizeof(struct smt_sba_rep_res
))))
495 chg
= smtod(mb
,struct smt_sba_chg
*) ;
496 chg
->smt
.smt_tid
= sm
->smt_tid
;
497 chg
->smt
.smt_dest
= sm
->smt_source
;
500 chg
->s_type
.para
.p_type
= SMT_P0015
;
501 chg
->s_type
.para
.p_len
= sizeof(struct smt_p_0015
) - PARA_LEN
;
502 chg
->s_type
.res_type
= SYNC_BW
;
505 chg
->cmd
.para
.p_type
= SMT_P0016
;
506 chg
->cmd
.para
.p_len
= sizeof(struct smt_p_0016
) - PARA_LEN
;
507 chg
->cmd
.sba_cmd
= sba_cmd
;
510 chg
->path
.para
.p_type
= SMT_P320B
;
511 chg
->path
.para
.p_len
= sizeof(struct smt_p_320b
) - PARA_LEN
;
512 chg
->path
.mib_index
= SBAPATHINDEX
;
513 chg
->path
.path_pad
= (u_short
)NULL
;
514 chg
->path
.path_index
= PRIMARY_RING
;
517 chg
->payload
.para
.p_type
= SMT_P320F
;
518 chg
->payload
.para
.p_len
= sizeof(struct smt_p_320f
) - PARA_LEN
;
519 chg
->payload
.mib_index
= SBAPATHINDEX
;
520 chg
->payload
.mib_payload
= smc
->mib
.a
[PATH0
].fddiPATHSbaPayload
;
523 chg
->overhead
.para
.p_type
= SMT_P3210
;
524 chg
->overhead
.para
.p_len
= sizeof(struct smt_p_3210
) - PARA_LEN
;
525 chg
->overhead
.mib_index
= SBAPATHINDEX
;
526 chg
->overhead
.mib_overhead
= smc
->mib
.a
[PATH0
].fddiPATHSbaOverhead
;
528 if (sba_cmd
== CHANGE_ALLOCATION
) {
530 chg
->cat
.para
.p_type
= SMT_P001A
;
531 chg
->cat
.para
.p_len
= sizeof(struct smt_p_001a
) - PARA_LEN
;
532 p
= (void *) sm_to_para(smc
,sm
,SMT_P001A
) ;
533 chg
->cat
.category
= ((struct smt_p_001a
*)p
)->category
;
535 dump_smt(smc
,(struct smt_header
*)chg
,"RAF") ;
536 ess_send_frame(smc
,mb
) ;
539 void ess_timer_poll(struct s_smc
*smc
)
541 if (!smc
->ess
.raf_act_timer_poll
)
544 DB_ESSN(2,"ESS: timer_poll\n",0,0) ;
546 smc
->ess
.timer_count
++ ;
547 if (smc
->ess
.timer_count
== 10) {
548 smc
->ess
.timer_count
= 0 ;
549 ess_send_alc_req(smc
) ;
553 static void ess_send_alc_req(struct s_smc
*smc
)
555 struct smt_sba_alc_req
*req
;
559 * send never allocation request where the requested payload and
560 * overhead is zero or deallocate bandwidht when no bandwidth is
563 if (!smc
->mib
.fddiESSPayload
) {
564 smc
->mib
.fddiESSOverhead
= 0 ;
567 if (!smc
->mib
.fddiESSOverhead
)
568 smc
->mib
.fddiESSOverhead
= DEFAULT_OV
;
571 if (smc
->mib
.fddiESSOverhead
==
572 smc
->mib
.a
[PATH0
].fddiPATHSbaOverhead
&&
573 smc
->mib
.fddiESSPayload
==
574 smc
->mib
.a
[PATH0
].fddiPATHSbaPayload
){
575 smc
->ess
.raf_act_timer_poll
= FALSE
;
576 smc
->ess
.timer_count
= 7 ; /* next RAF alc req after 3 s */
581 * get and initialize the responce frame
583 if (!(mb
=smt_build_frame(smc
,SMT_RAF
,SMT_REQUEST
,
584 sizeof(struct smt_sba_alc_req
))))
586 req
= smtod(mb
,struct smt_sba_alc_req
*) ;
587 req
->smt
.smt_tid
= smc
->ess
.alloc_trans_id
= smt_get_tid(smc
) ;
588 req
->smt
.smt_dest
= smt_sba_da
;
591 req
->s_type
.para
.p_type
= SMT_P0015
;
592 req
->s_type
.para
.p_len
= sizeof(struct smt_p_0015
) - PARA_LEN
;
593 req
->s_type
.res_type
= SYNC_BW
;
596 req
->cmd
.para
.p_type
= SMT_P0016
;
597 req
->cmd
.para
.p_len
= sizeof(struct smt_p_0016
) - PARA_LEN
;
598 req
->cmd
.sba_cmd
= REQUEST_ALLOCATION
;
601 * set the parameter type and parameter lenght of all used
606 req
->path
.para
.p_type
= SMT_P320B
;
607 req
->path
.para
.p_len
= sizeof(struct smt_p_320b
) - PARA_LEN
;
608 req
->path
.mib_index
= SBAPATHINDEX
;
609 req
->path
.path_pad
= (u_short
)NULL
;
610 req
->path
.path_index
= PRIMARY_RING
;
613 req
->pl_req
.para
.p_type
= SMT_P0017
;
614 req
->pl_req
.para
.p_len
= sizeof(struct smt_p_0017
) - PARA_LEN
;
615 req
->pl_req
.sba_pl_req
= smc
->mib
.fddiESSPayload
-
616 smc
->mib
.a
[PATH0
].fddiPATHSbaPayload
;
619 req
->ov_req
.para
.p_type
= SMT_P0018
;
620 req
->ov_req
.para
.p_len
= sizeof(struct smt_p_0018
) - PARA_LEN
;
621 req
->ov_req
.sba_ov_req
= smc
->mib
.fddiESSOverhead
-
622 smc
->mib
.a
[PATH0
].fddiPATHSbaOverhead
;
625 req
->payload
.para
.p_type
= SMT_P320F
;
626 req
->payload
.para
.p_len
= sizeof(struct smt_p_320f
) - PARA_LEN
;
627 req
->payload
.mib_index
= SBAPATHINDEX
;
628 req
->payload
.mib_payload
= smc
->mib
.a
[PATH0
].fddiPATHSbaPayload
;
631 req
->overhead
.para
.p_type
= SMT_P3210
;
632 req
->overhead
.para
.p_len
= sizeof(struct smt_p_3210
) - PARA_LEN
;
633 req
->overhead
.mib_index
= SBAPATHINDEX
;
634 req
->overhead
.mib_overhead
= smc
->mib
.a
[PATH0
].fddiPATHSbaOverhead
;
637 req
->a_addr
.para
.p_type
= SMT_P0019
;
638 req
->a_addr
.para
.p_len
= sizeof(struct smt_p_0019
) - PARA_LEN
;
639 req
->a_addr
.sba_pad
= (u_short
)NULL
;
640 req
->a_addr
.alloc_addr
= null_addr
;
643 req
->cat
.para
.p_type
= SMT_P001A
;
644 req
->cat
.para
.p_len
= sizeof(struct smt_p_001a
) - PARA_LEN
;
645 req
->cat
.category
= smc
->mib
.fddiESSCategory
;
648 req
->tneg
.para
.p_type
= SMT_P001B
;
649 req
->tneg
.para
.p_len
= sizeof(struct smt_p_001b
) - PARA_LEN
;
650 req
->tneg
.max_t_neg
= smc
->mib
.fddiESSMaxTNeg
;
653 req
->segm
.para
.p_type
= SMT_P001C
;
654 req
->segm
.para
.p_len
= sizeof(struct smt_p_001c
) - PARA_LEN
;
655 req
->segm
.min_seg_siz
= smc
->mib
.fddiESSMinSegmentSize
;
657 dump_smt(smc
,(struct smt_header
*)req
,"RAF") ;
658 ess_send_frame(smc
,mb
) ;
661 static void ess_send_frame(struct s_smc
*smc
, SMbuf
*mb
)
664 * check if the frame must be send to the own ESS
666 if (smc
->ess
.local_sba_active
) {
668 * Send the Change Reply to the local SBA
670 DB_ESS("ESS:Send to the local SBA\n",0,0) ;
671 if (!smc
->ess
.sba_reply_pend
)
672 smc
->ess
.sba_reply_pend
= mb
;
674 DB_ESS("Frame is lost - another frame was pending\n",0,0);
675 smt_free_mbuf(smc
,mb
) ;
680 * Send the SBA RAF Change Reply to the network
682 DB_ESS("ESS:Send to the network\n",0,0) ;
683 smt_send_frame(smc
,mb
,FC_SMT_INFO
,0) ;
687 void ess_para_change(struct s_smc
*smc
)
689 (void)process_bw_alloc(smc
,(long)smc
->mib
.a
[PATH0
].fddiPATHSbaPayload
,
690 (long)smc
->mib
.a
[PATH0
].fddiPATHSbaOverhead
) ;
693 static void ess_config_fifo(struct s_smc
*smc
)
696 * if nothing to do exit
698 if (smc
->mib
.a
[PATH0
].fddiPATHSbaPayload
) {
699 if (smc
->hw
.fp
.fifo
.fifo_config_mode
& SYNC_TRAFFIC_ON
&&
700 (smc
->hw
.fp
.fifo
.fifo_config_mode
&SEND_ASYNC_AS_SYNC
) ==
701 smc
->mib
.fddiESSSynchTxMode
) {
706 if (!(smc
->hw
.fp
.fifo
.fifo_config_mode
& SYNC_TRAFFIC_ON
)) {
712 * split up the FIFO and reinitialize the queues
714 formac_reinit_tx(smc
) ;
719 #endif /* no SLIM_SMT */