Mikä ohjelmointikieli on tämän ????????????

[amitjagtap]

Hei kaikki,
Voiko joku kertoa minulle, joka ohjelmointikieli on tämän ...

init PCI; (yksikkö viestiä piirisarjat)

rajapinnan

käyttää AMIBIOS, AsusBIOS;

Const
PCICfIdx = $ CF8;
PCICfData = $ CFC;

Varin
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;
PCIROMs: array [1 .. 20]
tallentaa
MaxSize: LongInt;
VenID, Devid: Word;
Bus, Pos: Byte;
varten;
BIOSID: array [1 .. 8] of Char; (v1.34)

Menettely OPortD (PRT: Word, Val: LongInt);
Tehtävä IPortD (PRT: Word): LongInt;
Tehtävä GetPCIRegD (Bus, Dev, Func, Reg: Byte): LongInt;
Menettely SetPCIRegD (Bus, Dev, Func, Reg: Byte; Arvo: LongInt);
Tehtävä LocatePIIX: (tavu) Boolean; (v1.22 tavu-> boolean)
menettelyä GetBIOSID;
Menettely RomEnable (Kartta: boolean);
menettelyä ShadowDisable_Aladdin; (v1.31)
menettelyä ShadowRestore_Aladdin; (v1.31)

täytäntöönpano

Käyttää Työkalut, Flash, CRT, DMI;

(PORTD [x]: = y)
Menettely OPortD (PRT: Word, Val: LongInt); Assembler;
Asm
DB 66H
MOV AX, WORD PTR Val
MOV DX, PRT
DB 66H
OUT DX, AX
End;

(Y: = PORTD [x])
Tehtävä IPortD (PRT: Word): LongInt, Assembler;
Asm
MOV DX, PRT
DB 66H
Ax, DX
DB 66H
MOV DX, AX
DB 66H
SHR DX, 16
End;

(Lue PCI configuration reg)
Tehtävä GetPCIRegD (Bus, Dev, Func, Reg: Byte): LongInt;
Aloittaa
OPortD (PCICfIdx, 80.000.000dollari tai
(LongInt (Bus) SHL 16) tai
((LongInt (Dev) ja $ 1F) SHL 11) tai
((LongInt (FUNC) ja $ 7) SHL 8) tai
(Reg ja $ FC));
GetPCIRegD: = IPortD (PCICfData);
End;

 

[M! K]

Pascal joitakin inline Assembly