/PFOC0D -- PS/8 FOCAL LIBRARY ROUTINES /ASSEMBLY INSTRUCTIONS: /.R PAL8 /*PFOCLD,PFOCLD