cpumodule.bas

简单的操作系统程序

Attribute VB_Name = "CPUModule"
Option Explicit
'Dim Pen As New DrawClass
'Dim HD As New HardDisk
Public CPUunRUNNING As Boolean

'Private timerID As Long
'Private Enum ClockFlag
'    Time_OneShot = 0
'    TIME_PERIODIC = 1
'End Enum
'Private Type timeIni
'    Delay As Long
'    Resolution As Long
'    flag As ClockFlag
'    Enabled As Boolean
'End Type
'Dim userIni As timeIni
Private Type Register
    IR As Integer
    DR As Byte
    PSW As Byte
    PC As Integer
End Type
Dim Registers As Register
'Private Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal _
uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, _
ByVal uflags As Long) As Long
'Private Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
'Private Declare Function GetB Lib "Bus.dll" () As Integer
'Private Declare Function LetB Lib "Bus.dll" (ByVal vData As Integer)
'Private Declare Function setHigh Lib "bitChng" (ByVal sources As Byte, ByVal irQ As Byte) As Byte
'Private Declare Function setLow Lib "bitChng" (ByVal sources As Byte, ByVal irQ As Byte) As Byte
'Private Declare Function setHigh2 Lib "bitChng" (ByVal sources As Integer, ByVal irQ As Integer) As Integer 'A|B
'Private Declare Function setLow2 Lib "bitChng" (ByVal sources As Integer, ByVal irQ As Integer) As Integer 'A&(~B)
'Private Declare Function setHigh4 Lib "bitChng" (ByVal sources As Long, ByVal irQ As Long) As Long 'A|B
'Private Declare Function setLow4 Lib "bitChng" (ByVal sources As Long, ByVal irQ As Long) As Long 'A&(~B)


'Public Sub bus_datachange()
'MsgBox "DATACHANGE"
'End Sub
'Public Sub bus_addchange()
'MsgBox "ADDCHANGE"
'End Sub
'Public Sub bus_ctrlchange()
'MsgBox "CTRLCHANGE"
'End Sub

'Public Sub Main()
'End Sub

'Public Sub Free()
    'Set Pen = Nothing
    'Set HD = Nothing
'End Sub

Public Function GetIR() As Integer
    GetIR = IR
End Function
Public Sub LetIR(ByVal vData As Integer)
    IR = vData
End Sub

Public Function GetDR() As Byte
    GetDR = DR
End Function
Public Sub LetDR(ByVal vData As Byte)
    DR = vData
End Sub

Public Function GetPSW() As Byte
    GetPSW = PSW
End Function
Public Function LetPSW(ByVal vData As Byte)
    PSW = vData
End Function

Public Function GetPC() As Integer
    GetPC = PC
End Function
Public Function LetPC(ByVal vData As Integer)
    PC = vData
End Function