Похоже, проект Uniflash загнулся - полтора года без обновлений. Потому, чтобы убить сразу несколько зайцев завожу тут подобную тему, которая не только есть продолжение юнифлеша, но и разбор на его базе процесса перешивки на "атомном" уровне, которое когда-то давно предполагалось при написании статьи по перешивке.
Чтобы отличать его от проекта uniflash, но в то же время отражать прямую преемственность не напрягая фантазию назвал как runiflash.

Итак, приступим. (Скачать исходники юнифлеша можно на родном сайте или здесь.) Излагать буду в "черновом" варианте, потому исправления, дополнения и опровержения приветствуются. После все внесется в статью по перешивке биос.

Процесс перешивки с "практическо-железной" точки зрения представляет собой доступ в те области памяти, которые в "нормальном" режиме недоступны. Чтобы получить к ним доступ (здесь и далее все подразумевает то, как сделано именно в юнифлеше, даже с учетом, что это может быть не самый лучший способ и т.п.) делаются следующие вещи:

1. Переходим в линейный режим памяти. У него могут быть разные названия (Linear/UnReal/Flat), но смысл один и тот же - 32-битный доступ. (в досе, ко всей памяти).
2. "Размапливаем" северный мост (если требуется).
3. "Размапливаем" южный мост (если требуется).
4. "Размапливаем" мультик (если требуется).
5. "Размапливаем" GPIO (если требуется).
Операция "размапливания" подразумевает программирование логики на доступ к самой FlashROM. Все эти процедуры "железозависимые" и с претензиями на реальную универсальность требуют учета всех возможных вариантов использования "защиты от записи". В частности, именно поэтому "размапливание" делится на подобны градации - специфичные для северника-южника-мультика-гпио (в "стандартном" случае размапливание подразумевает лишь южник).

Далее идут процедуры уже конкретно работы с микросхемой, которые так же специфичны для различных типов-производителей флэшек.

После для возможности корректной работы при выходе нужно будет "замапить" все до этого "размапленные" пункты и вернуться в "нормальный" режим (адресации, 16 бит).

Вот коротко так выглядит работа юнифлеша для нашей темы. Главный файл, который ответственный за прошивку - PCI.pas - его и по-тихоньку начнем разбирать.
[code:1]{$R-}
unit PCI; { Unit to communicate with chipsets }
interface[/code:1]
Здесь и дальше я буду описывать имеющуюся у себя версию 1.45re.
[code:1]uses Award, AMIBIOS, AsusBIOS, Phoenix;[/code:1]
... в которой как раз и добавлены другие биосы.
[code:1]Const
PCICfIdx = $CF8;
PCICfData = $CFC;[/code:1]
Стандартные регистры работы с PCI. Здесь и дальше, повторю, приветствуются уточнения разряда "от знающих - малознающим".
[code:1]Var
NorthFunc, SouthFunc, LPCFunc: Word;
NorthPos,SouthPos,PMUPos,CurPCIROM,PCIROMBus,PCIROMDev,PCIROMFun,LPCBase: Byte;
CurrentChipset, CurrentPCICard: string;
WantToUseAMI, AMIUsed, ChipsetFound, ROMEnabled, PCIROMEnabled: Boolean;
WantToUseAsus, AsusUsed: Boolean;
AwardUsed: Boolean; {1.42re}
PhoenixUsed: Boolean;{1.43re}[/code:1]
Из названия большинства переменных можно понять их назначение. Наши главные теперь - хххFunc - процедуры размапливания для северника, южника и мультика (которые LPC).
[code:1]PCIROMs: array[1..20] of
record
MaxSize : LongInt;
VenID, DevID : Word;
Bus, Pos : Byte;
end;
BIOSID: array[1..8] of Char; {v1.34}[/code:1]
Зачем PCIROMs сейчас не скажу (д.з. :) ), а биосайди, думаю, ясно - авардовский 8-символьный идентификатор биоса.
[code:1]Procedure OPortD( Prt : Word; Val : LongInt );
Function IPortD( Prt : Word ) : LongInt;
Function GetPCIRegD( Bus, Dev, Func, Reg : Byte ) : LongInt;
Procedure SetPCIRegD( Bus, Dev, Func, Reg : Byte; Value : LongInt );
Function LocatePIIX : {byte}Boolean; {v1.22 byte->boolean}
procedure GetBIOSID;
Procedure RomEnable( Map : boolean);
procedure ShadowDisable_Aladdin; {v1.31}
procedure ShadowRestore_Aladdin; {v1.31}[/code:1]
По названию процедур также можно понять, для чего они.
[code:1]implementation
Uses Tools,Flash,Crt,DMI;[/code:1]
Исходники разделены в много файлов, чтобы логично выделить нужное. Суть каждого опишу позже.
[code:1]{ PortD[ x ] := y }
Procedure OPortD( Prt : Word; Val : LongInt ); Assembler;
Asm
DB 66H
MOV AX,WORD PTR Val
MOV DX,Prt
DB 66H
OUT DX,AX
End;[/code:1]
Вывод в порт, все просто.
[code:1]{ y := PortD[ x ] }
Function IPortD( Prt : Word ) : LongInt; Assembler;
Asm
MOV DX,Prt
DB 66H
IN AX,DX
DB 66H
MOV DX,AX
DB 66H
SHR DX,16
End;[/code:1]
Чтение из порта.

