Author: wmb
Date: 2008-09-30 23:06:51 +0200 (Tue, 30 Sep 2008)
New Revision: 954
Added:
dev/amd7990/
dev/amd7990/lance32.fth
dev/amd7990/lancecom.fth
dev/amd7990/lancetst.fth
dev/amd7990/lancevar.fth
dev/amd7990/regbits.fth
dev/amd7990/timedrec.fth
dev/amd7990/vmlance.fth
dev/amd79970/
dev/amd79970/79c970.fth
dev/amd79970/amd79970.bth
dev/amd79970/amd7997m.bth
dev/amd79970/build/
dev/amd79970/loadfcod.fth
dev/amd79970/loadpkg.fth
dev/amd79970/map.fth
dev/amd79970/methods.fth
dev/amd79970/setup.fth
dev/amd79970/vmlance.bth
Log:
Added old AMD Ethernet driver to tree for use with VMWare and VirtualBox.
Added: dev/amd7990/lance32.fth
===================================================================
--- dev/amd7990/lance32.fth (rev 0)
+++ dev/amd7990/lance32.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,225 @@
+\ ========== Copyright Header Begin ==========================================
+\
+\ Hypervisor Software File: lance32.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: Definitions for the 32-bit LANCE interface
+copyright: Copyright 1995 Sun Microsystems, Inc. All Rights Reserved
+
+\ Register access
+
+\ The chips that support 32-bit descriptor addresses usually
+\ have two modes for accessing the control registers. In the
+\ "normal" word I/O mode, the registers are accessed with 16-bit
+\ bus cycles and appear at adjacent 16-bit locations (0x10, 0x12, ...)
+\ In double-word I/O mode, they are accessed with 32-bit bus
+\ cycles and appear at adjacent 32-bit locations (0x10, 0x14, ...)
+\ In either case, they contain only 16 bits of useful data, so
+\ there is no real advantage to using 32-bit accesses.
+\ The chip determines the mode from the first access cycle, and
+\ "locks" into that mode. The only way to change the mode thereafter
+\ is to issue a hardware reset to it; a software reset won't do it.
+\ We use 16-bit mode as the default, for the benefit of client programs
+\ that use older driver code.
+
+[ifdef] 32-bit-cycles
+: >reg ( offset -- adr ) la swap la+ h# 10 + ;
+: reg@ ( offset -- data ) >reg rl@ ;
+: reg! ( data offset -- ) >reg rl! ;
+[else]
+: >reg ( offset -- adr ) la swap wa+ h# 10 + ;
+: reg@ ( offset -- data ) >reg rw@ ;
+: reg! ( data offset -- ) >reg rw! ;
+[then]
+
+: rdp! ( val -- ) 0 reg! ;
+: rdp@ ( -- val ) 0 reg@ ;
+
+: rap! ( val -- ) 1 reg! ;
+: rap@ ( -- val ) 1 reg@ ;
+
+: reset ( -- ) 2 reg@ drop ;
+
+: bdp! ( val -- ) 3 reg! ;
+: bdp@ ( -- val ) 3 reg@ ;
+
+\ Control and Status Register
+: csr! ( value reg# -- ) rap! rdp! ;
+: csr@ ( reg# -- value ) rap! rdp@ ;
+
+\ Bus Control Register
+: bcr! ( value reg# -- ) rap! bdp! ;
+: bcr@ ( reg# -- value ) rap! bdp@ ;
+
+
+\ In addition to the 16/32-bit register access, some AMD Ethernet
+\ chips allow you to choose 16-bit and 32-bit versions of the
+\ descriptor data structures. Unlike the register access, there
+\ is a compelling reason to use the 32-bit data structures, for
+\ they contain 32-bit DMA pointers. The 16-bit data structures
+\ use 24-bit DMA pointers, thus restricting DMA to the lower 16 MBytes.
+
+\ Message descriptor access
+
+struct ( message-descriptor )
+4 field >addr
+2 field >bytecnt
+1 field >reserved1
+1 field >laflags
+0 field >tmd2
+2 field >mcnt
+0 field >xerrors
+1 field >rpc
+1 field >rcc
+4 field >reserved2
+( total-length ) constant /md
+
+/md value /rmd
+/md value /tmd
+
+\ Little-endian reads and writes
+: lew@ ( addr -- w ) dup c@ swap 1+ c@ bwjoin ;
+: lew! ( addr w -- ) >r wbsplit r@ 1+ c! r> c! ;
+
+: lel@ ( addr -- l ) dup lew@ swap 2+ lew@ wljoin ;
+: lel! ( addr l -- ) >r lwsplit r@ 2+ lew! r> lew! ;
+
+: dump-regs ( -- )
+ hex la . cr
+ h# 80 0 do i decimal 3 u.r hex i csr@ 9 u.r cr loop
+;
+
+\ Get virtual address of buffer from message descriptor
+: addr@ ( rmd/tmd-vaddr -- buff-vaddr ) >addr lel@ devaddr> ;
+
+\ gets length of incoming message - receive only
+: length@ ( rmdaddr -- messagelength ) >mcnt lew@ ;
+
+\ gets transmit errors - transmit only
+: xerrors@ ( tmdaddr -- errorsflag )
+ >xerrors lew@ dup rtry and 0= if \ mask TDR unless RTRY set
+ h# fc00 and
+ then
+;
+
+\ Store buffer address into message descriptor
+\ The message descriptor must have a DMA address in it because
+\ the chip reads it.
+: addr! ( buff-vaddr rmd/tmd-vaddr -- ) swap >devaddr swap >addr lel! ;
+
+\ Set length of message to be sent - transmit only
+: length! ( length rmd/tmd-addr -- ) swap negate swap >bytecnt lew! ;
+
+\ Clear transmit error flags
+: clear-errors ( tmd-addr -- ) 0 swap >xerrors lew! ;
+
+
+\ Initialization
+
+0 constant /ib \ We use direct CSR access for initialization - no IB needed
+
+: set-this-addr ( addr -- )
+ \ Load physical address in CSR12/13/14
+ d# 12 swap 6 bounds do ( csr# )
+ i c@ i 1+ c@ bwjoin over csr! 1+ ( csr#' )
+ 2 +loop drop
+;
+
+\ Initialize the Lance chip
+: lance-init ( -- flag )
+ 0 rdp! \ Write to RDP to set the access mode
+ \ We are just hoping that there are no
+ \ side effects of this write.
+
+ \ The stop bit must be set before accesses to the following CSRs
+ stopb 0 csr!
+
+\ Disable transmitter and receiver
+\ mode @ 3 or 15 csr!
+ this-en-addr set-this-addr \ Physical Ethernet Address (CSR12/13/14)
+ 0 8 csr! 0 9 csr! 0 10 csr! \ Logical Address Filter (CSR8/9/10/11)
+ 0 11 csr!
+ rmd0 >devaddr lwsplit 25 csr! 24 csr! \ Receive Ring Base Address (CSR24/25)
+ #rmds negate h# ffff and \ Receive Ring Length (CSR76)
+ 76 csr!
+ tmd0 >devaddr lwsplit 31 csr! 30 csr! \ Transmit Ring Base Address (CSR30/31)
+ 1 negate h# ffff and 78 csr! \ Transmit Ring Length (CSR78)
+ 0 47 csr! \ Polling Interval (CSR47)
+
+\ h# 1115 4 csr! \ Disable polling
+
+ \ This value would be "2" for auto-selection
+ 0 2 bcr! \ Force selection of 10BASE-T vs. AUI
+
+ tp? if \ Set TMAULOOP for 10BASE-T external loopback
+ mode @ lpbk and if
+ mode @ intl and 0= if h# 4000 2 bcr! then
+ then
+ then
+
+\ h# 4002 2 bcr! \ Miscellaneous configuration
+
+ h# 2180 18 bcr! \ Turn off bursting
+\ h# 0161 18 bcr! \ Burst size and bus control
+
+ h# 0002 20 bcr! \ Software style = PCnet-PCI, SSIZE = 1
+
+ \ Set the mode register after all the others because otherwise
+ \ VMware's emulated 79c970 screws up. Apparently it enables
+ \ transmit and receive as soon as you write the mode register,
+ \ instead of waiting for the STRT bit to be set. If you write
+ \ the mode register before establishing the descriptor addresses,
+ \ it tries to access bogus descriptors.
+ mode @ tp? if h# 80 or then 15 csr! \ Mode (CSR15)
+
+ \ The start bit must now be set. **DO NOT SET INIT BIT OR ABOVE REGISTERS
+ \ WILL BE OVERWRITTEN**
+
+ strt 0 csr!
+ true
+;
+
+\ Restore the chip to its default modes for the benefit of client programs
+: lance-uninit ( -- ) \ Call from close, after setting STOP
+ reset \ Issue software reset
+ h# 200 d# 20 bcr! \ Restore default "PCnet-ISA" programing interface
+ h# 200 d# 58 csr! \ Restore default "PCnet-ISA" programing interface
+ h# 9060 d# 18 bcr! \ Re-enable burst modes
+ 2 2 bcr! \ Re-enable auto-selection of media
+;
Added: dev/amd7990/lancecom.fth
===================================================================
--- dev/amd7990/lancecom.fth (rev 0)
+++ dev/amd7990/lancecom.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,228 @@
+\ ========== Copyright Header Begin ==========================================
+\
+\ Hypervisor Software File: lancecom.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: Code common to all LANCE versions
+copyright: Copyright 1995 Sun Microsystems, Inc. All Rights Reserved
+
+d# 1514 encode-int " max-frame-size" property
+
+headers
+
+\ buffer# to address calculations
+: rmd#>rmdaddr ( n -- addr ) /rmd * rmd0 + ;
+: rbuf#>rbufaddr ( n -- addr ) /rbuf * rbuf0 + ;
+
+1 #rmdsfactor lshift to #rmds
+#rmds /rmd * to /rmds
+
+\ patch routine to change buffer count
+: set-factor ( rmdsfactor -- ) \ 1=2bufs, 2=4bufs, 3=8bufs, etc.
+ 8 min \ max buffers is 256
+ to #rmdsfactor
+ 1 #rmdsfactor lshift to #rmds
+ #rmds /rmd * to /rmds
+;
+
+: status@ ( rmd/tmd-addr -- statusflag ) >laflags c@ ;
+
+\ Masks out OWN, ENP and STP bits; they aren't errors
+: rerrors@ ( rmd/tmd-addr -- errorsflag ) status@ ready invert and ;
+
+
+\ *** Lance message descriptor ring value storage ***
+
+\ Put a buffer back in the chip's ready list
+: give-buffer ( rmd/tmd-addr -- ) >laflags ready swap c! synchronize ;
+
+\ *** Initialization routines ***
+
+: set-address ( en-addr len -- ) drop this-en-addr 6 cmove ;
+
+\ Initialize a single message descriptor
+: rmd-init ( rbufaddr rmdaddr -- )
+ /rbuf over length! \ Buffer length
+ addr! \ Buffer address
+;
+
+\ Set up the data structures necessary to receive a packet
+instance variable nextrmd
+: rinit ( -- )
+ rmd0 nextrmd !
+ #rmds 0 do i rbuf#>rbufaddr i rmd#>rmdaddr rmd-init loop
+ #rmds 0 do i rmd#>rmdaddr give-buffer loop
+;
+
+\ *** Receive packet routines ***
+
+: .err-text ( err-code -- err-code )
+ enp over and if
+ fram over and if ." Framing error " then
+ crc over and if ." CRC error " then
+ else
+ oflo over and if ." FIFO overflow " then
+ then
+ buff over and if ." No buffers " then
+;
+
+instance defer .error
+: (.error ( buf-handle buffer length -- buf-handle buffer length )
+ 2 pick rerrors@ if
+ 2 pick status@ dup mser and if .err-text then drop
+ drop 0
+ then
+;
+
+: receive-ready? ( -- packet-waiting? )
+ synchronize
+ nextrmd @ status@ own and 0=
+;
+
+: receive ( -- buf-handle buffer len ) \ len non-zero if packet ok
+ nextrmd @ dup addr@ over ( nlover ) ( rmd bufferaddr rmd )
+ length@ .error
+;
+
+: to-next-rmd ( -- )
+ /rmd nextrmd +!
+ nextrmd @ rmd0 - /rmds >= if rmd0 nextrmd ! then
+;
+
+: return-buffer ( buf-handle -- ) give-buffer to-next-rmd ;
+
+
+\ *** start of transmit routines ***
+
+instance variable nexttmd \ tmd0 nexttmd !, never changes presently
+
+\ Wait until transmission completed
+: send-wait ( -- ) begin 0 csr@ tint and until tint 0 csr! ;
+
+\ *** Transmit initialization routines ***
+
+\ transmit buffer initialize routine
+: tinit ( -- )
+ tmd0 nexttmd !
+ tbuf0 nexttmd @ addr!
+ nexttmd @ clear-errors
+;
+
+\ Set up CPU page maps
+: map-lance-buffers ( -- )
+ #rmdsfactor set-factor
+ #rmds /rbuf * ( rbuf-size )
+
+ \ Figure out how much total DMA space we're going to need
+
+ /ib + /tmd + /rmds + /tbuf + ( total-dma-size )
+ to lance-dma-size
+
+ \ Allocate and map that space
+ lance-dma-size lance-allocate-dma ( dma-area-adr )
+ dup to dma-base
+
+ \ Set the addresses of the various DMA regions used by the chip
+ dup to ib /ib + ( next-address )
+ dup to tmd0 /tmd + ( next-address )
+ dup to rmd0 /rmds + ( next-address )
+ dup to tbuf0 /tbuf + ( next-address ) \ Enough for max packet
+ to rbuf0 ( )
+;
+
+: unmap-lance-buffers ( -- )
+ dma-base lance-dma-size lance-free-dma
+ 0 to dma-base
+;
+
+\ Initializes the chip, allocating the necessary memory, and enabling the
+\ transmitter and receiver.
+: net-on ( -- flag ) \ true if net-on succeeds
+ mac-address set-address
+ tinit rinit
+ lance-init
+;
+
+: net-off ( -- ) stopb 0 csr! ;
+
+\ *** Main transmit routines ***
+
+\ Ignores the size argument, and uses the standard buffer.
+: get-buffer ( dummysize -- buffer ) drop nexttmd @ addr@ ;
+
+\ Display time domain reflectometry information
+: .tdr ( xerrors -- ) h# 3ff and ." TDR: (decimal) " .d ;
+
+: .terr-text ( tmd -- )
+ xerrors@ >r
+ xbuf r@ and if ." Buffer Error " then
+ uflo r@ and if ." Underflow " then
+ lcol r@ and if ." Late Collision " r@ .tdr then
+ lcar r@ and if ." Lost Carrier (transceiver cable problem?) " then
+ rtry r@ and if ." Too Many Retries " r@ .tdr then
+ r> drop cr
+;
+
+\ print summary of any HARD errors
+: (.transmit-error ( tmd len -- tmd len )
+ over status@ mser and if over .terr-text then
+;
+instance defer .transmit-error
+
+\ This send routine does not enforce the minimum packet length. It is
+\ used by the loopback test routines. Loopback only works with packets
+\ whose length is <= 32 bytes.
+: short-send ( buffer length -- error? )
+ tuck nexttmd @ length! ( length buffer )
+ drop \ discard buffer address, assumes using nexttmd
+ nexttmd @ give-buffer \ Give tmd to chip
+ tdmd 0 csr! \ Force chip to look at it right away
+ send-wait \ wait for completion
+ nexttmd @ swap ( tmd length )
+ .transmit-error ( tmd length )
+ drop xerrors@ dup if nexttmd @ clear-errors then ( error? )
+;
+
+\ transmit packet routine
+: net-send ( buffer length -- error? )
+ d# 64 max \ force minimum length to be 64
+ short-send ( error? )
+;
+
+headers
Added: dev/amd7990/lancetst.fth
===================================================================
--- dev/amd7990/lancetst.fth (rev 0)
+++ dev/amd7990/lancetst.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,166 @@
+\ ========== Copyright Header Begin ==========================================
+\
+\ Hypervisor Software File: lancetst.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: LANCE selftest
+copyright: Copyright 1990 Sun Microsystems, Inc. All Rights Reserved
+
+hex
+headers
+instance variable lance-verbose?
+instance variable ext-lbt? ext-lbt? off
+
+create loopback-prototype
+ ff c, 00 c, \ Ones and zeroes
+ 01 c, 02 c, 04 c, 08 c, 10 c, 20 c, 40 c, 80 c, \ Walking ones
+ fe c, fd c, fb c, f7 c, ef c, 0df c, 0bf c, 7f c, \ Walking zeroes
+
+: loopback-buffer ( -- adr len )
+ /loopback get-buffer ( adr )
+ mac-address drop over 6 cmove \ Set source address
+ mac-address drop over 6 + 6 cmove \ Set destination address
+ loopback-prototype over d# 12 + d# 20 cmove \ Set buffer contents
+ /loopback
+;
+
+: pdump ( adr -- )
+ base @ >r hex
+ dup d# 10 bounds do i c@ 3 u.r loop cr
+ d# 10 + d# 10 bounds do i c@ 3 u.r loop cr
+ r> base !
+;
+
+: .loopback ( -- )
+ mode @ intl and if ." Internal " else ." External " then
+ ." loopback test -- "
+;
+
+: ?.loopback ( -- )
+ lance-verbose? @ 0= if .loopback then ;
+
+: switch-off ( -- false )
+ lance-verbose? off false
+;
+
+: bad-rx-data ( buf-handle data-address -- false )
+ ?.loopback
+ ." Received packet contained incorrect data. Expected: " cr
+ loopback-prototype pdump
+ ." Observed:" cr
+ d# 12 + pdump
+ switch-off
+;
+
+: check-data ( buf-handle data-address length -- flag )
+ \ flag is true if data ok
+ drop ( buf-handle data-address )
+ dup d# 12 + loopback-prototype d# 20 comp
+ if bad-rx-data
+ else drop ( buf-handle )
+ return-buffer
+ lance-verbose? @ if ." succeeded." cr then
+ mode off true
+ then
+;
+
+: check-len&data ( buf-handle data-address length -- flag )
+ \ flag is true if data, len ok
+ \ The CRC is appended to the packet, thus it is 4 bytes longer than
+ \ the packet we sent.
+ dup /loopback 4 + <> if
+ ?.loopback
+ ." Wrong packet length; expected " /loopback 4 + 2 .r
+ ." , observed " .d cr
+ switch-off
+ else
+ check-data
+ then
+;
+
+: loopback-test ( internal/external -- flag ) \ flag is true if test passed
+ lpbk or mode !
+ lance-verbose? @ if ." " .loopback then
+ net-on if
+ loopback-buffer short-send if
+ ?.loopback ." send failed." cr
+ switch-off
+ else
+ d# 2000 timed-receive if
+ ?.loopback
+ ." Did not receive expected loopback packet." cr
+ switch-off
+ else ( buf-handle data-address length )
+ check-len&data
+ then
+ then
+ else
+ switch-off
+ then
+ net-off mode off
+;
+
+: net-init ( -- flag ) \ flag is true if net-init succeeds
+ mode @ \ Save requested mode because loopback changes it
+ intl loopback-test if \ mode_saved ; passed int. loopback test
+ ext-lbt? @ if 0 loopback-test else true then ( saved-mode flag )
+ swap mode ! if net-on else false then
+ else
+ mode ! false
+ then
+;
+
+: wait-for-packet ( -- )
+ begin key? receive-ready? or until
+;
+
+: watch-test ( -- )
+ ." Looking for Ethernet packets." cr
+ ." '.' is a good packet. 'X' is a bad packet." cr
+ ." Type any key to stop." cr
+ begin
+ wait-for-packet
+ receive-ready? if
+ receive if ." ." else ." X" then
+ drop return-buffer
+ then
+ key? dup if key drop then
+ until
+;
+headers
Added: dev/amd7990/lancevar.fth
===================================================================
--- dev/amd7990/lancevar.fth (rev 0)
+++ dev/amd7990/lancevar.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,80 @@
+\ ========== Copyright Header Begin ==========================================
+\
+\ Hypervisor Software File: lancevar.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: Variables for AMD7990 Ethernet driver
+copyright: Copyright 1994 Firmworks All Rights Reserved
+
+headers
+
+6 buffer: macbuf
+
+\ Virtual addresses within the DMA buffer area.
+\ The actual addresses will be assigned later
+
+0 instance value dma-base
+0 instance value ib \ initialization block
+0 instance value tmd0 \ transmit message descriptor#0
+0 instance value rmd0 \ receive message descriptor#0
+0 instance value tbuf0 \ transmit buffer#0
+0 instance value rbuf0 \ receive buffer#0
+
+0 instance value #rmds
+0 instance value /rmds
+
+0 instance value lance-dma-size \ Amount of memory mapped
+0 instance value dma-offset \ virtual-address minus dma-address
+: >devaddr ( virt -- devaddr ) dma-offset - ;
+: devaddr> ( devaddr -- virt ) dma-offset + ;
+
+instance variable mode \ Chip mode - loopback, etc
+
+6 instance buffer: this-en-addr \ Station address
+
+\ *** buffer sizes and counts ***
+
+d# 1600 constant /rbuf \ receive buffer size
+
+d# 1700 value /tbuf \ transmit buffer size
+
+true value tp? \ True to use twisted pair (10BASE-T)
+
+\ I/O base address of the lance. The actual address will be assigned later.
+0 value la
Added: dev/amd7990/regbits.fth
===================================================================
--- dev/amd7990/regbits.fth (rev 0)
+++ dev/amd7990/regbits.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,93 @@
+\ ========== Copyright Header Begin ==========================================
+\
+\ Hypervisor Software File: regbits.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: Generic LANCE register bits
+copyright: Copyright 1995 Sun Microsystems, Inc. All Rights Reserved
+
+\ Common code
+
+hex
+headers
+
+\ Control/Status Register Bits (CSR0)
+ 01 constant initb 02 constant strt
+ 04 constant stopb 08 constant tdmd
+ 10 constant txon 20 constant rxon
+ 40 constant inea 80 constant intrp
+ 100 constant idon 200 constant tint
+ 400 constant rint 800 constant merr
+1000 constant miss 2000 constant cerr
+4000 constant babl 8000 constant err
+
+\ CSR3 bits
+ 01 constant bcon 02 constant acon 04 constant bswp
+
+\ Mode Register Bits (CSR15)
+ 01 constant drx 02 constant dtx
+ 04 constant lpbk 08 constant dxmtfcs
+ 10 constant fcoll 20 constant drty
+ 40 constant intl 8000 constant prom
+
+\ Message Descriptor Bits ( use a byte access with these bits )
+ 1 constant enp 2 constant stp
+ 10 constant ltint \ '971 extension: Interrupt after loopback transmit
+ 40 constant mser 80 constant own
+
+\ Receive Message Descriptor Bits ( use a byte access )
+ 4 constant buff 8 constant crc
+ 10 constant oflo 20 constant fram
+
+\ Transmit Message Descriptor Bits (use a byte access )
+ 4 constant def 8 constant one-err
+ 10 constant more-errs
+def one-err or more-errs or constant retries
+
+\ Value to write to message descriptor to enable it for use
+enp stp or own or ltint or constant ready
+
+\ TMD3 Bits
+ 400 constant rtry
+ 800 constant lcar
+1000 constant lcol
+4000 constant uflo
+8000 constant xbuf
+
+decimal
Added: dev/amd7990/timedrec.fth
===================================================================
--- dev/amd7990/timedrec.fth (rev 0)
+++ dev/amd7990/timedrec.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,105 @@
+\ ========== Copyright Header Begin ==========================================
+\
+\ Hypervisor Software File: timedrec.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: Network reception with timeout
+copyright: Copyright 1990 Sun Microsystems, Inc. All Rights Reserved
+
+\ Defines:
+\ timed-receive ( timeout-msecs -- [ buffer-handle data-address length ] err?)
+\ set-timeout ( timeout-msecs -- )
+\ receive-unicast ( -- [ buffer-handle data-address length ] err? )
+\
+\ defer handle-broadcast-packet ' noop to handle-broadcast-packet
+\ ( buff-handle data-addr len flag -- buff-handle data-addr len flag )
+\
+
+\ Uses this interface to the lower level receiver functions:
+
+\ receive-ready? ( -- flag ) \ true if a packet has arrived
+\ receive ( -- buf-handle buffer length )
+\ return-buffer ( buf-handle -- ) \ give receive buffer back to chip
+\ .error ( buffer-handle data-address length -- handle address length )
+\
+
+decimal
+
+instance variable alarmtime
+
+: set-timeout ( interval -- ) get-msecs + alarmtime ! ;
+: timeout? ( -- flag ) get-msecs alarmtime @ >= ;
+
+instance defer handle-broadcast-packet
+ ( buff-handle data-addr len flag -- buff-handle data-addr len flag )
+
+: multicast? ( handle data-address length -- handle data-address length flag )
+ \ Check for multicast/broadcast packets
+ over ( ... data-address )
+ c@ h# 80 and dup if \ Look at the multicast bit
+ ( handle data-address length multicast? )
+ handle-broadcast-packet
+ then
+;
+
+: receive-good-packet ( -- [ buffer-handle data-address length ] | 0 )
+ begin
+ begin
+ timeout? if false exit then
+ receive-ready?
+ until
+ receive dup 0=
+ while
+ .error 2drop return-buffer
+ repeat
+;
+: receive-unicast-packet ( -- [ buffer-handle data-address length ] | 0 )
+ begin
+ receive-good-packet dup 0= if exit then
+ multicast?
+ while
+ 2drop return-buffer
+ repeat
+;
+\ Receive a packet, filtering out broadcast packets and timing
+\ out if no packet comes in within a certain time.
+: timed-receive ( timeout-msecs -- [ buffer-handle data-address length ] err?)
+ set-timeout receive-unicast-packet ?dup 0=
+;
+headers
Added: dev/amd7990/vmlance.fth
===================================================================
--- dev/amd7990/vmlance.fth (rev 0)
+++ dev/amd7990/vmlance.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,231 @@
+\ ========== Copyright Header Begin ==========================================
+\
+\ Hypervisor Software File: vmlance.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: Definitions for the VMware PCNET - sort of - virtual ethernet
+copyright: Copyright 1995 Sun Microsystems, Inc. All Rights Reserved
+
+\ Register access
+
+\ The chips that support 32-bit descriptor addresses usually
+\ have two modes for accessing the control registers. In the
+\ "normal" word I/O mode, the registers are accessed with 16-bit
+\ bus cycles and appear at adjacent 16-bit locations (0x10, 0x12, ...)
+\ In double-word I/O mode, they are accessed with 32-bit bus
+\ cycles and appear at adjacent 32-bit locations (0x10, 0x14, ...)
+\ In either case, they contain only 16 bits of useful data, so
+\ there is no real advantage to using 32-bit accesses.
+\ The chip determines the mode from the first access cycle, and
+\ "locks" into that mode. The only way to change the mode thereafter
+\ is to issue a hardware reset to it; a software reset won't do it.
+\ We use 16-bit mode as the default, for the benefit of client programs
+\ that use older driver code.
+
+[ifdef] 32-bit-cycles
+: >reg ( offset -- adr ) la swap la+ h# 10 + ;
+: reg@ ( offset -- data ) >reg rl@ ;
+: reg! ( data offset -- ) >reg rl! ;
+[else]
+: >reg ( offset -- adr ) la swap wa+ h# 10 + ;
+: reg@ ( offset -- data ) >reg rw@ ;
+: reg! ( data offset -- ) >reg rw! ;
+[then]
+
+: rdp! ( val -- ) 0 reg! ;
+: rdp@ ( -- val ) 0 reg@ ;
+
+: rap! ( val -- ) 1 reg! ;
+: rap@ ( -- val ) 1 reg@ ;
+
+: reset ( -- ) 2 reg@ drop ;
+
+: bdp! ( val -- ) 3 reg! ;
+: bdp@ ( -- val ) 3 reg@ ;
+
+\ Control and Status Register
+: csr! ( value reg# -- ) rap! rdp! ;
+: csr@ ( reg# -- value ) rap! rdp@ ;
+
+\ Bus Control Register
+: bcr! ( value reg# -- ) rap! bdp! ;
+: bcr@ ( reg# -- value ) rap! bdp@ ;
+
+
+\ In addition to the 16/32-bit register access, some AMD Ethernet
+\ chips allow you to choose 16-bit and 32-bit versions of the
+\ descriptor data structures. Unlike the register access, there
+\ is a compelling reason to use the 32-bit data structures, for
+\ they contain 32-bit DMA pointers. The 16-bit data structures
+\ use 24-bit DMA pointers, thus restricting DMA to the lower 16 MBytes.
+
+\ Message descriptor access
+
+struct ( message-descriptor )
+4 field >addr
+2 field >bytecnt
+1 field >reserved1
+1 field >laflags
+0 field >tmd2
+2 field >mcnt
+0 field >xerrors
+1 field >rpc
+1 field >rcc
+4 field >reserved2
+( total-length ) constant /md
+
+/md value /rmd
+/md value /tmd
+
+\ Little-endian reads and writes
+: lew@ ( addr -- w ) dup c@ swap 1+ c@ bwjoin ;
+: lew! ( addr w -- ) >r wbsplit r@ 1+ c! r> c! ;
+
+: lel@ ( addr -- l ) dup lew@ swap 2+ lew@ wljoin ;
+: lel! ( addr l -- ) >r lwsplit r@ 2+ lew! r> lew! ;
+
+: dump-regs ( -- )
+ hex la . cr
+ h# 80 0 do i decimal 3 u.r hex i csr@ 9 u.r cr loop
+;
+
+\ Get virtual address of buffer from message descriptor
+: addr@ ( rmd/tmd-vaddr -- buff-vaddr ) >addr lel@ devaddr> ;
+
+\ gets length of incoming message - receive only
+: length@ ( rmdaddr -- messagelength ) >mcnt lew@ ;
+
+\ gets transmit errors - transmit only
+: xerrors@ ( tmdaddr -- errorsflag )
+ >xerrors lew@ dup rtry and 0= if \ mask TDR unless RTRY set
+ h# fc00 and
+ then
+;
+
+\ Store buffer address into message descriptor
+\ The message descriptor must have a DMA address in it because
+\ the chip reads it.
+: addr! ( buff-vaddr rmd/tmd-vaddr -- ) swap >devaddr swap >addr lel! ;
+
+\ Set length of message to be sent - transmit only
+: length! ( length rmd/tmd-addr -- ) swap negate swap >bytecnt lew! ;
+
+\ Clear transmit error flags
+: clear-errors ( tmd-addr -- ) 0 swap >xerrors lew! ;
+
+
+\ Initialization
+
+\ Initialization
+
+h# 40 constant /ib
+
+\ Tool for storing and incrementing
+: ,, ( addr val -- addr' ) over lew! wa1+ ;
+
+: mac-addr,, ( ibaddr buf -- ibaddr' )
+ 3 /w* bounds do i lew@ ( wbflip ) ,, /w +loop
+;
+
+: init-setup ( -- )
+ ib ( addr )
+ mode @ ,, \ Mode
+ h# 0 #rmdsfactor 4 lshift or ,, \ TLEN(2^0 = 1) and RLEN
+
+ this-en-addr mac-addr,, 0 ,, \ Physical Ethernet Address
+ 0 ,, 0 ,, 0 ,, 0 ,, \ Logical Address Filter
+ rmd0 >devaddr lwsplit \ Receive Descriptor Ring Pointer
+ >r ,, r> ,, \ Put in low word and high word
+ tmd0 >devaddr lwsplit \ Transmit Descriptor Ring Pointer
+ >r ,, r> ,, \ Put in low word
+ drop
+
+ stopb 0 csr!
+ 2 d# 58 csr! \ 32-bit descriptor mode
+
+ ib >devaddr lwsplit 2 csr! 1 csr!
+;
+
+: wait-init ( -- flag ) \ true if init succeeds
+ initb 0 csr! \ rap is now 0, so we can use rdp@ and rdp! below.
+ false
+ 300 0 do rdp@ idon and if drop true leave then loop ( okay? )
+ dup if
+\ idon rdp! \ XXX may cause a problem
+ else
+ ." Ethernet chip initialization failed"
+ then
+;
+
+\ Initialize the Lance chip
+: lance-init ( -- flag ) \ true if init succeeds
+ 0 rdp! \ Write to RDP to set the access mode
+ \ We are just hoping that there are no
+ \ side effects of this write.
+
+ init-setup wait-init dup if ( flag )
+ h# 100 0 csr! \ Ack the init done int ( flag )
+ strt 0 csr! \ go ( flag )
+ then ( flag )
+;
+
+: dr ( n -- ) dup decimal 3 u.r hex ." : " csr@ 5 u.r 3 spaces ;
+base @ decimal
+\ 6 7
+: dumpregs ( -- )
+ 0 csr@ 2 and if stopb 0 csr! then
+ 0 dr 1 dr 2 dr 3 dr cr
+ 4 dr 5 dr 8 dr 8 dr cr
+ 9 dr 10 dr 11 dr 12 dr cr
+ 13 dr 14 dr 15 dr cr
+ 24 dr 25 dr 30 dr 31 dr cr
+ 58 dr 76 dr 77 dr cr
+ 80 dr 82 dr 88 dr 89 dr cr
+ 112 dr 124 dr cr
+;
+base !
+
+\ Restore the chip to its default modes for the benefit of client programs
+: lance-uninit ( -- ) \ Call from close, after setting STOP
+ reset \ Issue software reset
+ h# 200 d# 20 bcr! \ Restore default "PCnet-ISA" programing interface
+ h# 200 d# 58 csr! \ Restore default "PCnet-ISA" programing interface
+ h# 9060 d# 18 bcr! \ Re-enable burst modes
+ 2 2 bcr! \ Re-enable auto-selection of media
+;
Added: dev/amd79970/79c970.fth
===================================================================
--- dev/amd79970/79c970.fth (rev 0)
+++ dev/amd79970/79c970.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,92 @@
+purpose: Driver for AMD 79C970 Ethernet controller
+\ See license at end of file
+
+headers
+hex
+: map-chips ( -- )
+ 0 0 0100.0010 my-space + h# 20 " map-in" $call-parent to la
+ \ Enable card response
+ h# c100 my-space 6 + " config-w!" $call-parent
+ my-space 4 + dup " config-w@" $call-parent 5 or
+ swap " config-w!" $call-parent
+;
+: unmap-chips ( -- )
+ la h# 20 " map-out" $call-parent 0 to la
+ \ Disable card response
+ my-space 4 + dup " config-w@" $call-parent 5 invert and
+ swap " config-w!" $call-parent
+;
+
+0 instance value dma-region
+0 instance value dma-region-size
+
+0 instance value dma-virt
+0 instance value dma-phys
+0 instance value dma-size
+
+: 3drop ( n n n -- ) 2drop drop ;
+defer dma-sync ' 3drop to dma-sync
+
+: synchronize ( -- ) dma-virt dma-phys dma-size dma-sync ;
+
+: lance-allocate-dma ( size -- vadr )
+ to dma-size
+
+ \ In 32-bit mode, the DMA message descriptors must be 16-byte aligned,
+ \ so we allocate extra space and round up the beginning address
+ dma-size h# 10 + to dma-region-size
+
+ " dma-sync" my-parent ihandle>phandle find-method if
+ to dma-sync
+ then
+
+ dma-size " dma-alloc" $call-parent to dma-region
+
+ dma-region h# f + h# f invert and to dma-virt
+
+ dma-virt dma-size false " dma-map-in" $call-parent to dma-phys
+ dma-virt dma-phys - to dma-offset
+
+ dma-virt
+;
+
+decimal
+
+: lance-free-dma ( adr size -- )
+ 2drop
+ dma-virt dma-phys dma-size " dma-map-out" $call-parent
+
+ dma-region dma-region-size " dma-free" $call-parent
+;
+
+\ *** Initialization routines ***
+
+: extra-init ( -- ) ;
+
+64 constant /loopback
+
+headers
+
+\ LICENSE_BEGIN
+\ Copyright (c) 1995 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/amd79970/amd79970.bth
===================================================================
--- dev/amd79970/amd79970.bth (rev 0)
+++ dev/amd79970/amd79970.bth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,39 @@
+purpose: Load file for AMD 79970 Ethernet FCode driver
+\ See license at end of file
+
+command: &tokenize &this
+build-now
+
+silent on
+
+begin-tokenizing amd79970.fc
+
+FCode-version2
+fload ${BP}/dev/amd79970/loadpkg.fth
+end0
+
+end-tokenizing
+
+\ 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/amd79970/amd7997m.bth
===================================================================
--- dev/amd79970/amd7997m.bth (rev 0)
+++ dev/amd79970/amd7997m.bth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,40 @@
+purpose: Load file for AMD 79970 Ethernet FCode driver using AUI
+\ See license at end of file
+
+command: &tokenize &this
+build-now
+
+silent on
+
+begin-tokenizing amd7997m.fc
+
+FCode-version2
+fload ${BP}/dev/amd79970/loadpkg.fth
+false to tp? \ Use AUI interface
+end0
+
+end-tokenizing
+
+\ 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/amd79970/loadfcod.fth
===================================================================
--- dev/amd79970/loadfcod.fth (rev 0)
+++ dev/amd79970/loadfcod.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,30 @@
+purpose: Load file for AMD 79970 Ethernet FCode driver
+\ See license at end of file
+
+FCode-version2
+fload ${BP}/dev/amd79970/loadpkg.fth
+end0
+
+\ 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/amd79970/loadpkg.fth
===================================================================
--- dev/amd79970/loadpkg.fth (rev 0)
+++ dev/amd79970/loadpkg.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,59 @@
+purpose: Load file for driver for AMD 79970 PCI Ethernet chip
+\ See license at end of file
+
+5 value #rmdsfactor \ #rmds = 2 ** #rmdsfactor
+
+fload ${BP}/dev/amd79970/setup.fth
+fload ${BP}/dev/amd7990/lancevar.fth
+fload ${BP}/dev/amd79970/79c970.fth
+fload ${BP}/dev/amd7990/regbits.fth
+fload ${BP}/dev/amd7990/lance32.fth
+fload ${BP}/dev/amd7990/lancecom.fth
+
+fload ${BP}/dev/amd7990/timedrec.fth
+fload ${BP}/dev/amd7990/lancetst.fth
+fload ${BP}/dev/amd79970/methods.fth
+
+: close ( -- )
+ obp-tftp ?dup if close-package then
+ net-off
+
+ la h# 14 + rw@ drop \ Reset
+ h# 200 d# 20 bcr! h# 200 d# 58 csr! \ Force some modes
+ h# 9060 h# 12 bcr! 2 2 bcr! \ and some more
+
+ unmap-lance-buffers
+ unmap-chips
+;
+
+map-chips
+get-mac-address ( b0 ... b5 )
+6 alloc-mem ( b0 ... b5 adr )
+dup 5 bounds swap do swap i c! -1 +loop ( adr )
+dup 6 encode-bytes " local-mac-address" property ( adr )
+6 free-mem
+unmap-chips
+
+\ 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/amd79970/map.fth
===================================================================
--- dev/amd79970/map.fth (rev 0)
+++ dev/amd79970/map.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,70 @@
+purpose: Map registers, allocate and map DMA space
+\ See license at end of file
+
+\ Possibly-unaligned addresses. We allocate a bit extra and return a
+\ 16-byte-aligned address within the allocated piece.
+0 value real-vaddr
+0 value real-size
+
+: lance-allocate-dma ( size -- vadr )
+ h# 10 + to real-size ( )
+
+ real-size " dma-alloc" my-parent $call-method to real-vaddr
+
+ real-vaddr real-size false " dma-map-in" $call-parent ( real-paddr )
+
+ real-vaddr swap - to dma-offset
+
+ real-vaddr h# f + h# f invert and ( vadr )
+;
+
+: lance-free-dma ( adr size -- )
+ 2drop real-vaddr real-size " dma-free" my-parent $call-method
+;
+
+\ Dma-sync could be dummy routine if parent device doesn't support.
+: dma-sync ( virt-addr dev-addr size -- )
+ " dma-sync" my-parent ['] $call-method catch if
+ 2drop 2drop 2drop
+ then ( nbytes eb )
+;
+
+\ Set PCI configuration registers
+: my-config-w! ( w-value offset -- ) my-space + " config-w!" $call-parent ;
+
+: map-chips ( -- )
+ 0 0 my-space h# 100.0010 + h# 20 " map-in" $call-parent to la
+
+ \ Status field: Clear PERR, SERR and DATAPERR = c100
+ \ Command field: Set BMEN and IOEN = 0005
+ h# c100 6 my-config-w! 0005 4 my-config-w!
+;
+
+: unmap-chips ( -- )
+ la h# 20 " map-out" my-parent $call-method
+ 0 to la
+;
+
+\ 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/amd79970/methods.fth
===================================================================
--- dev/amd79970/methods.fth (rev 0)
+++ dev/amd79970/methods.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,131 @@
+purpose: Standard interface methods for the LANCE driver
+\ See license at end of file
+
+headers
+
+instance variable le-nbytes
+instance variable le-buf
+
+0 instance value obp-tftp
+: init-obp-tftp ( -- okay? )
+ " obp-tftp" find-package if ( phandle )
+ my-args rot open-package ( ihandle )
+ else 0
+ then
+ dup to obp-tftp ( ihandle | 0 )
+ dup 0= if
+ ." Can't open OBP standard TFTP package" cr
+ then
+;
+
+: le-xmit ( bufaddr nbytes -- #sent )
+ tuck get-buffer ( nbytes bufaddr ether-buffer )
+ tuck 3 pick cmove ( nbytes ether-buffer )
+ dup dup >devaddr 3 pick ( nbytes eb eb eb_p nbytes )
+ dma-sync ( nbytes eb )
+ over net-send if drop 0 then ( #sent )
+;
+
+: le-poll ( bufaddr nbytes -- #received )
+ le-nbytes ! le-buf !
+
+ receive-ready? 0= if 0 exit then \ Bail out if no packet ready
+ receive ?dup if ( buffer-handle ether-buffer length )
+ over dup >devaddr 2 pick
+ dma-sync ( buffer-handle ether-buffer length )
+ dup >r ( buffer-handle ether-buffer length )
+ le-nbytes @ min ( buffer-handle ether-buffer length' )
+ le-buf @ swap cmove ( handle )
+ return-buffer r>
+ else
+ drop return-buffer 0
+ then
+;
+
+: (set-vectors ( -- )
+ rmd0 nextrmd ! tmd0 nexttmd !
+ ['] (.error to .error
+ ['] (.transmit-error to .transmit-error
+ ['] noop to handle-broadcast-packet
+;
+instance defer set-vectors ' (set-vectors to set-vectors
+
+external
+
+\ Access the address ROM area in 16-bit mode to establish the I/O width
+: get-mac-address ( -- b0 b1 b2 b3 b4 b5 )
+ la rw@ wbsplit la 2 + rw@ wbsplit la 4 + rw@ wbsplit
+;
+
+headers
+
+external
+: watch-net ( -- )
+ map-chips
+ map-lance-buffers
+ set-vectors
+ prom mode !
+ lance-verbose? off
+ ext-lbt? off
+ net-init if watch-test net-off then
+ unmap-lance-buffers
+ unmap-chips
+;
+
+: read ( buf len -- -2 | actual-len )
+ le-poll ?dup 0= if -2 then
+;
+: write ( buf len -- actual-len ) le-xmit ;
+
+: load ( adr -- len ) " load" obp-tftp $call-method ;
+: close ( -- )
+ obp-tftp ?dup if close-package then
+ net-off
+ [ifdef] lance-uninit lance-uninit [then]
+ unmap-lance-buffers
+ unmap-chips
+;
+: open ( -- okay? )
+ map-chips
+ set-vectors
+ \ routine to allocate memory and fire up device
+ mode off lance-verbose? off
+ map-lance-buffers
+ net-init 0= if unmap-lance-buffers unmap-chips false exit then
+
+ mac-address drop macbuf 6 cmove \ Update macbuf.
+ macbuf 6 encode-bytes " mac-address" property \ FIXME should be later.
+
+ init-obp-tftp 0= if close false exit then
+ true
+;
+: reset ( -- flag )
+ tmd0 if unmap-lance-buffers then
+ la if net-off unmap-chips then
+ true
+;
+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/amd79970/setup.fth
===================================================================
--- dev/amd79970/setup.fth (rev 0)
+++ dev/amd79970/setup.fth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,44 @@
+purpose: Properties for AMD 79970 PCI Ethernet chip
+\ See license at end of file
+
+" ethernet" device-name
+" AMD,79c970" model
+" AMD,79c970" encode-string " compatible" property
+" network" device-type
+
+my-address my-space encode-phys
+ 0 encode-int encode+ h# 0 encode-int encode+
+
+my-address my-space h# 100.0010 + encode-phys encode+
+ 0 encode-int encode+ h# 20 encode-int encode+
+
+my-address my-space h# 200.0014 + encode-phys encode+
+ 0 encode-int encode+ h# 20 encode-int encode+
+
+my-address my-space h# 200.0030 + encode-phys encode+
+ 0 encode-int encode+ h# 10000 encode-int encode+
+" reg" property
+
+\ 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/amd79970/vmlance.bth
===================================================================
--- dev/amd79970/vmlance.bth (rev 0)
+++ dev/amd79970/vmlance.bth 2008-09-30 21:06:51 UTC (rev 954)
@@ -0,0 +1,70 @@
+purpose: Load file for VMware emulated LANCE chip
+\ See license at end of file
+
+command: &tokenize &this
+build-now
+
+silent on
+
+begin-tokenizing vmlance.fc
+
+FCode-version2
+5 value #rmdsfactor \ #rmds = 2 ** #rmdsfactor
+
+fload ${BP}/dev/amd79970/setup.fth
+fload ${BP}/dev/amd7990/lancevar.fth
+fload ${BP}/dev/amd79970/79c970.fth
+fload ${BP}/dev/amd7990/regbits.fth
+fload ${BP}/dev/amd7990/vmlance.fth
+fload ${BP}/dev/amd7990/lancecom.fth
+
+fload ${BP}/dev/amd7990/timedrec.fth
+fload ${BP}/dev/amd7990/lancetst.fth
+fload ${BP}/dev/amd79970/methods.fth
+
+: close ( -- )
+ obp-tftp ?dup if close-package then
+ net-off
+
+ la h# 14 + rw@ drop \ Reset
+ h# 200 d# 20 bcr! h# 200 d# 58 csr! \ Force some modes
+ h# 9060 h# 12 bcr! 2 2 bcr! \ and some more
+
+ unmap-lance-buffers
+ unmap-chips
+;
+
+map-chips
+get-mac-address ( b0 ... b5 )
+6 alloc-mem ( b0 ... b5 adr )
+dup 5 bounds swap do swap i c! -1 +loop ( adr )
+dup 6 encode-bytes " local-mac-address" property ( adr )
+6 free-mem
+unmap-chips
+end0
+
+end-tokenizing
+
+\ LICENSE_BEGIN
+\ Copyright (c) 2002 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
