65 lines
1.2 KiB
OpenEdge ABL
65 lines
1.2 KiB
OpenEdge ABL
IFND EXEC_PORTS_I
|
|
EXEC_PORTS_I SET 1
|
|
**
|
|
** $Filename: exec/ports.i $
|
|
** $Release: 1.3 $
|
|
**
|
|
**
|
|
**
|
|
** (C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
|
|
** All Rights Reserved
|
|
**
|
|
|
|
IFND EXEC_NODES_I
|
|
INCLUDE "exec/nodes.i"
|
|
ENDC ; EXEC_NODES_I
|
|
|
|
IFND EXEC_LISTS_I
|
|
INCLUDE "exec/lists.i"
|
|
ENDC ; EXEC_LISTS_I
|
|
|
|
|
|
*----------------------------------------------------------------
|
|
*
|
|
* Message Port Structure
|
|
*
|
|
*----------------------------------------------------------------
|
|
|
|
STRUCTURE MP,LN_SIZE
|
|
UBYTE MP_FLAGS
|
|
UBYTE MP_SIGBIT * signal bit number
|
|
APTR MP_SIGTASK * task to be signalled
|
|
STRUCT MP_MSGLIST,LH_SIZE * message linked list
|
|
LABEL MP_SIZE
|
|
|
|
|
|
*------ unions:
|
|
|
|
MP_SOFTINT EQU MP_SIGTASK
|
|
|
|
|
|
*------ flags fields:
|
|
|
|
PF_ACTION EQU 3
|
|
|
|
|
|
*------ PutMsg actions:
|
|
|
|
PA_SIGNAL EQU 0
|
|
PA_SOFTINT EQU 1
|
|
PA_IGNORE EQU 2
|
|
|
|
|
|
*----------------------------------------------------------------
|
|
*
|
|
* Message Structure
|
|
*
|
|
*----------------------------------------------------------------
|
|
|
|
STRUCTURE MN,LN_SIZE
|
|
APTR MN_REPLYPORT * message reply port
|
|
UWORD MN_LENGTH * message len in bytes
|
|
LABEL MN_SIZE
|
|
|
|
ENDC ; EXEC_PORTS_I
|