Mercurial > hg > Members > kono > nitros9-code

comparison level2/modules/kernel/fcrcmod.asm @ 1387:1451bc7ef0b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updates source comments
author boisy
date Tue, 30 Sep 2003 02:06:19 +0000
parents 1da8ab9ba433
children 039ddb7c8ad7
comparison
equal deleted inserted replaced
1386:2415d285db30 1387:1451bc7ef0b9
9 * 9 *
10 * Error: CC = C bit set; B = error code 10 * Error: CC = C bit set; B = error code
11 * 11 *
12 FCRCMod lda R$A,u do they want a report or a toggle? 12 FCRCMod lda R$A,u do they want a report or a toggle?
13 beq CRCRep a report only 13 beq CRCRep a report only
14 deca Check for OFF 14 deca check for OFF
15 bne GoCRCon No, must be on 15 bne GoCRCon no, must be on
16 fcb $8C --- skip 2 bytes, saves 3 bytes of memory 16 fcb $8C skip 2 bytes, saves 3 bytes of memory
17 * sta <D.CRC Shut CRC flag off
18 * bra CRCRep2 Save in caller's A & return
19 GoCRCon lda #$1 CRC checking on 17 GoCRCon lda #$1 CRC checking on
20 sta <D.CRC Turn CRC checking on 18 sta <D.CRC turn CRC checking on
21 CRCRep lda <D.CRC get current CRC flag for return 19 CRCRep lda <D.CRC get current CRC flag for return
22 CRCRep2 sta R$A,u save it to their register stack 20 CRCRep2 sta R$A,u save it to their register stack
23 clrb no error 21 clrb no error
24 rts and exit 22 rts and exit