Листинг управляющей программы

Листинг управляющей программы. программа управления устройством ввода и отображения информациина базе БИС КР580ВВ79 Разработка Кузин Е.А. programKR580 usescrt, dos constRecode array 1 16 of byte 01, 02, 04, 08, 10, 20, 40, 80, 03, 05, 09, 0B, 12, 22, 42, 82 код Code array 1 16 of integer 1,2,3,3,3,4,4,5,6,6,0,0,0,0,0,0 vari, k integer Display array 1 16 of integer tmp byte OK boolean labelNEW, AGAIN procedure OutByte portN,bte byte вывод байта в порт begin case portN of 378 asm mov al, bte out 378,al end 37A asm mov al, bte out 37A,al end end case Delay 10 end functionInByte portN byte byte чтение байта из порта begin case portN of 378 asm in al, 378 end 379 asm in al, 379 end 37A asm in al, 37A end end case asm mov InByte, al end Delay 10 end procedure Init первичная инициализация устройства begin OutByte 37A, 03 aппаратный сброс OutByte 37A, 19 программирование режима OutByte 378, 19 работы end procedure Wait ожидание прерывания от устройства begin repeat until InByte 379 lt gt 0 end procedureOutToDisplay Symbol integer вывод символа на дисплей таблица перекодировки выводимых символов constRecode array 1 15 of byte 60, da, f2, 66, b6, be, e0, fe, f6, fc, ee, 3e, 9c, 9e, 8c begin OutByte 37A, 09 OutByte 378,Recode Symbol end functionStatusWord boolean чтение слова состояния varSW byte begin StatusWord false OutByte 37A, 15 SW InByte 378 if SW lt gt 0 then StatusWord TRUE end procedureResetINT сбросINT begin OutByte 37A, 19 OutByte 378, F0 end procedure ResetDSPL сброс после вывода на дисплей begin OutByte 37A, 19 OutByte 378, D2 end procedureBell подача звукового сигнала begin Sound 1200 Delay 1000 NoSound end functionGetChar byte чтение символа с клавиатуры begin If not StatusWord then begin OutByte 37A, 19 OutByte 378, 40 OutByte 37A, 05 GetChar Inbyte 378 if GetChar 0 then begin OutByte 37A, 19 OutByte 378, 41 OutByte 37A, 05 GetChar Inbyte 378 2 end else begin Bell Bell WriteLN аппаратная ошибка end ResetINT end beginAGAIN Init k 0 repeat begin Wait tmp GetChar i 0 repeat inc i until Recode i tmp inc k case i of 1 13 begin Display k i OutToDisplay i end цифры 14 k 16 ВВОД 15 gotoAGAIN СБРОС 16 Bell ЗВОНОК end case end until k 16 for i 0 to16 do if Display i lt gt Code i then OK true ПРОВЕРКА ПАРОЛЯ if OK then Exec proc.exe, пароль проверен, запуск другойпрограммы goto AGAIN end.1 описание работы схемы. Управление устройством осуществляется спомощью пяти управляющих сигналов, которые передаются устройству по линиям, подключенным к порту 37Аhпараллельного порта см. принципиальную схему и составляют канал управленияустройством см. структурную схему. Схема подключения следующая Сигнал Назначение сигнала бита контакта INS D Прием комманд прием данных 4 18 IORC Чтение 3 20 IOWC Запись 2 21 RESET Аппаратный сброс 1 9 PCLK Синхронизация 0 11 К каналу статуса см. структурную схему подключена линия INT,сигнал на которой появляется, когда нажата одна из кнопок на клавиатуре.

Этослужит сигналом управляющей программе к началу обработки данных. Линияподключена к выводу 6 разъема бит 3 порта 379h. Канал данных контакты 1 8, биты 0 7порта 378h служит дляприема данных с клавиатуры и передачи устройству комманд и данных.

