hc164.asm

.ifnz I2C_SUPPORT ************************************************************** Function : fPro

.ifnz HC164
fProcessVfdRead:
		lda		#%11111110
		sta		rRegister164
		ldx		#0
sentnextbyte: 

		rol		rRegister164
		lda		rRegister164
		sta		rOutBuffer_164
		jsr		f164SentOneByte
		bbs		VFD_STB_bit,VFD_PORT,next
		stx		VfdResponse1
		bra		next2
next:
		inx
		cpx		#8
		bne		sentnextbyte
next2:
		rts
              
f164SentOneByte:
		ldy		#8
		sec
rSendOneBit: 
		ror		rOutBuffer_164
		bcs		rDataHigh 
rDataLow: 
		rmb		VFD_DATA_bit,VFD_DATA_PORT
		bra		rDataSetup
rDataHigh:
		smb		VFD_DATA_bit,VFD_DATA_PORT
rDataSetup
		;;clk=0
		rmb		VFD_CLK_bit,VFD_PORT
		jsr		fDelay1
		nop
              
		smb		VFD_CLK_bit,VFD_PORT
              
		jsr		fDelay1
		nop
		dey   
		bne		rSendOneBit                     
		rts   

.endif