Mercurial > hg > Members > kono > nitros9-code

annotate level2/modules/kernel/fgprdsc.asm @ 1631:ec6fb5543b22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Robert Gault's modifications for correcting timing errors
author boisy
date Mon, 12 Jul 2004 01:38:08 +0000
parents 1da8ab9ba433
children 039ddb7c8ad7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1345
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
1 **************************************************
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
2 * System Call: F$GPrDsc
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
3 *
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
4 * Function: Get copy of process descriptor
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
5 *
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
6 * Input: A = Desired process ID
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
7 * X = 512 byte buffer pointer
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
8 *
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
9 * Output: None
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
10 *
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
11 * Error: CC = C bit set; B = error code
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
12 *
1145
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
13 FGPrDsc ldx <D.Proc Get current process dsc. ptr.
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
14 ldb P$Task,x Get task number
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
15 lda R$A,u Get requested process ID #
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
16 os9 F$GProcP Get ptr to process to descriptor
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
17 bcs L0962 Error, exit with it
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
18 lda <D.SysTsk Get system task #
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
19 leax ,y Point X to the process descriptor
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
20 ldy #P$Size Y=Size of process descriptor (512 bytes)
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
21 ldu R$X,u Get requested place to put copy of process dsc.
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
22 os9 F$Move Move it into caller's space
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
23 L0962 rts