sl 1.0

dp3 s3, L, ds
dp3 s2, L, dt
dp3 s1, L, N
lc x r1, s3
lc y r1, s2
lc z r1, s1
norm r1, r1

dp3 s0, r1, t1

mov v0, t0
mul v0, v0, s0