'symulator

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200
Dim Krk As Byte
Dim Address As Word
Dim Adrl As Byte , Adrh As Byte
Dim V1 As Byte

Print "Basmon version 1.01"

Do
Krk = Waitkey()
If Krk = "T" Then
   Print Chr(13);
Elseif Krk = "W" Then
   Address = Waitkey()
V1 = Waitkey()
Out Address , V1
Print Chr(13);
Elseif Krk = "R" Then
   Address = Waitkey()
   V1 = Inp(address)
Print Chr(v1);
Elseif Krk = "O" Then
   Adrl = Waitkey()
   Adrh = Waitkey()
   V1 = Waitkey()
   Address = Adrh * 256
   Address = Address + Adrl
   Out Address , V1
   Print Chr(13);
Elseif Krk = "?" Then
   Print "?";
End If
Loop