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

;; Copyright LISP Machine, Inc. 1984, 1985
;;    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;")
  (:PATCHABLE "SYS:VIDEO-DEVICE;" MRC-PATCH)
  (:MODULE DEFS "GREY-DEFS")
  (:MODULE WINDOW "GREY-WINDOW")
  (:MODULE TEST-AND-INIT "GREY-TESTINIT")
  (:MODULE SRAM-COMPILER "SRAM-COMPILER")
  (:MODULE SRAM "SRAM_REV_COMBINED")
  (:MODULE INIT "GREY-INIT")
  (:module compat ("color"))
  (:module hacks-demo ("CAFE" "COLXOR" "COLORHACK"))
  (:module sram-subsystem (SRAM-COMPILER SRAM))
  
  (:MODULE ALL (TEST-AND-INIT SRAM-SUBSYSTEM WINDOW))
  
  (: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)

(PRINT "CALL (GREY:STANDARD-GREY-INITIALIZATION-PROCEDURE) BY HAND IF YOU WILL,
THEN DO A DISK-SAVE. COLOR BOARD WILL AUTOMATICALLY INIT FROM THEN ON."
       TERMINAL-IO)