Subversion Repositories HelenOS

#

# This configuration file was assembled from the bagle machine

# configuration files as found in Simics 3.0.21. It won't probably

# work in Simics versions prior to Simics 3.0.

#

# The machine simulated is SunFire server Sun Enterprise E6500.

#

# - modified to boot from CD-ROM

# - framebuffer color depth set to 24bpp

#

script-branch {

    wait-for-variable machine_defined

    $pcibrd = (create-sunfire-pci-board mac_address = "10:10:10:10:10:14")

    $pgx64 = (create-sun-pci-pgx64)

    $gfxcon = (create-std-graphics-console)

    $keyboard = (create-sun-type5-keyboard)

    $mouse = (create-sun-type5-mouse)

    $scsi_bus = (create-std-scsi-bus)

    $system.connect slot2 $pcibrd

    $pcibrd.connect pci-slot0 $pgx64

    $pcibrd.connect $scsi_bus

    $system.connect keyboard $keyboard

    $system.connect mouse $mouse

    $gfxcon.connect $pgx64

    $gfxcon.connect $keyboard

    $gfxcon.connect $mouse

}

$save_slot2 = "yes"

if not defined hostid        {$hostid        = 0x80804a6c}

if not defined freq_mhz      {$freq_mhz      = 168}

if not defined mac_address   {$mac_address   = "10:10:10:10:10:12"}

if not defined disk_size     {$disk_size     = 2128486400}

if not defined rtc_time      {$rtc_time      = "2002-06-02 13:00:00 UTC"}

if not defined num_cpus      {$num_cpus      = 3}

if not defined memory_megs   {$memory_megs   = 256}

if not defined save_slot2    {$save_slot2    = "no"}

add-directory "%simics%/targets/sunfire/images/"

import-pci-components

import-std-components

import-sun-components

import-sunfire-components

$system = (create-sunfire-6500-backplane cpu_frequency = $freq_mhz

                                         hostid = $hostid

                                         mac_address = $mac_address

                                         rtc_time = $rtc_time)

$board = 0

$cpus_left = $num_cpus

$megs_left = $memory_megs

while $cpus_left or $megs_left {

    $cpubrd[$board] = (create-sunfire-cpu-board

                           num_cpus = (min $cpus_left 2)

                           memory_megs = (min $megs_left 4096))

    $system.connect ("slot" + $board) $cpubrd[$board]

    if $board == 0 {

        $system.connect central-cpu $cpubrd[$board]

    }

    $cpus_left = (max ($cpus_left - 2) 0)

    $megs_left = (max ($megs_left - 4096) 0)

    $board += 1

    if $board == 1 {$board = 2}

    if $board == 2 and ($save_slot2 == yes) {$board = 3}

}

$sbusbrd = (create-sunfire-sbus-board mac_address = $mac_address)

$scsi_bus = (create-std-scsi-bus)

$scsi_disk = (create-std-scsi-disk scsi_id = 1 size = $disk_size)

$scsi_cdrom = (create-std-scsi-cdrom scsi_id = 6)

$console = (create-std-text-console)

$system.connect slot1 $sbusbrd

$sbusbrd.connect $scsi_bus

$scsi_bus.connect $scsi_disk

$scsi_bus.connect $scsi_cdrom

$system.connect ttya $console

$machine_defined = 1

instantiate-components

$eth_comp = $sbus_fas_hme

$eth_cnt = ""

run-command-file "%simics%/targets/common/add-eth-link.include"

if not defined ip_address   {$ip_address   = "10.10.0.6"}

if $service_node {

    local $sn = ($service_node.get-component-object sn)

    ($sn.add-host name = $host_name

                         ip = $ip_address domain = network.sim

                         mac = $mac_address)

}

default-port-forward-target $ip_address

$cdrom_path = "image.iso"

($scsi_cdrom.get-component-object cd).insert (new-file-cdrom $cdrom_path)

$system.set-prom-env boot-command "boot cdrom"

$system.set-prom-env auto-boot? true

$system.set-prom-env "output-device" "screen:r640x480x60"

@buf = 0;

@offset = 0;

@register2Number = SIM_get_register_number(SIM_current_processor(), "g2");

@register3Number = SIM_get_register_number(SIM_current_processor(), "g3");

@def schedule():

	SIM_realtime_event(100, handler, 0, 0, '');

@def handler(x):

	global buf

	global offset

	if (SIM_simics_is_running()):

		register2Value = SIM_read_register(SIM_current_processor(), register2Number);

		if ((buf == 0) and register2Value == 0x18273645):	

			buf = SIM_read_register(SIM_current_processor(), register3Number);

			SIM_write_register(SIM_current_processor(), register2Number, 0);

			SIM_flush();

			print buf

		elif (buf != 0):

			byte = SIM_read_phys_memory(SIM_current_processor(), buf + offset, 1);

			while byte != 0:

				SIM_putchar(byte);

				SIM_flush();

				SIM_write_phys_memory(SIM_current_processor(), buf + offset, 0, 1);

				offset = (offset + 1) % 512;

				byte = SIM_read_phys_memory(SIM_current_processor(), buf + offset, 1);

	schedule();

@schedule();