Author: wmb Date: 2008-09-30 23:18:35 +0200 (Tue, 30 Sep 2008) New Revision: 955
Added: dev/isafdc/ dev/isafdc/build/ dev/isafdc/chrpejct.fth dev/isafdc/fdc-test.fth dev/isafdc/fdccntrl.fth dev/isafdc/fdcconf.fth dev/isafdc/fdcdata.fth dev/isafdc/fdcdma.fth dev/isafdc/fdcpio.fth dev/isafdc/fdcpkg.fth dev/isafdc/isafdc.fth dev/isafdc/loadfdc.fth Log: Added old floppy driver to tree for use with VMWare and VirtualBox.
Added: dev/isafdc/chrpejct.fth =================================================================== --- dev/isafdc/chrpejct.fth (rev 0) +++ dev/isafdc/chrpejct.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,60 @@ +purpose: Amend floppy nodes to implement and report the CHRP eject function +\ See license at end of file + +dev /fdc + +0 0 encode-bytes +h# 3f0 1 encode-phys encode+ 7 encode-int encode+ +h# 3f7 1 encode-phys encode+ 1 encode-int encode+ +eject-port 1 encode-phys encode+ 1 encode-int encode+ +" reg" property + +" chrp,fdc" +compatible + +0 0 encode-bytes " auto-eject" property + +: eject ( -- ) + floppy-xselect \ Select drive, enable motor + eject-port pc@ dup ( orig orig ) \ Old port value + dup 1 and if ( orig orig ) \ Is eject bit currently 1? + h# fe and ( orig eject ) \ Set low (active low eject) + else + 1 or ( orig eject ) \ Set high (active high eject) + then + eject-port pc! ( orig ) \ Set the eject bit + 1 ms ( orig ) \ Wait + eject-port pc! ( ) \ Put back original value + floppy-xdeselect \ Unselect drive, disable motor +; + +dev /fdc/disk +: eject ( -- ) + my-unit " set-address" $call-parent + " eject" $call-parent +; +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: dev/isafdc/fdc-test.fth =================================================================== --- dev/isafdc/fdc-test.fth (rev 0) +++ dev/isafdc/fdc-test.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,143 @@ +\ ========== Copyright Header Begin ========================================== +\ +\ Hypervisor Software File: fdc-test.fth +\ +\ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved. +\ +\ - Do no alter or remove copyright notices +\ +\ - Redistribution and use of this software in source and binary forms, with +\ or without modification, are permitted provided that the following +\ conditions are met: +\ +\ - Redistribution of source code must retain the above copyright notice, +\ this list of conditions and the following disclaimer. +\ +\ - Redistribution in binary form must reproduce the above copyright notice, +\ this list of conditions and the following disclaimer in the +\ documentation and/or other materials provided with the distribution. +\ +\ Neither the name of Sun Microsystems, Inc. or the names of contributors +\ may be used to endorse or promote products derived from this software +\ without specific prior written permission. +\ +\ This software is provided "AS IS," without a warranty of any kind. +\ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, +\ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A +\ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN +\ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR +\ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR +\ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN +\ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR +\ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE +\ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, +\ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF +\ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. +\ +\ You acknowledge that this software is not designed, licensed or +\ intended for use in the design, construction, operation or maintenance of +\ any nuclear facility. +\ +\ ========== Copyright Header End ============================================ +purpose: Selftest routines for floppy disk controller. +copyright: Copyright 1990 Sun Microsystems, Inc. All Rights Reserved + +headerless +: sense-drive-status ( head -- status ) + floppy-select + 4 fdc-cmd ( head ) h&d >fdc + result + floppy-deselect + statbuf c@ +; + +: dumpreg ( -- ) h# 0e fdc-cmd result ; + +: chk ( flag value index -- flag' ) statbuf + c@ <> or ; +: check-registers ( -- error? ) +\ 0 c, 0 c, 0 c, 0 c, \ Cylinder numbers + false + srt 4 << hut or 4 chk ( error? ) + hlt 1 << nd or 5 chk ( error? ) + +\ This doesn't work on some chips, such as the SMC 37C935 Super-I/O +\ moff 4 << hsda or mon or flock or 7 chk ( error? ) + + eis efifo or poll or fifothr or 8 chk ( error? ) + \ We can't check the EOT/SC field because its value depends on a + \ prior execution of a read, write, or format command. +; + +\ If flag is true, displays the message "adr len", ?error places false on +\ the stack and returns to the caller's caller. Otherwise discards adr,len + +: ?error ( flag adr len -- [ false ] ) + rot if type cr false r> drop else 2drop then +; + +: 1cyl ( -- #bytes ) sec/trk 2* h# 200 * ; + +headers +: chip-okay? ( -- okay? ) + false +\ statbuf c@ h# 80 <> " Floppy chip initialization failed." ?error + +\ dumpreg check-registers +\ " Floppy chip registers read back incorrectly." ?error + 0= +; +: drive-okay? ( -- okay? ) + floppy-recalibrate statbuf c@ h# 10 and if + ." Recalibrate failed. The floppy drive is either missing," cr + ." improperly connected, or defective." cr + false exit + then + + false + 0 floppy-seek statbuf c@ + h# 20 drive + <> " Seek to track 0 failed." ?error + + 0 sense-drive-status + h# 10 and 0= " Track 0 not reported." ?error + + 2 floppy-seek statbuf c@ + h# 20 drive + <> " Seek to track 2 failed." ?error + + 0 sense-drive-status + h# 10 and " Track 0 reported when on track 2." ?error + + 0 floppy-seek statbuf c@ + h# 20 drive + <> " Seek to track 0 failed." ?error + + 0 sense-drive-status + h# 10 and 0= " Track 0 not reported." ?error + + 0 sense-drive-status + 4 and " Head select is 1; should be 0." ?error + + 1 sense-drive-status + 4 and 0= " Head select is 0; should be 1." ?error + + 0= +; + +: test-disk ( drive# -- error? ) + ." Testing floppy disk system. A formatted disk should be in the drive." cr + to drive + chip-okay? 0= if true exit then + drive-okay? 0= if true exit then + + \ diskette-present? is sometimes redefined so we use $call-self to + \ make sure we get the latest version... + " diskette-present?" $call-self 0= if + ." Diskette not present" cr true exit + then + + 1cyl dma-alloc >r + r@ 0 1cyl true r/w-data dup if ( fatal? true ) + nip ( true ) + ." Can't read the first cylinder." cr ( true ) + then ( error? ) + r> 1cyl dma-free +; +
Added: dev/isafdc/fdccntrl.fth =================================================================== --- dev/isafdc/fdccntrl.fth (rev 0) +++ dev/isafdc/fdccntrl.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,159 @@ +\ ========== Copyright Header Begin ========================================== +\ +\ Hypervisor Software File: fdccntrl.fth +\ +\ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved. +\ +\ - Do no alter or remove copyright notices +\ +\ - Redistribution and use of this software in source and binary forms, with +\ or without modification, are permitted provided that the following +\ conditions are met: +\ +\ - Redistribution of source code must retain the above copyright notice, +\ this list of conditions and the following disclaimer. +\ +\ - Redistribution in binary form must reproduce the above copyright notice, +\ this list of conditions and the following disclaimer in the +\ documentation and/or other materials provided with the distribution. +\ +\ Neither the name of Sun Microsystems, Inc. or the names of contributors +\ may be used to endorse or promote products derived from this software +\ without specific prior written permission. +\ +\ This software is provided "AS IS," without a warranty of any kind. +\ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, +\ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A +\ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN +\ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR +\ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR +\ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN +\ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR +\ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE +\ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, +\ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF +\ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. +\ +\ You acknowledge that this software is not designed, licensed or +\ intended for use in the design, construction, operation or maintenance of +\ any nuclear facility. +\ +\ ========== Copyright Header End ============================================ +purpose: Floppy Disk Controller driver, control words +copyright: Copyright 1990 Sun Microsystems, Inc. All Rights Reserved + +\ P. Thomas 12/21/87 + +headerless +hex + +0 instance value floppy-#selects +: floppy-select ( -- ) + floppy-#selects dup 0= if floppy-xselect then + 1+ is floppy-#selects +; +: floppy-deselect ( -- ) + floppy-#selects 1- dup 0<= if floppy-xdeselect then + 0 max is floppy-#selects +; + + +: h&d ( head -- n ) 1 and 2 << drive 3 and or ; + +\ true if problem in execution +: floppy-error? ( -- flag ) statbuf c@ h# c0 and ; + +: ck-density ( mfm -- ok? ) + floppy-select + h# 0a or mt or fdc-cmd 0 h&d >fdc + result floppy-error? + floppy-deselect +; + +\ Adds funky bits to the command code +\ : +xfer-bits ( cmd -- cmd' ) +\ mfm ck-density if 0 else mfm then +\ or mt or +\ ; + +: +xfer-bits ( cmd -- cmd' ) mfm or mt or ; + +: sense-interrupt-status ( -- status ) 08 fdc-cmd result statbuf c@ ; + +\ Read and discard all the interrupt events that the chip has queued up. +\ Stop when there are no more events to read. +: flush-int ( -- ) + d# 50 0 do + sense-interrupt-status ( status ) + \ wait for intr status + h# c0 and h# c0 = ?leave + 1 ms + loop + \ Flush the queue + d# 10 0 do + sense-interrupt-status h# c0 and h# 80 = ?leave + loop +; + +\ Read and discard interrupt events until an event for this drive is seen. +: wait-done ( -- ) + wait-command + begin + \ Discard status for other drives + begin sense-interrupt-status 3 and drive = until + \ Wait until either Seek End or Equipment Check + statbuf c@ h# 30 and + until +; + +: fdc-specify ( -- ) \ sets drive characteristics + 3 fdc-cmd + srt 4 << hut or >fdc + hlt 1 << nd or >fdc +; + +: fdc-lock ( -- ) \ Protect the config parameters + 94 fdc-cmd + fdc-fifo-wait fifo@ 2drop +; + +: fdc-configure ( -- ) \ Sets the floppy controller chip parameters + 13 fdc-cmd + moff 4 << hsda or mon or >fdc + eis efifo or poll or fifothr or >fdc + pretrk >fdc +; + +: floppy-recalibrate ( -- ) \ Seeks to track 0 + floppy-select + 7 fdc-cmd drive >fdc wait-done + floppy-deselect +; +: floppy-seek ( cylinder -- ) \ Seeks to the indicated cylinder + floppy-select + 0f fdc-cmd 0 h&d >fdc ( cylinder ) >fdc wait-done + d# 15 ms \ Head settling time + floppy-deselect +; +: diskette-present? ( -- flag ) \ true if a floppy disk is in the drive + floppy-select + dir@ drop \ Read once to clear out the old status + 1 floppy-seek floppy-recalibrate + dskchg-bitset? 0= ( flag ) + floppy-deselect ( flag ) +; + +headers +: fdc-init ( -- ) + map-floppy + 0 is floppy-#selects + fdc-reset + flush-int + fdc-specify + fdc-configure + fdc-lock +; + +: drive-present? ( -- flag ) + fdc-init floppy-recalibrate statbuf c@ h# 10 and 0= +;
Added: dev/isafdc/fdcconf.fth =================================================================== --- dev/isafdc/fdcconf.fth (rev 0) +++ dev/isafdc/fdcconf.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,179 @@ +\ ========== Copyright Header Begin ========================================== +\ +\ Hypervisor Software File: fdcconf.fth +\ +\ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved. +\ +\ - Do no alter or remove copyright notices +\ +\ - Redistribution and use of this software in source and binary forms, with +\ or without modification, are permitted provided that the following +\ conditions are met: +\ +\ - Redistribution of source code must retain the above copyright notice, +\ this list of conditions and the following disclaimer. +\ +\ - Redistribution in binary form must reproduce the above copyright notice, +\ this list of conditions and the following disclaimer in the +\ documentation and/or other materials provided with the distribution. +\ +\ Neither the name of Sun Microsystems, Inc. or the names of contributors +\ may be used to endorse or promote products derived from this software +\ without specific prior written permission. +\ +\ This software is provided "AS IS," without a warranty of any kind. +\ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, +\ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A +\ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN +\ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR +\ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR +\ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN +\ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR +\ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE +\ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, +\ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF +\ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. +\ +\ You acknowledge that this software is not designed, licensed or +\ intended for use in the design, construction, operation or maintenance of +\ any nuclear facility. +\ +\ ========== Copyright Header End ============================================ +purpose: Floppy controller driver variables and constants +copyright: Copyright 1990 Sun Microsystems, Inc. All Rights Reserved + +hex + +headerless +d# 10 instance buffer: statbuf + + 40 constant dio \ Direction In, i.e. read FIFO + 10 constant busy \ Not ready for new command + + 2 instance value #heads \ number of heads +d# 18 instance value sec/trk \ sectors per track (9 for 720K, d# 18 for 1.44M ) + 200 instance value bytes/sec \ bytes per sector. goes with size + 0 instance value drive \ drive number + +d# 18 instance value end-of-trk \ final sector number of current track + 2 instance value size \ bytes per sector (2 for 512) + 01b instance value gpl \ read, write gap + 0ff instance value dtl \ special sector size (0 for 128 byte sector) + + 1b instance value gpl3 \ gap 3 size + +\ 0c instance value srt \ 13 for 4 ms at 500Kbps +\ 2 instance value hut \ 2 for 16 ms at 500Kbps +\ 19 instance value hlt \ 25 for 50 ms at 500Kbps + +\ 1.44 in 1.44 drive + 0a instance value srt \ 0 for 16 ms at 500Kbps + 0f instance value hut \ 0 for 256 ms at 500Kbps + 1 instance value hlt \ 0 for 256 ms at 500Kbps + + 0 instance value mot \ 0 for wait for motor + 0 instance value moff \ 6 for 5.2secs delay default, 300 rpm + \ The 82077 does not support the MON field; the second "configure" + \ byte must be 0 + 0 instance value mon \ 4 for 800msec motor on delay, 300 rpm + 0 instance value efifo \ 20 for no fifo, default + 9 instance value fifothr \ FIFO threshold; report ready as soon as possible + 0 instance value precomp \ 0 for default, 125 ns at 500 Kbps + 0 instance value dratesel \ data rate select, 0 for 500 Kbps + + 40 constant mfm \ 40 for mfm + 80 constant mt \ multi-track - read until the end of a cylinder + 0 constant nd \ non-DMA mode + 0 constant hsda \ no high speed disks + 80 constant flock \ floppy parameters locked + 40 constant eis \ implied seek + 10 constant poll \ 10 to disable polling + 0 constant pretrk \ 0 for pre-comp on track 0 + + 3 constant dor-drvsel \ drive select bit mask + 4 constant dor-reset \ hard reset + 8 constant dor-dmagate \ enable INT, DRQ, TC, and DACK to the system +\ 10 constant dor-motoren0 \ motor enable for drive 0 +\ 20 constant dor-motoren1 \ motor enable for drive 1 +\ 40 constant dor-motoren2 \ motor enable for drive 2 +\ 80 constant dor-motoren3 \ motor enable for drive 3 +[ifdef] sun + 80 constant dor-eject \ floppy eject (Sun-specific) +[then] + + 80 constant dsr-swreset \ soft reset + 80 constant dir-dskchg \ disk change + +: wait-command ( -- ) begin busy fstat@ and 0= until ; + +\ Reads result bytes as long as the chip has some to give us +: result ( -- ) + statbuf begin ( adr ) + \ If fdc-fifo-wait times out, the 80 bit will not be set + fdc-fifo-wait dio 80 or tuck and = ( adr flag ) + while + fifo@ over c! 1+ ( adr' ) + repeat ( adr ) + drop +; + +\ Sends a command byte to the floppy command registers +: >fdc ( byte -- ) + fdc-fifo-wait dio and abort" Floppy chip not ready for command" + fifo! +; + +\ Sends the first command byte to the floppy command register +: fdc-cmd ( command-byte -- ) wait-command >fdc ; + +: dor-motoren ( -- mask ) h# 10 drive lshift ; + +: floppy-xdeselect ( -- ) + fstat@ busy and 0= ( flag1 ) + dor@ dor-motoren and ( flag1 flag2 ) + and if + dor@ dor-motoren invert and dor! + then +; + +: fdc-reset ( -- ) + dor@ dor-reset invert and dor! + 1 ms + dor@ dor-reset or dor! + 1 ms +\ dor-reset dor! + clear-terminal-count + dsr-swreset fstat! + precomp 2 << dratesel + fstat! + + \ Theoretically, 2 milliseconds delay is needed before the oscillators + \ stabilize, but this is overlapped with the head load delay, so we + \ don't actually have to time it. + +2 ms + + floppy-xdeselect + dor@ dor-reset or dor-dmagate or dor! +\ dor-dmagate dor! +; + + +: floppy-xselect ( -- ) + dor@ + dor-drvsel invert and drive or + dor-motoren or + dor! +\ d# 500 ms +; + +: dskchg-bitset? ( -- flag ) dir@ dir-dskchg and ; +headers +[ifdef] sun +: floppy-eject ( -- ) + map-floppy + floppy-xselect + dor@ dor-eject or dor! noop noop dor@ dor-eject invert and dor! + floppy-xdeselect + unmap-floppy +; +[then]
Added: dev/isafdc/fdcdata.fth =================================================================== --- dev/isafdc/fdcdata.fth (rev 0) +++ dev/isafdc/fdcdata.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,85 @@ +\ ========== Copyright Header Begin ========================================== +\ +\ Hypervisor Software File: fdcdata.fth +\ +\ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved. +\ +\ - Do no alter or remove copyright notices +\ +\ - Redistribution and use of this software in source and binary forms, with +\ or without modification, are permitted provided that the following +\ conditions are met: +\ +\ - Redistribution of source code must retain the above copyright notice, +\ this list of conditions and the following disclaimer. +\ +\ - Redistribution in binary form must reproduce the above copyright notice, +\ this list of conditions and the following disclaimer in the +\ documentation and/or other materials provided with the distribution. +\ +\ Neither the name of Sun Microsystems, Inc. or the names of contributors +\ may be used to endorse or promote products derived from this software +\ without specific prior written permission. +\ +\ This software is provided "AS IS," without a warranty of any kind. +\ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, +\ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A +\ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN +\ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR +\ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR +\ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN +\ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR +\ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE +\ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, +\ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF +\ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. +\ +\ You acknowledge that this software is not designed, licensed or +\ intended for use in the design, construction, operation or maintenance of +\ any nuclear facility. +\ +\ ========== Copyright Header End ============================================ +purpose: Floppy data transfer +copyright: Copyright 1990 Sun Microsystems, Inc. All Rights Reserved + +headerless +10 instance buffer: fcmdbuf +instance variable fcmdp +: putb ( byte -- ) fcmdp @ c! 1 fcmdp +! ; +: setcmd ( -- ) fcmdbuf fcmdp ! putb ; +: sendcmd ( -- ) fcmdp @ fcmdbuf ?do i c@ >fdc loop ; + +\ fills command block for transfer commands +: transfer-command ( block# cmd -- ) + +xfer-bits setcmd ( block# ) + sec/trk /mod ( sector# track# ) + #heads /mod ( sector# cylinder# head# ) + over h&d putb ( sector# cylinder# head# ) + + putb putb 1+ putb ( ) + size putb end-of-trk putb gpl3 putb dtl putb + sendcmd +; + +headers + +: r/w-data ( adr block# #bytes read? -- false | fatal? true ) + dup if 6 else 5 then ( adr block# #bytes read? command ) + floppy-select ( adr block# #bytes read? command ) + ff statbuf c! ( adr block# #bytes read? command ) + >r rot >r ( adr #bytes read? ) ( r: cmd block# ) + dma-setup ( adr devaddr #bytes ) ( r: cmd block# ) + r> r> ( adr devaddr #bytes block# cmd ) + transfer-command ( adr devaddr #bytes ) + dma-wait drop result ( ) + floppy-error? ( error? ) + floppy-deselect ( error? ) + + dup if ( true ) + statbuf 1+ c@ 30 and 0= ( true fatal? ) + dup 0= if floppy-recalibrate then ( true fatal? ) + swap + then ( false | fatal? true ) +; + +headers
Added: dev/isafdc/fdcdma.fth =================================================================== --- dev/isafdc/fdcdma.fth (rev 0) +++ dev/isafdc/fdcdma.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,105 @@ +purpose: Program channel 2 of an ISA DMA controller for use with an ISA floppy +\ See license at end of file + +hex +headerless + +: dma-setup ( vadr len write-memory? -- vadr devaddr len ) + 14 8 pc! \ disable the chip while programming it + + if 46 else 4a then b pc! \ single transfer, increment addr, + \ no autoinit, ch 2 + + 2dup true " dma-map-in" $call-parent swap ( vadr devadr len ) + + \ Load count ( vadr devadr len ) + 0 c pc! \ Reset address byte pointer + dup 1- wbsplit swap 5 pc! 5 pc! ( vadr devadr len ) + + \ Load address + 0 c pc! \ Reset address byte pointer + over lbsplit 2swap swap 4 pc! 4 pc! ( vadr devadr len page-byte hi-byte ) + + swap 81 pc! ( vadr devadr len hi-byte ) + + \ Setting this high byte register last causes the DMA controller + \ in the 82378 to increment all 32 bits of the address. + 481 pc! ( vadr devadr len ) + + c0 d6 pc! \ Set cascade mode for channel 4 + 0 d4 pc! \ Release channel 4 (master for chs. 0-3) + 2 a pc! \ Release channel 2 + + 10 8 pc! \ re-enable the chip + +; +: dma-wait ( vaddr devaddr len -- timeout? ) + true + d# 400 0 do + 8 pc@ 4 and if 0= leave then + d# 10 ms + loop + >r + " dma-map-out" $call-parent + r> +; + +headers +external + +\ The deblocker needs these +: dma-alloc ( len -- adr ) + \ We must ensure that the buffer is in the lower 16 MBytes, + \ and doesn't cross a 64K boundary. + + \ Allocate twice as much as is wanted to guarantee that there will + \ be a piece of the desired size on one side of a 64K boundary. + + dup 2* " dma-alloc" $call-parent swap ( adr len ) + + \ The boundary crossing must be evaluated in physical space + 2dup true " dma-map-in" $call-parent ( adr len phys ) + 3dup swap " dma-map-out" $call-parent ( adr len phys ) + + h# ffff and ( adr len offset ) + + tuck + na1+ h# 10000 > if ( adr offset ) + \ The start is too close to the boundary, + \ so we use the piece above the boundary + + over swap - h# 10000 + ( adr adr' ) + else ( adr offset ) + drop dup na1+ ( adr adr' ) + then + + \ Store the address of the allocated piece just before the returned + \ address, so that dma-free can find that address + tuck -1 na+ ! ( adr' ) +; +: dma-free ( adr len -- ) swap -1 na+ @ swap " dma-free" $call-parent ; + +headers + +\ LICENSE_BEGIN +\ Copyright (c) 1994 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/isafdc/fdcpio.fth =================================================================== --- dev/isafdc/fdcpio.fth (rev 0) +++ dev/isafdc/fdcpio.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,162 @@ +purpose: Patch floppy driver to use programmed-I/O +\ See license at end of file + +dev /fdc + +headerless +\ patch 54 14 dma-setup \ DREQ active high \ use no dma before it's time +\ patch 50 10 dma-setup \ DREQ active high + +1 to nd \ Set non-DMA mode + +[ifdef] notdef +code pio-sector ( adr len in? reg-adr -- error? ) + lwz t2,0(sp) \ direction in t2 + lwz t0,1cell(sp) \ len to t0 + lwz t1,2cells(sp) \ adr to t1 + addi sp,sp,3cells \ clear stack + + mtspr ctr,t0 \ Setup loop counter + + addi t1,t1,-1 \ Account for pre-increment + + \ We can't allow interrupts because the time + \ spent handling them could cause overruns + mfmsr t3 + rlwinm t0,t3,0,17,15 \ Mask off interrupt enable bit + mtmsr t0 + + \ Now that interupts are disabled, we can use the DEC register + \ to keep track of a timeout. But we must save the value that + \ is there and restore it when we are done. We will use the T5 + \ register to do that hold hold the orignal value. + + mfspr t5,dec + + \ Now to calculate a timeout value and stuff it into DEC + + 'user counts/ms lwz t6,* \ Get counts per milisecond, store in t6 + + mulli t7,t6,d#10000 \ h# 2710 is 10000 (mS) ==> 10 Seconds + mtspr dec,t7 \ Set the DEC register + mulli t7,t6,d#1000 \ Set 1 second in t7, 3e8 is 1000. + + cmpi 0,0,t2,0 \ Incoming if nonzero + <> if + set t9,h#40 \ Use t9 to hold mask value which determines + else \ how to test status register. 40 for reads + set t9,h#0 \ 00 for writes. + then + + begin + begin + lbz t4,0(tos) + andi. t8,t4,h#80 + 0= while \ Wait until device has data for us + mfspr t6,dec + cmp 0,0,t6,t7 + < if \ Less than 1 second left...timeout + 1 L: + set tos,-1 \ Set error flag + mtspr ctr,up \ Restore "next" pointer + mtmsr t3 \ Restore previous state of interrupt enable + mtspr dec,t5 \ Restore the DEC to it's original value. + next + then + repeat + + andi. t8,t4,h#20 \ If the Non-DMA bit is off, the data phase + 1 B: 0= brif \ is over prematurely, so go to error bailout + + andi. t8,t4,h#40 \ If the direction is wrong, bail out + cmp 0,0,t8,t9 + 1 B: <> brif + + cmpi 0,0,t2,0 + <> if \ Read case + lbz t0,1(tos) \ Data byte + stbu t0,1(t1) \ Store to memory + else \ Write case + lbzu t0,1(t1) \ Load from memory + stb t0,1(tos) \ Data byte + then + countdown + + mtspr ctr,up \ Restore "next" pointer + mtspr dec,t5 \ Restore the DEC to it's original value. + mtmsr t3 \ Restore previous state of interrupt enable + set tos,0 +c; +: pio-data-transfer ( adr len in? -- error? ) floppy-chip pio-sector ; + + +[else] +: (pio-data-transfer) ( adr len in? -- error? ) + if ( adr len ) + bounds ?do + begin fstat@ h# 80 and until + fstat@ h# 60 and h# 60 <> if + true unloop exit + then + fifo@ i c! + loop + else + bounds ?do + begin fstat@ h# 80 and until + fstat@ h# 60 and h# 20 <> if + true unloop exit + then + i c@ fifo! + loop + then + false +; +: pio-data-transfer ( adr len in? -- error? ) + lock[ \ Interrupts off to avoid overruns + (pio-data-transfer) + ]unlock +; + +[then] +: unload ( -- ) + begin fdc-fifo-wait dio 80 or tuck and = while fifo@ drop repeat +; + +: pio-error? ( -- error? ) + statbuf c@ h# c0 and h# 40 = if + statbuf 1+ c@ 80 <> + else + floppy-error? + then +; + +patch pio-data-transfer dma-wait r/w-data +patch noop dma-setup r/w-data +patch pio-error? floppy-error? r/w-data + +device-end +headers + +\ LICENSE_BEGIN +\ Copyright (c) 1996 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/isafdc/fdcpkg.fth =================================================================== --- dev/isafdc/fdcpkg.fth (rev 0) +++ dev/isafdc/fdcpkg.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,177 @@ +\ ========== Copyright Header Begin ========================================== +\ +\ Hypervisor Software File: fdcpkg.fth +\ +\ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved. +\ +\ - Do no alter or remove copyright notices +\ +\ - Redistribution and use of this software in source and binary forms, with +\ or without modification, are permitted provided that the following +\ conditions are met: +\ +\ - Redistribution of source code must retain the above copyright notice, +\ this list of conditions and the following disclaimer. +\ +\ - Redistribution in binary form must reproduce the above copyright notice, +\ this list of conditions and the following disclaimer in the +\ documentation and/or other materials provided with the distribution. +\ +\ Neither the name of Sun Microsystems, Inc. or the names of contributors +\ may be used to endorse or promote products derived from this software +\ without specific prior written permission. +\ +\ This software is provided "AS IS," without a warranty of any kind. +\ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, +\ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A +\ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN +\ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR +\ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR +\ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN +\ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR +\ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE +\ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, +\ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF +\ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. +\ +\ You acknowledge that this software is not designed, licensed or +\ intended for use in the design, construction, operation or maintenance of +\ any nuclear facility. +\ +\ ========== Copyright Header End ============================================ +purpose: Floppy disk package. +copyright: Copyright 1990 Sun Microsystems, Inc. All Rights Reserved + +headers +1 encode-int " #address-cells" property +0 encode-int " #size-cells" property +: decode-unit ( adr len -- n ) push-hex $number if 0 then pop-base ; +: encode-unit ( n -- adr len ) push-hex (u.) pop-base ; +: open ( -- flag ) fdc-init true ; +: reset ( -- ) fdc-init unmap-floppy ; +: close ( -- ) unmap-floppy ; +: set-address ( dev# -- ) to drive ; +: probe ( -- ) + 2 0 do + i set-address drive-present? if + " /fdc/disk" find-package if + push-package + \ "i" must be executed outside of package( ... )package, + \ which uses the return stack + i 0 package( encode-int " reg" property )package + pop-package + then + then + loop +; + +\ We set both the block size and the maximum transfer size to one cylinder. +\ Reading a cylinder at a time improves the performance dramatically +\ compared to reading a block at at a time. +\ XXX: Override these values if the installed drive isn't 3.5-inch 1.44MB. +: sec/cyl ( -- n ) sec/trk 2* ; +: max-transfer ( -- n ) h# 200 sec/cyl * ; +\ : block-size ( -- n ) max-transfer ; +\ : #blocks ( -- n ) d# 80 ; \ For 1.44 MByte floppies +: block-size ( -- n ) h# 200 ; +: #blocks ( -- n ) d# 80 sec/cyl * ; \ For 1.44 MByte floppies + +new-device +" disk" device-name +" block" device-type + +headerless +0 instance value deblocker +: init-deblocker ( -- okay? ) + " " " deblocker" $open-package is deblocker + deblocker if + true + else + ." Can't open deblocker package" cr false + then +; + +0 instance value offset-low \ Offset to start of partition +0 instance value offset-high + +0 instance value label-package + +\ Sets offset-low and offset-high, reflecting the starting location of the +\ partition specified by the "my-args" string. + +: init-label-package ( -- okay? ) + 0 is offset-high 0 is offset-low + my-args " disk-label" $open-package is label-package + label-package if + 0 0 " offset" label-package $call-method is offset-high is offset-low + true + else + ." Can't open disk label package" cr false + then +; + +headers + +: dma-alloc ( size -- virt ) " dma-alloc" $call-parent ; +: dma-free ( virt size -- ) " dma-free" $call-parent ; +: max-transfer ( -- n ) " max-transfer" $call-parent ; +: block-size ( -- n ) " block-size" $call-parent ; +: #blocks ( -- n ) " #blocks" $call-parent ; +\ : sec/cyl ( -- n ) " sec/cyl" $call-parent ; + +headerless +instance variable floppy-#retries +[ifdef] notdef +: r/w-blocks ( adr cyl# #cyls read? -- #read ) + >r -rot 2 pick ( #cyls adr cyl# #rem ) + begin dup while ( #cyls adr cyl# #rem ) + floppy-#retries off ( #cyls adr cyl# #rem ) + begin ( #cyls adr cyl# #rem ) + 2 pick 2 pick ( sec/cyl * ) ( #cyls adr cyl# #rem adr #blks ) + block-size r@ " r/w-data" $call-parent ( #cyls adr cyl# #rem error? ) + while ( #cyls adr cyl# #rem fatal? ) + if r> drop nip nip - exit then ( #cyls adr cyl# #rem ) + + 1 floppy-#retries +! + floppy-#retries @ 8 >= if r> drop nip nip - exit then + + repeat ( #cyls adr cyl# #rem ) + rot block-size + rot 1+ rot 1- ( #cyls adr' cyl#' #rem' ) + repeat ( #cyls adr' cyl#' 0 ) + r> drop 3drop ( #cyls ) +; +[else] +: r/w-blocks ( adr blk# #blks read? -- actual# ) + over >r >r ( adr blk# #blks r: #blks read? ) + block-size * r> " r/w-data" $call-parent if ( r: #blks ) + r> drop 0 ( 0 ) + else ( r: #blks ) + r> ( #blks ) + then ( actual# ) +; +[then] + +headers +: read-blocks ( adr cyl# #cyls -- #read ) true r/w-blocks ; +: write-blocks ( adr cyl# #cyls -- #written ) false r/w-blocks ; + +: load ( adr -- size ) " load" label-package $call-method ; +: seek ( offset.low offset.high -- okay? ) + offset-low offset-high d+ " seek" deblocker $call-method +; +: write ( adr len -- actual-len ) " write" deblocker $call-method ; +: read ( adr len -- actual-len ) " read" deblocker $call-method ; + +: close ( -- ) label-package close-package deblocker close-package ; +: open ( -- flag ) + my-unit " set-address" $call-parent + " chip-okay?" $call-parent 0= if false exit then + " drive-okay?" $call-parent 0= if false exit then + " diskette-present?" $call-parent 0= if false exit then + init-deblocker 0= if false exit then + init-label-package 0= if deblocker close-package false exit then + true +; +: selftest ( -- bad? ) my-unit " test-disk" $call-parent ; + +finish-device
Added: dev/isafdc/isafdc.fth =================================================================== --- dev/isafdc/isafdc.fth (rev 0) +++ dev/isafdc/isafdc.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,52 @@ +purpose: Setup for i82077 floppy chip driver +\ See license at end of file + +hex +\ Map a virtual address to the floppy device. + +\ " i82077" device-name \ Name of device node +my-address my-space 8 reg + +headerless +2 constant terminal-count +0 instance value floppy-chip +: map-floppy ( -- ) + my-address my-space 8 " map-in" $call-parent 4 + is floppy-chip +; + +: fifo@ ( -- char ) floppy-chip 1+ rb@ ; +: fifo! ( char -- ) floppy-chip 1+ rb! ; +: fstat@ ( -- char ) floppy-chip rb@ ; +: fstat! ( char -- ) floppy-chip rb! ; +: dor@ ( -- char ) floppy-chip 2- rb@ ; +: dor! ( -- char ) floppy-chip 2- rb! ; +: dir@ ( -- char ) floppy-chip 3 + rb@ ; +: dir! ( -- char ) floppy-chip 3 + rb! ; + +headers +: unmap-floppy ( -- ) floppy-chip 4 - 8 " map-out" $call-parent ; + + +\ LICENSE_BEGIN +\ Copyright (c) 1994 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/isafdc/loadfdc.fth =================================================================== --- dev/isafdc/loadfdc.fth (rev 0) +++ dev/isafdc/loadfdc.fth 2008-09-30 21:18:35 UTC (rev 955) @@ -0,0 +1,68 @@ +purpose: Load file for ISA floppy chip +\ See license at end of file + +" fdc" device-name +" fdc" device-type + +[ifdef] PREP + 6 encode-int " interrupts" property + 2 encode-int h# 68 encode-int encode+ " dma" property +[else] + 6 encode-int 3 encode-int encode+ " interrupts" property + 2 encode-int \ Channel + 1 encode-int encode+ \ Type (1=A) + 8 encode-int encode+ \ Data bits +d# 16 encode-int encode+ \ Count bits + 0 encode-int encode+ \ Not bus mastering + " dma" property +[then] + +" pnpPNP,700" " compatible" string-property + +headerless +defer getsec defer putsec + +headers +fload ${BP}/dev/isafdc/isafdc.fth + +headerless +: clear-terminal-count ( -- ) ; +: fdc-fifo-wait ( -- stat ) + 0 d# 300 0 do \ wait up to 3 second + drop fstat@ dup h# 80 and h# 80 = ?leave + d# 10 ms + loop +; +headers + +fload ${BP}/dev/isafdc/fdcdma.fth +fload ${BP}/dev/isafdc/fdcconf.fth +fload ${BP}/dev/isafdc/fdccntrl.fth +fload ${BP}/dev/isafdc/fdcdata.fth +fload ${BP}/dev/isafdc/fdc-test.fth +fload ${BP}/dev/isafdc/fdcpkg.fth + + +\ LICENSE_BEGIN +\ Copyright (c) 1994 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