Return to OF.fs CVS log

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

Annotation of qemu/roms/SLOF/board-qemu/slof/OF.fs, revision 1.1.1.1

1.1       root        1: \ *****************************************************************************
                      2: \ * Copyright (c) 2004, 2011 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: \ The master file.  Everything else is included into here.
                     14: 
                     15: hex
                     16: 
                     17: ' ll-cr to cr
                     18: 
                     19: #include "header.fs"
                     20: 
                     21: #include "hvterm.fs"
                     22: 
                     23: #include "base.fs"
                     24: 
                     25: \ Little-endian accesses.  Also known as `wrong-endian'.
                     26: #include <little-endian.fs>
                     27: 
                     28: : #join  ( lo hi #bits -- x )  lshift or ;
                     29: : #split ( x #bits -- lo hi )  2dup rshift dup >r swap lshift xor r> ;
                     30: 
                     31: : blink ;
                     32: : reset-dual-emit ;
                     33: : console-clean-fifo ;
                     34: : bootmsg-nvupdate ;
                     35: : asm-cout 2drop drop ;
                     36: 
                     37: #include "logging.fs"
                     38: 
                     39: : log-string 2drop ;
                     40: 
                     41: #include "bootmsg.fs"
                     42: 
                     43: 000 cp
                     44: 
                     45: #include "exception.fs"
                     46: 
                     47: : mm-log-warning 2drop ;
                     48: 
                     49: : write-mm-log ( data length type -- status )
                     50:        3drop 0
                     51: ;
                     52: 
                     53: 080 cp
                     54: 
                     55: 100 cp
                     56: 
                     57: \ Input line editing.
                     58: #include "accept.fs"
                     59: 
                     60: 120 cp
                     61: 
                     62: #include "dump.fs"
                     63: 
                     64: cistack ciregs >r1 ! \ kernel wants a stack :-)
                     65: 
                     66: #include "romfs.fs"
                     67: 
                     68: 140 cp
                     69: 
                     70: 200 cp
                     71: 
                     72: 201 cp
                     73: #include <slof-logo.fs>
                     74: #include <banner.fs>
                     75: 
                     76: : .banner .slof-logo .banner ;
                     77: 
                     78: 220 cp
                     79: 
                     80: DEFER find-boot-sector ( -- )
                     81: 
                     82: 240 cp
                     83: \ Timebase frequency, in Hz. Start with a good default
                     84: \ Use device-tree later to fix it up
                     85: d# 512000000 VALUE tb-frequency   \ default value - needed for "ms" to work
                     86: -1 VALUE cpu-frequency
                     87: 
                     88: #include "helper.fs"
                     89: 260 cp
                     90: 
                     91: #include <timebase.fs>
                     92: 
                     93: 280 cp
                     94: 
                     95: 2c0 cp
                     96: 
                     97: 2e0 cp
                     98: 
                     99: #include <quiesce.fs>
                    100: 
                    101: 300 cp
                    102: 
                    103: #include <usb/usb-static.fs>
                    104: 
                    105: 320 cp
                    106: 
                    107: #include <scsi-loader.fs>
                    108: 
                    109: 340 cp
                    110: 
                    111: 360 cp
                    112: 
                    113: #include "fdt.fs"
                    114: 
                    115: 370 cp
                    116: 
                    117: #include "tree.fs"
                    118: 
                    119: 800 cp
                    120: 
                    121: #include "nvram.fs"
                    122: 
                    123: 880 cp
                    124: 
                    125: #include "envvar.fs"
                    126: check-for-nvramrc
                    127: 
                    128: 890 cp
                    129: 
                    130: #include "qemu-bootlist.fs"
                    131: 
                    132: 8a0 cp
                    133: 
                    134: \ The client interface.
                    135: #include "client.fs"
                    136: \ ELF binary file format.
                    137: #include "elf.fs"
                    138: #include <loaders.fs>
                    139: 
                    140: 8b0 cp
                    141: 
                    142: 8e0 cp
                    143: 
                    144: 8ff cp
                    145: 
                    146: #include <start-up.fs>
                    147: 
                    148: ."      "   \ Clear last checkpoint
                    149: 
                    150: #include <boot.fs>
                    151: 
                    152: cr .(   Welcome to Open Firmware)
                    153: cr
                    154: #include "copyright-oss.fs"
                    155: cr cr
                    156: 
                    157: \ this CATCH is to ensure the code bellow always executes:  boot may ABORT!
                    158: ' start-it CATCH drop
                    159: 
                    160: cr ." Ready!"

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