Разработка топологии программно-технического комплекса защиты автоматической системы управления и защиты реактора ВВЭР-1000

#ifdef SYN_3_CHANNEL

asm mov ax,6

asm mov dx,1

asm int 0x94

#endif

do

{

asm mov ax,2 // функция 2 системного INT 91

asm int 0x91 // ожидание начала 100мс такта

SendSyncroLabel(); // инициализация выдачи синхрометки

FromNetToOBD(); // распаковка информ. блоков из сет. буферов в ОБД

StartSend(); // формирование выходных сет. буферов

do // цикл ожидания 98мс

{

#ifndef DEBUG_VERSION

asm mov ax,3

asm int 0x94

asm mov time,bx

#endif

}while(time < 98);

}while(1);

}

/************************************************************\

* Функция EndPlay

*

* Параметры: нет

* Возврат : нет

* Описание : Функция завершения заботы ЛВС. Должна вызываться, если необходимо полностью переинициализировать ЛВС

\************************************************************/

void EndPlay()

{

outportb(RSPIC1_4,0xFF); // маскирование прерываний от КС

outportb(RSPIC1_5,0x7F); // маскирование прерываний от КС

if( AllBufSpace && (!InitResult))

FreeMemory(AllBufSpace); // освобождение памяти сет. буферов

}

/************************************************************\

* Функция IntFromUMOn

*

* Параметры: umo_N - номер УМО того КС, который вызвал прерывание

* Возврат : нет

* Описание : Функция вызывается всеми обработчиками прерываний от КС и вызывает диспетчер ЛВС

\************************************************************/

void IntFromUMOn(word umo_N)

{

word rs_pic0,rs_pic1;

asm cli

// Блок формирования трассы

SetDebugInfo(umo_N,0);

if(umo_N < 8)

{

rs_pic1 = RSPIC1_4;

rs_pic0 = RSPIC0_4;

}

else

{

rs_pic1 = RSPIC1_5;

rs_pic0 = RSPIC0_5;

}

outportb(rs_pic1,inportb(rs_pic1) | (~UMO_Mask[umo_N])); // маскирование прерывания на КП

/*

mask1 = inportb(RSPIC1_4); // чтение маски КП

mask2 = inportb(RSPIC1_5); // чтение маски КП

outportb(RSPIC1_4,0xFF); // маскирование всех прерываний на КП

outportb(RSPIC1_5,0xFF); // маскирование всех прерываний на КП

*/

AbortIntr(umo_N); // гашение прерывания на КС

outportb(RS_KDM,0x20); // гашение прерывания на КДМ

outportb(rs_pic0,0x20); // гашение прерывания на КДМ

outport(UMO_Base_Address[umo_N]+RS_,0x2040); // разрешение прерывания на КС

if(!DisableTimer) // внешний флаг запрета вызова диспетчера

{

if(umo_N != 2)

asm sti; // разрешение прерываний

Dispetcher(0,umo_N); // вызов диспетчера

asm cli

}

// Блок формирования трассы

SetDebugInfo(umo_N,1);

outportb(rs_pic1,inportb(rs_pic1) & UMO_Mask[umo_N]); // размаскирование прерывания на КП

/*

asm cli

outportb(RSPIC1_4,mask1); // маскирование всех прерываний на КП

outportb(RSPIC1_5,mask2); // маскирование всех прерываний на КП

*/

}

// Функция-обработчик прерывания от УМО 2

void interrupt IntFromUMO2(__CPPARGS)

{

IntFromUMOn(2);

}

// Функция-обработчик прерывания от УМО 3

void interrupt IntFromUMO3(__CPPARGS)

{

IntFromUMOn(3);

}

// Функция-обработчик прерывания от УМО 4

void interrupt IntFromUMO4(__CPPARGS)

{

IntFromUMOn(4);

}

// Функция-обработчик прерывания от УМО 5

void interrupt IntFromUMO5(__CPPARGS)

{

IntFromUMOn(5);

}

// Функция-обработчик прерывания от УМО 6

void interrupt IntFromUMO6(__CPPARGS)

{

IntFromUMOn(6);

}

// Функция-обработчик прерывания от УМО 7

void interrupt IntFromUMO7(__CPPARGS)

{

IntFromUMOn(7);

}

// Функция-обработчик прерывания от УМО 8

void interrupt IntFromUMO8(__CPPARGS)

{

IntFromUMOn(8);

}

// Функция-обработчик прерывания от УМО 9

void interrupt IntFromUMO9(__CPPARGS)

{

IntFromUMOn(9);

}

// Функция-обработчик прерывания от УМО 10

