;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for NVRAM version 8.1
;;; Reason:
;;;  Fix a few minor display problems.
;;; Written 16-May-86 12:50:48 by PTM at site LMI Cambridge
;;; while running on Explorer One from band 1
;;; with System 110.232, Lambda-Diag 7.17, Experimental Local-File 68.7, FILE-Server 18.4, Unix-Interface 9.1, ZMail 65.14, Object Lisp 3.4, Tape 6.39, Site Data Editor 3.3, Tiger 24.0, KERMIT 31.3, Window-Maker 1.1, Gateway 4.8, TCP-Kernel 39.7, TCP-User 62.7, TCP-Server 45.5, MEDIUM-RESOLUTION-COLOR 3.4, MICRO-COMPILATION-TOOLS 3.2, System Revision Level 3.26, Experimental CDI 1.6, Experimental NVRAM 8.0, microcode 1518.


;; *** Note: ***
;;   You may lose because the buffer has no readtable attribute.
;; *************

; From modified file DJ: PTM.NVRAM; CRASH-RECORD.LISP#39 at 16-May-86 12:50:56
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "DJ: PTM.NVRAM; CRASH-RECORD.#"


(Defun Format-Register-Values (stream)
  "Writes CREC register values to STREAM."
  (format stream "~%Register Values: ~
                  ~%M-1: ~10,0T~A ~
                  ~%M-2: ~10,0T~A ~
                  ~%MD: ~10,0T~A ~
                  ~%VMA: ~10,0T~A"
	  M-1-Q M-2-Q MD-Q VMA-Q))

))
;; *** Note: ***
;;   You may lose because the buffer has no readtable attribute.
;; *************

; From modified file DJ: PTM.NVRAM; CRASH-RECORD.LISP#39 at 16-May-86 12:50:59
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "DJ: PTM.NVRAM; CRASH-RECORD.#"


(Defun Report-Ucode-PC (micro-pc stream)
  (Cond ((and (fboundp 'lam:assure-lam-symbols-loaded)
	      (fboundp 'lam:lam-find-closest-sym))
	 (lam:assure-lam-symbols-loaded)
	 (Let ((sym (lam:lam-find-closest-sym (+ micro-pc lam:racmo))))
	   (if (listp sym)
	       (Format stream "~a + #o~5,'0o" (car sym) (cadr sym))
	     (Format stream "~a" sym))))
	(t (Format stream "#o~5,'0o" micro-pc)))
  )


;;;
;;; Crash Record Analysis       
;;;

))