вот что у меня есть
Код: Выделить всё
#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