void interrupt IntFromUMO10(__CPPARGS)

{

IntFromUMOn(10);

}

// Функция-обработчик прерывания от УМО 11

void interrupt IntFromUMO11(__CPPARGS)

{

IntFromUMOn(11);

}

// Функция-обработчик прерывания от УМО 12

void interrupt IntFromUMO12(__CPPARGS)

{

IntFromUMOn(12);

}

// Функция-обработчик прерывания от УМО 13

void interrupt IntFromUMO13(__CPPARGS)

{

IntFromUMOn(13);

}

// Функция-обработчик прерывания от УМО 14

void interrupt IntFromUMO14(__CPPARGS)

{

IntFromUMOn(14);

}

// Функция-обработчик прерывания от УМО 15

void interrupt IntFromUMO15(__CPPARGS)

{

IntFromUMOn(15);

}

// Обработчик от таймера (будильник)

void interrupt WakeIntProc(__CPPARGS)

{

if((*SetDirIndexUMO)[2])

(*SetDirIndexUMO)[2]->FillControlMass(); // для направления на РС! Оно на УМО2

}

/************************************************************\

* Функция main

*

* Параметры: в регистре cx - номер ПТК ЦПС

* Возврат : 0 - нормальное завершение

1-2 - ошибка загрузки ОБД

10 - ошибка выделения памяти под сетевые буферы

11 - не найден диагностический параметр в ОБД

* Описание : Функция вызывается один раз при инициализации ЛВС

\************************************************************/

int main()

{

unsigned ln; // логический номер ПТК

int ret; // возврат функции

//====================================================//

strcpy(bbb,"Точная проба");

bbb[0]='Т'; bbb[1]='о'; bbb[2]='ч';

bbb[3]='н'; bbb[4]='о'; bbb[5]='я';

bbb[6]=' '; bbb[7]='п'; bbb[8]='р';

bbb[9]='о'; bbb[10]='б'; bbb[11]='\0';

ccc=15;

//====================================================

#ifndef SCAN_TASK // если диспетчеризация собственная,

#ifdef ARS_YES

asm mov cx,206 // то в cx заносится лог. номер ПТК

#else

asm mov cx,101 // то в cx заносится лог. номер ПТК

#endif

#endif

asm mov ln, cx

ret = InitOBD_byLogNumber(ln); // инициализация ОБД

if ( ret != 0 )

{

SetLastError(5);

return ret; // ОБД не проинициализирована

}

LVS_come_in(); // устанавливается признак "захвата" ОБД

#ifdef DIAG_3_CN // для 3-х канальной диагностики

asm mov ax,7

asm int 0x94

asm mov channel,ax

if (channel == 3) channel=0;

#endif

#ifdef SCAN_TASK

{

char sync_rg;

_AX = 9; asm int 94h; // Запрос режима синхронизации

sync_rg = _AX;

if(sync_rg == 0) // Программа запущена отладчиком, несинхронный режим работы

{

outport(RC_,0x0A01); // Включение 24в

for(int i=0;i<=3;i++) Wait(0xFFFF); // Временная задержка

}

}

#endif

tactNumber = 0; // номер текущего такта

ret = NetInit(); // нициализация ЛВС

// В режиме собственной инициализации здесь инициализация выдачи некот. блоков

#ifdef ARS_YES

if(SendBlock(ln,200))

SetLastError(12);

#endif

#ifndef SCAN_TASK

#ifdef ARS_YES

if(SendBlock(206,20))

SetLastError(12);

#else

if(SendBlock(101,2))

SetLastError(12);

if(SendBlock(101,4))

SetLastError(12);

if(SendBlock(101,5))

SetLastError(12);

if(SendBlock(101,10))

SetLastError(12);

#endif

#endif

Wait(0xFFFF); // задержка на инициализацию

Wait(0xFFFF);

Wait(0xFFFF);

Wait(0xFFFF);

#ifndef SCAN_TASK // если нет внешнего диспетчера

StartPlaySystem(); // запуск собственного

#endif

#ifndef SCAN_TASK // если нет внешнего диспетчера

debug_cycle: asm jmp debug_cycle; // бесконечный цикл

#endif

return ret;

}

/************************************************************\

* Файл INIT_CPS.CPP (для СЗ ППС)

* Модуль содержит массивы объектов, шаблоны указателей на объекты,

* а также их инициализацию

\************************************************************/

#include <dos.h>

#include <mem.h>

#include <stdlib.h>

#include "control.h"

#include "info.h"

#include "kadr.h"

#include "_contein.h"

#include "buffer.h"

#include "classes.h"

#include "netcalls.h"

