NAME TJA1020

$INCLUDE (Relpc764.inc)
$INCLUDE (TJA1020.inc)

sInitTranceiver SEGMENT CODE


PUBLIC InitTranceiver
PUBLIC SleepPin


;######################################################################################
;# Initialsation of the tranceiver																	  #
;# please see TJA1020 datasheet for details														  #
;######################################################################################

rseg sInitTranceiver
InitTranceiver:
loop:		SETB TxPin      ;put TxD and RxD to '1'
			SETB RxPin
			CLR  SleepPin   ;clear Sleeppin
			
			MOV R1,#0FFH	 ;wait a little time
			DJNZ R1,$
			SETB SleepPin   ; put Sleeppin to '1'
			MOV R1,#0FFH    ; and wait a little time
			DJNZ R1,$
			MOV C,RxPin		; if the tranceiver is initialised, Rxd is '1'
			JNC loop			; if RxD is '0', try again
			
			ret

END