Модуль обработки телесигнализации на PIC-контроллере

бит_входа,бит_ячейки,адрес_ячейки [,направление]

Здесь под направлением понимается ввод в ячейку (IN) или чтение из нее (OUT). Если направление не указано, осуществляется ввод. В качестве ячейки можно указывать адрес (метку) в памяти, порт (название) или регистр (регистровую пару). Ячейка должна быть доступной. Так, например, задание строки "2,0,HL,IN" задаст ввод в нулевой бит HL через заданное число тактов значения бита 2 из входного файла. Ввод продолжается и можно вводить настройку следующего бита. Закончить ввод можно вводом пустой строки.

При задании байтового обмена появится приглашение на ввод адреса ячейки и направления обмена (ADDRESS, DIR:IN/OUT) формата:

адрес_ячейки [,направление]

В этом случае будет осуществляться передача данных между файлом и ячейкой целым байтом (8 бит файла соответствуют 8 младшим битам ячейки).

Передача информации при обращении к ячейке производиться только целыми байтами. Настройка аналогична предыдущей (ADDRESS, DIR:IN/OUT) с форматом:

адрес_ячейки [,направление]

Под направлением здесь понимается направление обмена между ячейкой и файлом, а не тип доступа! Передача информации осуществляется при любой операции доступа к ячейке: как при записи, так и при чтении.

Close. Закрывает и отключает файлы ввода и вывода. В строке состояния последовательно выводятся имена файлов и запрос на закрытие (CLOSE IO FILES:).

Меню Load. Загрузка различных данных. Содержит подменю:

Avocet. Загрузка файлов макроассемблера Avocet. Необходимо как минимум два файла:.PRN и.HEX (формируются с помощью avmac85 и avlink). При наличии файла.SYM происходит загрузка программы и таблицы символов. При этом необходимо указать лишь имя без расширения.

Data. Загрузка файла с расширением.HEX в память, объявленную как ОЗУ.

Program. Загрузка программы из файла.НЕХ в память, объявленную как ПЗУ.

Symbol-table. Загрузка таблицы символов из файла с расширением. SYM.

система телесигнализация частотная кодовая

3.3 Программная модель модуля обработки ТС

; Контроллер T9310 - это есть модуль с КФ ТС

; 32кан. Тип модуля КФ

; 1-TS 9310

; 15 14 13 12 | 11 10 09 08 | 07 06 05 04 | 03 02 01 00 2-TT 9210

; формат адреса модуля -> 1 | N модуля | N порта в мод. 3-TU 9710

; 4-TF 8514

; bs = |IRL ERR Diag | Тип мод. 5-TG 8513

; bk = (4x) | 0 1 0 0 | N tabl.

; Common Ram байты (00... 15)

; 00 - БайтСостояния (bs)

; 01 - БайтКом.- (bk) -> 'D'iag по ком. bk = 'D' = 44h...4Fh

; 02 - Байт инф. 0..7 1 bs устан.флаг(Diag=1) и ERR = 0

; 03 - Байт инф. 8..15 2 подкл. 00 и Rd в яч. 06...09

; 04 - Байт инф. 16...23 3 подкл. FF... 0a...0d

; 05 - Байт инф. 24...31 4 bs Err 0|1, Diag = 0.

; 'D'(н.о. 00) & (н.з. FF) 5 подключиться к датчикам.

; 06 - Байт 0 - 00...07 кан.НО 6 сканирование и подавление дребезга.

; 07 - Байт 1 - 08...15 кан.

; 08 - Байт 2 - 16...23 кан. реж 'D' = коп 44h...4Fh,

; 09 - Байт 3 - 24...31 кан. в мл.тетраде -> номер табл.дребезга.

; 0a - Байт 0 - 00...07 кан.НЗ 44h -> по всем 0... 31 кан_TS 8мsec.

; 0b - Байт 1 - 08...15 кан. Tabl_tik = кол. тиков по 1 msec

; 0c - Байт 2 - 16...23 кан. Max = 255 msec; Min = 1 msec

; 0d - Байт 3 - 24...31 кан. 1msec = 1000/256 = 3.90625 = 4

; 0e -0.5sec= 500 /1msec = 1f4h

; 0f - !KS+1 PZU1 Sec = 1000/1msec = 3e8h

;

; При задание реж.'D' в поле -'тип' задать Nтаблицы времен антидребезга,

; по вкючению питания - таб.N 4 -> все по 8мсек.

;

; Бит Irl = 1, if по N tik подряд TS_old != TS_new, else восстановить

