Mercurial > hg > Members > kono > nitros9-code

annotate level2/modules/kernel/fgblkmp.asm @ 1624:bb75784a1ec5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor source change by Rodney H.
author boisy
date Wed, 30 Jun 2004 01:07:36 +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$GBlkMp
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:
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: X = 1024 byte buffer pointer
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
7 *
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
8 * Output: D = Number of bytes per block
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
9 * Y = Size of system's memory block map
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 *
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
12 * Error: CC = C bit set; B = error code
1da8ab9ba433 Added consistent comments to each system call
boisy
parents: 1145
diff changeset
13 *
1145
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
14 FGBlkMp ldd #DAT.BlSz # bytes per MMU block (8k)
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
15 std R$D,u Put into caller's D register
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
16 ldd <D.BlkMap+2 Get end of system block map ptr
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
17 subd <D.BlkMap Subtract start of system block map ptr
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
18 std R$Y,u Store size of system block map in caller's Y reg.
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
19 tfr d,y
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
20 lda <D.SysTsk Get system task #
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
21 ldx <D.Proc Get caller's task #
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
22 ldb P$Task,x get task # of caller
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
23 ldx <D.BlkMap Get start ptr of system block map
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
24 L0978 ldu R$X,u Get addr to put it that caller requested
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
25 os9 F$Move Move it into caller's space
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
26 rts