.title	k11com	overlay for the main command list
	.ident	/1.0.01/

;	08-Mar-84  10:48:20  Brian Nelson
;
;	Copyright (C) 1984 Change Software, Inc.
;
;	 Place the main command list in  an overlay
;	Call LOACMD  to get the overlay  loaded and
;	return the command list address in r0. Also
;	do the same thing for REMOTE commands via a
;	call to LOAREM.
;	 If it should happen that this should cause
;	a problem due to overlays overwritting this
;	routine then simply put this into the root.


	.include	/IN:K11MAC.MAC/
	.include	/IN:K11CDF.MAC/
	.iif ndf, k11inc, .error	; INCLUDE missing for K11MAC.MAC



	.sbttl	define the allowable commands

loacmd::mov	#cmdlst	,r0
	return

	$cmglob	=	1		; globalize

	command	cmdlst	,@	,1	,c$take	,<Command file ? >,string
	command	cmdlst	,BYE	,3	,c$bye
	command	cmdlst	,COMMENT,4	,c$nop
	command	cmdlst	,CONNECT,3	,c$conn
	command	cmdlst	,COPY	,3	,c$copy	,<From: >,string
	command	cmdlst	,DATE	,3	,sho$dy
	command	cmdlst	,DELETE	,3	,c$del	,<What: >,string
	command	cmdlst	,DIRECT	,3	,c$dir
	command	cmdlst	,DISCONNECT,4	,c$disc
	command	cmdlst	,DISK	,4	,c$spac
	command	cmdlst	,DISPLAY,4	,c$disp	,<Symbol: >,string
	command	cmdlst	,ERASE	,3	,c$del	,<What: >,string
	command	cmdlst	,EXIT	,3	,c$exit
	command	cmdlst	,FINISH	,3	,c$fin
	command	cmdlst	,GET	,3	,c$get	,<File ? >,string
	command	cmdlst	,HANGUP	,3	,c$hang
	command	cmdlst	,HELP	,3	,c$help
	command	cmdlst	,HOST	,3	,c$sys	,<Command: >,string
	command	cmdlst	,LOCAL	,3	,c$loc	,<Local command ? >,string
	command	cmdlst	,LOGOUT	,3	,c$bye
	command	cmdlst	,NOTE	,3	,c$nop
	command	cmdlst	,QUIT	,3	,c$exit
	command	cmdlst	,PRINT	,3	,c$print,<File ? >,string
	command	cmdlst	,RECEIVE,3	,c$rec
	command	cmdlst	,REMOTE	,3	,c$rem	,<Remote Kermit cmd ? >,string
	command	cmdlst	,RENAME	,3	,c$rena	,<From: >,string
	command	cmdlst	,SEND	,3	,c$send	,<File ? >,string
	command	cmdlst	,SERVER	,3	,c$serv
	command	cmdlst	,SET	,3	,c$set	,<What: >,string
	command	cmdlst	,SHOW	,3	,c$show	,<What: >,string
	command	cmdlst	,SPACE	,3	,c$spac
	command	cmdlst	,SYSTEM	,3	,c$sys	,<Command: >,string
	command	cmdlst	,TAKE	,3	,c$take	,<Command file ? >,string
	command	cmdlst	,TEST	,3	,c$test
	command	cmdlst	,TIME	,3	,sho$dy
	command	cmdlst	,TRANSFER,3	,c$tran	,<File ? >,string
	command	cmdlst	,TRANSMIT,3	,c$tran	,<File ? >,string
	command	cmdlst	,TYPE	,3	,c$type	,<File ? >,string
	command	cmdlst	,WHO	,3	,c$who
	command	cmdlst


	.sbttl	same thing for remote commands


loarem::mov	#remlst	,r0
	return


	$cmglob	=	1

	command	remlst	,BYE	,3	,rm$bye
	command	remlst	,COPY	,3	,rm$cop	,<From: >,string
	command	remlst	,DELETE	,3	,rm$del	,<File Specification: >,string
	command	remlst	,DIRECTORY,3	,rm$dir	,<Of what: >,string
	command	remlst	,DISK	,3	,rm$spa
	command	remlst	,ERASE	,3	,rm$del	,<File Specification: >,string
	command	remlst	,FINISH	,3	,rm$fin
	command	remlst	,GET	,3	,rm$get	,<File Specification: >,string
	command	remlst	,HELP	,3	,rm$hlp
	command	remlst	,HOST	,3	,rm$hos	,<Command: >,string
	command	remlst	,RENAME	,3	,rm$ren	,<From: >,string
	command	remlst	,SPACE	,3	,rm$spa
	command	remlst	,TYPE	,3	,rm$typ	,<What: >,string
	command	remlst	,WHO	,3	,rm$who
	command	remlst







	.psect	$code

