Author: wmb Date: 2008-08-06 09:06:30 +0200 (Wed, 06 Aug 2008) New Revision: 870
Added: cpu/x86/pc/neptune/ cpu/x86/pc/neptune/addrs.fth cpu/x86/pc/neptune/banner.fth cpu/x86/pc/neptune/build/ cpu/x86/pc/neptune/build/Makefile cpu/x86/pc/neptune/build/old/ cpu/x86/pc/neptune/chipinit.fth cpu/x86/pc/neptune/config.fth cpu/x86/pc/neptune/devices.fth cpu/x86/pc/neptune/fw.bth cpu/x86/pc/neptune/gpioinit.fth cpu/x86/pc/neptune/lpcflash.fth cpu/x86/pc/neptune/msrinit.fth cpu/x86/pc/neptune/msrscan.fth cpu/x86/pc/neptune/neptune.bth cpu/x86/pc/neptune/pcinode.fth cpu/x86/pc/neptune/probemem.fth cpu/x86/pc/neptune/rmstart.bth cpu/x86/pc/neptune/rmstart.fth cpu/x86/pc/neptune/romreset.bth cpu/x86/pc/neptune/versions.fth cpu/x86/pc/neptune/vsapci.fth dev/dnet/ dev/dnet/build/ dev/dnet/dnet.bth dev/dnet/dnet.fth Log: DAVE Neptune - initial commit of Neptune-specific files.
Added: cpu/x86/pc/neptune/addrs.fth =================================================================== --- cpu/x86/pc/neptune/addrs.fth (rev 0) +++ cpu/x86/pc/neptune/addrs.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,129 @@ +\ See license at end of file +purpose: Establish address and I/O configuration definitions + +[ifdef] use-meg0 +h# f0.0000 constant dropin-base +h# 08.0000 constant dropin-size +h# 0.4000 constant fw-pa +h# f.c000 constant /fw-ram +[then] + +[ifdef] rom-loaded +h# fff8.0000 constant rom-pa \ Physical address of boot ROM +h# 8.0000 constant /rom \ Size of boot ROM +rom-pa constant dropin-base + +h# 8.0000 constant dropin-size + +dropin-base h# 20 + constant ResetBase \ Location of "reset" dropin in ROM + +h# 1c0.0000 constant fw-pa +h# 20.0000 constant /fw-ram +[then] + +[ifdef] linuxbios-loaded +\ h# d8.0000 constant dropin-base +h# fff2.0000 constant dropin-base \ Location of payload in FLASH +\ h# fff8.0000 constant dropin-base \ Location of payload in FLASH +dropin-base h# 80 + h# 20 + constant ResetBase \ Location of "reset" dropin in ROM +h# 08.0000 constant dropin-size +h# 1e0.0000 constant fw-pa +h# 20.0000 constant /fw-ram +h# fff0.0000 constant rom-pa +h# 10.0000 constant /rom +[then] + +[ifdef] old-bzimage-loaded +\ h# d8.0000 constant dropin-base +h# 10.0020 constant dropin-base \ RAM address where Linux normally loads +h# 08.0000 constant dropin-size +h# 20.0000 constant fw-pa +h# 20.0000 constant /fw-ram +[then] + +[ifdef] bzimage-loaded +h# 1d8.0020 constant dropin-base \ RAM address where we want to end up +h# 08.0000 constant dropin-size +h# 1e0.0000 constant fw-pa +h# 20.0000 constant /fw-ram +[then] + +[ifdef] syslinux-loaded +h# 10.1020 constant dropin-base +h# 07.e0e0 constant dropin-size +h# 20.0000 constant fw-pa +h# 20.0000 constant /fw-ram +[then] + +[ifdef] grub-loaded +h# 1b8.0000 constant dropin-base +h# 08.0000 constant dropin-size +h# 1c0.0000 constant fw-pa +h# 20.0000 constant /fw-ram +[then] + +h# 80.0000 constant def-load-base \ Convenient for initrd + +\ The heap starts at RAMtop, which on this system is "fw-pa /fw-ram +" + +\ We leave some memory in the /memory available list above the heap +\ for DMA allocation by the sound and USB driver. OFW's normal memory +\ usage thus fits in one 4M page-directory mapping region. + +h# 18.0000 constant heap-size + +h# 300.0000 constant jffs2-dirent-base +h# 500.0000 constant jffs2-inode-base +h# 700.0000 constant dma-base +h# 900.0000 constant dma-size + +h# f.0000 constant suspend-base \ In the DOS hole +h# f.0008 constant resume-entry +h# f.0800 constant resume-data + +\ If you change these, also change {g/l}xmsrs.fth and {g/l}xearly.fth +h# fd00.0000 constant fw-map-base +h# ffc0.0000 constant fw-map-limit + +h# fd00.0000 constant fb-pci-base +h# fe00.0000 constant gp-pci-base +h# fe00.4000 constant dc-pci-base +h# fe00.8000 constant vp-pci-base +h# fe00.c000 constant vip-pci-base +h# fe01.0000 constant aes-pci-base +h# fe01.a000 constant ohci-pci-base +h# fe01.b000 constant ehci-pci-base +h# fe02.0000 constant nand-pci-base +h# fe02.4000 constant sd-pci-base +h# fe02.8000 constant camera-pci-base +h# fe02.c000 constant uoc-pci-base + +fload ${BP}/cpu/x86/pc/virtaddr.fth +[ifndef] virtual-mode +h# ff80.0000 to fw-virt-base \ Override the usual setting; we use an MSR to double-map some memory up high +h# 40.0000 to fw-virt-size +[then] + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/banner.fth =================================================================== --- cpu/x86/pc/neptune/banner.fth (rev 0) +++ cpu/x86/pc/neptune/banner.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,56 @@ +\ See license at end of file +purpose: Banner customization for this system + +headerless + +: .rom ( -- ) + ." OpenFirmware " + push-decimal + major-release (.) type ." ." minor-release (.) type sub-release type + pop-base +[ifdef] bzimage-loaded + ." booted from disk - " .built +[then] +; + +: (xbanner-basics) ( -- ) + ?spaces cpu-model type ." , " .memory + ?spaces .rom +; +' (xbanner-basics) to banner-basics + +' (banner-warnings) to banner-warnings + +: stop-auto? ( -- flag ) idprom-valid? 0= auto-boot? and ; + +defer gui-banner ' true to gui-banner +: ?gui-banner ( -- ) + stop-auto? if suppress-auto-boot then + + gui-banner drop +; + +headers +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/build/Makefile =================================================================== --- cpu/x86/pc/neptune/build/Makefile (rev 0) +++ cpu/x86/pc/neptune/build/Makefile 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,28 @@ +OS := $(shell uname) + +all: neptune.rom + +neptune.rom: FORCE build ../../../build/inflate.bin ../../../../../clients/memtest86/memtest + ./build $@ + +../../../${OS}/forth: + @make -C ../../../${OS} forth + +../../../build/inflate.bin: + @make -C ../../../build inflate.bin + +../../../../../clients/memtest86/memtest: + @make -C ../../../../../clients/memtest86 memtest + +build: ../../../${OS}/forth + @ln -sf ../../../${OS}/forth build + +clean: + rm -f *.dic *.log headers *~ *.elf *.di *.img builton.fth build neptune.rom + +clean-all: clean + @make -C ../../../build clean + @make -C ../../../${OS} clean + @make -C ../../../../../clients/memtest86 clean + +.PHONY: FORCE clean all clean-all
Added: cpu/x86/pc/neptune/chipinit.fth =================================================================== --- cpu/x86/pc/neptune/chipinit.fth (rev 0) +++ cpu/x86/pc/neptune/chipinit.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,108 @@ +: irq-init + h# 20 h# 4d0 pc! \ IRQ5 (AC-97) level triggered + h# 0c h# 4d1 pc! \ IRQA (USB) and IRQB (GXFB) level triggered +; + +: msr: ( -- ) + push-hex + safe-parse-word $dnumber? 1 <> abort" MSR number must be single precision" + , + safe-parse-word $dnumber? 2 <> abort" MSR value must be double precision" + , , + pop-base +; + +fload ${BP}/cpu/x86/pc/neptune/msrinit.fth + +: msr-init-range ( -- adr len ) + msr-init /msr-init +; +: find-msr-entry ( msr# -- 'data ) + msr-init-range bounds ?do ( msr# ) + dup i l@ = if ( msr# ) + drop i la1+ unloop exit + then ( msr# ) + 3 /l* +loop ( msr# ) + drop true abort" No MSR entry" +; + +: init-msr ( adr -- ) dup la1+ 2@ rot @ wrmsr ; + +: set-msrs ( -- ) + msr-init-range bounds ?do i init-msr d# 12 +loop +; + +code msr-slam ( adr len -- ) + bx pop + dx pop + dx bx add \ endaddr + bp push \ save + dx bp mov \ Use BP as pointer + + begin + 0 [bp] cx mov \ msr# + 4 [bp] dx mov \ msr.hi + 8 [bp] ax mov \ msr.lo + h# 0f asm8, h# 30 asm8, \ wrmsr + d# 12 # bp add + bp bx cmp + = until + + bp pop +c; + +: map-v=p ( phys size -- ) + 2dup 0 mmu-claim drop ( phys size ) + over swap -1 mmu-map ( ) +; + +: video-map +[ifdef] virtual-mode + \ Map GP+DC+VP all at once with a large size + gp-pci-base h# c000 map-v=p +[then] + + \ Unlock the display controller registers +\ write_vg_32(DC_UNLOCK, DC_UNLOCK_VALUE); + h# 4758 dc-pci-base 0 + l! + +\ Set up the DV Address offset in the DC_DV_CTL register to the offset from frame +\ buffer descriptor. First, get the frame buffer descriptor so we can set the +\ DV Address Offset in the DV_CTL register. Because this is a pointer to real +\ silicon memory, we don't need to do this whenever we change the framebuffer BAR, +\ so it isn't included in the hw_fb_map_init routine. +\ SYS_MBUS_DESCRIPTOR((unsigned short)(vga_config_addr+BAR0),(void *)&mVal); +\ mVal.high &= DESC_OFFSET_MASK; +\ mVal.high <<= 4; +\ mVal.high += framebuffer_base; // Watch for overflow issues here... +\ write_vg_32(DC_DV_CTL, mVal.high); + + \ The base address of the frame buffer in physical memory + fb-offset h# 88 dc-pci-base + l! \ DV_CTL register, undocumented + +\ hw_fb_map_init(PCI_FB_BASE); +\ Initialize the frame buffer base related stuff. + + fb-pci-base h# 84 dc-pci-base + l! \ GLIU0 Memory offset + fb-pci-base h# 4c gp-pci-base + l! \ GP base + fb-pci-base h# 80.0000 + h# 460 vp-pci-base + l! \ Flat panel base (reserved on LX) + + \ VGdata.hw_vga_base = h# fd7.c000 + \ VGdata.hw_cursor_base = h# fd7.bc00 + \ VGdata.hw_icon_base = h# fd7.bc00 - MAX_ICON; +[ifdef] virtual-mode + gp-pci-base h# c000 mmu-unmap +[then] +; + +: acpi-init +\ !!! 16-bit writes to these registers don't work - 5536 erratum + 0 h# 1840 pl! \ Disable power button during early startup +; +: setup + set-msrs +\ fix-sirq + gpio-init + acpi-init + irq-init +;
Added: cpu/x86/pc/neptune/config.fth =================================================================== --- cpu/x86/pc/neptune/config.fth (rev 0) +++ cpu/x86/pc/neptune/config.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,82 @@ +\ See license at end of file +purpose: Establish configuration definitions + +create neptune + +\ create debug-reset +\ create debug-startup + +\ --- The environment that "boots" us --- +\ - Image Format - Example Media - previous stage bootloader + +\ - OBMD format - ROM - direct boot from ROM +create rom-loaded + +\ - ELF format (no pheader) - ROM - LinuxBIOS direct +\ create linuxbios-loaded + +\ - Linux kernel format - USB Key w/ FAT FS - LinuxBIOS w/ stripped Linux payload +\ create bzimage-loaded + +\ - ELF format w/ Multiboot signature - various - GRUB +\ create grub-loaded + +\ - (Syslinux) COM32 format - USB Key w/ FAT FS - Syslinux +\ create syslinux-loaded + + +create virtual-mode +create addresses-assigned \ Define if base addresses are already assigned +create serial-console \ Define to default to serial port for console +create pc +create linux-support +create jffs2-support +create use-elf + +\ create lx-pll-autoconfig \ enable pll autoconfiguration from bootstrap pin +create use-memtest86 + +\ create use-timestamp-counter \ Use CPU's timestamp counter for timing ... + \ ... this is worthwhile if your CPU has one. + +create resident-packages +\ create use-watch-all +create use-root-isa \ If defined, isa node is in the devtree root, not under /pci +create no-floppy-node +\ create no-com2-node +create no-lpt-node +create use-pci-isa +create basic-isa +create isa-dma-only +\ create use-ega +\ create save-msrs + +create use-null-nvram \ Don't store configuration variables +\ create use-flash-nvram \ Store configuration variables in firmware FLASH + +fload ${BP}/cpu/x86/pc/neptune/addrs.fth + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ Copyright (c) 2008 Dave Srl +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/devices.fth =================================================================== --- cpu/x86/pc/neptune/devices.fth (rev 0) +++ cpu/x86/pc/neptune/devices.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,333 @@ +\ See license at end of file +purpose: Load device drivers according to configuration definitions + +: lx? true ; +: gx? false ; + +fload ${BP}/dev/geode/msr.fth +fload ${BP}/cpu/x86/pc/isaio.fth + +[ifdef] rom-loaded +fload ${BP}/cpu/x86/pc/neptune/vsapci.fth \ PCI configuration access with some hacks +[else] +fload ${BP}/dev/pci/configm1.fth \ Generic PCI configuration access +[then] + +0 0 " " " /" begin-package + fload ${BP}/cpu/x86/pc/mappci.fth \ Map PCI to root + fload ${BP}/dev/pcibus.fth \ Generic PCI bus package + fload ${BP}/cpu/x86/pc/neptune/pcinode.fth \ System-specific words for PCI +end-package +stand-init: PCI host bridge + " /pci" " init" execute-device-method drop +; + +fload ${BP}/dev/pciprobe.fth \ Generic PCI probing + +\ Use the CPU chip's Time Stamp Counter for timing; it does just what we want +fload ${BP}/cpu/x86/tsc.fth +\ d# 366,666 to ms-factor \ XXX is this right???? +\ d# 367 to us-factor + +stand-init: + d# 366,666,667 " AMD,Geode LX" + + " /cpu" find-device ( cpu-clock-hz model$ ) + " model" string-property ( cpu-clock-hz ) + dup " clock-frequency" integer-property ( cpu-clock-hz ) + device-end ( cpu-clock-hz ) + + d# 1000 rounded-/ dup to ms-factor ( cpu-clock-khz ) + d# 1000 rounded-/ to us-factor ( ) +; + +[ifdef] use-ega +0 0 " " " /" begin-package + fload ${BP}/dev/egatext.fth +end-package +\ devalias screen /ega-text +[then] + +[ifdef] use-root-isa +0 0 " " " /" begin-package + fload ${BP}/cpu/x86/pc/isabus.fth \ ISA Bus Bridge under root node +end-package +[then] + +[ifdef] use-pci-isa + [ifdef] addresses-assigned + [ifdef] use-pci-isa + \ This must precede isamisc.fth in the load file, to execute it first + fload ${BP}/cpu/x86/pc/moveisa.fth + [then] + [then] + +0 0 " 0" " /pci" begin-package + fload ${BP}/dev/pci/isa.fth \ ISA bus bridge under PCI node + fload ${BP}/dev/pci/isamisc.fth +end-package + +[then] + +fload ${BP}/cpu/x86/pc/olpc/timertest.fth \ Selftest for PIT timer + +1 [if] +warning @ warning off +: probe-pci ( -- ) + probe-pci + " /pci" " make-interrupt-map" execute-device-method drop +; +warning ! + +\ Create the top-level device node to access the entire boot FLASH device +\ 0 0 " fff00000" " /" begin-package +0 0 dropin-base <# u#s u#> " /" begin-package + " flash" device-name + + h# 10.0000 value /device + h# 10.0000 constant /device-phys + my-address my-space /device-phys reg + fload ${BP}/dev/flashpkg.fth + fload ${BP}/dev/flashwrite.fth +end-package + +\ Create a node below the top-level FLASH node to accessing the portion +\ containing the dropin modules +0 0 " 10000" " /flash" begin-package + " dropins" device-name + + h# c0000 constant /device + fload ${BP}/dev/subrange.fth +end-package + +devalias dropins /dropins + +\ Create a pseudo-device that presents the dropin modules as a filesystem. +fload ${BP}/ofw/fs/dropinfs.fth + +\ This devalias lets us say, for example, "dir rom:" +devalias rom /dropin-fs + +fload ${BP}/cpu/x86/forthint.fth \ Low-level interrupt handling code +fload ${BP}/dev/isa/irq.fth \ ISA interrupt dispatcher +fload ${BP}/cpu/x86/pc/isatick.fth \ Use ISA timer as the alarm tick timer + +dev /interrupt-controller +irq-vector-base to vector-base0 +vector-base0 8 + to vector-base1 +device-end + +[ifdef] resident-packages +support-package: 16550 +fload ${BP}/dev/16550pkg/16550.fth \ Serial port support package +end-support-package +[then] + +fload ${BP}/dev/pci/isaall.fth +devalias com1 /isa/serial@i3f8:115200 +\ devalias mouse /isa/8042/mouse +devalias d disk +devalias n nand +devalias u /usb/disk +devalias sd /sd/disk + +\ If we don't do the ctlr-selftest, the keyboard won't start on the LX devel board +\ dev /8042 patch false ctlr-selftest open device-end + +0 0 " i70" " /isa" begin-package \ Real-time clock node + fload ${BP}/dev/ds1385r.fth + 8 encode-int 0 encode-int encode+ " interrupts" property + 2 encode-int " device#" property +end-package +0 [if] \ XXX check me +stand-init: RTC + " /rtc" open-dev clock-node ! +; +[then] + +fload ${BP}/cpu/x86/pc/cpunode.fth +fload ${BP}/cpu/x86/k6cputest.fth \ Burnin test for K6 CPU + +0 [if] +fload ${BP}/ofw/console/bailout.fth +stand-init: Keyboard overrides + ?bailout +; +[then] + +fload ${BP}/forth/lib/pattern.fth \ Text string pattern matching +fload ${BP}/forth/lib/tofile.fth \ to-file and append-to-file +\ XXX remove the OS file commands from tools.dic +fload ${BP}/ofw/core/filecmds.fth \ File commands: dir, del, ren, etc. + +fload ${BP}/cpu/x86/pc/olpc/cmos.fth \ CMOS RAM indices are 1f..ff , above RTC + +devalias nand /nandflash +devalias mtd /nandflash + +[ifdef] use-null-nvram +\ For not storing configuration variable changes across reboots ... +\ This is useful for "turnkey" systems where configurability would +\ increase support costs. + +fload ${BP}/cpu/x86/pc/nullnv.fth +stand-init: Null-NVRAM + " /null-nvram" open-dev to nvram-node + ['] init-config-vars catch drop +; +[then] + +[ifdef] use-flash-nvram +\ For configuration variables stored in a sector of the boot FLASH ... + +\ Create a node below the top-level FLASH node to access the portion +\ containing the configuration variables. +0 0 " d0000" " /flash" begin-package + " nvram" device-name + + h# 10000 constant /device + fload ${BP}/dev/subrange.fth +end-package + +stand-init: NVRAM + " /nvram" open-dev to nvram-node + ['] init-config-vars catch drop +; +[then] + +\ Create the alias unless it already exists +: $?devalias ( alias$ value$ -- ) + 2over not-alias? if $devalias exit then ( alias$ value$ alias$ ) + 2drop 4drop +; + +: report-disk ( -- ) + " /usb/disk" locate-device 0= if + drop + " disk" " /usb/disk" $devalias + exit + then + " /usb@f,4/disk" locate-device 0= if + ." Found USB 1.1 disk!" cr + drop + " disk" " /usb@f,4/disk" $devalias + exit + then +; + +: report-keyboard ( -- ) + " /usb@f,4/keyboard" locate-device 0= if + drop + " keyboard" " /usb@f,4/keyboard" $devalias + exit + then + + \ In case the keyboard is behind a USB 2 hub + " /usb@f,5/keyboard" locate-device 0= if + drop + " keyboard" " /usb@f,5/keyboard" $devalias + then +; + +fload ${BP}/cpu/x86/inoutstr.fth \ Multiple I/O port read/write +fload ${BP}/dev/isa/diaguart.fth \ ISA COM port driver +\ : inituarts ascii G uemit ascii o uemit ; \ They are already on + +h# 3f8 is uart-base +fload ${BP}/forth/lib/sysuart.fth \ Use UART for key and emit + +[ifndef] save-flash +: save-flash ; +: restore-flash ; +[then] + +\needs md5init fload ${BP}/ofw/ppp/md5.fth \ MD5 hash + +fload ${BP}/dev/geode/acpi.fth \ Power management +\ warning @ warning off +\ : stand-init-io stand-init-io h# fff0.0000 to flash-base ; +\ warning ! +: cpu-mhz ( -- n ) + " /cpu@0" find-package drop ( phandle ) + " clock-frequency" rot get-package-property if 0 exit then ( adr ) + decode-int nip nip d# 1000000 / +; + +stand-init: PCI properties + " /pci" find-device + d# 66,666,667 " clock-frequency" integer-property + dend +; + +fload ${BP}/cpu/x86/pc/neptune/lpcflash.fth + +fload ${BP}/dev/geode/lpcflash.fth \ Reflasher for PLCC FLASH on A-test + +: +i encode-int encode+ ; : 0+i 0 +i ; + +[ifdef] rom-loaded +fload ${BP}/cpu/x86/pc/neptune/gpioinit.fth +fload ${BP}/cpu/x86/pc/neptune/chipinit.fth +[then] + +false config-int tft-mode? + +fload ${BP}/cpu/x86/fb16-ops.fth +fload ${BP}/ofw/termemu/fb16.fth +0 0 " 1,1" " /pci" begin-package + fload ${BP}/dev/geode/display/loadpkg.fth \ Geode display + + 0 0 encode-bytes + h# 8200.0910 +i 0+i fb-pci-base +i 0+i h# 0080.0000 +i \ Frame buffer + h# 8200.0914 +i 0+i gp-pci-base +i 0+i h# 0000.4000 +i \ GP + h# 8200.0918 +i 0+i dc-pci-base +i 0+i h# 0000.4000 +i \ DC + h# 8200.091c +i 0+i vp-pci-base +i 0+i h# 0000.4000 +i \ VP + h# 8200.0920 +i 0+i vip-pci-base +i 0+i h# 0000.4000 +i \ VIP (LX only) + " assigned-addresses" property + +end-package +devalias screen /display +also hidden d# 34 to display-height previous \ For editing + +fload ${BP}/cpu/x86/adpcm.fth \ ADPCM decoding + +warning @ warning off +: stand-init + stand-init + root-device +\ XXX perhaps report subordinate version info? + " Neptune" model + " Neptune" " banner-name" string-property + dend + + " /openprom" find-device + h# ffff.ffc0 d# 16 " model" string-property + + " sourceurl" find-drop-in if " source-url" string-property then + dend +; +warning ! + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/fw.bth =================================================================== --- cpu/x86/pc/neptune/fw.bth (rev 0) +++ cpu/x86/pc/neptune/fw.bth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,529 @@ +purpose: Build Open Firmware for Dave Neptune board +\ See license at end of file + +dictionary: ${BP}/cpu/x86/build/basefw.dic +command: &x86forth &dictionary &this +in: builton.fth +build-now + + +hex +\ ' $report-name is include-hook + +fload ${BP}/cpu/x86/pc/neptune/config.fth + +: headerless ; : headers ; : headerless0 ; + +' (quit) to quit + +create debug-startup +: \Tags [compile] \ ; immediate +: \NotTags [compile] \ ; immediate + +: RAMbase ( -- adr ) fw-virt-base ; +: RAMtop ( -- adr ) RAMbase /fw-ram + ; + +h# 00.0000 value dp-loc \ Set in patchboot +: stacktop ( -- adr ) RAMtop ; +: dict-limit ( -- adr ) RAMtop h# 06.0000 - ; + +\ XXX What we should do is pass in the top address in SP, and have +\ boot.fth allocate the user area by subtracting user-size. But +\ we need some way of finding it again for exception re-entry. +\ prom-main-task is used in arch/pc/boot.fth . The constant +\ value is wired into the assembly code +stacktop user-size - constant prom-main-task \ user area for main task + +0 value load-limit \ Top address of area at load-base +' 2drop to sync-cache + +def-load-base ' load-base set-config-int-default + +true ' fcode-debug? set-config-int-default +true ' auto-boot? set-config-int-default + +[ifdef] serial-console +" com1" ' output-device set-config-string-default +" com1" ' input-device set-config-string-default +[then] + +\ XXX should be loaded by basefw.bth +fload ${BP}/cpu/x86/initpgm.fth \ Basic boot handler +fload ${BP}/cpu/x86/msr.fth \ Access to machine specific registers + +: (cpu-arch ( -- adr len ) + " architecture" ['] root-node get-package-property drop + get-encoded-string +; +' (cpu-arch to cpu-arch + +h# 1000 to pagesize +d# 12 to pageshift + +dev / +1 encode-int " #address-cells" property +1 encode-int " #size-cells" property +" Neptune" encode-string " architecture" property +device-end + +\ Memory management services +[ifdef] virtual-mode +fload ${BP}/ofw/core/clntmem1.fth \ client services for memory +[else] +fload ${BP}/ofw/core/clntphy1.fth \ client services for memory +: >physical ( va -- pa ) + dup fw-virt-base - fw-virt-size u< if ( va ) + fw-virt-base - fw-pa + + then +; +[then] +fload ${BP}/ofw/core/memlist.fth \ Resource list common routines +fload ${BP}/ofw/core/showlist.fth \ Linked list display tool +fload ${BP}/ofw/core/allocph1.fth \ S Physical memory allocator +fload ${BP}/ofw/core/availpm.fth \ Available memory list + +fload ${BP}/cpu/x86/pc/rootnode.fth \ Platform-specific root node changes +dev / +alias lmove lmove \ Needed by CS5536 NAND FLASH driver +dend + +fload ${BP}/dev/geode/gpio.fth \ Rudimentary GPIO driver +fload ${BP}/cpu/x86/pc/neptune/probemem.fth \ Memory probing + +[ifdef] virtual-mode +fload ${BP}/cpu/x86/loadvmem.fth \ /mmu node + +stand-init: MMU + " /mmu" open-dev mmu-node ! +; +fload ${BP}/cpu/x86/pc/initdict.fth \ Dynamic dictionary allocation +[then] + +\ XXX should be elsewhere +dev /client-services +: chain ( len args entry size virt -- ) + release ( len args entry ) + h# 8000 alloc-mem h# 8000 + (init-program) ( len args ) + to %ebx to %ecx + go +; +device-end + +fload ${BP}/cpu/x86/crc32.fth \ Assembly language Zip CRC calculation +fload ${BP}/forth/lib/crc32.fth \ High-level portion of CRC calculation + +[ifdef] resident-packages + +[ifdef] use-ufs +support-package: ufs-file-system + fload ${BP}/ofw/fs/ufs/ufs.fth \ Unix file system +end-support-package +[then] + +[ifdef] linux-support +\needs unix-seconds> fload ${BP}/ofw/fs/unixtime.fth \ Unix time calculation +support-package: ext2-file-system + fload ${BP}/ofw/fs/ext2fs/ext2fs.fth \ Linux file system +end-support-package +[then] + +[ifdef] jffs2-support +\needs unix-seconds> fload ${BP}/ofw/fs/unixtime.fth \ Unix time calculation +support-package: jffs2-file-system + fload ${BP}/ofw/fs/jffs2/jffs2.fth \ Journaling flash file system 2 +end-support-package +[then] + +support-package: zip-file-system + fload ${BP}/ofw/fs/zipfs.fth \ Zip file system +end-support-package + +support-package: dropin-file-system + fload ${BP}/ofw/fs/dropinfs.fth \ Dropin file system +end-support-package +[then] + +support-package: minix-file-system + fload ${BP}/ofw/fs/minix.fth \ Minix3 file system +end-support-package + +fload ${BP}/ofw/core/osfile.fth \ For testing + +\ Load file format handlers + +: call32 ; + +fload ${BP}/ofw/core/allocsym.fth \ Allocate memory for symbol table +fload ${BP}/ofw/core/symcif.fth +fload ${BP}/ofw/core/symdebug.fth +: release-load-area ( boundary-adr -- ) drop ; + +fload ${BP}/cpu/x86/pc/fixkbd.fth \ Switch keyboard scan codes + +[ifdef] use-elf +fload ${BP}/ofw/elf/elf.fth +fload ${BP}/ofw/elf/elfdebug.fth +[ifdef] virtual-mode +: (elf-map-in) ( va size -- ) swap 1 -rot allocate-aligned drop ; +\ Depends on the assumption that physical memory is mapped 1:1 already +\ : (elf-map-in) ( va size -- ) 0 mem-claim drop ; +' (elf-map-in) is elf-map-in +[else] +: (elf-map-in) ( va size -- ) 2drop ; +[then] +' (elf-map-in) is elf-map-in +[then] + +\ Reboot and re-entry code +fload ${BP}/cpu/x86/pc/reboot.fth \ Restart the client program +fload ${BP}/cpu/x86/pc/reenter.fth \ Various entries into Forth + +headerless +[ifdef] virtual-mode +: (initial-heap) ( -- adr len ) sp0 @ ps-size - dict-limit tuck - ; +[else] +: (initial-heap) ( -- adr len ) RAMtop heap-size ; +[then] +' (initial-heap) is initial-heap +headers + +" /openprom" find-device + " FirmWorks,3.0" encode-string " model" property +device-end + +[ifdef] virtual-mode +fload ${BP}/cpu/x86/pc/mmusetup.fth \ Initial values for MMU lists +\ XXX check me +\ dev /mmu +\ : claim-rom ( -- ) +\ (initial-claim) +\ rom-pa h# ffff.0000 over - claim-virtual drop \ ROM 1-1 map +\ ; +\ ' claim-rom to initial-claim +\ dend +[then] + +: background-rgb ( -- r g b ) h# ff h# ff h# ff ; + +fload ${BP}/cpu/x86/pc/neptune/devices.fth + +fload ${BP}/ofw/core/countdwn.fth \ Startup countdown +patch 3 6 get-countdown + +fload ${BP}/dev/scsi/probscsi.fth \ probe-scsi and probe-scsi-all + +true ' local-mac-address? set-config-int-default +[ifdef] resident-packages +support-package: nfs + fload ${BP}/ofw/fs/nfs/loadpkg.fth +end-support-package + +[then] +devalias nfs net//obp-tftp:last//nfs + +fload ${BP}/cpu/x86/pc/boot.fth + +h# 3ea constant usb-port-power-map \ USB4:PWR2 USB3:PWR1 USB2:PWR1 USB1:PWR1 +fload ${BP}/dev/geode/usb.fth +\ ' noop to go-hook \ this is required for accessing USB device from client program (e.g. VME) + +\ false to stand-init-debug? +true to stand-init-debug? + +hex +: i-key-wait ( ms -- pressed? ) + cr ." Type 'i' to interrupt stand-init sequence" cr + 0 do + key? if + key upc ascii I = if true unloop exit then + then + 1 ms + loop + false +; + +\ stand-init-debug? [if] +warning @ warning off +: init +\ initial-heap add-memory + init + + standalone? if + disable-interrupts +[ifdef] rom-loaded + d# 300 + h# 1454 pl@ 2 and if + ." Interacting due to botched resume" cr hex interact + then + i-key-wait if ." Interacting" cr hex interact then + setup +[else] + d# 3000 + i-key-wait if ." Interacting" cr hex interact then +[then] + then +; +\ warning ! +[then] + +: (.firmware) ( -- ) + ." Open Firmware " .built cr + ." Copyright 1999 FirmWorks All Rights Reserved" cr +; +' (.firmware) to .firmware + +: probe-all ( -- ) + probe-pci + probe-usb +; + +fload ${BP}/ofw/gui/bmptools.fth +fload ${BP}/dev/null.fth +fload ${BP}/ofw/core/bailout.fth + +fload ${BP}/cpu/x86/pc/neptune/banner.fth + +fload ${BP}/ofw/gui/loadmenu.fth +\ fload ${BP}/ofw/gui/insticon.fth + +fload ${BP}/cpu/x86/pc/linux.fth + +\ Use values like these if you want to boot directly instead of through an intermediate script + " u:\boot\bzImage" ' boot-device set-config-string-default +\ " console=uart,io,0x3f8,115200" ' boot-file set-config-string-default + \ " console=uart,io,0x3f8,115200 root=/dev/nfs rw nfsroot=192.168.42.100:/usr/local/rfs_x86,proto=tcp,hard ip=192.168.42.99:192.168.42.100::255.255.255.0:neptune:eth0:off init=/bin/sh" ' boot-file set-config-string-default + " console=uart,io,0x3f8,115200 console=tty0 root=/dev/nfs rw nfsroot=192.168.0.23:/home/shared/devel/neptune/sw/rfs/x86_32_rfs,proto=tcp,hard ip=192.168.0.77:192.168.0.23::255.255.255.0:neptune:eth0:off video=1027x768M@60m init=/bin/bash" ' boot-file set-config-string-default +\ \needs ramdisk " u:\boot\initrd.img" d# 128 config-string ramdisk +\needs ramdisk " " d# 128 config-string ramdisk +\ " " ' boot-file set-config-string-default \ Let the boot script set the cmdline + +\ " disk:\boot\boot.fth nand:\boot\boot.fth /prober /usb/ethernet" ' boot-device set-config-string-default + +[ifdef] use-memtest86 +: memtest ( -- ) " rom:memtest" $boot ; +\ fload ${BP}/cpu/x86/pc/olpc/memtest.fth +[then] + +\ Eliminate 4 second delay in install console for the case where +\ there is no keyboard. The delay is unnecessary because the screen +\ does not go blank when the device is closed. +patch drop ms install-console + +: cs5536-reset-all ( -- ) +[ifdef] rom-loaded + 1. h# 5140.0017 wrmsr \ DIVIL_SOFT_RESET MSR, 5536 page 367 + begin again +[else] + (reset-all) +[then] +; +' cs5536-reset-all to reset-all + +alias reboot bye + +[ifdef] use-watch-all +fload ${BP}/cpu/x86/pc/watchall.fth +[then] + +alias crcgen drop ( crc byte -- crc' ) +fload ${BP}/cpu/x86/pc/saveabs.fth + +fload ${BP}/forth/lib/selstr.fth + +fload ${BP}/ofw/inet/loadtcp.fth + +support-package: http + fload ${BP}/ofw/inet/http.fth \ HTTP client +end-support-package + +fload ${BP}/ofw/wifi/wifi-cfg.fth +support-package: supplicant +fload ${BP}/ofw/wifi/loadpkg.fth +end-support-package + +[ifdef] use-ppp +fload ${BP}/ofw/ppp/loadppp.fth +[then] + +" dhcp" ' ip-address set-config-string-default + +\ fload ${BP}/cpu/x86/pc/report.fth +fload ${BP}/ofw/core/dualconsole.fth + +true constant user-switch? ( -- flag ) +: fast-boot? ( -- flag ) +[ifdef] rom-loaded +false exit + user-switch? 0= +[else] + false +[then] +; + +: interpreter-init ( -- ) + hex + warning on + only forth also definitions + + install-alarm + + page-mode + #line off + +\ .built cr +; + +: console-start ( -- ) +[ifdef] rom-loaded + video-map cr +[then] + " screen" open-dev ?dup if + set-stdout +\ logo-banner drop +\ close-dev +\ 0 stdout ! + then + + install-dual-console + + ?gui-banner + " probe-" do-drop-in +\ ." nvramrc" cr +\ use-nvramrc? if nvramrc safe-evaluate then +; +: debug-interact ( -- ) + early-interact? if + " Interrupting startup sequence prior to probing" .because + ." Type 'resume' to resume normal startup sequence." cr + \ fallback-device io console-io + ( help-msg ) interact + then +; + +: geode-print-pll ( -- ) + ." Geode CPU Speed " + h# 4c00.0014 rdmsr swap drop + h# 3E and 2/ + 1 + d# 66 * 2/ decimal . cr + + ." GeodeLink Speed " + h# 4c00.0014 rdmsr swap drop + h# FFF and 7 >> + 1 + d# 66 * 2/ decimal . cr + + ." PCI Speed " + h# 4c00.0014 rdmsr drop + 1 7 << and + 0= if d# 33 . else d# 66 . then cr + + hex + +; + +h# ffac0000 constant lpc-flash2-phys +h# 40000 constant /lpc-flash2 \ size + +: neptune-flash2-map + + lpc-flash2-phys /lpc-flash2 0 mmu-claim drop \ Reserve the virtual address range + lpc-flash2-phys dup /lpc-flash2 -1 mmu-map \ Create a mapping +; + +: vme ( -- ) + ." Running Lattice programmer " + com1 io + verbose-cif + " u:\neptune.vme" to boot-file + " u:\vme.elf" $boot +; + +fload ${BP}/cpu/x86/pc/neptune/versions.fth + +: optional-startup ( -- ) + probe-usb + ?usb-keyboard +; + +: startup ( -- ) + standalone? 0= if exit then + +\ ?bailout + + no-page + + console-start + ." Welcome to Dave Neptune (OFW 0.9.3)" cr + geode-print-pll + + fast-boot? if + probe-pci + ['] false to interrupt-auto-boot? + interpreter-init + auto-boot + optional-startup + else + ." Interactive boot" cr + + ." PCI Probe" cr + probe-pci + ." USB probe" cr + optional-startup + interpreter-init + auto-boot + then + + blue-letters ." Type 'help' for more information." black-letters + cr cr + + quit +; + +\ This helps with TeraTerm, which sends ESC-O as the arrow key prefix +also hidden also keys-forth definitions +warning @ warning off +: esc-o key lastchar ! [""] esc-[ do-command ; +warning ! +previous previous definitions + +.( --- Saving fw.dic ...) +" fw.dic" $save-forth cr + +\ patch foo decimal cold + +[ifndef] notdef +.( --- Saving fw.img ...) +" fw.img" RAMbase save-abs-rom cr +[then] + +[ifdef] notdef-com32 +.( Saving fw.c32 ...) +fw-pa h# 10.1000 <> [if] +.( fw-pa must be 10.1000 for COM32 load format) cr +[else] +" fw.c32" RAMbase save-abs-rom cr +[then] +[then] + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/gpioinit.fth =================================================================== --- cpu/x86/pc/neptune/gpioinit.fth (rev 0) +++ cpu/x86/pc/neptune/gpioinit.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,55 @@ +purpose: GPIO settings for DAVE Neptune + +0 [if] \ This_Is_Documentation + 0 I ~ INTA# + 1 O1 PCBEEP out AUX + 2 I1 IDEIRQ14 in + 3 O CRT_SCL + 4 O I CRT_SDA + 5 I IDE_CABLEID in + 6 I GPIO6 out page 26 check (also out from X4 connector pin 42) output from battery monitor header + 7 I ~ INTB# in 10,2025 + 8 O 2 O2 IRTX out + 9 I1 IRRX in +10 I1 THRM_ALRM# in +11 O1 SLP_CLK# out would be O1 for SLP_CLK_EN# +12 I ~ INTC# 10,25 +13 I ~ INTD#_SLPBUT 25 (I1 for SLPBUT) ?? +14 O1 I1 SMB_SCL +15 O1 I1 SMB_SDA + +16-20 LPC 21 LPC_SERIRQ 22 LPC_LFRAME + +24 O1 WORK_AUX out +25 I1 LOW_BAT# in +26 I PME# in 18,20,25 +27 O1 MFGPT7_C1 out 26 +28 I1 pwrbut# in +OutEn - 0900 c91a +OutA1 - 0900 c802 +OutA2 - 0000 0100 +InEn - 1600 f6f5 +InA1 - 1200 c604 +InInv - 0000 3081 +[then] +: gpio-init ( -- ) + h# 0000 h# 1090 pl! h# c802 h# 1010 pl! \ Output AUX1 + h# 0000 h# 1094 pl! h# 100 h# 1014 pl! \ Output AUX2 + h# 0900 h# 1084 pl! h# c91a h# 1004 pl! \ Output Enable + h# 1600 h# 10a0 pl! h# f6f5 h# 1020 pl! \ Input Enable + h# 1200 h# 10b4 pl! h# c604 h# 1034 pl! \ Input AUX1 + + h# 0000 h# 10a4 pl! h# 3081 h# 1024 pl! \ Input Invert (Int lines) + h# 0000 h# 10b8 pl! h# 3081 h# 1038 pl! \ Event enable (Int lines) + + h# 1000.0000 h# 1098 pl! \ No pullup on pwrbut_in + h# 1000 h# 10a8 pl! \ filter pwrbut_in + + h# 1000.0000 h# 101c pl! \ No pulldown on INTC# + h# 3081.cf7e h# 1018 pl! \ No pullups on INTA..D + + \ h# 0800 h# 1088 pl! \ MFGPT7_C1 is open drain + + \ teo was here + h# 00000005 h# 10e0 pl! \ GPIO 0(CaFe) -> group 5 +;
Added: cpu/x86/pc/neptune/lpcflash.fth =================================================================== --- cpu/x86/pc/neptune/lpcflash.fth (rev 0) +++ cpu/x86/pc/neptune/lpcflash.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,37 @@ +\ See license at end of file +\ User interface for reflashing SPI FLASH parts + +\ This code is concerned with the user interface for getting +\ a new firmware image into memory and using it to program +\ a FLASH device from that image. The details of how to actually +\ access the FLASH device are defined elsewhere. + +h# 100000 to /flash +\ h# 800000 constant flash-buf +\ h# 10000 constant /flash-block \ Size of erase block + +\ 0 value file-loaded? + +\ LICENSE_BEGIN +\ Copyright (c) 2008 Dave Srl +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/msrinit.fth =================================================================== --- cpu/x86/pc/neptune/msrinit.fth (rev 0) +++ cpu/x86/pc/neptune/msrinit.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,248 @@ +purpose: MSR settings for DAVE Neptune + +create msr-init +\ Memsize-dependent MSRs are set in the early startup code + +\ CPU + msr: 0000.1100 00000100.00005051. \ Branch tree messaging sync + msr: 0000.1210 00000000.00000003. \ Suspend on halt and pause + msr: 0000.1900 00000000.02001131. \ Pausedly 16 clocks, SUSP + TSC_SUSP + msr: 0000.1920 00000000.0000000f. \ Enable L2 cache + msr: 0000.1a00 00000000.00000001. \ GX p 178 Imprecise exceptions + +\ northbridgeinit: GLIUS +\ msr: 1000.0020 20000000.000fff80. \ 0 - 7.ffff low RAM Early startup +\ msr: 1000.0024 000000ff.fff00000. \ Unmapped - default + msr: 1000.0022 a00000fe.000ffffc. \ fe00.0000 - fe00.3fff GP + msr: 1000.0023 400000fe.008ffff8. \ fe00.8000 - fe00.bfff VP + VIP in GLIU1 + msr: 1000.0024 400000fe.010ffffc. \ fe01.0000 - fe01.3fff security block in GLIU1 +\ msr: 1000.0025 000000ff.fff00000. \ Unmapped - default +\ msr: 1000.0026 000000ff.fff00000. \ Unmapped - default + +\ Graphics +\ msr: 1000.0029 20a7e0fd.7fffd000. \ fd00.0000 - fd7f.ffff mapped to 77e.0000 Memsize dependent (Frame Buffer) + msr: 1000.002a 801ffcfe.007fe004. \ fe00.4000 - fe00.7fff mapped to 0 in DC space + +\ msr: 1000.002b 00000000.000fffff. \ Unmapped - default +\ msr: 1000.002c 00000000.00000000. \ Unmapped - default (Swiss Cheese) + + msr: 1000.0080 00000000.00000003. \ Coherency + msr: 1000.0082 80000000.00000000. \ Arbitration + msr: 1000.0083 00000000.0000ff00. \ Disable SMIs + msr: 1000.0084 00000000.0000ff00. \ Disable Async errors + +\ msr: 1000.00e0 000000ff.fff00000. \ Unmapped - default +\ msr: 1000.00e1 000000ff.fff00000. \ Unmapped - default +\ msr: 1000.00e2 000000ff.fff00000. \ Unmapped - default +\ msr: 1000.00e3 00000000.00000000. \ Unmapped - default (Swiss Cheese) + + msr: 1000.2002 0000001f.0000001f. \ Disables SMIs + msr: 1000.2004 00000000.00000005. \ Clock gating + +\ DMA incoming maps + msr: 4000.0020 20000000.000fff00. \ 0 - f.ffff low RAM, route to GLIU0 + msr: 4000.0022 200000fe.000ffffc. \ fe00.0000 - fe00.03ff GP, route to GLIU0 +\ msr: 4000.0023 000000ff.fff00000. \ Unmapped - default + msr: 4000.0024 200000fe.004ffffc. \ fe00.4000 - fe00.7fff DC, route to GLIU0 + msr: 4000.0025 400000fe.008ffffc. \ fe00.8000 - fe00.bfff VP, route to VP in GLIU1 + msr: 4000.0026 a00000fe.00cffffc. \ fe00.c000 - fe00.ffff VIP, route to VP in GLIU1 +\ msr: 4000.0027 000000ff.fff00000. \ Unmapped - default +\ msr: 4000.0028 000000ff.fff00000. \ Unmapped - default +\ msr: 4000.0029 000000ff.fff00000. \ Unmapped - default + msr: 4000.002a 200000fd.7fffd000. \ frame buffer - fd00.0000 .. fd7f.ffff, route to GLIU0 + msr: 4000.002b c00000fe.013fe010. \ Security Block - fe01.0000 .. fe01.3fff +\ msr: 4000.002c 20000007.7ff00100. \ 10.0000 - 0f7f.ffff High RAM - Memsize dependent +\ msr: 4000.002d 00000000.000fffff. \ Unmapped - default + msr: 4000.0080 00000000.00000001. \ Route coherency snoops from GLIU1 to GLIU0 + msr: 4000.0081 00000000.0000c77f. \ Port active enable + msr: 4000.0082 80000000.00000000. \ Arbitration scheduling + msr: 4000.0083 00000000.0000ffff. \ Disable SMIs + msr: 4000.0084 00000000.00000008. \ Disable AERRs +\ msr: 4000.0085 00000000.00000104. \ default +\ msr: 4000.0086 20311030.0100400a. \ default + +\ msr: 4000.00e0 20000000.3c0fffe0. \ IOD_BM DC - VGA +\ msr: 4000.00e1 000000ff.fff00000. \ Unmapped - default + msr: 4000.00e3 60000000.033000f0. \ Map reads and writes of Port F0 to GLCP, I think + msr: 4000.2002 0000001f.0000001f. \ Disables SMIs + msr: 4000.2004 00000000.00000005. \ Clock gating + +\ GeodeLink Priority Table + msr: 0000.2001 00000000.00000220. + msr: 4c00.2001 00000000.00000001. + msr: 5000.2001 00000000.00000027. + msr: 5800.2001 00000000.00000000. + msr: 8000.2001 00000000.00000320. +\ msr: a000.2001 00000000.00000010. \ GX only + + msr: 0000.1700 00000000.00000400. \ Evict clean lines - necessary for L2 + +\ Region config +\ msr: 0000.1808 25fff002.1077e000. \ System RAM and ROM region configs - Memsize dependent +\ msr: 0000.180a 00000000.00000000. + msr: 0000.1800 00004000.00004022. \ Data memory - 4 outstanding write ser., evict + \ INVD => WBINVD, serialize load misses. + msr: 0000.180a 00000000.00000011. \ Disable cache for table walks + msr: 0000.180b 00000000.00000000. \ Cache a0000-bffff + msr: 0000.180c 00000000.00000000. \ Cache c0000-dffff + msr: 0000.180d 00000000.00000000. \ Cache e0000-fffff +\ msr: 0000.180e 00000001.00000001. \ SMM off - default +\ msr: 0000.180f 00000001.00000001. \ DMM off - default + msr: 0000.1810 fd7ff000.fd000111. \ Video (write through) + msr: 0000.1811 fe00f000.fe000101. \ GP + DC + VP + VIP registers non-cacheable +\ msr: 0000.1812 00000000.00000000. \ Disabled - default +\ msr: 0000.1813 00000000.00000000. \ Disabled - default +\ msr: 0000.1814 00000000.00000000. \ Disabled - default +\ msr: 0000.1815 00000000.00000000. \ Disabled - default +\ msr: 0000.1816 00000000.00000000. \ Disabled - default +\ msr: 0000.1817 00000000.00000000. \ Disabled - default + +\ PCI +\ msr: 5000.2000 00000000.00105001. \ RO + msr: 5000.2001 00000000.00000017. \ Priority 1, domain 7 + msr: 5000.2002 00000000.003f003f. \ No SMIs + msr: 5000.2003 00000000.00370037. \ No ERRs + msr: 5000.2004 00000000.00000015. \ Clock gating for 3 clocks + msr: 5000.2005 00000000.00000000. \ Enable some PCI errors + msr: 5000.2010 fff01120.001a021d. \ PCI timings + msr: 5000.2011 04000300.00800f01. \ GLPCI_ARB - LX page 581 + msr: 5000.2014 00000000.00f000ff. + msr: 5000.2015 30303030.30303030. \ Cache, prefetch, write combine a0000 - bffff + msr: 5000.2016 30303030.30303030. \ Cache, prefetch, write combine c0000 - dffff + msr: 5000.2017 34343434.30303030. \ Cache, prefetch, write combine e0000 - fffff, write protect f0000 - fffff + msr: 5000.2018 000ff000.00000130. \ Cache PCI DMA to low memory 0 .. fffff +\ msr: 5000.2019 0f7ff000.00100130. \ Cache PCI DMA to high memory - Memsize dependent +\ msr: 5000.201a 4041f000.40400120. +\ msr: 5000.201a 00000000.00000000. \ Off - default + msr: 5000.201b 00000000.00000000. + msr: 5000.201c 00000000.00000000. + msr: 5000.201e 00000000.00000f00. + msr: 5000.201f 00000000.0000004b. +[ifdef] neptune + msr: 5000.201f 00000000.0000007b. +[else] + msr: 5000.201f 00000000.0000004b. +[then] +\ We don't need posted I/O writes to IDE, as we have no IDE + +\ clockgating +\ msr: 5400.2004 00000000.00000000. \ Clock gating - default +\ msr: 5400.2004 00000000.00000003. \ Clock gating + +\ chipsetinit(nb); + +\ Set the prefetch policy for various devices + msr: 5150.0001 00000000.00008f000. \ AC97 + msr: 5140.0001 00000000.00000f000. \ DIVIL + +\ Set up Hardware Clock Gating + msr: 5102.4004 00000000.000000004. \ GLIU_SB_GLD_MSR_PM + msr: 5100.0004 00000000.000000005. \ GLPCI_SB_GLD_MSR_PM + msr: 5170.0004 00000000.000000004. \ GLCP_SB_GLD_MSR_PM +\ SMBus clock gating errata (PBZ 2226 & SiBZ 3977) + msr: 5140.0004 00000000.050554111. \ DIVIL + msr: 5130.0004 00000000.000000005. \ ATA + msr: 5150.0004 00000000.000000005. \ AC97 + +\ setup_gx2(); + +\ Graphics init +\ msr: a000.2001 00000000.00000010. \ GP config (priority) \GX Only + msr: a000.2002 00000001.00000001. \ Disable GP SMI + msr: a000.2003 00000003.00000003. \ Disable GP ERR + msr: a000.2004 00000000.00000001. \ Clock gating + msr: 8000.2001 00000000.00000720. \ VG config (priority) + msr: 8000.2002 00001fff.00001fff. \ Disable SMIs + msr: 8000.2003 0000003f.0000003f. \ Disable ERRs +\ msr: 8000.2004 00000000.00000000. \ Clock gating - default +\ msr: 8000.2004 00000000.00000055. \ Clock gating + msr: 8000.2011 00000000.00000001. \ VG SPARE - VG fetch state machine hardware fix off + msr: 8000.2012 00000000.06060202. \ VG DELAY + +\ msr: 4c00.0015 00000037.00000001. \ MCP DOTPLL reset; unnecessary because of later video init + +\ More GLCP stuff + msr: 4c00.000f f2f100ff.56960444. \ I/O buffer delay controls + msr: 4c00.0016 00000000.00000000. \ Turn off debug clock + msr: 4c00.2004 00000000.00000015. \ Hardware clock gating for everything (Insyde uses 0x14) + + msr: 5000.2014 00000000.00ffffff. \ Enables PCI access to low mem + + msr: 4800.2001 00000000.00040c00. \ Set VP reference clock divider to 0xc, not 0xe + +\ 5536 region configs + msr: 5100.0002 00000000.007f0000. \ Disable SMIs + msr: 5101.0002 0000000f.0000000f. \ Disable SMIs + +\ msr: 5100.0010 44000020.00020013. \ PCI timings - already set + msr: 5100.0020 018b4001.018b0001. \ Region configs + msr: 5100.0021 010fc001.01000001. \ GPIO + msr: 5100.0022 0183c001.01800001. \ MFGPT + msr: 5100.0023 0189c001.01880001. \ IRQ mapper + msr: 5100.0024 0147c001.01400001. \ PMS + msr: 5100.0025 0187c001.01840001. \ ACPI + msr: 5100.0026 014fc001.01480001. \ AC97 + msr: 5100.0027 fe01a000.fe01a001. \ OHCI + msr: 5100.0028 fe01b000.fe01b001. \ EHCI + msr: 5100.0029 efc00000.efc00001. \ UOC + msr: 5100.002b 018ac001.018a0001. \ IDE bus master + msr: 5100.002f 00084001.00084009. \ Port 84 (what??) + msr: 5101.0020 400000ef.c00fffff. \ P2D_BM0 UOC + msr: 5101.0023 500000fe.01afffff. \ P2D_BMK Descriptor 0 OHCI + msr: 5101.0024 400000fe.01bfffff. \ P2D_BMK Descriptor 1 EHCI + msr: 5101.0083 00000000.0000ff00. \ Disable SMIs +[ifdef] lx-devel + msr: 5101.00e0 60000000.1f0ffff8. \ IOD_BM Descriptor 0 ATA IO address +[then] + msr: 5101.00e1 a0000001.480fff80. \ IOD_BM Descriptor 1 AC97 + msr: 5101.00e2 80000001.400fff80. \ IOD_BM Descriptor 2 PMS + msr: 5101.00e3 80000001.840fffe0. \ IOD_BM Descriptor 3 ACPI +\ msr: 5101.00e4 00000001.858ffff8. \ IOD_BM Descriptor 4 Don't carve ACPI into partially-emulated ranges + msr: 5101.00e5 60000001.8a0ffff0. \ IOD_BM Descriptor 5 bus master IDE +\ msr: 5101.00eb 00000000.f0301850. \ IOD_SC Descriptor 1 Don't carve ACPI into partially-emulated ranges + +[ifdef] lx-devel + msr: 5130.0008 00000000.000018a1. \ IDE_IO_BAR - IDE bus master registers +[then] + + msr: 5140.0002 0000fbff.00000000. \ Disable SMIs + + msr: 5140.0008 0000f001.00001880. \ LBAR_IRQ + msr: 5140.0009 fffff001.fe01a000. \ LBAR_KEL (USB) + msr: 5140.000b f001.000018b0. \ LBAR_SMB + msr: 5140.000c f001.00001000. \ LBAR_GPIO + msr: 5140.000d f001.00001800. \ LBAR_MFGPT + msr: 5140.000e f001.00001840. \ LBAR_ACPI + msr: 5140.000f f001.00001400. \ LBAR_PMS +\ msr: 5140.0010 fffff007.20000000. \ LBAR_FLSH0 no 5536 NAND FLASH on any LX platform +\ msr: 5140.0011 \ LBAR_FLSH1 +\ msr: 5140.0012 \ LBAR_FLSH2 +\ msr: 5140.0013 \ LBAR_FLSH3 +\ msr: 5140.0014 00000000.80070003. \ LEG_IO already set in romreset + msr: 5140.0015 00000000.00000f7d. \ BALL_OPTS - IDE pins are IDE, not NAND +\ msr: 5140.001b 00000000.07770777. \ NANDF_DATA - default +\ msr: 5140.001c 00000000.00000777. \ NANDF_CTL - default + msr: 5140.001f 00000000.00000011. \ KEL_CTRL + msr: 5140.0020 00000000.bb350a00. \ IRQM_YLOW + msr: 5140.0021 00000000.04000000. \ IRQM_YHIGH + msr: 5140.0022 00000000.00002222. \ IRQM_ZLOW +\ msr: 5140.0023 00000000.600aa5b2. \ IRQM_ZHIGH +\ teo was here + msr: 5140.0023 00000000.60baa5b2. \ IRQM_ZHIGH + msr: 5140.0025 00000000.00001002. \ IRQM_LPC +\ msr: 5140.0028 00000000.00000000. \ MFGPT_IRQ off - default +\ msr: 5140.0040 00000000.00000000. \ DMA_MAP - default +\ msr: 5140.004e 00000000.ef2500c0. \ LPC_SIRQ +\ msr: 5140.004e 00000000.effd0080. \ LPC_SIRQ + msr: 5140.004e 00000000.effd00c0. \ LPC_SIRQ + +\ USB host controller + msr: 5120.0001 0000000b.00000000. \ USB_GLD_MSR_CONFIG - 5536 page 262 + msr: 5120.0008 0000000e.fe01a000. \ USB OHC Base Address - 5536 page 266 + msr: 5120.0009 0000200e.fe01b000. \ USB EHC Base Address - 5536 page 266 FLADJ set + msr: 5120.000b 00000002.efc00000. \ USB UOC Base Address - 5536 page 266 + +\ Clear possible spurious USB Short Serial detect bit per 5536 erratum 57 + msr: 5120.0015 00000010.00000000. \ USB_GLD_MSR_DIAG + +here msr-init - constant /msr-init
Added: cpu/x86/pc/neptune/msrscan.fth =================================================================== --- cpu/x86/pc/neptune/msrscan.fth (rev 0) +++ cpu/x86/pc/neptune/msrscan.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,212 @@ +\ Dump a bunch of MSR values +: nn + safe-parse-word $number abort" bad number" +; +: msrloop + bounds ?do + i u. i rdmsr 11 ud.r cr + loop +; +: t + cr nn dup 8 u.r nn dup 4 u.r ." msrloop" cr msrloop +; + +.( LX R/W MSRs) cr + +\ msr ranges: +T 1000.2001 5 +T 1000.0020 d +T 1000.0080 7 +T 1000.008c 2 +T 1000.00a1 2 +T 1000.00a5 2 +T 1000.00a9 2 +T 1000.00ad 2 +T 1000.00c0 8 +T 1000.00d0 10 +T 1000.00e0 9 + +T 4000.2001 5 +T 4000.0020 f +T 4000.0080 7 +T 4000.008c 2 +T 4000.00a1 2 +T 4000.00a5 2 +T 4000.00a9 2 +T 4000.00ad 2 +T 4000.00c0 8 +T 4000.00d0 10 +T 4000.00e0 9 + +T 0000.2001 5 + +\ 0000.0010 1 \ TSC +\ 0000.00c1 2 \ perf event ctrs +\ 0000.0174 3 \ cs, ss, sip +\ 0000.0186 2 \ perf event ctr ctl + +T 0000.1100 1 \ instruction fetch configuration +\ T 0000.1108 5 \ btb test + +T 0000.1210 2 \ exception configuration and mode +T 0000.1250 1 \ ID configuration + +T 0000.1301 2 \ SMM and DMI + +T 0000.1700 1 \ IM config !! +T 0000.1800 1 \ DM config !! +T 0000.1801 1 \ DM config !! +T 0000.1804 1 \ DM config !! +T 0000.1808 1 \ def Region config +T 0000.180a e \ Region configs + +\ A bunch of cache and tlb stuff + +T 0000.1900 2 \ bus controller configs + +\ 0000.1908 1 \ msr lock +\ 0000.1910 1 \ real time stamp counter +\ 0000.1911 1 \ TSC low dwords + +T 0000.1920 1 \ L2 cache config !! +T 0000.1927 1 \ L2 cache treatment control !! +T 0000.1930 1 \ Power mode !! + +T 0000.1980 4 \ memory subsystem array + +T 0000.1a00 1 \ FPU modes +\ A bunch of FPU stuff + +\ A bunch of CPUID stuff + +\ -- Memory controller + +T 2000.2002 4 + +T 2000.0018 3 +T 2000.001c 2 +T 2000.0020 1 + +\ GP + +T a000.2001 5 + +\ -- DC + +T 8000.2001 5 +T 8000.0012 1 \ DC RAM Control + +\ -- VP + +T 4800.2001 5 + +T 4800.0010 2 \ VP Diagnostic and Pad Select + +\ GLCP + +T 4c00.2001 5 + +T 4c00.0008 2 +T 4c00.000b 2 +\ 4c00.000d has status bits that can't be set directly +T 4c00.000e 3 +T 4c00.0012 5 + +T 4c00.0018 1 \ Clock throttling +\ 4c00.0019 Reading this register causes entry to C2 state! +T 4c00.001c 3 \ Throttle control +\ T 4c00.0023 1 \ Debug interface +T 4c00.0031 1 \ A20M !! +T 4c00.0033 1 \ CPU INIT !! + +\ -- GLPCI + +T 5000.2001 5 + +T 5000.2010 11 + + +\ 5536 +.( 5536 MSRs) cr + +\ -- MBSB + +T 5101.0000 6 \ Responds to 5101.2000 6 too +T 5101.0020 7 +T 5101.0080 d +T 5101.00a0 b +T 5101.00c0 2 +T 5101.00d0 4 +T 5101.00e0 12 + +\ -- GLPCI_SB + +T 5100.0000 6 +T 5100.0010 1 +T 5100.0020 15 + +T 5150.0000 6 + +\ AC natives: 0 80 + +\ -- USB + +T 5120.0000 6 +T 5120.0008 4 + +\ USB natives - OHC - 0 64 p 258 +\ USB natives - EHC - 0 a8 p 259 + +\ -- ATA (don't care) + +T 5130.0000 6 +T 5130.0008 1 +T 5130.0010 6 + +\ ATA natives - 0 5 + +\ -- DIVIL (MDD) + +T 5140.0000 6 +T 5140.0008 2 +T 5140.000b 1b +T 5140.0028 3 +T 5140.0037 a +T 5140.004e 2 +T 5140.0054 4 + +\ SMB natives 0 8 +\ KEL natives 100 10 (and port 92) +\ UART natives 3f8 8 (and banks) +\ DMA natives (isa stuff) +\ RTC natives +\ GPIO natives +\ MFGPT natives (0 40) +\ ACPI natives (emulated?) +\ PM natives (emulated?) + +T 5170.0000 6 +T 5170.0008 9 +T 5170.00012 6 + +0 [if] +\ some native registers 0 50 by 4 +select screen +.( GP) cr +0 50 bounds ?do i u. i gp-base + l@ 9 u.r cr 4 +loop + +\ DC native registers 0 90 + +.( DC) cr +0 90 bounds ?do i u. i dc@ 9 u.r cr 4 +loop + +\ VP native registers - 0 134 + +.( VP) cr +ok 0 134 bounds ?do i u. i vp@ 9 u.r cr 4 +loop + +\ flat panel 400 70 by 4 +\ ok 400 70 bounds ?do i u. i vp@ 9 u.r cr 4 +loop +\ --- all 0 (system has no dcon) -- + +[then]
Added: cpu/x86/pc/neptune/neptune.bth =================================================================== --- cpu/x86/pc/neptune/neptune.bth (rev 0) +++ cpu/x86/pc/neptune/neptune.bth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,94 @@ +purpose: Construct the Open Firmware module collection + +command: &builder &this +in: ${BP}/cpu/x86/pc/neptune/build/romreset.di +\ in: ${BP}/cpu/x86/pc/neptune/build/resume.di +in: ${BP}/cpu/x86/pc/neptune/build/rmstart.img +in: ${BP}/cpu/x86/pc/neptune/build/paging.di +in: ${BP}/cpu/x86/pc/neptune/build/fw.dic +in: ${BP}/dev/geode/nandflash/build/nandflash.fc +in: ${BP}/dev/geode/ac97/build/ac97.fc +in: ${BP}/dev/usb2/hcd/ohci/build/ohci.fc +in: ${BP}/dev/usb2/hcd/ehci/build/ehci.fc +in: ${BP}/dev/usb2/device/hub/build/hub.fc +in: ${BP}/dev/usb2/device/net/build/usbnet.fc +in: ${BP}/dev/usb2/device/serial/build/usbserial.fc +in: ${BP}/dev/usb2/device/storage/build/usbstorage.fc +in: ${BP}/dev/usb2/device/keyboard/build/usbkbd.fc +in: ${BP}/dev/pci/build/pcibridg.fc +in: ${BP}/dev/dnet/build/dnet.fc +\ in: ${BP}/clients/memtest86/memtest + +build-now + +fload ${BP}/cpu/x86/pc/neptune/versions.fth +" macro: FW_VERSION DA${FW_MAJOR}${FW_MINOR}" expand$ eval + + +fload ${BP}/cpu/x86/pc/neptune/config.fth + +\ Always re-create the builton.fth file when we make a new rom.img +fload ${BP}/cpu/x86/pc/builton.bth + +fload ${BP}/forth/lib/crc32.fth + +hex + +: pad-file ( location -- ) + ofd @ fsize + 2dup u< abort" The ROM image is too large" + ?do h# ff ofd @ fputc loop +; + +.( --- Saving as neptune.rom - Direct ROM format) cr +writing neptune.rom + " romreset.di" $add-file +\ " resume.di" $add-file + + " paging.di" $add-file + " ${BP}/cpu/x86/build/inflate.bin" " inflate" $add-dropin + " fw.img" " firmware" $add-deflated-dropin + + " ${BP}/dev/usb2/hcd/ohci/build/ohci.fc" " class0c0310" $add-deflated-dropin + " ${BP}/dev/usb2/hcd/ehci/build/ehci.fc" " class0c0320" $add-deflated-dropin + " ${BP}/dev/usb2/device/hub/build/hub.fc" " usb,class9" $add-dropin + " ${BP}/dev/usb2/device/net/build/usbnet.fc" " usbnet" $add-deflated-dropin + " ${BP}/dev/usb2/device/keyboard/build/usbkbd.fc" " usb,class3,1" $add-dropin + " ${BP}/dev/usb2/device/serial/build/usbserial.fc" " usbserial" $add-deflated-dropin + " ${BP}/dev/usb2/device/storage/build/usbstorage.fc" " usbstorage" $add-deflated-dropin + + " ${BP}/dev/geode/ac97/build/ac97.fc" " pci1022,2093" $add-deflated-dropin + + " builton.fth" " probe-" $add-dropin + " ${BP}/ofw/fcode/memtest.fth" " memtest.fth" $add-deflated-dropin + + " ${BP}/ofw/inet/telnetd.fth" " telnetd" $add-deflated-dropin + + " ${BP}/ofw/termemu/gallant.obf" " font" $add-deflated-dropin + + " ${BP}/dev/dnet/build/dnet.fc" " pci1573,da0e" $add-deflated-dropin + +[ifdef] use-memtest86 + " ${BP}/clients/memtest86/memtest" " memtest" $add-deflated-dropin +[then] + " ${BP}/dev/pci/build/pcibridg.fc" " class060400" $add-deflated-dropin + + /rom h# 400 - pad-file \ rmstart image must start 0x400 from end + " rmstart.img" $add-file + +\ Insert the revision signature +/rom h# 40 - ofd @ fseek +" DA1 ${FW_VERSION} D1${FW_MAJOR}" expand$ ofd @ fputs + +/l buffer: crcbuf +/rom buffer: filebuf +0 ofd @ fseek + +\ Read the entire image, compute the CRC, and store it h# 30 from the end +filebuf /rom ofd @ fgets /rom <> abort" Can't read back image" +0 crctab filebuf /rom ($crc) crcbuf ! + +/rom h# 30 - ofd @ fseek +crcbuf /l ofd @ fputs + +ofd @ fclose
Added: cpu/x86/pc/neptune/pcinode.fth =================================================================== --- cpu/x86/pc/neptune/pcinode.fth (rev 0) +++ cpu/x86/pc/neptune/pcinode.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,111 @@ +\ See license at end of file +purpose: PCI bus package + +[ifdef] addresses-assigned +\ patch false true master-probe +: nonvirtual-probe-state? ( -- flag ) + my-space preassigned-pci-slot? if false else probe-state? then +; +patch nonvirtual-probe-state? probe-state? map-in + +\ patch noop assign-all-addresses prober +warning @ warning off +: assign-pci-addr ( phys.lo phys.mid phys.hi len | -1 -- phys.hi paddr size ) + 2dup -1 <> swap preassigned-pci-slot? and if ( phys.lo phys.mid phys.hi len ) + 2swap 2drop >r ( phys.hi r: len ) + dup config-l@ 1 invert and r> ( phys.hi paddr len ) + exit + then + assign-pci-addr +; +warning ! + +: ?clear-addresses ( -- ) + my-space preassigned-pci-slot? if exit then clear-addresses +; +patch ?clear-addresses clear-addresses populate-device-node +patch ?clear-addresses clear-addresses populate-device-node + +: ?temp-assign-addresses ( -- ) + my-space preassigned-pci-slot? if exit then temp-assign-addresses +; + +patch ?temp-assign-addresses temp-assign-addresses find-fcode? + +\ These patches leave devices turned on +\ patch 2drop my-w! populate-device-node +\ : or-w! ( bitmask reg# -- ) tuck my-w@ or swap my-w! ; +\ patch or-w! my-w! find-fcode? +\ patch 2drop my-w! find-fcode? +[then] + +h# 0000 encode-int " slave-only" property +h# 0000 encode-int \ Mask of implemented add-in slots +" slot-names" property + +also forth definitions + + " 2,3,4,5,6,7,8,9,a,b,c,d,e,f" dup config-string pci-probe-list + +previous definitions + +h# b000.0000 to first-mem +h# c000.0000 to mem-space-top +h# 0000.8000 to first-io \ Avoid mappings established by BIOS + +\ Determine the parent interrupt information (the "interrupt line" in PCI +\ parlance) from the child's "interrupt pin" and the child's address, +\ returning "int-line true" if the child's interrupt line register should +\ be set or "false" otherwise. +: assign-int-line ( phys.hi.func INTx -- irq true ) + \ Reiterate the value that is already in the int line register, + \ which was placed there by lower level init code + + \ XXX unnecessary if we do VSA + over h# f800 and h# 7000 = if 2drop h# b true exit then + + drop h# 3c + config-b@ true +; + +\ Just use the global versions +warning @ warning off +: config-b@ ( config-adr -- b ) config-b@ ; +: config-w@ ( config-adr -- w ) config-w@ ; +: config-l@ ( config-adr -- l ) config-l@ ; +: config-b! ( b config-adr -- ) config-b! ; +: config-w! ( w config-adr -- ) config-w! ; +: config-l! ( l config-adr -- ) config-l! ; +warning ! + +\ The io-base handling really ought to be in the root node, but +\ that would require more changes than I'm willing to do at present. +warning @ warning off +: map-out ( vaddr size -- ) + over io-base u>= if 2drop exit then ( vaddr size ) + map-out ( ) +; +warning ! + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/probemem.fth =================================================================== --- cpu/x86/pc/neptune/probemem.fth (rev 0) +++ cpu/x86/pc/neptune/probemem.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,123 @@ +\ See license at end of file +purpose: Create memory node properties and lists + +\ All RAM, including that assigned to the frame buffer +: total-ram ( -- ramsize ) + h# 20000018 msr@ nip ( msr.hi ) + dup d# 12 rshift h# f and ( msr.hi dimm0size-code ) + d# 22 + 1 swap lshift ( msr.hi dimm0size ) + swap dup h# f0000 and h# 70000 = if ( dimm0size msr.hi ) + \ DIMM1 Not Installed + drop ( total-size ) + else ( dimm0size msr.hi ) + d# 28 rshift h# f and ( dimm0size dimm1size-code ) + d# 22 + 1 swap lshift ( dimm0size dimm1size ) + + ( total-size ) + then +; + +\ Offset of frame buffer/display memory within the memory array +: fb-offset ( -- offset ) h# 1808 msr@ drop h# 0fffff00 and 4 lshift ; + +\ Excludes RAM assigned to the frame buffer +: system-ram ( -- extant avail ) + fb-offset +; + +\ This may require adjustment if we steal additional SMI memory +: fbsize ( -- ) total-ram system-ram - ; + +dev /memory + +\ Excludes RAM already used for page tables +: ram-limit ( -- addr ) mem-info-pa la1+ l@ ; + +: release-range ( start-adr end-adr -- ) over - release ; + +: probe ( -- ) + 0 total-ram reg \ Report extant memory + + \ Put h# 10.0000-1f.ffff and 28.0000-memsize in pool, + \ reserving 0..10.0000 for the firmware + \ and 20.0000-27.ffff for the "flash" + +\ h# 0.0000 h# 02.0000 release \ A little bit of DMA space, we hope +\ h# 10.0000 h# 0f.ffff release +\ h# 28.0000 h# 80.0000 release-range + +\ Release some of the first meg, between the page tables and the DOS hole, +\ for use as DMA memory. + mem-info-pa 2 la+ l@ h# a.0000 release-range \ Below DOS hole + +[ifdef] virtual-mode + \ Release from 1M up to the amount of unallocated (so far) memory + dropin-base ram-limit u< if + \ Except for the area that contains the dropins, if they are in RAM + h# 10.0000 dropin-base release-range + dropin-base dropin-size + ram-limit release-range + else + h# 10.0000 ram-limit release-range + then +[else] + h# 10.0000 system-ram release-range + + fw-pa /fw-ram 0 claim drop + + \ Account for the dropin area if it is in RAM + dropin-base system-ram u< if + dropin-base dropin-size 0 claim + then + + initial-heap swap >physical swap 0 claim drop +[then] +; + +[ifndef] 8u.h +: 8u.h ( n -- ) push-hex (.8) type pop-base ; +[then] +: .chunk ( adr len -- ) ." Testing memory at: " swap 8u.h ." size " 8u.h cr ; +: selftest ( -- error? ) + " available" get-my-property if ." No available property" cr true exit then + ( adr len ) + begin ?dup while + 2 decode-ints swap ( rem$ chunk$ ) + 2dup .chunk ( rem$ chunk$ ) +[ifdef] virtual-mode + 2dup over swap 3 mmu-map ( rem$ chunk$ ) +[then] + memory-test-suite if 2drop true exit then ( rem$ ) + repeat drop + false +; + +device-end + +also forth definitions +stand-init: Probing memory + " probe" memory-node @ $call-method +; +previous definitions + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/rmstart.bth =================================================================== --- cpu/x86/pc/neptune/rmstart.bth (rev 0) +++ cpu/x86/pc/neptune/rmstart.bth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,11 @@ +\ See license at end of file +purpose: Build script fo x86 real mode startup code. + +command: &builder &this +build-now + +\ To do this on the geode, extra init may be necessary +\ create debug-reset + +fload ${BP}/cpu/x86/pc/neptune/config.fth +fload ${BP}/cpu/x86/pc/neptune/rmstart.fth
Added: cpu/x86/pc/neptune/rmstart.fth =================================================================== --- cpu/x86/pc/neptune/rmstart.fth (rev 0) +++ cpu/x86/pc/neptune/rmstart.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,310 @@ +\ See license at end of file +purpose: x86 real mode startup code. + +command: &native &this +build-now + +\ 386/486 processors begin executing at address ffff.fff0 in real mode +\ when they come out of reset. Normally, that address would not be +\ accessable in real mode, but the processor does some magic things to +\ the Code Segment register so that the high order address lines are +\ "boosted" up to the ffff.xxxx range just after reset. The "boosting" +\ persists until the CS register is modified (i.e. with a far jump). + +\ The other segment register are not "boosted", so they can only access +\ the normal real mode range, essentially just the first megabyte. + +\ The startup code must establish a Global Descriptor Table containing +\ suitable mappings, and then enter protected mode. The space between +\ ffff.fff0 and the end of the ROM is insufficient to do this, so the +\ first few instructions must jump elsewhere, to a place where there +\ is enough room. + +\ The code below is rather tricky, especially since the Forth assembler +\ always assumes 32-bit operand size and 32-bit addressing modes. +\ The code is executing in 16-bit mode, so the assembler must be used +\ carefully to ensure generation of the correct opcodes, and override +\ prefixes where necessary. + + +\needs start-assembling fload ${BP}/cpu/x86/asmtools.fth +\needs write-dropin fload ${BP}/forth/lib/mkdropin.fth + +hex + +start-assembling +hex + +\ Addresses where the following items will be located in the processor's +\ physical address space: + +\ ffff.fc00: GDT ( 3 entries ) + padding +\ ffff.fc20: GDT address + size ( 6 bytes ) plus padding +\ ffff.fc28: Startup code plus padding +\ ffff.fff0: Reset entry point - jump to startup code plus padding to end + +\ Assembler macros for startup diagnostics + +\ write a byte to an ISA port +: risa-c! ( n a - ) " # dx mov # al mov al dx out " evaluate ; + +: num>asc ( al: b -- al: low ah: hi ) + " al ah mov " evaluate + " h# f # al and " evaluate + " h# 9 # al cmp > if h# 57 # al add else h# 30 # al add then " evaluate + + " ah shr ah shr ah shr ah shr " evaluate \ shift down four bits + " h# f # ah and " evaluate + " h# 9 # ah cmp > if h# 57 # ah add else h# 30 # ah add then " evaluate + + " al bl mov ah al mov bl ah mov " evaluate + +; + +[ifdef] debug-reset +.( debug reports enabled ) cr +\ Assembler macro to assemble code to send the character "char" to COM1 +: report ( char -- ) + " begin 3fd # dx mov dx al in 20 # al and 0<> until" evaluate + ( char ) " # al mov 3f8 # dx mov al dx out " evaluate + " begin 3fd # dx mov dx al in 20 # al and 0<> until" evaluate +; +\ Put character in al +: reportc + " al ah mov " eval + " begin 3fd # dx mov dx al in 20 # al and 0<> until" evaluate + ( char ) " ah al mov 3f8 # dx mov al dx out " evaluate + " begin 3fd # dx mov dx al in 20 # al and 0<> until" evaluate +; +: init-com1 ( -- ) + 1 3fc risa-c! \ DTR on + 80 3fb risa-c! \ Switch to bank 1 to program baud rate + 01 3f8 risa-c! \ Baud rate divisor low - 115200 baud + 0 3f9 risa-c! \ Baud rate divisor high - 115200 baud + 3 3fb risa-c! \ 8 bits, no parity, switch to bank 0 +; + +[else] +: report ( char -- ) drop ; +: reportc ( -- ) ; +[then] + +hex + +\ odds for testing, evens for release +d# 8 constant loader-version# \ monotonic +2 constant loader-format# \ >1 when crc present + +.( ROM loader: version# ) loader-version# .d +.( , format# ) loader-format# .d cr + +\ Real Mode Startup + +hex + +label rm-startup \ Executes in real mode with 16-bit operand forms + + \ ffff.fc00 GDT + + 0 w, 0 l, 0 w, \ 0 Mandatory null descriptor + 0 w, 0 l, 0 w, \ * Another null descriptor + ffff w, 9b.000000 l, 00.c.f w, \ 10 Code, linear=physical, full 4Gbytes + ffff w, 93.000000 l, 00.c.f w, \ 18 Data, linear=physical, full 4Gbytes + + \ ffff.fc20 GDT limit + address + + 1f w, ffff.fc00 l, \ # slots (4 * 8 - 1) , starting address + 0 w, \ Padding + + \ ------->>>>> Startup code, reached by branch from main entry point below + \ + \ ffff.fc28 + + here \ Mark the beginning of this code so its size may be determined + \ and so that a jump to it may be assembled later. + + 16-bit + + h# 01 # al mov al h# 80 # out + + \ This code is highly optimized because it runs when the CPU is in + \ it slowest operation mode, so we want to get it done fast. + \ GLCP_SYS_RSTPLL - page 406 + \ If the PLL is already set up, we don't redo the 5536 setup + op: h# 4c000014 # cx mov rdmsr \ MSR value in dx,ax + al bl mov + op: h# fc00.0000 # ax and 0= if \ Start the PLL if not already on + +[ifndef] lx-pll-autoconfig + 0 [if] + \ pll manual configuration + rdmsr \ Get base MSR value with divisors + op: h# 07de.0000 # ax or \ Set the startup time (de) and breadcrumb (4) + \ op: h# 0000.025d # dx mov \ from coreboot + \ op: h# 0000.03d7 # dx mov \ PLL value for 333 MB clk, 500 CPU + op: h# 0000.04d9 # dx mov \ PLL value for 333 MB clk, 433 CPU + + wrmsr \ Put in the base value + op: h# 0000.1800 invert # ax and \ Turn off the BYPASS bits + + h# 6001 # ax or \ Set PD, RESETPLL + + [else] + \ pll manual configuration (easier version..) + + \ op: h# 0000.03DD # dx mov \ 500 MHz + 266 MHz + \ op: h# 0000.02DD # dx mov \ 500 MHz + 200 MHz + \ op: h# 0000.02D5 # dx mov \ 400 MHz + 200 MHz + \ op: h# 0000.04d9 # dx mov \ 433 MHz + 333 MHz + op: h# 0000.04DD # dx mov \ 500 MHz + 333 MHz + \ op: h# 0000.05DD # dx mov \ 500 MHz + 400 MHz + + + \ op: h# 04DE.6001 # ax mov + op: h# 04FF.6001 # ax mov \ longer reset time for pll startup + + [then] + +[else] + \ pll auto configuration from bootstrap pin + + op: h# 00ff.0000 invert # ax and + op: h# 00de.0000 # ax or + + op: h# 0000.1800 invert # ax and + op: h# 0700.6001 # ax or +[then] + wrmsr \ Start the PLL and reset the CPU + then + + \ Return to here after the reset + h# 02 # al mov al h# 80 # out + +[ifdef] init-com1 + init-com1 +[then] + +[ifdef] debug-reset +carret report \ send it to com1 if you can... +linefeed report \ send it to com1 if you can... +ascii F report \ send it to com1 if you can... +[then] + + \ The following instruction uses the CS: segment override because + \ that segment is currently "boosted" up into the ROM space. + \ It uses the operation size override to load a 32-bit pointer. + \ The address override is not used; the GDT limit/address data structure + \ above is reachable with a 16-bit address and through the "boosted" + \ code segment. + + op: cs: 0f c, 01 c, 16 c, fc20 w, \ lgdte cs:[fc20] Setup GDT + + op: cr0 bx mov \ Get existing CR0 value + + 1 # bl or \ Set "protected mode" bit + + bx cr0 mov \ Enter protected mode + eb c, 0 c, \ jmp to next location to flush prefetch queue + \ note: CPL is now 0 + + h# 03 # al mov al h# 80 # out + + \ We are in protected mode, but we are still executing from old + \ 16-bit code segment, and will continue to do so until the far jump + \ below + +[ifdef] debug-reset +ascii o report +[then] + + \ set segment registers + bx bx xor \ Clear high byte + 18 # bl mov \ Data segment selector + bx ds mov \ Set segment register + bx es mov \ Set segment register + bx fs mov \ Set segment register + bx gs mov \ Set segment register + +[ifdef] debug-reset +ascii r report +[then] + + bx ss mov \ Set segment register + +[ifdef] debug-reset +ascii t report +ascii h report +[then] + + h# 0f # al mov al h# 80 # out + + op: h# 1430 # dx mov op: dx ax in op: h# 9999 # ax cmp = if + h# 34 # al mov al h# 70 # out \ Write to CMOS 0x34 + h# 0f # al mov al h# 71 # out \ Write value 01 + then + + op: ad: ResetBase h# 10 #) far jmp \ Jump to Forth startup + + \ Pad the startup code so that the main entry point ends up at the + \ correct address. + + here over - ( adr , size-of-preceding-code ) + + \ ffff.fc28 is the location of the code that follows the GDT + ffff.fff0 ffff.fc28 - swap - ( address #bytes-to-pad ) + + \ The code mustn't extend past ffff.ffc0, because that is where PC + \ manufacturers put the 0x10-byte BIOS version string. + dup h# 30 - also forth 0< previous abort" Real mode startup code is too big" + + also forth here over h# ff fill previous \ fill with FFs + ( #bytes-to-pad ) allot \ Pad out to ffff.fff0 + + \ ------->>>>> Main Entry Point + \ + \ ffff.fff0 - This is the hardwired address where the processor jumps + \ when it comes out of reset + + 16-bit + + cli cld \ Turn off interrupts (does not affect NMI) + #) jmp \ Relative jump back to ffff.fc28 + 0 w, 0 c, \ align "pad" to end of ROM + loader-version# l, \ version# + loader-format# w, \ "format" (>1 when crc present) + ffff w, \ placeholder for crc + +end-code + +end-assembling + +writing rmstart.img +rm-startup here over - ofd @ fputs +ofd @ fclose + +here rm-startup - constant /rm-startup +/rm-startup h# 400 <> abort" Real mode startup code is not the right size" + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/romreset.bth =================================================================== --- cpu/x86/pc/neptune/romreset.bth (rev 0) +++ cpu/x86/pc/neptune/romreset.bth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,199 @@ +\ See license at end of file +purpose: Build file for dropin dispatcher - version for direct ROM startup + +command: &builder &this +build-now + +fload ${BP}/cpu/x86/pc/neptune/config.fth \ Address configuration + + +\needs start-assembling fload ${BP}/cpu/x86/asmtools.fth +\needs write-dropin fload ${BP}/forth/lib/mkdropin.fth + +fload ${BP}/cpu/x86/mmuparam.fth + +\ startmacros.fth defines some assembler macros that make MSR and I/O port +\ access very easy by hiding the details of register use. + +fload ${BP}/dev/geode/startmacros.fth + +hex + +fload ${BP}/cpu/x86/pc/finddi.fth \ find-dropin and other tools + +h# 3e.0000 constant inflate-base +h# 30.0000 constant workspace + +: pulse-tp ( -- ) + [ also assembler ] + 1. 4c00.0016 set-msr + 10. 4c00.000c set-msr + 20. 4c00.000c set-msr + 10. 4c00.000c set-msr + [ previous ] +; + + +start-assembling + +label my-entry + e9 c, 0 , \ To be patched later +end-code + +[ifdef] debug-startup +fload ${BP}/cpu/x86/pc/dot.fth \ Numeric output +[then] + +fload ${BP}/cpu/x86/pc/romfind.fth \ find-dropin + +label startup + h# 10 # al mov al h# 80 # out + + \ The next few MSRs allow us to access the 5536 + \ EXTMSR - page 449 \ Use PCI device #F for port 2 + 00000000.00000f00. 5000201e set-msr \ cs5536_setup_extmsr(void) + + \ write IDSEL to the write once register at address 0x0000 + 02000000 0 port-wl \ This is the default value so we need not set it + + \ setup CPU interface serial to mode C on both sides + 44000020.00200013. 51000010 set-msr \ 5536 p 229 + + \ Set up GPIO base register + 0000f001.00001000. 5140000c set-msr \ GPIO BAR + + + \ Init Internal UART + \ enable GPIO 8 to OUT AUX1, 9 to IN_AUX1 + 100 dup 1004 port-wl 1010 port-wl \ GPIOL_OUTPUT_ENABLE, GPIOL_OUT_AUX1_SELECT + 200 dup 1020 port-wl 1034 port-wl \ GPIOL_INPUT_ENABLE, GPIOL_IN_AUX1_SELECT + + \ set address to 3f8 + 51400014 rmsr \ MDD_LEG_IO + h# 00007.0000 # ax or + 51400014 wmsr + + + 00000000.00000001. 5140003A set-msr \ SOFTRESET->MDD_UART1_CONF + 00000000.00000012. 5140003A set-msr \ DEVEN | EN_BANKS -> MDD_UART1_CONF + + + \ uart_init,serial.c + \ This is a garden-variety 8250 UART setup sequence + 0 3f9 port-wb \ disable interrupt + 1 3fa port-wb + 83 3fb port-wb \ DLAB + 1 3f8 port-wb \ 115200 divisor low + 0 3f9 port-wb \ 115200 divisor high + 3 3fb port-wb \ !DLAB + \ At this point we could send characters out the serial port + \ End of serial init + + char + 3f8 port-wb begin 3fd port-rb 40 bitand 0<> until + + h# 11 # al mov al h# 80 # out + \ Init memory controller + + \ sdram_initialize,generic_sdram.c + \ sdram_set_spdregisters(),auto.c + + \ The LX devel board has only 512M ROM, but assigning 1M of address space is harmless + 25fff002.10f80000. 1808 set-msr \ 1M ROM at fff0.0000, system RAM limit at 0f80.0000 + 2000000f.7ff00100. 10000028 set-msr \ Top of memory at 0f7f.ffff + 212800fd.7fffd000. 10000029 set-msr \ Range Offset - Frame buffer at PA fd00.0000 maps to RAM at 0f80.0000 +\ XXX do we need to make the OFW area cacheable via MSR 1817 ? + 10076013.00005040. 20000018 set-msr \ DIMM1 empty, DIMM0 256 MB, 1 module bank, 8K pages + 2000000f.7ff00100. 4000002c set-msr \ DMA to memory from 1M to RAM limit at 0f80.0000 + 0f7ff000.00100130. 50002019 set-msr \ PCI DMA to memory from 1M to RAM limit at 0f80.0000 + + \ 20000019 rmsr \ SDRAM timing and mode program + + 00000000.2814d352. 00001981 set-msr \ Memory delay values + 00000000.1068334d. 00001982 set-msr \ Memory delay values + 00000106.83104104. 00001983 set-msr \ Memory delay values + 00000000.00000001. 00001980 set-msr \ Enable memory delays + + \ olpc: 18000100.3b8332a3. + \ coreboot: 18000100. 364221a3. + \ coreboot: nuovo pll 386222a3 + 18000100.364221a3. 20000019 set-msr + + \ The RAM controller is now set up + + \ Init the SDRAMs + \ sdram_enable,src/northbridge/amd/gx2/raminit.c + + \ Clock gating for PMode + \ Clocks always on in mode 1, hardware gating in mode 0 +\ 20002004 rmsr 4 bitclr 1 bitset 20002004 wmsr \ GX p 199 + 1. 20002004 set-msr \ GX p 199 + + \ Delay on exit from power mode 1, use unbuffered RAM + 140dd101. 2000001a set-msr \ MC_CF1017_DATA LX p 231 + 00000200.00000000. 20000020 set-msr \ Power mode entry and exit delays + + \ Unmask CKE1 and CKE0 + 1000. 2000001d set-msr \ MC_CFCLK_DBG Clear 300 bits, don't tristate in IDLE + + \ Reset memory controller + 20000018 rmsr \ MC_CF07_DATA + 2 bitset 20000018 wmsr + 2 bitclr 20000018 wmsr + + char b 3f8 port-wb begin 3fd port-rb 40 bitand 0<> until + h# 12 # al mov al h# 80 # out + +fload ${BP}/dev/geode/draminit.fth + + \ Last-minute check for LX erratum 34 - reset if the DLL didn't start correctly + h# 4c000017 rmsr h# 10 bitand 0<> if \ LX branch + h# 4c00000f rmsr h# 7ff bitclr h# 4 bitset h# 4c00000f wmsr \ Set DLL_OV + h# 4c00000f rmsr h# 7ff # ax and h# 104 # ax cmp = if \ Check the result + \ The value 104 indicates that the DLL did not start, so we must reset + char x 3f8 port-wb begin 3fd port-rb 40 bitand 0<> until + h# FA # al mov al h# 80 # out + 1. 5140.0017 set-msr + then + then + + \ Now we can use the stack and do conventional subroutine calls + + h# 1f # al mov al h# 80 # out + fload ${BP}/cpu/x86/pc/resetend.fth + + char c 3f8 port-wb begin 3fd port-rb 40 bitand 0<> until +end-code + +also 386-assembler +startup my-entry put-branch +previous + +end-assembling + +writing romreset.di +asm-base here over - 0 " reset" write-dropin +ofd @ fclose + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/neptune/versions.fth =================================================================== --- cpu/x86/pc/neptune/versions.fth (rev 0) +++ cpu/x86/pc/neptune/versions.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,5 @@ +\ Version numbers of items included in the OLPC firmware image + +\ The overall firmware revision +macro: FW_MAJOR A +macro: FW_MINOR 02
Added: cpu/x86/pc/neptune/vsapci.fth =================================================================== --- cpu/x86/pc/neptune/vsapci.fth (rev 0) +++ cpu/x86/pc/neptune/vsapci.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,210 @@ +\ See license at end of file +purpose: Simulates PCI configuration headers for Geode on-chip devices + +\ This modifies OFW's PCI configuration access routines so that some Geode +\ on-chip devices appear to have PCI configuration headers, although they +\ don't really have hardware implementing same. This makes it possible +\ to discard the elaborate VSA code, which simulates various bits of +\ PC and PCI legacy hardware by trapping access to certain registers and +\ running System Management Mode code to fake their semantics. +\ The code here has the same general effect as the VSA code, but it is +\ much simpler because it hooks in at an appropriate place in the software, +\ instead of having to simulate the hardware register access semantics. + +\ see ~/OLPC/vsa/sysmgr/topology.c +\ see ~/OLPC/vsa/sysmgr/pci_pm.c + +\ 0: vendor 2: device 4: command 6: status +\ 8.1: rev 9.3: class c: /cache-line d: latency e: header f: BIST + +hex +create nb-hdr \ All R/O except cmd/stat, cache line size, latency + fffffffc , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + + 28100b , 2200005 , 6000021 , 80f808 , + ac1d , 0 , 0 , 0 , \ I/O BAR - base of virtual registers + 0 , 0 , 0 , 28100b , + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + +create lxfb-hdr \ All R/O except cmd/stat and cache line size + ff800000 , ffffc000 , ffffc000 , ffffc000 , + 0 , 0 , 0 , 0 , + + 30100b , 2200002 , 3000000 , 8 , + fb-pci-base , gp-pci-base , dc-pci-base , vp-pci-base , \ FB, GP, DC, VP + 0 , 0 , 0 , 30100b , \ VIP (LX only) + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , \ Interrupt goes at 5c for LX + 3d0 , 3c0 , a0000 , 0 , \ VG IO, VG IO, EGA FB, MONO FB + 0 , 0 , 0 , 0 , + +create isa-hdr + fffffff8 , ffffff00 , ffffffc0 , ffffffe0 , + ffffff80 , ffffffc0 , 0 , 0 , + + 20901022 , 2a00049 , 6010003 , 802000 , + 18b1 , 1001 , 1801 , 1881 , \ SMB-8 GPIO-256 MFGPT-64 IRQ-32 + 1401 , 1841 , 0 , 20901022 , \ PMS-128 ACPI-64 + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , aa5b , \ interrupt steering + 0 , 0 , 0 , 0 , + +create aes-hdr \ LX security block + ffffc000 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + + 20821022 , 2a00006 , 10100000 , 8 , + aes-pci-base , 0 , 0 , 0 , \ BAR + 0 , 0 , 0 , 20821022 , + 0 , 0 , 0 , 10e , \ INTA, IRQ 14 + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + +0 [if] \ Turned off +create nand-hdr \ Doesn't appear as a PCI device, and kernel doesn't care +[then] + +create ide-hdr + 0 , 0 , 0 , 0 , + fffffff0 , 0 , 0 , 0 , \ Maybe wrong + + 209a1022 , 2a00041 , 1018001 , f800 , + 0 , 0 , 0 , 0 , + 18a1 , 0 , 0 , 209a1022 , + 0 , 0 , 0 , 0 , + 0 , 0 , a8a8a8a8 , ffff00ff , + 3030303 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + +create ac97-hdr + ffffff80 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + + 20931022 , 2a00041 , 4010001 , 0 , + 1481 , 0 , 0 , 0 , \ I/O BAR-128 + 0 , 0 , 0 , 20931022 , + 0 , 0 , 0 , 205 , \ IntB , IRQ5 + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + +create ohci-hdr + fffff000 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + + 20941022 , 2300006 , c031002 , 0 , + ohci-pci-base , 0 , 0 , 0 , \ MEMBAR-1000 + 0 , 0 , 0 , 20941022 , + 0 , 40 , 0 , 40a , \ CapPtr INT-D, IRQ A + c8020001 , 0 , 0 , 0 , \ Capabilities - 40 is R/O, 44 is mask 8103 (power control) + 0 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + +create ehci-hdr + fffff000 , 0 , 0 , 0 , + 0 , 0 , 0 , 0 , + + 20951022 , 2300006 , c032002 , 0 , + ehci-pci-base , 0 , 0 , 0 , \ MEMBAR-1000 + 0 , 0 , 0 , 20951022 , + 0 , 40 , 0 , 40a , \ CapPtr INT-D, IRQ A + c8020001 , 0 , 0 , 0 , \ Capabilities - 40 is R/O, 44 is mask 8103 (power control) +\ 1 , 40080000 , 0 , 0 , \ EECP - see section 2.1.7 of EHCI spec + 01000001 , 00000000 , 0 , 0 , \ EECP - see section 2.1.7 of EHCI spec + 2020 , 0 , 0 , 0 , \ (EHCI page 8) 60 SBRN (R/O), 61 FLADJ (R/W), PORTWAKECAP + +create ff-loc -1 , +create 00-loc 0 , + +variable hdr-offset +variable bar-probing + +: do-special ( value adr -- ) + drop ( value ) + -1 = ( probing? ) + hdr-offset @ h# 10 h# 2c within and bar-probing ! + \ XXX need to decode EHCI power management stuff +; + +: +hdr ( offset hdr-adr -- adr ) + over hdr-offset ! ( offset hdr-adr ) \ Save for writing + bar-probing @ if ( offset hdr-adr ) + h# 10 - + \ Index into bar sizes part + else + h# 20 + + \ Index into values part + then + bar-probing off +; +: geode-map ( adr -- data-adr ) + dup h# f0 and h# 70 >= if drop 00-loc exit then ( adr ) + dup h# 7f and swap h# ff00 and case ( offset ) + h# 7800 of isa-hdr endof +\ h# 7900 of nand-hdr endof + h# 7a00 of ide-hdr endof + h# 7b00 of ac97-hdr endof + h# 7c00 of ohci-hdr endof + h# 7d00 of ehci-hdr endof + h# 800 of nb-hdr endof + h# 900 of lxfb-hdr endof + h# a00 of aes-hdr endof + ( default ) 2drop ff-loc exit + endcase + +hdr +; + +\ The standard cf8/cfc dance +: config-map-m1 ( config-adr -- port ) + dup 3 invert and h# 8000.0000 or h# cf8 pl! ( config-adr ) + 3 and h# cfc or io-base + +; + +: virtual-pci-slot? ( config-adr -- flag ) + d# 11 rshift h# 1fff and dup h# f = swap 1 = or +; + +: preassigned-pci-slot? ( config-adr -- flag ) + drop true +; + +: config-setup ( a1 -- a2 special? ) + dup virtual-pci-slot? ( a1 special ) + if geode-map true else config-map-m1 false then +; + +: config-b@ ( a -- b ) config-setup drop rb@ ; +: config-w@ ( a -- w ) config-setup drop rw@ ; +: config-l@ ( a -- l ) config-setup drop rl@ ; + +: config-b! ( b a -- ) config-setup if do-special else rb! then ; +: config-w! ( w a -- ) config-setup if do-special else rw! then ; +: config-l! ( l a -- ) config-setup if do-special else rl! then ; + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: dev/dnet/dnet.bth =================================================================== --- dev/dnet/dnet.bth (rev 0) +++ dev/dnet/dnet.bth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,14 @@ +purpose: Load file for Lattice Ethernet interface (dnet) + +command: &tokenize &this +build-now + +silent on + +begin-tokenizing dnet.fc + +FCode-version2 +fload ${BP}/dev/dnet/dnet.fth +end0 + +end-tokenizing
Added: dev/dnet/dnet.fth =================================================================== --- dev/dnet/dnet.fth (rev 0) +++ dev/dnet/dnet.fth 2008-08-06 07:06:30 UTC (rev 870) @@ -0,0 +1,348 @@ +purpose: Ethenet Driver for Lattice Ethernet device (dnet) +\ See license at end of file + +hex +headers + +: copyright ( -- ) + ." Copyright (c) 2008 Dave Srl. All Rights Reserved." cr +; + +\ Register offsets from the adapter�s base address + +\ TODO remove the following +0 constant control \ 1 byte W/O - writing one bits causes things to happen +2 constant unicast-addr \ 6 bytes R/W - Ethernet address for reception +8 constant xmit-status \ 1 byte - 0 => busy 1 => okay else => error +9 constant xmit-fifo \ 1 byte - write repetitively to setup packet +a constant xmit-len \ 16 bits - length of packet to send +c constant rcv-rdy \ 1 byte - count of waiting packets +d constant rcv-fifo \ 1 byte - read repetitively to remove first packet +e constant rcv-len \ 16 bits +10 constant local-addr \ 6 bytes R/O - Factory-assigned Ethernet address +\ until here + + +\ dnet register definition + +0 constant rx-len-fifo +4 constant rx-data-fifo +8 constant tx-len-fifo +c constant rx-data-fifo + +100 constant verid +104 constant intr-src +108 constant intr-enb +10c constant rx-status +110 constant tx-status +114 constant rx-frames-cnt +118 constant tx-frames-cnt +11c constant rx-fifo-th +120 constant tx-fifo-th +124 constant sys-ctl +128 constant pause-tmr + +200 constant macreg-data +204 constant macreg-addr +1 d# 31 << constant macreg-write + +\ TODO: dnet rx & tx statistics counter registers + + +\ macreg register definition +0 constant macreg-mode +2 constant macreg-rxtx-mode +4 constant macreg-max_pkt_size +8 constant macreg-igp +a constant macreg-mac_addr_0 +c constant macreg-mac_addr_1 +e constant macreg-mac_addr_2 +12 constant macreg-tx_rx_sts +14 constant macreg-gmii_mng_ctl +16 constant macreg-gmii_mng_dat + +100000 constant /regs \ Total size of adapter�s register bank +10000000 constant /real-regs \ Total size of adapter�s register bank + +: map-in ( addr space size -- virt ) " map-in" $call-parent ; + +: map-out ( virt size -- ) " map-out" $call-parent ; + +: my-w@ ( offset -- w ) my-space + " config-w@" $call-parent ; +: my-w! ( w offset -- ) my-space + " config-w!" $call-parent ; + +" ethernet" device-name +" Lattice,tri-speed-eth" encode-string " compatible" property +" network" device-type + +\ Some of Apple�s Open Firmware implementations have a bug in their map-in method. The +\ bug causes phys.lo and phys.mid to be treated as absolute addresses rather than +\ offsets even when working with relocatable addresses. +\ To overcome this bug, the Open Firmware Working Group in conjunction with Apple has +\ adopted a workaround that is keyed to the presence or absence of the add-range method +\ in the PCI node. If the add-range method is present in an Apple ROM, the map-in +\ method is broken. If the add-range property is absent, the map-in method behaves +\ correctly. +\ The following methods allow the FCode driver to accomodate both broken and working +\ map-in methods. +: map-in-broken? ( -- flag ) + \ Look for the method that is present when the bug is present + " add-range" my-parent ihandle>phandle ( adr len phandle ) + find-method dup if nip then ( flag ) \ Discard xt if present +; + +\ Return phys.lo and phys.mid of the address assigned to the PCI base address +\ register indicated by phys.hi . +: get-base-address ( phys.hi -- phys.lo phys.mid phys.hi ) + " assigned-addresses" get-my-property if ( phys.hi ) + ." No address property found!" cr + 0 0 rot exit \ Error exit + then ( phys.hi adr len ) + rot >r ( adr len ) ( r: phys.hi ) + \ Found assigned-addresses, get address + begin dup while ( adr len' ) \ Loop over entries + decode-phys ( adr len' phys.lo phys.mid phys.hi ) + h# ff and r@ h# ff and = if ( adr len' phys.lo phys.mid ) \ This one? + 2swap 2drop ( phys.lo phys.mid ) \ This is the one + r> exit ( phys.lo phys.mid phys.hi ) + else ( adr len� phys.lo phys.mid ) \ Not this one + 2drop ( adr len� ) + then ( adr len� ) + decode-int drop decode-int drop \ Discard boring fields + repeat + 2drop ( ) + ." Base address not assigned!" cr + 0 0 r> ( 0 0 phys.hi ) +; + +\ String comparision +: $= ( adr0 len0 adr1 len1 -- equal? ) + 2 pick <> if 3drop false exit then ( adr0 len0 adr1 ) + swap comp 0= +; + +\ Define "reg" property +\ PCI Configuration Space +my-address my-space encode-phys 0 encode-int encode+ 0 encode-int encode+ + +\ Memory Space Base Address Register 10 +my-address my-space 0200.0010 or encode-phys encode+ +0 encode-int encode+ /regs encode-int encode+ + +\ Memory Space Base Address Register 14 +my-address my-space 0200.0014 or encode-phys encode+ +0 encode-int encode+ /real-regs encode-int encode+ + +\ PCI Expansion ROM +my-address my-space h# 200.0030 or encode-phys encode+ +0 encode-int encode+ h# 10.0000 encode-int encode+ +" reg" property + +-1 instance value chipbase +-1 instance value real-chipbase + +: map-regs ( -- ) + map-in-broken? if + my-space h# 8200.0010 or get-base-address ( phys.lo phys.mid phys.hi ) + else + my-address my-space h# 200.0010 or ( phys.lo phys.mid phys.hi ) + then ( phys.lo phys.mid phys.hi ) + + /regs map-in to chipbase + 4 dup my-w@ 2 or swap my-w! \ Enable memory space + chipbase encode-int " address" property + + map-in-broken? if + my-space h# 8200.0010 or get-base-address ( phys.lo phys.mid phys.hi ) + else + my-address my-space h# 200.0014 or ( phys.lo phys.mid phys.hi ) + then ( phys.lo phys.mid phys.hi ) + + /real-regs map-in to real-chipbase + real-chipbase encode-int " real-address" property + +; + +: unmap-regs ( -- ) + 4 dup my-w@ 4 invert and swap my-w! \ Disable memory space + chipbase /regs map-out -1 to chipbase + real-chipbase /real-regs map-out -1 to chipbase + " address" delete-property +; + +: e@ ( register -- byte ) real-chipbase 4000000 + + rb@ ; +: e! ( byte register -- ) real-chipbase 4000000 + + rb! ; +: ew@ ( register -- 16-bits ) real-chipbase 4000000 + + rw@ ; +: ew! ( 16-bits register -- ) real-chipbase 4000000 + + rw! ; +: el@ ( register -- 16-bits ) real-chipbase 4000000 + + rl@ ; +: el! ( 16-bits register -- ) real-chipbase 4000000 + + rl! ; + +: mac@ ( register -- 16-bits) + \ write address to address register + macreg-addr el! + \ read data register + macreg-data el@ +; + +: mac! ( 16-bits register -- 16-bits ) + \ write data to data register + swap macreg-data el! + \ write address to address register + macreg-write or macreg-addr el! + +; + +: control-on ( control-bit -- ) control e@ or control e! ; +: control-off ( control-bit -- ) invert control e@ and control e! ; + +: reset-chip ( -- ) 1 control e! ; +: receive-on ( -- ) 2 control-on ; +: return-buffer ( -- ) 4 control-on ; +: start-xmit ( -- ) 8 control-on ; +: promiscuous ( -- ) 10 control-on ; +: loopback-on ( -- ) 20 control-on ; +: loopback-off ( -- ) 20 control-off ; + +: receive-ready? ( -- #pkts-waiting ) rcv-rdy e@ ; +: wait-for-packet ( -- ) begin key? receive-ready? or until ; + +\ Create local-mac-address property from the information in the chip +map-regs +6 alloc-mem ( mem-addr ) +6 0 do local-addr i + rb@ over i + c! loop ( mem-addr ) +6 2dup encode-string " local-mac-address" property ( mem-addr 6 ) +free-mem +unmap-regs + +: initchip ( -- ) + reset-chip + \ Ask the host system for the station address and give it to the adapter + mac-address 0 do ( addr ) + dup i + c@ unicast-addr i + e! ( addr ) + loop drop + receive-on \ Enable reception +; + +: net-init ( -- succeeded? ) + \ loopback-on loopback-test loopback-off if init-chip true else false then + true +; + +\ Check for incoming Ethernet packets while using promiscuous mode. +: watch-test ( -- ) + ." Looking for Ethernet packets." cr + ." �.� is a good packet. �X� is a bad packet." cr + ." Press any key to stop." cr + begin + wait-for-packet + receive-ready? if + rcv-len ew@ 8000 and 0= if ." ." else ." X" then + return-buffer + then + key? dup if key drop then + until +; + +: (watch-net) ( -- ) + map-regs + promiscuous + net-init if watch-test reset-chip then + unmap-regs +; + +: le-selftest ( -- passed? ) + net-init + \ dup if net-off then +; + +external +: read ( addr requested-len -- actual-len ) + \ Exit if packet not yet available + receive-ready? 0= if 2drop -2 exit then + rcv-len ew@ dup 8000 and = if ( addr requested-len packet-len ) + 3drop return-buffer \ Discard bad packet + -1 exit + then ( addr requested-len packet-len ) + + \ Truncate to fit into the supplied buffer + min ( addr actual-len ) + + \ Note: For a DMA-based adapter, the driver would have to synchronize caches (e.g. + \ with "dma-sync") and copy the packet from the DMA buffer into the result buffer. + + tuck bounds ?do rcv-fifo e@ i c! loop ( actual-len ) + return-buffer ( actual-len ) +; + +: close ( -- ) reset-chip unmap-regs ; + +: open ( -- ok? ) + map-regs + mac-address encode-string " mac-address" property + \ initchip + \ my-args " promiscuous" $= if promiscuous then + + \ Note: For a DMA-based adapter, the driver would have to allocate DMA memory for + \ packet buffers, construct buffer descriptor data structures, and possibly + \ synchronize caches (e.g. with "dma-sync"). + true +; + +: write ( addr len -- actual ) + begin xmit-status e@ 0<> until + \ Note: For a DMA-based adapter, the driver would have to copy the + \ packet into the DMA buffer and synchronize caches (e.g. with "dma-sync"). + \ Copy packet into chip + tuck bounds ?do i c@ xmit-fifo e! loop + \ Set length register + dup h# 64 max xmit-len ew! + start-xmit +; + +: load ( addr -- len ) + " obp-tftp" find-package if ( addr phandle ) + my-args rot open-package ( addr ihandle|0 ) + else ( addr ) + 0 ( addr 0 ) + then ( addr ihandle|0 ) + dup 0= abort" Can�t open obp-tftp support package" ( addr ihandle ) + + >r + " load" r@ $call-method ( len ) + r> close-package +; + +: selftest ( -- failed? ) + map-regs + le-selftest 0= + unmap-regs +; + +: watch-net ( -- ) + selftest 0= if (watch-net) then +; +fcode-end + +\ LICENSE_BEGIN +\ Copyright (c) 2008 Dave Srl +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END