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

(DEFUN FAST-ADDRESS-TEST-COLOR-NSM NIL
  (LET ((OFFSET 0)
	(N-DATA-BITS 32.)
	(N-ADDRESS-BITS 9.)
	(READ-FCTN 'NSM:NSM-READ-RAM)
	(WRITE-FCTN 'NSM:NSM-WRITE-RAM)
	(MESSAGE "FAST-ADDRESS-TEST of COLOR NSM"))
    (LAMBDA:FAST-ADDRESS-TEST-KERNAL WRITE-FCTN READ-FCTN
			      OFFSET N-DATA-BITS N-ADDRESS-BITS MESSAGE)))

(DEFSELECT (COLOR-NSM-ACTOR)
  (:READ (ADDRESS) ADDRESS
     (NSM:NSM-READ-RAM ADDRESS))
  (:WRITE (ADDRESS DATA) ADDRESS
     (NSM:NSM-WRITE-RAM ADDRESS DATA)))

(DEFUN TEST-M-MEM-DATA-PATH NIL (TEST-DATA-PATH "M-MEM"'M-MEM-DATA-PATH-ACTOR 32.))

(DEFSELECT (M-MEM-DATA-PATH-ACTOR)
  (:READ (ADDRESS) ADDRESS
   (READ-M-MEM 1))		;location 0 in m-mem doesnt really get written so use 1
  (:WRITE (ADDRESS DATA) ADDRESS
   (WRITE-M-MEM 1 DATA)))