Программатор ПЗУ

     MorPhL(24,7,60,14);

     WindowL('Сохранить прочитанные данные?');

     Menu(40,9,3,2,$4b,'YES','NO','','','',6);

      Case MenuP of

   0:

     Begin

      MOrPhL(10,10,50,15);

      WindowL('Имя сохраняемого образа .ROM');

      y:=1;

      zs:='        ';

      Loc(26,12);

      Wrt('-');

Repeat

      WaitKey;

      Loc(25+y,12);

       If (Key<>chr(13))And(Key<>chr(27)) Then

       If (Key<>chr(08)) Then

        Begin

         If y<>9 Then

          Begin

           zs[y]:=Key;

           Wrt(key+'-');

           inc(y);

          End;

        End

       Else

        If y<>1 Then

         Begin

          dec(y);

          Loc(25+y,12);

          zs[y]:=' ';

          Wrt('-  ');

         End;

Until (Key=Chr(13))or(Key=chr(27));

      If key=chr(13) Then

       Begin

        MorPhL(20,8,50,12);

        Color(7,4);

        WindowL('!!!!!!!!!!!!');

        Loc(30,10);

        Wrt('Жди давай!'+chr(208));

        Map;

        Assign(fo,zs+'.ROM');

         Rewrite(fo,1);

        Assign(fi,romname);

         Reset(fi,1);

         rsz:=FileSize(fi);

Repeat

         y:=rsz;

          If y>65535 Then y:=65535;

           BlockRead(fi,buffer^,y);

           BlockWrite(fo,buffer^,y);

           rsz:=rsz-y;

Until rsz=0;

        Close(fi);

        Close(fo);

End;

End;

End;

 MenuP:=5;

End;

1:

 Begin

  Repeat

   MenuP:=1;

   MorPhL(20,2,50,22);

   color(7,1);

   WindowL('Выберите файл');

   FFile(s);

    If s<>'' Then

     Begin

      MorPhL(0,0,77,24);

      Color(7,6);

      WindowL('Редактировение прошивки');

      MemEd(s);

      Color(7,4);

      MorPhL(24,7,60,14);

      WindowL('Прошить ПЗУ?');

      Menu(40,9,3,2,$4b,'YES','NO','xxx3','xxx4','xxx5',6);

       If MenuP=0 Then

        Begin

         MorPhl(22,7,50,11);

         Color(7,1);

         WindowL('Прошиваем ПЗУ');

         Loc(24,9);

         Wrt('-------------------------');

          For l:=0 To romsize Do

           Begin

            Loc(24+(l*24 div romsize),9);

            Wrt ('-'+chr(208));

            Color (3,1);

            Map;

            ReadROM(l);

           End;

        End;

     End;

Until MenuP<>8;

 end;

2:

 Begin

  MorPhl(22,7,50,11);

  color(7,1);

  WindowL('Тестируем программатор');

  Loc(24,9);

  Wrt('-------------------------');

   For l:=0 To 1000 Do

    Begin

     Loc(24+(l*24 div 1000),9);

     Wrt ('-'+chr(208));

     Color (3,1);

     Map;

    End;

   Loc(23,9);

   Wrt(chr(209)+'  Все в порядке, аднака  ');

   waitkey;

 End;

end;

Until MenuP=3;

 MenuP:=5;

end;

2:

 Begin

  MorPhL(9,2,70,23);

  color(7,0);

  WindowL('О программе');

  Loc(10,10);

   For x:=1 To 60 Do Wrt(chr(210));

    Loc(12,4);

    Wrt('Дипломный проект "Лабораторный макет программатора ПЗУ"');

    Loc(11,6);

    Wrt('Это программка была  написана в среде Borland Pascal v7.0');

    Loc(13,8);

    Wrt('Программа расчита на роботу с 2 типами микросхем ПЗУ');

    Loc(36,12);

    Wrt('Авторы:');

    Loc(11,14);

    Wrt('Идея и текст программы:');

    Loc(25,15);

    Wrt('Дмитрий В. Румянцев');

    Loc(11,17);

    Wrt('Помощь в написание программы:');

    Loc(25,18);

    Wrt('Dead Emotion //HellraiseR Group');

    Loc(11,20);

    Wrt('Тестирование программы:');

    Loc(25,21);

    Wrt('Алексек А. Иванов');

    WaitKey;

  MenuP:=5;

 end;

 end

until MenuP=3;

 MorPhL(13,7,13,7);

asm

mov ax,3

int 10h

end;

end.

1	2	3	4	5	6	7	8	9

Copyright © Radioland. Все права защищены.
Дата публикации: 2004-09-01 (0 Прочтено)