;кол.tik данного кан.ТС при каждом TS_old == TS_new из Табл_tik

;

; ******** Const ПЗУ ********

romequ0000h;0000 - 1fff 8kb ROM

bsequ2000h;2000 - 27ff 2kb RAM

bkequ2001h; = 'D' = 44h...4fh

old_00equ2002h;..<2005> 00...07 08...0f 10...17 18...1f

tst_00equ2006h;..<200d> 00 00 00 00 ff ff ff ff

rgaequ4000h; Rd (D3,D2,D1,D0) -> Adr.датчиков или Tst

rgdequ6000h; Rd датчиков (0, 1, 2, 3) byte

wdequ8000h; Wr -> сбр.Dog 1ms (время 1.6ms )

; ***** ОЗУ *****

tabl_tikequ0500h; Base adr. Tabl_tik

adr_tablequ201ch; адр.номерa табл.ПЗУ зад.Diag

adr_tabl_invequ201eh; адр.инверсии номера табл.

tikequ2010h;... <202fh> Var_tik

;tik00equ; 00... 07

;.; 08... 0f Min_kol_tik = 1 мsec

;.; 10... 17 Max_kol_tik = 255*1msec

;tik1fequ; 18... 1f

tmp_oldequ2030h;

cons05equ01f4h; constant 0.5 sec = 1f4h

flagequ2040h;

msecequ2041h; сч.1msec. по 256mks = 4h

sec05equ2042h; сч.0.5cek по 1мсек = 1f4h

secequ2044h; сч. 1 сek по 0.5sec = 2h

bug_rstequ2050h;...2081> adr.RST

bugsequ2052h;...2083> HL - следы лож.перехода откуда

; ***** flag - Флаг Т9210 <2070h> *****

;7 - 0/1 fl_Zu

;6 - 0/1 fl_diag

;5 - 0/1 fl_var -> Irl

;4 - 0/1

;3 - 0/1

;2 - 0/1 st_diag

;1 - 0/1 st_comp

;0 - 0/1 time_comp

stekequ20ffh; вершина стека

org00h

rs:shldbug_rst ; HL = 00h -> < h>

jmpbegin; RS - ReStart, rst_00

org08h;Прогр.прер. rst_01

shldbug_rst ; HL = 08h -> < h>

jmpbug

org10h;Прогр.прер. rst_02

shldbug_rst ;

jmpbug

org18h;Прогр.прер. rst_03

shldbug_rst ;

jmpbug

org20h;Прогр.прер. rst_04

shldbug_rst ;

jmpbug

org24h; адр.прер. по вх. ir Trap

shldbug_rst ;

jmpbug

org28h;Прогр.прер. rst_05 (5.5)

shldbug_rst ;

jmpbug

org2Ch; адр.прерывания по вх. ir 5.5

shldbug_rst ;

jmpbug

org30h;Прогр.прер. rst_06 (6.5)

shldbug_rst ;

jmpbug;

org34h; адр. прерывания по входу ir 6.5

shldbug_rst ;

jmpbug;

org38h;Прогр.прер. rst_07 (7.5) - kod FFh

shldbug_rst ;

jmpbug;

org3Ch; адр. прер. ir 7.5 по фронту __/----

jmptime; 256 mkSec

bug:; следы ложного перехода откуда.

poph; hl из стека

bug1:shldbugs; зап.следа в < 2050h >

jmprs; на ReStart

ORG 100h

begin:

mvia,0d7h; 1101 0111 SOD,SOE,MSE

sim; Вкл.лампу и маск. 7.5, 6.5 и маска 5.5

ldawd;

;Tst OZU

xraa;

lxih,bs; bs = <2000h>

mvib,3h; const слагаемое

tstZu:movm,a; m = 00h, 03, 06...

addb; a = a+3

inxh;

movc,a; spas c = 3

mova,h;

cpi22h; 2000h... 21ffh, 2200h

mova,c;

jnztstZu; не кон.

xraa;

lxih,bs

tstZu1:; Проверка посеянного

cmpm; 00 03 06...

jnzrs; !=

cma; ffh fc f9...

movm,a; zap m=ff

cmpm; comp

jnzrs; !=

cma; 00 03 06...

addb; +3 ?

inxh;

movc,a; spas

mova,h;

cpi22h; Пр. конца Zu? <21ffh>, 2200h

mova,c;

jnztstZu1; не конец

; Посев '00'

xraa;

lxih,bs;

tstZu2:movm,a; 00

inxh;

movc,a; spas

mova,h;

