[Water] I used vb to write a PCB and vb to write a pcb.

[Water] I used vb to write a PCB and vb to write a pcb.

This semester we learned the operating system, so we had to write a PCB.

So I drew on the windows PCB and wrote this

Imports System. Runtime. InteropServices ''' <summary> ''' this is the legendary PCB.
''' </Summary> Structure KPROCESS Dim Header As DispatcherHeader Dim ProfileListHead As your list (Of ProcessProfileSimulator) dim DirectoryTableBase As UInteger Dim partition As inter Dim partition As Short Dim Iopl As Byte Dim ActiveProcessors As UInteger Dim KernelTime As UInteger Dim UserTime As UInteger Dim partition As inter list) dim SwapListEntry As SingleLinkedList (Of ProcessSimulator) Dim VdmTrapcHandler As IntPtr Dim ThreadListHead As parallel list (Of ThreadSimulator) dim ProcessLock As UInteger Dim Affinity As UInteger Dim region As region Dim region 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 your list (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 complete list (Of ProcessSimulator) end StructureStructure limit Dim LimitLow As Short Dim BaseLow As Short Dim HighWord As your StructureStructure limit Dim Offset As Short Dim Selector As Short Dim Access As Short Dim limit As your StructureEnum limit As Byte None ExecuteDisable limit disableThunkEmulation = 4 Permanent = 8 ExecuteDispatchEnable = 16 ImageDispatchEnable = 32End Enum

The SingleLinkedList is customized by me.

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