;;-*-mode:lisp;package:lambda;BASE:8.-*-
;;
;; (C) COPYRIGHT 1984 LISP MACHINE, INC
;;
;; MICRO-CODED tests of the LAMBDA processor, PART 2.
;; Tests written by the technicians, attilio, mohmammed etc..
;; - 8/24/84 09:40:58

(def-utest attilio-1 "This is just a test, my first diagnostic, see if M-MEM 1 writes."
  :OUTPUT-VALUES (((M-MEM 1) 0 ("instruction to zero m-mem 1 failed")))
  :good-stop stop-addr
  :code (0
	 (LAM-IR-OP LAM-OP-ALU			;ZERO M LOC 1
	  LAM-IR-OB LAM-OB-ALU
	  LAM-IR-ALUF LAM-ALU-SETZ
	  LAM-IR-M-MEM-DEST 1)
	 (LAM-IR-HALT 1)
	 stop-addr))