NIL
_PP \DL.FAULTINIT

(\DL.FAULTINIT
  [LAMBDA NIL (* --) 
    (SETQ \VMEMACCESSFN (FUNCTION \DL.ACTONVMEMFILE))
    (SETQ \IOCBPAGE (create POINTER
                            PAGE# _ \VP.IOCBS))
    (COND
      ((NEQ (fetch (IFPAGE Key) of \InterfacePage)
            \IFPValidKey)
        (\MP.ERROR \MP.INVALIDVMEM)))
    (COND
      ((NULL \FPTOVP)
        (SETQ \REALPAGETABLE (EMPOINTER (fetch (IFPAGE REALPAGETABLE)
                                           of \InterfacePage)))
        (SETQ \RPOFFSET (SIGNED (fetch (IFPAGE RPOFFSET) of \InterfacePage)
                                BITSPERWORD))
        (SETQ \RPTSIZE (fetch (IFPAGE RPTSIZE) of \InterfacePage))
        (SETQ \EMBUFVP (fetch (IFPAGE EMBUFVP) of \InterfacePage))
        (SETQ \EMBUFBASE (EMPOINTER (UNFOLD \EMBUFVP WORDSPERPAGE)))
        (SETQ \EMBUFRP (\READRP \EMBUFVP)) (* --) 
        (\BLT \IOCBPAGE (create POINTER
                                PAGE# _(ADD1 \VP.DISPLAY))
              WORDSPERPAGE))
      (T (\DL.NEWFAULTINIT)))
    (SETQ \RCLKMILLISECOND \DLION.RCLKMILLISECOND) (* --) 
    (SETQ \RCLKSECOND \DLION.RCLKSECOND)
    (\RCLK (LOCF (fetch BASECLOCK of \MISCSTATS))) (* --) 
    [COND
      ((ZEROP (fetch DLTODVALID of \IOPAGE)) (* --) 
        (\PUTBASEPTR (LOCF (fetch SECONDSCLOCK of \MISCSTATS))
                     0 NIL))
      (T (bind TMP (BASE _(LOCF (fetch SECONDSCLOCK of \MISCSTATS)))
            do  (* --) 
               (\PUTBASE BASE 1 (SETQ TMP (fetch DLTODLO of \IOPAGE)))
               (\PUTBASE BASE 0 (fetch DLTODHI of \IOPAGE))
            repeatuntil (EQ (fetch DLTODLO of \IOPAGE)
                            TMP]
    (\PUTBASEPTR (LOCF (fetch MILLISECONDSCLOCK of \MISCSTATS))
                 0 NIL) (* --) 
    (repeatwhile (IGEQ (fetch DLPROCESSORCMD of \IOPAGE)
                       \DL.PROCESSORBUSY)) (* --) 
    (replace DLPROCESSORCMD of \IOPAGE with \DL.READPID) (* --) 
    (repeatwhile (IGEQ (fetch DLPROCESSORCMD of \IOPAGE)
                       \DL.PROCESSORBUSY))
    (replace NSHost0 of \InterfacePage with (fetch DLPROCESSOR0 of \IOPAGE))
    (replace NSHost1 of \InterfacePage with (fetch DLPROCESSOR1 of \IOPAGE))
    (replace NSHost2 of \InterfacePage with (fetch DLPROCESSOR2 of \IOPAGE))
    (\DL.DISKINIT T])
\DL.FAULTINIT
_DRIBBLE]