github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-04 15:53:01 +00:00
Code Issues Releases Wiki Activity

Fix reference to LMODEM help file.

Browse Source 
Also clean up tabs.
This commit is contained in:
Lars Brinkhoff
2021-11-09 10:04:43 +01:00
parent aa03281df0
commit ca081d5eb1
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/ejs/lmodem.255 → src/eb/lmodem.256
View File

@@ -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))