#include "_extern.h"

extern int GetSegmOBD(unsigned far* );

void far* CaptureMemory(unsigned long memsize);

#ifdef SZA_FOR_PC // номера УМО 3х КС

byte Umo_3_KS[3] = {2,4,6};

byte bMainAbonent;

char * ptr_Key_RS = NULL; // признак трассировки

#endif

#if !defined(SZA_FOR_CPS) && !defined(SZA_FOR_PC)

extern word rs_pic0,rs_pic1;

#endif

#ifndef SZA_FOR_PC

extern DI far * DebugSpace;

extern DI far * curDebugSpace;

extern DI far * preDebugSpace;

#else

extern word far curDebugSpace;

extern byte far curKS_number;

#endif

word nextTrans = 0; // текущая запись в массиве TransOBDMass

word nextBuffer = 0; // текущий буфер

word nextBufferI = 0;

word nextBufferO = 0;

#ifdef PC_FOR_3KS

Abonent far AbonentsMass[ABONENTS_NUM]; // массив объектов класса Abonent

Direction far DirectionsMass[DIRECTIONS_NUM]; // массив объектов класса Direction

#else

Abonent AbonentsMass[ABONENTS_NUM]; // массив объектов класса Abonent

Direction DirectionsMass[DIRECTIONS_NUM]; // массив объектов класса Directi

#endif

// Шаблон объектов управления магистралью - индекс номер посадоч. места

ClassArray<Direction,UMO_LIMIT> SetDirUMO; // ограничение для номера УМО от 0 до 15

// Шаблон объектов управления магистралью - индекс номер магистрали

ClassArray<Direction,MAG_LIMIT> SetDirMAG; // ограничение для номера направления от 0 до 15

// Шаблон объектов управления абонентами

ClassArray<Abonent,ABONENTS_NUM> SetAb; // ограничение на общее кол-во абонентов в системе - ABONENTS_NUM

/***********************************************************\

* Функция InitSystem

*

* Параметры: нет

* Возврат : 0 - нормальное завершение

* Описание : В этой функции устанавливается вектор прерывания для драйвера КС

\************************************************************/

int InitSystem()

{

word ProcSeg,ProcOff;

ProcSeg = FP_SEG(Driver_KC); // сегмент функции - обработчика

ProcOff = FP_OFF(Driver_KC); // смещение функции - обработчика

// Установка вектора прерывания

asm{

cli

push ds

push dx

mov ds, ProcSeg

mov dx, ProcOff

mov al, DRV_INT

mov ah, 25h // функция 25h

int 21h

pop dx

pop ds

sti

}

return 0;

}

/************************************************************\

* Функция Init_Dirs

*

* Параметры: нет

* Возврат : 0 - нормальное завершение

10 - ошибка выделения памяти

* Глобальные переменные:

InitResult - рельтат инициализации СЗ 0-да 1-нет

* Описание : В этой функции устанавливается вектор прерывания для драйвера КС

\************************************************************/

int Init_Dirs()

