Changeset 216

Show
Ignore:
Timestamp:
08/18/11 05:00:22 (22 months ago)
Author:
rjs
Message:

Version 79.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/lisp/lmcons/dcheck.lisp

    r215 r216  
    322322  ;; Part 3.6 - recalibrate.  Marksman needs this if I/O reset has been done. 
    323323  (FORMAT T "~&Recalibrate...") 
    324   (DC-EXEC DC-RECAL 0 0 0 0 NIL 0) 
    325   (DO () ((NOT (BIT-TEST 1_8 (PHYS-MEM-READ DC-STS-ADR)))) 
    326     (PROCESS-ALLOW-SCHEDULE)) 
     324  (DC-RECALIBRATE) 
    327325  ;; Part 4 - Test disk bus bits and basic command logic by seeking 
    328326  (COND ((NOT BYPASS-SEEKS) 
    … …  
    405403  (TERPRI) 
    406404  (PRINC '|End of DCHECK.  Now run the format program and the ECC test program.|)) 
     405 
     406(DEFUN DC-RESET NIL 
     407  (PHYS-MEM-WRITE DC-CMD-ADR DC-STOP) 
     408  (PHYS-MEM-WRITE DC-CMD-ADR 0)) 
     409 
     410(DEFUN DC-RECALIBRATE NIL 
     411  (DC-EXEC DC-RECAL 0 0 0 0 NIL 0) 
     412  (DO () ((NOT (BIT-TEST 1_8 (PHYS-MEM-READ DC-STS-ADR)))) 
     413    (PROCESS-ALLOW-SCHEDULE))) 
    407414 
    408415;;; Compare pattern, set special variables if lose