1. The following function procedure returns the sum of the Pth powers of the elements in a vector V of N elements. The input parameters and the result are to be passed in registers as follows: SI: pointer to vector v CX: value n BX: value p AX: result procedure SumPwrs( var v: vector; n, p: integer): integer; var i, j, s, (* assign reg DI *) t: integer; (* assign reg AX *) begin if p = 0 then s := n else s := 0; for i := 0 to n-1 do t := 1; for j := 1 to p do t := t * v[ i] endfor; s := s + t endfor endif; return s end; Use the following procedure to test SumPwrs. procedure assign08; var s, n, p: integer; v: array[ 0 .. 99] of integer begin write ‘N? ‘; read n; write cr, lf, ‘P? ‘; read p; write cr, lf, ‘V? ‘, cr, lf getvec( v, n); s := sumpwrs( v, n, p); write cr, lf, s end; Each procedure should be in a separately assembled module. The code for GetVec is available in the Examples directory. Pascal and C implementations of the above procedures, called snp.p and snp.c respectively, are also in Examples.