LIST P=18f1320 ; LIST DIRECTIVE TO DEFINE PROCESSOR #INCLUDE ; PROCESSOR SPECIFIC VARIABLE DEFINITIONS CBLOCK 0X02e DELAY1 DELAY2 ENDC ORG 0 GOTO START ORG 8 retfie org 18 retfie ;Low Priority Interrupt Vector Trap ;************************************************************************************ START ;ALAPBEÁLLÍTÁSOK, ÉS ALAPÉRTÉKEK MEGADÁSA: MOVLW B'11111111' MOVWF ADCON1 ;LATA0-1 ANALÓG, A TÖBBI DIGITÁLIS MOVLW B'00000000' MOVWF ADCON0 ;TÁP A REFERENCIA, 0-S CSATORNA AKTÍV, A/D BEKAPCSOLVA MOVLW B'01101100' MOVWF OSCCON ;4MHZ BELSŐ ÓRAJEL clrf wdtcon MOVLW B'00000000' MOVWF TRISA ; OUTPUT-BA ALLITASA CLRF TRISB clrf lata clrf latb goto ciklus IDO MOVLW .255 MOVWF DeLAY1 IDO2 MOVLW .255 MOVWF DELAY2 IDO3 DECFSZ DELAY2,F GOTO IDO3 DECFSZ DELAY1,F GOTO IDO2 RETURN CIKLUS bsf lata,2 call ido bcf lata,2 call ido goto ciklus END ;PROGRAM VÉGE.