LIST P=18F4550, F=INHX32 ;a listázás a kiválasztott PIC-nek megfelelő legyen és INHX32 hexa bináris fájl szülessen fordításkor. #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. __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 s1 equ 50H s2 equ 51H s3 equ 52H ORG 0X0000 ; "RESET belépési pontja. Ha pl. a WDT vagy a RESET gomb aktiválódik, innen folytatódi ill. GOTO INIT INIT: CLRF INTCON CLRF INTCON2 CLRF INTCON3 ; KULSO MEGSZAKITAS FORRASOK LETILTVA, FLAGEK TOROLVE CLRF IPR1 CLRF IPR2 CLRF PIE1 CLRF PIE2 CLRF PIR1 CLRF PIR2 ; MEGSZAKITASOKAT KEZELO REGISZTEREK ALAPHELYZETBE ALLITVA SETF CMCON ; COMPARATOR OFF BSF INTCON2,RBPU ; PORTB FELHÚZÓ ELLENALLAS OFF MOVLW B'01111011' MOVWF OSCCON ; Belső OSC 8MHz, Nincs freki hangolás MOVLW B'00001111' ; PORTA DIGIT I/O MOVWF ADCON1 clrf TRISB clrf LATB clrf PORTB bsf PORTB,0 FO1: call ELL1 call ELL2 call KESES3 goto FO1 ELL1: call BALRA btfss PORTB,7 goto ELL1 return ELL2: call JOBBRA btfss PORTB,0 goto ELL2 return BALRA: call KESES rlncf PORTB call KESES return JOBBRA: call KESES rrncf PORTB call KESES return KESES: movlw D'255' movwf s1 C1: decfsz s1,1 goto C1 return KESES3: movlw D'255' movwf s2 C2: decfsz s2,1 goto C1 return end