**************************************************
* System Call: F$CRCMod
*
* Function: Changes CRC module reporting
*
* Input:  A = Flag (0 = report, 1 = CRC off, 2 = CRC on)
*
* Output: A = State (0 = CRC off, 1 = CRC on)
*
* Error:  CC = C bit set; B = error code
*
FCRCMod  lda    R$A,u       do they want a report or a toggle?
         beq    CRCRep      a report only
         deca               Check for OFF
         bne    GoCRCon     No, must be on
         fcb   $8C        --- skip 2 bytes, saves 3 bytes of memory
*         sta    <D.CRC      Shut CRC flag off
*         bra    CRCRep2     Save in caller's A & return
GoCRCon  lda    #$1         CRC checking on
         sta    <D.CRC      Turn CRC checking on
CRCRep   lda    <D.CRC      get current CRC flag for return
CRCRep2  sta    R$A,u       save it to their register stack
         clrb               no error 
         rts                and exit