Следуетотметить, что для функционирования устройства параллельный порт компьютерадолжен поодерживать спецификацию ЕРР, которая предусматривает двунаправленнуюпередачу данных по каналу порта 378h. Управляющие сигналы подаютсянепосредственно на БИС КР580ВВ79 D3 , а данные и комманды передаются и принимаются через буферныйрегистр D1 см.принципиальную схему, что необходимо для синхронизации работы устройства иподключаемой ЭВМ.Клавиатурная часть устройства состоит изматрицы клавиш, подключенной непосредственно к линиям возврата RET7 RET0 и линиям выбора S3 S0 БИС КР580ВВ79. Одна из линий клавиш выбирается подачей сигналавысокого уровня на одну из линий вывода.

Т.к. в разрабатываемом устройствеиспользуется только 2 ряда по восемь клавиш, для выбора ряда используютсятолько линии S0 и S1. Информация с клавиатуры ввиде позиционного кода подается на линии возврата. Дисплейная часть устройства организованаследующим образом.

Информация из ОЗУ отображения БИС КР580ВВ79 по линиям DSPA3 DSPA0 и DSPA3 DSPA0 последовательновыводится в регистр D5и отображается на том из индикаторов HG1 HG16 ,номер которого, преобразованный в позиционный код с помощью дешифратора D4, выставлен на линияхвыбора S3 S0.Также в схеме предусмотрен блок индикацииготовности устройства к передаче данных, выполненный на элементах D2.3, HL1, R42.2 описание работы программыРабота программы управления основана назаписи и чтении данных байтов из портов, составляющих параллельный интерфейсЭВМ 378h, 379h, 37Ah. Чтение и запись данных всоответствующие порты ввода-вывода осуществляется с помощью процедуры OutByte выдача байта в порт и функции InByte, возвращающей значение прочитанного из соответствующенго порта байта. Все остальные управляющие процедурывыполняют свои функции на основании этих двух процедур.

Их назначениеследующее Имя процедуры Выполняемая функция Init Первичная инициализация устройства аппаратный сброс, выбор режима работы. Wait Ожидание сигнала INT OutToDisplay Вывод символа на дисплей StatusWord Чтение слова состояния булева функция, возвращает ИСТИНА, если в слове состояния есть единицы, т.е. при вводе были обнаружены ошибки ResetINT Сброс сигнала INT ResetDSPL Очистка дисплея, подготовка к новому вводу Bell Подача звукового сигнала GetChar Чтение символа с клавиатуры функция, возвращает значение позиционный код прочитанного байта, если он прочитан с первой линии клавиш, и значение позиционный код увеличенный на два, если чтение произведено со второго ряда Разработанная программа начинает своюработу с первичной инициализации Init, далее происходит цикл ожидания нажатия клавиши Wait с последующим чтениемкода нажатой клавиши GetChar и перекодировкой полученного кода в число, соответствующее номеру клавиши от 1 до 16, с помощью таблицы перекодировки Recode и занесениеполученного результата в массив Display. Далее происходит проверка прочитанного кода на соответствие необходимому, хранящемуся в массиве Code. Если коды совпадают, булева переменная ОК принимает значение ИСТИНА, ипроисходит запуск другой программы, выполняющей некоторую сервисную функцию, определяемую пользователем proc.exe. После выполненияпрограммы програма управления начинается сначала. Поз. позначення Найменування К л. Прим тка Микросхемы.

D1 КР580ВА86 1 D2 К555ЛН1 1 D3 КР580ВВ79 1 D4 3 К155ИД3 1 D5 КР580ИР82 1 Резисторы С2-23 ОЖО468354ТУ R1 0,125-10 кОм 10 1 R2 R9 0,125-330 Ом 10 8 R10 R25 0,125-3,3 кОм 10 16 R26 R41 0,125-10 кОм 10 16 R42 0,125-1 кОм 10 1 Транзисторы ОЖО433261ТУ VT1 VT16 4 КТ350А 16 Светодиоды ОЖО471221ТУ HL1 АЛ307 1 HG1 HG16 АЛС314А 16 Переключатели ОЖО412233ТУ SB1 SB16 МП10 16 ДК 71.711200 Аркуш 1 Зм Арк. докум.

П дпис Дата.