{

descript_DIR * descr_DIR; // указатель на дескриптор магистрали (из таблицы сетей)

ulong far * TDD_ptr; // указатель на элемент таблицы сетей

word far * rec_TDD_N_ptr; // указатель на кол-во элементов в таблице сетей

//char far * tempPtr;

word segm; // сегмент ОБД

unsigned long memsize;

int ret;

ElementLocation el; // структура, описывающая элемент в ОБД

InitSystem(); // установка вектора прерывания

AllObdBegin = NULL; // указатель на начало ОБД в NULL

AllBufSpace = NULL; // указатель буферную область в NULL

diagnosticBegin = NULL; // указатель диаг. параметр NULL

// Инициализация области входных и выходных буферов

SetDirIndexUMO = &SetDirUMO;

SetDirIndexMAG = &SetDirMAG;

SetAbon = &SetAb;

#ifndef PC_FOR_3KS

// Выделение памяти под сетевые буферы

memsize = ((unsigned long)MEM_4_ABONENT*ABONENTS_NUM);

if(!(AllBufSpace =

(char far*)(CaptureMemory(memsize))))

return 10;

#else

// Выделение памяти под сетевые буферы

memsize = ((unsigned long)MEM_4_ABONENT);

if(!(AllBufSpace =

(char far*)(CaptureMemory(memsize))))

return 10;

#endif

#ifndef SZA_FOR_PC

if(!(DebugSpace =

(DI far*)(CaptureMemory(sizeof(DI)*DI_BUF_SIZE*DI_BUF_NUM))))

return 10;

curDebugSpace = DebugSpace;

preDebugSpace = curDebugSpace;

memset((void far*)curDebugSpace,0,DI_BUF_SIZE*sizeof(DI));

#endif

/*

// Заполнение шаблонов IBuffersMass и OBuffersMass

tempPtr = AllBufSpace;

for(i=0;i<IBUFFERS_NUM;i++) IBuffersMass[i].SetBuffer(tempPtr+i*MAXSIZE);

tempPtr += ((word)IBUFFERS_NUM*(word)MAXSIZE);

for(i=0;i<OBUFFERS_NUM;i++) OBuffersMass[i].SetBuffer(tempPtr+i*MAXSIZE);

for(i=0;i<IBUFFERS_NUM;i++)

(*InputBufArray).add(&IBuffersMass[i]);

for(i=0;i<OBUFFERS_NUM;i++)

(*OutputBufArray).add(&OBuffersMass[i]);

*/

// Заполнение шаблона SetAbon

for(int i=0;i<ABONENTS_NUM;i++)

(*SetAbon).add(&AbonentsMass[i]);

// Внешние массивы абонентов и магистралей

nextAbonent = 0; // кол-во проинициализированных абонентов

nextDirection = 0; // кол-во проинициализированных магистралей

ret = GetSegmOBD(&segm); // в segm - сегмент ОБД

AllObdBegin = (byte huge *)MK_FP(segm,0); // указатель на начало ОБД

// Указатель на начало таблицы сетей (и на кол-во записей в таблице)

rec_TDD_N_ptr = (word far *)(AllObdBegin +

(*(ulong huge *)(AllObdBegin + tabOffDirDescr)));

// Указатель на первый элемент таблицы описания сетей

TDD_ptr = (ulong far*)(rec_TDD_N_ptr + 1);

// Указатель на начало таблицы выдаваемых стат. блоков (и на кол-во записей в таблице)

rec_TOS_N_ptr = (word far *)(AllObdBegin +

(*(ulong huge *)(AllObdBegin + tabOff_OBOD_S)));

// Указатель на первый элемент таблицы выдаваемых стат. блоков

fstTOS_ptr = (record_IB far *)(rec_TOS_N_ptr + 1);

curTOS_ptr = fstTOS_ptr; // текущий элемент таблицы выдаваемых стат. блоков

// Указатель на начало таблицы выдаваемых 100мс блоков (и на кол-во записей в таблице)

rec_TOD100_N_ptr = (word far *)(AllObdBegin +

(*(ulong huge *)(AllObdBegin + tabOff_OBOD_100)));

// Указатель на первый элемент таблицы выдаваемых 100мс блоков

fstTOD100_ptr = (record_IB far *)(rec_TOD100_N_ptr + 1);

curTOD100_ptr = fstTOD100_ptr; // текущий элемент таблицы выдаваемых 100мс блоков

// Инициализация объектов управления магистралью по таблице описания сетей

for(i=0;i < *rec_TDD_N_ptr;i++,TDD_ptr++)

{

descr_DIR = (descript_DIR *)(AllObdBegin + *TDD_ptr);

#ifdef PC_FOR_3KS

descr_DIR->number_UMO = Umo_3_KS[0];

bMainAbonent = 1; // абонент этой магистрали инициализирует буфера

#endif

// Инициализация объекта Direction

ret = DirectionsMass[nextDirection].Init(descr_DIR);

// Регистрация магистрали в шаблоне SetDirIndexUMO

(*SetDirIndexUMO).addAt(&DirectionsMass[nextDirection],descr_DIR->number_UMO);

#ifndef SZA_FOR_CPS

// Здесь указатель на единственный Direction, если не ЦПС и на канал А для 3 КС

SingleDirection = &DirectionsMass[nextDirection];

Umo_Num = descr_DIR->number_UMO; // номер УМО КС

#ifndef SZA_FOR_PC

if(Umo_Num < 7)

{

rs_pic0 = RSPIC0_4;

rs_pic1 = RSPIC1_4;

}

else

{

rs_pic0 = RSPIC0_5;

rs_pic1 = RSPIC1_5;

}

#endif

#endif

nextDirection++;

#if defined(SZA_FOR_PC)// && !defined(PC_FOR_3KS)

if(ret)

{

return ret; // дальнейшая инициализация завершается

}

#endif

}

#ifdef PC_FOR_3KS

unsigned int ret1,ret2;

// В ОБД нет информации о УМО, на которых находятся все 3 КС 3-х канального варианта

// Здесь объекты Direction для двух остальных каналов создаются вручную

descr_DIR->number_UMO = Umo_3_KS[1];

bMainAbonent = 0;

ret1 = DirectionsMass[nextDirection].Init(descr_DIR);

// Регистрация магистрали в шаблоне SetDirIndexUMO

(*SetDirIndexUMO).addAt(&DirectionsMass[nextDirection],descr_DIR->number_UMO);

nextDirection++;

if(ret)

{

SetLastError(8);

return ret;

}

descr_DIR->number_UMO = Umo_3_KS[2];;

ret2 = DirectionsMass[nextDirection].Init(descr_DIR);

// Регистрация магистрали в шаблоне SetDirIndexUMO

(*SetDirIndexUMO).addAt(&DirectionsMass[nextDirection],descr_DIR->number_UMO);

nextDirection++;

if(ret)

{

SetLastError(8);

return ret;

}

#endif

InitResult = 0; // СЗ проинициализирована

#ifdef SZA_FOR_CPS // для ЦПС

ret=GetLocation("Tab_NETS", &el);

if(ret) SetLastError(11);

else {

diagnosticBeginRS = (char far*)(AllObdBegin + el.offset_in_OBD);

if (diagnosticBeginRS != 0)

diagnosticBeginRS = *((char far*far*)(diagnosticBeginRS+1));

// В diagnosticBeginRS - указатель на начало диаг. параметра РС (NETS_C)

}

ret=GetLocation("NETD_C", &el); // поиск в базе NETD_C

if(ret) SetLastError(11);

else

// В diagnosticBegin - указатель на начало диаг. параметра ЦПС (NETD_C)

diagnosticBegin = (char far*)(AllObdBegin + el.offset_in_OBD);

ret=GetLocation("NO_TRACE_CPS", &el);

if(ret)

SetLastError(11);

else

// В NO_TRACE_CPS_ptr - указатель на признак необходимости трассировки во всех ЛВС

NO_TRACE_CPS_ptr = (byte *)(AllObdBegin + el.offset_in_OBD);

#else

ret=GetLocation("Pr_Net", &el);

if(ret) SetLastError(11);

else

// В Pr_Net_ptr - указатель на признак работоспособности сети

Pr_Net_ptr = (byte *)(AllObdBegin + el.offset_in_OBD);

ret=GetLocation("Pr_SYN", &el);

if(ret) SetLastError(11);

else

// В Pr_Net_ptr - указатель на признак работоспособности сети

Pr_SYN_ptr = (byte *)(AllObdBegin + el.offset_in_OBD);

#endif

#ifndef SZA_FOR_PC

{

asm mov ax,7;

asm int 0x94;

unsigned C = _AX;

ret=GetLocation("BSK", &el);

if(ret)

SetLastError(11);

else

{

// В BSK_ptr - указатель на признак брака КС своего канала

BSK_ptr = (byte *)(AllObdBegin + el.offset_in_OBD);

switch (C)

{

case 1: BSK_ptr += 1; break;

case 2: BSK_ptr += 2; break;

};

};

ret=GetLocation("NO_TRACE", &el);

if(ret)

SetLastError(11);

else

// В NO_TRACE_ptr - указатель на признак необходимости трассировки

NO_TRACE_ptr = (byte *)(AllObdBegin + el.offset_in_OBD);

ret=GetLocation("PVVP", &el);

if(ret)

SetLastError(11);

else {// В pPVVP - указатель на признак восстановления выч. процесса

pPVVP = (byte *)(AllObdBegin + el.offset_in_OBD);

mask_PVVP = 1 << C;

}

switch (C) {

case 0: ret=GetLocation("NPPC1", &el); break;

case 1: ret=GetLocation("NPPC2", &el); break;

case 2: ret=GetLocation("NPPC3", &el); break;

default : ret=0; break;

};

if(ret)

SetLastError(11);

else // В pNPPC - указатель на результат ТСП канала резервирования

pNPPC = (unsigned int *)(AllObdBegin + el.offset_in_OBD);

}

#else

ret=GetLocation("Key_RS", &el);

if(ret)

SetLastError(11);

else

// В NO_TRACE_ptr - указатель на признак необходимости трассировки

ptr_Key_RS = (char *)(AllObdBegin + el.offset_in_OBD);

#endif

#if defined(LVS_HOTST)

ret=GetLocation("NETD_R", &el); // поиск в базе NETD_R:диагностика РС

if(ret)

SetLastError(11);

else

// В diagnosticBegin - указатель на начало диаг. параметра

diagnosticBegin = (char far*)(AllObdBegin + el.offset_in_OBD);

#endif

#ifndef SZA_FOR_PC

PutValue("_TRACE",DebugSpace);

#endif

return 0;}

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