; A GOMB NYOMKODÁSÁVAL EGY SZÁMLÁLÓT LÉPTETÜNK, KIMENET LEDSOR(PORTB) ; PORTB-RE KAPCSOLÓDIK A 8 LED. RA0 LÁBON VAN A NYOMÓGOMB. LIST P=18F4320 #INCLUDE __CONFIG _CONFIG1H, b'00001000' ; A PIC belső oszciját akarjuk használni. __CONFIG _CONFIG2L, b'00001000' ; Brown-out Reset disabled, Tápfeszültség csökkenés 2,7 alá, resetet okoz. __CONFIG _CONFIG2H, b'00000000' ; Nem akarunk WatchDog-ot használni. __CONFIG _CONFIG3H, b'10000000' ;Reset lábat(MCRLE) a funkciója szerint szeretnénk használni. PortB <4:0> digit be-kimenet legyen. __CONFIG _CONFIG4L, b'10000001' ; Nem akarok külső debuggert használni, ezért az RB6 és 7 legyen digit be-ki. ; Ha STACK tulcsordul akkor RESET történjen ; Alacsony feszültségen való programozás tiltva.( Low Voltage ICSP disabled) __CONFIG _CONFIG5L, b'00001111' ; CODE PROTECT OFF __CONFIG _CONFIG5H, b'11000000' ; EEPROM, BOOTBLOCK PROTECT OFF __CONFIG _CONFIG6L, b'00001111' ; WRITE PROTECT OFF __CONFIG _CONFIG6H, b'11100000' ; EEPROM WRITE, BOOT WRITE, CONF REG WRITE PROTECT OFF __CONFIG _CONFIG7L, b'00001111' ; TABLE READ PROTECTION OFF __CONFIG _CONFIG7H, b'01000000' ; BOOT READ PROTECT OFF __IDLOCS _IDLOC0, 'T' __IDLOCS _IDLOC1, 'a' __IDLOCS _IDLOC2, 'b' __IDLOCS _IDLOC3, ' ' __IDLOCS _IDLOC4, 'S' __IDLOCS _IDLOC5, 'o' __IDLOCS _IDLOC6, 'f' __IDLOCS _IDLOC7, 't' ;-------[VÁLTOZÓK]------------------------------------------- CNT EQU 0X000 ;-------[PROGRAMKÓD]----------------------------------------- ORG 0000H ; RESET VEKTOR GOTO START START CLRF LATB ; PORTB TÖRLÉSE CLRF TRISB ; PORTB KIMENET CLRF CNT ; SZÁMLÁLÓ TÖRLÉSE LOOP BTFSS PORTA,0 ; GOMBOT MEGNYOMTÁK? (AKTÍV magas) GOTO LOOP ; NEM, UJRA NOVEL INCF CNT,F ; COUNT NÖVELÉS MOVFF CNT,LATB; PORTA-RA ÍRÁSA ENGED BTFSS PORTA,0 ; GOMBOT ELENGEDTÉK? GOTO ENGED ; NEM GOTO LOOP ; IGEN, ÚJABB GOMBNYOMÁSRA VÁR END ; PROGRAM VÉGE