
; TRS-OS Network Utilities.

ipl_net_utils	equ	$				; Screen pump starts here.
		db	CR.asc

		DB	"                T R S D O S    N E T W O R K    U T I L I T I E S",CR.asc
		db	"                _________________________________________________",CR.asc
		db	CR.asc
query_results$	db	" Found network volume type: "
query_srv_type	db	"        ",CR.asc			; Container to hold ascii volume.
query_volnam	equ	$+14
		db	" Volume name: "
		db	"--------"				; Volume name.
		db	"  "
		db	"--------"				; Vol creation date.
		db	CR.asc
		db	" Total space on volume:         ",CR.asc
query_space_fld	equ	$-9

		db	CR.asc

query_dct3$	equ	$+9
		db	" DCT +3  ","  h",CR.asc
query_dct4$	equ	$+9
		db	" DCT +4  ","  h",CR.asc
query_dct5$	equ	$+9
		db	" Cur Cyl ","  h",CR.asc
query_dct6$	equ	$+9
		db	" Max Cyl ","  h",CR.asc
query_dct7$	equ	$+9
		db	" DCT +7  ","  h",CR.asc
query_dct8$	equ	$+9
		db	" DCT +8  ","  h",CR.asc
query_dct9$	equ	$+9
		db	" DCT +9  ","  h",CR.asc

		db	CR.asc
		DB	" <B> Bind volume to network server.",CR.asc
		DB	" <E> Echo packet between server & client. ",CR.asc
		DB	" <P> Ping server & test for reply.",CR.asc
		DB	" <Q> Query server & learn volume.",CR.asc
		DB	" <S> Display stastics on server.",CR.asc
		DB	CR.asc
		DB	" ESC returns to previous menu.",CR.asc

		db	ETX.asc								; Tell pump end of screen.

ipl_net_len	EQU	$-ipl_net_utils
