>>135,>>136

レスサンクス

最初が16個の0-255の整数のlistを受け取って16進ダンプする関数。

(defun l16-dump (l16)
(format t "~10,'0x :" addr)
(l16-hdump l16 0)
(do '(i (length l16) (+ i 1))
((> i 15) )
(format t " "))
(format t " : ")
(l16-cdump l16)
(format t "~%"))

(defun l16-hdump (l16 i)
(cond
((setq ch (car l16))
(format t (if (and (/= i 0) (= (mod i 4) 0)) "-" " "))
(format t "~2,'0x" ch)
(l16-hdump (cdr l16) (+ i 1)))))

続く