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

If !Dispatch_errors then
 - T >Res< Rq
Else
 - T >Res< Rq
 + 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












