list      p=12F683; list directive to define processor
        #include <p12F683.inc>; processor specific variable definitions
        
        errorlevel  -302; suppress message 302 from list file
        
; Самая главная строка, конфигурация процессора
        __CONFIG   _FCMEN_ON & _IESO_OFF & _CP_ON & _CPD_OFF & _BOD_ON & _MCLRE_OFF & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT
      
    
; Настраиваем регистры, как удобные для нас, осмысленные названия переменных
     #define     PORT_PWM        GPIO,2;
     #define     BUTTON4           GPIO,4;
     #define     BUTTON5           GPIO,5;
    
    
    
; Поехали...
    
      ORG     0x000          ; Вектор сброса процессора
      GOTO    _START            ; Старт программы
      
      
;************************************************************;
;
;     ПОДПРОГРАММА  инициализации: установка портов и т.д.
;
;************************************************************;
         _START
        
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;
; Очищаем RAM на всякий случай от мусора
;------------------------------------------------------------;
             BCF        STATUS,RP0; Переходим в банк 0
             BCF        STATUS,IRP
             MOVLW    0x20;initialize pointer
             MOVWF   FSR            ;to RAM
         NEXT_B0
             CLRF    INDF
             INCF    FSR,F
             BTFSS    FSR,7
             GOTO    NEXT_B0
        
        
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;
; Выставляем частоту процессора.
;------------------------------------------------------------;
             BSF        STATUS,RP0; Переходим в банк 1
             MOVLW   B'01110001'; B'01100001' 4000 КГЦ INTOSC
             MOVWF   OSCCON    ; B'01110001' 8000 КГЦ INTOSC
    
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;
; Включаем подтяжку резисторами на GP порты 4 и 5.
;------------------------------------------------------------;
         MOVLW   B'00110000'        ; 1 - это резистор в состояние ON
         MOVWF    WPU
    
;-----------------------------------------------;
; TRISIO - настройка входов-выходов
;-----------------------------------------------;
;             |>-------------- \
;             ||>------------- \
;             |||>------------ GP5 in
;             ||||>----------- GP4 in
;             |||||>---------- GP3 in
;             ||||||>--------- GP2 out
;             |||||||>-------- GP1 out
;             ||||||||>------- GP0 in
         MOVLW   B'00111001'
         MOVWF   TRISIO

; И т.д..

BCF        STATUS,RP0; Переходим в банк 0

; Поехали...