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

Fix of issue #2012

Browse Source 
Exchanged "implode" for "maknam" to avoid choking the GC for larger files.

Filter out ASCII 127 (DEL) from output in ASCII-column.
This commit is contained in:
heasm66
2021-02-03 09:36:54 +01:00
committed by Lars Brinkhoff
parent 06939ac3b7
commit 029003fb45
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/libdoc/od.3 → src/libdoc/od.4
View File

@@ -43,18 +43,18 @@
(let ((ch (remainder word 64.)))
(push (+ ch 32.) result)
(setq word (quotient word 64.))))
(format t "~A " (implode result))))
(format t "~A " (maknam result))))
(defun print-ascii (word)
(setq word (quotient word 2))
(let ((result nil))
(loop for i from 0 below 5 do
(let ((ch (remainder word 128.)))
(if (< ch 32.)
(if (or (< ch 32.) (= ch 127.))
(setq ch "."))
(push ch result)
(setq word (quotient word 128.))))
(format t "~A " (implode result))))
(format t "~A " (maknam result))))
(defun read-word (input)
(let ((word (in input)))
@@ -82,4 +82,4 @@
(read-word input))))
(defun toplevel ()
(print-binary (implode (status jcl))))
(print-binary (maknam (status jcl))))