DataMuseum.dk

top - metrics - download

    Length: 3840 (0xf00)
    Types: TextFileVerbose
    Names: »rtp35022en5«

└─⟦242fa0fec⟧ Bits:30003097 SW2101/2/3.02 RC3502/2 Real-Time Pascal Cross Compiler
    └─⟦0d4b7be7a⟧ 
        └─⟦this⟧ »rtp35022en5« 

TextFileVerbose

; file: rtp35022en5
; version 14
; bb 85.11.18
;
; definition of standard constants
;
;*************************************
b. level, exopcode, excode, expoint, exic,
   chain, mkind, msize, mstart, owner, answer, mmsgchain, u1, u2, u3, u4,
   connix, credit, reason, eventkind,
   mfirst, mlast, mnext,
   lastparam,
   semchain, refchain, shadowchain, msgchain, processchain,
   heap,
   osem, oref, oshadow,
   opdprocess, opdcount, opdparam, opdlinked, opdprinf, opdname,
   rsexcfirst, cpexcfirst, mpexcfirst,
   exappetite, exitappetite,
   alfalength,
   maxstack,
   bonappetite,
   timer,
   plinetab.


;general constants
alfalength  = 12 ;


; fields in incarnation descriptor
timer       = 0  ; word: own.timer
level       = 2  ; byte: current level
excode      = 6  ; word: code identifying exception cause
exopcode    = 8  ; byte: opcode at exception
exic        = 9  ; adr : instruction counter at exception
expoint     = 13 ; adr : exceptionpoint
maxstack    = 16 ; word: displacement of last byte in incarnation stack
semchain    = 27 ; adr : chain of semaphores
refchain    = 30 ; adr : chain of references
shadowchain = 33 ; adr : chain of shadows
msgchain    = 36 ; adr : chain of messages
processchain= 39 ; adr : chain of process descriptors
heap        = 56 ; adr : link to heap root record
plinetab    = 59 ; adr : link to line table

; fields in message header
chain     = 0 ; addr : link to next message header
u1        = 4 ; byte : first userbyte
u2        = 5 ; byte : second userbyte
u3        = 6 ; byte : third userbyte
u4        = 7 ; byte : fourth userbyte
mkind     = 8 ; word : messagekind
msize     = 10; word : messagesize
mstart    = 12; addr : buffer start
owner     = 16; adr  : owner semaphore pointer
answer    = 19; adr  : answer semaphore pointer
mmsgchain = 22; adr  : next message in chain
connix    = 28; byte : connection index
credit    = 29; byte : credit count
reason    = 30; byte : reason
eventkind = 31; byte : eventkind

; fields in message buffer
mfirst    = 0 ; word : first offset in buffer
mlast     = 2 ; word : last offset in buffer
mnext     = 4 ; word : next offset in buffer

; procedure frame offsets
lastparam = -1
    

;exception constants
mpexcfirst = 1;
rsexcfirst = mpexcfirst + 29;
cpexcfirst = rsexcfirst + 6 ;

exappetite   = 42               ; appetite for standard exception routine
exitappetite = 0                ; appetite for exit code
bonappetite  = exitappetite + 42; exit and exception appetites

   
; offsets to fields in system types.

osem      = 4 ; offset to chain_field in a semaphore
oref      = 4 ;    -    -    -    -    - - reference
oshadow   = 3 ;    -    -    -    -    - - shadow
opdcount  = 0 ;    -    - incarnationcount field in a process descriptor
opdparam  = 2 ;    -    - param pointer      -    -    -         -
opdlinked = 5 ;    -    - linkstate          -    -    -         -
opdprinf  = 7 ;    -    - proc inf pointer   -    -    -         -
opdname   = 10;    -    - process name       -    -    -         -
opdprocess= 22;    -    - process chain      -    -    -         -
.
«eof»