Программатор ПЗУ (программный интерфейс)

ДИПЛОМНАЯ РАБОТА Работу выполнил студент Научный руководитель Москва, 1997 СОДЕРЖАНИЕ ОСНОВНЫЕ НАПРАВЛЕНИЯ ПРИМЕНЕНИЯ ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКИ В УЧЕБНОМ ПРОЦЕССЕ 1. ОБЩИЙ РАЗДЕЛ 1. Характеристики аппартных средств вычислительной техники 2. Характеристики программных средств вычислительной техники 1.3. Постановка задачи 2. СПЕЦИАЛЬНЫЙ РАЗДЕЛ 1. Разработка алгоритма программного обеспечения 2. Разработка универсальной управляющей программы 3. Разработка программного интерфейса 4. Описание процесса отладки 5. Разработка эксплуатационно-методической документации 6. Результаты испытаний 3. ОРГАНИЗАЦИОННО-ЭКОНОМИЧЕСКИЙ РАЗДЕЛ 1. Оценка издержек на разработку программного интерфейса для программатора ПЗУ 2. Анализ эффективности внедрения разработанной программы в учебный процесс 4. МЕРОПРИЯТИЯ ПО ОХРАНЕ ТРУДА. БЕЗОПАСНОСТЬ ТРУДА ПРИ ОБСЛУЖИВАНИИ ПРОГРАММАТОРА 4.1 Требования безопасности к техническим средствам ПЭВМ 2. Требования безопасности к микроклимату в учебных лабораториях 4.3. Меры безопасности при сервисном обслуживании программатора.

ПРИЛОЖЕНИЕ 1. Программный интерфейс 34 ОСНОВНЫЕ НАПРАВЛЕНИЯ ПРИМЕНЕНИЯ ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКИ В УЧЕБНОМ ПРОЦЕССЕ Стремительное внедрение в сферу материального производства новой информационной технологии, широкая электронизация всех машин и оборудования требует сегодня от многомиллионной армии специалистов знания микропроцессорных средств и систем, владения компьютерной техникой.

В настоящий период время внедрения научных открытий, освоение новых технологий в ведущих отраслях промышленности становится соизмеримым с продолжительностью учебы в вузе, техникуме.

Это требует поиска таких методов и средств обучения, которые сократили бы расстояние между достижениями науки, производственной практикой и содержанием образования. Изменяются в значительной степени и цели обучения.

Сегодня профессионально важным для специалиста является умение самостоятельно и непрерывно пополнять, обновлять знания, вести творческий поиск, способность ответственно принимать оригинальные решения. Новые задачи образования требуют современной технической базы, и, в первую очередь, широкого внедрения компьютеров в учебном процессе.

Реализация учебного процесса, обеспечивающего высокую образовательную активность учащихся, самостоятельность их работы, индивидуализацию обучения в настоящее время невозможна без широкого применения вычислительной техники и дидактических материалов, обеспечивающих реальность такого использования. Успехи в деле компьютеризации учебного процесса определяются тремя существенными факторами наличием вычислительной техники производством и распределением программного обеспечения готовностью преподавателей методически грамотно использовать вычислительную технику. Определенный опыт освоения и использования электронной вычислительной техники в учебно-воспитательном процессе накоплен в Винницком техникуме электронных приборов 7. Начало освоения электронно-вычислительных машин ЭВМ относится к 1977-78 году, когда вычислительный центр техникума, оснащенный машинами Электроника-1004, занимался статистической обработкой результатов успеваемости и посещаемости.

Это позволило руководителям техникума ежедневно получать оперативную информацию о состоянии дел в каждом учебной группе.

В 1980-1981 году были сделаны первые шаги по использованию ЭВМ для решения творческих задач в период курсового и дипломного проектирования. Начало этой работы поставило перед педагогическим коллективом техникума ряд проблем необходимость психологической подготовки преподавателей к внедрению вычислительной техники необходимость разработки методик инженерных расчетов, ориентированных на применение ЭВМ пересмотр методики проведения занятий отсутствие информационно- методического и программного обеспечения вычислительной техники.

Возникшие проблемы решались в техникуме постепенно, сначала работой по внедрению вычислительной техники занялись преподаватели специальных дисциплин, хорошо владеющие методикой обучения, с одной стороны, и знающие основы вычислительной техники с другой. Это позволило уже в 1980-81 году разработать и внедрить в учебный процесс пакет программ Расчет элементов интегральных микросхем. Выполненная учащимися двух учебных групп расчетная часть курсового проекта показала высокую эффективность применения техники в курсовом проектировании.

