; Begin
	R0L EQU 0x20
	R0H EQU 0x21
	R1L EQU 0x22
	R1H EQU 0x23
	R2L EQU 0x24
	R2H EQU 0x25
	R3L EQU 0x26
	R3H EQU 0x27
	R4L EQU 0x28
	R4H EQU 0x29
	R5L EQU 0x2A
	R5H EQU 0x2B
	ORG 0x0000
	BCF PCLATH,3
	BCF PCLATH,4
	GOTO L0002
	ORG 0x0004
	RETFIE
L0002:
; 1: AllDigital 'Az összes analóg bemenet digitálisra állítása
	MOVLW 0x07
	MOVWF 0x1F
; 2: TRISA = %00000000 'PORTA mindegyik lába kimenet
	BSF STATUS,RP0
	CLRF 0x05
	BCF STATUS,RP0
; 3: TRISB = %00000000 'PORTB mindegyik lába kimenet
	BSF STATUS,RP0
	CLRF 0x06
	BCF STATUS,RP0
; 4: 
; 5: loop: 
L0001:
; 6: PORTB.0 = 1 'RB0 láb magaszintre emelése
	BSF 0x06,0
; 7: Goto loop
	GOTO L0001
; 8: 
; 9: End
L0003:	GOTO L0003
; End of program
L0004:	GOTO L0004
; End of listing
	END