D1= longtitude (Degree 1) D2= latitude (Degree 2) X= Sin(D1)*Cos(D2) Y= Sin(D1)*Sin(d2)' Z= Cos(D1)
lea points,a0 ;points table
lea sinus,a1 ;sinus table
lea sinus+180,a2 ;cosinus table
move.l #10,d0 ;longtitude
move.l #56,d1 ;latitude
add d0,d0 ;D0=Word pointer
add d1,d1 ;D1=Word pointer
move.w (a1,d0.w),d2 ;sin(d1)
muls (a2,d1.w),d2 ;sin(d1)*cos(d2)
swap d2 ;scale down
move.w d2,(a0)+ ;store x
move.w (a1,d0.w),d2 ;sin(d1)
muls (a1,d1.w),d2 ;sin(d1)+sin(d2)
swap d2 ;scale down
move.w d2,(a0)+ ;store y
move.w (a2,d0.w),d2 ;cos(d1)
asr #8,d2 ;scale down
move.w d2,(a0)+ ;store z
rts