ShellSerial.SymW 537 B

12345678910111213141516
  1. MODULE ShellSerial;
  2. IMPORT Modules, Kernel, Commands, Streams, Files, Serials, Shell, XYModem;
  3. CONST
  4. BufferSize = 1024;
  5. DefaultPrompt = \"SHELL>"\;
  6. VAR
  7. shells: ARRAY (Serials.MaxPorts + 1) OF Shell.Shell;
  8. PROCEDURE ^ ModemReceive(context: Commands.Context; modemMode: LONGINT);
  9. PROCEDURE ^ XReceive*(context: Commands.Context);
  10. PROCEDURE ^ YReceive*(context: Commands.Context);
  11. PROCEDURE ^ Wait(ms: LONGINT);
  12. PROCEDURE ^ Open*(context: Commands.Context);
  13. PROCEDURE ^ Cleanup;
  14. BEGIN
  15. END ShellSerial.