Mercurial > hg > Members > kono > nitros9-code

annotate level2/modules/kernel/fdatlog.asm @ 1239:90bad6d8388c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Major changes to bring kernel closer to L2 port
author boisy
date Tue, 05 Aug 2003 13:46:17 +0000
parents ca83286ded5b
children 1da8ab9ba433
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1145
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
1 * F$DATLog entry point
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
2 FDATLog ldb R$B,u Get logical Block #
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
3 ldx R$X,u Get offset into block
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
4 bsr CmpLBlk Go modify X to be Logical address
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
5 stx R$X,u Save in callers X register
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
6 clrb No error & return
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
7 rts
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
8
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
9 * Compute logical address given B=Logical Block # & X=offset into block
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
10 * Exits with B being logical block & X=logical address
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
11 CmpLBlk pshs b Preserve logical block #
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
12 tfr b,a Move log. block # to A
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
13 lsla Multiply logical block by 32
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
14 lsla
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
15 lsla
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
16 lsla
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
17 lsla
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
18 clrb D=8k offset value
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
19 IFNE H6309
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
20 addr d,x X=logical address in 64k workspace
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
21 ELSE
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
22 leax d,x
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
23 ENDC
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
24 puls b,pc Restore A, block # & return