{ CPMFP
{
{     The purpose of this A170 COMPASS routine is to provide an
{ interface between a CYBIL procedure and the NOS/A170 CPM function
{ processor.  It is assumed the user has placed the CPM function
{ code in register X1, i.e. the CPM function code is the first
{ parameter in the cpmfp call.  Further, it is assumed the user
{ has placed the function parameter in register X2, i.e. the
{ function parameter is the second parameter in the cpmfp call.
{ For further information on CPM, CPM function codes, and function
{ parameters please refer to CPM documentation.
{
{            CPMFP (FUNCTION_CODE,FUNCTION_PARAMETER)
{
{ FUNCTION_CODE: (input) This parameter specifies which CPM function
{                is to be performed.
{
{ FUNCTION_PARAMETER: (input) This parameter specifies either a
{                     function parameter value or a parameter block
{                     address depending on the requirements of the
{                     given function code.
{

 PROCEDURE[XREF] cpmfp(
   function_code: INTEGER;
   function_parameter: ^CELL);         { This XREF defines the cpmfp interface  }
                                       { for CPM function codes having function }
                                       { parameters which are parameter blocks  }