cpi22h; Пр. конца Zu? <21ffh>, 2200h

mova,c;

jnztstZu2; не конец

;TstPzu

lxih,0000h; HL - нач. адр. ПЗУ

xraa; ks = a = 0

ksPzu:addm; ks = ks + mem

inxh;

movc,a; спас. ks

mvia,07h; кон.адр.ПЗУ 1fffh, 2000h

cmph; 06ffh 0700h

mova,c;

jnzksPzu;

cmaa;

inra;

stabs+15h; Zap. инверсии KS до 0ffh

; Ustan Rab cell

lxisp,stek; Stek

mvia,'D'; 'D' = 44h баз.ком.Диагностики

stabk; провокация Diag

mvia,21h; Diag i kf=TS

stabs; = Bs;

;staflag; = 0, flag i tst_00 = 00h v tst_zu

mvia,4h;

stamsec; <msec> = 4 *256mksec

lhldcons05; const05 0.5sec = 1f4h

shldsec05; <sec05> = 1f4h kol. msec

mvia,2h;

stasec; <sec> = 2 * const05

ldawd; сбр.ТМР

mvia,59h; 0101 1001 SOD,SOE,MSE

sim; Выкл.лампу и размаск. 7.5, 6.5 и маска 5.5

;

;********

dost:ei;

nop; ждем'с Ir

ldabs;

ani80h; Ir снят?

jnzdost; net ???(может не надо)

di;

ldabk; ByteKomand

ani0f0h;

cpi40h; 4xh Diagnostika ?

jz d; Da

ldaflag;

ani1h; ?

jnztime_comp; пп сравнения по времени (Time_comp)

jmpdost;

;

;********

d:; Запуск Диагностики по 'D' - Rom, Ram, Tst (00 & ff)

ldaflag;

;movb,a;

ani06h; 0000 0110 startDiag или startComp ?

jnzdost; da

ldabs;

ori21h; pr.Diag i kf

stabs;

mvia,53h; 0101 0011 SOD,SOE,MSE

sim; Выкл.лампу и маск. 6.5 и 5.5

calltst_Rom;

jnzrs; KS != 00

calltst_Ram;

jnzrs; !=

ldaflag;

ani0b4h; 10II 0I00

ori04h; пр. начала Diag ( 6p=fl_diag = 0 )

staflag;

; Перегон Tabl_Tik <0500h> -> tik

; tik = <2010h>,

; kb: 44->80, 45->a0, 46->c0 etc do 4f

ldabk; bk = 44h

ani0fh; = 04h = 0000 0100

mvib,5h; кол.сдвига <- 5

sdvig:rlc; *5 04h 0000 0100

dcrb; a = 1000 0000 = 80h

jnzsdvig;

lxih,tabl_tik; base Tabl_tik = 0500h

movl,a; HL - ист.Tik <0580>

cmaa; 80h -> 7fh

staadr_tabl_inv+1; wr L - <adr_tik_inv == 7fh>

mova,h; адр.для контроля по |2|

cmaa; прям. и инверсный

staadr_tabl_inv; wr H - <adr_tik_inv == fah>

shldadr_tabl; wr <adr_tik == 0580h >

lxid,tik; DE - пpm.Tik <2010h>

mvib,20h; kol. байтов перегона

copy:mova,m; rd PZU

staxd; wr OZU

inxd;

inxh;

dcrb;

jnzcopy;

; Rd tst_00, Rd tst_ff

; b := 08...0f

; hl:= <tst_00 = 2002>

; c := 08 kol.

lxih,tst_00;

mvia,8h; rd 00

movb,a; выбор reg Adr

movc,a; kol, len

comp_tst:

callcompare_tst;

jnzer_tst; !=

c_tst:inxh;

inrb;

dcrc;

jnzcomp_tst;

; done comp_diag

; и надо Rd real -> Wr old

lxih,old_00;

mvia,4h; rd Rda i kan00

movb,a; выбор reg Adr

movc,a; kol, len

rd_dat:

callrd;

inxh;

inrb; 5 6 7

dcrc; 3 2 1 0

jnzrd_dat;

; done Rd_date i na Exit

ldabs;

ani4h; !er_diag

ori81h; Irl, kf=TS

stabs;

xraa;

stabk;

jmpdost; End

;

compare_tst:;

mova,b; 08...0b|0c...0f

starga; Tst :=00 | :=FF

nop;

mova,c; (8 7 6 5)=00 (4 3 2 1)=ff

cpi04h;

jzrgd_ff; на случай когда А = 04h

jcrgd_ff;

