home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / os968ka / k6ostr.asm < prev    next >
Assembly Source File  |  2020-01-01  |  13KB  |  314 lines
  1.           nam       Kermit68K
  2.           ttl       Character strings module
  3.  
  4. *         Kermit68K: source file K68STR
  5. *
  6. * Author: Roberto Bagnara (Bagnara@Iboinfn.Bitnet),
  7. * Bologna University, Physics Department, July 1987.
  8. *
  9. * All rights reserved to Bologna University, Italy.
  10. *
  11. * Permission is granted to any individual or institution
  12. * to use, copy, or redistribute this software so long as
  13. * it  is not  sold for  profit, provided  this copyright
  14. * notice is retained.
  15. *
  16. * Modification History:
  17. *
  18. * Version  Date    Who              Comments
  19. *
  20. * 1.0.00   870701  Roberto Bagnara  First official release
  21.  
  22.           use       DefsFile
  23.  
  24. Edition   equ       0
  25.           psect     K68Strings,0,0,Edition,0,0
  26.  
  27. *** Strings from the K68SystemPart module ***
  28.  
  29. ConLinNm: DC.B      "/Term",Asc_Nul         Console line name
  30. DefLinNm: DC.B      "/T1",Asc_Nul           Default line name for connect
  31. DefPrmpt: DC.B      "Kermit68K> ",Asc_Nul   Default prompt string
  32. InitFile: DC.B      "Kermit.ini",Asc_Nul    Init file name
  33.  
  34. *** Strings from the K68Commands module ***
  35.  
  36. StLnFStr: DC.B      "You must 'set line' before issuing this command"
  37.           DC.B      Asc_CR,Asc_LF,Asc_Nul
  38.  
  39. NoCopStr: DC.B      "Can't copy file(s)",Asc_Nul
  40. NoCWDStr: DC.B      "Can't change working directory",Asc_Nul
  41. NoDelStr: DC.B      "Can't delete file(s)",Asc_Nul
  42. NoDirStr: DC.B      "Can't list directory",Asc_Nul
  43. NoPriStr: DC.B      "Can't print file(s)",Asc_Nul
  44. NoRenStr: DC.B      "Can't rename file(s)",Asc_Nul
  45. NoSpaStr: DC.B      "Can't show disk usage",Asc_Nul
  46. NoTypStr: DC.B      "Can't type file(s)",Asc_Nul
  47. NoSyCStr: DC.B      "Can't forward command to system",Asc_Nul
  48.  
  49. TFNDpStr: DC.B      "?Take files nested too deeply",Asc_Nul
  50. MsFSpStr: DC.B      "?Missing file specification",Asc_Nul
  51.  
  52. KerCmStr: DC.B      Asc_LF,"Kermit68K commands:"
  53.           DC.B      Asc_CR,Asc_LF,Asc_LF,Asc_Nul
  54. MacCmStr: DC.B      Asc_LF,"User defined macros:"
  55.           DC.B      Asc_CR,Asc_LF,Asc_LF,Asc_Nul
  56. NoMacStr: DC.B      Asc_LF,"There are no user defined macros."
  57.           DC.B      Asc_CR,Asc_LF,Asc_LF,Asc_Nul
  58.  
  59. MNstAStr: DC.B      "?Can't nest macro definitions",Asc_Nul
  60. MsMcNStr: DC.B      "?Missing macro name",Asc_Nul
  61. UnkMcStr: DC.B      "?Unknown macro",Asc_Nul
  62.  
  63. ConnStr1: DC.B      Asc_CR,Asc_LF
  64.           DC.B      "Connecting thru ",Asc_Nul
  65. ConnStr2: DC.B      Asc_CR,Asc_LF
  66.           DC.B      "Connected thru ",Asc_Nul
  67. ConnStr3: DC.B      ", speed ",Asc_Nul
  68. ConnStr5: DC.B      Asc_CR,Asc_LF
  69.           DC.B      "The escape character is ",Asc_Nul
  70. ConnStr6: DC.B      ")",Asc_CR,Asc_LF
  71.           DC.B      "Type the escape character followed by C to get"
  72.           DC.B      Asc_CR,Asc_LF
  73.           DC.B      "back, or followed by ? to see other options."
  74.           DC.B      Asc_CR,Asc_LF,Asc_LF,Asc_Nul
  75. ConnStr7: DC.B      Asc_CR,Asc_LF,Asc_LF
  76.           DC.B      "Kermit68K disconnected."
  77.           DC.B      Asc_CR,Asc_LF,Asc_Nul
  78. ConnStr8: DC.B      Asc_CR,Asc_LF,Asc_LF
  79.           DC.B      "C to close the connection, or:"
  80.           DC.B      Asc_CR,Asc_LF
  81.           DC.B      "  0 (zero) to send a NULL"
  82.           DC.B      Asc_CR,Asc_LF
  83.           DC.B      "  B to send a BREAK"
  84.           DC.B      Asc_CR,Asc_LF
  85.           DC.B      "  H to hangup and close connection"
  86.           DC.B      Asc_CR,Asc_LF
  87.           DC.B      "  S for status"
  88.           DC.B      Asc_CR,Asc_LF
  89.           DC.B      "  ? for help"
  90.           DC.B      Asc_CR,Asc_LF
  91.           DC.B      " escape character twice to send the escape character."
  92.           DC.B      Asc_CR,Asc_LF,Asc_LF,Asc_Nul
  93.  
  94. StatStr1: DC.B      "Statistics                Transaction       Total"
  95.           DC.B      Asc_CR,Asc_LF
  96.           DC.B      " Characters sent         ",Asc_Nul
  97. StatStr2: DC.B      " Data characters sent    ",Asc_Nul
  98. StatStr3: DC.B      " NAKs received           ",Asc_Nul
  99. StatStr4: DC.B      " Packets sent            ",Asc_Nul
  100. StatStr5: DC.B      " Characters received     ",Asc_Nul
  101. StatStr6: DC.B      " Data characters received",Asc_Nul
  102. StatStr7: DC.B      " NAKs sent               ",Asc_Nul
  103. StatStr8: DC.B      " Packets received        ",Asc_Nul
  104.  
  105. *** Strings from the K68Commands2 module ***
  106.  
  107. OpLnEStr: DC.B      "Can't open line",Asc_Nul
  108. UnsBRStr: DC.B      "?Unsupported baud rate",Asc_Nul
  109. SetCtStr: DC.B      "?Not in ASCII control range",Asc_Nul
  110.  
  111. *** Strings from the K68Commands3 module ***
  112.  
  113. Rm1FOStr: DC.B      "?A file specification is required"
  114.           DC.B      Asc_CR,Asc_LF,Asc_Nul
  115. Rm2FOStr: DC.B      "?Two file specifications are required"
  116.           DC.B      Asc_CR,Asc_LF,Asc_Nul
  117.  
  118. VersStr:  DC.B      Asc_CR,Asc_LF
  119.           DC.B      "Kermit68K version 1.0.00 from 01 July 1987"
  120.           DC.B      Asc_CR,Asc_LF,Asc_LF
  121.           DC.B      Asc_Nul
  122.  
  123. ShVerStr: DC.B      "Warning, this is a preliminary version, for any"
  124.           DC.B      Asc_CR,Asc_LF
  125.           DC.B      "problem or suggestion please contact the author:"
  126.           DC.B      Asc_CR,Asc_LF,Asc_LF
  127.           DC.B      "Roberto Bagnara        Bitnet address Bagnara@Iboinfn"
  128.           DC.B      Asc_CR,Asc_LF
  129.           DC.B      "Physics Department     DECnet address 39937::BAGNARA"
  130.           DC.B      Asc_CR,Asc_LF
  131.           DC.B      "Bologna University"
  132.           DC.B      Asc_CR,Asc_LF,Asc_LF
  133.           DC.B      "OS-9/68000 Modifications by:"
  134.           DC.B      Asc_CR,Asc_LF
  135.           DC.B      "Steve Williams         Arpanet address "
  136.           DC.B      "stevew@sally.utexas.edu"
  137.           DC.B      Asc_CR,Asc_LF,Asc_LF,Asc_Nul
  138.  
  139. ShPStr1:  DC.B      Asc_CR,Asc_LF
  140.           DC.B      "Communications Parameters:"
  141.           DC.B      Asc_CR,Asc_LF
  142.           DC.B      " Line: ",Asc_Nul
  143. ShPStr2:  DC.B      ", speed: ",Asc_Nul
  144. ShPStr3:  DC.B      "unknown",Asc_Nul
  145. ShPStr4:  DC.B      ", mode: ",Asc_Nul
  146. ShPStr5:  DC.B      "local",Asc_Nul
  147. ShPStr6:  DC.B      "remote",Asc_Nul
  148. ShPStr7:  DC.B      Asc_CR,Asc_LF
  149.           DC.B      " Parity: ",Asc_Nul
  150. ShPStr8:  DC.B      "even",Asc_Nul
  151. ShPStr9:  DC.B      "odd",Asc_Nul
  152. ShPStr10: DC.B      "mark",Asc_Nul
  153. ShPStr11: DC.B      "space",Asc_Nul
  154. ShPStr12: DC.B      "none",Asc_Nul
  155. ShPStr13: DC.B      ", duplex: ",Asc_Nul
  156. ShPStr14: DC.B      "half, ",Asc_Nul
  157. ShPStr15: DC.B      "full, ",Asc_Nul
  158. ShPStr16: DC.B      "flow: ",Asc_Nul
  159. ShPStr17: DC.B      "xon/xoff",Asc_Nul
  160. ShPStr18: DC.B      ", handshake: ",Asc_Nul
  161. ShPStr19: DC.B      Asc_CR,Asc_LF,Asc_LF
  162.           DC.B      "Protocol Parameters:   Send    Receive",Asc_Nul
  163. ShPStr20: DC.B      "    (* = override)",Asc_Nul
  164. ShPStr21: DC.B      Asc_CR,Asc_LF," Timeout:      ",Asc_Nul
  165. ShPStr22: DC.B      Asc_CR,Asc_LF," Padding:      ",Asc_Nul
  166. ShPStr23: DC.B      Asc_CR,Asc_LF," Pad Character:",Asc_Nul
  167. ShPStr24: DC.B      Asc_CR,Asc_LF," Packet Start: ",Asc_Nul
  168. ShPStr25: DC.B      Asc_CR,Asc_LF," Packet End:   ",Asc_Nul
  169. ShPStr26: DC.B      Asc_CR,Asc_LF," Packet Length:",Asc_Nul
  170. ShPStr27: DC.B      Asc_CR,Asc_LF
  171.           DC.B      Asc_CR,Asc_LF,"Block Check Type: ",Asc_Nul
  172. ShPStr28: DC.B      ", Delay: ",Asc_Nul
  173. ShPStr29: DC.B      Asc_CR,Asc_LF
  174.           DC.B      "Retry Limits: Initial ",Asc_Nul
  175. ShPStr30: DC.B      ", Normal ",Asc_Nul
  176. ShPStr31: DC.B      Asc_CR,Asc_LF,"8th-Bit Prefix:      ",Asc_Nul
  177. ShPStr32: DC.B      Asc_CR,Asc_LF,"Repeat-Count Prefix: ",Asc_Nul
  178. ShPStr33: DC.B      Asc_CR,Asc_LF,Asc_LF
  179.           DC.B      "File parameters:",Asc_CR,Asc_LF
  180.           DC.B      " File Names:   ",Asc_Nul
  181. ShPStr34: DC.B      "converted",Asc_Nul
  182. ShPStr35: DC.B      "literal",Asc_Nul
  183. ShPStr36: DC.B      Asc_CR,Asc_LF," File Type:    ",Asc_Nul
  184. ShPStr37: DC.B      "binary",Asc_Nul
  185. ShPStr38: DC.B      "text",Asc_Nul
  186. ShPStr39: DC.B      Asc_CR,Asc_LF," File Warning: ",Asc_Nul
  187. ShPStr40: DC.B      "on",Asc_Nul
  188. ShPStr41: DC.B      "off",Asc_Nul
  189. ShPStr42: DC.B      Asc_CR,Asc_LF," File Display: ",Asc_Nul
  190. ShPStr43: DC.B      Asc_CR,Asc_LF,"Incomplete File Disposition: ",Asc_Nul
  191. ShPStr44: DC.B      "keep",Asc_Nul
  192. ShPStr45: DC.B      "discard",Asc_Nul
  193. ShPStr46: DC.B      ", Init file: ",Asc_Nul
  194. ShPStr47: DC.B      "   Packet Log:       ",Asc_Nul
  195.  
  196. *** Strings from the K68Commands4 module ***
  197.  
  198. LBReqStr: DC.B      "?-l and -b required",Asc_CR,Asc_LF,Asc_Nul
  199. ABadUStr: DC.B      "?-a without -s, -r, or -g"
  200. CnfAcStr: DC.B      "?Conflicting commands",Asc_CR,Asc_LF,Asc_Nul
  201. MsFlNStr: DC.B      "?Missing file name",Asc_CR,Asc_LF,Asc_Nul
  202. MisLNStr: DC.B      "?Communication line device name missing"
  203.           DC.B      Asc_CR,Asc_LF,Asc_Nul
  204. UnOpLStr: DC.B      "?Unable to open the requested line"
  205.           DC.B      Asc_CR,Asc_LF,Asc_Nul
  206. InvABStr: DC.B      "?Invalid argument bundling",Asc_CR,Asc_LF,Asc_Nul
  207. InvArStr: DC.B      "?Invalid argument, type 'kermit -h' for help"
  208.           DC.B      Asc_CR,Asc_LF,Asc_Nul
  209.  
  210. UsageStr: DC.B      Asc_CR,Asc_LF
  211.           DC.B      "  Usage: kermit [-x arg [-x arg]...[-yyy]...]]"
  212.           DC.B      Asc_CR,Asc_LF
  213.           DC.B      "   x is an option that requires an argument,"
  214.           DC.B      " y an option with no argument:"
  215.           DC.B      Asc_CR,Asc_LF
  216.           DC.B      "     commands (* options also require -l and -b) --"
  217.           DC.B      Asc_CR,Asc_LF
  218.           DC.B      "       -s file(s)   send "
  219.           DC.B      Asc_CR,Asc_LF
  220.           DC.B      "       -r           receive"
  221.           DC.B      Asc_CR,Asc_LF
  222.           DC.B      "       -k           receive to terminal"
  223.           DC.B      Asc_CR,Asc_LF
  224.           DC.B      "     * -g file(s)   get remote file(s) from server"
  225.           DC.B      Asc_CR,Asc_LF
  226.           DC.B      "       -a name      alternate name, used with -s, -r, -g"
  227.           DC.B      Asc_CR,Asc_LF
  228.           DC.B      "     * -f           finish remote server"
  229.           DC.B      Asc_CR,Asc_LF
  230.           DC.B      "       -h           help - type this message"
  231.           DC.B      Asc_CR,Asc_LF
  232.           DC.B      "     settings --"
  233.           DC.B      Asc_CR,Asc_LF
  234.           DC.B      "       -l line      communication line device"
  235.           DC.B      Asc_CR,Asc_LF
  236.           DC.B      "       -b baud      line speed, e.g. 1200"
  237.           DC.B      Asc_CR,Asc_LF
  238.           DC.B      "       -i           binary file"
  239.           DC.B      Asc_CR,Asc_LF
  240.           DC.B      "       -p x         parity, x is one of e,o,m,s,n"
  241.           DC.B      Asc_CR,Asc_LF
  242.           DC.B      "       -t           line turnaround handshake = xon,"
  243.           DC.B      " half duplex"
  244.           DC.B      Asc_CR,Asc_LF
  245.           DC.B      "       -w           don't write over preexisting files"
  246.           DC.B      Asc_CR,Asc_LF
  247.           DC.B      "       -q           be quiet during file transfer"
  248.           DC.B      Asc_CR,Asc_LF
  249.           DC.B      " If no command is included, enter interactive mode"
  250.           DC.B      Asc_CR,Asc_LF,Asc_Nul
  251.  
  252. *** Strings from the K68IOFunctions module ***
  253.  
  254. FlCmdStr: DC.B      "Error reading take file",Asc_CR,Asc_LF,Asc_Nul
  255.  
  256. CnBchStr: DC.B      "^Z - Cancelling Batch ",Asc_Nul
  257. CnFilStr: DC.B      "^X - Cancelling File ",Asc_Nul
  258. ReSndStr: DC.B      "^R - Resending ",Asc_Nul
  259.  
  260. ScrnStr1: DC.B      "Sending ",Asc_Nul
  261. ScrnStr2: DC.B      "Receiving ",Asc_Nul
  262. ScrnStr3: DC.B      "as ",Asc_Nul
  263. ScrnStr4: DC.B      " [OK]",Asc_CR,Asc_LF,Asc_Nul
  264. ScrnStr5: DC.B      " [discarded]",Asc_CR,Asc_LF,Asc_Nul
  265. ScrnStr6: DC.B      " [interrupted]",Asc_CR,Asc_LF,Asc_Nul
  266. ScrnStr7: DC.B      "Skipping ",Asc_Nul
  267.  
  268. *** Strings from the K68Protocol module ***
  269.  
  270. CCndLStr: DC.B      "Can't condition line",Asc_Nul
  271. StSpeStr: DC.B      "Sorry, you must 'set speed' first",Asc_Nul
  272.  
  273. ErFRHStr: DC.B      "Error from remote host :",Asc_CR,Asc_LF,Asc_Nul
  274. TooMTStr: DC.B      "Too many tries, last error is ",Asc_Nul
  275. NAKRcStr: DC.B      "'NAK packet received'",Asc_Nul
  276. TimLEStr: DC.B      "'timeout limit expired'",Asc_Nul
  277. GbPRcStr: DC.B      "'garbled packet received'",Asc_Nul
  278. POuOSStr: DC.B      "'packet out of sequence'",Asc_Nul
  279. UkUxPStr: DC.B      "Unknown or unexpected packet type",Asc_Nul
  280.  
  281. FNFStr:   DC.B      "File not found",Asc_Nul
  282. TMFStr:   DC.B      "Too many files",Asc_Nul
  283. NRFStr:   DC.B      "No readable file to send",Asc_Nul
  284.  
  285. FlOErStr: DC.B      "Can't open file",Asc_Nul
  286.  
  287. NoNamStr: DC.B      "NONAME",Asc_Nul
  288. FlCrEStr: DC.B      "Can't create file",Asc_Nul
  289.  
  290. *** Strings from the K68ParserSubs module ***
  291.  
  292. PrNmStr1: DC.B      "?Invalid number specification",Asc_Nul
  293. PrNmStr2: DC.B      "?Number out of range",Asc_Nul
  294. PrNmStr3: DC.B      "?Number specification expected",Asc_Nul
  295.  
  296. PrKyStr1: DC.B      "?Unrecognized ",Asc_Nul
  297. PrKyStr2: DC.B      "?Ambiguous ",Asc_Nul
  298. PrKyStr3: DC.B      "?Missing ",Asc_Nul
  299.  
  300. PrIFStr1: DC.B     "?File not found",Asc_Nul
  301. PrIFStr2: DC.B     "?File not readable",Asc_Nul
  302. PrIFStr3: DC.B     "?Read permission denied",Asc_Nul
  303. PrIFStr4: DC.B     "?No files match",Asc_Nul
  304. PrIFStr5: DC.B     "?Too many files match",Asc_Nul
  305.  
  306. POuFStr1: DC.B     "?Wildcards not allowed",Asc_Nul
  307. POuFStr2: DC.B     "?Write permission denied",Asc_Nul
  308.  
  309. PrErStr1: DC.B      " - ",Asc_Nul
  310.  
  311.           align                        Following code aligned on word boundary
  312.           ends
  313.           END
  314.