home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
kermit11.tar.gz
/
kermit11.tar
/
k11com.mac
< prev
next >
Wrap
Text File
|
1989-06-13
|
4KB
|
121 lines
.title k11com overlay for the main command list
.ident /2.37/
; 08-Mar-84 10:48:20 Brian Nelson
; 23-Oct-85 09:44:20 BDN Break LOASET out for new overlay.
;
; 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.
.if ndf, K11INC
.ift
.include /IN:K11MAC.MAC/
.include /IN:K11CDF.MAC/
.endc
.iif ndf, k11inc, .error ; INCLUDE missing for K11MAC.MAC
.sbttl define the allowable commands
.psect $code ,i
loacmd::mov #cmdlst ,r0
return
$cmglob = 1 ; globalize
command cmdlst ,@ ,1 ,c$take ,<Command file ? >,string
command cmdlst ,BYE ,2 ,c$bye
command cmdlst ,COMMENT,4 ,c$nop
command cmdlst ,CONNECT,3 ,c$conn
command cmdlst ,CWD ,2 ,c$cwd ,<Directory: >,string
command cmdlst ,COPY ,3 ,c$copy ,<From: >,string
command cmdlst ,DATE ,2 ,sho$dy
command cmdlst ,DELETE ,2 ,c$del ,<What: >,string
command cmdlst ,DIAL ,3 ,c$dial ,<Phone number ? >,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 ,2 ,c$del ,<What: >,string
command cmdlst ,EXAMINE,3 ,c$disp ,<Symbol: >,string
command cmdlst ,EXIT ,2 ,c$exit
command cmdlst ,FINISH ,2 ,c$fin
command cmdlst ,GET ,2 ,c$get ,<File ? >,string
command cmdlst ,HANGUP ,2 ,c$hang
command cmdlst ,HELP ,2 ,c$help
command cmdlst ,HOME ,3 ,c$home
command cmdlst ,HOST ,3 ,c$sys ,<Command: >,string
command cmdlst ,LOCAL ,3 ,c$loc ,<Local command ? >,string
command cmdlst ,LOGOUT ,4 ,c$bye
command cmdlst ,LOGFILE,4 ,c$logf ,<Logfile name ? >,string
command cmdlst ,LOG_FILE,4 ,c$logf ,<Logfile name ? >,string
command cmdlst ,LOG-FILE,4 ,c$logf ,<Logfile name ? >,string
command cmdlst ,NOTE ,2 ,c$nop
command cmdlst ,QUIT ,1 ,c$exit
command cmdlst ,PRINT ,2 ,c$print,<File ? >,string
command cmdlst ,RECEIVE,3 ,c$rec
command cmdlst ,REDIAL ,3 ,c$redi ,<Number of retries ? >,decnum
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 ,2 ,c$show ,<What: >,string
command cmdlst ,SPACE ,2 ,c$spac
command cmdlst ,STATUS ,2 ,c$stat
command cmdlst ,SYSTEM ,2 ,c$sys ,<Command: >,string
command cmdlst ,TAKE ,2 ,c$take ,<Command file ? >,string
command cmdlst ,TEST ,2 ,c$test
command cmdlst ,TIME ,2 ,sho$dy
command cmdlst ,TRANSFER,3 ,c$tran ,<File ? >,string
command cmdlst ,TRANSMIT,3 ,c$tran ,<File ? >,string
command cmdlst ,TYPE ,2 ,c$type ,<File ? >,string
command cmdlst ,WHO ,1 ,c$who
command cmdlst
.sbttl same thing for remote commands
loarem::mov #remlst ,r0
return
$cmglob = 1
command remlst ,BYE ,2 ,rmtbye
command remlst ,COPY ,2 ,rmtcop ,<From: >,string
command remlst ,CWD ,2 ,rmtcwd ,<Remote Directory: >,string
command remlst ,DELETE ,2 ,rmtdel ,<File Specification: >,string
command remlst ,DIRECTORY,3 ,rmtdir ,<Of what: >,string
command remlst ,DISK ,3 ,rmtspa
command remlst ,ERASE ,2 ,rmtdel ,<File Specification: >,string
command remlst ,FINISH ,2 ,rmtfin
command remlst ,GET ,2 ,rmtget ,<File Specification: >,string
command remlst ,HELP ,2 ,rmthlp
command remlst ,HOST ,2 ,rmthos ,<Command: >,string
command remlst ,LOGIN ,3 ,rmtlgi ,<User and Password: >,string
command remlst ,RENAME ,2 ,rmtren ,<From: >,string
command remlst ,SPACE ,2 ,rmtspa
command remlst ,TYPE ,2 ,rmttyp ,<File: >,string
command remlst ,WHO ,1 ,rmtwho
command remlst
.end