LIST P = 18F1320, n = 66 ; pic definialasa ERRORLEVEL -302 ; ;****************************************************************************** ; PIC18Fxx family. ; Program leirasa ; MUKUDIK ; Ha mukodik atirni! ; 2009.02.24 ; modositas datuma ; modositas szama: 3 ; modositaskor novelni 1-el ; Keszito: Koskovics Gabor ; Program leirasa: Az RB0 levo gombot megnyomva vilagitanak a ledek. RB4 s RB5 ;****************************************************************************** ; ; ; ;Kulso alkatreszek pozicioi a labakon ; ; ra0 - ra4 ; rb0 - rb7 (RB0 gomb, RB4-5 led) ; mcrl - clkin - clkout - vdd - vss (18 pin) INCLUDE ; include fajl behozatala ;****************************************************************************** ; program eleje ;****************************************************************************** org 00H BSF STATUS, RP0 ; bank 1 MOVLW B'00000001' ; MOVWF TRISB ; b port labai bekapcsolva (kimenetnek) BCF STATUS, RP0 ; bank 0 CIKLUS BTFSC PORTB, 0 ; Ha RB0 "L", akkor atugorja a kovetkezo sort GOTO LED1 ; ugras a "LED1" cimkere BTFSS PORTB, 0 ; Ha RA0 "H", akkor atugorja a kovetkezo sort GOTO LED2 ; ugr?s a "LEDKI" LED1 MOVLW B'0010000' ; a led (rb2) vilagit majd MOVWF PORTB ; a led bekapcsol LED2 MOVLW B'0100000' ; a led (rb1) vilagit majd MOVWF PORTB ; a led kikapcsol GOTO CIKLUS ; ugras a CIKLUS cimkere end ;****************************************************************************** ; program vege ;******************************************************************************