home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / b / krtcom.mac < prev    next >
Text File  |  2020-01-01  |  4KB  |  124 lines
  1.     .title    KRTCOM    Main_loop and REMOTE command lists overlay
  2.     .ident    "V03.63"
  3.  
  4. ; /63/    27-Sep-97  Billy Youdelman  V03.63
  5. ;
  6. ;    consolidate local data..
  7. ;    add DAYTIME
  8. ;    allow CD, CWD and REMOTE CD, CWD to operate without an argument
  9.  
  10. ; /62/    27-Jul-93  Billy Youdelman  V03.62
  11.  
  12. ; /BBS/     1-Dec-91  Billy Youdelman  V03.61
  13. ;
  14. ;    modify SHOW to work with null arg, as RT-11 does for devices
  15. ;    pull unused argtyp stuff
  16.  
  17. ;    08-Mar-84  10:48:20  Brian Nelson
  18. ;    23-Oct-85  09:44:20  BDN    Break LOASET out for new overlay.
  19. ;
  20. ;    Copyright 1984 Change Software, Inc.
  21. ;
  22. ;     Place the main command list in an overlay.
  23. ;    Call  LOACMD  to get the overlay loaded and
  24. ;    return the command list address in r0.  The
  25. ;    same thing is done for REMOTE commands by a
  26. ;    call to LOAREM.
  27.  
  28.  
  29.     .include "IN:KRTMAC.MAC"
  30.     .iif ndf  KRTINC  .error    <; .include for IN:KRTMAC.MAC failed>
  31.     .include "IN:KRTCDF.MAC"
  32.     .iif ndf  KRTCDF  .error    <; .include for IN:KRTCDF.MAC failed>
  33.  
  34.  
  35.     .sbttl    Local data        ; /63/ consolidate data here..
  36.  
  37.     .psect    $pdata
  38. com.01:    .asciz    "File: "
  39. com.02:    .asciz    "From: "
  40. com.03:    .asciz    "Number: "
  41. com.04:    .asciz    "Symbol or address: "
  42. com.05:    .asciz    "Files: "
  43. com.06:    .asciz    "Command: "
  44. com.07:    .asciz    "What: "
  45. com.08:    .asciz    "Username Password: "
  46.     .even
  47.  
  48.  
  49.     .psect    $code
  50.     .sbttl    Define the main_loop commands
  51.  
  52. loacmd::mov    #cmdlst    ,r0        ; calling this also loads this overlay
  53.     return
  54.  
  55.     command    cmdlst    ,@        ,1    ,c$take  ,com.01
  56.     command    cmdlst    ,ASSIGN        ,1    ,c$assign
  57.     command    cmdlst    ,BUG        ,2    ,c$bug
  58.     command    cmdlst    ,BYE        ,2    ,c$bye
  59.     command    cmdlst    ,CD        ,2    ,c$cwd   ; /63/ allow no dir
  60.     command    cmdlst    ,CLS        ,3    ,c$cls
  61.     command    cmdlst    ,CLX        ,3    ,c$clx
  62.     command    cmdlst    ,CONNECT    ,1    ,c$conn
  63.     command    cmdlst    ,COPY        ,3    ,c$copy  ,com.02
  64.     command    cmdlst    ,CWD        ,2    ,c$cwd   ; /63/ allow no dir
  65.     command    cmdlst    ,DATE        ,2    ,sho$da
  66.     command    cmdlst    ,DAYTIME    ,3    ,sho$dy    ; /63/
  67.     command    cmdlst    ,DELETE        ,6    ,c$del   ,com.01
  68.     command    cmdlst    ,DIAL        ,3    ,c$dial  ,com.03
  69.     command    cmdlst    ,DIRECTORY    ,3    ,c$dir
  70.     command    cmdlst    ,DISCONNECT    ,4    ,c$hang
  71.     command    cmdlst    ,DISMOUNT    ,3    ,c$dismou
  72.     command    cmdlst    ,EXAMINE    ,3    ,c$exam  ,com.04 ; /63/
  73.     command    cmdlst    ,EXIT        ,2    ,c$exit
  74.     command    cmdlst    ,FINISH        ,1    ,c$fin
  75.     command    cmdlst    ,GET        ,1    ,c$get   ,com.05
  76.     command    cmdlst    ,HANGUP        ,2    ,c$hang
  77.     command    cmdlst    ,HELP        ,1    ,c$help
  78.     command    cmdlst    ,HOME        ,2    ,c$home
  79.     command    cmdlst    ,HPRINT        ,2    ,c$phlp
  80.     command    cmdlst    ,LOGFILE    ,3    ,c$logf
  81.     command    cmdlst    ,LOGOUT        ,4    ,c$bye
  82.     command    cmdlst    ,MOUNT        ,1    ,c$mount
  83.     command    cmdlst    ,PRINT        ,2    ,c$print ,com.01
  84.     command    cmdlst    ,PWD        ,2    ,c$pwd
  85.     command    cmdlst    ,QUIT        ,1    ,c$exit
  86.     command    cmdlst    ,RECEIVE    ,1    ,c$rec
  87.     command    cmdlst    ,REDIAL        ,3    ,c$redi
  88.     command    cmdlst    ,REMOTE        ,3    ,c$rem   ,com.06
  89.     command    cmdlst    ,RENAME        ,3    ,c$rena  ,com.02
  90.     command    cmdlst    ,SEND        ,1    ,c$send  ,com.05
  91.     command    cmdlst    ,SERVER        ,3    ,c$serv
  92.     command    cmdlst    ,SET        ,3    ,c$set   ,com.07
  93.     command    cmdlst    ,SHOW        ,2    ,c$show
  94.     command    cmdlst    ,SPACE        ,2    ,c$spac
  95.     command    cmdlst    ,STATUS        ,2    ,c$stat
  96.     command    cmdlst    ,TAKE        ,2    ,c$take  ,com.01
  97.     command    cmdlst    ,TIME        ,2    ,sho$ti
  98.     command    cmdlst    ,TRANSMIT    ,2    ,c$tran  ,com.01
  99.     command    cmdlst    ,TYPE        ,2    ,c$type  ,com.05
  100.     command    cmdlst    ,XMODEM        ,1    ,c$xmodem,com.01
  101.     command    cmdlst
  102.  
  103.  
  104.     .sbttl    Define the REMOTE commands
  105.  
  106. loarem::mov    #remlst    ,r0        ; calling this also loads this overlay
  107.     return
  108.  
  109.     command    remlst    ,CD        ,2    ,remcwd     ; /63/ allow no dir
  110.     command    remlst    ,COPY        ,2    ,rmtcop  ,com.02
  111.     command    remlst    ,CWD        ,2    ,remcwd  ; /63/ allow no dir
  112.     command    remlst    ,DELETE        ,6    ,remdel  ,com.01
  113.     command    remlst    ,DIRECTORY    ,2    ,remdir
  114.     command    remlst    ,HELP        ,1    ,remhlp
  115.     command    remlst    ,HOST        ,2    ,remhos  ,com.06
  116.     command    remlst    ,LOGIN        ,1    ,remlgi  ,com.08
  117.     command    remlst    ,RENAME        ,1    ,rmtren  ,com.02
  118.     command    remlst    ,SPACE        ,1    ,remspa
  119.     command    remlst    ,TYPE        ,1    ,remtyp  ,com.01
  120.     command    remlst    ,WHO        ,1    ,remwho
  121.     command    remlst
  122.  
  123.     .end
  124.