list p=p16f877 include ;=============================================================== ; ; ; 30APR06 - T. Scott Dattalo ;---------------------------------------------------------------------- ;---------------------------------------------------------------------- GPR_DATA UDATA crc RES 1 global crc ;------------------------------------------------------------------------ ;------------------------------------------------------------------------ RESET_VECTOR CODE 0x000 goto start ;=============================================================== global crc_sae crc_sae: xorwf crc,f movlw 0x3b btfsc crc,0 xorlw 0x1d btfsc crc,1 xorlw 0x3a btfsc crc,2 xorlw 0x74 btfsc crc,3 xorlw 0xe8 btfsc crc,4 xorlw 0xcd btfsc crc,5 xorlw 0x87 btfsc crc,6 xorlw 0x13 btfsc crc,7 xorlw 0x26 movwf crc return ;---------------------------------------------------------------------- ; ******************* MAIN CODE START LOCATION ****************** ;---------------------------------------------------------------------- MAIN CODE start: clrf crc movlw 0 call crc_sae ; crc = 0x3b movlw 0 call crc_sae ; crc = 0xbe movlw 0 call crc_sae ; crc = 0xf1 movlw 0 call crc_sae ; crc = 0x59 clrf crc movlw 0xff call crc_sae ; crc = 0xff movlw 0xff call crc_sae ; crc = 0x3b movlw 0xff call crc_sae ; crc = 0x7a movlw 0xff call crc_sae ; crc = 0x74 goto start end