home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / os968ka / k6octb.asm < prev    next >
Assembly Source File  |  2020-01-01  |  15KB  |  409 lines
  1.           nam       Kermit68K
  2.           ttl       Commands keywords tables module
  3.  
  4. *         Kermit68K: source file K68CTB
  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     K68CmdTables,0,0,Edition,0,0
  26.  
  27. * Values associated with top-level commands.
  28.  
  29. CmdBYE    EQU       0                  BYE
  30. CmdCONCT  EQU       1                  CONNECT
  31. CmdCOPY   EQU       2                  COPY
  32. CmdCWD    EQU       3                  CWD (Change Working Directory)
  33. CmdDEFIN  EQU       4                  DEFINE (a command macro)
  34. CmdDELET  EQU       5                  (Local) DELETE
  35. CmdDIR    EQU       6                  (Local) DIRECTORY
  36. CmdECHO   EQU       7                  ECHO
  37. CmdEXIT   EQU       8                  EXIT
  38. CmdFINSH  EQU       9                  FINISH
  39. CmdGET    EQU      10                  GET
  40. CmdHELP   EQU      11                  HELP
  41. CmdLIST   EQU      12                  LIST
  42. CmdPRINT  EQU      13                  (Local) PRINT
  43. CmdRCEIV  EQU      14                  RECEIVE
  44. CmdREMOT  EQU      15                  REMOTE
  45. CmdRENAM  EQU      16                  (Local) RENAME
  46. CmdSEND   EQU      17                  SEND
  47. CmdSET    EQU      18                  SET
  48. CmdSHOW   EQU      19                  SHOW
  49. CmdSPACE  EQU      20                  (Local) SPACE
  50. CmdSTATS  EQU      21                  STATISTICS
  51. CmdTAKE   EQU      22                  TAKE
  52. CmdTYPE   EQU      23                  (Local) TYPE
  53. CmdCOMMN  EQU      24                  Comment
  54. CmdSYSC   EQU      25                  System command
  55.  
  56. * Top-level commands string table.
  57.  
  58. CmdTable: DC.B      CmdBYE,"BYE",Asc_Nul
  59.           DC.B      CmdCONCT,"C",Asc_Nul
  60.           DC.B      CmdCONCT,"CONNECT",Asc_Nul
  61.           DC.B      CmdCOPY,"COPY",Asc_Nul
  62.           DC.B      CmdCWD,"CWD",Asc_Nul
  63.           DC.B      CmdDEFIN,"DEFINE",Asc_Nul
  64.           DC.B      CmdDELET,"DELETE",Asc_Nul
  65.           DC.B      CmdDIR,"DIRECTORY",Asc_Nul
  66.           DC.B      CmdECHO,"ECHO",Asc_Nul
  67.           DC.B      CmdEXIT,"EXIT",Asc_Nul
  68.           DC.B      CmdFINSH,"FINISH",Asc_Nul
  69.           DC.B      CmdGET,"GET",Asc_Nul
  70.           DC.B      CmdHELP,"HELP",Asc_Nul
  71.           DC.B      CmdLIST,"LIST",Asc_Nul
  72.           DC.B      CmdPRINT,"PRINT",Asc_Nul
  73.           DC.B      CmdEXIT,"QUIT",Asc_Nul
  74.           DC.B      CmdRCEIV,"R",Asc_Nul
  75.           DC.B      CmdRCEIV,"RECEIVE",Asc_Nul
  76.           DC.B      CmdREMOT,"REMOTE",Asc_Nul
  77.           DC.B      CmdRENAM,"RENAME",Asc_Nul
  78.           DC.B      CmdSEND,"S",Asc_Nul
  79.           DC.B      CmdSEND,"SEND",Asc_Nul
  80.           DC.B      CmdSET,"SET",Asc_Nul
  81.           DC.B      CmdSHOW,"SHOW",Asc_Nul
  82.           DC.B      CmdSPACE,"SPACE",Asc_Nul
  83.           DC.B      CmdSTATS,"STATISTICS",Asc_Nul
  84.           DC.B      CmdTAKE,"TAKE",Asc_Nul
  85.           DC.B      CmdTYPE,"TYPE",Asc_Nul
  86.           DC.B      CmdCOMMN,"%",Asc_Nul
  87.           DC.B      CmdSYSC,"!",Asc_Nul
  88.           DC.B      -1
  89.           DC.B      "command verb",Asc_Nul
  90.  
  91. * Top-level commands jump table.
  92.  
  93. DoCmdTab: DC.W      DoBYE-DoCmdTab     CmdBYE
  94.           DC.W      DoCONN-DoCmdTab    CmdCONCT
  95.           DC.W      DoCOPY-DoCmdTab    CmdCOPY
  96.           DC.W      DoCWD-DoCmdTab     CmdCWD
  97.           DC.W      DoDEFN-DoCmdTab   CmdDEFIN
  98.           DC.W      DoDELETE-DoCmdTab  CmdDELET
  99.           DC.W      DoDIR-DoCmdTab     CmdDIR
  100.           DC.W      DoECHO-DoCmdTab    CmdECHO
  101.           DC.W      DoEXIT-DoCmdTab    CmdEXIT
  102.           DC.W      DoFINISH-DoCmdTab  CmdFINSH
  103.           DC.W      DoGET-DoCmdTab     CmdGET
  104.           DC.W      DoHELP-DoCmdTab    CmdHELP
  105.           DC.W      DoLIST-DoCmdTab    CmdLIST
  106.           DC.W      DoPRINT-DoCmdTab   CmdPRINT
  107.           DC.W      DoRECVE-DoCmdTab   CmdRCEIV
  108.           DC.W      DoREMOT-DoCmdTab   CmdREMOT
  109.           DC.W      DoRENAME-DoCmdTab  CmdRENAM
  110.           DC.W      DoSEND-DoCmdTab    CmdSEND
  111.           DC.W      DoSET-DoCmdTab     CmdSET
  112.           DC.W      DoSHOW-DoCmdTab    CmdSHOW
  113.           DC.W      DoSPACE-DoCmdTab   CmdSPACE
  114.           DC.W      DoSTATS-DoCmdTab   CmdSTATS
  115.           DC.W      DoTAKE-DoCmdTab    CmdTAKE
  116.           DC.W      DoTYPE-DoCmdTab    CmdTYPE
  117.           DC.W      DoCOMMNT-DoCmdTab  CmdCOMMN
  118.           DC.W      DoSYSCMD-DoCmdTab  CmdSYSC
  119.  
  120. * Values associated with SET command qualifiers.
  121.  
  122. SetBCHKT  EQU       0                  Block check type
  123. SetDELAY  EQU       1                  Delay
  124. SetDUPLX  EQU       2                  Duplex
  125. SetESCAP  EQU       3                  Escape character
  126. SetFILE   EQU       4                  File Parameters
  127. SetFLOW   EQU       5                  Flow Control
  128. SetHNDSH  EQU       6                  Handshake
  129. SetINCFD  EQU       7                  Incomplete File Disposition
  130. SetLINE   EQU       8                  Communication line to use
  131. SetPRITY  EQU       9                  Parity
  132. SetPRMPT  EQU      10                  Program prompt string
  133. SetRETRY  EQU      11                  Retry limits
  134. SetSPEED  EQU      12                  Line speed (baud rate)
  135. SetSEND   EQU      13                  SEND parameters
  136. SetRCEIV  EQU      14                  RECEIVE parameters
  137.  
  138. * SET command qualifiers string table.
  139.  
  140. SETTable: DC.B      SetSPEED,"BAUD",Asc_Nul
  141.           DC.B      SetBCHKT,"BLOCK_CHECK_TYPE",Asc_Nul
  142.           DC.B      SetDELAY,"DELAY",Asc_Nul
  143.           DC.B      SetDUPLX,"DUPLEX",Asc_Nul
  144.           DC.B      SetESCAP,"ESCAPE_CHARACTER",Asc_Nul
  145.           DC.B      SetFILE,"FILE",Asc_Nul
  146.           DC.B      SetFLOW,"FLOW_CONTROL",Asc_Nul
  147.           DC.B      SetHNDSH,"HANDSHAKE",Asc_Nul
  148.           DC.B      SetINCFD,"INCOMPLETE_FILE_DISPOSITION",Asc_Nul
  149.           DC.B      SetLINE,"LINE",Asc_Nul
  150.           DC.B      SetPRITY,"PARITY",Asc_Nul
  151.           DC.B      SetPRMPT,"PROMPT",Asc_Nul
  152.           DC.B      SetRCEIV,"RECEIVE",Asc_Nul
  153.           DC.B      SetRETRY,"RETRY",Asc_Nul
  154.           DC.B      SetSEND,"SEND",Asc_Nul
  155.           DC.B      SetSPEED,"SPEED",Asc_Nul
  156.           DC.B      -1
  157.           DC.B      "SET option or parameter",Asc_Nul
  158.  
  159. * SET command qualifiers jump table.
  160.  
  161. DoSetTab: DC.W      DoStBCT-DoSetTab   SetBCHKT
  162.           DC.W      DoStDLAY-DoSetTab  SetDELAY
  163.           DC.W      DoStDUP-DoSetTab   SetDUPLX
  164.           DC.W      DoSetESC-DoSetTab  SetESCAP
  165.           DC.W      DoSFILE-DoSetTab   SetFILE
  166.           DC.W      DoStFLW-DoSetTab   SetFLOW
  167.           DC.W      DoStHND-DoSetTab   SetHNDSH
  168.           DC.W      DoStIFD-DoSetTab   SetINCFD
  169.           DC.W      DoStLIN-DoSetTab   SetLINE
  170.           DC.W      DoStPAR-DoSetTab   SetPRITY
  171.           DC.W      DoStPRM-DoSetTab   SetPRMPT
  172.           DC.W      DoSRTRY-DoSetTab   SetRETRY
  173.           DC.W      DoStSPE-DoSetTab   SetSPEED
  174.           DC.W      DoSSEND-DoSetTab   SetSEND
  175.           DC.W      DoSRECV-DoSetTab   SetRCEIV
  176.  
  177. * Values associated with SET SEND/RECEIVE parameters.
  178.  
  179. SetEOL    EQU       0                  End-Of-Line (packet terminator)
  180. SetMARKR  EQU       1                  Start of Packet marker
  181. SetMXPLN  EQU       2                  Maximum packet length to send
  182. SetNPAD   EQU       3                  Amount of padding
  183. SetPDCHR  EQU       4                  Pad character
  184. SetTMOUT  EQU       5                  Timeout interval
  185.  
  186. * SET SEND/RECEIVE parameters string table.
  187.  
  188. SSRTable: DC.B      SetEOL,"END_OF_LINE",Asc_Nul
  189.           DC.B      SetMARKR,"MARKER",Asc_Nul
  190.           DC.B      SetMXPLN,"PACKET_LENGTH",Asc_Nul
  191.           DC.B      SetNPAD,"PADDING",Asc_Nul
  192.           DC.B      SetPDCHR,"PAD_CHARACTER",Asc_Nul
  193.           DC.B      SetTMOUT,"TIMEOUT",Asc_Nul
  194.           DC.B      -1
  195.           DC.B      "SET SEND/RECEIVE parameter",Asc_Nul
  196.  
  197. * SET SEND parameters jump table.
  198.  
  199. DoSetSTb: DC.W      DoStSEOL-DoSetSTb  SetEOL
  200.           DC.W      DoStSMrk-DoSetSTb  SetMARKR
  201.           DC.W      DoStSMPS-DoSetSTb  SetMXPLN
  202.           DC.W      DoStSPdN-DoSetSTb  SetNPAD
  203.           DC.W      DoStSPdC-DoSetSTb  SetPDCHR
  204.           DC.W      DoStSTIM-DoSetSTb  SetTMOUT
  205.  
  206. * SET RECEIVE parameters jump table.
  207.  
  208. DoSetRTb: DC.W      DoStREOL-DoSetRTb  SetEOL
  209.           DC.W      DoStRMrk-DoSetRTb  SetMARKR
  210.           DC.W      DoStRMPS-DoSetRTb  SetMXPLN
  211.           DC.W      DoStRPdN-DoSetRTb  SetNPAD
  212.           DC.W      DoStRPdC-DoSetRTb  SetPDCHR
  213.           DC.W      DoStRTIM-DoSetRTb  SetTMOUT
  214.  
  215. * Values associated with REMOTE command qualifiers.
  216.  
  217. RemCOPY   EQU       0                  Copy
  218. RemCWD    EQU       1                  Change Working Directory
  219. RemDELET  EQU       2                  Delete
  220. RemDIR    EQU       3                  Directory
  221. RemHELP   EQU       4                  Help
  222. RemHOST   EQU       5                  Host
  223. RemKRMIT  EQU       6                  Kermit
  224. RemPRINT  EQU       7                  Print
  225. RemRENAM  EQU       8                  Rename
  226. RemSET    EQU       9                  SET
  227. RemSPACE  EQU      10                  Space
  228. RemSUBMT  EQU      11                  Submit
  229. RemTYPE   EQU      12                  Type
  230. RemWHO    EQU      13                  Who
  231.  
  232. * REMOTE command qualifiers string table.
  233.  
  234. REMTable: DC.B      RemCOPY,"COPY",Asc_Nul
  235.           DC.B      RemCWD,"CWD",Asc_Nul
  236.           DC.B      RemDELET,"DELETE",Asc_Nul
  237.           DC.B      RemDIR,"DIRECTORY",Asc_Nul
  238.           DC.B      RemHELP,"HELP",Asc_Nul
  239.           DC.B      RemHOST,"HOST",Asc_Nul
  240.           DC.B      RemKRMIT,"KERMIT",Asc_Nul
  241.           DC.B      RemPRINT,"PRINT",Asc_Nul
  242.           DC.B      RemRENAM,"RENAME",Asc_Nul
  243.           DC.B      RemSET,"SET",Asc_Nul
  244.           DC.B      RemSPACE,"SPACE",Asc_Nul
  245.           DC.B      RemSUBMT,"SUBMIT",Asc_Nul
  246.           DC.B      RemTYPE,"TYPE",Asc_Nul
  247.           DC.B      RemWHO,"WHO",Asc_Nul
  248.           DC.B      -1
  249.           DC.B      "REMOTE Kermit server command",Asc_Nul
  250.  
  251. * REMOTE command qualifiers jump table.
  252.  
  253. DoRemTab: DC.W      DoRemCOP-DoRemTab  RemCOPY
  254.           DC.W      DoRmCWD-DoRemTab   RemCWD
  255.           DC.W      DoRemDEL-DoRemTab  RemDELET
  256.           DC.W      DoRmDIR-DoRemTab   RemDIR
  257.           DC.W      DoRmHELP-DoRemTab  RemHELP
  258.           DC.W      DoRemHOS-DoRemTab  RemHOST
  259.           DC.W      DoRemKER-DoRemTab  RemKRMIT
  260.           DC.W      DoRemPRI-DoRemTab  RemPRINT
  261.           DC.W      DoRemREN-DoRemTab  RemRENAM
  262.           DC.W      DoRemSET-DoRemTab  RemSET
  263.           DC.W      DoRmSPA-DoRemTab   RemSPACE
  264.           DC.W      DoRemSUB-DoRemTab  RemSUBMT
  265.           DC.W      DoRemTYP-DoRemTab  RemTYPE
  266.           DC.W      DoRmWHO-DoRemTab   RemWHO
  267.  
  268. * Values associated with SHOW command qualifiers.
  269.  
  270. ShoPARAM  EQU       0                  Parameters
  271. ShoVERS   EQU       1                  Version
  272.  
  273. * SHOW command qualifiers table.
  274.  
  275. SHOWTabl: DC.B      ShoPARAM,"PARAMETERS",Asc_Nul
  276.           DC.B      ShoVERS,"VERSION",Asc_Nul
  277.           DC.B      -1
  278.           DC.B      "SHOW option",Asc_Nul
  279.  
  280. * SHOW command options jump table.
  281.  
  282. DoShoTab: DC.W      DoShoP-DoShoTab    ShoPARAM
  283.           DC.W      DoShoVer-DoShoTab  ShoVERS
  284.  
  285. * Values associated with SET FILE command parameters.
  286.  
  287. SetFDISP  EQU       0                  File display
  288. SetFNAME  EQU       1                  File naming
  289. SetFTYPE  EQU       2                  File type
  290. SetFWARN  EQU       3                  File warning
  291.  
  292. * SET FILE command parameters table.
  293.  
  294. SFILTabl: DC.B      SetFDISP,"DISPLAY",Asc_Nul
  295.           DC.B      SetFNAME,"NAMES",Asc_Nul
  296.           DC.B      SetFTYPE,"TYPE",Asc_Nul
  297.           DC.B      SetFWARN,"WARNING",Asc_Nul
  298.           DC.B      -1
  299.           DC.B      "file parameter",Asc_Nul
  300.  
  301. * SET FILE command parameters jump table.
  302.  
  303. DoSFlTab: DC.W      DoStFDs-DoSFlTab   SetFDISP
  304.           DC.W      DoStFNm-DoSFlTab   SetFNAME
  305.           DC.W      DoStFTp-DoSFlTab   SetFTYPE
  306.           DC.W      DoStFWn-DoSFlTab   SetFWARN
  307.  
  308. * Values associated with SET RETRY command parameters.
  309.  
  310. SetRtINI  EQU       0                  Set retry initial connection packet
  311. SetRtPAK  EQU       1                  Set retry normal packet
  312.  
  313. * SET RETRY command parameters table.
  314.  
  315. SRETTabl: DC.B      SetRtINI,"INITIAL_CONNECTION",Asc_Nul
  316.           DC.B      SetRtPAK,"PACKET",Asc_Nul
  317.           DC.B      -1
  318.           DC.B      "retry parameter",Asc_Nul
  319.  
  320. * SET RETRY command parameters jump table.
  321.  
  322. DoSRtTab: DC.W      DoSetRtI-DoSRtTab  SetRtINI
  323.           DC.W      DoSetRtP-DoSRtTab  SetRtPAK
  324.  
  325. * On/Off specification keyword table.
  326.  
  327. OnOfTabl: DC.B      0,"FALSE",Asc_Nul
  328.           DC.B      0,"OFF",Asc_Nul
  329.           DC.B      0,"NO",Asc_Nul
  330.           DC.B      0,"0",Asc_Nul
  331.           DC.B      1,"TRUE",Asc_Nul
  332.           DC.B      1,"ON",Asc_Nul
  333.           DC.B      1,"YES",Asc_Nul
  334.           DC.B      1,"1",Asc_Nul
  335.           DC.B      -1
  336.           DC.B      "on/off specification",Asc_Nul
  337.  
  338. * Block check specification keyword table.
  339.  
  340. BlCkTabl: DC.B      1,"1",Asc_Nul
  341.           DC.B      1,"ONE",Asc_Nul
  342.           DC.B      2,"2",Asc_Nul
  343.           DC.B      2,"TWO",Asc_Nul
  344.           DC.B      3,"3",Asc_Nul
  345.           DC.B      3,"THREE",Asc_Nul
  346.           DC.B      -1
  347.           DC.B      "block check type specification",Asc_Nul
  348.  
  349. * Parity specification keyword table.
  350.  
  351. ParTable: DC.B      0,"NONE",Asc_Nul
  352.           DC.B      "O","ODD",Asc_Nul
  353.           DC.B      "E","EVEN",Asc_Nul
  354.           DC.B      "M","MARK",Asc_Nul
  355.           DC.B      "S","SPACE",Asc_Nul
  356.           DC.B      -1
  357.           DC.B      "parity specification",Asc_Nul
  358.  
  359. * Incomplete file disposition keyword table.
  360.  
  361. IFlDTabl: DC.B      0,"DISCARD",Asc_Nul
  362.           DC.B      1,"KEEP",Asc_Nul
  363.           DC.B      -1
  364.           DC.B      "incomplete file disposition",Asc_Nul
  365.  
  366. * File type specification keyword table.
  367.  
  368. FTypTabl: DC.B      0,"TEXT",Asc_Nul
  369.           DC.B      1,"BINARY",Asc_Nul
  370.           DC.B      -1
  371.           DC.B      "file type specification",Asc_Nul
  372.  
  373. * File naming specification keyword table.
  374.  
  375. FNamTabl: DC.B      0,"LITERAL",Asc_Nul
  376.           DC.B      1,"CONVERTED",Asc_Nul
  377.           DC.B      -1
  378.           DC.B      "file naming specification",Asc_Nul
  379.  
  380. * Flow control specification keyword table.
  381.  
  382. FlowTabl: DC.B      0,"NONE",Asc_Nul
  383.           DC.B      1,"XON/XOFF",Asc_Nul
  384.           DC.B      -1
  385.           DC.B      "flow control specification",Asc_Nul
  386.  
  387. * Duplex specification keyword table.
  388.  
  389. DuplTabl: DC.B      0,"FULL",Asc_Nul
  390.           DC.B      1,"HALF",Asc_Nul
  391.           DC.B      -1
  392.           DC.B      "duplex specification",Asc_Nul
  393.  
  394. * Handshake characters specification keyword table.
  395.  
  396. HandTabl: DC.B      0,"NONE",Asc_Nul
  397.           DC.B      Asc_Bel,"BELL",Asc_Nul
  398.           DC.B      Asc_LF,"LF",Asc_Nul
  399.           DC.B      Asc_CR,"CR",Asc_Nul
  400.           DC.B      Asc_DC1,"XON",Asc_Nul
  401.           DC.B      Asc_DC3,"XOFF",Asc_Nul
  402.           DC.B      Asc_Esc,"ESC",Asc_Nul
  403.           DC.B      -1
  404.           DC.B      "handshake character specification",Asc_Nul
  405.  
  406.           align                        Following code aligned on word boundary
  407.           ends
  408.           END
  409.