Проведенные в том же году открытые уроки позволили на практике показать большинству членов коллектива возможность и эффективность использования вычислительной техники в учебном процессе. Был преодолен психологический барьер. В работу по внедрению вычислительной техники стали подключаться все новые и новые преподаватели. С 1983-84 года на ЭВМ проводятся расчеты функциональных узлов по предмету Радиоприемные устройства, трудоемкие расчеты надежности РЭА, экономические расчеты и др. Только за 4 года более 200 учащихся выполнили курсовые проекты с расчетами на ЭВМ. Высокая точность расчетов, производительность позволили высвободить у них время на творческую, содержательную часть проекта.

Общие методические принципы проведения занятий при помощи ЭВМ, сформулированные в техникуме на основе четырехлетнего опыта, были перенесены на другие предметы общеобразовательного, общетехнического и специального цикла.

Этому способствовал организованный в 1985 году постоянно действующий семинар для преподавателей по программированию и применению вычислительной техники в учебном процессе. Для учащихся был введен факультативный курс Применение микропроцессорных средств и микро- ЭВМ. 1984-85 год стал годом массового освоения программируемых микрокалькуляторов, которые широко использовались при выполнении лабораторных и практических работ по ТОЭ, физике, математике, общетехнических и специальных дисциплин.

Создание прикладных расчетных программ для программируемых микрокалькуляторов - неотъемлемая часть научно-методической работы в техникуме. Более 30 преподавателей прошли переподготовку на факультетах повышения квалификации при ведущих учебных заведенях минвуза СССР и отраслевого министерства 7. Внедрение вычислительной техники в нашем учебном заведении - это планомерный, постоянно развивающийся процесс.

Опыт подтвердил известное положение о том, что совершенствованию методики и программ нет предела. В 1982 году положено начало использованию вычислительной техники в научно-техническом творчестве. Так при выполнении хоз. договорных экспериментально-конструктивных работ учащиеся готовят программы трассировки печатных плат для систем автоматического проектирования САПР, разрабатывают и отлаживают программы сверловки плат для станков с числовым программным управлением ЧПУ, проводят типовые расчеты, учет материальных ценностей, документооборот по ЭКВ ведется с 1987 года при помощи автоматизированной информационной системы, созданной на базе СУБД-микро для ДВК. Постоянная работа учащихся с ЭКБ с вычислительной техникой приносит свои плоды, сегодняшние старшекурсники, работающие в ЭКВ, свободно владеют микрокомпьютерами на уровне пользователя.

Можно предположить, что результаты подготовки по вычислительной технике значительно возрастут при организации непрерывного процесса формирования профессионально важных качеств пользователя ЭВМ у каждого учащегося, начиная с изучения основ информатики и вычислительной техники в общетехнических и специальных дисциплинах и заканчивая использованием ее в различных учебных формах научно-технического творчества.

Программирование - один из интересных видов творческой деятельности. Важная организационная форма научно-технического творчества - кружок программирования.

Занятия в нем привлекают многих учащихся и дают практические знания по программированию и пользованию ЭВМ. Он становится базой для подготовки и отладке многих прикладных программ. Автоматизация процесса обработки информации - одна из сфер эффективного применения вычислительной техники. Рациональная организация информационных ресурсов в техникуме - задача, которая стоит перед коллективом. С этой целью в ЭКБ техникума ведутся работы по созданию автоматизированных информационно-поисковых систем на основе микрокомпьютеров.

В 1987 году фрагмент информационно-поисковой системы Банк передового педагогического опыта внедрен в опытную эксплуатацию совместно с кафедрой педагогики московского областного пединститута им Н.К. Крупской. Пакет программ информационно - поисковой системы внедряется при изучении темы Информационное обеспечение профессиональной деятельности специалиста в курсе основы научно - технического творчества. Работа учащихся с информационными фондами на машинах носителях - важный этап формирования культуры информационной деятельности как преподавателей, так и учащихся 7. В 1988 году в техникуме создана хорошая учебно-материальная база класс диалоговых вычислительных комплексов 2 класса компьютеров более 300 программируемых калькуляторов Широкое применение элементов микропроцессорной техники в научно-техническом творчестве позволяет производить разработки по совершенствованию научно-технических средств вычислительной техники, созданию учебно-лабораторного оборудования для изучения работы микро-ЭВМ и программного управления технологическим оборудованием.

