Kura Programmēšanas valoda tas ir ????????????

[amitjagtap]

Hi all,
Vai kāds man pateikt, kas programmēšanas valoda, tas ir ...

init PCI; (struktūrvienību, lai sazinātos ar mikroshēmās)

interface

izmanto AMIBIOS, AsusBIOS;

Const
PCICfIdx = $ CF8;
PCICfData = $ CFC;

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;
PCIROMs: array [1 .. 20]
ieraksts
MaxSize: LongInt;
VenID, DevID: Word;
Autobusu, Pos: Byte;
beigām;
BIOSID: array [1 .. 8] of Char; (v1.34)

Procedūra OPortD (PRT: Word; Val: LongInt);
Funkcija IPortD (PRT: Word): LongInt;
Funkcija GetPCIRegD (Bus, Dev, Func, Reg: Byte): LongInt;
Procedūra SetPCIRegD (Bus, Dev, Func, Reg: Byte; Value: LongInt);
Amats LocatePIIX: (baits) Boolean; (v1.22 baitu-> loģiskais)
procedūra GetBIOSID;
Procedūra RomEnable (karte: boolean);
procedūra ShadowDisable_Aladdin; (v1.31)
procedūra ShadowRestore_Aladdin; (v1.31)

īstenošanas

Izmanto Instrumenti, Flash, CRT, DMI;

(PortD [x]: = y)
Procedūra OPortD (PRT: Word; Val: LongInt); Assembler;
Asm
DB 66.h
MOV AX, WORD PTR Val
MOV DX, PRT
DB 66.h
OUT DX, AX
Beigām;

(Y: = PortD [x])
Funkcija IPortD (PRT: Word): LongInt; Assembler;
Asm
MOV DX, PRT
DB 66.h
IN AX, DX
DB 66.h
MOV DX, AX
DB 66.h
SHR DX, 16
Beigām;

(Lasīt PCI konfigurācija reg)
Funkcija GetPCIRegD (Bus, Dev, Func, Reg: Byte): LongInt;
Sākt
OPortD (PCICfIdx, 80.000.000 $ vai
(LongInt (Bus) SHL 16) vai
((LongInt (DEV) un $ 1F) SHL 11) vai
((LongInt (Func) and $ 7) SHL 8) vai
(Reg and $ FC));
GetPCIRegD: = IPortD (PCICfData);
Beigām;

 

[M! K]

Pascal ar dažiem inline montāža