;******************************************************************************
;    Filename:        Ledvillogtat.asm                                        *
;    Date:   2016,02,10                                                       *
;    File Version:  1,20                                                      *
;                                                                             *
;    Author:    Halász Zoltán                                                 *
;    Company:   HZ                                                            *
;      MPLab: 8.92    (tabs=8)                                                *
;                                                                             *
;******************************************************************************
;                                                                             *
;    Files Required: P16F1828.INC                                            *
;                                                                             *
;******************************************************************************
;******************************************************************************
;
;	LIST P=16F1828      ; list directive to define processor
;	#include	<p16f1828.inc> ; processor specific variable definitions
;	
;
;        list st=off
;
;	
;       Errorlevel     0,-302
		#include <p16F1828.inc>
		LIST P=16F1828
        Title   BLDC
        List    X=on
        List    C=132
        List    N=94
        radix   hex
	
		__config 8007H, 3FFC
		__config 8008H, 1303
 
Valtozok
	CBLOCK 0x20
	M
	L
	ENDC

 ORG 0

Initial
	BANKSEL PORTC ;
	CLRF 	PORTC ;Init PORTC
	BANKSEL LATC ;Data Latch
	CLRF 	LATC ;
	BANKSEL ANSELC
	CLRF 	ANSELC ;Make RC<5:0> digital
	BANKSEL TRISC ;
;	MOVLW 	B’00000000’; all outputs
;	MOVWF 	TRISC ;
;a fenti két utasítás helyett ha már máshol is így van:
	CLRF	TRISC
	BANKSEL	LATC

Foprog
	CLRF 	M
	CLRF 	L
	BSF 	LATC,3
	CALL 	IDO
	BCF 	LATC,3
	CALL	IDO
	BSF 	LATC,4
	CALL 	IDO
	BCF 	LATC,4
	CALL	IDO
	BSF 	LATC,5
	CALL 	IDO
	BCF 	LATC,5
	CALL	IDO
	GOTO 	Foprog

IDO
	MOVLW 	d'100'
	MOVWF 	L
AL  MOVLW 	d'120'
	MOVWF 	M
IDE	NOP
	NOP
	DECFSZ 	M,F
	GOTO 	IDE
	DECFSZ 	L,F
	GOTO 	AL
	RETURN	

 	END						;Teljes program végét jelentő END
