Форум РадиоКот

Код: Выделить всё

 #define LED_FIRE	GPIO,1
;Значение, загружаемое в OPTION при начальных установках
 #define OPTION_VALUE_0	b'11010110'	;0x9e
;Значение, загружаемое в TRIS при начальных установках
 #define hard_norm		b'00001001'
;Константа, определяющая режим работы компаратора:
 #define COMP_MODE	b'11111011'	;0xFB
;-------------------------

reset org 0h
	goto ResetEntry
ResetEntry org 04h
NormalReset
	CALL HardwareSetup		;Производим инициализацию выводов и регистра OPTION

MainLoop    ;Главный цикл программы
	nop
	nop
	bcf LED_FIRE
	nop
	nop
	movLW 0
	movWF GPIO
	nop
	nop
	movLW 50
	movWF Delay50Count
	movLW 1
Stepper
	decfsz Delay50Count,1
	goto Stepper
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	bsf LED_FIRE
	nop
	movLW 2
	movWF GPIO
	nop
	movLW 50
	movWF Delay50Count
	movLW 1
Stepper_1
	decfsz Delay50Count,1
	goto Stepper_1
	nop
	nop

MainLoop_Exit
	goto MainLoop
;-------------------------
HardwareSetup
	clrf GPIO
	movlw OPTION_VALUE_0
	OPTION			;option
	movLW hard_norm
	TRIS GPIO
	movF OSCCAL,0		; --
	movlw COMP_MODE		;Настройка работы компаратора
	movwf CMCON0		; --
	nop
	RETLW 0