{ RHPQRM
{
{         The purpose of this A170 COMPASS routine is to provide an
{ interface between a CYBIL procedure and the NOS/A170 ROUTE macro.
{ It is assumed the user has placed the address of the ROUTE parameter
{ block in register X1, i.e. the ROUTE parameter block is the first
{ parameter of the RHPQRM call.
{
{                RHPQRM (ROUTE_PARAMETER_BLOCK)
{
{ ROUTE_PARAMETER_BLOCK: (input) This parameter specifies the address
{                        of the ROUTE parameter block.
{

  PROCEDURE [XREF] rhpqrm ALIAS 'rhpqrm' (
   VAR ROUTE_pb: ROUTE_parameter_block);

{
{         The purpose of this A170 COMPASS routine is to provide an
{ interface between a CYBIL procedure and NOS/170 partner job ROUTE.
{ It is assumed the user has placed the address of the ROUTE parameter
{ block in register X1, i.e. the ROUTE parameter block is the first
{ parameter of the RHPPJR call.
{
{                RHPPJR (ROUTE_PARAMETER_BLOCK)
{
{ ROUTE_PARAMETER_BLOCK: (input) This parameter specifies the address
{                        of the ROUTE parameter block.
{

  PROCEDURE [XREF] rhppjr ALIAS 'rhppjr' (
   VAR ROUTE_pb: ROUTE_parameter_block);
