.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.CCA	=:	100		; into control C abort
	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'