rgd_00:ldargd; Rd tst 00

cpi00h; compare

movm,a; Wr 00 new -> old

ret;

rgd_ff:

ldargd; Rd tst FF

cpi0ffh;

movm,a; Wr FF new -> old

ret;

;

er_tst:ldaflag;

ori40h; fl_diag

staflag;

ldabs;

ori40h; er_diag

stabs;

jmpc_tst;

rd:; Rd Date real

mova,b; 04.....07

starga; Adr := date kan00... kan03

nop;

ldargd; Rd date

movm,a; Wr date -> old_00_01_02_03

ret;

;

;******* Запуск по Time_comp 0p flag

;

; DE = Tabl_tik, HL = Tik, B = копия |2|

; C = бег.1 0 -> 7, позиционная 1

;

time_comp:

ldaadr_tabl; пров.адр.Tik

movb,a;

ldaadr_tabl_inv;

anab;

jnzrs; плохи дела

ldaflag;

movb,a;

ani02h; был запушен st_Comp?

jzend_comp; da

mova,b;

ori02h; priz st_comp

staflag;

;

lxih,tik; HL = adp. Var tik

lxid,tabl_tik; DE = адр.заданной табл.Tik

;

mvia,4h; выбор kan. 00...07

starga;

ldaold_00;

statmp_old;

movb,a; b:= old_00

mvic,01h; c:= позиц.1 RLC 7 <- 0p

ldargd;

xrab;

movb,a; b:= |2|

callcompare;

ldatmp_old;

staold_00;

;

; Кан08...15

mvia,5h; выбор kan. 07...0f

starga;

ldaold_00+1;

statmp_old;

movb,a; b:= old_01

mvic,01h; c:= позиц.1 RLC 7 <- 0p

ldargd;

xrab;

movb,a; b:= |2|

callcompare;

ldatmp_old;

staold_00+1;

;

; Кан16...23

mvia,6h; выбор kan. 10...1f

starga;

ldaold_00+2;

statmp_old;

movb,a; b:= old_02

mvic,01h; c:= позиц.1 RLC 7 <- 0p

ldargd;

xrab;

movb,a; b:= |2|

callcompare;

ldatmp_old;

staold_00+2;

;

; Кан24...31

mvia,7h; выбор kan. 20...2f

starga;

ldaold_00+3;

statmp_old;

movb,a; b:= old_03

mvic,01h; c:= позиц.1 RLC 7 <- 0p

ldargd;

xrab;

movb,a; b:= |2|

callcompare;

ldatmp_old;

staold_00+3;

ldaflag;

ani0fch; 1111 1100

staflag;

jmpdost;

;

compare:; a - new_date, b - |2|, c - бег.1 (=01)

; hl - adr tik, de - adr.tabl.tic

jnzno_comp;

conti:ldaxd; Норма. Нет изменения ТС

movm,a; Перезапись из Tabl_tik -> Tik

rlc; <-

movc,a;

inxh;

inxd;

jncconti;

end_comp:

ret;

;

no_comp:

mova,b; |2|

rrc; 7...0 -> C

movb,a; spas, a пр.переноса?

jccorrek; есть разница

no_comp2:

ldaxd;

movm,a;

no_comp1:

inxh;

inxd;

mova,c;

rlc; C <- 7...0

movc,a; spas

jncno_comp; еще не конец

jmpend_comp

;

correk:dcrm; tik = tik -1

jzend_time; tik == 0

jmpno_comp1; != 0

;

end_time:

ldatmp_old;

orac;

statmp_old;

ldaflag;

ori20h; 5p наличие изменения ТС

staflag;

jmpno_comp2;

;********

time:; Прер - 256mks, форм. 0.5 | 1сек для Sod

pushpsw

pushb

pushd

pushh

rim; Чт. Рег. маски ВМ85

ani0cfh; 1100 1111

ori18h; 0001 1xxx

sim; Сбр. Тг. 7.5 ВМ85 ?

ldamsec;сч.msec

dcra;

movm,a;

cpi00h;

jnzvostano; !00

mvia,4h; kol msec

stamsec;

stawd; Сторож

ldabk;

ani40h; Diag ?

jzcout_sec05; Da есть Заказ

ldaflag;

ani02h; fl_Start_Comp ?

jzcout_sec05; Был запуск comp_time

ori01h; fl time_comp

staflag; Устан. приз.запуска по 1 msec

cout_sec05:

lxih,msec;

mova,m; mb сч.msec

dcra;

movm,a;

cpi0ffh; zaem ?

