home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pdp11 / k11std.mac < prev    next >
Text File  |  2020-01-01  |  5KB  |  110 lines
  1.     .title    K11STD    overlay for SET command prompting and parsing
  2.     .ident    /2.37/
  3.  
  4. ;    23-Oct-85  09:44:20  BDN    Creation, removed from K11COM
  5. ;
  6. ;    Copyright (C) 1985 Change Software, Inc.
  7. ;
  8. ;     Place the main command list in  an overlay
  9. ;    Call LOACMD  to get the overlay  loaded and
  10. ;    return the command list address in r0. Also
  11. ;    do the same thing for REMOTE commands via a
  12. ;    call to LOAREM.
  13. ;     If it should happen that this should cause
  14. ;    a problem due to overlays overwritting this
  15. ;    routine then simply put this into the root.
  16.  
  17.  
  18.  
  19.  
  20.     .if ndf, K11INC
  21.     .ift
  22.     .include    /IN:K11MAC.MAC/
  23.     .include    /IN:K11CDF.MAC/
  24.     .endc
  25.  
  26.     .iif ndf, k11inc, .error    ; INCLUDE missing for K11MAC.MAC
  27.  
  28.  
  29.  
  30.  
  31.     .psect    $code
  32.  
  33. loaset::mov    #setcmd    ,r0
  34.     return
  35.  
  36.  
  37.     $cmglob    =    1
  38.  
  39. command    setcmd    ,ATTRIBUTES,3       ,set$at,<On or Off ? >,string
  40. command    setcmd    ,BAUD    ,3       ,set$sp,<Speed for remote link ? >,decnum
  41. command    setcmd    ,BINARY-TYPE,3       ,set$bi,<Binary file type ? >,string
  42. command    setcmd    ,BINARY_TYPE,3       ,set$bi,<Binary file type ? >,string
  43. command    setcmd    ,BLOCK-CHECK-TYPE,3,set$bl,<Type ? >,string
  44. command    setcmd    ,BLOCK_CHECK_TYPE,3,set$bl,<Type ? >,string
  45. command setcmd    ,CONSOLE,3       ,set$co,<7 or 8 bit ? >,string
  46. command    setcmd    ,DEBUG    ,3       ,set$de,<What: >,string
  47. command    setcmd    ,DEFAULT,3       ,set$df,<Directory ? >,string
  48. command    setcmd    ,DELAY    ,3       ,set$dl,<Seconds to wait ? >,decnum
  49. command    setcmd    ,DIAL    ,3       ,set$di,<Option: >,string
  50. command    setcmd    ,DIRECTORY,3       ,set$df,<Directory ? >,string
  51. command    setcmd    ,DTR    ,3       ,set$dt
  52. command    setcmd    ,DUPLEX    ,3       ,set$du,<Half or Full ? >,string
  53. command    setcmd    ,END-OF-LINE,3       ,set$eo,<Octal value ? >,octnum
  54. command    setcmd    ,END_OF_LINE,3       ,set$eo,<Octal value ? >,octnum
  55. command    setcmd    ,EOF    ,3       ,set$ef,<Exit or NoExit ? >,string
  56. command    setcmd    ,ESCAPE    ,3       ,set$es,<Octal value ? >,octnum
  57. command    setcmd    ,FILETYPE,3       ,set$fi,<Binary or Ascii ? >,string
  58. command    setcmd    ,FILE_TYPE,3       ,set$fi,<Binary or Ascii ? >,string
  59. command    setcmd    ,FILE-TYPE,3       ,set$fi,<Binary or Ascii ? >,string
  60. command    setcmd    ,HANDSHAKE,3       ,set$ha,<Type ? >,string
  61. command    setcmd    ,HAND_SHAKE,3       ,set$ha,<Type ? >,string
  62. command    setcmd    ,HAND-SHAKE,3       ,set$ha,<Type ? >,string
  63. command    setcmd    ,HOME    ,3       ,set$ho
  64. command    setcmd    ,IBM    ,3       ,set$ib,<ON or OFF ? >,string
  65. command    setcmd    ,LINE    ,3       ,set$li,<Device name ? >,string
  66. command    setcmd    ,LOCAL    ,3       ,set$lc,<Local echo ON or OFF ? >,string
  67. command    setcmd    ,LOGFILE,3       ,set$lo,<Logfile name ? >,string
  68. command    setcmd    ,LOG_FILE,3       ,set$lo,<Logfile name ? >,string
  69. command    setcmd    ,LOG-FILE,3       ,set$lo,<Logfile name ? >,string
  70. command    setcmd    ,LOGOUT    ,3       ,set$ls,<Logout string ? >,string
  71. command    setcmd    ,LONG_PACKETS,3    ,set$lp,<Long Packets ON or OFF ? >,string
  72. command    setcmd    ,MODEM-TYPE,3       ,set$mo,<Modem type ? >,string
  73. command    setcmd    ,MODEM_TYPE,3       ,set$mo,<Modem type ? >,string
  74. command    setcmd    ,NOATTRIBUTES,4       ,st$nat
  75. command    setcmd    ,NODEBUG,4       ,sd$off
  76. command    setcmd    ,NOLONG_PACKETS,4  ,st$nlp
  77. command    setcmd    ,NOQUIET,3       ,set$nq
  78. command    setcmd    ,NOUPDATE,4       ,set$nu
  79. command    setcmd    ,PARITY    ,3       ,set$pa,<Odd/Even or None ? >,string
  80. command    setcmd    ,PAUSE    ,3       ,set$ps,<Seconds to delay packets ? >,decnum
  81. command    setcmd    ,PHONE    ,2       ,set$ph,<Option: >,string
  82. command    setcmd    ,POS    ,2       ,set$po,<Option: >,string
  83. command    setcmd    ,PROMPT    ,3       ,set$pr,<Kermit Prompt ? >,string
  84. command    setcmd    ,QUIET    ,3       ,set$qu
  85. command    setcmd    ,RANDOM    ,3       ,set$ra,<On or Off ? >,string
  86. command    setcmd    ,RECEIVE,3       ,set$rc,<Option: >,string
  87. command    setcmd    ,RECORD__FORMAT,4  ,set$rf,<Stream or Variable ? >,string
  88. command    setcmd    ,RECORD-FORMAT,4   ,set$rf,<Stream or Variable ? >,string
  89. command setcmd    ,REPEAT    ,3       ,set$rp,<To:   >,string
  90. command setcmd    ,REPEAT_CHAR,3       ,set$rp,<To:   >,string
  91. command setcmd    ,REPEAT-CHAR,3       ,set$rp,<To:   >,string
  92. command    setcmd    ,RETRY    ,3       ,set$re,<NAK retry count ? >,decnum
  93. command    setcmd    ,RSX    ,2       ,set$rx,<Option: >,string
  94. command    setcmd    ,RT11    ,2       ,set$rt,<Option: >,string
  95. command    setcmd    ,SEED    ,3       ,set$se,<Random seed ? >,decnum
  96. command    setcmd    ,SEND    ,3       ,set$sn,<Option: >,string
  97. command    setcmd    ,SPEED    ,3       ,set$sp,<Speed for link ? >,decnum
  98. command    setcmd    ,SERVER    ,3       ,set$sv,<Option: >,string
  99. command    setcmd    ,START_OF_PACKET,3 ,set$so,<Octal (1-36) ? >,octnum
  100. command    setcmd    ,START-OF-PACKET,3 ,set$so,<Octal (1-36) ? >,octnum
  101. command    setcmd    ,TERMINAL,3       ,set$tt,<Type ? >,string
  102. command    setcmd    ,TIMEOUT,3       ,set$ti,<Timeout ? >,decnum
  103. command    setcmd    ,TIME-OUT,3       ,set$ti,<Timeout ? >,decnum
  104. command    setcmd    ,TIME_OUT,3       ,set$ti,<Timeout ? >,decnum
  105. command setcmd    ,WINDOW  ,2       ,set$wi
  106. command    setcmd    ,UPDATE    ,2       ,set$up,<Update interval ? >,decnum
  107. command    setcmd
  108.  
  109.     .end
  110.