github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-19 14:15:09 +00:00
Code Issues Projects Releases Wiki Activity

TEMPORARILY add files needed to compile (or load) that had been moved to 'obsolete/'

Browse Source
This commit is contained in:
Larry Masinter
2021-03-31 14:07:31 -07:00
parent 78d53039c5
commit 3e64317db5
3 changed files with 691 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

397
sources/DOVEDECLS Executable file
View File

@@ -0,0 +1,397 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "16-May-90 15:55:59" {DSK}<usr>local>lde>lispcore>sources>DOVEDECLS.;2 15966
changes to%: (VARS DOVEDECLSCOMS)
previous date%: "31-Mar-86 11:10:09" {DSK}<usr>local>lde>lispcore>sources>DOVEDECLS.;1)
(* ; "
Copyright (c) 1985, 1986, 1990 by Venue & Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT DOVEDECLSCOMS)
(RPAQQ DOVEDECLSCOMS
((DECLARE%: DONTCOPY (FILES MESATYPES))
(MACROS \Dove.ClearQueueBlock \DoveIO.ByteSwap \DoveIO.IORegionOffset \DoveIO.LockMem
\DoveIO.NotifyIOP \DoveIO.SetMaintPanel \DoveFCBAt)
(CONSTANTS \DoveIO.ADD \DoveIO.AND \DoveIO.OR \DoveIO.OVERWRITEIFNIL \DoveIO.XCHG
\#WDS.OpieAddress)
(CONSTANTS \DoveIO.ByteFALSE \DoveIO.ByteTRUE)
(CONSTANTS * DoveIO.IORegionConstants)
(CONSTANTS * DoveIO.HandlerIDs)
(RECORDS Dove.OpieAddress DoveIO.ClientCondition DoveIO.TaskContextBlock DoveIO.SegmentRec
DoveIO.IORTable Dove.QueueBlock)
(PROP ARGNAMES \DoveFCBAt)
(COMS (CONSTANTS * DOVEIOREGIONOFFSETS)
(CONSTANTS * DOVEOPIEADDRESSTYPES)
(VARS \Dove.FCBSizes \DoveIO.PromVersion))
(GLOBALVARS \DoveBeep.FCBPointer \DoveProcessor.FCBPointer \DoveKyMo.FCBPointer
\DoveMP.FCBPointer \DoveDisk.FCBPointer \DoveDisplay.FCBPointer \DoveEther.FCBPointer
\DoveFloppy.FCBPointer)
(TEMPLATES \DoveIO.LockMem)))
(DECLARE%: DONTCOPY
(FILESLOAD MESATYPES)
)
(DECLARE%: EVAL@COMPILE
(PROGN (DEFMACRO \Dove.ClearQueueBlock (BASE)
`(\CLEARWORDS %, BASE (MESASIZE Dove.QueueBlock)))
NIL)
(PUTPROPS \DoveIO.ByteSwap DMACRO [ARGS (LET ((X (CAR ARGS)))
`((OPCODES DOVEMISC 4)
%, X])
(PROGN (DEFMACRO \DoveIO.IORegionOffset (X)
`(IDIFFERENCE (\LOLOC %, X)
(\LOLOC \DoveIORegion)))
NIL)
(PUTPROPS \DoveIO.LockMem DMACRO [ARGS (LET ((MASK (CAR ARGS))
(VALUE (CADR ARGS))
(ADDR (CADDR ARGS))
(OP (CADDDR ARGS)))
`((OPCODES DOVEMISC 5)
%, OP %, ADDR %, VALUE %, MASK])
(PUTPROPS \DoveIO.NotifyIOP DMACRO [ARGS (LET ((MASK (CAR ARGS)))
`((OPCODES DOVEMISC 6)
%, MASK])
(PUTPROPS \DoveIO.SetMaintPanel DMACRO [ARGS (LET ((CODE (CAR ARGS)))
`((OPCODES DOVEMISC 2)
%,
(\DTEST CODE 'SMALLP])
(PUTPROPS \DoveFCBAt DMACRO (DEFMACRO (X) (SELECTQ \DoveIO.PromVersion
(OLD `(\ADDBASE \DoveIORegion %, X))
(NEW (ERROR "Don't use \DoveFCBAt anymore!"))
'IGNOREMACRO)))
)
(DECLARE%: EVAL@COMPILE
(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)
)
(DECLARE%: EVAL@COMPILE
(RPAQQ \DoveIO.ByteFALSE 0)
(RPAQQ \DoveIO.ByteTRUE 255)
(CONSTANTS \DoveIO.ByteFALSE \DoveIO.ByteTRUE)
)
(RPAQQ DoveIO.IORegionConstants ((DoveIO.SegmentGranularity 8)
(DoveIO.ioRegionByteOffset 16384)
(DoveIO.iorSegmentBase (FOLDLO DoveIO.ioRegionByteOffset 16))))
(DECLARE%: EVAL@COMPILE
(RPAQQ DoveIO.SegmentGranularity 8)
(RPAQQ DoveIO.ioRegionByteOffset 16384)
(RPAQ DoveIO.iorSegmentBase (FOLDLO DoveIO.ioRegionByteOffset 16))
(CONSTANTS (DoveIO.SegmentGranularity 8)
(DoveIO.ioRegionByteOffset 16384)
(DoveIO.iorSegmentBase (FOLDLO DoveIO.ioRegionByteOffset 16)))
)
(RPAQQ DoveIO.HandlerIDs
((DoveIO.beepHandler 1)
(DoveIO.diskHandler (ADD1 DoveIO.beepHandler))
(DoveIO.displayHandler (ADD1 DoveIO.diskHandler))
(DoveIO.ethernetHandler (ADD1 DoveIO.displayHandler))
(DoveIO.floppyHandler (ADD1 DoveIO.ethernetHandler))
(DoveIO.kymoHandler (ADD1 DoveIO.floppyHandler))
(DoveIO.mpHandler (ADD1 DoveIO.kymoHandler))
(DoveIO.lispHandler 16)
(DoveIO.ttyHandler (ADD1 DoveIO.lispHandler))
(DoveIO.rs232Handler (ADD1 DoveIO.ttyHandler))
(DoveIO.confHandler (ADD1 DoveIO.rs232Handler))
(DoveIO.pceDispatchHandler (ADD1 DoveIO.confHandler))
(DoveIO.pceDisplayHandler (ADD1 DoveIO.pceDispatchHandler))
(DoveIO.pceKeyHandler (ADD1 DoveIO.pceDisplayHandler))
(DoveIO.pceMouseHandler (ADD1 DoveIO.pceKeyHandler))
(DoveIO.pcePrinterHandler (ADD1 DoveIO.pceMouseHandler))
(DoveIO.pceFloppyHandler (ADD1 DoveIO.pcePrinterHandler))
(DoveIO.pceHardDiskHandler (ADD1 DoveIO.pceFloppyHandler))
(DoveIO.pceDMAHandler (ADD1 DoveIO.pceHardDiskHandler))
(DoveIO.pceTimer (ADD1 DoveIO.pceDMAHandler))))
(DECLARE%: EVAL@COMPILE
(RPAQQ DoveIO.beepHandler 1)
(RPAQ DoveIO.diskHandler (ADD1 DoveIO.beepHandler))
(RPAQ DoveIO.displayHandler (ADD1 DoveIO.diskHandler))
(RPAQ DoveIO.ethernetHandler (ADD1 DoveIO.displayHandler))
(RPAQ DoveIO.floppyHandler (ADD1 DoveIO.ethernetHandler))
(RPAQ DoveIO.kymoHandler (ADD1 DoveIO.floppyHandler))
(RPAQ DoveIO.mpHandler (ADD1 DoveIO.kymoHandler))
(RPAQQ DoveIO.lispHandler 16)
(RPAQ DoveIO.ttyHandler (ADD1 DoveIO.lispHandler))
(RPAQ DoveIO.rs232Handler (ADD1 DoveIO.ttyHandler))
(RPAQ DoveIO.confHandler (ADD1 DoveIO.rs232Handler))
(RPAQ DoveIO.pceDispatchHandler (ADD1 DoveIO.confHandler))
(RPAQ DoveIO.pceDisplayHandler (ADD1 DoveIO.pceDispatchHandler))
(RPAQ DoveIO.pceKeyHandler (ADD1 DoveIO.pceDisplayHandler))
(RPAQ DoveIO.pceMouseHandler (ADD1 DoveIO.pceKeyHandler))
(RPAQ DoveIO.pcePrinterHandler (ADD1 DoveIO.pceMouseHandler))
(RPAQ DoveIO.pceFloppyHandler (ADD1 DoveIO.pcePrinterHandler))
(RPAQ DoveIO.pceHardDiskHandler (ADD1 DoveIO.pceFloppyHandler))
(RPAQ DoveIO.pceDMAHandler (ADD1 DoveIO.pceHardDiskHandler))
(RPAQ DoveIO.pceTimer (ADD1 DoveIO.pceDMAHandler))
(CONSTANTS (DoveIO.beepHandler 1)
(DoveIO.diskHandler (ADD1 DoveIO.beepHandler))
(DoveIO.displayHandler (ADD1 DoveIO.diskHandler))
(DoveIO.ethernetHandler (ADD1 DoveIO.displayHandler))
(DoveIO.floppyHandler (ADD1 DoveIO.ethernetHandler))
(DoveIO.kymoHandler (ADD1 DoveIO.floppyHandler))
(DoveIO.mpHandler (ADD1 DoveIO.kymoHandler))
(DoveIO.lispHandler 16)
(DoveIO.ttyHandler (ADD1 DoveIO.lispHandler))
(DoveIO.rs232Handler (ADD1 DoveIO.ttyHandler))
(DoveIO.confHandler (ADD1 DoveIO.rs232Handler))
(DoveIO.pceDispatchHandler (ADD1 DoveIO.confHandler))
(DoveIO.pceDisplayHandler (ADD1 DoveIO.pceDispatchHandler))
(DoveIO.pceKeyHandler (ADD1 DoveIO.pceDisplayHandler))
(DoveIO.pceMouseHandler (ADD1 DoveIO.pceKeyHandler))
(DoveIO.pcePrinterHandler (ADD1 DoveIO.pceMouseHandler))
(DoveIO.pceFloppyHandler (ADD1 DoveIO.pcePrinterHandler))
(DoveIO.pceHardDiskHandler (ADD1 DoveIO.pceFloppyHandler))
(DoveIO.pceDMAHandler (ADD1 DoveIO.pceHardDiskHandler))
(DoveIO.pceTimer (ADD1 DoveIO.pceDMAHandler)))
)
(DECLARE%: EVAL@COMPILE
(MESARECORD Dove.OpieAddress ((LoPart.BS WORD)
(HiPart BYTE)
(AddrType BYTE))
[ACCESSFNS ((LispPointer (\DoveIO.PointerFromOpieAddress DATUM)
(\DoveIO.MakeOpieAddress DATUM NEWVALUE])
(MESATYPE DoveIO.ClientCondition (3 WORD))
(MESARECORD DoveIO.TaskContextBlock ((taskQueue 2 WORD)
(taskCondition WORD)
(taskICPtr WORD)
(taskSP WORD)
(returnSPSS 2 WORD)
(prevState BITS 4)
(presentState BITS 4)
(taskHandlerID BYTE)
(timerValue WORD)))
(MESARECORD DoveIO.SegmentRec ((ioRegionSegment WORD)
(stackSegment WORD)))
(MESARECORD DoveIO.IORTable ((mesaHasLock BITS 16)
(iopRequestsLock BITS 16)
(segments DoveIO.SegmentRec)))
(MESARECORD Dove.QueueBlock ((QueueHead Dove.OpieAddress)
(QueueTail Dove.OpieAddress)
(QueueNext Dove.OpieAddress))
[ACCESSFNS ((LispQueueHead (\DoveIO.PointerFromOpieAddress
(fetch (Dove.QueueBlock QueueHead)
of DATUM))
(\DoveIO.MakeOpieAddress (fetch (
Dove.QueueBlock
QueueHead)
of DATUM)
NEWVALUE))
(LispQueueTail (\DoveIO.PointerFromOpieAddress
(fetch (Dove.QueueBlock QueueTail)
of DATUM))
(\DoveIO.MakeOpieAddress (fetch (
Dove.QueueBlock
QueueTail)
of DATUM)
NEWVALUE))
(LispQueueNext (\DoveIO.PointerFromOpieAddress
(fetch (Dove.QueueBlock QueueNext)
of DATUM))
(\DoveIO.MakeOpieAddress (fetch (
Dove.QueueBlock
QueueNext)
of DATUM)
NEWVALUE])
)
(PUTPROPS \DoveFCBAt ARGNAMES (OFFSET))
(RPAQQ DOVEIOREGIONOFFSETS
((\Dove.VmemPageRunTableOffset 16128)
(\Dove.MesaClientFCBOffset 4474)
(\Dove.RemoteMemoryFCBOffset 3911)
(\Dove.UnservicedFCBOffset 3815)
(\Dove.WorkNotifierFCBOffset 3719)
(\Dove.BindweedFCBOffset 3623)
(\Dove.BootStrapFCBOffset 3527)
(\Dove.WatchDogFCBOffset 3431)
(\Dove.TestClientFCBOffset 2816)
(\Dove.TimerFCBOffset 870)
(\Dove.UmbilicalFCBOffset 478)
(\Dove.ParityFCBOffset 382)
(\Dove.OpieFCBOffset 30)
(\Dove.BermudaFCBOffset 26)))
(DECLARE%: EVAL@COMPILE
(RPAQQ \Dove.VmemPageRunTableOffset 16128)
(RPAQQ \Dove.MesaClientFCBOffset 4474)
(RPAQQ \Dove.RemoteMemoryFCBOffset 3911)
(RPAQQ \Dove.UnservicedFCBOffset 3815)
(RPAQQ \Dove.WorkNotifierFCBOffset 3719)
(RPAQQ \Dove.BindweedFCBOffset 3623)
(RPAQQ \Dove.BootStrapFCBOffset 3527)
(RPAQQ \Dove.WatchDogFCBOffset 3431)
(RPAQQ \Dove.TestClientFCBOffset 2816)
(RPAQQ \Dove.TimerFCBOffset 870)
(RPAQQ \Dove.UmbilicalFCBOffset 478)
(RPAQQ \Dove.ParityFCBOffset 382)
(RPAQQ \Dove.OpieFCBOffset 30)
(RPAQQ \Dove.BermudaFCBOffset 26)
(CONSTANTS (\Dove.VmemPageRunTableOffset 16128)
(\Dove.MesaClientFCBOffset 4474)
(\Dove.RemoteMemoryFCBOffset 3911)
(\Dove.UnservicedFCBOffset 3815)
(\Dove.WorkNotifierFCBOffset 3719)
(\Dove.BindweedFCBOffset 3623)
(\Dove.BootStrapFCBOffset 3527)
(\Dove.WatchDogFCBOffset 3431)
(\Dove.TestClientFCBOffset 2816)
(\Dove.TimerFCBOffset 870)
(\Dove.UmbilicalFCBOffset 478)
(\Dove.ParityFCBOffset 382)
(\Dove.OpieFCBOffset 30)
(\Dove.BermudaFCBOffset 26))
)
(RPAQQ DOVEOPIEADDRESSTYPES (\DoveIO.ExtendedBusType \DoveIO.IOPIORegionRelativeType
\DoveIO.IOPLogicalType \DoveIO.PCLogicalType
\DoveIO.VirtualFirst64KRelativeType \DoveIO.VirtualPageType
\DoveIO.VirtualWordType))
(DECLARE%: EVAL@COMPILE
(RPAQQ \DoveIO.ExtendedBusType 16)
(RPAQQ \DoveIO.IOPIORegionRelativeType 81)
(RPAQQ \DoveIO.IOPLogicalType 80)
(RPAQQ \DoveIO.PCLogicalType 144)
(RPAQQ \DoveIO.VirtualFirst64KRelativeType 225)
(RPAQQ \DoveIO.VirtualPageType 240)
(RPAQQ \DoveIO.VirtualWordType 224)
(CONSTANTS \DoveIO.ExtendedBusType \DoveIO.IOPIORegionRelativeType \DoveIO.IOPLogicalType
\DoveIO.PCLogicalType \DoveIO.VirtualFirst64KRelativeType \DoveIO.VirtualPageType
\DoveIO.VirtualWordType)
)
(RPAQQ \Dove.FCBSizes
((NIL 2)
(\Dove.MesaIOPOffset 5)
(\Dove.WorkMaskAreaOffset 17)
(\Dove.MesaPageMapLocationOffset 2)
(\Dove.BermudaFCBOffset 4)
(\Dove.OpieFCBOffset 256)
(\Dove.MaintPanelFCBOffset 96)
(\Dove.ParityFCBOffset 96)
(\Dove.UmbilicalFCBOffset 96)
(\Dove.Keyboard&MouseFCBOffset 175)
(\Dove.BeepFCBOffset 25)
(\Dove.DisplayFCBOffset 96)
(\Dove.TimerFCBOffset 96)
(\Dove.EthernetFCBOffset 1850)
(\Dove.TestClientFCBOffset 340)
(\Dove.DiskFCBOffset 150)
(\Dove.FloppyFCBOffset 125)
(\Dove.WatchDogFCBOffset 96)
(\Dove.BootStrapFCBOffset 96)
(\Dove.BindweedFCBOffset 96)
(\Dove.WorkNotifierFCBOffset 96)
(\Dove.UnservicedFCBOffset 96)
(\Dove.RemoteMemoryFCBOffset 231)
(\Dove.TTYFCBOffset 96)
(\Dove.RS232CFCBOffset 140)
(\Dove.ProcessorFCBOffset 96)
(\Dove.MesaClientFCBOffset 96)
(\Dove.PCEDispatcherFCBOffset 96)
(\Dove.PCETimerFCBOffset 96)
(\Dove.PCEParallelFCBOffset 96)
(\Dove.PCEDisplayFCBOffset 96)
(\Dove.PCEKeyboardFCBOffset 96)
(\Dove.PCERS232CFCBOffset 96)
(\Dove.PCEDiskFCBOffset 96)
(\Dove.PCEFloppyFCBOffset 160)))
(RPAQQ \DoveIO.PromVersion NEW)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS \DoveBeep.FCBPointer \DoveProcessor.FCBPointer \DoveKyMo.FCBPointer \DoveMP.FCBPointer
\DoveDisk.FCBPointer \DoveDisplay.FCBPointer \DoveEther.FCBPointer \DoveFloppy.FCBPointer)
)
(SETTEMPLATE '\DoveIO.LockMem '(|..| EVAL))
(PUTPROPS DOVEDECLS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1990))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP