.title	KRTCOM	Main_loop and REMOTE command lists overlay
	.ident	"V03.62"

; /62/	27-Jul-93  Billy Youdelman
; /BBS/	 1-Dec-91  Billy Youdelman  V03.61
;
;	modify SHOW to work with null arg, as RT-11 does for devices
;	pull unused argtyp stuff

;	08-Mar-84  10:48:20  Brian Nelson
;	23-Oct-85  09:44:20  BDN	Break LOASET out for new overlay.
;
;	Copyright 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.  The
;	same thing is done for REMOTE commands by a
;	call to LOAREM.


	.include "IN:KRTMAC.MAC"
	.iif ndf  KRTINC  .error	<; .include for IN:KRTMAC.MAC failed>
	.include "IN:KRTCDF.MAC"
	.iif ndf  KRTCDF  .error 	<; .include for IN:KRTCDF.MAC failed>


	$CMGLOB	=	1		; globalize


	.psect	$code
	.sbttl	Define the main_loop commands

loacmd::mov	#cmdlst	,r0		; calling this also loads this overlay
	return

command	cmdlst	,@		,1  ,c$take  ,<File: >
command	cmdlst	,ASSIGN		,2  ,c$assign
command	cmdlst	,BUG		,2  ,c$bug
command	cmdlst	,BYE		,2  ,c$bye
command	cmdlst	,CD		,2  ,c$cwd   ,<Directory: >
command	cmdlst	,CLS		,3  ,c$cls
command	cmdlst	,CLX		,3  ,c$clx
command	cmdlst	,CONNECT	,1  ,c$conn
command	cmdlst	,COPY		,3  ,c$copy  ,<From: >
command	cmdlst	,CWD		,2  ,c$cwd   ,<Directory: >
command	cmdlst	,DATE		,2  ,sho$da
command	cmdlst	,DELETE		,6  ,c$del   ,<File: >
command	cmdlst	,DIAL		,3  ,c$dial  ,<Number: >
command	cmdlst	,DIRECTORY	,3  ,c$dir
command	cmdlst	,DISCONNECT	,4  ,c$hang
command	cmdlst	,DISMOUNT	,3  ,c$dismou
command	cmdlst	,EXAMINE	,3  ,c$disp  ,<Symbol or address: >
command	cmdlst	,EXIT		,2  ,c$exit
command	cmdlst	,FINISH		,1  ,c$fin
command	cmdlst	,GET		,1  ,c$get   ,<Files: >
command	cmdlst	,HANGUP		,2  ,c$hang
command	cmdlst	,HELP		,1  ,c$help
command	cmdlst	,HOME		,2  ,c$home
command	cmdlst	,HPRINT		,2  ,prihlp
command	cmdlst	,LOGFILE	,3  ,c$logf
command	cmdlst	,LOGOUT		,4  ,c$bye
command	cmdlst	,MOUNT		,1  ,c$mount
command	cmdlst	,PRINT		,2  ,c$print ,<File: >
command	cmdlst	,PWD		,2  ,c$pwd
command	cmdlst	,QUIT		,1  ,c$exit
command	cmdlst	,RECEIVE	,1  ,c$rec
command	cmdlst	,REDIAL		,3  ,c$redi
command	cmdlst	,REMOTE		,3  ,c$rem   ,<Command: >
command	cmdlst	,RENAME		,3  ,c$rena  ,<From: >
command	cmdlst	,SEND		,1  ,c$send  ,<Files: >
command	cmdlst	,SERVER		,3  ,c$serv
command	cmdlst	,SET		,3  ,c$set   ,<What: >
command	cmdlst	,SHOW		,2  ,c$show
command	cmdlst	,SPACE		,2  ,c$spac
command	cmdlst	,STATUS		,2  ,c$stat
command	cmdlst	,TAKE		,2  ,c$take  ,<File: >
command	cmdlst	,TIME		,2  ,sho$ti
command	cmdlst	,TRANSMIT	,2  ,c$tran  ,<File: >
command	cmdlst	,TYPE		,2  ,c$type  ,<Files: >
command	cmdlst	,XMODEM		,1  ,c$xmodem,<File: >
command	cmdlst


	.sbttl	Define the REMOTE commands

loarem::mov	#remlst	,r0		; calling this also loads this overlay
	return

command	remlst	,CD		,2  ,remcwd  ,<Directory: >
command	remlst	,COPY		,2  ,rmtcop  ,<From: >
command	remlst	,CWD		,2  ,remcwd  ,<Directory: >
command	remlst	,DELETE		,6  ,remdel  ,<File: >
command	remlst	,DIRECTORY	,2  ,remdir
command	remlst	,HELP		,1  ,remhlp
command	remlst	,HOST		,2  ,remhos  ,<Command: >
command	remlst	,LOGIN		,1  ,remlgi  ,<Username Password: >
command	remlst	,RENAME		,1  ,rmtren  ,<From: >
command	remlst	,SPACE		,1  ,remspa
command	remlst	,TYPE		,1  ,remtyp  ,<File: >
command	remlst	,WHO		,1  ,remwho
command	remlst

	.end