(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "16-May-90 15:47:47" {DSK}<usr>local>lde>lispcore>sources>DISKVMEMDECLS.;2
 4121   

      changes to%:  (VARS DISKVMEMDECLSCOMS)

      previous date%: "27-Mar-86 12:49:26" {DSK}<usr>local>lde>lispcore>sources>DISKVMEMDECLS.;1)


(* ; "
Copyright (c) 1986, 1990 by Venue & Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT DISKVMEMDECLSCOMS)

(RPAQQ DISKVMEMDECLSCOMS
 ((* Records describing Dlion/Daybreak IOCBPAGE)
                              (RECORDS DLVMEMRUN IOCBPAGE DLION.DOB)))



(* Records describing Dlion/Daybreak IOCBPAGE)


(DECLARE%: EVAL@COMPILE

(BLOCKRECORD DLVMEMRUN
 ((DLFIRSTFILEPAGE WORD)
                            (DLVMCYL WORD)
                            (DLVMHEAD BYTE)
                            (DLVMSECTOR BYTE))
                           [ACCESSFNS DLVMEMRUN ((DLNEXTRUN (\ADDBASE DATUM 3])

(BLOCKRECORD IOCBPAGE
 ((NIL 3 WORD)
                           (LASTIOCBSTATUS WORD)
                           (NEXTIOCB WORD)
                           (SEEKIOCBLOC WORD)
                           (XFERIOCBLOC WORD)
                           (VRRIOCBLOC WORD)
                           (VVRIOCBLOC WORD)
                           (HCYLINDER WORD)
                           (HHEAD BYTE)
                           (HSECTOR BYTE)
                           (LID 5 WORD)
                           (LPAGELO WORD)
                           (LPAGEHI BITS 7)
                           (NIL BITS 6)
                           (LFLAGS BITS 3)
                           (LTYPE WORD)
                           (LBOOTLINKCHAIN1 WORD)
                           (LBOOTLINKCHAIN2 WORD)
                           (NIL 43 WORD)
                           (PRUNLENGTH WORD)
                           (NIL 6 WORD)
                           (PLABELCMD WORD)
                           (PLABELLEN WORD)
                           (NIL WORD)
                           (PLABELABORT WORD)
                           (PDATACMD WORD)
                           (PDATALEN WORD)
                           (PVPAGE WORD)
                           (PDATAABORT WORD)
                           (PTERMCOND1HEAD BITS 5)
                           (PTERMCOND1MAGIC BITS 11)
                           (PTERMCOND2HEAD BITS 5)
                           (PTERMCOND2MAGIC BITS 11)
                           (SCYLINDERDISPLACEMENT WORD)
                           (NIL 5 WORD)
                           (SSEEKCMD1 WORD)
                           (NIL WORD)
                           (SSEEKCMD2 WORD)
                           (NIL 9 WORD)
                           (NIL 20 WORD)                     (* Used to be 21, but that bumps 

                                                           into vmem file info.

                                                           RS232 bug?)

                           (RS232CGETIOCB 8 WORD)
                           (DLVMEMFILEINFO 113 WORD)         (* bunch of VMEMFILERUN entries 

                                                           describing vmem disk addresses)

                           (FLOPPYIOCBSTART 16 WORD)))

(BLOCKRECORD DLION.DOB
 ((CYLINDER WORD)
                            (HEAD WORD)
                            (SECTOR WORD)
                            (RUNLENGTH WORD)
                            (MODE FULLXPOINTER)
                            (BUFFER FULLXPOINTER)
                            (LABEL FULLXPOINTER)
                            (NIL WORD)
                            (NIL BITS 13)
                            (UPDATESOURCELABEL FLAG)
                            (FAULTFLG FLAG)
                            (INCDATAPTR FLAG)
                            (STATUS FULLXPOINTER)
                            (NEXTDOB FULLXPOINTER))
                           (ACCESSFNS (DISKADDRESS (\DL.GETDISKADDRESS DATUM)
                                             (\DL.PUTDISKADDRESS DATUM NEWVALUE))))
)
(PUTPROPS DISKVMEMDECLS COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP