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