(FILECREATED "12-Aug-85 07:33:55" ("compiled on " {ERIS}SOURCES>DOVEINPUTOUTPUT.;17) " 5-Aug-85 20:35:10" recompiled changes: \DoveIO.MakeOpieAddress in "INTERLISP-D 5-Aug-85 ..." dated " 5-Aug-85 20:48:34") (FILECREATED "12-Aug-85 07:33:23" {ERIS}SOURCES>DOVEINPUTOUTPUT.;17 10568 changes to: (FNS \DoveIO.MakeOpieAddress) (VARS DOVEINPUTOUTPUTCOMS \#WDS.OpieAddress) previous date: "12-Aug-85 02:34:47" {ERIS}SOURCES>DOVEINPUTOUTPUT.;16) \DoveIO.EQOpieAddrs D1 (L (1 A2 0 A1)) @ÈAÈð´ @ÈAÈðNIL NIL () \DoveIO.MakeOpieAddress D1 (L (1 SRCPTR 0 DESTLOC)) %@AÓ9Í@AÒÏAÒjð¨@làχlà@láχláNIL NIL () \DoveIO.NilOpieAddress D1 (L (0 PTRTOADDRESS)) @Èjð´@ÈjðNIL NIL () \DoveIO.PointerFromOpieAddress D1 (L (0 ADDRESSLOC)) @Ê@È9ÑNIL NIL () \Dove.InitializeFCBOffsets D1 (P 2 I P 1 VarNames P 0 Count I 0 Configuration F 3 DOVEIOREGIONOFFSETS) 'j!@°dZ›JI¹JH ¿HJظµçIc(26Q SET) NIL () (PRETTYCOMPRINT DOVEINPUTOUTPUTCOMS) (RPAQQ DOVEINPUTOUTPUTCOMS ((MACROS \Dove.ClearQueueBlock \DoveIO.ByteSwap \DoveIO.IORegionOffset \DoveIO.LockMem \DoveIO.NotifyIOP \DoveFCBAt) (FNS \DoveIO.EQOpieAddrs \DoveIO.MakeOpieAddress \DoveIO.NilOpieAddress \DoveIO.PointerFromOpieAddress) (CONSTANTS \DoveIO.ADD \DoveIO.AND \DoveIO.OR \DoveIO.OVERWRITEIFNIL \DoveIO.XCHG \#WDS.OpieAddress) (DECLARE: DONTCOPY (CONSTANTS * DOVEIOREGIONOFFSETS) (CONSTANTS * DOVEOPIEADDRESSTYPES) (VARS \Dove.FCBSizes) (FNS \Dove.InitializeFCBOffsets)) (CONSTANTS \DoveIO.ByteFALSE \DoveIO.ByteTRUE) (DECLARE: DONTCOPY (EXPORT (RECORDS Dove.OpieAddress))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\LOCKFN (FUNCTION \DoveIO.MakeOpieAddress)))) (PROP ARGNAMES \DoveFCBAt))) (DEFMACRO \Dove.ClearQueueBlock (BASE) (BQUOTE (\CLEARWORDS , BASE \DoveEther.QueuePtrSize))) (PUTPROPS \DoveIO.ByteSwap DMACRO (ARGS (LET ((X (CAR ARGS))) (BQUOTE ((OPCODES DOVEMISC 4) , X))))) (DEFMACRO \DoveIO.IORegionOffset (X) (BQUOTE (IDIFFERENCE (\LOLOC , X) (\LOLOC \DoveIORegion)))) (PUTPROPS \DoveIO.LockMem DMACRO (ARGS (LET ((MASK (CAR ARGS)) (VALUE (CADR ARGS)) (ADDR (CADDR ARGS)) (OP (CADDDR ARGS))) (BQUOTE ((OPCODES DOVEMISC 5) , OP , ADDR , VALUE , MASK))))) (PUTPROPS \DoveIO.NotifyIOP DMACRO (ARGS (LET ((MASK (CAR ARGS))) (BQUOTE ((OPCODES DOVEMISC 6) , MASK ))))) (DEFMACRO \DoveFCBAt (X) (BQUOTE (\ADDBASE \DoveIORegion , X))) (RPAQQ \DoveIO.ADD 0) (RPAQQ \DoveIO.AND 1) (RPAQQ \DoveIO.OR 2) (RPAQQ \DoveIO.OVERWRITEIFNIL 4) (RPAQQ \DoveIO.XCHG 3) (RPAQQ \#WDS.OpieAddress 2) (CONSTANTS \DoveIO.ADD \DoveIO.AND \DoveIO.OR \DoveIO.OVERWRITEIFNIL \DoveIO.XCHG \#WDS.OpieAddress) (RPAQQ \DoveIO.ByteFALSE 0) (RPAQQ \DoveIO.ByteTRUE 255) (CONSTANTS \DoveIO.ByteFALSE \DoveIO.ByteTRUE) (\LOCKFN (FUNCTION \DoveIO.MakeOpieAddress)) (PUTPROPS \DoveFCBAt ARGNAMES (OFFSET)) (PUTPROPS DOVEINPUTOUTPUT COPYRIGHT ("Xerox Corporation" 1985)) NIL