OPTION_REG=%00000111 'êîíôèãóðèì äåëèòåëü.
INTCON=%10100000 'Âêëþ÷àåì ïðåðûâàíèÿ îò ïåðåïîëíåíèÿ

'ВОт кусочек тестовой прожки.
led var byte[73]' test
temp var byte
i var byte
k var byte
prog var byte
tic var byte
c var byte[10]
EEPROM 1,[0,0]
EEPROM 50,["S","T","E","V"]

OPTION_REG=%00000111 'êîíôèãóðèì äåëèòåëü.
INTCON=%10100000 'Âêëþ÷àåì ïðåðûâàíèÿ îò ïåðåïîëíåíèÿ
On Interrupt Goto tica

PORTB = 0 ' initialize PORTC
TRISB = %00000000 ' configure PORTC as output
TRISA=%00001111

main:

c[1]=10 'chasi
c[2]=10 'chasi
c[3]=10 'minuti
c[4]=10 'minuti
c[5]=10 'secundi
c[6]=10 'secundi
c[7]=10 'desjatiesec
c[8]=10 'sotsecundi

go:
PULSOUT PORTB.0,1 'reset

For i=1 to 8
for k=1 to c[i]
PORTB=%10000000
PORTB=%00000000
pause 1
next

PORTB=%01000000
'pause 1
PORTB=%00000000
'pause 1
next i

pause 100
goto go

disable
tica:
tic=tic+1
if tic<255 then goto ticaxit
tic=0

c[8]=c[8]+1
if c[8]<10 then goto ticaxit
c[8]=0

c[7]=c[7]+1
if c[7]<10 then goto ticaxit
c[7]=0

c[6]=c[6]+1
if c[6]<10 then goto ticaxit
c[6]=0

c[5]=c[5]+1
if c[5]<6 then goto ticaxit
c[5]=0

c[4]=c[4]+1
if c[4]<10 then goto ticaxit
c[4]=0

c[3]=c[3]+1
if c[3]<6 then goto ticaxit
c[3]=0

c[2]=c[2]+1
if c[2]<10 then goto ticaxit
c[2]=0

c[1]=c[1]+1
if c[1]<6 then goto ticaxit
c[1]=0

ticaxit:
INTCON=%10100100 'reset interpur flag
resume
enable

end