Так в 1985 году был создан тренажер учебной микро- ЭВМ Электроника-ВТЭП микро.

На тематической выставке Инженерно тематическое оборудование ВДНХ СССР в 1986 году учебная микро-ЭВМ отмечена серебряной медалью. Десять таких тренажеров внедрены в учебный процесс в 1986 году 7. В 1986 году в техникуме создана локальная сеть диалоговых вычислительных машин. Ее внедрение существенно расширило диалектические возможности применения ДВК-1 в условиях группового обучения.

В 1987 году ЭКБ техникума создает локальные сети по заказу ряда техникумов отрасли. Призером выставки Итоги 11-го всесоюзного смотра-конкурса на лучшую экспериментально-конструктивную работу учащихся ССУЗ, проводимой в феврале-марте 1987 года на ВДНХ СССР, стал специализированный микрокомпьютер Спектр, созданный в ЭКБ для управления технологическим оборудованием. Медалями ВДНХ отмечены пакеты программ Расчет элементов интегральных схем и Определение профессиональной надежности личности.

Три преподавателя техникума являются членами методической комиссии минвуза СССР по вычислительной технике и научно-техническому творчеству. Опытом работы техникум делится на всесоюзных, республиканских и областных совещаниях, семинарах, проводимых минвузом СССР. Масштабность задач, связанных с внедрением вычислительной техники, выдвигает на повестку дня вопрос о целесообразности создания на базе ведущих техникумов ряда лабораторий, занимающихся разработкой информационно-методического и программного обеспечения по каждому из направлений с последующим внедрением во все учебные заведения отрасли и системы среднего специального образования.

Это может стать одним из направлений экспериментально-конструкторской работы, проводимой по хоздоговорам при условии укрепления ЭКБ специалистами по системотехнике и системному программированию. 1.

ОБЩИЙ РАЗДЕЛ

ОБЩИЙ РАЗДЕЛ 1.1.

Характеристики аппартных средств вычислительной техники

Множество других фирм немедленно принялись подражать IBM и развивать е... Основные части компьютера Вообще-то, самый первый персональный компьют... Поэтому после включения компьютера программы и данные всякий раз необх... Для передачи или сохранения одного любого символа - буквы, цифры или з... В качестве компонентов памяти в современных компьютерах используются г...

Характеристики программных средств вычислительной техники

. 3 Придуманный швейцарским ученым Никласом Виртом как средство для обуч... Характеристики программных средств вычислительной техники. 4 1.3. Развитая система типов позволяет легко разрабатывать адекватные предст...

Постановка задачи

ПИ должен обеспечить удобный вывод текстовой информации на экран для у... Целью задачи является разработка программного интерфейса ПИ, который д... . 2. Постановка задачи.

СПЕЦИАЛЬНЫЙ РАЗДЕЛ

СПЕЦИАЛЬНЫЙ РАЗДЕЛ 2.1.

Разработка алгоритма программного обеспечения

Разработка алгоритма программного обеспечения. Структура программного интерфейса была построена на основе иерархическ... При разработке алгоритма программного обеспечения были использованы сл... Модули чтения и записи ПЗУ, обеспечивает связь программного интерфейса... 2.2.

Разработка универсальной управляющей программы

Процедура Map - выводим созданный виртуальной эран на дисплей. 2.2.11. Процедура Morph - создание эффекта Морфий, плавное преоразование одног... Процедура Menu - работа с меню, выбор пункта меню и перемещение курсор... Процедура HexB2Str - представление символа в ввиде восьмеричного кода.

Описание процесса отладки

При отладке программного интерфейса лабораторного макета был использов... Были внесены некоторые изменения в программу, связанные с обеспечением... 2.5. Осуществлена отладка программного интерфейса совместно с его аппаратно... .

Разработка эксплуатационно-методической документации

При эксплуатации лабораторного макета Програматор ПЗУ по проведению ла... Подсоединить интерфесный продов к программатору и параллельному порту ... Включить питание копьютера 3. Включить питание на лабораторном макете 4. Выйти из программы 11.

Результаты испытаний

Результаты испытаний. В процессе дипломного проектирования были получены следующие результат... Также программный интерфейс создает удобный режим общения пользователя... прошивок ПЗУ. Техническая характеристика программы Объем программы на жестком диске ...

