Changeset 216


Ignore:
Timestamp:
08/18/11 12:00:22 (3 years ago)
Author:
rjs
Message:

Version 79.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lmcons/dcheck.lisp

    r215 r216  
    324324  ;; Part 3.6 - recalibrate.  Marksman needs this if I/O reset has been done.
    325325  (FORMAT T "~&Recalibrate...")
    326   (DC-EXEC DC-RECAL 0 0 0 0 NIL 0)
    327   (DO () ((NOT (BIT-TEST 1_8 (PHYS-MEM-READ DC-STS-ADR))))
    328     (PROCESS-ALLOW-SCHEDULE))
     326  (DC-RECALIBRATE)
    329327  ;; Part 4 - Test disk bus bits and basic command logic by seeking
    330328  (COND ((NOT BYPASS-SEEKS)
     
    408406  (PRINC '|End of DCHECK.  Now run the format program and the ECC test program.|))
    409407
     408(DEFUN DC-RESET NIL
     409  (PHYS-MEM-WRITE DC-CMD-ADR DC-STOP)
     410  (PHYS-MEM-WRITE DC-CMD-ADR 0))
     411
     412(DEFUN DC-RECALIBRATE NIL
     413  (DC-EXEC DC-RECAL 0 0 0 0 NIL 0)
     414  (DO () ((NOT (BIT-TEST 1_8 (PHYS-MEM-READ DC-STS-ADR))))
     415    (PROCESS-ALLOW-SCHEDULE)))
     416
    410417
    411418;;; Compare pattern, set special variables if lose
Note: See TracChangeset for help on using the changeset viewer.