Mercurial > hg > Members > kono > nitros9-code

annotate level2/modules/kernel/fcrcmod.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$CRCMod entry point - CHANGED 05/20/93
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
2 * Entry : A = 0 Report current mode
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
3 * = 1 Shut CRC Checking off
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
4 * =>2 Turn CRC Checking on
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
5 * Exit : A = 0 CRC is off
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
6 * 1 CRC is on
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
7 * no error can be returned
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
8 * except if call not available
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
9 FCRCMod lda R$A,u do they want a report or a toggle?
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
10 beq CRCRep a report only
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
11 deca Check for OFF
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
12 bne GoCRCon No, must be on
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
13 fcb $8C --- skip 2 bytes, saves 3 bytes of memory
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
14 * sta <D.CRC Shut CRC flag off
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
15 * bra CRCRep2 Save in caller's A & return
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
16 GoCRCon lda #$1 CRC checking on
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
17 sta <D.CRC Turn CRC checking on
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
18 CRCRep lda <D.CRC get current CRC flag for return
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
19 CRCRep2 sta R$A,u save it to their register stack
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
20 clrb no error
ca83286ded5b Start of new OS-9 L2 Kernel
boisy
parents:
diff changeset
21 rts and exit