$INCLUDE (:F1:V6NET.ENT)
	NAME	NET6
;
;	********************************************************************
;	*                                                                  *
;	*                    MODULE D'IDENTIFICATION                       *
;	*                                                                  *
;	********************************************************************
;
;
;
	PUBLIC	IDENT,SOS
	EXTRN	AFFI,OUTCA
;
	CSEG
;
;
IDENT	EQU	$
	LXI	H,MID
	CALL	AFFI
	RET
;
;
MID:	DB	0AH,0DH
	DB	'Reseau TELEMECANIQUE MDS800/ISIS-II' 
	DB	' VAX/VMS ,V'
	DB	'6.0'
	DB	0AH,0DH
	DB	'For help type ''?'''
	DB	0AH,0DH,0
;
;
SOS	EQU	$
	LXI	H,CDE
COV1:	MOV	A,M
	ANA	A
	RZ
	CALL	OUTCA
	INX	H
	JMP	COV1
;
;
CDE:	DB	0AH
	DB	'      Liste des commandes de VNET V6.0'
	DB	0AH,0DH
	DB	'      ********************************'
	DB	0AH,0DH,0AH
	DB	'Mode transparent sur le VAX         : T'
	DB	0AH,0DH
	DB	'Sortie du mode transparent          : Ctrl/X'
	DB	0AH,0DH,0AH
	DB	'Reception de fichier depuis le VAX  : '
	DB	'R nom_du_fichier [Option]'
	DB	0AH,0DH,0AH
	DB	'Emission de fichier vers le VAX     : '
	DB	'S nom_du_fichier [Option] '
	DB	0AH,0DH,0AH
	DB	'Sortie de NET retour sous ISIS      : E'
	DB	0AH,0DH,0AH
	DB	'Aide operateur                      : ?'
	DB	0AH,0DH,0AH,'Options possibles :'
	DB	0AH,0DH,'       '
	DB	'/SK  : Impression spooler SANS destruction du fichier'
	DB	0AH,0DH,'       '
	DB	'/SP  : Impression spooler AVEC destruction du fichier'
	DB	0AH,0DH,'       '
	DB	'/O   : Fichier de type binaire'
	DB	0AH,0DH,'       '
	DB	'/N=nom_de_fichier_VAX : nom de fichier different entre'
	DB	0AH,0DH,'       '
	DB	'                        le systeme INTEL et le VAX'
	DB	0AH,0DH,0AH
	DB	00H
;
	END
