Return to pci-class_03.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof

Annotation of qemu/roms/SLOF/board-js2x/slof/pci-class_03.fs, revision 1.1.1.1

1.1       root        1: \ *****************************************************************************
                      2: \ * Copyright (c) 2004, 2008 IBM Corporation
                      3: \ * All rights reserved.
                      4: \ * This program and the accompanying materials
                      5: \ * are made available under the terms of the BSD License
                      6: \ * which accompanies this distribution, and is available at
                      7: \ * http://www.opensource.org/licenses/bsd-license.php
                      8: \ *
                      9: \ * Contributors:
                     10: \ *     IBM Corporation - initial implementation
                     11: \ ****************************************************************************/
                     12: 
                     13: my-space pci-class-name type
                     14: 
                     15: my-space pci-device-generic-setup
                     16: 
                     17: my-space pci-class-name device-type
                     18: 
                     19: \ add legacy I/O Ports / Memory regions to assigned-addresses
                     20: \ see PCI Bus Binding Revision 2.1 Section 7.
                     21: s" reg" get-my-property
                     22: IF
                     23:    \ "reg" does not exist, create new
                     24:    encode-start
                     25: ELSE
                     26:    \ "reg" does exist, copy it 
                     27:    encode-bytes
                     28: THEN
                     29: \ I/O Range 0x3B0-0x3BB
                     30: my-space a1000000 or encode-int+ \ non-relocatable, aliased I/O space
                     31: 3b0 encode-64+ \ addr
                     32: c encode-64+ \ size
                     33: \ I/O Range 0x3C0-0x3DF
                     34: my-space a1000000 or encode-int+ \ non-relocatable, aliased I/O space
                     35: 3c0 encode-64+ \ addr
                     36: 20 encode-64+ \ size
                     37: \ the U4 does not support memory accesses to this region... so we dont put it into "reg"
                     38: \ maybe with some clever hacking of the address map registers it will be possible to access
                     39: \ these regions??
                     40: \ Memory Range 0xA0000-0xBFFFF
                     41: \ my-space a2000000 or encode-int+ \ non-relocatable, <1MB Memory space
                     42: \ a0000 encode-64+ \ addr
                     43: \ 20000 encode-64+ \ size
                     44: 
                     45: s" reg" property \ store "reg" property
                     46: 
                     47: \ check wether we have already found a vga-device (vga-device-node? != 0) and if
                     48: \ this device has Expansion ROM
                     49: vga-device-node? 0= 30 config-l@ 0<> AND IF
                     50:    \ remember this vga device's phandle
                     51:    get-node to vga-device-node?
                     52: THEN
                     53: 
                     54: cr
                     55: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.