Mercurial > hg > Members > kono > nitros9-code
annotate level2/modules/kernel/fcrcmod.asm @ 3123:039ddb7c8ad7
l2 kernel: Remove tabs and trailing whitespace, align comments
No functional change (no change to generated binaries).
| author | Neal Crook <foofoobedoo@gmail.com> |
|---|---|
| date | Mon, 28 Nov 2016 08:31:26 +0000 |
| parents | 1451bc7ef0b9 |
| children |
| rev | line source |
|---|---|
| 1345 | 1 ************************************************** |
| 2 * System Call: F$CRCMod | |
| 3 * | |
| 4 * Function: Changes CRC module reporting | |
| 5 * | |
| 6 * Input: A = Flag (0 = report, 1 = CRC off, 2 = CRC on) | |
| 7 * | |
| 8 * Output: A = State (0 = CRC off, 1 = CRC on) | |
| 9 * | |
| 10 * Error: CC = C bit set; B = error code | |
| 11 * | |
| 1145 | 12 FCRCMod lda R$A,u do they want a report or a toggle? |
| 13 beq CRCRep a report only | |
| 1387 | 14 deca check for OFF |
| 15 bne GoCRCon no, must be on | |
| 16 fcb $8C skip 2 bytes, saves 3 bytes of memory | |
| 1145 | 17 GoCRCon lda #$1 CRC checking on |
| 1387 | 18 sta <D.CRC turn CRC checking on |
| 1145 | 19 CRCRep lda <D.CRC get current CRC flag for return |
| 20 CRCRep2 sta R$A,u save it to their register stack | |
|
3123
039ddb7c8ad7
l2 kernel: Remove tabs and trailing whitespace, align comments
Neal Crook <foofoobedoo@gmail.com>
parents:
1387
diff
changeset
|
21 clrb no error |
| 1145 | 22 rts and exit |