;------------------------------------------------------------
CHECK
	     
CHECK_2
	      bic.b	#D3,PSTAT
	      CALL   	#REPR
	      bit.b	#D3,PSTAT
	      jz	CHECK_4

	      mov.b	#033h,MD2
	      CALL   	#WRITEK
	      mov.b	#08h,NUMB
	      mov.w	#DBUFF0,R5	                            ;
	      clr.b   	MD1
CHECK_3
	      CALL 	#READK
	      mov.b	MD2,0(R5)
	      inc.w	R5
	      CALL    	#CHECKCRC
	      dec.b 	NUMB
	      jnz  	CHECK_3
              tst.b     MD1
              jnz	CHECK_4
              tst.b	DBUFF0
              jz	CHECK_2
              
	      ret
CHECK_4
	     
	      ret
;---------------------------------------------------
READK
		clr.b   MD2
	    	mov.b	#08h,BITCON                                       ;
READK1
		bis.b	#DSDAT,&P1DIR		;
		bic.b	#DSDAT,&P1OUT
		nop
		nop
	    	bis.b	#DSDAT,&P1OUT
		bic.b	#DSDAT,&P1DIR		;
		nop
		nop
	    	nop
		nop
		nop
		nop
		bit.b	#DSDAT,&P1IN
		rrc.b   MD2

		mov.b	#0bh,R17	;
READK2		dec.b	R17
		jnz	READK2

		dec.b   BITCON
		jnz     READK1
		bis.b	#DSDAT,&P1DIR		;
		bis.b	#DSDAT,&P1OUT
		ret
;---------------------------------------------------------------

REPR 		bis.b	#DSDAT,&P1DIR		;
		bis.b	#DSDAT,&P1OUT
	        mov.w   #01388H,R16		;
            	CALL    #Delay
		bic.b	#DSDAT,&P1OUT

		mov.b	#074h,R17	;
RLP0		dec.b	R17
		jnz	RLP0
		bis.b	#DSDAT,&P1OUT
		bic.b	#DSDAT,&P1DIR		;

 	    	mov.b	#0dh,R17	;
RLP1		dec.b	R17
		jnz	RLP1
	    	bit.b	#DSDAT,&P1IN
	    	jnz	RLP3
	    	bis.b	#D3,PSTAT
    		mov.b	#050h,R17	;
RLP2
		bit.b	#DSDAT,&P1IN
	    	jnz	RLP3
		dec.b	R17
		jnz	RLP2
RLP3                                         ;
      		ret                     ;
;----------------------------------------------------------------
WRITEK
		mov.b	#08h,BITCON
		bis.b	#DSDAT,&P1DIR		;
WRLP
		bic.b	#DSDAT,&P1OUT
	    	rrc.b   MD2
	    	jc	WR1
	 	mov.b	#010h,R17	;
	 	jmp     WR0
WR1
		bis.b	#DSDAT,&P1OUT
		mov.b	#010h,R17	;
WR0
		dec.b	R17
		jnz	WR0
		bis.b	#DSDAT,&P1OUT
		dec.b	BITCON
		jnz	WRLP
		bis.b	#DSDAT,&P1OUT
      		ret