Processor       12F629
      Radix   DEC
      EXPAND
      errorlevel   -302
      include         "p12f629.inc"

   __CONFIG _CP_OFF&_WDT_OFF&_PWRTE_ON&_INTRC_OSC_NOCLKOUT
;************definirane na const. i promenliwi
;w EQU 0
;f EQU 1
;*******obqwqwane na izpolzwanite promenliwi
   CBLOCK H'20'            ;adres na pyrwiq reg. ot GPR
   counter
   temp_counter
   flag_register
   a
   c
   h
   j
         ENDC
;************definirane bitowete na flag_register*******
#define   shift   flag_register,0
#define shift_1   flag_register,1
#define shift_2   flag_register,2
#define g      GPIO,0
#define e      GPIO,1
#define r      GPIO,2
#define in      GPIO,3
;*********potrebitelska programa************************
      ORG H'0000'            ;NU
   goto   start
      ORG H'0004'            ;wektor na prek
   goto   start
;**************************Начало на програмата*****************************
start:
   clrf   STATUS            ;nulirane na STATUS
   clrf   counter
   clrf   temp_counter
   clrf   a
   clrf   c
   clrf   h
   clrf   j
   clrf   flag_register
   movlw   B'00001000'         ;vsichki izhodi - GP3=INPUT
   bsf      STATUS, RP0         ;izbor na banka 1
   movwf   TRISIO            ;izwodi RA<3:1>-izhodi, RA0-whod
   movlw   B'11011011'         ; (011)1:16->TMR0
   movwf   OPTION_REG         ;(w) ->OPTION_REG
   bcf      STATUS, RP0
;   goto   main

   END