From aa3e91a1530f3f17e273a546e908fe7b29a190c4 Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Tue, 20 Feb 1990 23:10:11 +0000
Subject: [PATCH] Added ``DATA'' instruction decoding.

---
 code/pmax-disassem.lisp | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/code/pmax-disassem.lisp b/code/pmax-disassem.lisp
index 620aa2bf1..68527db6a 100644
--- a/code/pmax-disassem.lisp
+++ b/code/pmax-disassem.lisp
@@ -1,6 +1,6 @@
 ;;; -*- Mode: Lisp; Package: MIPS -*-
 ;;; 
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-disassem.lisp,v 1.8 1990/02/18 06:23:22 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-disassem.lisp,v 1.9 1990/02/20 23:10:11 ch Exp $
 ;;;
 ;;; A simple dissambler for the MIPS R2000.
 ;;;
@@ -432,18 +432,20 @@
 
 (defun disassemble-instruction (word &optional (stream t))
   (let* ((instr (mips-instruction word)))
-    (unless instr
-      (format stream "UNKNOWN INSTR (#x~X)~%" word)
-      (return-from disassemble-instruction (values nil nil)))
-    (let* ((instr-name (mips-instruction-name instr))
-	   (instr-type (mips-instruction-type instr))
-	   (closure (gethash instr-type *mips-instruction-types*)))
-      (cond (closure
-	     (funcall closure instr-name word stream))
-	    (t
-	     (format stream "UNKNOWN TYPE (~A/~S/#x~X)~%"
-		     instr-name instr-type word)))
-      (values instr-name instr-type))))
+    (cond (instr
+	   (let* ((instr-name (mips-instruction-name instr))
+		  (instr-type (mips-instruction-type instr))
+		  (closure (gethash instr-type *mips-instruction-types*)))
+	     (cond (closure
+		    (funcall closure instr-name word stream))
+		   (t
+		    (format stream "UNKNOWN TYPE (~A/~S/#x~X)~%"
+			    instr-name instr-type word)))
+	     (values instr-name instr-type)))
+	  (t
+	   (format stream "~16,8TDATA~8,8T#x~X~%" word)
+	   (return-from disassemble-instruction (values nil nil))))))
+
 
 
 ;;; Dissassemble-Code-Vector
-- 
GitLab