From ca081d5eb1a3669f671c02426e4047f8c78e867f Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Tue, 9 Nov 2021 10:04:43 +0100 Subject: [PATCH] Fix reference to LMODEM help file. Also clean up tabs. --- build/lisp.tcl | 1 - src/{ejs/lmodem.255 => eb/lmodem.256} | 8 ++++---- 2 files changed, 4 insertions(+), 5 deletions(-) rename src/{ejs/lmodem.255 => eb/lmodem.256} (99%) diff --git a/build/lisp.tcl b/build/lisp.tcl index 6b99e3fe..ed6bf1b9 100644 --- a/build/lisp.tcl +++ b/build/lisp.tcl @@ -905,7 +905,6 @@ respond "*" ":pdump sys3;ts cube\r" respond "*" ":kill\r" # LMODEM -respond "*" ":link eb;lmodem 999, ejs; lmodem >\r" respond "*" ":complr\r" respond "_" "eb;sfadcl\r" respond "_" "eb;errmac\r" diff --git a/src/ejs/lmodem.255 b/src/eb/lmodem.256 similarity index 99% rename from src/ejs/lmodem.255 rename to src/eb/lmodem.256 index 0547431c..8e7530f2 100644 --- a/src/ejs/lmodem.255 +++ b/src/eb/lmodem.256 @@ -939,7 +939,7 @@ (declare (fixnum header secnum cma-secnum checksum line-checksum last-i)) get-header (or repeat-p (setq *sector-number (truncate-to-line-width - (do-INC *sector-number)))) + (do-INC *sector-number)))) (setq header (read-line-character *short-timeout)) (cond ((= header #\soh) 'continue) ((= header #\nul) (go get-header)) @@ -1141,7 +1141,7 @@ (sync-error (last-sector new-sector repeat-flag) (and *log-flag *log-error-messages (log-status - "Sync error: last sector [~O], new sector [~O], repeat flag ~A." + "Sync error: last sector [~O], new sector [~O], repeat flag ~A." last-sector new-sector repeat-flag)) (clear-tty-input-line *error-line-clear-timeout) (write-line-character #\nak) @@ -1382,11 +1382,11 @@ #+ITS (defun give-lmodem-help () - (cond ((not (probef "mc:cpm;help lmodem")) + (cond ((not (probef "cpm;help lmodem")) (format tyo "~&Help file unavailable.~%") (and *log-flag (log-status "Help file unavailable.")) nil) - ((setq *disk-input (open "mc:cpm;help lmodem" '(dsk in ascii))) + ((setq *disk-input (open "cpm;help lmodem" '(dsk in ascii))) (terpri tyo) (loop as n fixnum = (tyi *disk-input) until (or (< n 0) (= n #^C)) do (tyo n tyo))