.sbttl	PACKET types (edited from VMS Kermit)


;	 Note that the use of the '=:' direct assignment will
;	ensure that these rather long names are unique in the
;	first 6 characters.
;

; Protocol version 1.0 message types

	MSG$DATA	= 'D & 137	; Data packet
	MSG$ACK		= 'Y & 137	; Acknowledgement
	MSG$NAK		= 'N & 137	; Negative acknowledgement
	MSG$SND		= 'S & 137	; Send initiate
	MSG$BREAK	= 'B & 137	; Break transmission
	MSG$FILE	= 'F & 137	; File header
	MSG$EOF		= 'Z & 137	; End of file (EOF)
	MSG$ERROR	= 'E & 137	; Error

; Protocol version 2.0 message types

	MSG$RCV		= 'R & 137	; Receive initiate
	MSG$COMMAND	= 'C & 137	; Host command
	MSG$GENERIC	= 'G & 137	; Generic KERMIT command.
	MSG$KERMIT	= 'K & 137	; Perform KERMIT command (text)

; Protocol version 4.0 message types

	MSG$SER		= 'I & 137	; Server initialization
	MSG$TEXT	= 'X & 137	; Text header message
	MSG$ATR		= 'A & 137	; Attribute packet

;++
; Generic KERMIT commands
;--

	GN$LOGIN	= 'I & 137	; Login
	GN$EXIT		= 'F & 137	; Finish (exit to OS)
	GN$CONNECT	= 'C & 137	; Connect to a directory
	GN$BYE		= 'L & 137	; Logout
	GN$DIRECTORY	= 'D & 137	; Directory
	GN$DISK		= 'U & 137	; Disk usage
	GN$DELETE	= 'E & 137	; Delete a file
	GN$TYPE		= 'T & 137	; Type a file specification
	GN$SUBMIT	= 'S & 137	; Submit
	GN$PRINT	= 'P & 137	; Print
	GN$WHO		= 'W & 137	; Who's logged in
	GN$SEND		= 'M & 137	; Send a message to a user
	GN$HELP		= 'H & 137	; Help
	GN$QUERY	= 'Q & 137	; Query status
	GN$RENAME	= 'R & 137	; Rename file
	GN$COPY		= 'K & 137	; Copy file
	GN$PROGRAM	= 'P & 137	; Run program and pass data
	GN$JOURNAL	= 'J & 137	; Perform journal functions
	GN$VARIABLE	= 'V & 137	; Return/set variable state

;
; Acknowledgement modifiers (protocol 4.0)
;

	ABT$ERROR	= 'E & 137
	ABT$CUR		= 'X & 137	; Abort current file
	ABT$ALL		= 'Z & 137	; Abort entire stream of files

;
; End of file packet modifier
;

	EOF$DISCARD	= 'D & 137	; Discard data from previous file




	STA.ABO	=	'A&137		; state is 'abort'
	STA.ATR	=	'H&137		; state is 'send attributes'
	STA.BRK	=	'B&137		; state is 'break link'
	STA.COM	=	'C&137		; state is 'transaction complete'
	STA.DAT	=	'D&137		; state is 'data'
	STA.EOF	=	'Z&137		; state is 'end of file/reply'
	STA.FIL	=	'F&137		; state is 'filename header'
	STA.INI	=	'I&137		; state is 'init'
	STA.RIN	=	'R&137		; state is 'receive init'
	STA.SIN	=	'S&137		; state is 'send    init'
	STA.TYP	=	'X&137		; state is 'extended reply'