September 2014 - openfirmware - mail.coreboot.org

On Raspberry Pi
by Mark Morgan Lloyd Jan. 5, 2015

Jan. 5, 2015

Is it possible to put OpenFirmware on an SD card and use it to boot off e.g. a USB-attached mass storage device or using TFTP over a LAN? -- Mark Morgan Lloyd markMLl .AT. telemetry.co .DOT. uk [Opinions above are the author's, not those of his employers or colleagues]

4 10

[commit] r3740 - cpu/arm
by repository service Sept. 4, 2014

Sept. 4, 2014

Author: quozl Date: Fri Sep 5 03:33:53 2014 New Revision: 3740 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3740 Log: [ARM] fixed signed double comparison Author: Matthijs van Duin <matthijs(a)rinnic-vaude.nl> Date: Sat Apr 26 06:10:31 2014 +0200 Signed 64-bit comparisons currently check the sign of the difference of the arguments, which really isn't the same as a comparison of the arguments. And a small simplification of d- Modified: cpu/arm/kerncode.fth Modified: cpu/arm/kerncode.fth ============================================================================== --- cpu/arm/kerncode.fth Fri Sep 5 03:31:13 2014 (r3739) +++ cpu/arm/kerncode.fth Fri Sep 5 03:33:53 2014 (r3740) @@ -802,34 +802,37 @@ code d- ( d1 d2 -- d1-d2 ) ldmia sp!,{r0,r1,r2} \ tos r0 r1 r2 - subs r2,r2,r0 - sbc r1,r1,tos - psh r2,sp - mov tos,r1 + subs r0,r2,r0 + sbc tos,r1,tos + psh r0,sp c; code d< ( d1 d2 -- f ) ldmia sp!,{r0,r1,r2} \ tos r0 r1 r2 subs r2,r2,r0 - sbcs tos,r1,tos - mov tos,tos,asr #0 + sbcs r1,r1,tos + movge tos,#0 + mvnlt tos,#0 c; code d>= ( d1 d2 -- f ) ldmia sp!,{r0,r1,r2} \ tos r0 r1 r2 subs r2,r2,r0 - sbcs tos,r1,tos - mvn tos,tos,asr #0 + sbcs r1,r1,tos + movlt tos,#0 + mvnge tos,#0 c; code d> ( d1 d2 -- f ) ldmia sp!,{r0,r1,r2} \ tos r0 r1 r2 - subs r0,r0,r2 - sbcs tos,tos,r1 - mov tos,tos,asr #0 + subs r2,r2,r0 + sbcs r1,r1,tos + movle tos,#0 + mvngt tos,#0 c; code d<= ( d1 d2 -- f ) ldmia sp!,{r0,r1,r2} \ tos r0 r1 r2 - subs r0,r0,r2 - sbcs tos,tos,r1 - mvn tos,tos,asr #0 + subs r2,r2,r0 + sbcs tos,r1,tos + movgt tos,#0 + mvnle tos,#0 c; code du< ( d1 d2 -- f ) ldmia sp!,{r0,r1,r2} \ tos r0 r1 r2

1 0

[commit] r3739 - cpu/arm
by repository service Sept. 4, 2014

Sept. 4, 2014

Author: quozl Date: Fri Sep 5 03:31:13 2014 New Revision: 3739 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3739 Log: [ARM] fix revsh opcode, add a few more Author: Matthijs van Duin <matthijs(a)rinnic-vaude.nl> Date: Thu Apr 24 22:49:17 2014 +0200 Modified: cpu/arm/assem.fth Modified: cpu/arm/assem.fth ============================================================================== --- cpu/arm/assem.fth Tue Sep 2 23:07:35 2014 (r3738) +++ cpu/arm/assem.fth Fri Sep 5 03:31:13 2014 (r3739) @@ -1210,6 +1210,10 @@ : mov 01a0.0000 {cond/s} amode-rdop2 ; : mvn 01e0.0000 {cond/s} amode-rdop2 ; : mvn 01e0.0000 {cond/s} amode-rdop2 ; +: sxtb 06af.0070 {cond} amode-rdop2 ; +: sxth 06bf.0070 {cond} amode-rdop2 ; +: uxtb 06ef.0070 {cond} amode-rdop2 ; +: uxth 06ff.0070 {cond} amode-rdop2 ; : movw 0300.0000 {cond} amode-movw ; : movt 0340.0000 {cond} amode-movw ; @@ -1309,7 +1313,8 @@ : rev 06bf.0f30 {cond} amode-rev ; : rev16 06bf.0fb0 {cond} amode-rev ; -: revsh 06ff.0f30 {cond} amode-rev ; +: rbit 06ff.0f30 {cond} amode-rev ; +: revsh 06ff.0fb0 {cond} amode-rev ; : swp 0100.0090 {cond} {b} amode-swp ; : strex 0180.0f90 {cond} {bh} amode-swp ;

1 0

[commit] r3738 - cpu/ppc cpu/ppc/prep cpu/ppc/prep/build cpu/ppc/prep/qemu cpu/ppc/prep/qemu/build cpu/x86/pc/emu dev dev/ide dev/isa dev/pci dev/via dev/video dev/video/controlr ofw/fs/fatfs ofw/f...
by repository service Sept. 2, 2014

Sept. 2, 2014

Author: wmb Date: Tue Sep 2 23:07:35 2014 New Revision: 3738 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3738 Log: Added a bunch of PReP stuff Added: cpu/ppc/prep/ cpu/ppc/prep/basevars.fth cpu/ppc/prep/build/ cpu/ppc/prep/build/Makefile.cross cpu/ppc/prep/build/prepfw.bth cpu/ppc/prep/builton.bth cpu/ppc/prep/crc.fth cpu/ppc/prep/elf.fth cpu/ppc/prep/encresid.fth cpu/ppc/prep/fortyone.fth cpu/ppc/prep/initpgm.fth cpu/ppc/prep/isaio.fth cpu/ppc/prep/leflag.fth cpu/ppc/prep/mappci.fth cpu/ppc/prep/mkresid.fth cpu/ppc/prep/nv7x.fth cpu/ppc/prep/nvramhdr.fth cpu/ppc/prep/nvtypes.fth cpu/ppc/prep/qemu/ cpu/ppc/prep/qemu/build/ cpu/ppc/prep/qemu/build/Makefile.cross cpu/ppc/prep/qemu/cpunode.fth cpu/ppc/prep/qemu/devalias.fth cpu/ppc/prep/qemu/devices.fth cpu/ppc/prep/qemu/fixednv.fth cpu/ppc/prep/qemu/fw.bth cpu/ppc/prep/qemu/initrav.fth cpu/ppc/prep/qemu/macaddr.fth cpu/ppc/prep/qemu/pcinode.fth cpu/ppc/prep/qemu/probemem.fth cpu/ppc/prep/qemu/resetvec.bth cpu/ppc/prep/qemu/rom.bth cpu/ppc/prep/qemu/rootnode.fth cpu/ppc/prep/qemu/slam.fth cpu/ppc/prep/qemu/start.bth cpu/ppc/prep/raven.fth cpu/ppc/prep/reset.fth cpu/ppc/prep/residdef.fth dev/ds1385n.fth dev/ide/twolevel-ide.fth dev/isa/pc87307.fth dev/m48t559.fth dev/via/vt82c586.fth dev/video/bga.bth dev/video/controlr/bga.fth dev/video/controlr/bgapci.fth ofw/fs/hfs/ ofw/fs/hfs/hfs.fth ofw/fs/hfs/partition.fth Modified: cpu/ppc/resetvec.fth cpu/x86/pc/emu/fw.bth dev/i8259.fth dev/ide/atapi.fth dev/ide/idenode.fth dev/pci/intmap.fth ofw/fs/fatfs/partition.fth Added: cpu/ppc/prep/basevars.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/basevars.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,102 @@ +purpose: Configuration variables needed by early startup code +\ See license at end of file + +d# 20 value /fixed-nv +h# 7ec value fixed-nv-base \ Override as needed for the platform + +true value fixed-nv-ok? + +: fixed-nv@ ( offset -- byte ) + fixed-nv-base + nv-c@ +; +: fixed-nv! ( byte offset -- ) + fixed-nv-base + nv-c! +; + +: fixed-nv-checksum ( -- checksum ) + 0 /fixed-nv 0 ?do i fixed-nv@ xor loop ( checksum ) +; + +: set-fixed-nv-checksum ( -- ) + fixed-nv-checksum 0 fixed-nv@ xor h# 5a xor 0 fixed-nv! +; + +6 actions +action: fixed-nv-ok? if l@ fixed-nv@ 0<> else la1+ @ then ; +action: l@ fixed-nv! set-fixed-nv-checksum ; +action: l@ ; +action: drop flag>$ ; +action: drop $>flag ; +action: la1+ @ 0<> ; + +: fixed-nv-flag ( "name" default-value offset -- ) + create-option use-actions l, , +; + +6 actions +action: + fixed-nv-ok? if + l@ 4 bounds do i fixed-nv@ loop swap 2swap swap bljoin + else + la1+ @ + then +; +action: + l@ >r lbsplit r> 4 bounds do i fixed-nv! loop + set-fixed-nv-checksum +; +action: l@ ; +action: drop push-hex <# u#s [char] x hold [char] 0 hold u#> pop-base ; +action: drop $>number ; +action: la1+ @ ; + +: fixed-nv-int ( "name" default-value offset -- ) + create-option use-actions l, , +; + +false 1 fixed-nv-flag diag-switch? +false 2 fixed-nv-flag real-mode? +-1 3 fixed-nv-int real-base +-1 7 fixed-nv-int real-size +-1 d# 11 fixed-nv-int virt-base +-1 d# 15 fixed-nv-int virt-size +false d# 19 fixed-nv-flag hrp-memmap? + +' diag-switch? is (diagnostic-mode?) + +: init-fixed-nv ( -- ) + fixed-nv-checksum h# 5a = ?dup if to fixed-nv-ok? exit then + ['] diag-switch? do-set-default + ['] real-mode? do-set-default + ['] real-base do-set-default + ['] real-size do-set-default + ['] virt-base do-set-default + ['] virt-size do-set-default + ['] hrp-memmap? do-set-default + fixed-nv-checksum h# 5a = to fixed-nv-ok? +; + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/build/Makefile.cross ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/build/Makefile.cross Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,32 @@ +# This setting of HOSTDIR is for cross-building on an x86 Linux system +# For it to work, you first need to build the simulator version of ppcforth +# in cpu/x86/Linux with "make -f Makefile.ppcforth" +OS := $(shell uname) + +HOSTCPU:=x86 +HOSTDIR:=../../../${HOSTCPU}/${OS} + +all: prepfw.dic + +.PHONY: FORCE all clean + +.PRECIOUS: prepfw.dic + +${HOSTDIR}/forth: + @make -C ${HOSTDIR} forth + +${HOSTDIR}/ppcforth: + @make -C ${HOSTDIR} -f Makefile.ppcforth ppcforth + +build: ${HOSTDIR}/forth + @ln -sf $< $@ + +%.dic: FORCE build ${HOSTDIR}/ppcforth + ./build $@ + +builder.dic: FORCE build + -[ ! -f builder.sav ] && cp builder.dic builder.sav + ./build builder.dic + +clean: + rm -f prepfw.dic *.log *~ build Added: cpu/ppc/prep/build/prepfw.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/build/prepfw.bth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,206 @@ +purpose: Load file for PReP firmware - no board specifics +\ See license at end of file + +dictionary: ${BP}/cpu/ppc/build/basefw.dic +command: &ppcforth &dictionary &this +build-now + + +\ ' $report-name to include-hook + +fload ${BP}/cpu/ppc/prep/basevars.fth +0 value little-endian? + +headerless +h# 1000 to pagesize +d# 12 to pageshift + +false value chrp? \ Change as needed +headers + +dev / +1 encode-int " #address-cells" property +" prep" " compatible" string-property +device-end + +\ Memory management services +fload ${BP}/ofw/core/clntmem1.fth \ client services for memory +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 + +headerless +: (memory?) ( phys -- flag ) + chrp? if h# 4000.0000 else h# 8000.0000 then u< +; +' (memory?) to memory? + +\ Handy tools to mark device nodes with the "built-in" property +: mark-builtin ( -- false ) + 0 package( 0 0 encode-bytes " built-in" property )package + false +; +: mark-builtin-all ( -- ) + ['] mark-builtin ['] search-preorder catch 2drop +; +headers + +\ Load file format handlers +fload ${BP}/cpu/ppc/prep/initpgm.fth \ Basic boot handler +fload ${BP}/cpu/ppc/prep/elf.fth \ handler for ELF booting + +\ Reboot and re-entry code +fload ${BP}/cpu/ppc/reboot.fth \ Restart the client program +fload ${BP}/cpu/ppc/reenter.fth \ Various entries into Forth + +\ Miscellaneous hardware interface words +fload ${BP}/cpu/ppc/cache603.fth \ Cache synchronization +fload ${BP}/cpu/ppc/segreg.fth \ Segment register access +fload ${BP}/cpu/ppc/bat.fth \ BAT mapping register access +fload ${BP}/cpu/ppc/scrub.fth \ Fast memory scrubbing using "dcbz" + +fload ${BP}/ofw/termemu/cp881-16.fth \ ISO-Latin1 Font +hex +warning on + +h# 40.0000 ' load-base set-config-int-default + +headerless +: (initial-heap) ( -- adr len ) sp0 @ ps-size - limit tuck - ; +' (initial-heap) is initial-heap +headers + +" /openprom" find-device + " FirmWorks,3.0" encode-string " model" property +device-end + +fload ${BP}/cpu/ppc/prep/isaio.fth \ ISA I/O space access +\ XXX this may need to change for L2 cache support +warning @ warning off +\ We can't turn on the dcache until we have set up BAT mapping +stand-init: Instruction cache on + icache-on? 0= if icache-on then +; +warning ! + +fload ${BP}/cpu/ppc/dectrap.fth \ Null decrementer handler +stand-init: Enable machine check exceptions + msr@ h# 1000 or msr! +; + +headerless +defer set-memory-map ' noop to set-memory-map + +headers +stand-init: Set Memory Map + set-memory-map +; + +headerless +h# 6000.0000 value fw-virt-base \ 32 megs of mapping space +h# 0200.0000 value fw-virt-size + +0 value memsize +headers + +fload ${BP}/cpu/ppc/loadvmem.fth \ /mmu node +stand-init: MMU + " /mmu" open-dev mmu-node ! +; + +fload ${BP}/cpu/ppc/rootnode.fth \ Methods for root node +stand-init: Root node + " /" " init" execute-device-method drop +; +stand-init: Data cache on + msr@ h# 10 and dcache-on? 0= and if dcache-on then +; +stand-init: Fast CPU mode + fastest-mode +; + +0 0 " " " /" begin-package +fload ${BP}/cpu/ppc/prep/mappci.fth \ PCI-to-root-node address translation +fload ${BP}/dev/pcibus.fth \ Generic PCI bus package +end-package +stand-init: PCI host bridge + " /pci" " init" execute-device-method drop +; + +fload ${BP}/dev/pciprobe.fth +defer probe-all ' probe-pci to probe-all + +fload ${BP}/dev/scsi/probscsi.fth + +fload ${BP}/cpu/ppc/cpunode.fth + +fload ${BP}/ofw/core/bailout.fth + +fload ${BP}/cpu/ppc/prep/reset.fth \ Reset via "92" register + +fload ${BP}/ofw/core/countdwn.fth \ Startup countdown + +: restore-stdout ( -- ) + " restore" stdout @ ['] $call-method catch if 3drop then +; + +fload ${BP}/forth/lib/pattern.fth \ Text string pattern matching +fload ${BP}/ofw/core/filecmds.fth \ File commands: dir, del, ren, etc. + +: startup ( -- ) + standalone? 0= if exit then + + copy-reboot-info + + \ Ensure a clean startup state regardless of the development + \ environment's use of these variables + 0 stdin ! 0 stdout ! 0 to my-self + +[ifdef] debug-startup ." nvramrc" cr [then] + use-nvramrc? if nvramrc safe-evaluate then + +[ifdef] debug-startup ." probe" cr [then] + auto-banner? if probe-all install-console banner then + + hex + warning on + only forth also definitions + + install-alarm + + #line off + + auto-boot + restore-stdout + + user-interface +; + +.( --- Saving prepfw.dic ---) " prepfw.dic" $save-forth cr + +\ LICENSE_BEGIN +\ Copyright (c) 1997 FirmWorks +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/ppc/prep/builton.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/builton.bth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,38 @@ +purpose: Create "builton.fth" file containing the current date +copyright: Copyright 1997 FirmWorks All Rights Reserved + +command: &native &this +build-now + +\needs today fload ${BP}/fm/cwrapper/date.fth + +: put$ ( adr len -- ) ofd @ fputs ; + +\ Creates a "builton.fth" file indicating the current date and time. +\ It contains, for example: +\ : build-date " December 17, 1996 18:26:50" ; +\ d# 19961217 constant built-date-int +\ dev /openprom +\ built-date-int encode-int " built-on" property +\ device-end + +writing builton.fth +" \ Defines build-date"n" put$ +" : build-date "" " put$ today date$ put$ bl ofd @ fputc +now time$ put$ " "" ;"n" put$ + +" d# " put$ +base @ decimal +today (.) put$ <# u# u# u#> put$ <# u# u# u#> put$ +base ! +" constant built-date-int"n" put$ + +" dev /openprom"n" put$ +" built-date-int encode-int "" built-on"" property"n" put$ +" device-end"n" put$ + +ofd @ fclose + +\ We don't want to log the creation of this file, because doing so +\ tends to cause double-recompiles in some cases. +" builton.log" delete-file drop Added: cpu/ppc/prep/crc.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/crc.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,42 @@ +purpose: CRC calculation for PR*P NVRAM +\ See license at end of file + +\ Uses CCITT polynomial x**16 + x**12 + x**5 + 1 + +: rol ( x y mask -- n ) -rot 2dup << -rot d# 16 swap - >> or and ; +: ror ( x y mask -- n ) -rot 2dup >> -rot d# 16 swap - << or and ; + +: crcgen ( oldcrc data -- newcrc ) + swap wbsplit rot xor ( old.lo pd>> ) + dup rot bwjoin ( pd>> crc ) + swap 8 << swap ( pd crc ) + over 4 h# f00f rol xor ( pd crc' ) + over 3 h# 1fe0 ror xor ( pd crc'' ) + over h# f000 and xor ( pd crc''' ) + swap 7 h# 01e0 ror xor ( newcrc ) +; + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/elf.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/elf.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,211 @@ +purpose: Load image handler for ELF (Extended Linker Format) +\ See license at end of file + +hex + +headerless +: elf? ( -- flag ) 0 +base 4 " "(7f)ELF" $= ; +: elf-le? ( -- flag ) 5 +base c@ 1 = ; +: elfl@ ( adr -- n ) elf-le? if le-l@ else be-l@ then ; +: elfw@ ( adr -- w ) elf-le? if le-w@ else be-w@ then ; + +: eh-l@ ( offset -- l ) +base elfl@ ; +: eh-w@ ( offset -- w ) +base elfw@ ; + +: +elfl@ ( adr offset -- n ) + elfl@ ; + +: 1275-note? ( note-adr -- flag ) + \ note-type + dup 8 +elfl@ h# 1275 = if ( note-adr ) + + \ note-name-adr note-name-len + dup h# 0c + swap 0 +elfl@ 1- ( note-name$ ) + + " PowerPC" $= exit ( flag ) + then ( note-adr ) + drop false +; +: find-note-section ( -- true | adr false ) + \ Look for a note entry among the program headers + + \ e_phentsize e_phoff + h# 2a eh-w@ 1c eh-l@ +base + \ e_phnum + over h# 2c eh-w@ * bounds ?do ( phentsize ) + \ p_type PT_NOTE + i 0 +elfl@ 4 = if ( phentsize ) + \ p_offset + i 4 +elfl@ +base ( phentsize note-adr ) + dup 1275-note? if ( phentsize note-adr ) + nip unloop false exit ( note-adr false ) + then ( phentsize note-adr ) + drop ( phentsize ) + then ( phentsize ) + dup +loop ( phentsize ) + drop ( ) + + \ Look for a note entry among the section headers + + \ e_shentsize e_shoff + h# 2e eh-w@ h# 20 eh-l@ +base ( shentsize shbase ) + \ e_shnum + over h# 30 eh-w@ * bounds ?do ( shentsize ) + \ sh_type SHT_NOTE + i 4 +elfl@ 7 = if ( shentsize ) + \ sh_offset + i h# 10 +elfl@ +base ( shentsize note-adr ) + dup 1275-note? if ( shentsize note-adr ) + nip unloop exit ( note-adr false ) + then ( shentsize note-adr ) + drop ( shentsize ) + then ( shentsize ) + dup +loop ( shentsize ) + drop + + true +; + +: get-note-section + ( -- true | chrp? load-base virt-base virt-size real-mode? false ) + find-note-section if true exit then ( note-adr ) + + \ advance to descriptor portion of note section + \ namesz name-offset padding + dup dup 0 +elfl@ + h# 0c + 4 round-up ( note-adr note-data-adr ) + + >r ( note-adr ) + + \ CHRP note sections are 6 longwords; PR*P has only 5. The additional + \ entry is for load-base. If we see a 6-entry note section, we also + \ assume that the CHRP memory map is desired. + 4 +elfl@ d# 20 > if ( ) + true ( chrp? ) + r@ h# 14 +elfl@ ( chrp? load-base ) + else ( chrp? load-base ) + false -1 ( chrp? load-base ) + then ( chrp? load-base ) + + r@ 4 +elfl@ ( chrp? load-base real-base ) + r@ 8 +elfl@ ( chrp? load-base real-base real-size ) + r@ h# 0c +elfl@ ( chrp? load-base real-base real-size virt-base ) + r@ h# 10 +elfl@ ( chrp? load-base real-base real-size virt-base virt-size ) + r> 0 +elfl@ ( chrp? load-base virt-base virt-size real-mode? ) + false +; + +\ XXX the following code assumes that the value of load-base is such that +\ the copying of program sections to their correct locations does not +\ overwrite portions of other sections that have not yet been copied. + +\ One sufficient condition is that the program sections are stored in the +\ ELF file in ascending order of their execution addresses (vaddr fields) +\ and that load-base is large enough that the sections must be moved to +\ lower addresses. + +0 value high-water +0 value low-water +: record-extent ( adr len -- ) + bounds low-water umin to low-water high-water umax to high-water +; + +: prepare-elf-program ( -- entry-point ) + 0 to high-water + -1 to low-water + + \ Copy all pheaders to allocated memory to protect them from being + \ overwritten when we copy the programs to their final destinations. + + \ e_entry e_phentsize e_phnum + h# 18 eh-l@ h# 2a eh-w@ dup h# 2c eh-w@ * ( entry phentsize phsize) + dup alloc-mem swap ( entry phentsize pbbuf phsize ) + + \ e_phoff + 2dup 1c eh-l@ +base -rot move ( entry phentsize phbuf phsize ) + + \ Scan the program sections and determine how much memory is needed + 2dup bounds ?do ( entry phentsize phbuf phsize ) \ throughout loop + \ p_type PT_LOAD + i 0 +elfl@ 1 = if + \ p_vaddr p_memsz + i 8 +elfl@ i h# 14 +elfl@ record-extent + then + 2 pick +loop ( entry phentsize phbuf phsize ) + + \ XXX Ultimatelty we need to allocate physical memory and map + \ it appropriately, but for now we just claim the virtual address + \ space, assuming that it is already mapped. + + low-water 0 high-water low-water - 0 mem-claim drop ( adr ) + low-water <> abort" Couldn't claim the program's memory" + + 2dup bounds ?do ( entry phentsize phbuf phsize ) \ throughout loop + \ p_type PT_LOAD + i 0 +elfl@ 1 = if + + \ XXX we need to acquire and map the memory first! + + \ Move it into the correct vaddr. + \ p_offset p_vaddr p_filesz + i 4 +elfl@ +base i 8 +elfl@ i h# 10 +elfl@ ( src dst len ) + 2dup 2>r move 2r> sync-cache + + \ Zero any bytes that are not stored in the file + \ p_vaddr p_memsz p_filesz + i 8 +elfl@ i h# 14 +elfl@ i h# 10 +elfl@ /string erase + then + 2 pick +loop ( entry phentsize phbuf phsize ) + free-mem drop ( entry ) +; + +defer verify-machine-type +: (verify-machine-type) ( -- ) + h# 10 eh-w@ 2 <> abort" The loaded file is not executable" + h# 12 eh-w@ dup d# 17 <> swap d# 20 <> and + abort" The loaded file is not a PowerPC program" +; +' (verify-machine-type) to verify-machine-type + +: init-elf-program ( -- ) + verify-machine-type + get-note-section if + elf-le? ?endian-restart + else ( chrp? load-base r-base r-size v-base v-size real-mode? ) + elf-le? test-modes ?mode-restart + then + + prepare-elf-program ( pc ) + + h# 8000 alloc-mem h# 8000 + ( pc sp ) + + (init-program) +; + +headers +warning @ warning off +: init-program ( -- ) elf? if init-elf-program else init-program then ; +warning ! + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/encresid.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/encresid.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,94 @@ +purpose: Tools to create device-tree properties to drive residual-data creation +\ See license at end of file + +: aix-id ( type id -- ) + encode-int rot encode-int encode+ " aix-id&type" property +; +: aix-flags ( flags -- ) encode-int " aix-flags" property ; +: chip-id ( id -- ) encode-int " aix-chip-id" property ; +: in-82378 ( -- ) h# 24.4d.00.81 chip-id ; +: pnp-data ( adr len -- ) encode-bytes " pnp-data" property ; + +\ Encode primitive data types in PnP format +: start-encode ( -- adr len ) 0 0 encode-bytes ; +: +byte ( adr len b -- adr' len' ) here >r c, r> 1 encode+ ; +: +le16 ( adr len w -- adr' len' ) wbsplit >r +byte r> +byte ; +: +le32 ( adr len l -- adr' len' ) lbflip encode-int encode+ ; +: +le64 ( adr len l -- adr' len' ) +le32 0 encode-int encode+ ; +: +bytes ( adr len adr1 len1 -- adr' len' ) encode-bytes encode+ ; + +\ Encode address ranges using the IBM vendor-unique PnP format +: +regn ( base size #bits -- ) + -rot >r >r >r + " "(84 15 00 09 01)" +bytes ( r: size base #bits ) + r> +le16 0 +byte r> +le64 r> +le64 +; +: +reg32 ( adr len base size -- adr' len' ) d# 32 +regn ; +: +reg16 ( adr len base size -- adr' len' ) d# 16 +regn ; +: +reg11 ( adr len base size -- adr' len' ) d# 11 +regn ; + +: +isa-mem32 ( adr len base size -- adr' len' ) + >r >r + " "(84 15 00 09 02 20 00 00)" +bytes + r> ( base ) +le64 r> ( size ) +le64 +; +: +isa-reg ( adr len base size -- adr' len' ) + >r >r + " "(47 01)" +bytes r@ ( base ) +le16 r> +le16 1 +byte r> ( size ) +byte +; + +: +fixed-isa-reg ( adr len base size -- adr' len' ) + >r >r + h# 4b +byte r> ( base ) +le16 r> ( size ) +byte +; + +\ Encode an IRQ number in PnP format +: +irq ( adr len irq# -- adr' len' ) >r h# 22 +byte 1 r> lshift +le16 ; + +\ Encode IBM bus-bridge-attributes PnP item +: +bus-attributes ( adr len speed #slots -- adr' len' ) + >r >r " "(84 06 00 06)" +bytes r> +le32 r> +byte +; + +\ Encode IBM bus-bridge-address-translation PnP item +: +bus-range ( adr len decode type parent child size -- adr' len' ) + >r >r >r >r >r + " "(84 1D 00 05)" +bytes r> +byte 1 +byte r> +byte 0 +byte + r> +le64 r> +le64 r> +le64 +; + +\ Encode IBM PCI-bridge-descriptor PnP item +: start-pci-descriptor ( adr len #devices -- adr' len' ) + >r h# 84 +byte r> d# 12 * d# 21 + +le16 3 +byte +; + +\ Encode Device/slot entry in PCI-bridge-descriptor +: +slot ( adr len slot# dev&func# int-type inta intb intc intd -- adr' len' ) + >r >r >r >r >r >r >r + r> +byte r> +byte r> +le16 r> +le16 r> +le16 r> +le16 r> +le16 +; + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/fortyone.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/fortyone.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,78 @@ +purpose: Load image handler for PR*P/IBM "0x41" boot partition format +\ See license at end of file + +defer set-aix-modes ' noop to set-aix-modes + +[ifndef] residual-data +0 value residual-data + +defer make-aix-l2-cache ' noop to make-aix-l2-cache +defer make-residual-data ' noop to make-residual-data +[then] + +warning @ warning off +: init-program ( -- ) + loaded h# 400 round-up swap h# 204 + le-l@ h# 400 round-up = if + \ Mostly we don't care about the addresses, but we must be in real + \ mode, big-endian, pr*p memory map. + \ chrp? <addresses> real? le? + false -1 -1 -1 -1 -1 true false test-modes + ?mode-restart + + make-aix-l2-cache make-residual-data + + loaded sync-cache + load-base h# 200 + le-l@ load-base + load-base (init-program) + + residual-data to %r3 + load-base to %r4 + + msr@ h# 8030 invert and to %msr \ disable translations + + set-aix-modes + + exit + then + \ Otherwise, try other formats + init-program +; + +\ Handle IBTA format, i.e., AIX bootable tape images. +\ Block 0 (at load-base) contains a partition map. Assume the first +\ entry in the map describes this image. +: init-program ( -- ) + load-base be-l@ h# c9c2d4c1 ( "IBTA" in EBCDIC! ) = if + loaded over h# 1c6 + le-l@ /sector * ( load-adr,len offset ) + /string ( image-adr,len ) + dup !load-size ( image-adr,len ) + load-base swap move ( ) + then + \ Fall through to regular 41-format handler + init-program +; +warning ! + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/initpgm.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/initpgm.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,110 @@ +purpose: Generic tools for load image handlers +\ See license at end of file + +: (init-program) ( pc sp -- ) + clear-save-area state-valid on + \ PowerPC calling conventions store the link register at SP+8, + \ so we start with r1 a little below the top of the allocated region + h# 20 - to %r1 to %pc + cif-handler to %r5 + + msr@ interrupt-enable-bit invert and to %msr + + restartable? on + true to already-go? +; + +headerless +: ?endian-restart ( little-endian? -- ) + dup little-endian? <> if + to little-endian? + collect( + ." Rebooting in " little-endian? if ." little" else ." big" then + ." -endian mode ..." )collect progress progress-done + reboot-same + else + drop + then +; + +: +base ( n -- adr ) load-base + ; + +false value bad-mode? +: bad-mode true to bad-mode? ; + +headers +: test-modes ( hrp-memmap? load-base real-base real-size virt-base ... + ( ... virt-size real-mode? little-endian? -- ) + false to bad-mode? + dup little-endian? <> if dup to little-endian? bad-mode then drop + dup real-mode? <> if dup to real-mode? bad-mode then drop + + dup -1 <> if + dup virt-size <> if dup to virt-size bad-mode then + then + drop + + dup -1 <> if + dup virt-base <> if dup to virt-base bad-mode then + then + drop + + dup -1 <> if + dup real-size <> if dup to real-size bad-mode then + then + drop + + dup -1 <> if + dup real-base <> if dup to real-base bad-mode then + then + drop + + dup -1 <> if + dup load-base <> if dup to load-base bad-mode then + then + drop + + dup hrp-memmap? <> if dup to hrp-memmap? bad-mode then drop +; + +: ?mode-restart ( -- ) + bad-mode? if + " Rebooting in the correct mode for this client program ..." progress + progress-done + reboot-same + then +; + +dev /client-services +: chain ( len args entry size virt -- ) + release ( len args entry ) + h# 8000 alloc-mem h# 8000 + (init-program) ( len args ) + to %r6 to %r7 + go +; +device-end + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/isaio.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/isaio.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,37 @@ +purpose: Real-mode access to ISA IO space +\ See license at end of file + +headers +h# 8000.0000 value io-base + +: pc@ ( offset -- n ) io-base + rb@ ; +: pc! ( n offset -- ) io-base + rb! ; +: pw@ ( offset -- n ) io-base + rw@ ; +: pw! ( n offset -- ) io-base + rw! ; +: pl@ ( offset -- n ) io-base + rl@ ; +: pl! ( n offset -- ) io-base + rl! ; + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/leflag.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/leflag.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,52 @@ +purpose: Read the endian flag byte from the NVRAM +\ See license at end of file + +\needs get-nv-byte fload ${BP}/cpu/ppc/prep/nv7x.fth + +\ Destroys: r1,r4 +\ Out: r3: le-flag + +label read-le-flag ( -- r3: le-flag ) + mfspr r4,lr + + \ Read the big/little endian flag from location 9 of the NVRAM. + set r3,9 get-nv-byte bl * + + cmpi 0,0,r3,h#4c \ Compare to 'L' + 0<> if \ Set r3 only if the byte is exactly 'L' + set r3,0 + else + set r3,-1 + then + +\ set r3,0 \ Big-endian +\ set r3,1 \ Little-endian + + mtspr lr,r4 + bclr 20,0 +end-code + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/mappci.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/mappci.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,50 @@ +purpose: PCI physical address mapping to root node +\ See license at end of file + +headerless +: map-pci-phys ( paddr io? phys.hi size -- vaddr ) + >r drop ( paddr io? R: size ) + chrp? if ( paddr io? R: size ) + if h# fe00.0000 else ( paddr R: size ) + \ PCI addresses below 2G are really for ISA memory space, and + \ must be translated up to the "peripheral memory alias" space + \ so as not to look like system memory addresses. + dup h# 8000.0000 u< if h# fd00.0000 else h# 0000.0000 then + then + else + if h# 8000.0000 else h# c000.0000 then + then + or r> " map-in" $call-parent +; +: >pci-devaddr ( root-devaddr -- pci-devaddr ) + chrp? 0= if h# 8000.0000 + then +; +: pci-devaddr> ( pci-devaddr -- root-devaddr ) + chrp? 0= if h# 8000.0000 - then +; +headers + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/mkresid.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/mkresid.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,436 @@ +purpose: Create residual data structure +\ See license at end of file + +hex + +0 value fw-revision \ Set me +h# dc6 value fw-supports \ Change if needed +h# 2 value fw-supplier \ Change if needed + +defer #cpus ' 1 to #cpus \ Actual # of CPUs installed + +: $pcall-parent ( ?? adr len -- ?? ) + parent-device dup push-package $call-static-method pop-package +; +: get-parent-property ( adr len -- val$ false | true ) + parent-device get-package-property +; +: get-bus-id ( -- true | bus-id false ) + " aix-bus-id" get-parent-property if true exit then + get-encoded-int false +; +: isa-child? ( -- flag ) get-bus-id if false else 1 = then ; + +\ PnP stuff + +0 value next-pnp-adr +: pnp-b, ( byte -- ) + next-pnp-adr dup 1+ to next-pnp-adr c! +; +: pnp-w, ( word -- ) wbsplit swap pnp-b, pnp-b, ; +: pnp-l, ( long -- ) lwsplit swap pnp-w, pnp-w, ; +: pnp-x, ( d -- ) swap pnp-l, pnp-l, ; + +: pnp, ( adr len -- ) bounds ?do i c@ pnp-b, loop ; + +: make-interrupt-items ( -- ) + isa-child? 0= if exit then + " interrupts" get-property 0= if ( adr len ) + begin dup while + " pnp-decode-interrupt" $pcall-parent ( adr' len' irq-mask flags ) + ?dup if + h# 23 pnp-b, swap pnp-w, pnp-b, + else + h# 22 pnp-b, pnp-w, + then + repeat + 2drop + then +; +: make-reg-item ( false | .. stuff .. true -- ) + 0= if exit then + if ( adr' len' size isa-adr 16bit ) + \ Variable I/O port item + h# 47 pnp-b, pnp-b, dup pnp-w, pnp-w, 1 pnp-b, pnp-b, + else ( adr' len' d.size d.base info type ) + \ IBM "generic address" item + h# 84 pnp-b, d# 21 pnp-w, 9 pnp-b, pnp-b, pnp-b, 0 pnp-w, + pnp-x, pnp-x, + then +; +: make-reg-items ( -- ) + \ Possible override + " aix-reg" get-property 0= if pnp, exit then + " reg" get-property 0= if ( adr len ) + begin dup while + " pnp-decode-reg" $pcall-parent make-reg-item + repeat + 2drop + then + " other-bus-reg" get-property 0= if ( adr len ) + begin dup while + decode-int " pnp-decode-reg" rot $call-static-method make-reg-item + repeat + 2drop + then +; +: make-ranges-items ( -- ) + \ It isn't worthwhile to automate this, because the AIX ranges stuff + \ is too irregular. + " pnp-ranges" get-property 0= if pnp, then +; +: make-dma-items ( -- ) + \ Only do this for children of the ISA node + isa-child? 0= if exit then + + " dma" get-property 0= if ( adr len ) + begin dup 0> while ( adr len ) + h# 2a pnp-b, ( adr len ) + decode-int 1 swap lshift pnp-b, ( adr' len' ) + decode-int pnp-b, ( adr'' len'' ) + repeat ( adr' len' ) + 2drop + then +; +: make-id-item ( -- ) + " aix-chip-id" get-property 0= if + h# 75 pnp-b, 1 pnp-b, get-encoded-int lbflip pnp-l, + then +; +: invent-pnp-data ( -- ) + make-interrupt-items + make-reg-items + make-dma-items + make-id-item + make-ranges-items + " other-pnp-data" get-property 0= if pnp, then +; +: make-pnp-packet ( -- ) + " pnp-data" get-property 0= if pnp, exit then + " make-pnp-data" current-device find-method if + execute pnp, exit + then ( ) + invent-pnp-data +; + +\ End of pure PNP stuff + + +\ Constructors for residual-data fields + +0 value next-res-adr +: res-b, ( byte -- ) next-res-adr dup 1+ to next-res-adr c! ; +: res-w, ( word -- ) wbsplit res-b, res-b, ; +: res-l, ( long -- ) lwsplit res-w, res-w, ; + +\ Add PnP info to the AIX device record + +0 value pnp-base +: res-pnp, ( -- ) next-pnp-adr pnp-base - res-l, ; +: end-pnp ( -- ) h# 78 pnp-b, ; +: set-pnp-fields ( -- ) + res-pnp, make-pnp-packet end-pnp + res-pnp, " pnp-possible" get-property 0= if pnp, then end-pnp + res-pnp, " pnp-compatible" get-property 0= if pnp, then end-pnp +; + + +[ifdef] compute-mem-segs +: get-instance-property ( property-name$ ihandle -- adr len ) + ihandle>phandle get-package-property drop +; +0 value mem-reg 0 value /mem-reg +: mem-seg-open ( -- reg-adr,len avail-adr,len ) + " reg" memory-node @ get-instance-property to /mem-reg + /mem-reg alloc-mem to mem-reg + mem-reg /mem-reg move + mem-reg /mem-reg + " available" memory-node @ get-instance-property +; +: mem-seg-close ( -- ) mem-reg /mem-reg free-mem ; +: next-range ( reg-adr,len avail-adr,len -- reg-adr,len avail-adr,len adr ty ) + +; +[then] + +: mem-seg, ( start end usage -- end ) + >r 2dup = if r> 2drop exit then \ Don't create pieces for null regions + r> res-l, ( start end ) + over pageshift rshift res-l, ( start end ) + dup rot - pageshift rshift res-l, +; + +: mem-segs, ( -- ) + next-res-adr >r 0 res-l, \ To be patched later + + 0 + \ end-address type + 4000 4 mem-seg, \ trap table +\ htab 10 mem-seg, \ a little free piece +\ htab /htab + 2 mem-seg, \ HTAB + load-base 10 mem-seg, \ free memory below load-base + loaded + pagesize round-up + 8 mem-seg, \ loaded program + origin 10 mem-seg, \ More free mem (XXX what about allocated mem) + limit 4 mem-seg, \ Firmware code (dictionary) + sp0 @ ps-size - 2 mem-seg, \ Firmware heap + memtop @ 1 mem-seg, \ Firmware stack + memsize 10 mem-seg, \ free piece above firmware + 8000.0000 20 mem-seg, \ Unpopulated memory area + 8080.0000 440 mem-seg, \ ISA I/O space + 8100.0000 480 mem-seg, \ PCI config space + bf80.0000 500 mem-seg, \ PCI I/O space + c000.0000 600 mem-seg, \ System I/O registers + ff00.0000 800 mem-seg, \ PCI memory space + fff0.0000 1000 mem-seg, \ Unpopulated system ROM area + 0000.0000 2000 mem-seg, \ ROM + drop + + next-res-adr r@ - /mem-seg / dup r> be-l! ( actual-#mem-segs ) + max#mem-segs swap - /mem-seg * next-res-adr + to next-res-adr +; + +: get-dev&bus# ( -- dev/func# bus# ) + " reg" get-property drop ( adr len ) + get-encoded-int lbsplit ( reg# dev,func# bus# xxx ) + drop rot drop drop ( dev/func# ) + " bus-range" get-parent-property if 0 else get-encoded-int then +; + +: make-aix-device ( -- false ) + " aix-id&type" get-property if + \ No AIX property; try for PCI vendor-id, device-id, class-code props. + + " vendor-id" get-property if false exit then ( adr len ) + + get-encoded-int + " device-id" get-property abort" No device-id property" + get-encoded-int wljoin >r + + " class-code" get-property abort" No class-code property" + get-encoded-int >r ( r: devid type ) + + else ( adr len ) + \ Use aix-id&type property value + decode-int >r get-encoded-int >r ( r: devid type ) + then ( adr len ) + + get-bus-id if 2r> 2drop false exit then ( r: devid type ) ( bus-id ) + + dup res-l, r> r> res-l, ( bus-id type ) + + " slave" get-property if -1 else get-encoded-int then res-l, + " aix-flags" get-property if ( bus-id type ) + over 4 = if 4180 else 2800 then ( bus-id type flags ) + else ( bus-id type adr len ) + get-encoded-int ( bus-id type flags ) + then res-l, ( bus-id type ) + + 8 lshift res-l, ( bus-id ) + + 4 = if get-dev&bus# else 0 0 then res-b, res-b, + 0 res-w, ( ) + + set-pnp-fields + + false +; +: cpu, ( state cpu# type -- ) res-l, res-b, res-b, 0 res-b, 0 res-b, ; +\ XXX pvr@ should be done on each individual CPU +: (cpus,) ( -- ) + max#cpus res-w, + #cpus res-w, + +\ XXX 1 0 pvr@ cpu, \ Assumes that CPU 0 is running the firmware + 0 0 pvr@ cpu, \ Assumes that CPU 0 is running the firmware + + #cpus 1 ?do 0 i pvr@ cpu, loop \ Assumes that all CPUs are good + res#cpus #cpus ?do 0 0 0 cpu, loop \ Zero the unused entries +; +defer cpus, ' (cpus,) to cpus, + +: mem-simm-size ( simm# -- #bytes ) + " simm-size" memory-node @ $call-method +; +: simms, ( -- ) + \ Count the number of SIMMs present + 0 max#mems 0 do i mem-simm-size if 1+ then loop res-l, + + \ ??? should this be densely packed or sparse? + max#mems 0 do i mem-simm-size d# 20 rshift res-l, loop +; +: mem, ( -- ) + " size" memory-node @ $call-method drop ( #bytes ) + dup res-l, \ Total memory + res-l, \ Good memory + mem-segs, + simms, +; + +: get-root-int ( name$ -- n ) root-phandle get-int ; +: get-cpu-int ( name$ -- n ) cpu-package get-int ; + +: res-erase ( #bytes -- ) 0 ?do 0 res-b, loop ; +: res-$, ( adr len maxlen -- ) + dup >r min tuck ( adr len' ) + bounds ?do i c@ res-b, loop ( len' ) ( r: maxlen ) + r> swap ?do bl res-b, loop +; +: cpu-int, ( name$ -- ) get-cpu-int res-l, ; + +: >kb ( #bytes -- #kb ) d# 10 rshift ; +: cache, ( -- ) + \ XXX this needs work for 601 and other potential unified-cache processors + " i-cache-block-size" get-cpu-int ( line-size ) + dup res-l, \ coherence block size + dup res-l, \ reservation granule size + " i-cache-size" get-cpu-int ( line-size i$-size ) + " d-cache-size" get-cpu-int ( line-size i$-size d$-size ) + 2dup + >kb res-l, \ Total cache size in KB + + " cache-unified" cpu-package get-package-property if ( /i$l /i$ /d$ ) + 1 res-l, \ split cache + 0 res-l, \ associativity + 0 res-l, \ unified cache line size + over >kb res-l, ( i$-line /i$ /d$ ) \ i-cache-size in KB + swap 2 pick / ( i$-line /d$ i$#lines ) + " i-cache-sets" get-cpu-int / res-l, \ i-cache-associativity + swap res-l, ( /d$ ) \ i-cache-line-size + dup >kb res-l, ( /d$ ) \ d-cache-size in KB + " d-cache-block-size" get-cpu-int ( /d$ /d$ln ) + tuck / ( /d$ln d$#lines ) + " d-cache-sets" get-cpu-int / res-l, ( /d$ln) \ d-cache-associativity + res-l, \ d-cache-line-size + + " tlb-size" get-cpu-int ( #tlb-entries ) + dup res-l, \ tlb-size + 620-class? if ( #tlb-entries ) + drop ( ) + 2 res-l, \ unified TLB + 2 res-l, \ TLB associativity for unified TLB + d# 128 res-l, \ i-tlb-size + d# 2 res-l, \ i-tlb-associativity + d# 128 res-l, \ d-tlb-size + d# 2 res-l, \ d-tlb-associativity + else + 1 res-l, \ split TLB + 0 res-l, \ TLB associativity for unified TLB + 2/ dup " tlb-sets" get-cpu-int ( #itlb-ents #itlb-ents #tlb-sets ) + 2/ / ( #itlb-entries #itlb-sets ) + over res-l, \ i-tlb-size + dup res-l, \ i-tlb-associativity + swap res-l, \ d-tlb-size + res-l, \ d-tlb-associativity + then + else ( ... adr len ) + 2drop +[ifdef] notdef + 2 res-l, \ unified cache + ?? res-l, \ associativity + 0 res-l, \ unified cache line size +[then] + then + 0 res-l, +; + +: devs, ( -- ) + next-res-adr >r 0 res-l, \ To be patched later + + root-phandle push-package + ['] make-aix-device ['] (search-preorder) catch 2drop + pop-package + + next-res-adr r@ - /device / r> be-l! +; + +: make-residual-data ( -- ) + /residual-data alloc-mem to residual-data + residual-data to next-res-adr + + residual-data pnp-heap-offset + to pnp-base + pnp-base to next-pnp-adr + + residual-data /residual-data erase + + /residual-data res-l, \ length + 0 res-b, 1 res-b, \ version, revision + fw-revision res-w, \ firmware revision + + " model" root-phandle get-package-property if + " " + else + get-encoded-string + then + d# 31 res-$, 0 res-b, \ Printable Model + + " aix-serial#" root-phandle get-package-property if + " " + else + get-encoded-string + then + d# 16 res-$, + + d# 48 res-erase + + fw-supplier res-l, \ Firmware Supplier + fw-supports res-l, \ FirmwareSupports bit mask + + " size" nvram-node $call-method drop d# 1024 round-up res-l, + + " #simm-slots" memory-node @ ihandle>phandle get-package-property + abort" Missing #simm-slots property in memory node" + get-encoded-int res-l, + + \ XXX depends on bridge + 1 res-w, \ Endian switch: Port A8 bit 5 - for Eagle + 0 res-w, \ Spread I/O: Port 850 + + \ XXX for SMP + 0 res-l, \ SMP enter-idle-loop address + + 0 res-l, \ RAM error log offset into PnP heap + 8 res-erase + + " clock-frequency" cpu-int, + " clock-frequency" get-root-int dup res-l, ( CPU-bus-clock-freq ) + 4 res-erase + + " timebase-frequency" get-cpu-int / d# 1000 * res-l, + + 620-class? if d# 64 else d# 32 then res-l, + + d# 4096 res-l, \ page size + + cache, + cpus, + mem, + + devs, + + make-boot-name +; + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/nv7x.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/nv7x.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,37 @@ +purpose: Read bytes from NVRAM using indirect (port 7x) access +\ See license at end of file + +\ Destroys: r1,r3 +label get-nv-byte ( r3:offset -- r3:byte ) + io-base set r1,* + rlwinm r3,r3,24,0,31 nv-adr-high 1 stb r3,* \ High address byte + rlwinm r3,r3,08,0,31 nv-adr-low 1 stb r3,* \ Low address byte + eieio + nv-data 1 lbz r3,* + bclr 20,0 +end-code + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/nvramhdr.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/nvramhdr.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,105 @@ +purpose: PR*P-specific NVRAM functions +\ See license at end of file + +headerless +[ifndef] nvram-l@ +: nvram-l@ ( offset -- l ) dup wa1+ nvram-w@ swap nvram-w@ wljoin ; +: nvram-l! ( l offset -- ) >r lwsplit r@ nvram-w! r> wa1+ nvram-w! ; +[then] + +: crc-loop ( crc end start -- crc' ) ?do i nvram-c@ crcgen loop ; +: os-area ( -- offset len ) h# e8 nvram-l@ h# ec nvram-l@ ; +: config-area ( -- offset len ) h# d4 nvram-l@ h# d8 nvram-l@ ; +: env-range ( -- offset len ) h# c4 nvram-l@ h# c8 nvram-l@ ; + +: prep-env-area ( -- adr len ) env-range swap config-mem + swap ; + +\ There is a bug in IBM's early firmware which causes it to omit byte 8. +: crc-base ( -- offset ) 3 nvram-c@ 4 >= if 8 else 9 then ; +: crc1 ( -- n ) + h# ffff 4 0 crc-loop ( crc ) + os-area drop crc-base crc-loop ( crc ) +; +: fix-crc1 ( -- ) crc1 4 nvram-w! 4 2 write-range ; +: fix-crc2 ( -- ) + h# ffff + + \ There is a bug in IBM's early firmware which causes it to omit + \ the last byte, hence the "1-" below. + h# d4 nvram-l@ h# d8 nvram-l@ 1- 0 max bounds crc-loop ( crc ) + 6 nvram-w! + + 6 2 write-range +; + +\ True if the intersection between the two ranges in not empty +: overlap? ( adr1 len1 adr2 len2 -- flag ) + >r >r over r@ max -rot ( max-adr adr1 len1 ) + + r> r> + min ( max-adr min-end-adr ) + swap - 0> +; +: prep-config-checksum? ( -- okay? ) + os-area drop crc-base config-size within if + crc1 4 nvram-w@ = + else + false + then +; + +: set-prep-env-checksum ( -- ) + modified-range 0 os-area drop overlap? if fix-crc1 then + modified-range config-area overlap? if fix-crc2 then +; + +hex +: >bcd ( binary -- bcd ) d# 10 /mod 4 << + ; +: set-timestamp ( offset -- ) + >r + time&date d# 100 /mod r@ 7 bounds do >bcd i nvram-c! loop + r> 7 + 0 swap nvram-c! +; +: init-timestamps ( -- ) 5c 34 do i set-timestamp 8 +loop ; +: clear-passwords ( -- ) " none" " security-mode" $setenv ; +: prep-layout-config ( -- ) + config-size d# 1024 / 0 nvram-w! \ Size in KBytes + 1 2 nvram-c! 2 3 nvram-c! \ version and revision + 0 3 nvram-c! \ Last OS (Firmware) + init-timestamps + + a00 e8 nvram-l! 200 ec nvram-l! \ OS Area + 1000 d4 nvram-l! 0 d8 nvram-l! \ ConfigArea (PnP packets) + f8 c4 nvram-l! 908 c8 nvram-l! \ Global Environment area + + clear-passwords \ Depends on the area descriptors above! +; +: prep-nvram? ( -- flag ) + 2 nvram-c@ 1 = 3 nvram-c@ 2 = and + 0 nvram-w@ config-size d# 1024 / = and + prep-config-checksum? and +; +headers + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/nvtypes.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/nvtypes.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,258 @@ +purpose: Configuration option data types that are PR*P but not CHRP specific +\ See license at end of file + +: [']actions ( -- ) compile (') action-adr token, ; immediate + +6 actions +action: drop 9 nvram-c@ ascii L = ; +action: drop if ascii L else ascii B then config-rw 9 nvram-c! config-ro ; +action: drop config-mem 9 + ; +action: drop flag>$ ; +action: drop $>flag ; +action: la1+ @ 0<> ; + +\ Modify the code field of the little-endian? flag to make it use +\ the PR*P storage location and encodings. +: set-prep-le ( -- ) [']actions ['] little-endian? uses ; + +[ifdef] notdef +: pack-prep-env ( adr len apf -- adr' len' ) \ Binary to ASCII text + >r + push-hex + >r r@ 2* alloc-mem ( adr adr' ) + r@ 0 do ( adr adr' ) + over i ca+ c@ <# u# u# u#> ( adr adr' n-adr 2 ) + drop over i wa+ 2 move ( adr adr' ) + loop + nip r> 2* + pop-base + 2dup r> false put-env$ ( adr' len' ) + free-mem ( ) +; + +\ The maximum size required for this buffer is limited to the size of +\ the global environment area divided by two. The size of the global +\ environment area is established by set-mfg-defaults +h# 908 2/ constant /decode-buf +/decode-buf buffer: decode-buf + +0 value pntr +: unpack-prep-env ( cstr -- adr' len' ) \ ASCII text to binary + push-hex + 0 to pntr + decode-buf ( adr adr' ) + begin ( adr adr' ) + over pntr wa+ 2 $number if + 0 true ( adr adr' 0 true ) + else + pntr /decode-buf = ( adr adr' n flag ) + then + >r ( adr adr' 0|n ) ( r: flag ) + over pntr ca+ c! ( adr adr' ) ( r: flag ) + pntr 1+ to pntr ( adr adr' ) ( r: flag ) + r> ( adr adr' flag ) + until + nip pntr 1- ( adr' len' ) + pop-base +; +[then] + +headerless + +h# 20 constant boot-pw +h# 30 constant config-pw +max-password buffer: password-buf +: password@ ( offset -- byte ) " rtc@" clock-node @ $call-method ; +: password! ( byte offset -- ) " rtc!" clock-node @ $call-method ; +: pw-crc! ( crc offset -- ) >r wbsplit r@ password! r> 1+ password! ; +: pw-crc@ ( offset -- crc ) dup 1+ password@ swap password@ bwjoin ; +: retrieve-password ( offset -- ) + max-password 0 ?do dup i + password@ password-buf i + c! loop + drop +; +: password-string ( -- adr len ) + max-password dup 0 ?do + password-buf i ca+ c@ 0= if drop i leave then + loop ( #chars ) + password-buf swap +; +: compute-pw-crc ( offset -- crc offset' ) + dup max-password + >r + retrieve-password + h# ffff password-buf max-password bounds ?do i c@ crcgen loop ( crc ) + r> +; +: make-invalid ( offset -- ) compute-pw-crc swap invert swap pw-crc! ; +: make-valid ( offset -- ) compute-pw-crc pw-crc! ; +: pw-off ( -- ) 1 h# 19 password! 1 h# 1f password! ; +: pw-on ( -- ) 0 h# 19 password! 0 h# 1f password! ; +: pw-on? ( -- flag ) + h# 19 password@ 0= h# 1f password@ 0= or +; +: pw-valid? ( offset -- flag ) compute-pw-crc pw-crc@ = ; +: set-password ( adr len offset -- ) + d# 14 0 do 0 over i + password! loop \ Erase old value + swap 0 ?do ( adr offset ) over i + c@ over i + password! loop + 2drop +; + +: prep-secmode@ ( apf -- n ) + drop + pw-on? 0= if 0 exit then + boot-pw pw-valid? if + 2 + else + config-pw pw-valid? if 1 else 0 then + then +; +: prep-secmode! ( n apf -- ) + drop + case + 1 of config-pw make-valid boot-pw make-invalid pw-on endof + 2 of config-pw make-valid boot-pw make-valid pw-on endof + config-pw make-invalid boot-pw make-invalid pw-off + endcase +; +: prep-password@ ( apf -- adr len ) + drop config-pw retrieve-password password-string +; +: prep-password! ( adr len apf -- ) + drop ( adr len ) + max-password min 2dup config-pw set-password boot-pw set-password +; + +5 actions +action: drop h# 2c nvram-l@ h# 30 nvram-l@ + ; +action: drop config-rw 0 h# 2c nvram-l! h# 30 nvram-l! config-ro ; +action: ; +action: drop (.d) ; +action: drop $>number ; + +\ Modify the code field of the little-endian? flag to make it use +\ the PR*P storage location and encodings. +: set-prep-#badlogins ( -- ) + [']actions ['] security-#badlogins uses +; + +headers +warning @ warning off +: set-defaults ( -- ) + security-on? if + ." Note: set-defaults does not change the security fields." cr + then + set-defaults +; +warning ! + +d# 20 value /fixed-nv +h# 7ec value fixed-nv-base \ Override as needed for the platform + +true value fixed-nv-ok? + +: fixed-nv@ ( offset -- byte ) fixed-nv-base + nv-c@ ; +: fixed-nv! ( byte offset -- ) fixed-nv-base + nv-c! ; + +: fixed-nv-checksum ( -- checksum ) + 0 /fixed-nv 0 ?do i fixed-nv@ xor loop ( checksum ) +; + +: set-fixed-nv-checksum ( -- ) + fixed-nv-checksum 0 fixed-nv@ xor h# 5a xor 0 fixed-nv! +; + +6 actions +action: fixed-nv-ok? if l@ fixed-nv@ 0<> else la1+ @ then ; +action: l@ fixed-nv! set-fixed-nv-checksum ; +action: l@ ; +action: drop flag>$ ; +action: drop $>flag ; +action: la1+ @ 0<> ; + +: is-fixed-nv-flag ( offset xt -- ) + [']actions over uses ( offset xt ) + >body l! ( ) +; + +6 actions +action: + fixed-nv-ok? if + l@ 4 bounds do i fixed-nv@ loop swap 2swap swap bljoin + else + la1+ @ + then +; +action: + l@ >r lbsplit r> 4 bounds do i fixed-nv! loop + set-fixed-nv-checksum +; +action: l@ ; +action: drop + push-hex <# 0 hold u#s [char] x hold [char] 0 hold u#> pop-base +; +action: drop $>number ; +action: la1+ @ ; + +: is-fixed-nv-int ( offset xt -- ) + [']actions over uses ( offset xt ) + >body l! ( ) +; + +' diag-switch? is (diagnostic-mode?) + +: init-fixed-nv ( -- ) + fixed-nv-checksum h# 5a = ?dup if to fixed-nv-ok? exit then + ['] diag-switch? do-set-default + ['] real-mode? do-set-default + ['] real-base do-set-default + ['] real-size do-set-default + ['] virt-base do-set-default + ['] virt-size do-set-default + ['] hrp-memmap? do-set-default + fixed-nv-checksum h# 5a = to fixed-nv-ok? +; + +headerless +: install-prep-nv ( -- ) + set-prep-le + set-prep-#badlogins + + 1 ['] diag-switch? is-fixed-nv-flag + 2 ['] real-mode? is-fixed-nv-flag + 3 ['] real-base is-fixed-nv-int + 7 ['] real-size is-fixed-nv-int + d# 11 ['] virt-base is-fixed-nv-int + d# 15 ['] virt-size is-fixed-nv-int + d# 19 ['] hrp-memmap? is-fixed-nv-flag + + ['] drop to grow-cv-area + ['] prep-env-area to cv-area + ['] prep-config-checksum? to config-checksum? + ['] prep-layout-config to layout-config + ['] set-prep-env-checksum to set-env-checksum +; +headers + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/qemu/build/Makefile.cross ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/build/Makefile.cross Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,38 @@ +# This setting of HOSTDIR is for cross-building on an x86 Linux system +# For it to work, you first need to build the simulator version of ppcforth +# in cpu/x86/Linux with "make -f Makefile.ppcforth" +OS := $(shell uname) + +HOSTCPU:=x86 +HOSTDIR:=../../../../${HOSTCPU}/${OS} + +all: qprepofw.rom + +.PHONY: FORCE all clean + +.PRECIOUS: qprepofw.rom + +${HOSTDIR}/forth: + @make -C ${HOSTDIR} forth + +${HOSTDIR}/ppcforth: + @make -C ${HOSTDIR} -f Makefile.ppcforth ppcforth + +build: ${HOSTDIR}/forth + @ln -sf $< $@ + +%.di: FORCE build ${HOSTDIR}/ppcforth + ./build $@ + +%.dic: FORCE build resetvec.di start.di + ./build $@ + +qprepofw.rom: FORCE build fw.dic + ./build rom + +builder.dic: FORCE build + -[ ! -f builder.sav ] && cp builder.dic builder.sav + ./build builder.dic + +clean: + rm -f fw.dic *.di *.log *~ build Added: cpu/ppc/prep/qemu/cpunode.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/cpunode.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,36 @@ +purpose: CPU node +\ See license at end of file + +hex +headers + +defer l2cache-on ' noop to l2cache-on +defer l2cache-off ' noop to l2cache-off +defer l2cache-flush ' noop to l2cache-flush +: allcache-off l2cache-off icache-off dcache-off ; + + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/qemu/devalias.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/devalias.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,46 @@ +purpose: Platform-specific device aliases +\ See license at end of file + +devalias net /pci/ethernet + +devalias scsi /pci/scsi +devalias disk0 /pci/ide/disk@0,0:1 +devalias disk1 /pci/ide/disk@1,0:1 +devalias disk3 /pci/ide/disk@3,0:1 +devalias cdrom /pci/ide/disk@2,0 + +devalias a /fdc/disk@0:\ +devalias c /pci/ide/disk@0,0:\ + +devalias disk /pci/ide/disk@0,0:1 + +\ devalias mouse /pci/isa/8042/mouse + +devalias com1 /pci/isa/serial@i3f8 +devalias com2 /pci/isa/serial@i2f8 + +\ LICENSE_BEGIN +\ Copyright (c) 1997 FirmWorks +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/ppc/prep/qemu/devices.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/devices.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,69 @@ +purpose: Load file for devices of QEMU -M prep +copyright: Copyright 1999 FirmWorks Inc. All Rights Reserved. + +fload ${BP}/cpu/ppc/prep/qemu/pcinode.fth + +: unswizzle-move ( arc dest len -- ) move ; + +0 0 " fff00000" " /" begin-package + " flash" device-name + h# 10.0000 dup constant /device constant /device-phys + my-address my-space /device reg + fload ${BP}/dev/flashpkg.fth + +end-package + +\ Create the /ISA node in the device tree, and load the ISA bridge code. +\ Usually this includes the dma controller, interrupt controller, and timer. +0 0 " b" " /pci" begin-package +fload ${BP}/dev/via/vt82c586.fth \ ISA node +end-package + +fload ${BP}/dev/isa/irq.fth + +support-package: 16550 +fload ${BP}/dev/16550pkg/16550.fth \ Serial port support package +end-support-package + +\ Super I/O support. +\ Usually includes serial, parallel, floppy, and keyboard. +\ The 87308 also has gpio and power control functions. +fload ${BP}/dev/isa/pc87307.fth \ SuperI/O + +\ QEMU doesn't have rtc/nvram on port 70 +" /rtc" find-package if delete-package then + +0 0 " i74" " /isa" begin-package \ RTC node + fload ${BP}/dev/m48t559.fth +end-package + +fload ${BP}/cpu/ppc/prep/qemu/fixednv.fth \ Offsets of fixed regions of NVRAM + + +fload ${BP}/cpu/ppc/prep/qemu/macaddr.fth + +0 0 " i74" " /pci/isa" begin-package \ NVRAM node +fload ${BP}/dev/ds1385n.fth + +" mk48t18-nvram" encode-string +" ds1385-nvram" encode-string encode+ +" pnpPNP,8" encode-string encode+ +" compatible" property + +env-end-offset to /nvram +end-package +stand-init: NVRAM + " /nvram" open-dev to nvram-node + init-config-vars +; + +0 0 " b,1" " /pci" begin-package + fload ${BP}/dev/ide/pcilintf.fth + fload ${BP}/dev/ide/generic.fth + fload ${BP}/dev/ide/onelevel.fth +end-package +\ One-level IDE + +\ Mark all ISA devices as built-in. +" /isa" find-device mark-builtin-all device-end + Added: cpu/ppc/prep/qemu/fixednv.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/fixednv.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,42 @@ +purpose: Offsets of fixed areas of NVRAM +\ See license at end of file + +\ d# 19 +h# 400 + +[ifdef] /fixed-nv to /fixed-nv [else] constant /fixed-nv [then] + +\ Allocate fixed regions of NVRAM from the top down +h# 2000 +h# 8 - dup constant rtc-reg-offset ( h# 1ff8 ) \ RTC registers +h# 10 - dup constant cmos-offset ( h# 1eb8 ) \ Simulated CMOS RAM + +/fixed-nv - dup ( h# 1ea5 h# 1ea5 ) \ real-base, etc. +[ifdef] fixed-nv-base to fixed-nv-base [else] constant fixed-nv-base [then] + +constant env-end-offset ( ) + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/qemu/fw.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/fw.bth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,130 @@ +purpose: OFW build file for QEMU/prep +\ See license at end of file + +dictionary: ${BP}/cpu/ppc/prep/build/prepfw.dic +command: &ppcforth &dictionary &this +build-now + +true to stand-init-debug? + +hex +warning on + +h# 4.0000 constant initial-heap-size + +fload ${BP}/dev/diaguart.fth \ Diagnostic driver for serial port +h# 3f8 is uart-base +fload ${BP}/forth/lib/sysuart.fth \ Plug UART routines into key and emit +' ukey is diag-key \ Feed UART input to "dl" + +: ?report drop ; +: fw-title ( -- ) + ." Open Firmware" + " build-date" $find if ." , Built " execute type else 2drop then cr + ?spaces ." Copyright (c) 1995-2000, FirmWorks." cr + ?spaces ." Copyright (c) 2014, Artyom Tarasenko." cr +; +' fw-title to .firmware + +: .r3 ; + +fload ${BP}/cpu/ppc/ppcboot.fth \ Forth startup code + +fload ${BP}/dev/pci/configm1.fth +fload ${BP}/cpu/ppc/prep/raven.fth + +\ Add name properties and an init method to the root node of the device tree. +fload ${BP}/cpu/ppc/prep/qemu/rootnode.fth + +\ Add drivers for supported plug-in cards +fload ${BP}/cpu/ppc/prep/qemu/devices.fth +fload ${BP}/cpu/ppc/prep/qemu/devalias.fth + +: (probe-all) + true to fcode-debug? + true to diag-switch? + " probe-" do-drop-in + probe-pci +; +['] (probe-all) to probe-all + +stand-init: Keyboard overrides + ?bailout +; + +\ Add CPU properties +fload ${BP}/cpu/ppc/prep/qemu/cpunode.fth \ CPU node additions + +\ Scrub memory and add it to the available list. +fload ${BP}/cpu/ppc/prep/qemu/probemem.fth \ Memory probing + +0 value residual-data +: make-aix-l2-cache ; + +fload ${BP}/cpu/ppc/prep/residdef.fth \ Residual data structure + +: get-int ( name$ phandle -- int ) + get-package-property abort" Missing property" get-encoded-int +; + +: make-boot-name ; + +fload ${BP}/cpu/ppc/prep/mkresid.fth \ Residual data creation +fload ${BP}/cpu/ppc/prep/encresid.fth \ Residual data encoding + +fload ${BP}/cpu/ppc/prep/fortyone.fth \ handler for AIX booting + +support-package: ufs-file-system + fload ${BP}/ofw/fs/ufs/ufs.fth \ Unix file system +end-support-package + +fload ${BP}/forth/lib/crc32.fth +\needs unix-seconds> fload ${BP}/ofw/fs/unixtime.fth \ Unix time calculation +\needs ($crc16) fload ${BP}/forth/lib/crc16.fth +support-package: ext2-file-system + fload ${BP}/ofw/fs/ext2fs/ext2fs.fth \ Linux file system +end-support-package + + +devalias dropins /flash + +\ 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 + +\ XXX should check QEMU -nographic option +\ for now, comment out the two following lines for graphic boot +\ " com1" ' output-device set-config-string-default +\ " com1" ' input-device set-config-string-default + + +install-rom-cold + +.( --- Saving fw.dic ---) " fw.dic" $save-forth cr + +\ LICENSE_BEGIN +\ Copyright (c) 1997 FirmWorks +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/ppc/prep/qemu/initrav.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/initrav.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,114 @@ +purpose: Low-level startup code for Raven +\ See license at end of file + +label setup-raven ( -- ) + mfspr r30,lr + +[ifdef] slam-it + + \ PPCbus registers + raven-base set r1,* + + set r2,h#fd00.fdff + stw r2,h#40(r1) + + set r2,h#0300.00c2 + stw r2,h#44(r1) + + set r2,h#fe00.fe7f + stw r2,h#48(r1) + + set r2,h#0200.00c0 + stw r2,h#4c(r1) + + set r2,h#c000.fcff + stw r2,h#50(r1) + + set r2,h#4000.00c2 + stw r2,h#54(r1) + + set r2,h#8000.bf7f + stw r2,h#58(r1) + + set r2,h#8000.00c0 + stw r2,h#5c(r1) + + set r2,h#55 + stb r2,h#60(r1) + set r2,h#aa0f + sth r2,h#60(r1) + + set r2,h#55 + stb r2,h#68(r1) + set r2,h#aa0f + sth r2,h#68(r1) + + set r2,h#dead.beef + stw r2,h#74(r1) + + \ PCIbus registers + + set r1,h#80000cf8 \ PCI Configuration Address Register + + set r2,h#80000004 \ Config address of word containing offset 4 + stwbrx r2,r0,r1 + set r3,h#06 \ Memory and mastership enable + stb r3,4(r1) \ Write to config register 0x04 + + set r2,h#80000014 \ Config address of word containing offset 14 + stwbrx r2,r0,r1 + set r3,h#0000003c \ (swapped) MPIC base address in PCI mem space + stw r3,4(r1) \ Write to config register 0x14 + + set r2,h#80000080 \ Config address of word containing offset 80 + stwbrx r2,r0,r1 + set r3,h#fe.81.00.80 \ (swapped) PCI aperture [8000.0000-81ff.0000) + stw r3,4(r1) \ Write to config register 0x80 + + set r2,h#80000084 \ Config address of word containing offset 84 + stwbrx r2,r0,r1 + set r3,h#f3.00.00.80 \ (swapped) maps to PPC bus 0 + stw r3,4(r1) \ Write to config register 0x84 + + set r2,h#80000088 \ Config address of word containing offset 88 + stwbrx r2,r0,r1 + set r3,h#ff.81.ff.81 \ (swapped) PCI aperture [81ff.0000-8200.0000) + stw r3,4(r1) \ Write to config register 0x88 + + set r2,h#8000008c \ Config address of word containing offset 8c + stwbrx r2,r0,r1 + set r3,h#e3.00.00.80 \ (swapped) maps to PPC bus 01ff.0000 + stw r3,4(r1) \ Write to config register 0x8c + + +[then] + + mtspr lr,r30 + bclr 20,0 \ ET go home... +end-code + + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/qemu/macaddr.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/macaddr.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,98 @@ +purpose: System MAC Address access +\ See license at end of file + +8 buffer: id +: (system-mac-address) ( -- addr len ) id 1+ 6 ; + +: mac-sum ( -- cksum ) h# a4 id 1+ 6 bounds do i c@ xor loop ; +: mac-bad? ( -- flag ) + \ If the version byte is 0 or ff, the EEPROM hasn't been programmed + id c@ dup 0= swap h# ff = or if true exit then + + id 1+ c@ 1 and 0<> \ Don't allow multicast MAC addresses + + \ Test the MAC address checksum + mac-sum id 0 + c@ xor 0<> or ( bad? ) +; +: get-mac-address ( -- ) + id 8 h# ff fill \ Default value (broadcast address) + 7 0 do i 1+ " cmos@" clock-node @ $call-method id 1+ c! loop + mac-bad? if + ." The MAC address in the EEPROM is invalid" cr +\ ['] false to idprom-valid? + then +; +['] (system-mac-address) is system-mac-address + +stand-init: MAC address + get-mac-address +; + +1 buffer: mkp-buf +: gh ( value index -- ) id + c! ; +: mkp ( value index -- ) + 2dup gh + 1+ " cmos!" clock-node @ $call-method +; +: g0 ( n1 n2 -- ) + <> if +\ " Copyright (c) 1998 FirmWorks" + " Bnoxqhfgs 'b( 0887 EhqlVnqjr" + bounds ?do i c@ dup bl > if 1+ then emit loop + quit + then +; +: g1 ( -- ) key control D g0 ; +: g2 ( -- ) key control R g0 ; +: g3 ( -- ) mac-bad? 0= if 0 1 g0 then ; + +: mkpx ( mac0 mac1 mac2 mac3 mac4 mac5 -- ) + g1 + g2 g3 + 6 0 do 6 i - gh loop \ Ethernet address + mac-sum 0 gh + 7 0 do id i + c@ i 1+ " cmos!" clock-node @ $call-method loop + + ['] true to idprom-valid? +; + + +\ 2 buffer: xid-buf +\ +\ : update-xid ( -- ) +\ nvram-node 0= if exit then +\ [ also " /obp-tftp" find-device ] +\ 8 ee-seek xid-buf 2 ee-read +\ xid-buf le-w@ 1+ dup xid-buf le-w! ( xid-high ) +\ 8 ee-seek xid-buf 2 ee-write ( xid-high ) +\ d# 20 lshift to rpc-xid ( ) +\ [ previous definitions ] +\ ; +\ stand-init: +\ update-xid +\ ; + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/qemu/pcinode.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/pcinode.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,61 @@ +purpose: System-specific portions of PCI bus package +\ See license at end of file + +dev /pci + +d# 33,333,333 " clock-frequency" integer-property + +external + +h# 1.c000 " bus-master-capable" integer-property + +h# 1c000 encode-int \ Mask of implemented slots +" Slot1" encode-string encode+ +" Slot2" encode-string encode+ +" Slot3" encode-string encode+ " slot-names" property + +: config-setup ( config-adr -- vaddr ) + \ Bit 31 ("enable") must be 1, bits 30:24 ("reserved") must be 0, + \ bits 1:0 must be 0. + dup h# ff.fffc and h# 8000.0000 or h# cf8 pl! ( config-adr ) + 3 and h# cfc + \ Merge in the byte selector bits +; + +: config-b@ ( config-adr -- b ) config-setup pc@ ; +: config-w@ ( config-adr -- w ) config-setup pw@ ; +: config-l@ ( config-adr -- l ) config-setup pl@ ; +: config-b! ( b config-adr -- ) config-setup pc! ; +: config-w! ( w config-adr -- ) config-setup pw! ; +: config-l! ( l config-adr -- ) config-setup pl! ; + + +fload ${BP}/dev/pci/intmap.fth \ Generic interrupt mapping code + +device-end + +" 2,3,4,5" dup config-string pci-probe-list + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/qemu/probemem.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/probemem.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,66 @@ +purpose: Create memory node properties and lists +\ See license at end of file + +" /memory" find-device + +headerless + +: scrub&release ( bottom top -- ) + 2dup = if 2drop exit then + over - 2dup berase + release +; + +headers + +: probe ( -- ) + 0 memsize reg \ Put all memory in the "reg" property value + 1 encode-int " #simm-slots" property \ 1 SIMM should be enough for everyone + + \ NT and MacOS have different ideas about the reporting of low pages + in-little-endian? if h# 4000 else h# 3000 then + origin pagesize round-down virt-phys - scrub&release + + memtop @ memsize scrub&release +; + +\ mkresid.fth needs #simm-slots and simm-size. Let's give it one SIMM +: simm-size ( simm# -- size ) + 0<> if 0 exit then + memsize +; + +device-end + +also forth definitions +stand-init: Memory node + " probe" memory-node @ $call-method +; +previous definitions + + +\ LICENSE_BEGIN +\ Copyright (c) 1997 FirmWorks +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/ppc/prep/qemu/resetvec.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/resetvec.bth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,34 @@ +purpose: Build script for the reset vector startup code +\ See license at end of file + +dictionary: ${BP}/cpu/ppc/build/basefw.dic +command: &ppcforth &dictionary &this + +build-now + +fload ${BP}/cpu/ppc/resetvec.fth + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/qemu/rom.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/rom.bth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,56 @@ +purpose: Build file rom image for QEMU -M prep +\ See license at end of file + +command: &builder &this +in: builton.fth +in: ${BP}/cpu/ppc/prep/qemu/build/start.di +in: ${BP}/cpu/ppc/prep/qemu/build/resetvec.di +in: ${BP}/cpu/ppc/prep/qemu/build/fw.dic +in: ${BP}/dev/video/build/bga.fc +in: ${BP}/dev/video/build/cirrus.fc +build-now + +\needs $add-dropin fload ${BP}/forth/lib/mkdropin.fth + +\ Always re-create the builton.fth file when we make a new rom.img +fload ${BP}/forth/lib/date.fth +fload ${BP}/cpu/ppc/prep/builton.bth + +writing qprepofw.rom + " resetvec.di" $add-file + " start.di" $add-file + + " fw.dic" " firmware" $add-dropin + + " builton.fth" " probe-" $add-dropin + " ${BP}/dev/video/build/cirrus.fc" " pci1013,b8" $add-dropin + " ${BP}/dev/video/build/bga.fc" " class030000" $add-dropin + " ${BP}/ofw/termemu/cp881-16.obf" " font" $add-dropin +\ h# 8.0000 pad-file +ofd @ fclose + +\ LICENSE_BEGIN +\ Copyright (c) 1997 FirmWorks +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/ppc/prep/qemu/rootnode.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/rootnode.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,40 @@ +purpose: Methods for root node +\ See license at end of file + +dev / +" device-tree" device-name +" QEMU PReP" model + +: init ( -- ) + + d# 66,666,666 " clock-frequency" integer-property \ For root bus + +; + +device-end + +\ LICENSE_BEGIN +\ Copyright (c) 1997 FirmWorks +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/ppc/prep/qemu/slam.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/slam.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,172 @@ +purpose: Slam the Falcon and Raven back into default, poweron like mode +\ See license at end of file + +label cfg-l! ( r3:value r4:offset -- ) + mfspr r28,lr + +\ Needs some work here.... +label cfg-l! ( r3:value r4:index -- ) \ Hammers r1,r2 + + set r1,h#80000cf8 \ Config address register + set r2,h#80000cfc \ Config data register + + sync + stwbrx r4,0,r1 + sync + stwbrx r3,0,r2 + sync + + bclr 20,0 +end-code + +label slam-falcon ( -- ) + mfspr r29,lr + + falcon-base set r1,* + + set r2,h#0000.0002 \ Setup General Control Register + stw r2,h#08(r1) \ Upper Falcon + +\ Danger Will Robinson! The next two stores will kill the machines +\ DRAM. If you run this code from DRAM, your dead. If you enbale +\ the stores, you must load the code to the pflash and then run the +\ code with the "go ff000100" command. + + set r2,h#0000.0000 \ Setup DRAM Size Register + stw r2,h#10(r1) \ Upper Falcon + + set r2,h#0000.0000 \ Setup DRAM Base Register + stw r2,h#18(r1) \ Upper Falcon + +\ End of danger section + + set r2,h#4200.0000 \ Setup Clock Frequency Register + stw r2,h#20(r1) \ Upper Falcon + + set r2,h#0000.0000 \ Setup ECC Registers + stw r2,h#30(r1) \ Upper Falcon + + set r2,h#0000.0000 \ Setup Scruber Registers + stw r2,h#40(r1) \ Upper Falcon + + set r2,h#ff40.0000 \ Setup ROMB Registers + stw r2,h#58(r1) \ Upper Falcon + + set r2,h#0000.0000 \ Setup Clock Enable Register + stw r2,h#28(r1) \ Upper Falcon + + mtspr lr,r29 + bclr 20,0 +end-code + +label slam-raven ( -- ) + mfspr r29,lr + + raven-base set r1,* + + set r2,0 + stw r2,h#70(r1) + stw r2,h#74(r1) + stw r2,h#78(r1) + stw r2,h#7c(r1) + stw r2,h#44(r1) + stw r2,h#4c(r1) + stw r2,h#54(r1) + stw r2,h#40(r1) + stw r2,h#48(r1) + stw r2,h#50(r1) + stw r2,h#30(r1) + stw r2,h#20(r1) + + set r2,h#8000.00c0 + stw r2,h#5c(r1) + + set r2,h#8000.8080 + stw r2,h#58(r1) + + set r2,h#0000.00be + stw r2,h#10(r1) + + lwz r2,h#8(r1) + sync + andi. r2,r2,h#ffff + sync + stw r2,h#8(r1) + + mtspr lr,r29 + bclr 20,0 \ ET go home... +end-code + +label slam-pci + mfspr r29,lr + + set r3,h#0280.0004 + set r4,4 + cfg-l! bl * + + set r3,0 + set r4,h#10 + cfg-l! bl * + + set r4,h#14 + cfg-l! bl * + + set r4,h#80 + cfg-l! bl * + set r4,h#88 + cfg-l! bl * + set r4,h#90 + cfg-l! bl * + set r4,h#98 + cfg-l! bl * + + set r4,h#84 + cfg-l! bl * + set r4,h#8c + cfg-l! bl * + set r4,h#94 + cfg-l! bl * + set r4,h#9c + cfg-l! bl * + + + mtspr lr,r29 + bclr 20,0 +end-code + + +label grand-slam ( -- ) + mfspr r30,lr + + slam-pci bl * + slam-raven bl * + slam-falcon bl * + + mtspr lr,r30 + bclr 20,0 +end-code + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/qemu/start.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/qemu/start.bth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,133 @@ +purpose: Low-level startup code for QEMU -M prep +\ See license at end of file + +dictionary: ${BP}/cpu/ppc/build/basefw.dic +command: &ppcforth &dictionary &this + +build-now + +\ create debug-start +create slam-it \ Slam the chipset into a working mode + +h# 0018.0000 constant RAMsize \ Firmware size +h# fef8.0000 constant falcon-base +h# fef8.0010 constant falcon-mem-config +h# feff.0000 constant raven-base + + +\needs start-assembling fload ${BP}/cpu/ppc/asmtools.fth +\needs write-dropin fload ${BP}/forth/lib/mkdropin.fth + +assembler +' be-l@ is asm@ +' be-l! is asm! +forth + +start-assembling + +label my-entry + 0 , \ To be patched later +end-code + +fload ${BP}/cpu/ppc/prep/qemu/slam.fth \ Code to emulate POR state + + +\needs io-base h# 8000.0000 constant io-base +fload ${BP}/cpu/ppc/prep/qemu/initrav.fth \ Code to init Raven +[ifdef] debug-start +fload ${BP}/arch/prep/initcom1.fth \ Code to init COM1 +[then] + +label init-pbc \ Setup VIA SouthBridge Chip + mfspr r30,lr + + set r1,h#80000cf8 \ PCI Configuration Address Register + + set r2,h#80005840 \ Config address of word containing offset 41 + stwbrx r2,r0,r1 + set r3,h#20 \ Enable Port 92 Fast Reset + stb r3,5(r1) \ Write to config register 0x41 + + set r2,h#80005844 \ Config address of word containing offset 46 + stwbrx r2,r0,r1 + set r3,h#0120 \ (swapped) Enable Delay Transaction, posting + sth r3,6(r1) \ Write to config register 0x46 + + set r2,h#80005848 \ Config address of word containing offset 48 + stwbrx r2,r0,r1 + set r3,h#0901 \ (swapped) Enable Extra RTC port 74/75 + sth r3,4(r1) \ Write to config register 0x48 + + set r2,h#8000584c \ Config address of word containing offset 4e + stwbrx r2,r0,r1 +\ set r3,h#00f1 \ (byte-swapped) set mem/DMA routing + set r3,h#ffff \ (byte-swapped) set mem/DMA routing + sth r3,6(r1) \ Write to config register 0x4e + + set r2,h#80005854 \ Config address of word containing offset 56 + stwbrx r2,r0,r1 + set r3,h#a500 \ (swapped) IRQ10 for PIRQA, IRQ5 for PIRQB + sth r3,6(r1) \ Write to config register 0x56 + + mtspr lr,r30 \ Restore return address + bclr 20,0 \ Return +end-code + +label start-system + mfspr r31,lr + + grand-slam bl * \ Attempt to emulate POR state... + + setup-raven bl * + init-pbc bl * +\ [ifdef] debug-start +\ init-com1 bl * +\ [then] + +\ XXX Read value from NVRAM when QEMU's NVRAM layout is settled +\ or read in from the Falcon registers when it's emulated. + + set r5,h#8000000 \ 128 MiB + stw r5,0(r0) \ Store here for ppcboot.fth + + RAMsize set r4,* \ Space Firmware gets + subf r3,r4,r5 \ Memory base address + + + mtspr lr,r31 \ Restore return address + bclr 20,0 \ ET go home... +end-code + +start-system my-entry put-branch + +end-assembling + +writing start.di +asm-base here over - 0 " start" write-dropin +ofd @ fclose + +\ LICENSE_BEGIN +\ Copyright (c) 1997 FirmWorks +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/ppc/prep/raven.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/raven.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,92 @@ +purpose: "Raven" PCI Bridge Controller Access Methods +\ See license at end of file + +h# feff.0000 constant raven-addr + +: pcic-l@ ( offset -- l ) raven-addr + be-l@ ; +: pcic-w@ ( offset -- l ) raven-addr + be-w@ ; +: pcic-c@ ( offset -- l ) raven-addr + c@ ; + +: pcic-l! ( l offset -- ) raven-addr + be-l! ; +: pcic-w! ( l offset -- ) raven-addr + be-w! ; +: pcic-c! ( l offset -- ) raven-addr + c! ; + +: raven? ( -- flag ) \ True if we have a Raven controller + 0 pcic-l@ h# 10574801 = +; + +: r-rev@ ( -- b ) 6 pcic-c@ ; \ Chip revision + +: r-csr@ ( -- w ) h# 0a pcic-w@ ; \ Control and status register +: r-csr! ( w -- ) h# 0a pcic-w! ; + +: csr-or ( w -- ) r-csr@ or r-csr! ; + +\ Is PCI in little endian? +: pci-le? ( -- le? ) r-csr@ h# 8000 and ; + +\ Set PCI bus to little endian +: pci-le ( -- ) h# 8000 csr-or ; + +\ PCI Read will complete before writes +: pci-flush-before-read ( -- ) h# 1000 csr-or ; + +\ PPC master ties up bus during xfer +: buss-hog ( -- ) h# 800 csr-or ; + +\ PPC Read will complete before writes +: ppc-flush-before-read ( -- ) h# 400 csr-or ; + +\ Set PPC bus timeouts +\ 0 = 256 uS +\ 1 = 64 uS +\ 2 = 8 uS +\ 3 = disable +: ppc-bus-timeout ( 0|1|2|3 -- ) + r-csr@ h# 300 invert and 8 lshift or r-csr! +; + +\ Set 64-bit mode +: p64 ( -- ) h# 80 csr-or ; + +\ Turn on open-pic controller +: open-pic-enable ( -- ) h# 20 csr-or ; + +\ Read module-id bits, tells us who owns he bus in MP systems +\ 0 = device on ABG0 +\ 1 = device on ABG1 +\ 2 = device on ABG2 +\ 3 = Raven +: mid@ ( -- master-id ) r-csr@ h# 3 and ; + +: r-feature@ ( -- w ) h# 8 pcic-w@ ; +: r-feature! ( w -- ) h# 8 pcic-w! ; + +: r-prescaler@ ( -- b ) h# 10 pcic-c@ ; +: r-prescaler! ( b -- ) h# 10 pcic-c! ; + + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/reset.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/reset.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,117 @@ +purpose: Reset system - this version works on many PR*P systems +\ See license at end of file + +headerless +: (reset-all) ( -- ) + icache-off dcache-off + + \ We are about to disable translations by modifying the MSR, + \ but we must preserve our ability to do ISA I/O cycles to the + \ "92" register, so we have to set io-base back to the physical + \ address of ISA space. + h# 8000.0000 to io-base + + \ Warm reset doesn't affect all the MSR bits, so we have to + \ explicitly set some of them to their power-up values. + \ We want ILE (10000) off so that the reset interrupt will occur + \ in big-endian mode, external interrupts (8000) off, machine + \ checks (1000) off, address translation (30) off, and the + \ interrupt prefix (40) on (to direct the reset interrupt to ROM). + + msr@ h# 19030 invert and h# 40 or msr! + + \ Read the old value because we must not change the + \ endianness of the host bridge until the very last step. + + \ h# 92 pc@ ( old-value ) + + \ Drive the reset bit low because it's the low-to-high transition + \ that does the work. + + \ dup 1 invert and h# 92 pc! ( old-value ) + + \ Clear the bridge endian bit (2) and set the reset bit (1) + \ 2 invert and 1 or h# 92 pc! + + \ See below for the history behind the following replacement code. + \ We first check the reset bit for 1 and reset it only if needed. + + h# 92 pc@ dup 1 and if + + \ If we must reset it, the following will get the endian bit + \ from the msr reg for the Ultra. The Viper will reset here. + + dup msr@ 1 and 2* or 1 invert and h# 92 pc! + + then 2 invert and 1 or h# 92 pc! + + \ On some systems, it takes a while for the reset to take effect, + \ so we wait here rather than returning to the prompt immediately, + \ to avoid confusing the user. + d# 3000 ms +; +' (reset-all) to reset-all +headers + +\ Here's the story: +\ +\ On an Ultra, the PCI bridge endian bit is driven by bit 1 (0x02) in +\ I/O port 92. In the same port, bit 0 (0x01) making the transition +\ from 0 to 1 causes the machine to reset. This is the standard I/O +\ port 92 reset. +\ +\ On a Viper, any write to port 92 will reset the machine (apparently +\ the implementation is a PAL) and the PCI bridge endian switch is +\ controlled via the PCI configuration registers. As it turns out, +\ the code for the Viper will work on a Ultra to control the bridge +\ (that's good, eaglele.fth is in arch/prep/) so there isn't any +\ problem until you go to mess with port 92 on the Ultra. +\ +\ Here's the relevant code from arch/prep/reset.fth: +\ +\ 92 pc@ dup 1 invert and 92 pc! 2 invert and 1 or 92 pc! +\ +\ If you try to reset the Ultra while running in little endian, it now +\ reads port 92 its endian bit as zero (meaning big endian) while the +\ Eagle bridge chip is really running in little endian (controlled +\ through the config registers). This bit is carefully saved and +\ stored back into the port when the reset bit is forced to zero. +\ This neatly hangs the system. From observation, bit 0 is never set +\ on entry to this code, even though it is left set. It is probably +\ reset after it's tested in the early startup code. We could try the +\ following for the reset code: +\ +\ 92 pc@ dup 1 and if +\ dup msr@ 1 and 2* or 1 invert and 92 pc! +\ then 2 invert and 1 or h# 92 pc! +\ +\ We'll have a problem with this code if we get some machine which +\ uses bit 1 (0x02) for something other than the Eagle chip endian +\ switch and it hangs the machine to set it and the machine is in +\ little endian and bit 0 of port 92 is 1 when we invoke the +\ (reset-all) word. + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/ppc/prep/residdef.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/ppc/prep/residdef.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,214 @@ +purpose: Definitions of residual data structures and field values +\ See license at end of file + +[ifdef] create-resid-field-names +alias res-field field +: rfield ( offset size "name" -- offset' ) + create over , + does> @ residual-data + +; +[else] +: res-field ( offset size "name" -- offset' ) safe-parse-word 2drop + ; +alias rfield res-field ( offset size "name" -- offset' ) +[then] + +d# 32 constant res#cpus \ Number of CPU slots in residual data +d# 64 constant max#mems +d# 256 constant max#devices +d# 32 constant /pnp-avg +d# 64 constant max#mem-segs + +: bfield ( offset "name" -- offset' ) /c res-field ; +: wfield ( offset "name" -- offset' ) /w res-field ; +: lfield ( offset "name" -- offset' ) /l res-field ; + +struct ( cpu ) + lfield >cpu-type \ PVR@ + bfield >cpu# \ The interrupt cookie for MP interrupts - 0 for UP + bfield >cpu-state \ 0:good 1:running FW 2:inactive 3: failed + 2 + \ reserved +constant /cpu + +struct ( mem-seg ) + lfield >usage + \ 1: FW stack 2: FW heap 4: FW code 8: Boot image 10: free mem + \ 20: Unpopulated mem 40: ISA 80: PCI config 100: PCI + \ 200: system regs 400: system I/O 800: I/O memory + \ 1000: unpopulated ROM 2000: ROM 4000: resume block 8000: other + lfield >base-page + lfield >page-count +constant /mem-seg + +struct ( mem ) + lfield >simm-size \ size in Mbytes. 0 means absent or bad +constant /mem + +struct ( device ) + lfield >bus-id \ 1: ISA 2: EISA 4: PCI 8: PCMCIA 10: PNPISA + \ 20: MCA 40: MX 80: Processor bus 100: VME + lfield >dev-id \ bus-specific encoding + lfield >serial# \ logical unit number + lfield >flags \ 1: output 2: input 4: console out 8: console in + \ 10: removable 20: R/O 40: power managed + \ 80: disableable 100: configurable 200: bootable + \ 400: on docking station 800: not configurable + \ 1000: failed 2000: on motherboard 4000: enabled + bfield >base-type + bfield >sub-type + bfield >interface + \ 1:0 SCSI 1:1 IDE 1:1:1 ATA IDE + \ 1:2 floppy 1:2:1 765 1:2:2 Super I/O floppy at 398 + \ 1:2:3 .. at 026e 1:2:4 .. at 15c 1:2:5 .. at 02e + \ 1:3 IPI 1:80 other mass storage + \ 2:0 Ethernet 2:1 Token Ring 2:2 FDDI 2:80 other net + \ 3:0 VGA 3:1 SVGA 3:2 XGA 3:80 other display + \ 4:0 video 4:1 audio 4:1:1 CS4232 audio + \ 4:80 other multimedia + \ 5:0 RAM 5:0:0 PCI mem ctlr 5:0:1 RS6K mem ctlr + \ 5:1 FLASH 5:80 other memory + \ 6:0 host bridge 6:1 ISA bridge 6:2 EISA bridge + \ 6:3 MCA bridge 6:4:0 PCI w/ memory mapped config. + \ 6:4:1 PCI with CF8/CFC config 6:4:2 RS6K PCI + \ 6:5 PCMCIA bridge 6:6 VME bridge 6:80 other bridge + \ 7:0 RS232 7:0:1 COMx 7:0:2 16450 7:0:3 16550 + \ 7:0:4 Super I/O serial @ 398 7:0:5 .. @ 26e + \ 7:0:6 .. @ 15c 7:0:5 .. @ 02e + \ 7:1 parallel 7:1:1 LPTx + \ 7:1:2 Super I/O parallel @ 398 7:1:3 .. at 26e + \ 7:1:4 .. at 15c 7:1:5 .. at 02e + \ 7:80 other communications device + \ 8:0 interrupt controller 8:0:1 ISA 8259 + \ 8:0:2 EISA PIC 8:0:3 MPIC 8:0:4 RS6K PIC + \ 8:1 DMA 8:1:1 ISA DMA 8:1:2 EISA DMA + \ 8:2 timer 8:2:1 ISA timer 8:2:2 EISA timer + \ 8:3 RTC 8:3:1 ISA RTC + \ 8:4 L2 cache 8:4:1 write-through-only L2 cache + \ 8:4:2 copyback-enabled L2 cache 8:4:3 RS6K L2 cache + \ 8:5:0 NVRAM at ports 74-76 8:5:1 direct mapped NVRAM + \ 8:5:2 24-bit indirect NVRAM at ports 73-76 + \ 8:6 power management 8:6:1 emerg. power-off warning + \ 8:6:2 software power on/off + \ 8:7 CMOS RAM + \ 8:8 operator panel 8:8:1 hard disk light + \ 8:8:2 CDROM light 8:8:3 power light 8:8:4 key lock + \ 8:8:5 alphanumeric display 8:8:6 system status LED + \ 8:9 service processor class 1 + \ 8:a service processor class 2 + \ 8:b service processor class 3 + \ 8:c graphics assist 8:c:0 none 8:c:1 transfer data + \ 8:c:2 IGM32 8:c:3 IGM64 + \ 8:80 other system peripheral + bfield >spare + lfield >bus-access \ Processor bus: bus#:byte BUID:byte reserved:short + \ ISA bus: slot#:byte log dev#:byte reserved:short + \ PCI bus: bus#:byte DevFunc#:byte reserved:short + \ etc. PCI DevFunc# is bits 15:8 of conf. addr. reg + lfield >allocated-offset \ Offset into PnP heap + lfield >possible-offset \ Offset into PnP heap + \ usually points to a PnP terminator byte + lfield >compatible-offset \ Offset into PnP heap + \ usually points to a PnP terminator byte +constant /device + +struct ( residual-data ) + 4 rfield r-length \ constant + 1 rfield r-version \ constant + 1 rfield r-revision \ constant + 2 rfield r-ec \ constant + + \ VPD section + + d# 32 rfield r-printable-model \ from "banner-name" property in "/' + d# 16 rfield r-serial# \ from NVRAM or IDPROM + d# 48 + \ reserved + 4 rfield r-fw-supplier \ fixed + 4 rfield r-fw-supports \ fixed + 4 rfield r-nvram-size \ from "size" method in "/nvram" + 4 rfield r-#simm-slots \ Code in probemem.fth + 2 rfield r-endian-switch-method \ depends on bridge chip + 2 rfield r-spread-io-method \ depends on bridge chip + 4 rfield r-smpiar \ ?? + 4 rfield r-ram-err-log-offset \ computed after setting up PnP heap + d# 8 + \ reserved + 4 rfield r-processor-hz \ "clock-frequency" prop. in CPU node + 4 rfield r-processor-bus-hz \ "clock-frequency" prop. in "/" + d# 4 + \ reserved + 4 rfield r-timebase-divisor \ CPU-dependent 1000 * bus-clocks/tick + 4 rfield r-wordwidth \ 32 for 60x, 64 for 620 + 4 rfield r-pagesize \ constant + 4 rfield r-coherence-block-size \ from "cache-line-size" in CPU node + 4 rfield r-granule-size \ " + 4 rfield r-cache-size \ sum of i$ + d$ in Kbytes - 16 for 603, 32 for 604 + 4 rfield r-cache-attrib \ 1 for split - from "cache-unified" property + 4 rfield r-cache-assoc \ 0 for 603, 603e, 604 + 4 rfield r-cache-line-size \ 0 + 4 rfield r-icache-size \ from cpu-node prop + 4 rfield r-icache-assoc \ 2 for 603, 4 for 603e, 604 + 4 rfield r-icache-line-size \ 32 + 4 rfield r-dcache-size \ 8 for 603, 16 for 604 + 4 rfield r-dcache-assoc \ 2 for 603, 4 for 603e, 604 + 4 rfield r-dcache-line-size \ 32 + 4 rfield r-tlb-size \ 128 + 4 rfield r-tlb-attrib \ 1 for split + 4 rfield r-tlb-assoc \ 0 + 4 rfield r-itlb-size \ 64 + 4 rfield r-itlb-assoc \ 2 + 4 rfield r-dtlb-size \ 64 + 4 rfield r-dtlb-assoc \ 2 + 4 rfield r-extended-vpd \ NULL pointer + + \ CPU section + + 2 rfield r-max#cpus \ system-dependent + 2 rfield r-actual#cpus \ # of cpu nodes + /cpu res#cpus * rfield r-cpus + + \ Memory section + + 4 rfield r-total-memory \ "reg" in "memory" + 4 rfield r-good-memory \ "reg" in "memory" + 4 rfield r-actual#mem-segs \ "reg" & "avail" + /mem-seg max#mem-segs * rfield r-mem-segs + 4 rfield r-actual#memories + /mem max#mems * rfield r-mems + + \ Device section + + 4 rfield r-actual#devices + /device max#devices * rfield r-devices + +dup constant pnp-heap-offset + + /pnp-avg max#devices * 2* rfield r-pnp-heap + +constant /residual-data + +\ : >mem ( mem# -- adr ) /mem * r-mems + ; +\ : >mem-seg ( seg# -- adr ) /mem-seg * r-mem-segs + ; +\ : >cpu ( cpu# -- adr ) /cpu * r-cpus + ; +\ : >devices ( dev# -- adr ) /device * r-devices + ; + + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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 + Modified: cpu/ppc/resetvec.fth ============================================================================== --- cpu/ppc/resetvec.fth Sat Aug 30 03:45:28 2014 (r3737) +++ cpu/ppc/resetvec.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -8,7 +8,7 @@ [then] \needs start-assembling fload ${BP}/cpu/ppc/asmtools.fth -\needs write-dropin fload ${BP}/tools/mkdropin.fth +\needs write-dropin fload ${BP}/forth/lib/mkdropin.fth h# e.0000 d# 16 rshift constant inflate-offset \ Shifted for addis h# f.0000 d# 16 rshift constant workspace-offset \ Shifted for addis Modified: cpu/x86/pc/emu/fw.bth ============================================================================== --- cpu/x86/pc/emu/fw.bth Sat Aug 30 03:45:28 2014 (r3737) +++ cpu/x86/pc/emu/fw.bth Tue Sep 2 23:07:35 2014 (r3738) @@ -4,6 +4,7 @@ dictionary: ${BP}/cpu/x86/build/basefw.dic command: &x86forth &dictionary &this in: builton.fth +in: ${BP}/dev/ide/node.hex build-now " fw.tag" r/w create-file drop tag-file ! @@ -192,6 +193,8 @@ [then] devalias nfs net//obp-tftp:last//nfs +fload ${BP}/dev/ide/twolevel-ide.fth + fload ${BP}/ofw/inet/loadtcp.fth support-package: http Added: dev/ds1385n.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/ds1385n.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,94 @@ +purpose: Driver for NVRAM portion of DS1385 +\ See license at end of file + +" nvram" device-name +" nvram" device-type +" pnpPNP,8" " compatible" string-property + +d# 4096 value /nvram + +nv-adr-low 1+ nv-adr-high = [if] + nv-adr-low my-space encode-phys 2 encode-int encode+ + nv-data my-space encode-phys encode+ 1 encode-int encode+ +[else] + nv-adr-low my-space encode-phys 1 encode-int encode+ + nv-adr-high my-space encode-phys encode+ 1 encode-int encode+ + nv-data my-space encode-phys encode+ 1 encode-int encode+ +[then] + +" reg" property + +nv-data global value data-adr +nv-adr-low global value as0-adr +nv-adr-high global value as1-adr + +0 instance value nvram-ptr + +\ Writing to the as1 address latches the high 4 bits of the address, +\ writing to the as0 address latches the low 8 bits of the address, +\ and reading or writing the data address reads or writes the data. +: nvram-set-adr ( offset -- data-adr ) + wbsplit as1-adr pc! as0-adr pc! data-adr +; +: nvram@ ( offset -- n ) nvram-set-adr pc@ ; +: nvram! ( n offset -- ) nvram-set-adr pc! ; +' nvram@ to nv-c@ +' nvram! to nv-c! + +\ headers +: clip-size ( adr len -- len' adr len' ) + nvram-ptr + /nvram min nvram-ptr - ( adr len' ) + tuck +; +: update-ptr ( len' adr -- len' ) + drop dup nvram-ptr + to nvram-ptr +; + +\ external +: seek ( d.offset -- status ) + 0<> over /nvram u> or if drop true exit then \ Seek offset too large + to nvram-ptr + false +; +: read ( adr len -- actual ) + clip-size 0 ?do ( len' adr ) + i nvram-ptr + nvram@ ( len' adr value ) + over i + c! ( len' adr ) + loop ( len' adr ) + update-ptr +; +: write ( adr len -- actual ) + clip-size 0 ?do ( len' adr ) + dup i + c@ ( len' adr value ) + i nvram-ptr + nvram! ( len' adr ) + loop ( len' adr ) + update-ptr ( len' ) +; +: size ( -- d ) /nvram 0 ; + +\ external +: open ( -- flag ) true ; +: close ( -- ) ; +\ LICENSE_BEGIN +\ Copyright (c) 1997 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 Modified: dev/i8259.fth ============================================================================== --- dev/i8259.fth Sat Aug 30 03:45:28 2014 (r3737) +++ dev/i8259.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -137,12 +137,12 @@ drop false ( false ) then ( false | level true ) ; -: interrupt-done ( -- ) eoi ; : eoi ( -- ) h# b h# 20 ocw3@ 4 and ( slave? ) h# 20 h# 20 pc! ( slave? ) \ EOI to master if h# 20 h# a0 pc! then ( ) \ EOI to slave ; +: interrupt-done ( -- ) eoi ; [then] \ XXX we really should map the registers Modified: dev/ide/atapi.fth ============================================================================== --- dev/ide/atapi.fth Sat Aug 30 03:45:28 2014 (r3737) +++ dev/ide/atapi.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -84,7 +84,8 @@ defer pio-rwblock ' noop to pio-rwblock : sendpkt ( addr len pkt-addr -- count ) over h# a0 swap sendcmd ( addr len pkt-addr ) - wait-until-drq pkt-len chip-base io-blk-w! ( addr len ) + wait-until-drq if h# 100 ms 3drop 0 then ( addr len pkt-addr ) + pkt-len chip-base io-blk-w! ( addr len ) waitonbusy ( addr len ) waitfordrq if \ Timeout ( addr len ) h# 100 ms 2drop 0 ( 0 ) Modified: dev/ide/idenode.fth ============================================================================== --- dev/ide/idenode.fth Sat Aug 30 03:45:28 2014 (r3737) +++ dev/ide/idenode.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -55,6 +55,18 @@ r> base ! ; +: probe-child ( unit -- ) + dup set-address ( unit ) + any-blocks? 0= if drop exit then ( unit ) + new-device ( unit ) + encode-int " reg" property ( ) + " node-fcode" $call-parent 1 byte-load ( ) + cdrom? if " cdrom" device-name then ( ) + finish-device ( ) +; + +: probe ( -- ) 2 0 do i probe-child loop ; + headers \ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks Added: dev/ide/twolevel-ide.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/ide/twolevel-ide.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,68 @@ +\ See license at end of file +purpose: IDE two-level - master,slave / primary,secondary on different levels + +0 0 " i1f0" " /isa" begin-package +" ide-controller" device-name + +create node-fcode +fload $(BP)/dev/ide/node.hex + +fload $(BP)/dev/ide/isaintf.fth +fload $(BP)/dev/ide/generic.fth + +\ The ide-controller address space is of the form "unit#", an integer. +\ Each child is an IDE "string" + +: decode-unit ( unit-str len -- phys ) + base @ >r hex + $number if 0 then + r> base ! +; + +: encode-unit ( phys -- unit-str len ) base @ >r hex (u.) r> base ! ; + +1 encode-int " #address-cells" property + +: any-blocks? ( -- flag ) /block@ ; +: cdrom? ( -- flag ) atapi-drive?@ ; + +new-device \ Create ide@0 + 0 encode-int " reg" property + fload ${BP}/dev/ide/idenode.fth \ "ide" name declared here +finish-device + +new-device \ Create ide@1 + 1 encode-int " reg" property + fload ${BP}/dev/ide/idenode.fth \ "ide" name declared here +finish-device + +end-package + +stand-init: Probe IDE + " /ide-controller/ide@0" select-dev " probe" $call-self unselect-dev + " /ide-controller/ide@1" select-dev " probe" $call-self unselect-dev +; + +\ LICENSE_BEGIN +\ Copyright (c) 2014 William M. Bradley +\ +\ 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/isa/pc87307.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/isa/pc87307.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,322 @@ +purpose: Driver for National PC87307 "Super IO" chip with Plug 'n Play +\ See license at end of file + +hex +: sio-b@ ( index -- b ) h# 15c pc! h# 15d pc@ ; +: sio-b! ( b index -- ) h# 15c pc! h# 15d pc! ; +: select-sio-dev ( device# -- ) 7 sio-b! ; + +nuser superio-node + +0 0 " i15c" " /isa" begin-package \ SuperI/O configuration registers +" configuration" device-name +" NSM,PC87307" model +my-address my-space 2 reg +" configuration" device-type + +0 0 encode-bytes + " NSM,PC87307-configuration" encode-string encode+ + " pnp-configuration" encode-string encode+ +" compatible" property + +headerless +: enable-sio-dev ( device# -- ) select-sio-dev 1 h# 30 sio-b! ; + +: ps2-floppy ( -- ) h# 21 sio-b@ 4 invert and h# 21 sio-b! ; +\ : at-floppy ( -- ) h# 21 sio-b@ 4 or h# 21 sio-b! ; + +\ Doubly-indirect access to programmable chip select control registers +: pcs@ ( index -- data ) h# 23 sio-b! h# 24 sio-b@ ; +: pcs! ( data index -- ) h# 23 sio-b! h# 24 sio-b! ; + +headers + +\ This table converts the "interrupt type" field in Open Firmware ISA +\ "interrupts" property to the corresponding code for Plug N Play +\ interrupt configuration registers. + \ OFW#/type 0/low level 1/high level 2/falling edge 3/rising edge +create int-map 1 c, 3 c, 0 c, 2 c, + +: set-interrupt ( level mode int# device# -- ) + select-sio-dev ( level mode int# ) + h# 70 swap wa+ ( level mode pnp-reg# ) + swap int-map + c@ swap ( level pnp-mode pnp-reg# ) + tuck 1+ sio-b! sio-b! ( ) +; + +: set-dma ( channel dma# device# -- ) + select-sio-dev ( channel dma# ) + h# 74 swap ca+ ( channel pnp-reg# ) + sio-b! ( ) +; + +: set-reg ( address space size port# device# -- ) + select-sio-dev ( address space size port# ) + h# 60 swap wa+ >r ( address space size r: pnp-reg# ) + swap 1 and if \ I/O space ( address size r: pnp-reg# ) + drop ( address r: pnp-reg# ) + wbsplit r@ sio-b! r> 1+ sio-b! ( ) + else \ Memory space ( address size r: pnp-reg# ) + \ XXX implement me + \ The Memory configuration registers are at 40-44, 48-4d, 50-54, 58-5d + \ See /fw/doc/standards/pnp/isapnp.{doc,ps} + true abort" ISA memory space configuration not yet supported" + then +; + +[ifdef] notdef +: set-memory ( address size device# -- ) +\ XXX implement me +; +[then] + +0 value device# +: set-configuration ( -- ) + " device#" get-property if exit then ( adr len ) + get-encoded-int to device# ( ) + + " reg" get-property 0= if ( adr len ) + \ XXX we must maintain a separate count of I/O and memory descriptors + \ There can be up to 8 I/O ports and up to 4 memory ranges + d# 12 0 do ( adr len ) + dup 3 /l* < if leave then ( adr len ) + decode-phys 2>r decode-int 2r> rot ( adr len phys.lo,hi size ) + i device# " set-reg" superio-node @ $call-method + loop ( adr len ) + 2drop ( ) + then ( ) + + " interrupts" get-property 0= if ( adr len ) + 2 0 do ( adr len ) + dup 2 /l* < if leave then ( adr len ) + 2 decode-ints swap ( adr' len' level mode ) + i device# " set-interrupt" superio-node @ $call-method + loop ( adr len ) + 2drop ( ) + then ( ) + + " dma" get-property 0= if ( adr len ) + 2 0 do ( adr len ) + dup 5 /l* < if leave then ( adr len ) + decode-int i device# " set-dma" superio-node @ $call-method + 4 0 do decode-int drop loop ( adr' len' ) + loop ( adr len ) + 2drop ( ) + then ( ) + + device# " enable-sio-dev" superio-node @ $call-method +; + +: open ( -- okay? ) true ; +: close ( -- ) ; + +also forth definitions +: configure-superio ( -- ) + " /isa/configuration" open-dev superio-node ! + " /isa" ['] set-configuration scan-subtree +; +warning @ warning off +: stand-init-io + stand-init-io + configure-superio +; +warning ! +previous definitions + +end-package + +fload ${BP}/dev/pci/isaall.fth \ The usual ISA devices + +\ Declare the Super-I/O chip type in the child nodes +dev /isa/parallel +" NSM,PC87307" model +4 " device#" integer-property +\ XXX We should configure this device in ECP mode so we can set +\ it to level sensitive +7 encode-int 3 encode-int encode+ " interrupts" property +device-end + +[ifndef] no-com1-node +dev /isa/serial@3f8 +" NSM,PC87307" model +6 " device#" integer-property +4 encode-int 1 encode-int encode+ " interrupts" property +device-end +[then] + +[ifndef] no-com2-node +dev /isa/serial@2f8 +" NSM,PC87307" model +5 " device#" integer-property +3 encode-int 1 encode-int encode+ " interrupts" property +device-end +[then] + +[ifndef] no-floppy-node +dev /isa/fdc +" NSM,PC87307" model +3 " device#" integer-property +6 encode-int 1 encode-int encode+ " interrupts" property +device-end +[then] + +dev /isa/8042 +0 " device#" integer-property +" NSM,PC87307" model +" interrupts" delete-property +device-end + +dev /isa/8042/keyboard +0 " device#" integer-property +1 encode-int 1 encode-int encode+ " interrupts" property +device-end + +dev /isa/8042/mouse +1 " device#" integer-property +d# 12 encode-int 1 encode-int encode+ " interrupts" property +device-end + +\ Driver for the power management device on the pc87308 sio chip. + +0 0 " i380" " /isa" begin-package \ power management node + +headerless +" power" device-name +" power" device-type + +my-address my-space 2 encode-reg " reg" property + +8 " device#" integer-property +0 0 encode-bytes + " NSM,PC87307-power" encode-string encode+ + " pnpNSC,c0f" encode-string encode+ + " pnpPNP,c02" encode-string encode+ +" compatible" property + +0 value power-base + +\ Indirect access to power management control registers +: pm@ ( index -- data ) power-base rb! power-base 1+ rb@ ; +: pm! ( data index -- ) power-base rb! power-base 1+ rb! ; + +: open ( -- flag ) + power-base 0= if + my-address my-space 2 " map-in" $call-parent is power-base + then + true +; +: close ( -- ) ; + +also forth definitions + +0 value power-node + +stand-init: Power + " /power" open-dev to power-node +; + +previous definitions + +end-package + +0 0 " i3e0" " /isa" begin-package \ gpio node + +headerless +" gpio" device-name +" gpio" device-type + +my-address my-space 2 encode-reg " reg" property + +7 " device#" integer-property + +0 0 encode-bytes + " dnard,gpio" encode-string encode+ + " NSM,PC87307-gpio" encode-string encode+ + " pnpNSC,c02" encode-string encode+ + " pnpPNP,c02" encode-string encode+ +" compatible" property + +0 value gpio-base + +: map-gpio ( -- ) + my-address my-space 8 " map-in" $call-parent is gpio-base +; + +: gpio@ ( index -- n ) gpio-base + rb@ ; +: gpio! ( n index -- ) gpio-base + rb! ; + +0 constant gpio-data +1 constant gpio-direction +2 constant output-type +3 constant pull-up-control + +: open ( -- flag ) + gpio-base 0= if + map-gpio + + \ This lets "reset-all" work even in the early phases of stand-init + power-node 0= if " /power" open-dev to power-node then + + \ init the power management to turn on gpio + h# 01 " pm@" power-node $call-method h# 80 or + h# 01 " pm!" power-node $call-method + then + true +; +: close ( -- ) ; +: init ( -- ) ; \ Redefine as needed + +0 encode-int " #size-cells" property +0 encode-int " #address-cells" property +: decode-unit ( adr len -- ) ; +: encode-unit ( -- adr len ) " " ; + +also forth definitions + +0 value gpio-node + +stand-init: GPIO + " /gpio" open-dev to gpio-node + " init" gpio-node $call-method +; + +previous definitions + +end-package + + +0 0 " i70" " /isa" begin-package \ Real-time clock node +fload ${BP}/dev/ds1385r.fth +2 " device#" integer-property +8 encode-int 0 encode-int encode+ " interrupts" property + +also forth definitions +stand-init: RTC + " /rtc" open-dev clock-node ! +; +previous definitions + +end-package +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/m48t559.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/m48t559.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,143 @@ +purpose: Driver for RTC portion og M48T559 +\ See license at end of file + +hex +headerless +" rtc" device-name +" rtc" device-type + +" m48t559-rtc" encode-string +" compatible" property + +my-address my-space encode-phys 4 encode-int encode+ +" reg" property + +h# 1ff8 constant rtc-base + +: rtc-set-adr ( offset -- data-adr ) + rtc-base + wbsplit nv-adr-high pc! nv-adr-low pc! nv-data +; +: rtc@ ( offset -- n ) lock[ rtc-set-adr pc@ ]unlock ; +: rtc! ( n offset -- ) lock[ rtc-set-adr pc! ]unlock ; +: inhibit-updates ( -- ) lock[ 0 rtc@ h# 40 or 0 rtc! ]unlock ; +: enable-writes ( -- ) lock[ 0 rtc@ h# 80 or 0 rtc! ]unlock ; +: start-updates ( -- ) lock[ 0 rtc@ h# c0 invert and 0 rtc! ]unlock ; + +\ Going to carve out a few more bytes, just under the start of the rtc regs +\ to use as a place to put things like the century and maybe battery status + +\ So our map looks like: +\ +\ Offset Value Where +\ +\ 0x1fff year RTC +\ 0x1ffe month RTC +\ 0x1ffd date RTC +\ 0x1ffc day RTC +\ 0x1ffb hours RTC +\ 0x1ffa minutes RTC +\ 0x1ff9 seconds RTC +\ 0x1ff8 control RTC <- rtc-base address +\ 0x1ff7 watchdog RTC +\ 0x1ff6 interrupts RTC +\ 0x1ff5 alarm date RTC +\ 0x1ff4 alarm hours RTC +\ 0x1ff3 alarm minutes RTC +\ 0x1ff2 alarm seconds RTC +\ 0x1ff1 unused RTC +\ 0x1ff0 flags RTC +\ 0x1fef mac NVRAM +\ 0x1fee mac NVRAM +\ 0x1fed mac NVRAM +\ 0x1fec mac NVRAM +\ 0x1feb mac NVRAM +\ 0x1fea mac NVRAM +\ 0x1fe9 mac checksum NVRAM +\ 0x1fe8 century NVRAM + +: cmos-base-adr ( -- adr ) rtc-base h# 10 - ; +: cmos-set-addr ( offset -- data-adr ) + cmos-base-adr + wbsplit nv-adr-high pc! nv-adr-low pc! nv-data +; +: cmos@ ( offset -- b ) cmos-set-addr pc@ ; +: cmos! ( b offset -- ) cmos-set-addr pc! ; + +: century! ( b -- ) 0 cmos! ; +: century@ ( -- b ) 0 cmos@ ; + +: check-battery ( -- error? ) + " status" get-my-property 0= if + decode-string 2nip " bad battery" $= nip exit + then + + -8 rtc@ h# 10 and ( error? ) \ Get battery status + dup if ( error? ) + " bad battery" ( error $ ) + else ( 0 ) + " okay" ( 0 $ ) + then ( error? $ ) + encode-string " status" property ( error? ) +; + +true value first-open? +: open ( -- ok? ) + first-open? if + check-battery drop + false to first-open? + then + true +; +: close ; + +: bcd> ( bcd -- binary ) dup h# f and swap 4 >> d# 10 * + ; +: >bcd ( binary -- bcd ) d# 10 /mod 4 << + ; + +: bcd-time&date ( -- s m h d m y century ) + inhibit-updates + 1 rtc@ 2 rtc@ 3 rtc@ 5 rtc@ 6 rtc@ 7 rtc@ century@ ( s m h d m y c ) + start-updates +; +: bcd! ( n offset -- ) swap >bcd swap rtc! ; + +: get-time ( -- s m h d m y ) + bcd-time&date >r >r >r >r >r >r + bcd> r> bcd> r> bcd> r> bcd> r> bcd> r> bcd> r> bcd> ( s m h d m y c ) + + \ We allow the century byte to force the year to 20xx, but not to force + \ it to 19xx, because that would cause a problem when the century + \ rolls over. + dup d# 20 <> if + drop dup d# 94 < if d# 20 else d# 19 then + then + + d# 100 * + \ Merge century with year +; +: set-time ( s m h d m y -- ) + enable-writes + d# 100 /mod century! 7 bcd! 6 bcd! 5 bcd! 3 bcd! 2 bcd! 1 bcd! + r> d# 11 rtc! ( ) + start-updates +; +\ LICENSE_BEGIN +\ Copyright (c) 1997 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 Modified: dev/pci/intmap.fth ============================================================================== --- dev/pci/intmap.fth Sat Aug 30 03:45:28 2014 (r3737) +++ dev/pci/intmap.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -60,7 +60,7 @@ 1- swap d# 11 rshift h# 1f and ( int-pin0 dev# ) \ Bail out for non-existent device IDs - pin,dev>pic-irq if false exit then ( opic-int# ) + pin,dev>isa-irq if false exit then ( opic-int# ) true ; Added: dev/via/vt82c586.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/via/vt82c586.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,57 @@ +purpose: Device nodes for VIA Technologies PCI-to-ISA bridge chip +\ See license at end of file + +" VIA,82C586" encode-string " model" property +" pci1106,586" encode-string +" pnpPNP,a00" encode-string encode+ +" compatible" property + +fload ${BP}/dev/pci/isa.fth + +fload ${BP}/dev/pci/isamisc.fth + +\ Amend various device nodes +my-self 0 to my-self \ Force the properties to be created in the child nodes + +" dma-controller" find-device + " pci1106,586-dma-controller" +compatible + " chrp,dma" +compatible + " VIA,82C586" model +pop-device + +" interrupt-controller" find-device + " pci8086,484-interrupt-controller" +compatible + " pci10ad,105-interrupt-controller" +compatible + " chrp,iic" +compatible + " WINB,83C553" model +pop-device + +" timer" find-device + " pci10ad,105-timer" +compatible + " WINB,83C553" model +pop-device + +to my-self +\ LICENSE_BEGIN +\ Copyright (c) 1997 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/video/bga.bth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/video/bga.bth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,51 @@ +\ See license at end of file +purpose: Build file for Bochs Graphics Adapter driver + +command: &tokenize &this +build-now + +silent on + +begin-tokenizing bga.fc + +FCode-version2 + +" vga" device-name +fload ${BP}/dev/video/common/defer.fth \ Defered words +1024x768x16 +fload ${BP}/dev/video/controlr/pcimap.fth \ Generic PCI implementations +fload ${BP}/dev/video/controlr/vga.fth \ Load generic VGA routines +fload ${BP}/dev/video/controlr/bga.fth \ Load BGA routines +fload ${BP}/dev/video/controlr/bgapci.fth \ PCI routines +fload ${BP}/dev/video/common/graphics.fth \ Graphics and color routines +fload ${BP}/dev/video/common/init.fth \ Init code +fload ${BP}/dev/video/common/display.fth \ High level interface code + +probe +end0 + +end-tokenizing + +\ LICENSE_BEGIN +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/video/controlr/bga.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/video/controlr/bga.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,96 @@ +\ See license at end of file +purpose: Initialize Bochs Graphics Adapter Controllers + +\ This file contains the Cirrus Controller specific code. + +hex +\ headerless +: .driver-info ( -- ) + .driver-info + ." BGA Code Version" cr +; +\ Constants from http://wiki.osdev.org/Bochs_VBE_Extensions +\ VBE_DISPI_INDEX_ID (0) +\ VBE_DISPI_INDEX_XRES (1) +\ VBE_DISPI_INDEX_YRES (2) +\ VBE_DISPI_INDEX_BPP (3) +\ VBE_DISPI_INDEX_ENABLE (4) +\ VBE_DISPI_INDEX_BANK (5) +\ VBE_DISPI_INDEX_VIRT_WIDTH (6) +\ VBE_DISPI_INDEX_VIRT_HEIGHT (7) +\ VBE_DISPI_INDEX_X_OFFSET (8) +\ VBE_DISPI_INDEX_Y_OFFSET (9) + +: vbe-w! + h# 1ce pw! + h# 1d0 pw! +; + +\ At least under QEMU this is a write only register. +\ Reading from 1d0 just returns the last word written regardless of index. +\ For the case it works different one day +\ : vbe-w@ +\ h# 1ce pw! +\ h# 1d0 pw@ +\ ; + +: init-bga-controller ( -- ) \ This gets plugged into "init-controller" + 0 4 vbe-w! \ Disable VBE extensions + 0 8 vbe-w! 0 9 vbe-w! \ Set offsets to 0 + width 1 vbe-w! height 2 vbe-w! depth 3 vbe-w! \ Set resolution + h# 41 4 vbe-w! \ Enable VBE and Linear FB +; + +: set-resolution ( width height depth -- ) + unmap-frame-buffer + (set-resolution) + map-io-regs + init-bga-controller + width height over char-width / over char-height / + /scanline depth " fb-install" eval + unmap-io-regs + map-frame-buffer + frame-buffer-adr /fb h# ff fill +; + +: use-bga-words ( -- ) \ Turns on the BGA-specific words + ['] init-bga-controller to init-controller + use-vga +; + +: init-bga-dac ( -- ) + true to 6-bit-primaries? \ The default BGA pallete DAC is 3x6 +; + +: use-bga-dac ( -- ) + ['] init-bga-dac to init-dac +; + +: probe-dac ( -- ) \ Chained probing word...sets the dac type + safe? if use-bga-dac exit then + probe-dac \ Try someone else's probe +; + +\ LICENSE_BEGIN +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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/video/controlr/bgapci.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/video/controlr/bgapci.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,179 @@ +\ See license at end of file +purpose: Bochs Graphics Adapter PCI Methods + +\ PCI access code. +\ This code is used to determine which controller is present and +\ to begin the process of sorting out which specific words are to +\ be plugged into the various defered words. Also, and just as important, +\ the REG property gets formed here. + +hex +headers + +struct + 04 field >physlo \ phys.lo address + 04 field >physmid \ phys.mid address + 04 field >physhi \ phys.hi address + 04 field >hiflag \ phis.hi modifiers (n/p/t... bits) + 04 field >size1 \ First size + 04 field >size2 \ Second size + 04 field >reg# \ PCI Base address register offset (10,14,18...) +constant /array + +0 instance value reg-props \ Pointer for temp storage +0 instance value tpoint \ A second pointer +d# 50 /array * instance value /reg-props \ Allocate 50 entries for now + +/reg-props alloc-mem to reg-props \ Allocate some memory +reg-props /reg-props erase \ Clean it up + +: >reg-props ( phys.[lo,mid,hi] hi.flag size size -- ) + + reg-props /array - to tpoint + begin + tpoint /array + to tpoint + tpoint >physhi l@ 0= + until \ tpoint now points to first empty slot + + ( phys.[lo,mid,hi] hi.flag size size reg# ) + tpoint >reg# l! ( phys.[lo,mid,hi] hi.flag size size ) + tpoint >size2 l! ( phys.[lo,mid,hi] hi.flag size ) + tpoint >size1 l! ( phys.[lo,mid,hi] hi.flag ) + tpoint >hiflag l! ( phys.[lo,mid,hi] ) + tpoint >physhi l! ( phys.lo phys.mid ) + tpoint >physmid l! ( phys.lo ) + tpoint >physlo l! ( ) +; + +: 0m ( -- 0 my-space ) 0 my-space ; + +: legacy-regs ( -- ) + h# 3b0 0m h# a100.0000 0 h# C 0 >reg-props + h# 3c0 0m h# a100.0000 0 h# 20 0 >reg-props + h# a.0000 0m h# a200.0000 0 h# 2.0000 0 >reg-props +; + +0 instance value mask-val + +: munge-map-size ( raw -- new ) \ Makes a proper map-size argument + dup 0= if exit then + + 1 to mask-val \ Basically, just walk a one up mask-val value, + begin \ anding all the way looking for first non-zero + mask-val 2 * to mask-val \ bit. If chip is working correctly, first non + dup mask-val and 0 <> \ zero bit location tells you how big a + until \ map-size you need. + drop + mask-val +; + +: get-map-size ( reg# -- map-size ) \ Returns the amount of memory required + >r r@ c-l@ ( old-val ) \ Get old value + -1 r@ c-l! ( old-val ) \ Write all ones + r@ c-l@ ( old-val raw ) \ Read back + ff invert and ( old-val raw ) \ Mask off low bits + swap r> c-l! ( raw ) \ Put old value back + munge-map-size ( map-size ) \ Mask off high bits +; + +: determine-controller ( -- ) \ Determines which PCI controller we have + 0 to safe? + 0 c-w@ ( vendor ) + h# 1234 = + 2 c-w@ ( vendor? device ) + h# 1111 = and if + use-bga-words \ bga.fth + true to safe? + then +; + +headers + +: reg-entry ( map reg size -- ) + >r >r >r + 0 0 my-space + r> r> + + + encode-phys encode+ + 0 encode-int encode+ r> encode-int encode+ +; + +: add-rom-regs ( -- ) + \ If this driver is used for an on board frame buffer, the builtin.fth + \ file for that platform should declare a "no-rom" property in the node + \ where this driver is used. This will prevent the reg property from + \ including an entry for a non-existent ROM + + " no-rom" get-my-property 0= if + 2drop exit + then + + h# 30 get-map-size if + 0 0m h# 200.0030 0 h# 30 get-map-size h# 30 >reg-props \ ROM + then +; + +: encode-reg-property ( -- ) + + safe? if + 0 0m h# 200.0010 0 h# 10 get-map-size h# 10 >reg-props \ Frame buffer + add-rom-regs + legacy-regs + then + + \ Now we build reg entry up + + my-address my-space encode-phys 0 encode-int encode+ 0 encode-int encode+ + + reg-props to tpoint + begin + tpoint >physhi l@ 0<> if + tpoint >physlo l@ ( phys.lo ) + tpoint >physmid l@ ( phys.lo phys.mid ) + tpoint >physhi l@ ( phys.lo phys.mid phys.hi ) + tpoint >hiflag l@ or ( phys.lo phys.mid phys.hi ) + encode-phys encode+ + tpoint >size1 l@ ( size ) + encode-int encode+ + tpoint >size2 l@ ( size ) + encode-int encode+ + tpoint /array + to tpoint + false + else + true + then + until + + " reg" property + + reg-props /reg-props free-mem \ Release the tempory buffer +; + +: probe + determine-controller + encode-reg-property \ Build the reg property now +; + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ Copyright (c) 2014 Artyom Tarasenko +\ +\ 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 Modified: ofw/fs/fatfs/partition.fth ============================================================================== --- ofw/fs/fatfs/partition.fth Sat Aug 30 03:45:28 2014 (r3737) +++ ofw/fs/fatfs/partition.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -97,7 +97,8 @@ else \ Ordinary partition ( ... n,s,b,t ) suitable? if ( ... n,s,b,t ) to partition-type drop ( ... n,s ) - r@ + to sector-offset ( ... n ) + \ FAT partitions encode offsets in 512 byte sectors + r@ + /sector d# 512 / / to sector-offset ( ... n ) /sector um* to size-high to size-low ( ... ) true to found? ( ... ) else ( ... n,s,b,t ) Added: ofw/fs/hfs/hfs.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ ofw/fs/hfs/hfs.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,700 @@ +purpose: Macintosh File System support package +\ See license at end of file + +dev /packages +new-device +" hfs-file-system" device-name +0 0 " support" property + +headerless +0 instance value /al-blk +0 instance value al-blk0 + +\ The "extents" structure describes a contiguous piece of a file. +\ They are stored in groups of 3. The first group of three is +\ stored in: +\ a) The catalog file node, for ordinary file data and resource forks +\ b) The volume info record, for the catalog file and the extents +\ overflow file. +\ Subsequent groups of three are stored in node records within the +\ extents overflow file, tagged by file ID and which fork. The +\ extents overflow file itself is described solely by its first +\ three extent descriptors, and does not use overflow extents to +\ describe itself. + +struct ( extent ) + /w field >first-al-blk + /w field >#al-blks +constant /extent +/extent 3 * constant /extents + +\ Given a target logical block number, the address of an array of 3 extents +\ entries, and the number of the logical block represented by the first +\ entry in that array, find the physical block number corresponding to the +\ target logical block number and the number of blocks after it in the +\ enclosing extent. +: (next-piece) ( log-blk# extents-adr extent-log-blk -- phys-blk# #blks ) + 3 0 do ( log-blk# extent extent-blk# ) + over >#al-blks be-w@ + ( log-blk# extent extent-max-blk# ) + 2 pick over u< if leave then ( log-blk# extent extent-max-blk# ) + swap /extent + swap ( log-blk# extent' extent-max-blk# ) + loop ( log-blk# extent' extent-max-blk# ) + swap >r swap - ( #blks ) + r@ >first-al-blk be-w@ r> >#al-blks be-w@ + over - swap +; + +\ Determine the total number of blocks described by the array of 3 extents +\ entries beginning at extents-adr +: extent-#blks ( extents-adr -- #blks ) + 0 swap >#al-blks /extents bounds do i be-w@ + /extent +loop +; + +\ A node record is is a fixed length container that contains one or more +\ variable-length nodes. + +struct ( node-record ) + /l field >flink + /l field >blink + /c field >type + /c field >level + /w field >#recs + h# 1f4 + +constant /node-record +/node-record instance buffer: node-record + + +\ Each B*Tree file begins with a header node. + +struct ( header-node ) + /w field >tree-depth + /l field >root-index + /l field >#leaf-records + /l field >first-leaf + /l field >last-leaf + /w field >reclen + /w field >whatever1 + /l field >total#nodes + /l field >#free-nodes +constant /master-index + +\ Nodes in the catalog file come in three flavors - thread, directory, and file + +struct ( thread-catalog-entry ) \ Type = 3 or 4 + 1 + + d# 8 + + /l field >thread-parent + d# 32 field >thread-name +drop + +struct ( times ) + /l field >create-time + /l field >modify-time + /l field >backup-time +constant /times + +struct ( dir-catalog-entry ) + 1 + + /w field >dir-flags + /w field >valence + /l field >dir-id + /times field >dir-times + d# 16 field >dir-user-finder-info + d# 16 field >dir-finder-info + d# 16 field >dir-reserved +drop + +struct ( file-catalog-entry ) + 1 + + /c field >file-flags \ h#80:record used 2:thread rec exists 1:locked + /c field >file-type \ Supposed to always contain 0 + d# 16 field >user-finder + /l field >file# + /w field >dblk0 + /l field >dleof + /l field >dpeof + /w field >rblk0 + /l field >rleof + /l field >rpeof + /times field >file-times + d# 16 field >finder-info + /w field >/clump + /extents field >data-extents + /extents field >resource-extents + /l + ( reserved ) +constant /catalog-entry + +: skip-key ( adr -- adr' ) count 1 or + ; + +\ Each HFS volume is described by a volume-info structure that is stored +\ at offset 1K bytes from the beginning of the volume. + +struct ( volume-info ) + /w field >magic + /l field >init-date + /l field >mode-date + /w field >volume-attributes + /w field >volume-#files + /w field >bitmap-blk# + /w field >al-ptr + /w field >vol-#al-blks + /l field >/al-blk + /l field >vol-/clump + /w field >al-blk0 + /l field >next-file# + /w field >#free-blocks + h# 1c field >vol-name + /l field >bkup-date + /w field >vseq# + /l field >write-count + /l field >/extent-clump + /l field >/catalog-clump + /w field >#rt-dirs + /l field >#files + /l field >#directories + d# 32 field >vol-finder-info + /w field >vc-size + /w field >vcbm-size + /w field >ctlc-size + /l field >/extent-tree + /extents field >extent-extents + /l field >/catalog-tree + /extents field >catalog-extents + h# 15e + \ There's something at offset 0x5f4 too +constant /volume-info + +/volume-info instance buffer: volume-info + +3 constant extent-file-id +4 constant catalog-file-id + +\ This forward reference is necessary because B*Trees are stored in +\ files that are described by extents, some of which can be stored in +\ the extents overflow B*Tree file. Infinite recursion is prevented by +\ ensuring that the extents overflow file is contained entirely within +\ the three fixed extents, so that file does not need overflow extents. +defer search-btree + +: >extent-file-blk# ( log-blk# -- phys-blk# ) + volume-info >extent-extents 0 (next-piece) drop +; + +: extent-compare ( key-adr1 key-adr2 -- -|0|+ ) + over ca1+ c@ over ca1+ c@ - ?dup if ( key-adr1 key-adr2 +- ) + over wa1+ be-l@ over wa1+ be-l@ - ?dup if ( key-adr1 key-adr2 +- ) + swap 6 + be-w@ swap 6 + be-w@ - ( +|0|- ) + else ( key-adr1 key-adr2 ) + nip nip ( +|- ) + then ( +|0|- ) + else ( key-adr1 key-adr2 ) + nip nip ( +|- ) + then ( +|0|- ) +; + +: find-extent ( al-blk# file-id fork -- node-adr ) + d# 10 alloc-mem >r ( al-blk# file-id fork r: key-buffer ) + r@ ca1+ c! ( al-blk# file-id ) + r@ wa1+ be-l! ( al-blk# ) + r@ 6 + be-w! ( ) + r@ ['] extent-compare extent-file-id search-btree + r> d# 10 free-mem + 0= abort" Can't find extent" +; + +: >catalog-file-blk# ( log-blk# -- phys-blk# ) + 0 volume-info >catalog-extents >r ( log-blk# 0 r: entents-adr ) + + begin 2dup r@ extent-#blks + u> while ( log-blk# blk# r: extents-adr ) + r> extent-#blks + ( log-blk# blk#' ) + dup catalog-file-id 0 find-extent ( log-blk# blk# node-adr ) + skip-key >r ( log-blk# blk# r: extents-adr' ) + repeat ( log-blk# blk# r: extents-adr ) + + \ Now log-blk# is within the group of extents at "extents-adr" and + \ blk# is the beginning logical block of that extents group. + + r> swap (next-piece) drop ( phys-blk# ) +; + +: al-blk>offset ( al-blk# -- d.disk-offset ) /al-blk um* al-blk0 0 d+ ; + +0 instance value btree-file# + +\ Return the physical disk offset of the indicated node record from the file +\ "btree-file#", +: >node-rec-offset ( rec# -- d.disk-offset ) + /node-record um* /al-blk um/mod 0 swap ( d.blk-offset log-blk# ) + btree-file# case + extent-file-id of >extent-file-blk# endof + catalog-file-id of >catalog-file-blk# endof + endcase ( d.blk-offset phys-blk# ) + al-blk>offset d+ ( d.disk-offset ) +; + +\ "Cache tags" to remember which node is currently in the buffer +-1 instance value node-rec# +-1 instance value node-file# + +: >node-rec ( rec# -- record-adr ) + dup node-rec# = btree-file# node-file# = and if + drop node-record exit + then ( rec# ) + + dup >node-rec-offset " seek" $call-parent drop ( rec# ) + node-record /node-record " read" $call-parent drop ( rec# ) + + \ Update "cache tags" + to node-rec# btree-file# to node-file# ( ) + + node-record +; + +: >nextnode ( node# rec# -- node#' rec#' ) + dup >node-rec dup >#recs be-w@ ( node# rec# rec& #recs ) + 3 pick 1+ ( node# rec# rec& #recs node#' ) + <= if ( node# rec# rec& ) + nip nip >flink be-l@ 0 swap ( 0 rec#' ) + else ( node# rec# rec& ) + drop swap 1+ swap ( node#' rec# ) + then +; +: >node ( node# rec# -- node-adr ) + >node-rec dup /node-record + rot 1+ /w* - be-w@ + +; + +defer key-compare +: search-ply ( key-adr node# rec# -- key-adr node#' rec#' ) + 2>r 2r@ + begin + 3dup >node key-compare ( key-adr node#' rec#' ) + ?dup 0= if ( key-adr node#' rec#' ) + 2r> 2drop exit + then ( key-adr node#' rec#' flag ) + 0< if ( key-adr node#' rec#' ) + 2drop 2r> exit + then ( key-adr node#' rec#' ) + 2r> 2drop 2>r ( key-adr node#' rec#' ) + 2r@ >nextnode 2dup or while ( key-adr node#' rec#' ) + repeat ( key-adr node#' rec#' ) + 2drop 2r> +; + +0 instance value last-node# +0 instance value last-rec# +: (search-btree) ( key-adr compare-xt btree-file# -- false | node-adr true ) + btree-file# >r to btree-file# + ['] key-compare behavior >r to key-compare ( key-adr r: old-file# old-xt ) + 0 0 >node >root-index be-l@ 0 swap ( key-adr node# rec# ) + begin ( key-adr node# rec# ) + search-ply ( key-adr node#' rec#' ) + dup >node-rec >level c@ 1 > ( key-adr node#' rec#' leval ) + while ( key-adr node# rec# ) + \ Go down a level + >node skip-key be-l@ 0 swap ( key-adr node#' rec#' ) + repeat ( key-adr node# rec# ) + + \ If we are searching the catalog tree, save the node and record + \ numbers for the benefit of next-file + btree-file# catalog-file-id = if + 2dup to last-rec# to last-node# + then + + >node tuck key-compare if ( node-adr ) + drop false + else + true + then + + r> to key-compare r> to btree-file# +; +' (search-btree) to search-btree + +: read-blocks ( adr blk# #blks -- ) + swap al-blk>offset " seek" $call-parent drop ( adr #blks ) + /al-blk * " read" $call-parent drop +; +: get-catalog ( -- ) + h# 400 0 " seek" $call-parent drop + volume-info /volume-info " read" $call-parent drop + + volume-info >r + r@ >magic be-w@ h# 4244 <> abort" Bad volume magic number" + r@ >/al-blk be-l@ to /al-blk + r@ >al-blk0 be-w@ h# 200 * to al-blk0 + r> drop +; +: name-compare ( name-adr1 name-adr2 -- -|0|+ ) + >r count tuck ( len1 adr1 len1 r: name-adr2 ) + r> count dup >r ( len1 adr1 len1 adr2 len2 r: len2 ) + rot min caps-comp ?dup if ( len1 +|- r: len2 ) + nip r> drop ( +|- ) + else ( len1 r: len2 ) + r> - ( +|- ) + then +; +: path-compare ( key-adr1 key-adr2 -- -|0|+ ) + dup c@ 0= if 2drop 1 exit then ( key-adr1 key-adr2 ) + swap wa1+ swap wa1+ ( dirid-adr1 dirid-adr2 ) + over be-l@ over be-l@ - ?dup if ( dirid-adr1 dirid-adr2 -|+ ) + nip nip ( -|+ ) + else ( dirid-adr1 dirid-adr2 ) + swap la1+ swap la1+ name-compare ( -|0|+ ) + then +; +: type-compare ( key-adr1 key-adr2 -- -|0|+ ) + dup c@ 0= if 2drop 1 exit then ( key-adr1 key-adr2 ) + swap wa1+ swap wa1+ ( dirid-adr1 dirid-adr2 ) + over be-l@ over be-l@ - ?dup if ( dirid-adr1 dirid-adr2 -|+ ) + nip nip exit ( -|+ ) + then + node-record >level c@ 1 = if ( dirid-adr1 dirid-adr2 ) + swap la1+ swap la1+ ( adr1 adr2 ) + skip-key dup c@ 2 = if ( adr1 filerec ) + 1+ >user-finder be-l@ swap ( type adr1 ) + ca1+ be-l@ = if + 0 ( 0 ) \ found it + else + 1 ( 1 ) \ not the type we want + then + else ( adr1 filerec ) + 2drop 1 ( 1 ) \ not a file + then + else ( dirid-adr1 dirid-adr2 ) + 2drop -1 ( -1 ) \ not level 1 + then +; + +\ search string for %xx and replace with hex char +: translate-name ( adr len -- adr len' ) + push-hex + 2dup ( adr len adr len ) + begin dup while ( adr len adr len ) + over c@ [char] % = if ( adr len adr len ) + rot 2 - -rot ( adr len' adr len ) + over 1+ 2 $number 0= if ( adr len adr len n ) + 2 pick c! 2 - swap 1+ swap ( adr len adr' len' ) + over dup 2+ swap 4 pick move ( adr len adr' len' ) + then + else + swap 1+ swap 1- ( adr len adr' len' ) + then + repeat + 2drop + pop-base +; + +d# 38 instance buffer: file-key +: find-file ( adr len dir-id -- false | node-adr true ) + file-key wa1+ be-l! ( adr len ) + translate-name ( adr len ) + over c@ [char] : = if \ search by type + 1 /string ( adr len ) + file-key 6 + place ( ) + file-key ['] type-compare catalog-file-id search-btree + else \ search by name + file-key 6 + place ( ) + file-key ['] path-compare catalog-file-id search-btree + then +; + +0 instance value next-log-blk +/extents buffer: extents +0 instance value extent-log-blk +0 instance value blk-offset + +0 instance value the-fork +0 instance value current-node \ The catalog node that the last lookup found +0 instance value cwd-id \ The current directory; a parent if file-id !0 +0 instance value file-id \ The current fileid, or 0 if the last lookup + \ found a directory + +: follow-thread ( adr -- node-adr false | true true ) + dup >thread-name count + rot >thread-parent be-l@ find-file if + false + else + true true + then +; +\ This can fail if you try to select an alias whose referent has been deleted +: select-component ( node-adr -- error? ) + begin + dup to current-node + skip-key count ( adr type ) + case + 1 of >dir-id be-l@ to cwd-id false true endof + 2 of >file# be-l@ to file-id false true endof + 3 of follow-thread endof + 4 of follow-thread endof + ( default ) ." Bogus Record Type: " dup . nip cr + endcase + until +; +: select-file ( adr len -- error? ) + dup 0= if 2drop exit then + 0 to file-id + over c@ [char] \ = if + 1 /string 2 to cwd-id + over c@ [char] \ = if \ blessed folder indicator? + 1 /string volume-info >vol-finder-info be-l@ to cwd-id + then +\ " " cwd-id find-file if select-component else 2drop true exit then + then ( adr len ) + begin dup while ( rem$ ) + + \ Error if we have already found a file but there's more in the path + file-id if + " %RESOURCES" $= if + h# ff to the-fork false + else + true + then + exit + then ( rem$ ) + + [char] \ left-parse-string ( rem$' name$ ) + + \ Error if we can't find the path component + cwd-id find-file 0= if 2drop true exit then ( rem$ node-adr ) + + select-component if 2drop true exit then ( rem$ ) + repeat ( null$ ) + 2drop false +; + +: do-seek ( d -- ) /al-blk um/mod to next-log-blk to blk-offset ; +: prime-extents ( -- ) -1 to extent-log-blk 0 0 do-seek ; +: extent-max-blk ( -- last-blk#+1 ) + extent-log-blk -1 = if 0 exit then + extents extent-#blks extent-log-blk + +; +: get-extents ( log-blk# -- ) + dup extent-log-blk u< if + 0 to extent-log-blk + current-node skip-key 1+ + the-fork if >resource-extents else >data-extents then + extents /extents move ( log-blk# ) + then + \ Now ext-log-blk <= log-blk# + begin dup extent-max-blk u>= while + extent-max-blk to extent-log-blk + extent-log-blk file-id the-fork find-extent + skip-key extents /extents move + repeat + drop + \ Now ext-log-blk <= log-blk# < extent-max-blk +; + +\ Returns the address and length of the next contiguous part of the file +\ following the given logical block number +: next-piece ( log-blk# -- phys-blk# #blks ) + dup get-extents ( log-blk# ) + extents extent-log-blk (next-piece) ( phys-blk# #blks ) +; +: hfsdfalign ( d.byte# 'fh -- d.aligned ) + drop /al-blk um/mod nip /al-blk um* +; + +: this-size ( -- n ) + current-node skip-key 1+ the-fork if >rleof else >dleof then be-l@ +; +: hfsdflen ( 'fhandle -- d.size ) drop this-size 0 ; + +: hfsdfseek ( d.byte# 'fh -- ) drop do-seek ; + +: #remaining ( -- n ) this-size next-log-blk /al-blk * - 0 max ; + +: hfsfread ( addr count 'fh -- #read ) + drop ( adr len ) + #remaining min dup >r ( adr #to-read ) + /al-blk 1- + /al-blk / ( adr #blks-to-read ) + begin dup while ( adr #blks-rem ) + >r ( adr ) + dup next-log-blk next-piece ( adr adr phys-blk# #blks ) + r@ min dup >r ( adr adr phys-blk# #to-read ) + read-blocks r> r> ( adr #to-read #blks-rem ) + over - -rot ( #blks-rem' adr #to-read ) + /al-blk * + swap ( adr' #blks-rem' ) + repeat ( adr 0 ) + 2drop + r> +; + +: hfsfclose ( 'fh -- ) drop bfbase @ /al-blk free-mem ; + +/fd instance buffer: my-fd + +: hfssetupfd ( -- ) + 0 0 do-seek + file @ >r my-fd file ! + /al-blk alloc-mem /al-blk initbuf + my-fd r/o + ['] hfsdflen ['] hfsdfalign ['] hfsfclose ['] hfsdfseek + ['] nullwrite ['] hfsfread + setupfd + r> file ! +; + +headers + +: open ( -- ) + get-catalog + 1 to cwd-id + -1 to extent-log-blk + my-args select-file if false exit then + file-id if hfssetupfd then + true +; + +: close ( -- ) + file-id if + my-fd ['] fclose catch ?dup if .error drop then + then +; +: read ( adr len -- actual ) + my-fd ['] fgets catch if 3drop 0 then +; +\ : write ( adr len -- actual ) +\ tuck my-fd ['] fputs catch if 2drop 2drop -1 then +\ ; +: seek ( offset.low offset.high -- error? ) + my-fd ['] dfseek catch if 2drop true else false then +; +: size ( -- d ) my-fd ['] dfsize catch if 2drop 0 0 then ; +: load ( adr -- size ) size drop read ; + +1 value showtype? + +: file-name ( -- adr len ) + current-node 6 + count ( adr len ) + showtype? if + current-node skip-key c@ 2 = if + current-node skip-key 1+ >user-finder be-l@ ( adr len type ) + file-key be-l! file-key 4 + dup h# 20 swap c! 1+ ( adr len buf ) + swap dup >r move file-key r> 5 + ( adr len ) + then + then +; + +headerless + +\ XXX Is this correct for directory records? +: locked? ( flags -- flag ) h# 100 and 0<> ; + +\ Convert HFS file attributes to the firmware encoding +\ see showdir.fth for a description of the firmware encoding +create type-map h# 4000 , h# 8000 , 0 , h# a000 , +: >canonical-attrs ( hfs-flags -- canon-attrs ) + >r + \ Access permissions + r@ locked? if o# 666 else o# 777 then \ rwxrwxrwx + + \ XXX maybe the way to set the "archive" indication is to compare + \ the backup time with the modification time. + + \ Mutually-exclusive file types + current-node skip-key c@ 1- type-map swap na+ @ or + + r> drop +; + +create alias-times 0 be-l, 0 be-l, 0 be-l, + +decimal + +\ The months are stored in this order so the leap day happens at the +\ end of a cycle. + +create days/month +\ Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb + 31 c, 30 c, 31 c, 30 c, 31 c, 31 c, 30 c, 31 c, 30 c, 31 c, 31 c, 29 c, + +: >d/m ( day-in-year -- day month ) + d# 12 0 do + days/month i ca+ c@ 2dup < if ( rem days-in-month ) + drop 1+ i leave + then + - + loop +; + +\ The Mac filesystem stores timestamps in seconds since midnight on 1/1/1904 +: mac-time> ( seconds -- s m h d m y ) + \ XXX we should account for accumulated leap seconds too + 60 u/mod 60 u/mod 24 u/mod ( s m h days ) + 60 - \ shift to first cycle boundary (1Mar04) + [ 365 4 * 1+ ] literal /mod >r ( s m h day-in-cycle r: cycles ) + 365 u/mod ( s m h day-in-year year-in-cycle ) + dup 4 = if 2drop 365 3 then ( s m h day-in-year year-in-cycle ) + swap >d/m ( s m h year-in-cycle day month ) + 9 - dup 0> if rot 1+ else 12 + rot then ( s m h d m year-in-cycle ) + r> 4 * + 1904 + +; +hex + +: get-mtime ( adr -- s m h d m y ) >modify-time be-l@ mac-time> ; +headers +: file-info ( -- s m h d m y len attributes name$ ) + current-node skip-key count swap >r case ( r: adr ) + 1 of + r@ >dir-times get-mtime r@ >valence be-w@ + endof + 2 of + r@ >file-times get-mtime r@ >dleof be-l@ r@ >rleof be-l@ + + endof + ( default ) + >r alias-times get-mtime 0 r> + endcase ( s m h d m y len r: adr ) + r> >dir-flags be-w@ >canonical-attrs ( s m h d m y len attrs ) + file-name ( s m h d m y len attrs name$ ) +; + +headerless +: next-file ( -- found? ) + catalog-file-id to btree-file# + last-node# last-rec# >nextnode 2dup to last-rec# to last-node# + 2dup or 0= if 2drop false exit then ( node# rec# ) + >node dup to current-node ( node-adr ) + wa1+ be-l@ cwd-id = +; + +headers + +: next-file-info ( id -- false | id' s m h d m y len attributes name$ true ) + dup 0= if + null$ cwd-id find-file if drop else drop false exit then + then ( id ) + next-file if ( id ) + 1+ file-info true + else + drop false + then +; +: free-bytes ( -- d.#bytes ) volume-info >#free-blocks be-w@ /al-blk m* ; + +finish-device +device-end + + +\ LICENSE_BEGIN +\ Copyright (c) 1997 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: ofw/fs/hfs/partition.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ ofw/fs/hfs/partition.fth Tue Sep 2 23:07:35 2014 (r3738) @@ -0,0 +1,130 @@ +purpose: Macintosh partition map decoder +\ See license at end of file + +\ MacOS HFS +struct ( mac-partition ) + /w field >part-magic + 2 + \ Reserved + /l field >mp-#pm-blks \ # of blocks in the partition map + /l field >mp-blk0 \ first logical block number for partition + /l field >mp-#blks \ # of blocks in the partition + d# 32 field >mp-part-name + d# 32 field >mp-part-type + /l field >mp-dblk0 \ Offset in blocks to first data block + /l field >mp-#dblks \ Number of data blocks + /l field >mp-status \ Flags + /l field >mp-bblk0 \ Offset in blocks to first boot block + /l field >mp-/boot \ Size in bytes of boot area + /l field >mp-boot-load \ Load address of boot code + /l + \ Reserved + /l field >mp-boot-entry \ Entry address of boot code + /l + \ Reserved + /l field >mp-boot-sum \ Checksum of boot code + \ d# 16 field >mp-proctype \ Processor type +drop + +0 value /mac-block +0 value mac-partition-sector +: get-mac-partition-info ( -- ) + \ XXX we need to think about the boot area + sector-buf >mp-blk0 be-l@ sector-buf >mp-dblk0 be-l@ + to sector-offset + sector-buf >mp-#dblks be-l@ ( #sectors ) + /mac-block um* to size-high to size-low +; + +: default-mac? ( -- flag ) + \ If a file name (or directory name) is supplied, and it + \ is not "%BOOT", we don't want to select the first bootable + \ partition, because bootable partitions often contain nothing + \ but SCSI device drivers. Instead, we look for a partition + \ with a file system on it. + filename nip 0= filename " %BOOT" $= or if + \ Find the first bootable partition + \ Readable(10), bootable(8), allocated(2), valid(1) + sector-buf >mp-status be-l@ h# 1b and h# 1b = if true exit then + else + \ Find the first readable, allocated, valid partition + \ of type "Apple_HFS" + sector-buf >mp-status be-l@ h# 13 and h# 13 = if + sector-buf >mp-part-type " Apple_HFS" comp 0= if true exit then + then + then + false +; + +: find-mac-partition ( criterion-xt -- error? ) + to suitable? + + \ XXX search for a Mac partition whose "valid" flag is set. + \ The 0x01 status bit is "valid?" The 0x08 status bit is "bootable?" + \ If one is found, set partition-type, size-high, size-low, and + \ sector-offset and return false. + + \ Get the partition entry that describes the partition map as a whole + 1 read-sector + sector-buf >part-magic be-w@ h# 504d <> if true exit then + + 1 sector-buf >mp-#pm-blks be-l@ ( first-block #partition-map-blocks ) + bounds ?do ( ) + i to mac-partition-sector + i 1 <> if i read-sector then \ Already read sector 1 + sector-buf >mp-status be-l@ 1 and if \ Valid? + suitable? if get-mac-partition-info false unloop exit then + then + loop ( ) + true +; + +: mac-map ( -- ) + #part -1 = if \ Find the default bootable partition + ['] default-mac? find-mac-partition 0= if exit then + \ Failing to find a suitable default partition, use the first valid one + 1 to #part + then + ['] nth? find-mac-partition abort" No such MAC partition" +; + +2 buffer: hfs-magic +: hfs-partition? ( -- flag ) + h# 400 0 offset " seek" $call-parent drop ( ) + hfs-magic 2 " read" $call-parent ( #read ) + \ Re-establish initial position + 0 0 offset " seek" $call-parent drop ( #read ) + + 2 <> if false exit then + hfs-magic be-w@ h# 4244 = +; + +\ In addition to returning the flag, if it is a mac disk, this +\ routine has the side effect of setting /mac-block and size-low,high +: mac-disk? ( -- flag ) + sector-buf be-w@ h# 4552 = dup if + sector-buf wa1+ be-w@ to /mac-block + /sector /mac-block <> + abort" The partition map code cannot handle non-512-byte sector sizes" + sector-buf la1+ be-l@ /mac-block um* to size-high to size-low + then +; +\ LICENSE_BEGIN +\ Copyright (c) 1997 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

1 0