[水]用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 ULong
End Structure

Enum ProcessFlag
    None
    AutoAlignment
    DisableBoost
    DisableQuantum = 4
End Enum

Structure 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 Structure

Structure KernelGlobalDescriptorTableEntry
    Dim LimitLow As Short
    Dim BaseLow As Short
    Dim HighWord As UInteger
End Structure

Structure KernelInterruptDescriptorTableEntry
    Dim Offset As Short
    Dim Selector As Short
    Dim Access As Short
    Dim ExtendedOffset As Short
End Structure

Enum KernelExecuteOptions As Byte
    None
    ExecuteDisable
    ExecuteEnable
    DisableThunkEmulation = 4
    Permanent = 8
    ExecuteDispatchEnable = 16
    ImageDispatchEnable = 32
End Enum

那個SingleLinkedList是我自定義的

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