	.title	k11dfh	default help for kermit-11
	.ident	/1.0.01/
	.include	/IN:K11MAC.MAC/
	.psect


;	13-Jan-84  12:33:55  Brian Nelson
;






	.sbttl	print minimal help out for KERMIT-11
	

defhlp::message
	message	<Default Kermit-11 help text>,cr
	message
	mov	#khelp	,r1		; point to the text
	strlen	r1			; get the total string length
10$:	mov	r0	,r2		; amount left to print
	cmp	r2	,#100		; dump 64 bytes at a time
	blo	20$			; almost done
	mov	#100	,r2		; not yet done, dump 64 bytes
20$:	print	r1	,r2		; dump it
	add	#100	,r1		; address := address + 100
	sub	#100	,r0		; leftover := leftover - 100
	bgt	10$			; next
	message				; a last cr/lf
	return






	.sbttl	minimal help text


	.nlist	bin
	.macro	txt	str
	.ascii	#str#
	.byte	cr,lf
	.endm	txt
	.psect	$pdata

khelp:
txt	<	@	filespec>
txt	<	BYE>
txt	<	CONNECT>
txt	<	DIRECT	filespec>
txt	<	DISCONNECT>
txt	<	EXIT>
txt	<	FINISH>
txt	<	GET	filespec>
txt	<	HANGUP>
txt	<	HELP	topic>
txt	<	LOCAL	Kermit command name>
txt	<	QUIT>
txt	<	RECEIVE	filename>
txt	<>
txt	<	REMOTE	BYE>
txt	<	REMOTE	FINISH>
txt	<	REMOTE	GET>
txt	<	REMOTE	SPACE>
txt	<>
txt	<	RENAME	oldname newname>
txt	<	SEND	filespec>
txt	<	SERVER>
txt	<>
txt	<	SET	BLOCK-CHECK	1-CHARACTER-CHECKSUM>
txt	<	SET	BLOCK-CHECK	2-CHARACTER-CHECKSUM>
txt	<	SET	BLOCK-CHECK	3-CHARACTER-CRC-CCITT>
txt	<>
txt	<	SET	DEBUG		ALL>
txt	<	SET	DEBUG		CONSOLE>
txt	<	SET	DEBUG		CONNECT>
txt	<	SET	DEBUG		FILE>
txt	<	SET	DEBUG		HELP>
txt	<	SET	DEBUG		NONE>
txt	<	SET	DEBUG		OFF>
txt	<	SET	DEBUG		ON>
txt	<	SET	DEBUG		PACKET>
txt	<	SET	DEBUG		STATE>
txt	<>
txt	<	SET	DEFAULT		DEV:[UIC]>
txt	<	SET	DIRECTORY	DEV:[UIC]>
txt	<	SET	DTR	>
txt	<	SET	END-OF-LINE	octal value>
txt	<	SET	ESCAPE		Octal value>
txt	<	SET	FILETYPE	Binary or Ascii>
txt	<	SET	HANGUP>
txt	<	SET	HOME	>
txt	<	SET	LINE		device name>
txt	<	SET	LOGFILE		filename.type>
txt	<	SET	PACKET-LENGTH	decimal value>
txt	<	SET	PARITY>
txt	<	SET	PAUSE		decimal number>
txt	<	SET	RETRY		decimal number>
txt	<	SET	SPEED		decimal number>
txt	<	SET	TIMEOUT		decimal number>
txt	<>
txt	<	SHOW	ALL	>
txt	<	SHOW	BLOCK-CHECK-TYPE>
txt	<	SHOW	DEBUG	>
txt	<	SHOW	DEFAULT>
txt	<	SHOW	DIRECTORY>
txt	<	SHOW	ESCAPE>
txt	<	SHOW	FILETYPE>
txt	<	SHOW	LINE>
txt	<	SHOW	PACKET>
txt	<	SHOW	PARAMETERS>
txt	<	SHOW	TIME>
txt	<	SHOW	VERSION>
txt	<>
txt	<	SPACE>
txt	<	SYSTEM	CCL/DCL/MCR command>
txt	<	TAKE	filename.type>
txt	<	TYPE	filename.type>
txt	<>
txt	<Note  that KERMIT-11  will accept wildcard  file specifications for>
txt	<both the SEND command and the Server GET command,  as in SEND *.MAC>
txt	<or, from a local Kermit talking to Kermit-11 as a server, GET *.MAC>
	.byte	0
	.even

	.list	bin



	.end