ОРГАНИЗАЦИОННО-ЭКОНОМИЧЕСКИЙ РАЗДЕЛ

ОРГАНИЗАЦИОННО-ЭКОНОМИЧЕСКИЙ РАЗДЕЛ 3.1.

Оценка издержек на разработку программного интерфейса для программатора ПЗУ

Определение норм времени на операции приведено в таблице 3.2. Итого975000.00 руб. 3.1.3 Статья III. Всего 40,5 от начисленной заработной платы. Ст.3 3.3Ст.3 394875.00 руб. Статья IV.

Анализ эффективности внедрения разработанной программы в учебный процесс

Так как разработка макета носит социально-направленный характер для пр... . Эффективность внедрения программы заключается в том, что лабораторный ... 4. Анализ эффективности внедрения разработанной программы в учебный проце...

МЕРОПРИЯТИЯ ПО ОХРАНЕ ТРУДА. БЕЗОПАСНОСТЬ ТРУДА ПРИ ОБСЛУЖИВАНИИ ПРОГРАММАТОРА

МЕРОПРИЯТИЯ ПО ОХРАНЕ ТРУДА. БЕЗОПАСНОСТЬ ТРУДА ПРИ ОБСЛУЖИВАНИИ ПРОГРАММАТОРА 4.1

Требования безопасности к техническим средствам ПЭВМ

4.2. Требования безопасности к техническим средствам ПЭВМ. . Устройства управления ПЭВМ, устройства ввода-вывода и подготовки данны... Для предотвращения образования и защиты студентов от статического элек...

Требования безопасности к микроклимату в учебных лабораториях

Это напряжение питает трансформаторный блок. Шасси выполнено из дюралюминия. К этой клемме должно быть подключено заземление. Сетевой тумблер типа ПТ2-2 напряжение 600 вольт, ток до 2 ампер отвеча... Так как программатор взаимодействует при работе с ПЭВМ, а ПЭВМ являетс...

