stats		macro	stats_exit,stats_error
		scope

		scrollaway 26

		put.DSP.LINE $stats_screen$				; Tell operator this is stats program.

		get.DCB $UART1$,stats_error

		put.DSP.LINE $stats_da_stats$				; Report statsing server.

		put.IO	($UART1$),6,$stats_string$,stats_error		; Send stats string to server @stats LF.asc.

		put.DSP.LINE $stats_sent$				; Report starting stats to server.


		GOTO	stats_exit

; Strings & data used by stats command.

$UART1$		device.U1.DCB 1


$stats_screen$	db	" ----> Update server statistics display<----",CR.asc
$stats_string$	db	"@stat",LF.asc
$stats_da_stats$ db	" Commanding server to update current statistics.",CR.asc
$stats_sent$	db	" stats command sent.",CR.asc

		endmac	stats