00001 #include <..\include\p18_all.inc> 00002 ;--- Változók elhelyzése 00003 UDATA_ACS 00004 szamlalo1 res 1 00005 szamlalo2 res 1 00006 szamlalo3 res 1 00007 00008 PGM CODE 00009 ;--- A főprogram kötelezően a main címkénél kezdődik! 00010 main: bcf LEDport,3 ;RC3 kezdetben = '0' 00011 bcf LEDtris,3 ;RC3 legyen kimenet 00012 ciklus: call delay ;várunk valameddig... 00013 btg LEDport,3 ;RC3 bit billegtetése 00014 bra ciklus ;Végtelen ciklus 00015 00016 ;--- A késleltető szubrutin ~ 260 msec 00017 delay: movlw 0x10 00018 movwf szamlalo3 00019 clrf szamlalo2 00020 clrf szamlalo1 00021 loop: decfsz szamlalo1 ;1.számláló fogyasztása 00022 bra loop 00023 decfsz szamlalo2 ;2.számláló fogyasztása 00024 bra loop 00025 decfsz szamlalo3 ;3.számláló fogyasztása 00026 bra loop 00027 return 00028 END