(FILECREATED "25-Jun-84 00:36:08" {ERIS}<LISP>FUGUE.6>SOURCES>IOPAGERECORDPATCH.;1 2629   

      changes to:  (VARS IOPAGERECORDPATCHCOMS))


(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT IOPAGERECORDPATCHCOMS)

(RPAQQ IOPAGERECORDPATCHCOMS ((RECORDS IOPAGE)))
[DECLARE: EVAL@COMPILE 

(BLOCKRECORD IOPAGE ((NIL 18 WORD)
		     (DLMAINTPANEL WORD)
		     (DLFLOPPYCMD WORD)
		     (DLTTYPORTCMD WORD)
		     (DLPROCESSORCMD WORD)
		     (NEWMOUSESTATE WORD)
		     (DLBEEPCMD WORD)
		     (DLRS232CMISCCOMMAND WORD)
		     (DLRS232CPUTFLAG WORD)
		     (DLRS232CGETFLAG WORD)
		     (NIL 6 WORD)
		     (DLFLOPPY WORD)
		     (DLTTYOUT WORD)
		     (NIL 1 WORD)
		     (DLTTYIN WORD)
		     (NIL 1 WORD)
		     (DLPROCESSOR2 WORD)
		     (DLPROCESSOR1 WORD)
		     (DLPROCESSOR0 WORD)
		     (NEWMOUSEX WORD)
		     (NEWMOUSEY WORD)
		     (DLBEEPFREQ WORD)
		     (DLRS232CPARAMETERCSBLO WORD)
		     (DLRS232CPARAMETERCSBHI WORD)
		     (DLRS232CSETRS366STATUS 3 WORD)
		     (DLRS232CPUTCSBLO WORD)
		     (DLRS232CPUTCSBHI WORD)
		     (DLRS232CGETCSBLO WORD)
		     (DLRS232CGETCSBHI WORD)
		     (DLRS232CDEVICESTATUS WORD)
		     (DLRS232CPARAMETEROUTCOME WORD)
		     (DLTODVALID WORD)
		     (DLTODLO WORD)
		     (DLTODHI WORD)
		     (DLTODLO2 WORD)
		     (DLMOUSEX WORD)
		     (DLMOUSEY WORD)
		     (DLUTILIN WORD)
		     (DLKBDAD0 WORD)
		     (DLKBDAD1 WORD)
		     (DLKBDAD2 WORD)
		     (DLKBDAD3 WORD)
		     (DLKBDAD4 WORD)
		     (DLKBDAD5 WORD)
		     (DLLSEPIMAGECSB 32 WORD)
		     (DLIOPHARDWARECONFIG WORD)
		     (NIL 87 WORD)
		     (DLMAGTAPE 4 WORD)
		     (DLETHERNET 12 WORD)
		     (NIL 31 WORD)
		     (DLDISPINTERRUPT WORD)
		     (DLDISPCONTROL WORD)
		     (DLDISPBORDER WORD)
		     (DLCURSORX WORD)
		     (DLCURSORY WORD)
		     (DLCURSORBITMAP 16 WORD))
		    (ACCESSFNS IOPAGE ((DLCURSORBITMAPPTR (\ADDBASE DATUM 240))
				(DLCURSORYPTR (\ADDBASE DATUM 239))
				(DLCURSORXPTR (\ADDBASE DATUM 238))
				(DLDISPINTERRUPTPTR (\ADDBASE DATUM 235))
				(DLETHERNETPTR (\ADDBASE DATUM 192))
				(DLKBDAD5PTR (\ADDBASE DATUM 67))
				(DLKBDAD4PTR (\ADDBASE DATUM 66))
				(DLKBDAD3PTR (\ADDBASE DATUM 65))
				(DLKBDAD2PTR (\ADDBASE DATUM 64))
				(DLKBDAD1PTR (\ADDBASE DATUM 63))
				(DLKBDAD0PTR (\ADDBASE DATUM 62))
				(DLUTILINPTR (\ADDBASE DATUM 61))
				(DLMOUSEYPTR (\ADDBASE DATUM 60))
				(DLMOUSEXPTR (\ADDBASE DATUM 59))
				(DLTODLOPTR (\ADDBASE DATUM 56))
				(DLMAINTPANELPTR (\ADDBASE DATUM 18))))
		    (CREATE (\ALLOCBLOCK 128)))
]
(PUTPROPS IOPAGERECORDPATCH COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP