;;; -*- Mode:LISP; Package:USER; Base:10 -*-

;; Copyright LISP Machine, Inc. 1984, 1985, 1986
;;    See filename "Copyright" for
;; licensing and release information.


;; N.B. Part of the hair involved in some of this code is due to the
;;      fact that it is/has-been run on a CADR being used as a DEBUG-STATION
;;      for a "greyboard" or greyboard/lambda combination, on a LAMBDA
;;      in debug mode, and in regular window-system mode on a LAMBDA.
;;      We have chosen to retain all the debugging code in the distributed
;;      LAMBDA system. -gjc

(DEFPACKAGE "GREY"
  :size 512
  :export ())

(DEFSYSTEM medium-resolution-color
  (:pathname-default "SYS:VIDEO-DEVICE;GREY;")
  (:patchable "SYS:VIDEO-DEVICE;GREY;" mrc-patch)
  (:module defs "grey-defs")
  (:module sram-compiler "sram-compiler")
  (:module sram "sram_rev_combined")
  (:module test-and-init "grey-testinit")
  (:module sram-subsystem (sram-compiler sram))
  (:module window "grey-window")
  (:module all (test-and-init sram-subsystem window))
  (:module init "grey-init")
  (:module compat ("color"))
  (:module hacks-demo ("cafe" "colxor" "colorhack"))

  (:compile-load defs)
  (:compile-load sram-compiler (:fasload defs))
  (:compile-load sram (:fasload defs) (:fasload sram-compiler))
  (:compile-load all (:fasload defs) (:fasload defs))
  (:compile-load init (:fasload all) (:fasload all))
  (:compile-load compat (:fasload defs) (:fasload init))
  (:compile-load hacks-demo (:fasload defs) (:fasload init)))

;; LET PEOPLE CALL THIS ONE BY HAND FOR NOW.
(SPECIAL grey:standard-grey-initialization-procedure)

(SETQ grey:standard-grey-initialization-procedure nil)

(princ "

To initialize the medium resolution color hardware, type the following at a 
Lisp Listener:

    (GREY:STANDARD-GREY-INITIALIZATION-PROCEDURE)

[Do a DISK-SAVE at this point if you want the color board to initialize
 automatically after each cold boot.]
" terminal-io)