;;; -*- Mode:LISP; Package:LAMBDA -*-






(DEFUN TEST-IMOD-DIAG-LOOP (DEST IR-BIT MFO-BIT &OPTIONAL (ADDR 0))

  (DO ()((kbd-tyi-no-hang))
       
    (WRITE-CRAM ADDR IR-BIT)
    (WRITE-PC ADDR 0)
    (WRITE-SPY-REG-AND-CHECK MFO-BIT)
    (LAM-EXECUTE (UINST-CLOCK-PLUS-UINST-CLOCK-LOW)
	LAM-IR-OP         LAM-OP-ALU
	LAM-IR-M-SRC      LAM-M-SRC-SPY-REG
	LAM-IR-OB         LAM-OB-ALU
	LAM-IR-ALUF       LAM-ALU-SETM
	LAM-IR-FUNC-DEST  DEST)
    ;; IR should now have OR of MFO-BIT and IR-BIT


	
))