home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pdp11 / k11com.mac < prev    next >
Text File  |  2020-01-01  |  4KB  |  121 lines
  1.     .title    k11com    overlay for the main command list
  2.     .ident    /2.37/
  3.  
  4. ;    08-Mar-84  10:48:20  Brian Nelson
  5. ;    23-Oct-85  09:44:20  BDN    Break LOASET out for new overlay.
  6. ;
  7. ;    Copyright (C) 1984 Change Software, Inc.
  8. ;
  9. ;     Place the main command list in  an overlay
  10. ;    Call LOACMD  to get the overlay  loaded and
  11. ;    return the command list address in r0. Also
  12. ;    do the same thing for REMOTE commands via a
  13. ;    call to LOAREM.
  14. ;     If it should happen that this should cause
  15. ;    a problem due to overlays overwritting this
  16. ;    routine then simply put this into the root.
  17.  
  18.  
  19.  
  20.  
  21.     .if ndf, K11INC
  22.     .ift
  23.     .include    /IN:K11MAC.MAC/
  24.     .include    /IN:K11CDF.MAC/
  25.     .endc
  26.  
  27.     .iif ndf, k11inc, .error    ; INCLUDE missing for K11MAC.MAC
  28.  
  29.  
  30.  
  31.     .sbttl    define the allowable commands
  32.     .psect    $code    ,i
  33.  
  34. loacmd::mov    #cmdlst    ,r0
  35.     return
  36.  
  37.     $cmglob    =    1        ; globalize
  38.  
  39.     command    cmdlst    ,@    ,1    ,c$take    ,<Command file ? >,string
  40.     command    cmdlst    ,BYE    ,2    ,c$bye
  41.     command    cmdlst    ,COMMENT,4    ,c$nop
  42.     command    cmdlst    ,CONNECT,3    ,c$conn
  43.     command    cmdlst    ,CWD    ,2    ,c$cwd    ,<Directory: >,string
  44.     command    cmdlst    ,COPY    ,3    ,c$copy    ,<From: >,string
  45.     command    cmdlst    ,DATE    ,2    ,sho$dy
  46.     command    cmdlst    ,DELETE    ,2    ,c$del    ,<What: >,string
  47.     command    cmdlst    ,DIAL    ,3    ,c$dial    ,<Phone number ? >,string
  48.     command    cmdlst    ,DIRECT    ,3    ,c$dir
  49.     command    cmdlst    ,DISCONNECT,4    ,c$disc
  50.     command    cmdlst    ,DISK    ,4    ,c$spac
  51.     command    cmdlst    ,DISPLAY,4    ,c$disp    ,<Symbol: >,string
  52.     command    cmdlst    ,ERASE    ,2    ,c$del    ,<What: >,string
  53.     command    cmdlst    ,EXAMINE,3    ,c$disp    ,<Symbol: >,string
  54.     command    cmdlst    ,EXIT    ,2    ,c$exit
  55.     command    cmdlst    ,FINISH    ,2    ,c$fin
  56.     command    cmdlst    ,GET    ,2    ,c$get    ,<File ? >,string
  57.     command    cmdlst    ,HANGUP    ,2    ,c$hang
  58.     command    cmdlst    ,HELP    ,2    ,c$help
  59.     command    cmdlst    ,HOME    ,3    ,c$home
  60.     command    cmdlst    ,HOST    ,3    ,c$sys    ,<Command: >,string
  61.     command    cmdlst    ,LOCAL    ,3    ,c$loc    ,<Local command ? >,string
  62.     command    cmdlst    ,LOGOUT    ,4    ,c$bye
  63.     command    cmdlst    ,LOGFILE,4    ,c$logf    ,<Logfile name ? >,string
  64.     command    cmdlst    ,LOG_FILE,4    ,c$logf    ,<Logfile name ? >,string
  65.     command    cmdlst    ,LOG-FILE,4    ,c$logf    ,<Logfile name ? >,string
  66.     command    cmdlst    ,NOTE    ,2    ,c$nop
  67.     command    cmdlst    ,QUIT    ,1    ,c$exit
  68.     command    cmdlst    ,PRINT    ,2    ,c$print,<File ? >,string
  69.     command    cmdlst    ,RECEIVE,3    ,c$rec
  70.     command    cmdlst    ,REDIAL    ,3    ,c$redi    ,<Number of retries ? >,decnum
  71.     command    cmdlst    ,REMOTE    ,3    ,c$rem    ,<Remote Kermit cmd ? >,string
  72.     command    cmdlst    ,RENAME    ,3    ,c$rena    ,<From: >,string
  73.     command    cmdlst    ,SEND    ,3    ,c$send    ,<File ? >,string
  74.     command    cmdlst    ,SERVER    ,3    ,c$serv
  75.     command    cmdlst    ,SET    ,3    ,c$set    ,<What: >,string
  76.     command    cmdlst    ,SHOW    ,2    ,c$show    ,<What: >,string
  77.     command    cmdlst    ,SPACE    ,2    ,c$spac
  78.     command    cmdlst    ,STATUS    ,2    ,c$stat
  79.     command    cmdlst    ,SYSTEM    ,2    ,c$sys    ,<Command: >,string
  80.     command    cmdlst    ,TAKE    ,2    ,c$take    ,<Command file ? >,string
  81.     command    cmdlst    ,TEST    ,2    ,c$test
  82.     command    cmdlst    ,TIME    ,2    ,sho$dy
  83.     command    cmdlst    ,TRANSFER,3    ,c$tran    ,<File ? >,string
  84.     command    cmdlst    ,TRANSMIT,3    ,c$tran    ,<File ? >,string
  85.     command    cmdlst    ,TYPE    ,2    ,c$type    ,<File ? >,string
  86.     command    cmdlst    ,WHO    ,1    ,c$who
  87.     command    cmdlst
  88.  
  89.  
  90.     .sbttl    same thing for remote commands
  91.  
  92.  
  93. loarem::mov    #remlst    ,r0
  94.     return
  95.  
  96.  
  97.     $cmglob    =    1
  98.  
  99.     command    remlst    ,BYE    ,2    ,rmtbye
  100.     command    remlst    ,COPY    ,2    ,rmtcop    ,<From: >,string
  101.     command    remlst    ,CWD    ,2    ,rmtcwd    ,<Remote Directory: >,string
  102.     command    remlst    ,DELETE    ,2    ,rmtdel    ,<File Specification: >,string
  103.     command    remlst    ,DIRECTORY,3    ,rmtdir    ,<Of what: >,string
  104.     command    remlst    ,DISK    ,3    ,rmtspa
  105.     command    remlst    ,ERASE    ,2    ,rmtdel    ,<File Specification: >,string
  106.     command    remlst    ,FINISH    ,2    ,rmtfin
  107.     command    remlst    ,GET    ,2    ,rmtget    ,<File Specification: >,string
  108.     command    remlst    ,HELP    ,2    ,rmthlp
  109.     command    remlst    ,HOST    ,2    ,rmthos    ,<Command: >,string
  110.     command    remlst    ,LOGIN    ,3    ,rmtlgi ,<User and Password: >,string
  111.     command    remlst    ,RENAME    ,2    ,rmtren    ,<From: >,string
  112.     command    remlst    ,SPACE    ,2    ,rmtspa
  113.     command    remlst    ,TYPE    ,2    ,rmttyp    ,<File: >,string
  114.     command    remlst    ,WHO    ,1    ,rmtwho
  115.     command    remlst
  116.  
  117.  
  118.  
  119.  
  120.     .end
  121.