github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-26 20:31:53 +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

293
sources/DOVEETHERDECLS Executable file
View File

@@ -0,0 +1,293 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "16-May-90 16:04:03" {DSK}<usr>local>lde>lispcore>sources>DOVEETHERDECLS.;2 14397
changes to%: (VARS DOVEETHERDECLSCOMS)
previous date%: "17-Dec-86 18:38:00" {DSK}<usr>local>lde>lispcore>sources>DOVEETHERDECLS.;1)
(* ; "
Copyright (c) 1986, 1990 by Venue & Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT DOVEETHERDECLSCOMS)
(RPAQQ DOVEETHERDECLSCOMS
((FILES MESATYPES)
(RECORDS Dove.EtherSCB)
(RECORDS Dove.EtherAddr Dove.EtherConfigure Dove.EtherDumpStatus Dove.EtherFCB
Dove.Etheri586Status Dove.EtherIOCB Dove.EtherCommandIOCB Dove.EtherIOIOCB
Dove.EtherMulticastAddr Dove.EtherTransmit Dove.RxBufferDesc Dove.RxFrameDesc
Dove.TimeDomainRFL)
(FUNCTIONS \DoveEther.DoOutput)
(CONSTANTS \DoveEther.MulticastAddr \DoveEther.QueuePtrSize \DoveEther.ClientConditionSize
\DoveEther.IOIOCBLength \DoveEther.RequestON \DoveEther.RequestOFF)
(CONSTANTS * DoveEther.IOCBTypes)
(CONSTANTS * DoveEther.ActionCommands)))
(FILESLOAD MESATYPES)
(DECLARE%: EVAL@COMPILE
(MESARECORD Dove.EtherSCB ((stat BITS 4)
(NIL BITS 1)
(cus BITS 3) (* command unit status)
(NIL BITS 1)
(rus BITS 3) (* receive unit status)
(NIL BITS 4)
(ack BITS 4) (* acknowledge int)
(NIL BITS 1)
(cuc BITS 3) (* command unit command)
(reset FLAG)
(ruc BITS 3) (* receive unit command)
(NIL BITS 4)
(cblOffset WORD)
(rfaOffset WORD)
(crcErrs WORD)
(alnErrs WORD)
(rscErrs WORD)
(ovrnErrs WORD)))
)
(DECLARE%: EVAL@COMPILE
(BLOCKRECORD Dove.EtherAddr ((id 3 WORD)))
(MESARECORD Dove.EtherConfigure ((NIL BITS 4)
(ByteCount BITS 4)
(NIL BITS 4)
(FifoLimit BITS 4)
(SaveBadFrames FLAG)
(SyncReady FLAG)
(NIL BITS 6)
(ExternalLoopBack FLAG)
(InternalLoopBack FLAG)
(PreambleLength BITS 2)
(AddrTypeLoc BITS 1)
(AddrLength BITS 3)
(ExpBackoffMethod BITS 1)
(AccContRes BITS 3)
(NIL BITS 1)
(LinearPolarity BITS 3)
(InterframeSpacing BYTE)
(SlotTimeLow BYTE)
(RetryNumber BITS 4)
(NIL BITS 1)
(SlotTimeHigh BITS 3)
(Padding FLAG)
(BitStuffing FLAG)
(CRC16 FLAG)
(NoCRCInsertion FLAG)
(TxNoCRS FLAG)
(NRZEncoding FLAG)
(BroadcastDisable FLAG)
(PromiscuousMode FLAG)
(InternalCDT FLAG)
(CDTFilter BITS 3)
(InternalCRS FLAG)
(CRSFilter BITS 3)
(MinFrameLength BYTE)
(NIL BYTE)))
(BLOCKRECORD Dove.EtherDumpStatus ((Buffer WORD)))
(MESARECORD Dove.EtherFCB ((mesaOutQueue Dove.QueueBlock)
(mesaInQueue Dove.QueueBlock)
(mesaClientStateRequest WORD)
(scb Dove.EtherSCB)
(etherOutWorkMask WORD)
(etherInWorkMask WORD)
(etherLockMask WORD)
(mesaInClientState WORD)
(mesaOutClientState WORD)))
(BLOCKRECORD Dove.Etheri586Status ((completion FLAG)
(busy FLAG)
(okay FLAG))
(BLOCKRECORD Dove.Etheri586Status ((NIL BITS 3)
(* receiveframe variant)
(unused FLAG)
(crcErr FLAG)
(alnErr FLAG)
(rscErr FLAG)
(ovrnErr FLAG)
(frameTooShort FLAG)
(noEOFFlag FLAG)
(NIL BITS 6)))
(BLOCKRECORD Dove.Etheri586Status ((NIL BITS 3)
(* command variant.
 Mainly for transmit)
(aborted FLAG)
(NIL FLAG)
(noCRS FLAG)
(lossOfCTS FLAG)
(underrun FLAG)
(deferred FLAG)
(sqeTest FLAG)
(tooManyCollisions FLAG)
(NIL BITS 1)
(collisions BITS 4))))
(MESARECORD Dove.EtherIOCB ((next Dove.OpieAddress) (* Next IOCB in IO queue)
(ClientCondition 3 WORD) (* Gets notifed in Mesaland when IO
 is complete)
(i586Status WORD) (* Status from the Dove ethernet
 coprocessor)
(Status BYTE) (* IO status?)
(IOCBType BITS 4) (* What type of IO operation is
 this?)
(Action BITS 4) (* Used only for Command variant)
)
[ACCESSFNS ((nextIOCB (fetch (Dove.OpieAddress LispPointer)
of (fetch (Dove.EtherIOCB next)
of DATUM))
(replace (Dove.OpieAddress LispPointer)
of (fetch (Dove.EtherIOCB next)
of DATUM) with NEWVALUE]
(BLOCKRECORD Dove.EtherIOCB ((NIL 6 WORD)
(done FLAG)
(handled FLAG)
(okay FLAG)
(frameTooLong FLAG)
(interruptTimeout FLAG)
(NIL BITS 2)
(isDequeued FLAG))))
(MESARECORD Dove.EtherCommandIOCB ((iocbCommon Dove.EtherIOCB)
(select 7 WORD)))
(MESARECORD Dove.EtherIOIOCB ((iocbCommon Dove.EtherIOCB)
(address Dove.OpieAddress)
(length WORD)
(count WORD))
[ACCESSFNS ((bufferAddress (fetch (Dove.OpieAddress LispPointer)
of (fetch (Dove.EtherIOIOCB
address)
of DATUM))
(replace (Dove.OpieAddress LispPointer)
of (fetch (Dove.EtherIOIOCB address)
of DATUM) with NEWVALUE])
(BLOCKRECORD Dove.EtherMulticastAddr ((ByteCount WORD)
(MulticastID1 3 WORD)
(MulticastID2 3 WORD)))
(BLOCKRECORD Dove.EtherTransmit ((BdPtr WORD)
(DestAddr 3 WORD)
(Type WORD)))
(BLOCKRECORD Dove.RxBufferDesc ((EndOfFrame FLAG)
(Filled FLAG)
(ActualCount BITS 14)
(Next WORD)
(BufAddrIOPReal WORD)
(EndOfList FLAG)
(Unused FLAG)
(Size BITS 14)))
(BLOCKRECORD Dove.RxFrameDesc ((Status WORD)
(EndOfList FLAG)
(Suspend FLAG)
(NIL BITS 14)
(Link WORD)
(BDPtr WORD)
(DestAddr 3 WORD)
(SourceAddr 3 WORD)
(Type WORD)))
(BLOCKRECORD Dove.TimeDomainRFL ((LinkOK FLAG)
(XcvrProblem FLAG)
(Open FLAG)
(Short FLAG)
(NIL FLAG)
(Time BITS 11)))
)
(DEFMACRO \DoveEther.DoOutput (IOCB)
`(PROGN (\DoveEther.Initiate ,IOCB)
(until (fetch (Dove.EtherIOCB done) of ,IOCB))
(\DoveEther.DeQueue (fetch (Dove.EtherFCB mesaOutQueue) of \DoveEther.FCBPointer)
,IOCB)
(fetch (Dove.EtherIOCB okay) of ,IOCB)))
(DECLARE%: EVAL@COMPILE
(RPAQQ \DoveEther.MulticastAddr 3)
(RPAQQ \DoveEther.QueuePtrSize 6)
(RPAQQ \DoveEther.ClientConditionSize 3)
(RPAQQ \DoveEther.IOIOCBLength 11)
(RPAQQ \DoveEther.RequestON 1)
(RPAQQ \DoveEther.RequestOFF 0)
(CONSTANTS \DoveEther.MulticastAddr \DoveEther.QueuePtrSize \DoveEther.ClientConditionSize
\DoveEther.IOIOCBLength \DoveEther.RequestON \DoveEther.RequestOFF)
)
(RPAQQ DoveEther.IOCBTypes ((DoveEther.commandIOCBType 0)
(DoveEther.outputIOCBType 1)
(DoveEther.resetIOCBType 2)
(DoveEther.startRUIOCBType 3)
(DoveEther.inputIOCBType 15)))
(DECLARE%: EVAL@COMPILE
(RPAQQ DoveEther.commandIOCBType 0)
(RPAQQ DoveEther.outputIOCBType 1)
(RPAQQ DoveEther.resetIOCBType 2)
(RPAQQ DoveEther.startRUIOCBType 3)
(RPAQQ DoveEther.inputIOCBType 15)
(CONSTANTS (DoveEther.commandIOCBType 0)
(DoveEther.outputIOCBType 1)
(DoveEther.resetIOCBType 2)
(DoveEther.startRUIOCBType 3)
(DoveEther.inputIOCBType 15))
)
(RPAQQ DoveEther.ActionCommands ((DoveEther.actionNop 0)
(DoveEther.actionIndividualAddr 1)
(DoveEther.actionConfigure 2)
(DoveEther.actionMulticastAddr 3)
(DoveEther.actionTransmit 4)
(DoveEther.actionTimeDomainRfl 5)
(DoveEther.actionDumpStatus 6)
(DoveEther.actionDiagnose 7)))
(DECLARE%: EVAL@COMPILE
(RPAQQ DoveEther.actionNop 0)
(RPAQQ DoveEther.actionIndividualAddr 1)
(RPAQQ DoveEther.actionConfigure 2)
(RPAQQ DoveEther.actionMulticastAddr 3)
(RPAQQ DoveEther.actionTransmit 4)
(RPAQQ DoveEther.actionTimeDomainRfl 5)
(RPAQQ DoveEther.actionDumpStatus 6)
(RPAQQ DoveEther.actionDiagnose 7)
(CONSTANTS (DoveEther.actionNop 0)
(DoveEther.actionIndividualAddr 1)
(DoveEther.actionConfigure 2)
(DoveEther.actionMulticastAddr 3)
(DoveEther.actionTransmit 4)
(DoveEther.actionTimeDomainRfl 5)
(DoveEther.actionDumpStatus 6)
(DoveEther.actionDiagnose 7))
)
(PUTPROPS DOVEETHERDECLS COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP

1
sources/TCPHTE Executable file
View File

File diff suppressed because one or more lines are too long