home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / amigalib.lzh / AMIGALIB / AMIGALIB.LZH / includes / execextens.inc < prev    next >
Encoding:
Text File  |  1990-01-17  |  2.7 KB  |  68 lines
  1. c
  2. c node definitions
  3. c
  4.        integer NT_UNKNOWN       ;parameter(NT_UNKNOWN=0) 
  5.        integer NT_TASK        ;parameter(NT_TASK=1) 
  6.        integer NT_INTERRUPT    ;parameter(NT_INTERRUPT=2)
  7.        integer NT_DEVICE    ;parameter(NT_DEVICE=3) 
  8.        integer NT_MSGPORT    ;parameter(NT_MSGPORT=4) 
  9.        integer NT_MESSAGE    ;parameter(NT_MESSAGE=5)
  10.        integer NT_FREEMSG    ;parameter(NT_FREEMSG=6) 
  11.        integer NT_REPLYMSG    ;parameter(NT_REPLYMSG=7)
  12.        integer NT_RESOURCE    ;parameter(NT_RESOURCE=8)
  13.        integer NT_LIBRARY    ;parameter(NT_LIBRARY=9)
  14.        integer NT_MEMORY    ;parameter(NT_MEMORY=10)
  15.        integer NT_SOFTINT    ;parameter(NT_SOFTINT=11)
  16.        integer NT_FONT        ;parameter(NT_FONT=12)
  17.        integer NT_PROCESS    ;parameter(NT_PROCESS=13)
  18.        integer NT_SEMAPHORE    ;parameter(NT_SEMAPHORE=14)
  19.        integer NT_SIGNALSEM    ;parameter(NT_SIGNALSEM=15)
  20.        integer NT_BOOTNODE    ;parameter(NT_BOOTNODE=16)
  21. c
  22. c the node structure
  23. c
  24.       integer*1 Node(14)
  25.       integer*4 ln_Succ       ; equivalence(Node(1),ln_Succ)
  26.       integer*4 ln_Pred       ; equivalence(Node(5),ln_Pred)
  27.       integer*1 ln_Type       ; equivalence(Node(9),ln_Type)
  28.       integer*1 ln_Pri        ; equivalence(Node(10),ln_Pri)
  29.       integer*4 ln_Name       ; equivalence(Node(11),ln_Name)
  30. c
  31. c  the node offsets
  32. c
  33.       INTEGER LN_SUCC         ; parameter(LN_SUCC = 0)
  34.       integer LN_PRED         ; parameter(LN_PRED = LN_SUCC+4)
  35.       integer LN_TYPE         ; parameter(LN_TYPE = LN_PRED+4)
  36.       integer LN_PRI          ; parameter(LN_PRI = LN_TYPE+1)
  37.       integer LN_NAME         ; parameter(LN_NAME = LN_PRI +1)
  38. c
  39. c port definitions
  40. c
  41.       integer PF_ACTION          ;parameter(PF_ACTION = 3)
  42.       integer PA_SIGNAL       ;parameter(PA_SIGNAL = 0)
  43.       integer PA_SOFTINT      ;parameter(PA_SOFTINT = 1)
  44.       integer PA_IGNORE          ;parameter(PA_IGNORE = 2)
  45. C
  46. C The Message Structure
  47. C
  48.       integer mn_Message       ;parameter(mn_Message = 0)
  49.       integer mn_ReplyPort     ;parameter(mn_ReplyPort = mn_Message+14)
  50.       integer mn_Length        ;parameter(mn_Length = mn_ReplyPort+4)
  51. c
  52. c the msgport structure
  53. c
  54.       integer*1 MsgPort(34)
  55.       integer   mp_Node       ; equivalence(MsgPort(1),Node(1))
  56.       integer*1 mp_Flags      ; equivalence(MsgPort(15),mp_Flags)
  57.       integer*1 mp_SigBit     ; equivalence(MsgPort(16),mp_SigBit)
  58.       integer*4 mp_SigTask    ; equivalence(MsgPort(17),mp_SigTask)
  59.       integer   mp_MsgList    ; equivalence(MsgPort(21),mp_MsgList)
  60. c
  61. c the list structure offsets
  62. c
  63.       integer LH_HEAD         ;parameter(LH_HEAD = 0)
  64.       integer LH_TAIL         ;parameter(LH_TAIL = LH_HEAD+4)
  65.       integer LH_TAILPRED     ;parameter(LH_TAILPRED = LH_TAIL+4)
  66.       integer LH_TYPE         ;parameter(LH_TYPE = LH_TAILPRED+4)
  67.       integer LH_PAD          ;parameter(LH_PAD = LH_TYPE+1)
  68.