Task ->
Arg Res : &TaskResult,
    Rq : TaskRequest, Dispatch_errors : 1 | 0 = 0

If !Dispatch_errors then
 - T >Res< Rq
Else
 - T >Res< Rq
 Else (Ec, Error) Dispatch >Res< Ec Error Rq
;

Return

T Task ->                                             Dispatch Task ->
Arg Res : &TaskResult, Rq : TaskRequest               Arg Res : &TaskResult,
                                                          Ec : ERR_*, Error : String, Rq : TaskRequest
Do while ...
                                                      Res = <
 ...                                                          Error_code : Ec, Error_message : Error
                                                            >
 Write Rq.Port_name Info_{N%}
;                                                     Write Rq.Port_name 0

Return                                                Return












