| 0,0 → 1,127 |
|---|
| 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(); |