你的位置:首页 > 操作系统

[操作系统][水]用vb写了个PCB


这学期我们学操作系统,所以得写个PCB。

于是我借鉴了一下windows的PCB,写了这个

Imports System.Runtime.InteropServices''' <summary>''' 这就是传说中的PCB
''' </summary>Structure KPROCESS Dim Header As DispatcherHeader Dim ProfileListHead As LinkedList(Of ProcessProfileSimulator) Dim DirectoryTableBase As UInteger Dim LdtDescriptor As KernelGlobalDescriptorTableEntry Dim Int21Descriptor As KernelInterruptDescriptorTableEntry Dim IopmOffset As Short Dim Iopl As Byte Dim ActiveProcessors As UInteger Dim KernelTime As UInteger Dim UserTime As UInteger Dim ReadyListHead As LinkedList(Of ProcessSimulator) Dim SwapListEntry As SingleLinkedList(Of ProcessSimulator) Dim VdmTrapcHandler As IntPtr Dim ThreadListHead As LinkedList(Of ThreadSimulator) Dim ProcessLock As UInteger Dim Affinity As UInteger Dim ProcessFlags As ProcessFlag Dim BasePriority As SByte Dim QuantumReset As SByte Dim State As Byte Dim ThreadSeed As Byte Dim PowerState As Byte Dim IdealNode As Byte Dim Visited As Byte Dim ExecuteOptions As Byte Dim StackCount As UInteger Dim ProcessListEntry As LinkedList(Of ProcessSimulator) Dim CycleTime As ULongEnd StructureEnum ProcessFlag None AutoAlignment DisableBoost DisableQuantum = 4End EnumStructure DispatcherHeader Dim UnionType As Byte Dim UnionData As UnionA <StructLayout(LayoutKind.Explicit)> Structure UnionA <FieldOffset(0)> Dim Abandoned As Byte <FieldOffset(1)> Dim Absolute As Byte <FieldOffset(2)> Dim NpxIrql As Byte <FieldOffset(3)> Dim Signalling As Byte <FieldOffset(0)> Dim Size As Byte <FieldOffset(1)> Dim Hand As Byte <FieldOffset(0)> Dim Inserted As Byte <FieldOffset(1)> Dim DebugActive As Byte <FieldOffset(2)> Dim DpcActive As Byte End Structure Dim Lock As Integer Dim SignalState As Integer Dim WaitListHead As LinkedList(Of ProcessSimulator)End StructureStructure KernelGlobalDescriptorTableEntry Dim LimitLow As Short Dim BaseLow As Short Dim HighWord As UIntegerEnd StructureStructure KernelInterruptDescriptorTableEntry Dim Offset As Short Dim Selector As Short Dim Access As Short Dim ExtendedOffset As ShortEnd StructureEnum KernelExecuteOptions As Byte None ExecuteDisable ExecuteEnable DisableThunkEmulation = 4 Permanent = 8 ExecuteDispatchEnable = 16 ImageDispatchEnable = 32End Enum

那个SingleLinkedList是我自定义的

Public Class SingleLinkedList(Of T)  Public Property [Next] As SingleLinkedList(Of T)
Public Property Value As TEnd Class