|
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
|
|
|
21 clrb no error
|
|
|
22 rts and exit
|