Описание дальнейших процедур опускаю и опишу позже, дабы разбираться "от общего к частностям". Потому и переходим сразу к главной процедуре:
[code:1]Begin
if Port[$CFB]<>$FF then {v1.26}
Port[$CFB]:=Port[$CFB] or $1; {Set PCI configuration mechanism #1}
[/code:1]
Хм, самому интересно. ;)
[code:1] {Locate north bridge}
For Pos_ := 0 to $FF do
If ( GetPCIRegD( $00, Pos_ shr 3, Pos_ and $07, $00 ) and $FFFF ) <> $FFFF then
If ( GetPCIRegD( $00, Pos_ shr 3,
Pos_ and $07, $08 ) shr 8 ) = $60000 then Break;
If Pos_ = $FF then {v1.22}
Begin
LocatePIIX := False;
Exit;
End
else LocatePIIX:=True;
NorthPos := Pos_;
{Get north bridge MID & DID}
NorthMan := GetPCIRegD( $00, NorthPos shr 3, NorthPos and $07, $00 );
NorthId := GetPCIRegD( $00, NorthPos shr 3, NorthPos and $07, $00 ) shr 16;
{Get north bridge rev ID}
NorthRev := GetPCIRegD( $00, NorthPos shr 3, NorthPos and $07, $08 );
[/code:1]
Ищем на PCI "координаты" северного моста и если его находим, то получаем NorthMan (North Manufacturer ID) и NorthRev (North Revision ID).
[code:1]{Locate south bridge}
For Pos_ := 0 to $FF do
If ( GetPCIRegD( $00, Pos_ shr 3, Pos_ and $07, $00 ) and $FFFF ) <> $FFFF then
If ( GetPCIRegD( $00, Pos_ shr 3,
Pos_ and $07, $08 ) shr 8 ) = $60100 then Break;
If Pos_ = $FF then {v1.22 for i430MX}
For Pos_ := 0 to $FF do
If ( GetPCIRegD( $00, Pos_ shr 3, Pos_ and $07, $00 ) and $FFFF ) <> $FFFF then
If ( GetPCIRegD( $00, Pos_ shr 3,
Pos_ and $07, $08 ) shr 8 ) = $68000 then Break;
If Pos_ = $FF then {v1.31 for old chipsets}
For Pos_ := 0 to $FF do
If ( GetPCIRegD( $00, Pos_ shr 3, Pos_ and $07, $00 ) and $FFFF ) <> $FFFF then
If ( GetPCIRegD( $00, Pos_ shr 3,
Pos_ and $07, $08 ) shr 8 ) = $00000 then Break;
SouthPos := Pos_;
{Get south bridge MID & DID}
SouthMan := GetPCIRegD( $00, SouthPos shr 3, SouthPos and $07, $00 );
SouthID := GetPCIRegD( $00, SouthPos shr 3, SouthPos and $07, $00 ) shr 16;
{Get south bridge rev ID}
SouthRev := GetPCIRegD( $00, SouthPos shr 3, SouthPos and $07, $08 );
[/code:1]
Аналогичное проделываем для южника, но с учетом особенностей для древних систем. (Кстати - интересно было бы услышать объяснение подобных особенностей).

