Внимание! Это временный неофициальный архив старой версии форума Полигон Призраков, созданный сочувствующим форуму участником. Этот сайт просуществует лишь до тех пор, пока администрация Полигона не сдержит своё обещание и не откроет официальный архив по адресу old.sannata.org.

Полигон-2

Форум о старых компьютерах

Объявление форума

Если пользуетесь личными сообщениями и получили по электронной почте оповещение о новом письме, не отвечайте, пожалуйста, почтой. Зайдите на форум и ответьте отправителю через ЛС.

Полигон-2 »   IBM PC-совместимое. До 2000 года включительно »   вопросы по Биосам на двух Hi и Lo
RSS

вопросы по Биосам на двух Hi и Lo

<<Назад  Вперед>> Страницы: 1 * 2
Печать
 
Ekb
Advanced Member


Всего сообщений: 1628
Рейтинг пользователя: 0


Ссылка


Дата регистрации на форуме:
15 июня 2014
Может это поможет пролить свет:


обсуждают тут: http://www.vintage-computer.co...-even-BIOS
Tronix
Advanced Member


Откуда: Москва
Всего сообщений: 1749
Рейтинг пользователя: 0


Ссылка


Дата регистрации на форуме:
15 янв. 2008
Да просто первый байт - в Hi, второй в Lo, третий в Hi, четвертый в Lo и тд... И если не заработает, поменять микросхемы местами (Lo в Hi, Hi в Lo). Я прожку на паскале давно писал для себя из пару строк:


Var
   F,FF,FFF : File;
   i : LongInt;
   B : Byte;
   Mas : Array [1..512*1024] of Byte;
   FSize : LongInt;
Begin
   Assign(F,ParamStr(1));
   Reset(F,1);
   FillChar(Mas,512*1024,$FF);
   FSize := FileSize(f);
   BlockRead(F,Mas,FileSize(F));
   Close(F);

   Assign(FF,'even_red.bin');
   Rewrite(FF,1);
   Assign(FFF,'odd_white.bin');
   Rewrite(FFF,1);
   WriteLn('Converting...');

   i := 1;
   while I >FSize do
      begin
      BlockWrite(FF,Mas[i],1);
      Inc(i);
      BlockWrite(FFF,Mas[i],1);
      Inc(i);
   end;
   Close(FF);
   Close(FFF);
   WriteLn('done');
End.

Прикрепленный файл (split_bios.exe, 12288 байт, скачан: 10 раз)
Ekb
Advanced Member


Всего сообщений: 1628
Рейтинг пользователя: 0


Ссылка


Дата регистрации на форуме:
15 июня 2014
Tronix
скачал вашу прогу, подкинул любой текстовый файл - и действительно поделился на две части. :thumbup:
Спасибо большое!

Теперь думаю можно рискнуть перепрошить :)

P.S. есть ли процесс обратный? even + odd => один файл
Tronix
Advanced Member


Откуда: Москва
Всего сообщений: 1749
Рейтинг пользователя: 0


Ссылка


Дата регистрации на форуме:
15 янв. 2008
Ekb написал:
[q]
P.S. есть ли процесс обратный? even + odd => один файл
[/q]

Var F,FF,FFF : File;
i : LongInt;
B : Byte;
Begin
   Assign(F,ParamStr(1));
   Reset(F,1);
   Assign(FF,ParamStr(2));
   Reset(FF,1);
   Assign(FFF,'out.bin');
   Rewrite(FFF,1);
   while not  eof(F) do
      begin
      BlockRead(F,B,1);
      BlockWrite(FFF,B,1);
      BlockRead(FF,B,1);
      BlockWrite(FFF,B,1);
   end;
   Close(F);
   Close(FF);
   Close(FFF);
   WriteLn('done');
End.

Прикрепленный файл (bios_con.exe, 12288 байт, скачан: 16 раз)
Ekb
Advanced Member


Всего сообщений: 1628
Рейтинг пользователя: 0


Ссылка


Дата регистрации на форуме:
15 июня 2014
Tronix
всё работает! :thumbup:
Запускал под winXP
Fe-Restorator
Гость

Ссылка

Ekb написал:
[q]
всё работает! :thumbup:
Запускал под winXP
[/q]
Ещё-б не работало! Там только простейшие операции и всё-ещё 8-битный (!) API. Да, перегибаю, но на 8-ми битах этот код работоспособен. И легко да просто масштабируется на любую битность.
Сейчас на форуме
<<Назад  Вперед>> Страницы: 1 * 2
Печать
Полигон-2 »   IBM PC-совместимое. До 2000 года включительно »   вопросы по Биосам на двух Hi и Lo
RSS

1 посетитель просмотрел эту тему за последние 15 минут
В том числе: 1 гость, 0 скрытых пользователей

Последние RSS
[Москва] LIQUID-Акция. Сливаются разъемы CF
МС7004 и 7004А на AT и XT
Пайка термотрубок
Проммать s478 PEAK 715VL2-HT ( Full-Size SBC)
Подскажите по 386 материке по джамперам.

Самые активные 5 тем RSS