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