;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MEDIUM-RESOLUTION-COLOR version 17.3
;;; Reason:
;;;  Read-plane and write-plane now work for both lambdas and cadrs.  The offset into the
;;; Reason:
;;;  video buffer is different for the two processors.
;;; Written 27-Feb-85 14:47:20 by PW,
;;; while running on Lambda Five A from band 5
;;; with System 102.88, Local-File 56.0, FILE-Server 13.1, Unix-Interface 5.2, MagTape 40.14, Experimental ZMail 57.1, Tiger 20.1, KERMIT 26.4, Experimental MEDIUM-RESOLUTION-COLOR 17.2, microcode 753, Release II beta test.



; From file GREY-TESTINIT.LISP#> QL.VIDEO-DEVICE; LAM3: (8)
#8R GREY#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "GREY")))
  (COMPILER#:PATCH-SOURCE-FILE "SYS: VIDEO-DEVICE; GREY-TESTINIT  "

(DEFUN WRITE-PLANE (ADR DATA &OPTIONAL (PLANE 0)) 
  (select si:processor-type-code
    (si:cadr-type-code 
     (FUNCALL WRITE-FUNCTION (+ ADR VIDEO-BUFFER-BASE-ADDRESS 1000000 (* PLANE 20000)) DATA))
    (si:lambda-type-code
     (FUNCALL WRITE-FUNCTION (+ ADR VIDEO-BUFFER-BASE-ADDRESS 200000 (* PLANE 20000)) DATA)))
  NIL)

))

; From file GREY-TESTINIT.LISP#> QL.VIDEO-DEVICE; LAM3: (8)
#8R GREY#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "GREY")))
  (COMPILER#:PATCH-SOURCE-FILE "SYS: VIDEO-DEVICE; GREY-TESTINIT  "

(DEFUN READ-PLANE (ADR DATA &OPTIONAL (PLANE 0)) 
  (select si:processor-type-code
    (si:cadr-type-code 
     (FUNCALL READ-FUNCTION (+ ADR VIDEO-BUFFER-BASE-ADDRESS 1000000 (* PLANE 20000)) DATA))
    (si:lambda-type-code
     (FUNCALL READ-FUNCTION (+ ADR VIDEO-BUFFER-BASE-ADDRESS 200000 (* PLANE 20000)) DATA)))
  NIL)

))