STRUCTURE JanusMemHead,O
UBYTE jmhLock
;
lock byte between processors
UBYTE
jmhpad0
APTR jmh68000Base
:
rptr's are relative to this
UWORD
jmh8088Segment
;
segment base for 8088
RPTR
jmhFirst
;
offset to first free chunk
RPTR
jmhMax
;
max allowable index
UWORD
jmhFree
;
total number of
free
bytes
-
1
LABEL JanusMemHeadSIZEOF
STRUCTURE JanusMemChunk.0
RPTR jmc-Next
;
rptr to next free chunk
UWORD
jmc-Size
;
size of chunk
-1
LABEL JanusMemChunkSlZEOF
STRUCTURE JanusBase,O
UBYTE jb-Lock
;
also used
to
handshake at 8088 reset
UBWE
jb-8088Go
;
unlocked to signal 8088 to initialize
STRUCT
jb-ParamMem.JanusMemHeadSIZE0F
STRUCT
jb-BufferMem,JanusMemHead_SIZEOF
RPTR jb-Interrupts
RPTR jb-Parameters
UWORD jb-Numlnterrupts
LABEL JanusBase-SIZEOF
constant to set to indicate a pending software interrupt
JSETINT EQU $7f
FUNCDEF
SeUanusHandler
FUNCDEF SeUanusEnable
FUNCDEF SetJanusRequest
FUNCDEF SendJanuslnt
FUNCDEF CheckJanuslnt
FUNCDEF AllocJanusMem
FUNCDEF FreeJanusMem
FUNCDEF JanusMemBase
FUNCDEF JanusMemType
FUNCDEF JanusMemToOffset
FUNCDEF GetParamOffset
FUNCDEF SetParamOffset
FUNCDEF GeUanusStart
FUNCDEF SetupJanusSig
FUNCDEF CleanupJanusSig
FUNCDEF JanusLock
FUNCDEF JanusUnLock
FUNCDEF JBCopy