	.TITLE	FTSUB -- TSX-FORTRAN INTERFACE SUBROUTINES
;
;  FTSUB VERSION 1  --  11-DEC-77
;
	.CSECT	FTSUB
;
;  THE FOLLOWING ROUTINE CAN BE CALLED FROM AN RT-11
;  FORTRAN PROGRAM TO PERFORM TSX FUNCTIONS.
;
;  WRITTEN BY PHIL SHERROD.
;
;
;  GLOBAL DEFINITIONS
;
	.GLOBL	RTSORT
;
;
;  MACRO CALLS
;
	.MCALL	..V2..,.REGDEF,.CHAIN
	..V2..
	.REGDEF
;
;-----------------------------------------------------
;  THE RTSORT SUBROUTINE IS CALLED TO TO EITHER
;  CHAIN TO RTSORT (1 ARGUMENT CALL) O