(36 . 7)(36 . 4)778 function W_Mux(A : in Word; B : in Word; Sel : in WBool)779 return Word;780 781 -- Exchange A and B.782 procedure W_Swap(A : in out Word; B : in out Word);783 784 end Word_Ops;