СПИСОК ЛИТЕРАТУРЫ 1. Скотт Мюллер Модернизация и ремонт персональных компьютеров, Москва, изд. Восточная Книжная Компания, 1996г ISBN 0-7897-0321-1 2. Гук Аппаратные средства IBM PC, Санкт-Петербург, изд. Питер Пресс, 1996г ISBN 5-88782-036-5 3. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие, Москва, изд. Нолидж, 1997г ISBN 5-89251-012-3 4. М.В. Сергиевский, А.В. Шалашов Турбо Паскаль 7.0 Язык, среда программирования, Москва, изд. Машиностроение, 1994г ISBN 5-217-02468-2 5. Абель П. Язык Ассемблер для IBM PC и программирования, Москва, изд. Высшая школа, 1992г ISBN 5-101-123447-1 6. Гейтс Б. Дорога в будующее, Москва, изд. Русская редакция, 1996г ISBN 5-7502-0019-1 7. Информация с сервера www.referats.aha.ru, изд. INTERNET 8. CD-библиотека Все для инженера, изд. InfoLink, 1997г. ПРИЛОЖЕНИЕ 1 ПРОГРАММНЫЙ ИНТЕРФЕЙС Uses DOS Type TNT Array0 65534Of Byte Filearray Array1 5000Of String12 Const U0 Char200 U1 Char201 U2 Char202 U3 Char199 U4 Char198 U5 Char203 U6 Char193 U7 Char192 Up Char194Char195 Uf Char196Char185 Us Char197Char186 Speed 3 Hex Array0 15Of Char 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F Var Buffer TNT Filx filearray Dirx filearray Fake TNT ScanCode Byte Key Char Screen Array0 5090 of byte Segscr Word Ofsscr Word px, py Byte Clr Byte MenuP Byte F File RomSize Longint Curd String RomName String lxul, lyul, lxdr, lydr byte Procedure WaitRt assembler Asm mov dx,3da wa1 in al, dx test al,8 je wa1 wa2 in al, dx test al,8 jne wa2 End Procedure Colorc1,c2 byte Begin clrc116c2 End Procedure Locx, y byte Begin pxx pyy End Procedure WCharc char Begin screenpy160pxpxbytec screenpy160pxpx1clr incpx If px80 Then Begin px0 incpy If py 25 Then py25 End End Procedure Shadex byte Var m byte Begin For m1 To x Do Begin Screenpy160pxpx1screenpy160pxpx1 And 7 incpx If px80 Then Begin px0 incpy If py 25 Then py25 End End End Procedure Wrts string Var x word Begin For x1 To lengths Do WCharsx End Procedure WrtLns string Var x word Begin For x1 To lengths Do WCharsx px0 incpy If py 25 Then py25 End Procedure Map Begin Movescreen, memb8000,8050 End Procedure Cls Begin FillCharscreen,8050,0 End Procedure ReadKey assembler Asm xor ax, ax int 16h End Function ScanKey char Var x byte Begin x255 Asm mov ah,01 int 16h jz nokey mov x, al mov ScanCode, ah nokey End If x 255 Then ReadKey ScanKeycharx End Procedure SkipTime Var h, m,s, c word lh, lm, ls, lc longint abstime1,abstime2 longint Begin GetTimeh, m,s, c lhh lmm lss lcc abstime1lcls100lm60100lh6060100 Repeat GetTimeh, m,s, c lhh lmm lss lcc abstime2lcls100lm60100lh6060100 Until abstime2 abstime1 End Procedure MoveMan Var addr word a byte x word Begin addr0 For x0 To 8025-1 Do Begin ascreenaddr If a 207Anda 217 Then inca If a217 Then a208 If a205 Then a204 Else If a204 Then a205 screenaddra incaddr,2 End End Procedure MakeMans Var x word Begin For x0 To 8025-1 Do Begin screenxx 177 screenxx1167 End End Procedure LoadFont Var f file Begin Assignf, curdaxefont.fnt Resetf,1 Blockreadf, screen,5080 Closef Asm push bp mov ax, segscr mov es, ax mov bp, ofsscr mov bx,1000h xor dx, dx mov cx,256 mov ax,1100h int 10h pop bp mov ah,1 mov cx,1000h int 10h End Cls End Procedure WaitKey Begin WaitRt Map Repeat KeyScanKey If Keychar255 Then Begin Map MoveMan SkipTime End Until Key char255 End Procedure Windowxul, yul, xdr, ydr byte name string Var x, y word Begin Locxul, yul Wrtup For xxul2 To xdr Do Wrt- For yyul1 To ydr-1 Do Begin Locxul, y Wrtu0 For xxul1 To xdr-1 Do Wrt Wrtu1 Shade2 End Locxul, y Wrtu4 For xxul1 To xdr-1 Do Wrtu7 Wrtu5 Locxul2,ydr Shadexdr-xul1 xlengthname shr 1 yxdr-xulshr 1xul yy-x Locy1,yul yclr xclr and F0shr 4 colorx, clr and 0F Wrtname clry lxulxul lyulyul lxdrxdr lydrydr End Procedure Morphxf1,yf1,xf2,yf2,xt1,yt1,xt2,yt2 byte Var x word Begin Windowxf1,yf1,xf2,yf2, Repeat MakeMans If xf1 xt1 Then decxf1,xf1-xt1Shr speed1 If xf1 xt1 Then incxf1,xt1-xf1Shr speed1 If yf1 yt1 Then decyf1,yf1-yt1Shr speed1 If yf1 yt1 Then incyf1,yt1-yf1Shr speed1 If xf2 xt2 Then decxf2,xf2-xt2Shr speed1 If xf2 xt2 Then incxf2,xt2-xf2Shr speed1 If yf2 yt2 Then decyf2,yf2-yt2Shr speed1 If yf2 yt2 Then incyf2,yt2-yf2Shr speed1 Windowxf1,yf1,xf2,yf2, Map WaitRt Until xf1xt1Andxf2xt2Andyf1yt1Andyf2yt2 End Procedure MorphLxt1,yt1,xt2,yt2 byte Var x word xf1,xf2,yf1,yf2 byte Begin xf1lxul xf2lxdr yf1lyul yf2lydr MorPhxf1,yf1,xf2,yf2,xt1,yt1,xt2,yt2 End Procedure WindowLname string Var xf1,xf2,yf1,yf2 byte Begin xf1lxul xf2lxdr yf1lyul yf2lydr Windowxf1,yf1,xf2,yf2,name End Procedure Menux1,y1,stepy, all, col byte s1,s2,s3,s4,s5 stringlenx byte Var x byte yt byte yp byte Begin yty1 For x1 To all Do Begin Locx1,yt Case x oF 1 Wrts1 2 Wrts2 3 Wrts3 4 Wrts4 5 Wrts5 End ytytstepy End yp0 ytclr clrcol Repeat Repeat Locx1-2,y1stepyyp Wrtchar204 WaitKey Until Keychr13orScanCodebyteHorScanCodebytePor Keychr27 Locx1-2,y1stepyyp Wrt If Keychr27 Then ypall-1 If ScanCodebyteP Then If yp all-1 Then incyp If ScanCodebyteH Then If yp 0 Then decyp Until Keychr13orKeychr27 xx1-2 Repeat Locx, y1stepyyp Wrt chr205 WaitRt Map incx,1 Until x x1lenx clryt MenuPyp End Procedure HexL2Strl longint var s string Begin shexl shr 47and 15 sshexl shr 46and 15 sshexl shr 45and 15 sshexl shr 44and 15 sshexl shr 43and 15 sshexl shr 42and 15 sshexl shr 41and 15 sshexland 15 End Procedure HexB2Strl byte var s string Begin shexl shr 4and 15 sshexland 15 End Procedure MemEdname string Var x, y word l, l1,p, lpos longint s, st string stc byte size longint readsize longint bank word b1,b2 byte flag boolean i searchrec Label Repaint, TryAgain Begin TryAgain FindFirstname, AnyFile, i If i. Attr And ReadOnly ReadOnly Then Begin stcclr color7,4 MorPhL20,7,56,15 WindowLFile has ReadOnly Attribute Menu30,9,2,3,4b,Remove it,Reselect file,Exit, xxx4,xxx5,6 If MenuP1 Then Begin MenuP8 exit End If MenuP2 Then Begin MenuP0 exit End clrstc assignf, name SetFattrf, i. Attr xor ReadOnly MorPhL0,0,77,24 Color7,6 WindowLMemory Editor goto TryAgain End Assignf, name resetf,1 sizeFilesiZef l10 p0 lpos0 bank0 flagfalse If size 35000 Then readsize35000 Else readsizesize blockreadf, buffer, readsize RePaint If l1 Div 32767 bank Then Begin If flag Then Begin color7,4 MorPhL24,7,50,14 WindowLSave Changed Data Menu36,9,3,2,4b,YES,NO,xxx3,xxx4,xxx5,6 If MenuP0 Then Begin Seekf, lpos blockwritef, buffer, readsize End MorPhL0,0,77,24 Color7,6 WindowLMemory Editor End lposl1 div 3276732767l1 div 32767 Seekf, lpos If size-l1 35000 Then readsize35000 Else readsizesize-l1 blockreadf, buffer, readsize bankl1 div 32767 flagfalse end ll1 and 32767 Loc2,1 Wrtaddress 0 1 2 3 4 5 6 7 8 9 A B C D E F ASCII For x2 To 22 Do Begin Loc2,x HexL2Strll1 and 32767 xor F,s Wrts For y1 to 16 do Begin HexB2Strbufferl, s Wrts incl End For y16 Downto 1 Do Begin Wrtcharbufferl-y End End ll1 and 32767 Repeat Repeat stcclr color6,7 HexB2Strbufferlp, s Locp and 15313,p shr 42 Wrts Locp and 1561,p shr 42 Wrtcharbufferlp clrstc WaitKey Until Keychr13orScanCode49orScanCode51orScanCo de48 orScanCode4DorScanCode4BorScanCode50orKe ychr27 orKey 0andKey 9orupcaseKey AandUpcaseKey F If ScanCode48orScanCode4dorScanCode4borScan Code50 Then Begin HexB2Strbufferlp, s Locp and 15313,p shr 42 Wrts Locp and 1561,p shr 42 Wrtcharbufferlp End If Key 0AndKey 9OrupcaseKey AAndUpcaseKey F Then Begin stcclr KeyupcaseKey If Key 0AndKey 9 Then b1byteKey-byte0 Else b1byteKey-byteA10 color6,7 Locp and 15313,p shr 42 WrtKey Locp and 1561,p shr 42 Wrt Repeat WaitKey Until Key 0andKey 9orupcaseKey AandUpcaseKey ForScanCode0E KeyupcaseKey If Key 0AndKey 9 Then b2byteKey-byte0 Else b2byteKey-byteA10 If Key 0AndKey 9OrupcaseKey AAndUpcaseKey F Then Begin bufferlpb116b2 flagtrue end clrstc end Case ScanCode of 50 if l1p16 size then begin incp,16 if p 32015 then begin incl1,16 p320p and 15 goto RePaINt end end 48 begin if p 15orl1 0then decp,16 if p 0 then begin decl1,16 pp and 15 goto RePaINt end end 4D if l1p1 size then begin incp if p 32015 then begin incl1,16 p320 goto RePaINt end end 4B begin if p 0orl1 0then decp if p 0 then begin decl1,16 p15 goto RePaINt end end 49 begin if l1 319 then begin decl1,320 end else l10 goto RePaint end 51 begin incl1,320 if l1 size-336 then l1size-336 goto RePaint end end Until keychr13orKeychr27 If flag Then Begin color7,4 MorPhL24,7,50,14 WindowLSave Changed Data Menu36,9,3,2,4b,YES,NO 6 If MenuP0 Then Begin Seekf, lpos blockwritef, buffer, readsize End End closef End Function LowCases string string Var x integer Begin LowCases For x1 To lengths Do Begin If sx AAndsx Z Then LowCasexcharbytesx-byteAbytea End End Procedure FFilevar s string Var i searchrec name string x, y,z integer curp integer curps integer maxp integer mask string zs string fz, dz integer f file of byte pos longint Label Repaint Begin s RePaint For y1 To 17 Do Begin Loc23,3y Wrt End z 0 fz 0 dz 1 curp 1 curps1 mask. FindFirstmask,Directory, i Repeat If i.attrAndDirectoryDirectory Then Begin filxdzi.name If i.name. Then incdz End Else Begin dirxfz1LowCasei.name incfz End FindNexti Until DOSERROR 0 zdzfz x1 For ydz To z Do Begin filxydirxx incx End Repeat maxpcurp17 If maxp z-1 Then maxpz-1 For ycurp To maxp Do Begin Loc23,3y-curp namefilxcurpy-curp For x17 DownTo lengthfilxcurpy-curp Do namename If curpsy-curp1 Then color1,2 Else color7,1 Wrt name End Repeat WaitKey Until Keychr13orScanCode48orScanCode50orKeychr 27orScanCode82 Case ScanCode Of 50 inccurps 48 deccurps 82 Begin MOrPhL10,10,40,15 WindowLInput File Name. ROM y 1 zs Loc22,12 Wrt- Repeat WaitKey Loc21y,12 If Key chr13AndKey chr27 Then If Key chr08 Then Begin If y 9 Then Begin zsyKey Wrtkey- incy End End Else If y 1 Then Begin decy Loc21y,12 zsy Wrt- End Until KeyChr13orKeychr27 MorPhL20,8,50,12 Color7,4 WindowL Loc30,10 WrtЖди давайchr208 Map Assignf, zs. ROM Rewritef yFF For pos1 To romsize Do Writef, bytey closef Keychr255 ScanCode0 color7,1 MorPhL20,2,50,22 WindowLВыберите файл s Goto RePaint End End If curps z-1 Then curpsz-1 If curps 18 Then Begin curps18 If curp z-18 Then inccurp End If curps 1 Then Begin curps1 If curp 1 Then deccurp End Until Keychr13orKeychr27 Color7,1 If Keychr13 Then Begin FindFirstfilxcurpcurps-1,00,i If DOSERROR 0 Then Begin chdirfilxcurpcurps-1 Goto RePaint End sfilxcurpcurps-1 End End Procedure ReadROMaddr longint Var x word y byte Begin xaddr port378x and 65535 port379x shr 16 yport380 fakex and 65535y End Var x byte s string l LONGINT y longint zs string rsz longint fi, fo file Label OpenF Begin Newbuffer Newfilx Newdirx Newfake ofsscrofsscreen segscrsegscreen LoadFont MakeMans GetDir0,curd romsize0 color7,5 Window1,1,26,12,Главное меню Repeat MorPhL1,1,26,12 Color7,5 WindowLMain Menu Menu4,3,2,4,5b,Выбор ПЗУ,Работа с ПЗУ,О программе,Выchar208ход 20 case MenuP of 0 Begin Repeat MorPhL20,10,50,18 color7,1 WindowLВыбор типа ПЗУ Menu23,12,2,3,1b,УФ ПЗУ,ПЗУ с плавкими перемычками,Назад 26 case MenuP of 0 Begin MorPhL10,10,29,18 color7,5 WindowLУФ ПЗУ Menu13,12,2,3,5b,2176,573РФ,Назад 16 If MenuP 2 Then Begin romsize81024 romnamecurdamibio End If MenuP 2 Then MenuP2 Else MenuP0 End 1 Begin MorPhL40,8,70,16 Color7,5 WindowLПЗУ с плавкими перемычками Menu43,10,2,3,5b,155РЕ3,556РТ6,Назад 16 If MenuP 2 Then Begin romsize161024 romnamecurdamibio1 end If MenuP 2 Then MenuP2 Else MenuP0 end end Until MenuP2 MenuP5 end 1 Begin If romsize0 Then Begin MorPhL21,6,49,10 Color7,4 WindowLВарнинг Loc 25,8 Wrt Пипл Выбери ПЗУ WaitKey End Else Repeat MorPhL40,5,60,15 Color7,1 WindowLРабота с ПЗУ Menu44,7,2,4,1b,Чтение,Запись,Тестирован ие,Назад,Num5,12 Case MenuP Of 0 Begin MorPhl22,7,50,11 color7,1 WindowLЧтение ПЗУ Loc24,9 Wrt For l0 To romsize Do Begin Loc24l24 div romsize,9 Wrt -chr208 Color 3,1 Map ReadROMl End Color7,1 MorPhL0,0,77,24 Color7,6 WindowLПросмотр прошивки MemEdromname Color7,4 MorPhL24,7,60,14 WindowLСохранить прочитанные данные Menu40,9,3,2,4b,YES,NO 6 Case MenuP of 0 Begin MOrPhL10,10,50,15 WindowLИмя сохраняемого образа. ROM y1 zs Loc26,12 Wrt- Repeat WaitKey Loc25y,12 If Key chr13AndKey chr27 Then If Key chr08 Then Begin If y 9 Then Begin zsyKey Wrtkey- incy End End Else If y 1 Then Begin decy Loc25y,12 zsy Wrt- End Until KeyChr13orKeychr27 If keychr13 Then Begin MorPhL20,8,50,12 Color7,4 WindowL Loc30,10 WrtЖди давайchr208 Map Assignfo, zs. ROM Rewritefo,1 Assignfi, romname Resetfi,1 rszFileSizefi Repeat yrsz If y 65535 Then y65535 BlockReadfi, buffer, y BlockWritefo, buffer, y rszrsz-y Until rsz0 Closefi Closefo End End End MenuP5 End 1 Begin Repeat MenuP1 MorPhL20,2,50,22 color7,1 WindowLВыберите файл FFiles If s Then Begin MorPhL0,0,77,24 Color7,6 WindowLРедактировение прошивки MemEds Color7,4 MorPhL24,7,60,14 WindowLПрошить ПЗУ Menu40,9,3,2,4b,YES,NO,xxx3,xxx4,xxx5,6 If MenuP0 Then Begin MorPhl22,7,50,11 Color7,1 WindowLПрошиваем ПЗУ Loc24,9 Wrt For l0 To romsize Do Begin Loc24l24 div romsize,9 Wrt -chr208 Color 3,1 Map ReadROMl End End End Until MenuP 8 end 2 Begin MorPhl22,7,50,11 color7,1 WindowLТестируем программатор Loc24,9 Wrt For l0 To 1000 Do Begin Loc24l24 div 1000,9 Wrt -chr208 Color 3,1 Map End Loc23,9 Wrtchr209 Все в порядке, аднака waitkey End end Until MenuP3 MenuP5 end 2 Begin MorPhL9,2,70,23 color7,0 WindowLО программе Loc10,10 For x1 To 60 Do Wrtchr210 Loc12,4 WrtДипломный проект Лабораторный макет программатора ПЗУ Loc11,6 WrtЭто программка была написана в среде Borland Pascal v7.0 Loc13,8 WrtПрограмма расчита на роботу с 2 типами микросхем ПЗУ Loc36,12 WrtАвторы Loc11,14 WrtИдея и текст программы Loc25,15 WrtДмитрий В. Румянцев Loc11,17 WrtПомощь в написание программы Loc25,18 WrtDead Emotion HellraiseR Group Loc11,20 WrtТестирование программы Loc25,21 WrtАлексек А. Иванов WaitKey MenuP5 end end until MenuP3 MorPhL13,7,13,7 asm mov ax,3 int 10h end end.