;;; -*- Mode:LISP; Package:GREY; Base:8 -*-

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




(DEFCONST CONTROL-BASE-ADDRESS 0)			;These variables are initialized by
(DEFCONST COLOR 0)					;USE-DIRECT and USE-CC
(DEFCONST MODE 0)
(DEFCONST SRAM-DATA 0)
(DEFCONST VMB 0)
(DEFCONST CON-REG 0)
(DEFCONST CON-PROM 0)
(DEFVAR VIDEO-BUFFER-BASE-ADDRESS 0)
(DEFVAR VIDEO-BUFFER-BASE-VIRTUAL-ADDRESS NIL)
(DEFVAR VIDEO-BUFFER-BASE-VIRTUAL-ADDRESS-AS-FIXNUM NIL)
(DEFCONST TV-PROG-BASE 2048.)
(DEFCONST 1&0 12525252525)
(DEFCONST 0&1 25252525252)
(DEFVAR DIRECT-MODE T)
(DEFCONST WRITE-FUNCTION '%XBUS-WRITE)
(DEFCONST READ-FUNCTION '%XBUS-READ)
(DEFCONST UNIBUS-WRITE-FUNCTION '%UNIBUS-WRITE)
(DEFCONST UNIBUS-READ-FUNCTION '%UNIBUS-READ)
(DEFVAR LOOP-COUNT 0)
(DEFVAR AT-ERROR-COUNT 0)
(DEFVAR DT-ERROR-COUNT 0)
(DEFVAR PAT-ERROR-COUNT 0)
(DEFVAR PDT-ERROR-COUNT 0)


(DEFCONST MODE-REG 0)  				;SOFTWARE COPY OF MODE REG.
(SPECIAL LOC-PTR				;(MOST OF HARDWARE REG IS WRITE/ONLY)
	 SRAM-OBJECT
	 SRAM-SOURCE
	 GREY-SCREEN-ARRAY
	 GREY-SCREEN-PLANE-ARRAY0
	 GREY-SCREEN-PLANE-ARRAY1
	 GREY-SCREEN-PLANE-ARRAY2
	 GREY-SCREEN-PLANE-ARRAY3
	 GREY-SCREEN-PLANE-ARRAY4
	 GREY-SCREEN-PLANE-ARRAY5
	 GREY-SCREEN-PLANE-ARRAY6
	 GREY-SCREEN-PLANE-ARRAY7
	 GREY-SCREEN
	 GREY-SCREEN-PLANE0
	 GREY-SCREEN-PLANE1
	 GREY-SCREEN-PLANE2
	 GREY-SCREEN-PLANE3
	 GREY-SCREEN-PLANE4
	 GREY-SCREEN-PLANE5
	 GREY-SCREEN-PLANE6
	 GREY-SCREEN-PLANE7
	 LAM:MEDIUM-COLOR-SLOT

	 GREY-PROM-PLIST
	 )