* F$GPrDsc entry point
FGPrDsc  ldx   <D.Proc     Get current process dsc. ptr.
         ldb   P$Task,x    Get task number
         lda   R$A,u       Get requested process ID #
         os9   F$GProcP    Get ptr to process to descriptor
         bcs   L0962       Error, exit with it
         lda   <D.SysTsk   Get system task #
         leax  ,y          Point X to the process descriptor
         ldy   #P$Size     Y=Size of process descriptor (512 bytes)
         ldu   R$X,u       Get requested place to put copy of process dsc.
         os9   F$Move      Move it into caller's space
L0962    rts