C*****************************************************************************
C
C	             RT-11 Services Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test RT-11 Services/ TRT11.For
C Author	: John Malcolmson
C Date		: June 1986
C Language	: Fortran 77
C Notes		: The program is chained to by the Libtst program.
C
C*****************************************************************************

	Program TRT11

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM RT11 IMPORT AS
		Integer*4	RtDevice, RtGtjb,   RtIaddr
		Integer*4	RtIDstat, RtIFetch, RtIFreer
		Integer*4	RtIGetr,  RtIPeek,  RtIbPeek, RtIgtdus
		Integer*4	RtIpoke,  RtIbpoke, RtIPut,   RtIQset
		Integer*4	RtISpy,   RtITlock, RtLock,   RtLookUp
		Integer*4	RtResume, RtSuspnd, RtUnlock
		Integer*4	RtIprote, RtIunprot
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Character*80	st
		Integer*4	AStat(24)
		Character*6     Alabl(24)
		Include 'SRC:Tbegin.for'
		IF (page) Call SetPage('RT-11 Service Functions\',pnum )

		Call Iqset( 5 )
		Astat(01) = RtDevice()
		Alabl(01) = 'DEVICE'
		Astat(02) = RtGtjb()
		Alabl(02) = 'GTJB'
		Astat(03) = RtIaddr()
		Alabl(03) = 'IADDR'
		Astat(04) = RtIdstat()
		Alabl(04) = 'IDSTAT'
		Astat(05) = RtIfetch()
		Alabl(05) = 'IFETCH'
		Astat(06) = RtIfreer()
		Alabl(06) = 'IFREER'
		Astat(07) = RtIgetr()
		ALabl(07) = 'IGETR'
		Astat(08) = RtIgtdus()
		ALabl(08) = 'IGTDUS'
		Astat(09) = RtIpeek()
		ALabl(09) = 'IPEEK'
		Astat(10) = RtIbpeek()
		ALabl(10) = 'IPEEKB'
		Astat(11) = RtIpoke()
		ALabl(11) = 'IPOKE'
		Astat(12) = RtIbpoke()
		ALabl(12) = 'IPOKEB'
		Astat(13) = RtIput()
		ALabl(13) = 'IPUT'
		Astat(14) = RtIqset()
		ALabl(14) = 'IQSET'
		Astat(15) = RtIspy()
		ALabl(15) = 'ISPY'
		Astat(16) = RtItlock()
		ALabl(16) = 'ITLOCK'
		Astat(17) = RtLock()
		ALabl(17) = 'LOCK'
		Astat(18) = RtLookup()
		ALabl(18) = 'LOOKUP'
		Astat(19) = RtResume()
		ALabl(19) = 'RESUME'
		Astat(20) = RtSuspnd()
		ALabl(20) = 'SUSPND'
		Astat(21) = RtUnlock()
		ALabl(21) = 'UNLOCK'
		Astat(22) = RtIprot()
		ALabl(22) = 'IPROTE'
		Astat(23) = RtIunprot()
		ALabl(23) = 'IUNPRO'

		st = '===== RT-11 Service Function Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 22 )
		st = '===== End of RT-11 Service Function Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

		Include 'SRC:Tend.for'