GDSX (Extended General Device Support) Manual

Service Routines
Extended General Device Support (GDSX) Manual—529931-001
8-59
Q^CP[X]
datai input
is a pointer containing a word address where data copying should begin.
bytesi input
INT:value
is the length in words of the data to be copied, starting at datai.
Consideration
Q^CPX may be used to queue an area in extended memory. However, USCODE
seldom needs to use this procedure because ^CHECKPOINT (2) checkpoints all
extended memory acquired.
Examples
1. See the description of the USER^BACKUP on page 9-10 for an example showing
how user global checkpointing can be done when a GDSX process pair is
initialized.
2. This example checkpoints a record read from a disk file:
.
BLOCK USER^PRIVATE;
INT FILE^NUM;
INT AREA[0:11];
STRUCT SEM^TEMPLATE(*);
BEGIN
INT OWNER;
INT HEAD;
INT TAIL;
END;
STRUCT SEM(SEM^TEMPLATE);
END BLOCK;
.
.
PROC DEVICE^HANDLER( );
BEGIN
INT flags,t;
INT DISK^NAME [0:11];
INT readcnt := 20,
cnt := 0;
INT GOTSEM := 0;
DISC^NAME ':=' ["$DISK1 SUBVOLA FILEA "];
flags := 1;
INT:ref (Use with Q^CP.)
INT .EXT:ref (Use with Q^CPX.)