Това е:
list p=16F84A
#include <p16F84A.inc>
__CONFIG _CP_OFF&_WDT_OFF&_PWRTE_ON&_XT_OSC
;************definirane na const. i promenliwi
w EQU 0
f EQU 1
;*******obqwqwane na izpolzwanite promenliwi
CBLOCK H'0C' ;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 in PORTA,0
#define g PORTA,1
#define e PORTA,2
#define r PORTA,3
;*********potrebitelska programa************************
ORG H'0000' ;NU
goto start
ORG H'0004' ;wektor na prek
goto start
;**************************Начало на програмата*****************************
start clrf STATUS ;nulirane na STATUS
clrf PORTA ;nulirane na PORTA
clrf counter
clrf temp_counter
clrf a
clrf c
clrf h
clrf j
clrf flag_register
bsf STATUS, RP0 ;izbor na banka 1
movlw B'11110001' ;11110001b->W
movwf TRISA ;izwodi RA<3:1>-izhodi, RA0-whod
movlw B'11111111' ;11111111b->W
movwf TRISB ;izwodi B<7:0>-whodowe
movlw B'11010011' ; (011)1:16->TMR0
movwf OPTION_REG ;(w) ->OPTION_REG
clrf STATUS ;nulirane na STATUS
goto main
Трябва ми на 12F629 s intosc с timer 0, прескалер на 1;16, изходи на 0,1,2 и вход на 3порт
