GDSX Manual

Service Routines
Extended General Device Support (GDSX) Manual–134303
8-33
GETEXTPOOLX
.
END
ELSE
BEGIN !We are not the first D^H task to be created
@WORK^PTR := @TASK^SHARED^PTR;
IF WORK^PTR = "5" THEN
BEGIN
.
.
CALL PUTEXTPOOL(1, @WORK^PTR);
GETEXTPOOLX
This procedure allocates extended memory pool space for the calling task. Unlike
GETEXTPOOL, GETEXTPOOLX can be used for allocating more than 64 KB of
memory space. The upper limit for the configuration parameters MAXCPSIZE and
TASKCPSIZE is increased to 65000 to support checkpointing of pools larger than 64KB
size. The upper limit for the configuration parameters POOLSIZE and TASKPOOLSIZE
is set to 65000.
For more information, see “Memory Pools” in Section 2.
address returned value
INT .EXT:value
is the relative extended address of area allocated, unless space was not available, in
which case a zero is returned.
pool input
INT:value
is the pool to allocate space for. The values of pool are as follows:
size input
INT(32):value
indicates the number of words to allocate.
address := GETEXTPOOLX ( pool !
i
,size ) ; !
i
1 Shared extended pool
2 Private extended pool
10 Extended buffer pool
11 Extended message pool