LIST P=18F4550, F=INHX32    ;PIC és HEX típus
#include <P18F4550.INC>    ;a szükséges include fájl

  
__CONFIG    _CONFIG1H,     b'00000100'       
__CONFIG	_CONFIG1L,	   b'00001100'
__CONFIG    _CONFIG2L,     b'00000001'        
__CONFIG    _CONFIG2H,     b'00000000'        
__CONFIG    _CONFIG3H,     b'10000000'        
__CONFIG    _CONFIG4L,     b'10000001'                                               
__CONFIG    _CONFIG5L,     b'00001111'                 
__CONFIG    _CONFIG6L,     b'00001111'                
__CONFIG    _CONFIG7L,     b'00001111'        
        
 

__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	    INI


INI		CLRF	TRISB
		MOVLW	b'111000'
		MOVF	TRISA
		CLRF	LATB
		CLRF	PORTB
		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   0fh            ; PORTA DIGIT I/O
		MOVWF   ADCON1


START	BTFSS	PORTA,0
		GOTO	START
		SETF	LATB

	end