Subversion Repositories HelenOS

if not defined create_network {$create_network = "yes"}

$disk_size = 8513945600

###

if not defined hostid        {$hostid        = 0x80804a6c}

if not defined freq_mhz      {$freq_mhz      = 75}

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

if not defined disk_size     {$disk_size     = 2128486400}

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

if not defined num_cpus      {$num_cpus      = 3}

if not defined megs_per_cpu  {$megs_per_cpu  = 256}

if not defined cpu_class     {$cpu_class     = "ultrasparc-iii-plus"}

###

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

import-pci-components

import-std-components

import-sun-components

import-serengeti-components

if $cpu_class == "ultrasparc-iii-plus" {

    $create_function = "create-serengeti-us-iii-plus-cpu-board"

} else if $cpu_class == "ultrasparc-iii" {

    $create_function = "create-serengeti-us-iii-cpu-board"

} else if $cpu_class == "ultrasparc-iv" {

    $create_function = "create-serengeti-us-iv-cpu-board"

} else if $cpu_class == "ultrasparc-iv-plus" {

    $create_function = "create-serengeti-us-iv-plus-cpu-board"

} else {

    echo "Unknown cpu_class" + $cpu_class

    exit 1

}

$system = (create-serengeti-6800-chassis hostid = $hostid

                                         mac_address = $mac_address

                                         rtc_time = $rtc_time)

$board = 0

$cpus_left = $num_cpus

while $cpus_left > 0 {

    $cpus = (min 4 $cpus_left)

    $cpubrd[$board] = ($create_function num_cpus = $cpus

                                        cpu_frequency = $freq_mhz

                                        memory_megs = ($megs_per_cpu * $cpus))

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

    $board += 1

    $cpus_left -= 4

}

unset cpus

$pciboard = (create-serengeti-pci8-board)

$pci_hme = (create-sun-pci-hme mac_address = $mac_address)

$pci_glm = (create-pci-sym53c875)

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

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

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

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

###

$system.connect io-slot6 $pciboard

$pciboard.connect pci-slot0 $pci_hme

$pciboard.connect pci-slot5 $pci_glm

$scsi_bus.connect $pci_glm

$scsi_bus.connect $scsi_disk

$scsi_bus.connect $scsi_cdrom

$system.connect $console

$machine_defined = 1

instantiate-components

$eth_comp = $pci_hme

$eth_cnt = ""

if $create_network == "yes" {

    if not $eth_link {

        $eth_link = (new-std-ethernet-link)

    }

    $eth_link.connect $eth_comp $eth_cnt

    if not $service_node {

        $service_node = (new-std-service-node)

        local $cnt = ($service_node.add-connector 10.10.0.1)

        $service_node.connect $cnt $eth_link

    }

}

unset eth_comp eth_cnt

$cdrom_path = "image.iso"

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

   $system.set-prom-env boot-command "boot /ssm@0,0/pci@19,700000/scsi@2/disk@6,0:f"

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

@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();