[code:1] CurrentChipset := '';
NorthFunc := 0; {No special treatment necessary}
SouthFunc := 0; {Same}
LPCFunc := 0; {v1.27}
NorthName:='';
SouthName:='';
LPCName:='';
[/code:1]
Задаем "нулевые" значения всем главным параметрам.

Определяем имя и процедуры размапления (если она нужна) северника по его ревизии.
[code:1] {Id northbridge}
If NorthMan = $8086 {Intel} then
Begin
case NorthId of {case v1.21}
$4A3: if NorthRev>=$10 then NorthName:='i82433NX' else NorthName:='i82433LX';
$122D: NorthName:='i82437FX';
$1235: NorthName:='i82437MX';
$1237: NorthName:='i82441FX';
$1250: NorthName:='i82439HX';
$7030: NorthName:='i82437VX';
$7100: NorthName:='i82439TX';
$7180: NorthName:='i82443LX/EX';
$7190, $7192: NorthName:='i82443BX/ZX';
$71A0, $71A2: NorthName:='i82443GX';
$84C4: NorthName:='i82454KX/GX';
$7120: NorthName:='i82810';
$7122: NorthName:='i82810-DC100';
$7124: NorthName:='i82810E';
$1130: NorthName:='i82815';
$2500: NorthName:='i82820';
$3575: NorthName:='i82830M';
$1A21: NorthName:='i82840';
$1A30: NorthName:='i82845';
$2560: NorthName:='i82845G/P';
$2530: NorthName:='i82850';
$3580: NorthName:='i8285xGM';
$3340: NorthName:='i82855PM';
$2531: NorthName:='i82860';
$2570: NorthName:='i82865'; {v1.34}
$2578: NorthName:='i82875';
$255D: NorthName:='iE7205';
$2578: NorthName:='iE7210'; {v1.39}
$2588: NorthName:='iE7221'; {v1.39}
$3592: NorthName:='iE7320'; {v1.39}
$2540: NorthName:='iE7500';
$254C: NorthName:='iE7501';
$2550: NorthName:='iE7505';
$3590: NorthName:='iE7520'; {v1.39}
$359E: NorthName:='iE7525'; {v1.39}
$0500: NorthName:='iE8870'; {v1.39}
$2580: NorthName:='i829xxx'; {v1.37}
$2590: NorthName:='i829xxxM'; {v1.39}
End;
End else
[/code:1]
Для Интела. (Крайне приветствуются дополнения по ревизиям новых и уточнения по старым железкам.)
[code:1] If NorthMan = $1106 {VIA} then
Begin
case NorthId of {case v1.21}
$505: Begin {v1.37}
NorthFunc := $0100; {VIA A8/A9 scheme}
NorthName:='VT82C505';
End;
$576: Begin
NorthFunc := $0100; {VIA A8/A9 scheme}
NorthName:='VT82C576M';
End;
$585: NorthName:='VT82C585VP/VPX';
$595: NorthName:='VT82C595/AMD-640';
$597: NorthName:='VT82C597';
$598: NorthName:='VT82C598(AT)';
$685: Begin
NorthFunc := $0100; {VIA A8/A9 scheme}
NorthName:='VT82C685';
End;
$501: NorthName:='VT8501';
$691: NorthName:='VT82C691/693(A)/694X/T';
$693: NorthName:='VT82C693(A)';
$601: NorthName:='VT8601';
$605: NorthName:='VT8605';
$391: NorthName:='VT8371';
$305: NorthName:='VT8363(A)/8365';
$3099: NorthName:='VT8366(A)';
$3091: NorthName:='VT8633';
$3101: NorthName:='VT8653';
$3102: NorthName:='VT8662';
$3103: NorthName:='VT8615';
$3112: NorthName:='VT8361';
$3133: NorthName:='VT3133';
$3148: NorthName:='VT8751';
$3128: NorthName:='VT8753(A)/8754';
$3189: NorthName:='VT8377';
$3205: NorthName:='VT8378';
End;
End else
[/code:1]
У виашки за полтора года не шибко много нового. Еще раз повторю - просьба знающим добавить, чего нет из нового железа и осветить "интересные" моменты из старого, если они есть-известны.
[code:1] If NorthMan = $1022 {AMD} then {v1.20}
Begin
case NorthId of {case v1.21}
$7006: NorthName:='AMD-751';
$700E: NorthName:='AMD-761';
$700C: NorthName:='AMD-762';
$7454: NorthName:='AMD-8151'; {v1.36}
End;
End else
[/code:1]
Да, верно и АМД делала северники. :) Продвинутые смогут еще сказать, что даже для первых пеньков были амдшные чипсеты, но еще более продвинутые справедливо уточнят, что реально это были перемаркированные виашки, а потому и айдишники были виашные (поэтому и нет их в списке).
[code:1] If NorthMan = $1039 {SiS} then
Begin
SouthFunc:=$0503; {SiS reg. 45 bits 5,2}
case NorthId of
$496: Begin
NorthFunc := $0200; {SiS reg. D0 scheme}
SouthFunc := 0;
NorthName:='SiS 85C496+497';
End;
$406: Begin
SouthFunc := $0501; {SiS internal reg. 80h}
NorthName:='SiS 501/5101/5501';
End;
$5511: Begin
SouthFunc := $0502; {SiS internal reg. 50h}
NorthName:='SiS 5511';
End;
$5571: NorthName:='SiS 5571';
$5591: NorthName:='SiS 5591/5592';
$5596: Begin
NorthName:='SiS 5596';
SouthFunc := $0502; {SiS internal reg. 50h}
LPCFunc:=LPCDetect; {v1.27}
End;
$5597: NorthName:='SiS 5597/5598/5581/5120';
$0530: NorthName:='SiS 530';
$0540: Begin
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
NorthName:='SiS 540';
End;
$5600: NorthName:='SiS 600';
$0620: NorthName:='SiS 620';
$0630: Begin
NorthName:='SiS 630';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect; {v1.27}
End;
$0635: Begin
NorthName:='SiS 635';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0640: Begin
NorthName:='SiS 640';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0645: Begin
NorthName:='SiS 645';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0646: Begin
NorthName:='SiS 645DX';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0648: Begin {v1.31}
NorthName:='SiS 648';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0650: Begin
NorthName:='SiS 650';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0651: Begin {v1.31}
NorthName:='SiS 651';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0655: Begin {v1.31}
NorthName:='SiS 655';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0730: Begin
NorthName:='SiS 730';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0733: Begin {v1.31}
NorthName:='SiS 733';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0735: Begin
NorthName:='SiS 735';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0740: Begin
NorthName:='SiS 740';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0745: Begin {v1.31}
NorthName:='SiS 745';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0746: Begin {v1.31}
NorthName:='SiS 746';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0748: Begin {v1.31}
NorthName:='SiS 748';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
$0755: Begin {v1.31}
NorthName:='SiS 755';
SouthFunc := $0504; {SiS reg. 45 bits 7,6}
LPCFunc:=LPCDetect;
End;
End;
End else
[/code:1]
SiS поделить на северники и южники сложней из-за любви к одночиповым решениям. Для одночиповых решений происходит детект мультика, чтобы установить для него процедуру размапливания. (Просьба прокомментировать знающим - видимо в "раздельночиповых" решениях бОльшая часть функций мультика была встроена в сам южник).
Плюс по "логике" SiS можно запросто продолжить список нового железа, типа:
$0xxx: Begin NorthName:='SiS xxx';
[code:1] If NorthMan = $10B9 {ALi} then
Begin
case NorthId of
$1451: begin
NorthFunc := $0300; {ALi Aladdin}
NorthName:='M1451';
end;
$1489: begin
NorthFunc := $0301; {ALi FinALi}
NorthName:='M1489';
end;
$1521: NorthName:='M1521';
$1531: NorthName:='M1531(B)';
$1541: NorthName:='M1541/1542';
$1561: NorthName:='M1561'; {v1.31}
$1621: NorthName:='M1621';
$1631: NorthName:='M1631';
$1632: NorthName:='M1632M';
$1641: NorthName:='M1641';
$1647: NorthName:='M1647';
$1651: NorthName:='M1651'; {v1.31}
$1671: NorthName:='M1671'; {v1.31}
$1672: NorthName:='M1672'; {v1.31}
End;
End else[/code:1]
ALI. Тоже уже бывший производитель.
[code:1] If NorthMan = $1166 {Reliance/ServerWorks} then {v1.25}
Begin
case NorthId of
$0007: NorthName:='Reliance NB6635';
$0008: NorthName:='Reliance NB6536';
End;
End else[/code:1]
Экзотика, не приходилось шить такие. :)
[code:1] If NorthMan = $1066 {PicoPower} then {v1.25}
Begin
case NorthId of
$0001: NorthName:='Vesuvius V1-LS';
End;
End else[/code:1]
Что-то ужасно древнючее, уже и не помню, вроде, встречал в четверках. В общем - артефакт.
[code:1] If NorthMan = $1078 {Cyrix} then {v1.25}
Begin
case NorthId of
$0001: NorthName:='MediaGX';
End;
End else[/code:1]
Шил такие. В интернет-приставках.
[code:1] If NorthMan = $1045 {OPTi} then {v1.26}
Begin
case NorthId of
$C557: NorthName:='OPTi 82C557(M)'; {v1.37}
$C567: NorthName:='OPTi 82C567';
end;
End else
[/code:1]
Вы не видели Pentium-16Mhz??? (или даже 8Mhz, точно уже не помню). Счастливые обладатели подобных чипсетов запросто могли себя таким порадовать.
[code:1] If NorthMan = $3388 {HiNT} then {v1.26}
Begin
case NorthId of
$8011: NorthName:='HiNT VXPro-II North';
end;
End else
[/code:1]
По этому "уникуму" с ходу и не скажу - позже, может чего вспомню или кто подскажет сам.
[code:1] If NorthMan = $1060 {UMC} then {v1.28}
Begin
case NorthId of
$8881: NorthName:='UMC UM8881F';
end;
End else[/code:1]
То ли северники раньше были простые, как мультики, то ли мультики теперь такие сложные, как раньше северники... ;)
[code:1] If NorthMan = $1344 {Micron} then {v1.29}
Begin
case NorthId of
$3320: NorthName:='Micron MT8LLN21PADF';
end;
End else[/code:1]
Еще один артефакт.
[code:1] If NorthMan = $1080 {Contaq/Cypress} then {v1.29}
Begin
case NorthId of
$0600: begin {CY82C599}
NorthFunc := $0400;
NorthName:='CY82C599';
end;
$C691: NorthName:='CY82C691';
end;
End else[/code:1]
Были такие, точно :) . Еще, вроде, их как-то перемаркировывали.
[code:1] If NorthMan = $10DE {nVidia} then {v1.30}
Begin
case NorthId of
$1A4: NorthName:='nVidia IGP';
$1E0: NorthName:='nVidia IGP2';
$D1: NorthName:='nVidia nForce3 Host Bridge'; {v1.41re}
$E1: NorthName:='nVidia nForce3 250Gb Host Bridge'; {v1.41re}
end;
End else[/code:1]
Просьба знающих и/или просто фанатов нВидиа поделиться айдишниками вашего железа, что нет в этом списке. :)
[code:1] If NorthMan = $1002 {ATI} then {v1.46re}
Begin
case NorthId of
... тут может быть ваш чипсет ... :)
end;
End;
[/code:1]
Аналогично (подсказать ревизии мостов) по ATI, которая даже не упоминается в последней официальной версии юнифлеша. При чем не только для А64/Р4, но и для Атлонов, те, что А3-А4 были. У АТИ, вроде как, был чипсет даже для слотовых атлонов (типа А1-А2), но не уверен, что он был выпущен.