loaset::mov	#setcmd	,r0
	return


	$cmglob	=	1

command	setcmd	,ATTRIBUTES,3	   ,set$at,<On or Off ? >,string
command	setcmd	,BAUD	,3	   ,set$sp,<Speed for remote link ? >,decnum
command	setcmd	,BLOCK-CHECK-TYPE,3,set$bl,<Type ? >,string
command	setcmd	,BLOCK_CHECK_TYPE,3,set$bl,<Type ? >,string
command	setcmd	,DEBUG	,3	   ,set$de,<What: >,string
command	setcmd	,DEFAULT,3	   ,set$df,<Directory ? >,string
command	setcmd	,DELAY	,3	   ,set$dl,<Seconds to wait ? >,decnum
command	setcmd	,DIRECTORY,3	   ,set$df,<Directory ? >,string
command	setcmd	,DTR	,3	   ,set$dt
command	setcmd	,DUPLEX	,3	   ,set$du,<Half or Full duplex ? >,string
command	setcmd	,END-OF-LINE,3	   ,set$eo,<Octal value of remotes EOL ? >,octnum
command	setcmd	,END_OF_LINE,3	   ,set$eo,<Octal value of remotes EOL ? >,octnum
command	setcmd	,ESCAPE	,3	   ,set$es,<Octal value of escape ? >,octnum
command	setcmd	,FILETYPE,3	   ,set$fi,<Binary or Ascii ? >,string
command	setcmd	,FILE_TYPE,3	   ,set$fi,<Binary or Ascii ? >,string
command	setcmd	,FILE-TYPE,3	   ,set$fi,<Binary or Ascii ? >,string
command	setcmd	,HANDSHAKE,3	   ,set$ha,<Type ? >,string
command	setcmd	,HAND_SHAKE,3	   ,set$ha,<Type ? >,string
command	setcmd	,HAND-SHAKE,3	   ,set$ha,<Type ? >,string
command	setcmd	,HOME	,3	   ,set$ho
command	setcmd	,IBM	,3	   ,set$ib,<IBM mode ON or OFF ? >,string
command	setcmd	,LINE	,3	   ,set$li,<Device name ? >,string
command	setcmd	,LOCAL	,3	   ,set$lc,<Local echo ON or OFF ? >,string
command	setcmd	,LOGFILE,3	   ,set$lo,<Debug/logfile name ? >,string
command	setcmd	,LOG_FILE,3	   ,set$lo,<Debug/logfile name ? >,string
command	setcmd	,LOG-FILE,3	   ,set$lo,<Debug/logfile name ? >,string
command	setcmd	,PACKET-LENGTH,3   ,set$pl,<Packet size ? >,decnum
command	setcmd	,PACKET_LENGTH,3   ,set$pl,<Packet size ? >,decnum
command	setcmd	,PARITY	,3	   ,set$pa,<Odd/Even or None ? >,string
command	setcmd	,PAUSE	,3	   ,set$ps,<Seconds to delay packets ? >,decnum
command	setcmd	,PROMPT	,3	   ,set$pr,<Kermit Prompt ? >,string
command	setcmd	,RANDOM	,3	   ,set$ra,<Random errors on or off ? >,string
command	setcmd	,RECORD-FORMAT,3   ,set$rf,<Stream or Variable ? >,string
command	setcmd	,RECORD_FORMAT,3   ,set$rf,<Stream or Variable ? >,string
command setcmd	,REPEAT	,3	   ,set$rp,<To:   >,string
command setcmd	,REPEAT_CHAR,3	   ,set$rp,<To:   >,string
command setcmd	,REPEAT-CHAR,3	   ,set$rp,<To:   >,string
command	setcmd	,RETRY	,3	   ,set$re,<NAK retry count ? >,decnum
command	setcmd	,RTFLOW	,3	   ,set$cf,<Connect flow control ? >,string
command	setcmd	,SEED	,3	   ,set$se,<Random test seed ? >,decnum
command	setcmd	,SPEED	,3	   ,set$sp,<Speed for remote link ? >,decnum
command	setcmd	,TERMINAL,3	   ,set$tt,<Local terminal type ? >,string
command	setcmd	,TIMEOUT,3	   ,set$ti,<Timeout in seconds ? >,decnum
command	setcmd	,TIME-OUT,3	   ,set$ti,<Timeout in seconds ? >,decnum
command	setcmd	,TIME_OUT,3	   ,set$ti,<Timeout in seconds ? >,decnum
command	setcmd

	.end