jnzvostano; zaema net

inxh;

mova,m; sb сч.msec

dcra;

movm,a;

cpi00h;

jnzvostano; не 0

lhldcons05;

shldsec05; = 01f4h

ldaflag; пров. индикации по 05сек

movb,a;

ani40h; 0100 0000 fl_diag ?

jzvkl_lamp; da

mova,b;

ani10h; Irl | (!=) ?

jzlamp_05; da

count_sec:

ldasec;

dcra;

cpi00h;

jnzvostano; ! Sec

mova,b; flag

ani40h; fl_Diag ?

jzvostano;

rim; все норма светодиод с f=1sec

rlca; C <- 7p

cmc; !C инв.

rrca; C -> 7p

ori40h; 6p разрешение Sod

sim; Вкл/Выкл. светодиода

vostano:

poph

popd

popb

poppsw

ret

;

lamp_05:

rim;

rlca; C <- 7p

cmc; !C инв.

rrca; C -> 7p

ori40h; 6p разрешение Sod

sim; Вкл/Выкл светодиода

jmpcount_sec;

vkl_lamp:; fl_Diag = 1

rim;

ori0c0h; Вкл. светодиод

sim;

jmpcount_sec;

; п/п контроль КС ПЗУ 0000h - 1fffh

tst_Rom:;TstPzu

lxih,0000h;HL - нач. адр. ПЗУ

xraa; a=0

ks_Pzu:addm; ks

inxh;

movc,a; спас. ks

mvia,07h; кон.адр.ПЗУ 06ffh, 0700h

cmph; z=1 if ==

mova,c;

jnzks_Pzu;

ldabs+15h; ks

addc;

ret;

; ****** тsт ОЗУ kod 00 i ff Объем - 2kb 537РУ10

tst_Ram:

lxih,bs; bs = <2000h>

tst_Zu:mova,m; rd <>

movb,a; spas <>

xraa

movm,a; m = 00

cmpm;

rnz; != 00

cma;

movm,a; m = FF

cmpm;

rnz; != FF

mova,b;

movm,a; vostan <>

inxh;

mova,h;

cpi22h; 2000h... 21ffh, 2200h

jnztst_Zu; не кон.

ret;

;*** Табл.выдержек дребезга датчика в мсек tab_tik ***

;для bk=40...43 от 500, 520, 540, 560. bk =44=0580h, max = 6e0h

org0580h;

tab_tik:; tab_tik 'D' = x4h

db1h; 0

db2h; 1 0

db3h; 2

db4h; 3

db5h; 4

db6h; 5

db7h; 6

db8h; 7 _____

db9h; 8

db0ah; 9 1

db0bh; a

db0ch; b

db0eh; c

db0fh; d

db10h; e

db11h; f ______

db12h; 10

db13h; 11 2

db14h; 12

db15h; 13

db16h; 14

db17h; 15

db18h; 16

db19h; 17 _____

db1ah; 18

db1bh; 19 3

db1ch; 1a

db1dh; 1b

db1eh; 1c

db1fh; 1d

db20h; 1e

db21h; 1f ____

;tab_tik 45

db1h; 0

db2h; 1

db3h; 2

db4h; 3

db5h; 4

db6h; 5

db7h; 6

db8h; 7___

db9h; 8

db0ah; 9

db0bh; a

db0ch; b

db0eh; c

db0fh; d

db10h; e

db11h; f___

db12h; 10

db13h; 11

db14h; 12

db15h; 13

db16h; 14

db17h; 15

db18h; 16

db19h; 17___

db1ah; 18

db8h; 19

db8h; 1a

db8h; 1b

db8h; 1c

db8h; 1d

db8h; 1e

db8h; 1f

org 6ffH

db 0ffh; ks = !KS

ЗАКЛЮЧЕНИЕ

Данная работа направлена на ознакомление с применением модулей ТУ-ТС в промышленности. Цель работы закрепление навыков по разработке аппаратных и программных средств АСУ ТП. Изучение принципов построения систем ТС. Анализ способов обработки сигналов ТС и методов решения задачи для каждой области применения. Конечным продуктом работы является разработка алгоритма работы программного модуля, блок-схемы и его реализация на программном языке(в нашем случае на Ассемблер).

СПИСОК ЛИРАТУРЫ

1. Никитенко Е.А. «Автоматизация и телеконтроль».

2. Степаненко И.П. «Основы микроэлектроники».

3. Д.А. Филимонов, Г.А. Демишев «Промышленные АСУ и контроллеры».

Размещено на Allbest.ru