Code:lp: ADCON0.1=%1 WHILE ADCON0.1=%1:WEND ' Store ADC results isense.HIGHBYTE=ADRESH isense.LOWBYTE=ADRESL ' Security fault verifications IF isense**40000>imax THEN flt=1 I = I+1 ; insert @top " I var Byte " IF I = 1 THEN ; also can use IF I // 200 = 1 ... and adjust "200" to the desired rate ' LCD idisp=isense**40000 lcdout $fe,$c0,$1,$20,"1 ISENS: ",DEC idisp DIG 2,DEC idisp DIG 1,".",DEC idisp DIG 0,"A" ENDIF goto lp
Bookmarks