! ***********************************************************************************************************************************************************************************************************************************************************
!  Created  9-NOV-1999 09:12:31 by VAX SDL V3.2-12     Source:  9-NOV-1999 09:12:31 FORD2$:[VFORT.KIT.FORSYSDEF]PSM$ROUTINES.SDI;1 
! ***********************************************************************************************************************************************************************************************************************************************************
 
!*** MODULE PSM$ROUTINES IDENT X-1 ***
CDEC$ OPTIONS /NOALIGN
! 
!  Print Symbiont Modification (PSM) Routines
! 
! 
!  PSM$PRINT - Invoke VMS-Supplied Print Symbiont
! 
!  status = PSM$PRINT ([streams], [bufsiz], [worksiz])
! 
!   streams - Maximum number of streams to support
!   bufsiz  - Maximum buffer size in bytes for output operations
!   worksiz - Size in bytes of work area to be allocated
! 
	INTEGER*4 PSM$PRINT
	EXTERNAL PSM$PRINT
! 
!  PSM$READ_ITEM_DX - Obtain Value of Message Items
! 
!  status = PSM$READ_ITEM_DX (request_id, item, buffer)
! 
!   request_id - Request identifier supplied by the symbiont to user routine
!   item       - Item code identifying message item to be returned
!   buffer     - Buffer into which data is returned
! 
	INTEGER*4 PSM$READ_ITEM_DX
	EXTERNAL PSM$READ_ITEM_DX
! 
!  PSM$REPLACE - Declare User Service Routine
! 
!  status = PSM$REPLACE (code, routine)
! 
!   code    - Code identifying symbiont routine to be replaced
!   routine - User routine to replace symbiont routine
! 
	INTEGER*4 PSM$REPLACE
	EXTERNAL PSM$REPLACE
! 
!  PSM$REPORT - Report Completion Status
! 
!  status = PSM$REPORT (request_id [, status])
! 
!   request_id - Request identifier supplied by the symbiont to user routine
!   status     - Completion status of asynchronous operation completed
! 
	INTEGER*4 PSM$REPORT
	EXTERNAL PSM$REPORT
CDEC$ END OPTIONS